设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 11162|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]
& n  F0 d* X/ a" s. ]0 f4 K! S& n! |to setup: O$ B4 }" |/ S( O2 s6 d
  clear-all, f) r; E: L/ C7 v; B
  setup-patches
, u1 G$ r" I& d- |  create-turtles 100
% f! ]( `5 X1 e7 ?3 `( m) @: \  do-plots. x* P& X- T8 S1 @+ h& _8 ?
  ask turtles [ setxy random-xcor random-ycor ]
" m2 c9 |# {  J+ fend: c1 I% {1 F+ A
to go3 K* F% x. _3 K& ]
  move-turtles
+ {, G) |( S) b( Y6 f  eat-grass
) Y$ R. }3 [  q" @  reproduce
3 g5 |: R% ~7 p) C3 J$ O! H7 @  check-death9 G/ g" W; Y" Q* a3 Z+ S$ @
  regrow-grass
+ _9 g5 U( N, D  q1 n. H$ o  do-plots& d# _' p/ E  J) k/ c8 G4 f* ~; f
end1 ]5 l4 }: t  e( `$ L% d
to move-turtles
" H; |1 o( I* ~7 Q! r$ M7 l  ask turtles [
! L0 `3 |$ y$ |" h# Y9 _* l' {    right random 360
8 B9 z; c" [0 m+ B; g* Z    forward 1
4 E: G. r/ J1 b" R' w" f4 l' z! S    set energy energy - 1- s/ `: {5 R% E: i3 f
    ]: Q* u, d* ^  l4 @- X
end& f) i; K( Y5 a+ K  e, [. C  M
to setup-patches* G. Q4 Q: f3 H6 n* P
  ask patches [ set pcolor green ]# S# n/ Q" F: j: [  n
end9 D% H- ?) I8 p! n
to setup-turtles: t# _: _6 `1 P9 i
  create-turtles 1009 a. s; }( U# n# W2 `# W1 z
  ask turtles [ setxy random-xcor random-ycor ]/ @+ n' O" s: H4 O! p2 R
end
6 l  i" B0 J7 y' H" b; b! R6 mto eat-grass9 K7 M$ v; }; N, u& r
  ask turtles [
" [% |# s! }1 u" d3 q& _    if pcolor = green [
6 a+ p4 s  H5 b8 }      set pcolor black  z0 J. J, W0 N2 @1 p6 S8 [  ^
      set energy (energy + 10)2 Z- H; O: [' d" k0 ^
      ]
+ a; b& Q& z+ b! s$ V+ X    ifelse show-energy?% m- {& G8 ]- }' s
      [ set label energy ]
- P+ k, A; y, }: [0 ^1 s# o+ ]      [ set label "" ]
  U" G' ]+ P2 E& O    ]
9 f, q; L  ~' w# N$ u$ _end
. b( z+ G0 z. s. Oto reproduce  i8 L8 L& b9 r1 w/ N2 \1 W2 h. |  U8 J
  ask turtles [
; g6 @, j+ Q- ^$ c    if energy > 50 [5 g. ?% M" a/ B# ]+ _% E7 s8 r0 Z0 D# J
      set energy energy - 500 V+ o3 l) r) j4 K( l5 Y
      hatch 1 [ set energy 50 ], W6 I9 F) D7 D9 y9 ]# a% E
      ]5 N! D$ f0 i8 I# x
    ]
9 B7 x6 P: r$ i  a% u9 Kend6 l# k0 |6 V8 q
to check-death- v  c$ {* m5 H" a% r% v
  ask turtles [+ O, u2 V- K8 v3 [
    if energy <= 0 [ die ]
0 p$ L: x6 A* [    ]9 v; S0 Z& Y, f  g7 [9 p5 r
end
& B  \+ w9 M7 o& hto regrow-grass
9 p3 T9 z6 a- a9 b  ask patches [% ~- t8 V7 m0 [) A4 `5 G8 D1 Y. s
    if random 100 < 3 [ set pcolor green ]
8 X+ H4 L5 V6 I+ m! Q5 M4 A1 [7 v    ]6 k5 C4 G/ p3 e9 C+ w2 U) v
end0 s6 ~" r/ G' G, K& r/ o9 G
to do-plots
* B+ K6 }" y, Z. n" E* D  f  set-current-plot "Totals"6 J) U+ s) K) m; u& o
  set-current-plot-pen "turtles"
: K6 Q- i( ]$ F: u7 B4 _  plot count turtles, m( N6 X  f9 L% k7 Z
  set-current-plot-pen "grass"
/ R# l, }+ \0 Y2 ~  plot count patches with [pcolor = green]- W, _( w( S$ B0 C1 q" W
end
: @  j- |9 f( l5 j( y3 d0 y/ p; e0 S可是运行时提示no such plot: "Totals"
3 e8 E5 W/ p% n/ ^! X/ ~3 v  Serror while observer running SET-CURRENT-PLOT
6 f% z+ F* Q$ T% e1 |$ n6 q  called by procedure DO-PLOTS: G: D! p( M. Z, K/ D: v
  called by procedure SETUP
4 A& u8 I, i3 L/ ]1 E- m  called by 按钮 'setup'8 w4 \6 x: B! W# L# ?
求大神解答啊
发表于 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 `8 c$ I, u$ F/ U" a* B
建一个叫做叫做Totals的绘图框就行了
/ B6 f7 ^& R+ j' f) w9 C
哦,知道了,虽然自己应经找到问题了,不过还是谢谢哈
发表于 2016-5-3 09:17:18 | 显示全部楼层
你也可以直接再界面页创建“绘图”,然后设置时钟(ticks),每一步画一次,不用自己操心。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2026-5-4 05:40 , Processed in 0.982388 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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