设为首页收藏本站

最大的系统仿真与系统优化公益交流社区

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 11480|回复: 4

[求助] 自学中文手册时遇到了问题,求高手解答

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]
) B" }* _. r) E' m: p% A5 j/ s8 Nto setup4 V8 e, c( x- Q3 o5 z  N, |
  clear-all0 }3 W* o% o& l0 h3 n
  setup-patches2 e1 m/ A* w3 {6 ~5 F
  create-turtles 100
& x- N9 @/ n  k7 C7 y  do-plots3 v& T+ B& o6 s( u
  ask turtles [ setxy random-xcor random-ycor ]
9 v" r- W7 V* }end% d$ ?9 r1 c7 L3 c! N8 k) o
to go
/ J5 u( C. k/ z4 `  B: p  move-turtles. d+ B3 d6 w1 g7 A( I5 o3 v
  eat-grass( |! x2 Y$ B" g* A
  reproduce5 X- x: a3 V" r# H) U! U' R
  check-death
; Z! ]9 h- l( Y/ O" d  }7 d  regrow-grass
- ]4 q0 [2 Q) X8 V% u% D6 A1 E) V  do-plots
, h6 |, y/ s& T7 o' q$ \; [9 vend
7 ?- p7 F, @4 z, mto move-turtles
; P8 d: A$ q7 V' I5 |  ask turtles [
8 S* B- u# c5 C    right random 3604 M8 V1 G" d8 ?; y6 {
    forward 1
6 F4 p* Z# [: T, }1 t    set energy energy - 10 s$ n8 t$ X" T* j
    ]2 U4 w8 e+ {# T" j' O0 n4 z  _
end
1 s) F# i6 B6 ^' {; j8 oto setup-patches
: k* Q! U0 t9 l/ X  Y/ g6 X/ w1 y  ask patches [ set pcolor green ]
) P) E  X  A' E6 |/ Rend: e! {$ M1 `! m" z0 `- y. `5 _
to setup-turtles3 z' X' @2 e* N3 V2 y5 k7 Y
  create-turtles 100
4 o" L* i& X% U6 l( [2 v6 s  ask turtles [ setxy random-xcor random-ycor ]- y" k8 L+ ~& X
end
/ X' h- W7 Z5 F& eto eat-grass7 Z. m" B2 b; y; G
  ask turtles [
' u; P. y5 r7 Y  {. L    if pcolor = green [
% u6 e6 I2 o; }3 T; i7 v8 q) y      set pcolor black5 G+ @; Y9 m) S8 t$ S8 j
      set energy (energy + 10)
! O5 f9 {1 \& v- R/ c" b: p+ ]      ]
7 y& M$ D4 s% y. _) N! }    ifelse show-energy?) P0 W6 V; u9 C" {) M
      [ set label energy ]. w' E- j( i& b: }
      [ set label "" ]/ r- D: Q9 c) f! }' b) P4 k( ?
    ]
0 N  q+ ]1 p" z7 y3 V, Fend+ W* B) r2 o0 U) p' w  A. d
to reproduce2 R5 f# X1 |8 O9 W, d
  ask turtles [
7 x0 J( e+ v# j8 x! g3 F1 o    if energy > 50 [# j# G* z; w( i/ [1 E
      set energy energy - 505 J) o4 d! R! H. W/ w! x; ^
      hatch 1 [ set energy 50 ]
; ?5 G% t4 G3 K1 H4 s      ]
7 V- n3 X6 o+ d    ]  M1 H: ~0 _2 ?8 d
end1 r$ o1 r' I! M1 [2 E
to check-death) z9 X; E6 {# U/ }6 c  o. E
  ask turtles [
4 B, m( i- T) f9 z    if energy <= 0 [ die ]: R& y: d5 Q4 n( Z4 G) f
    ]1 S  z$ d8 G. O" c8 n$ Z+ \
end
3 {9 {  _6 i: U/ r' c3 Zto regrow-grass& l1 p: K9 w0 {3 K4 d4 T
  ask patches [1 q( ~0 ^0 X; x7 V  m: o
    if random 100 < 3 [ set pcolor green ]( b; x; _$ L7 P' p  x, I/ f
    ]
) _( q) s( x9 N" Hend
& e' E  [+ r8 j2 w* pto do-plots5 t& E+ k) L3 r
  set-current-plot "Totals"
& o! w3 h2 e- h% N5 R# }0 Y/ K  set-current-plot-pen "turtles"
" N) e# G0 @' o; y$ q4 B8 C  plot count turtles( K$ D1 ~. f4 ~
  set-current-plot-pen "grass"
0 n$ X7 M" E) c  plot count patches with [pcolor = green]& t$ b$ x6 W4 U
end! o7 J$ \" L( `6 d2 ^' y
可是运行时提示no such plot: "Totals") w- j' b9 S: d3 d) t9 m
error while observer running SET-CURRENT-PLOT2 l" G  O; }4 ~% B# T, H
  called by procedure DO-PLOTS
& O% d- g+ O& V+ L  called by procedure SETUP
$ ]6 Y! p6 u' J7 I- d  called by 按钮 'setup'3 A7 u- M0 K/ Z- Q, v
求大神解答啊
发表于 2013-5-29 00:25:38 | 显示全部楼层
no such plot: "Totals",就是说你的界面里没有叫做Totals的绘图框
发表于 2013-5-29 00:26:26 | 显示全部楼层
建一个叫做叫做Totals的绘图框就行了
 楼主| 发表于 2013-6-4 12:24:45 | 显示全部楼层
emlyn 发表于 2013-5-29 00:26   U- S1 s/ C2 b* W
建一个叫做叫做Totals的绘图框就行了
! ^- b  g! y* @9 R$ b
哦,知道了,虽然自己应经找到问题了,不过还是谢谢哈
发表于 2016-5-3 09:17:18 | 显示全部楼层
你也可以直接再界面页创建“绘图”,然后设置时钟(ticks),每一步画一次,不用自己操心。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|Archiver|手机版|SimulWay 道于仿真   

GMT+8, 2026-6-2 18:13 , Processed in 0.015963 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表