设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 11757|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]
, a0 r$ x  E/ Z& @7 a) W8 Z: eto setup5 o$ o( t4 W- p4 d/ U' ^% Y
  clear-all
( N" }9 U  x2 R( [3 F! s, d3 ]  setup-patches
# B0 @$ x8 Y6 f) X+ d  create-turtles 1004 Q6 ^# A- Y  H* c
  do-plots
& |& Q5 N2 v  \3 e+ K# G  ask turtles [ setxy random-xcor random-ycor ]
( J+ o0 k( w, u0 ?; ]end
) \; T/ p, w$ d( ?! k  bto go$ N, O7 [% g+ U3 T, e. }7 t1 ^
  move-turtles
3 }( n- n4 A1 o- m7 q  eat-grass
/ C2 q- I! B- S  p  reproduce7 \  X4 ?9 `7 W5 \
  check-death
& d# E: p6 r! r" i6 E  regrow-grass  ?$ N/ ?& o7 o) x+ y, m
  do-plots
8 |$ x; D, L; ^1 u" tend5 o: Y3 s& u6 M6 ]% f
to move-turtles) r+ g) N& F# H2 d$ n. u' Q
  ask turtles [
4 k* y: Z! G- H' b% D. n; p    right random 3602 W3 C5 {$ Q3 S3 S
    forward 18 i% C' n1 x0 ]
    set energy energy - 17 I) d! W) H3 v
    ]
( a& c& p( @3 ~6 N* i6 U- |8 gend
5 O2 [3 W4 o' Zto setup-patches
: Q6 o6 E0 M3 i$ m) K  ask patches [ set pcolor green ]
2 ~2 q2 m. N" M; Gend
, n& Q: k$ C- F2 sto setup-turtles7 b9 z+ v" z* b' B! r
  create-turtles 100/ w5 S% g, ~; \# j9 c* R  i8 p
  ask turtles [ setxy random-xcor random-ycor ]
0 z) g- c5 o1 E  y& yend
, O. [& E  g+ v' o$ j" Oto eat-grass8 W' o1 i4 J3 \
  ask turtles [
: o! h! [3 u/ P( U4 L0 r. Z    if pcolor = green [! d7 g" g5 Y/ M+ O: }
      set pcolor black
  o' G; o: H# q      set energy (energy + 10)5 x3 Z3 p# W/ B% d0 F
      ]
; T) m  z' [/ D. v" O# W8 W    ifelse show-energy?
" w; D+ X; V8 J# f      [ set label energy ]
8 J, I* R# ^7 Y& t2 O" P# p4 }      [ set label "" ]
6 n# o! X) O4 c- v# ]7 D    ]$ v  E  c8 q" X2 @$ o& I; v
end
8 d- [# E* E9 _0 b, _5 Lto reproduce8 B  W* }+ [# a3 g. h; m1 ?1 t2 Y
  ask turtles [7 V3 a! f' c7 @
    if energy > 50 [& ?; x- V$ f7 s% Y
      set energy energy - 502 k+ D( o+ r! Z2 X
      hatch 1 [ set energy 50 ]; ?: V) i) V" L2 D
      ]
6 l% w" \5 a; v5 u; b/ d    ]$ Z# N, q9 [" K, g
end7 H9 L, x6 N* C* W& p4 B1 F- ^
to check-death& @" {: W' I5 S1 J3 E# e* V( ]
  ask turtles [8 n+ a* w! _3 ?  O5 j" x7 C
    if energy <= 0 [ die ]
# x  I7 u0 {& t! s/ O9 X    ]" O/ W7 B3 f" _! R3 ~
end
  S  I) A( i, S4 ~8 Q5 S% r/ mto regrow-grass# J4 f: _5 d7 ^- D
  ask patches [5 R8 t7 A1 a* s
    if random 100 < 3 [ set pcolor green ]1 h: n6 E, P% j
    ]
; o: d9 O$ n0 {end  p$ S; X" D! `5 x$ u& I
to do-plots4 Q( Q0 i* [6 w# J' _4 n, f% Z
  set-current-plot "Totals"& X" \2 g0 p, O  ?, `
  set-current-plot-pen "turtles") m9 }: J& H7 l1 D* B$ s
  plot count turtles4 [# u& s3 z! e! o6 l
  set-current-plot-pen "grass"
6 l4 K9 z1 i$ l# r, T, M7 q5 T1 G0 e  plot count patches with [pcolor = green]# s4 U4 z4 a0 v
end. p2 a8 A+ Z4 ]% ?
可是运行时提示no such plot: "Totals"
  ^5 O- l, p# D6 L- H% Terror while observer running SET-CURRENT-PLOT
# F2 P$ Q7 p2 G) e* n  called by procedure DO-PLOTS
# y9 q( f# P& n  called by procedure SETUP
+ O$ i, J8 Q& ~; F  called by 按钮 'setup'
7 G$ ]9 |$ ?; C. m! C求大神解答啊
发表于 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   P9 l- u) p% k* V! j; W8 P& i9 j
建一个叫做叫做Totals的绘图框就行了

7 M* @! h$ O$ G5 A( L4 ~6 Q, U哦,知道了,虽然自己应经找到问题了,不过还是谢谢哈
发表于 2016-5-3 09:17:18 | 显示全部楼层
你也可以直接再界面页创建“绘图”,然后设置时钟(ticks),每一步画一次,不用自己操心。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2026-6-26 20:24 , Processed in 0.016454 second(s), 17 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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