设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 9822|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]
0 S0 t- G: Q- o5 d' t' Y" |- nto setup
4 B; e; H0 C5 ^  clear-all% a1 `) \: U0 [1 q3 N& y! b
  setup-patches) z1 r! w/ ?# e7 z$ f
  create-turtles 100
+ L+ {4 m0 O% E& J" s" j  do-plots2 r7 t1 E. @' @7 c" H' U% @$ s
  ask turtles [ setxy random-xcor random-ycor ]4 L! h/ |7 M: n; p0 x" Z
end
( r7 d7 u5 ?, g5 Fto go
: L' v* ^; l, C+ i# |) ~' P  move-turtles) h3 M5 G- }$ g) [8 ]8 o0 c# w
  eat-grass# c6 j0 d. \1 g5 U+ a! U
  reproduce
0 X) Y  S& u. k! i  check-death" v/ W' v9 N- U; M; J
  regrow-grass1 q0 P1 w8 T; t8 z
  do-plots
6 J  U3 Q% a* {9 @8 M  E/ d0 aend
+ B- a4 T% s$ r- ~7 N/ Fto move-turtles
6 m' A; L- P9 J  ask turtles [" H3 u6 |  E8 b
    right random 360
4 `, T) ~* s" i' _8 x( D    forward 1/ J- x  n0 a/ d, {
    set energy energy - 1
2 }& G; r& X! |, [5 d4 ^# X    ]# L1 Y7 k, F. B# t8 \
end! U8 [# C) v- ^
to setup-patches5 i: l% j: h5 @$ n" _4 N' B) X
  ask patches [ set pcolor green ]& {9 |: U& L$ V6 y2 N" n# l1 Y8 Y! z
end, i. g7 K/ V3 J6 l
to setup-turtles
$ c) {% O0 C, ]6 X! m9 i  create-turtles 100
( q6 p& m4 P8 }8 {  L. ^  ask turtles [ setxy random-xcor random-ycor ]
7 q2 [8 g7 _5 A( oend
7 _) }& [7 }! V: |" G* n6 w6 k$ Oto eat-grass. g) ]; n0 J2 O- z' g4 ~! G0 N
  ask turtles [0 }- i' I/ f" \9 |. `( ?1 |
    if pcolor = green [6 [4 y* S: j9 [/ o- u
      set pcolor black
/ `6 w& O" q/ A% n% i8 ~6 N4 u      set energy (energy + 10)
' b& C4 Y) f2 @0 \4 }3 v# k0 r9 J5 a      ]! I1 f$ q  D& f% x2 D3 h2 B
    ifelse show-energy?5 [7 N1 @  I5 n( P
      [ set label energy ]
2 V  K8 n% _2 v      [ set label "" ]
# J2 T1 j9 ^; }8 |    ]
/ y$ j% c9 o. `# y. j) }( u1 |end+ s8 h6 l( {* x" m* W
to reproduce3 h$ e2 k: o- I5 L! Z! ~7 R
  ask turtles [
* h. H: R) z# f8 l# m    if energy > 50 [) _9 V; Z. O# y4 T4 g+ M
      set energy energy - 502 b6 h- H) @' \& G$ j, [& \, U
      hatch 1 [ set energy 50 ]8 Z5 D3 u& ]; o: B
      ]: t. b. H+ q  ~$ [& z& D$ F
    ], K$ K2 |+ h0 v
end
$ s: P% [, J. h) C  qto check-death4 l; x$ H* {. g$ |2 `5 H
  ask turtles [7 `3 ?$ y( H6 z2 W1 ^
    if energy <= 0 [ die ]8 v% Z: G" h7 ]/ D) F
    ]
, j0 R4 l& v( b1 O" Zend. E/ {* u: e, }( a
to regrow-grass1 Z+ L$ c& z: k0 X( F7 K4 g/ N
  ask patches [& N/ y: j6 P$ N& P6 x
    if random 100 < 3 [ set pcolor green ]0 r( M7 d! H" s3 m2 `$ F3 B+ f) ~
    ]+ F" a0 n# y& X& i4 n  s
end( a, p. ?6 n4 j1 T2 k* j) O
to do-plots7 b* Z/ r4 H1 C; j: i' x; h+ w
  set-current-plot "Totals"' ]) a# Q1 }1 \4 ]$ V* I* p
  set-current-plot-pen "turtles"4 H' b- c+ t+ P5 E7 H; N
  plot count turtles
# }3 }2 p2 x; R! T+ d  set-current-plot-pen "grass"1 c1 b8 @# m+ z) g! Q+ n0 |
  plot count patches with [pcolor = green]" b) K5 m5 b& K3 ]* ?2 c
end
( t* e4 T. ]% U& V  w, o) @% A可是运行时提示no such plot: "Totals"
. Q! f' e  ]" u/ f- I0 ?6 o. {error while observer running SET-CURRENT-PLOT
7 Q+ u9 W4 k1 G: u! q. K9 F  called by procedure DO-PLOTS
4 T0 Y4 A# l% d7 f  called by procedure SETUP
" o9 C, V, U2 ~+ A  called by 按钮 'setup'" ]" O6 ?6 u% }
求大神解答啊
发表于 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 6 i3 L& n  `2 \, @' ^" a5 {2 u
建一个叫做叫做Totals的绘图框就行了

7 w( R) z: \( a5 L9 Z哦,知道了,虽然自己应经找到问题了,不过还是谢谢哈
发表于 2016-5-3 09:17:18 | 显示全部楼层
你也可以直接再界面页创建“绘图”,然后设置时钟(ticks),每一步画一次,不用自己操心。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2026-1-23 23:40 , Processed in 0.020059 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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