设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 11983|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]
. |* x* N9 M, O' ^; @to setup
. [6 I9 o- Y5 }3 t2 O3 h  clear-all0 n9 a5 ?8 r6 y( f, S3 v# G$ S/ ?
  setup-patches
5 x, m/ B( l! T1 ?9 k  create-turtles 100
$ h$ q. k3 N2 s% Y6 q. ~' X  do-plots- e, W2 x$ _2 Z* L
  ask turtles [ setxy random-xcor random-ycor ]
4 T! @- c- ^8 {0 o: nend
( B: c/ q1 i) dto go
+ O. p/ O1 @& w  move-turtles
. Y! P6 f. b9 }7 H  eat-grass9 _* e- `% A8 ]0 A+ u$ h( g
  reproduce- N% Z8 X8 t% Y
  check-death; s3 F( Z3 X7 ?& x$ d
  regrow-grass3 n) A  A$ z. b' w; o
  do-plots' L7 S7 E8 M! g/ q' X6 ^4 X
end- ^% L1 y" N! r) V. ]- S# g1 N/ [  c
to move-turtles$ T: Q; W7 T4 L$ ^: W: H3 F
  ask turtles [8 ^4 Z& d( n% f( {& d
    right random 3601 v' f: w: }6 a) z1 p, a; L' L
    forward 1$ e  z1 T* G- R( G$ u
    set energy energy - 1
7 h* `7 ~  `- Z6 W8 ?    ]5 W: A4 ?6 K) d2 Y% W# Y
end7 y% V, E  R' g/ q% M5 W+ V7 @
to setup-patches
5 ?9 F  K3 q8 `# G  ask patches [ set pcolor green ]
7 O3 |3 ~  r, s5 k8 g7 kend
: T9 Y0 k% f. x1 R# Jto setup-turtles' Q9 A! y" O8 O  _. I! Q; U
  create-turtles 100
# d$ l6 n9 ^4 ~" o/ _) M  ask turtles [ setxy random-xcor random-ycor ]
' C( ]. S5 ^$ H  Q' D" @4 |; wend
0 w" W) ]* Y' A) f; |to eat-grass
! x2 g$ g8 g* q  ask turtles [
' e" E" t) b3 _; |. O8 F0 R    if pcolor = green [9 O0 L) @7 Z; }$ ^& A& Z
      set pcolor black8 d  m/ N9 a( s0 p4 f2 j( e
      set energy (energy + 10)
" U# B# ]7 {( H      ]0 Z& ?4 n% q$ r) }+ s$ L5 E
    ifelse show-energy?
0 @3 H4 l% s; u0 j# w: U9 g5 k( P% o      [ set label energy ]; E  b* h2 Y6 _
      [ set label "" ]0 d5 [& |$ D5 i
    ]0 K' X. v8 f- z  H0 P- R! K* l, d6 O& y
end  P: z  ?# ^' Y  o$ c0 }, R
to reproduce
" ~( A  I9 Y& M" [  ask turtles [" B) `6 e6 ~3 k- O; }
    if energy > 50 [
" B: S2 _% Q- h* r      set energy energy - 50
  M! v  ~1 j! R* {: ]; N      hatch 1 [ set energy 50 ]! o6 J- x) i/ S' A' `( s# ~
      ]
/ v" H. `, G; B( ]( P9 ]    ], \8 f7 H# W/ L# k
end. W; D- e, e- J3 Y# g2 @8 d
to check-death3 H7 `. P8 x3 {% ~
  ask turtles [7 z. n* G4 u+ J( Y9 G& ]; w
    if energy <= 0 [ die ]# T! N4 e) j/ {2 p( i! x  z
    ]
- k% u& n4 [3 [6 Jend. Q* A! L5 g3 F4 p1 [0 P
to regrow-grass( N+ ?9 I+ \* w' w2 k5 h8 Y* g
  ask patches [5 ~) \3 D; c( J7 H+ \7 \0 n% j
    if random 100 < 3 [ set pcolor green ]
& G/ i2 R2 t1 P) ?+ K  F    ]: w' J8 g6 W; T, O; L4 D
end
7 E3 X( R$ R; x7 S4 R! {, `to do-plots+ ~& t8 a4 Z1 i
  set-current-plot "Totals"0 N  r6 u/ Z) ~- V# x) f
  set-current-plot-pen "turtles"2 ]/ k2 n, d7 S) i7 e/ a
  plot count turtles
* h* }2 O. p) p0 r+ R- e  q4 K  set-current-plot-pen "grass"
& k. e+ B/ C! A6 W* d; ]1 ~" }  plot count patches with [pcolor = green]' U" t$ M; V, V3 @9 m3 Y3 F
end8 w  H/ a  |, k
可是运行时提示no such plot: "Totals"$ g2 O- o: k/ [" W& @# k( b9 d) k& n
error while observer running SET-CURRENT-PLOT
6 }& h; a9 r: z7 K  \  called by procedure DO-PLOTS
, l$ S9 c+ q& A% F& ]" u  called by procedure SETUP0 q: s" w6 r# l4 ]( D9 r: e: ]6 Y
  called by 按钮 'setup'' \0 K; O+ i' B4 t9 [5 A
求大神解答啊
发表于 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
8 H& C- L+ k2 ^5 L$ g; V建一个叫做叫做Totals的绘图框就行了

: o" h. @0 T2 v3 E3 ?# J) E. O' {哦,知道了,虽然自己应经找到问题了,不过还是谢谢哈
发表于 2016-5-3 09:17:18 | 显示全部楼层
你也可以直接再界面页创建“绘图”,然后设置时钟(ticks),每一步画一次,不用自己操心。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2026-7-18 00:57 , Processed in 0.015409 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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