设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 9304|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]9 x% {! a* ?' F, d
to setup
+ I2 b$ M* M. H: q1 Z& V  clear-all6 ^, U: z& j& E5 e. h6 w- N
  setup-patches, ~* m* \3 _7 D
  create-turtles 1008 r# |' q& m! Y& q! p. Y
  do-plots
+ m  @, G  l" w- D! g4 O5 V. |  ask turtles [ setxy random-xcor random-ycor ]
0 o  b& F4 ?5 j  U* cend2 r" C* J+ x: w# j+ `' p
to go2 J& M$ O" C) ]4 Q! ]5 F: t
  move-turtles
: V2 Q! N. `" W& k& K  eat-grass- s/ I- o. s3 y* |6 N. i
  reproduce
9 @, P4 W1 z, `7 X$ B9 }: a2 ]  check-death
4 ]: k( M( i  I) y, c- {) y2 @  regrow-grass/ N! k* o3 p7 x
  do-plots& A/ L2 A4 M. A  j5 E" z' g
end4 N. y* U+ s9 {) z
to move-turtles
! K: x, X* w* L. T  `" V& q  ask turtles [
+ W/ v: r) U* t    right random 360- z& G/ ~2 @* F+ x  E6 G4 \! t
    forward 1% h2 Q3 h4 |- d6 m( [+ k
    set energy energy - 1" i- D1 u+ l. q* G
    ]) N% ?4 z# A6 U6 o3 q) m
end5 n) P2 P7 }- r' A
to setup-patches6 u" Q( v# i) y& z3 f8 r: n/ r2 ?
  ask patches [ set pcolor green ]5 }0 o: M: m0 y5 R/ w& U
end" l# J6 h' e+ n' z+ V7 `3 B& g5 c
to setup-turtles: G! b) Q9 X8 E3 |
  create-turtles 100
3 }5 @6 e1 \; B0 H' J5 ^! y( p' C  ask turtles [ setxy random-xcor random-ycor ]- V; b/ _6 d* y! c( ?, t- W
end
* ]2 K, o% Q+ e4 Kto eat-grass. G) h( n9 D) P5 F
  ask turtles [
$ q& h4 \" \& z! W    if pcolor = green [
  G% e2 g$ \8 f7 @      set pcolor black
3 x7 Z; X: R; S4 A) \( N- \6 M      set energy (energy + 10)* X+ t) Q+ K# S4 N
      ]
; f3 D4 J' g6 D1 P- _    ifelse show-energy?$ F# P6 q1 m4 I; H  }) Q
      [ set label energy ]
3 V) k1 ?& P9 i4 B      [ set label "" ]2 a; U5 t7 S; f% k2 S: Z
    ]$ D% x+ C# O/ T) }
end
9 B6 x- n5 K3 j- U% g' O. fto reproduce$ I( B  u6 |+ A, m3 _, O
  ask turtles [0 K. I* D( W* B% \' B$ H' f5 i1 g5 I
    if energy > 50 [
4 p4 p& h* z0 L7 ]/ g* A      set energy energy - 50
7 d1 y5 U+ Y) O2 [      hatch 1 [ set energy 50 ]( [; x( b7 v* ?! N  w! l
      ]7 B2 W& P; T# r! j# D
    ]
$ `* B6 r5 p* c; g: lend7 V% m; Z1 a) `# u# T9 T$ \
to check-death  e5 X& r; z" h! E0 x: r' c* _
  ask turtles [
4 T* X+ n) Q4 b  z* ~    if energy <= 0 [ die ]
& y! |! u/ M+ K. X+ ~    ]& b: W: E4 L1 l5 @5 L2 T
end2 `' K& F+ w. p$ C% r
to regrow-grass
2 y* l! S  w  {! r& Q7 j  ask patches [
1 Q" a0 S8 C9 i    if random 100 < 3 [ set pcolor green ]6 [5 C) f# Y0 W) Z- X. y
    ]
" j7 @* V3 h1 K8 Pend" x( q0 m/ a7 j
to do-plots
. d* q5 V( U6 E# }5 ~  set-current-plot "Totals"
  \* P! M1 X, |' z4 w- A# }5 x) c  set-current-plot-pen "turtles", h& X  _$ a' q: Q; u4 K  Q
  plot count turtles
5 }2 j% x% {% B, f0 j" k" v  set-current-plot-pen "grass"
  D% Y& E! a& L+ b  plot count patches with [pcolor = green]5 y* [0 n1 u. t' o
end- I1 V4 `9 j" ^( m4 r
可是运行时提示no such plot: "Totals"( h' e7 p% D* J
error while observer running SET-CURRENT-PLOT8 k% A9 n# n, d% V
  called by procedure DO-PLOTS
7 \$ e' F* o' R- `+ e- s4 K$ `  called by procedure SETUP
3 B0 t  j. h7 d8 k! B$ M  called by 按钮 'setup'
0 C. c$ l1 z0 f' |8 [- d求大神解答啊
发表于 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 1 j, Q0 n& X2 \% K( l: m) U
建一个叫做叫做Totals的绘图框就行了

" B- s7 n2 O1 ]: f% @: O$ t1 F( i9 T哦,知道了,虽然自己应经找到问题了,不过还是谢谢哈
发表于 2016-5-3 09:17:18 | 显示全部楼层
你也可以直接再界面页创建“绘图”,然后设置时钟(ticks),每一步画一次,不用自己操心。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2025-12-6 02:56 , Processed in 0.017954 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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