设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 10638|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]
$ v9 j( F; s; \% Jto setup
: D% k% `/ |0 e# _. M9 z( `  clear-all
3 J) c3 U1 |% @; \8 o& O& {  setup-patches
$ n$ {* k! k( H$ |! k  create-turtles 100
! I) _( G- L+ D+ ]- C3 ^; X  do-plots) b* Z3 m+ j) `) _+ ?+ s8 y  P% `
  ask turtles [ setxy random-xcor random-ycor ]
! y, v9 L& V" d- Rend
* p, b6 A2 w: [to go
9 u  G* H& d) P2 V  a& u) C# W3 V) M  move-turtles
, C: J# X$ F9 @) U# D  eat-grass
% b' e# ^! m0 g* f  reproduce/ N" T1 O3 c/ s5 A$ t% `/ C
  check-death3 i% u1 |) N) ]- B/ b* B; d  A
  regrow-grass
- o. @3 J% y9 ^. S8 O  do-plots
0 e/ i) o( c9 Kend8 q: Q7 Z1 x6 P& M
to move-turtles
5 E* q' J$ x% y2 N  x  ask turtles [% O. K( n0 F1 p4 J$ ?7 A6 g4 L
    right random 360
( S. R( }0 A2 V0 g2 l! g8 z    forward 1
+ q, h$ A& g3 j7 v5 s4 {& \8 C    set energy energy - 1
1 x. J, D+ O' y' Z5 K' O  i/ w    ]; I+ ]$ ]) T; h4 }1 Y
end
& c- o- I3 X4 Q1 w7 t7 hto setup-patches
4 n6 h5 R* {8 z  ask patches [ set pcolor green ]8 y1 Q+ x% F1 [+ v& M
end; ?, n. M0 v+ q0 q) @
to setup-turtles
& Z4 o  D! b5 s/ c6 D  create-turtles 1005 R* u. l' _7 d+ w& w2 E
  ask turtles [ setxy random-xcor random-ycor ]. }2 Y4 V  h2 F' ~, G, i$ e# [( {
end
" @" V  o7 }  [- mto eat-grass" l' e% T9 U' ]  {6 l7 Y+ w
  ask turtles [6 T4 ~6 x2 c2 ~, V
    if pcolor = green [
$ V8 [8 R0 R. h6 W0 Z( V5 n      set pcolor black
6 r# J% B! X1 V; ^6 n: O      set energy (energy + 10)
3 u2 L7 E+ I: E, m      ]
& l+ e( P( R0 E3 l4 X    ifelse show-energy?
$ p9 l: Q7 a( Y8 v5 q# Z% ?      [ set label energy ]/ A# c; v1 Y$ S3 g- I  Z
      [ set label "" ]
% L: ]7 e  U1 w. F    ]6 w" ~, x- q! Q* h' |* l( v! k
end
2 |  U0 G; D. m" T" m9 T4 B8 Vto reproduce. [" C  `: E9 |/ N; Y
  ask turtles [
: |/ h  H; @# n' ?* Y; T    if energy > 50 [  b0 E3 G- @& o% z3 \
      set energy energy - 50+ I: h# X8 \+ I1 y
      hatch 1 [ set energy 50 ], \# \: i0 a! w6 h, `5 B
      ]
8 g6 a/ L' [. ~, P( S* r9 B    ]. H, r  ]/ m/ W  O" Q; G( U
end3 B* ^+ ~: X1 i0 |( U: q  M
to check-death7 i0 g5 k  v4 }
  ask turtles [  ]7 j( a. [- D( h6 W
    if energy <= 0 [ die ]" q6 D' s2 T7 Z. ~) I3 P# W7 k
    ]6 a% D- ?/ m* j: [. ]! W8 W
end9 i1 Y$ p0 f) T4 j) y
to regrow-grass6 t$ C  R, ~! O6 L
  ask patches [
1 P% ?, i) I* D5 f    if random 100 < 3 [ set pcolor green ]
( z- @0 u6 o) s& [5 R    ]3 F5 U9 X/ M% K% G: G
end
- @4 D  y# x4 W% D( g& y: }( m* d$ o# dto do-plots# J' m0 Y. Z9 @) I
  set-current-plot "Totals"  z' T# W: [% R* K
  set-current-plot-pen "turtles"
/ ~  H! z2 r& L% K" x  plot count turtles4 U5 O2 T3 a7 ~( `# z4 {! w3 z- u9 d
  set-current-plot-pen "grass"
% c' c0 G8 g" M0 _4 E1 S4 p- z# R  plot count patches with [pcolor = green]2 P) f+ f7 v; d
end
" c, E: k; b+ c" ^+ f可是运行时提示no such plot: "Totals"
% y8 U+ j$ b( O7 Merror while observer running SET-CURRENT-PLOT
; O2 W6 l; i" C0 E! s: a, y  called by procedure DO-PLOTS
7 u8 m: j- o/ v$ B, P; E  called by procedure SETUP
+ u2 s1 `2 g4 Q2 h- ]0 Q& r  called by 按钮 'setup'/ E8 A$ [. j( N9 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 ; U& L+ b3 Z6 F$ C0 e
建一个叫做叫做Totals的绘图框就行了

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

本版积分规则

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

GMT+8, 2026-3-30 09:38 , Processed in 0.020391 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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