设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 12486|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]
1 A! Y7 [# ^# E3 k7 m& q, g# Nto setup
1 _0 c% O- i" K! z  clear-all
9 I6 d8 C- U" l& k  setup-patches
' B& q! U& B$ }+ A" V  create-turtles 100
7 f+ W" O' @( t$ I) r' ]  do-plots
! D( G* u5 `( f/ _, R3 n  ask turtles [ setxy random-xcor random-ycor ]
  i3 P* x  H+ P, M6 H- h; Bend+ _3 h" n% l0 r7 @
to go
, ]5 `. B. Z! i  move-turtles
) j& _. S0 @  [" c# o) p  eat-grass& x% q1 H! v) T" n
  reproduce
; i+ X1 Y1 x: ?% M+ B8 J  check-death
& e( {0 ~* |; n3 B. p& W  regrow-grass+ R( D6 E- X) a2 k2 F6 D
  do-plots  G& b* P! k# u5 h# ^8 t  y
end$ s" M- R$ O7 P+ E0 P
to move-turtles- d6 z5 G5 E) S! }
  ask turtles [
7 c: ~# [1 _" u" z: c& V1 i6 i2 }    right random 360
2 W& W7 t3 f# ?: @7 U: D    forward 13 I8 L6 y! H3 J
    set energy energy - 17 k% u! P/ T' O- m$ t
    ]( O* h( R: {' W. x4 ^4 M
end
) \6 ^2 o1 m) h  jto setup-patches6 x" l7 c5 J4 l5 D8 V( q
  ask patches [ set pcolor green ]/ ?7 g( a* [# T
end% y1 J/ U% l% j
to setup-turtles& X% n( f2 X: i3 i" X: X
  create-turtles 100
3 F* j% e- ^% f* c  ask turtles [ setxy random-xcor random-ycor ]
& E. R; Q& t: u' k- N/ B6 Gend% o: e( ?' k+ F: J' g6 j9 Z) f% e9 o
to eat-grass
$ C& Z5 F( X$ V2 Q: z5 W  ask turtles [, d# W1 E9 f0 Q3 d" ]  R: ]9 u
    if pcolor = green [
( N) r6 b+ G8 k. k4 S      set pcolor black2 n8 C3 ?5 k0 S6 p' W
      set energy (energy + 10)
4 E4 N2 N9 O" N# y      ]% Y. `( d3 C1 H: M3 B4 E
    ifelse show-energy?& M8 _$ r4 c6 v5 y$ ~
      [ set label energy ]) c9 A9 {0 o2 v& t" a( I
      [ set label "" ]
# j. K( u/ ?3 e  f8 _6 N( l8 w* J, _    ]0 j6 v7 h  ?. D- N
end
- u# X* l. Z1 p  oto reproduce
0 }3 p  r% K8 i3 G  ask turtles [# h1 k( l$ h: Q: s' q
    if energy > 50 [
/ V+ l1 M" P/ v( Y: m& w( D      set energy energy - 50
& F- S, U2 z% z  Y! D1 K      hatch 1 [ set energy 50 ]
! Y" u# o9 y) ?& b' C" L      ]
2 A* c; C, v4 o: r    ]' v* p( G# I: I2 D2 n$ b: K$ h! F
end
" l# U2 p; B* e+ l& \to check-death; I( S* l1 e/ Q) ]1 n* ^
  ask turtles [
5 C9 S. n3 n$ E% ~- h    if energy <= 0 [ die ]" Z2 B, p/ N; M! }7 m& o
    ]4 n+ H7 @7 a% B4 m
end6 ~: o" c/ O( y! `
to regrow-grass
( c% R9 P. j9 E# w$ Z, E+ Z7 |3 J( q8 J  ask patches [, G  R+ B2 G) v5 A* y4 K
    if random 100 < 3 [ set pcolor green ]
# ~( P$ a& q: j+ N    ]
3 e; I( j4 v: N5 V6 O4 Yend$ e1 y% L  x1 e7 \3 M6 `9 R
to do-plots( o8 R7 N: z: b+ X( Y* E) K
  set-current-plot "Totals"8 }: ]7 d) T. S$ a
  set-current-plot-pen "turtles"
2 M8 t  A1 a2 o) f2 S/ ^  plot count turtles
+ x) P0 m- ^( S, m  set-current-plot-pen "grass", [7 ?. |  _+ d: D4 U7 Z6 W
  plot count patches with [pcolor = green]. \1 M9 y+ j6 q$ r
end8 S" B: ^) _  o. y( ~
可是运行时提示no such plot: "Totals"
+ t: @- `/ T: z8 E; ^$ n- merror while observer running SET-CURRENT-PLOT
4 Q  F: _( I, }+ w  I  called by procedure DO-PLOTS
( n( o% \& D5 I  o) t" u  called by procedure SETUP; g. v+ y7 T: F7 v- k9 R
  called by 按钮 'setup'$ ^% V( ~/ e7 D4 ?/ b7 T( H1 |* 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 7 O) R7 h  h" f+ E
建一个叫做叫做Totals的绘图框就行了
' n  M! \) S! `0 d
哦,知道了,虽然自己应经找到问题了,不过还是谢谢哈
发表于 2016-5-3 09:17:18 | 显示全部楼层
你也可以直接再界面页创建“绘图”,然后设置时钟(ticks),每一步画一次,不用自己操心。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2026-8-26 02:55 , Processed in 0.019010 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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