设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 12775|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]) |' V% z9 g' Q+ ]8 N, s: q" c
to setup
5 P6 w1 O2 l7 M  clear-all
5 T8 W  ?) a( b  setup-patches' K/ k7 \' h, o' ?$ _4 ]. k
  create-turtles 100) X" P7 D- f0 s' R& R3 ^& |/ m2 B
  do-plots
: t' L" t+ J: H7 x4 m1 C# g  ask turtles [ setxy random-xcor random-ycor ]
) j( i4 c" Q4 F0 {. L/ h/ r0 v+ Yend
5 w9 U+ q8 Z, y' E( J% @. Uto go0 Q" S# f$ k) @
  move-turtles0 ^/ V' i0 L6 w+ c' s5 v# Z
  eat-grass! F( s+ |: K. C  S2 x1 d* W
  reproduce, G+ N0 {, T4 |6 r
  check-death0 O& \$ U6 s: v0 A* r( w3 H1 ^8 a
  regrow-grass
6 Z0 W2 f8 y) K  c4 h/ T$ ]& z  do-plots
" j9 z, K# ]" Hend& ]/ e5 a$ Y6 ^# ^! `6 X6 ?/ r
to move-turtles, W7 k, N9 n0 C
  ask turtles [
+ t8 P& F: l+ G' ^. W8 w$ M    right random 3609 p3 ~! ~3 E  k
    forward 1$ G; s- m4 e% s7 {8 o2 A7 u
    set energy energy - 1
" E# D( ]" D0 j! l/ M    ]
% F( U0 @( K7 A1 dend
7 U3 K, C; k* p3 v. B7 F) eto setup-patches
9 q$ l3 p; j4 _8 I, j# b  ask patches [ set pcolor green ]2 ?. A/ O. g4 m2 n3 V# \' s
end; e+ d/ J* X" a% X9 s2 {
to setup-turtles
% V" @* p) b' \  create-turtles 100
( e2 z4 @1 \6 \- c( y* V  ask turtles [ setxy random-xcor random-ycor ]
* ~# G, w- m" h. c4 u+ f1 lend& H- _0 |) g  ~0 O
to eat-grass
, I# u5 F; A" A' Y. u& c  P& W  ask turtles [
. F3 O  B, I9 ?  a7 S" e; b8 f5 v( Q    if pcolor = green [
7 \! J& {& _1 m) B: G. K+ i      set pcolor black" I/ w% d$ v& h2 r7 e
      set energy (energy + 10)/ i( N6 n2 Q- w# k( k! N. \% J
      ]4 m. P! P& s$ c1 Y. a# a0 P$ E
    ifelse show-energy?
- R' D6 x7 j- V      [ set label energy ]1 Z' x: b' N" H; m- H8 }! U5 [3 f
      [ set label "" ]/ i7 g8 ]- R& l: a6 l& z1 |$ p
    ]( u) n8 K* g+ b
end
$ u& r, D$ l1 A5 C$ y6 Jto reproduce* G# k, B+ h$ E5 I9 F, \! T- Y
  ask turtles [8 ]% z, G9 G5 o. Q( `+ ^9 H4 w
    if energy > 50 [! C! w# {" V9 `" H
      set energy energy - 50
  R! G7 n+ x1 @& C( y7 `+ S      hatch 1 [ set energy 50 ]
4 M( g. \0 ]& u1 B8 O4 s$ x9 V      ]
4 Z- g8 N( w! |" h3 P7 q    ]" b( e( w- K# [3 y
end; Y# a7 J; ~$ m8 _) J
to check-death3 K) d- `1 A! ~1 }
  ask turtles [
+ W8 r/ d" F, t, `    if energy <= 0 [ die ]
" y0 I: e' R' N; p    ]* u, P) U/ B+ W: N) x3 u1 J8 n# X) s3 N
end
" i! \' [( }( u- H  R/ C6 qto regrow-grass
9 c. }3 F' A- Q& }# ^- e0 o# }  ask patches [
7 j( k* i/ o$ a9 m$ q& p. c    if random 100 < 3 [ set pcolor green ]( p7 k" d& ^) u3 I0 j, J
    ]$ ]' }5 n% Q2 H% J8 ~$ S
end8 v; i2 A) W/ N
to do-plots7 ?6 K/ b- l. C
  set-current-plot "Totals"0 u# G: O9 Q- y" x. {# f
  set-current-plot-pen "turtles"
" l5 R$ C, W$ n/ E  plot count turtles% s9 s8 b, }* t) V9 \/ c; q% F
  set-current-plot-pen "grass". y0 s1 x; n! D' y/ `$ {
  plot count patches with [pcolor = green]
+ y& V* O( s- u7 }, e0 Lend
' V: H3 M' ~/ u3 N5 j+ U3 _9 n可是运行时提示no such plot: "Totals"1 R& v$ g7 Y5 m: {6 \  ]
error while observer running SET-CURRENT-PLOT
# j& u; Z) t4 h  a  called by procedure DO-PLOTS
  J. `# ?9 Y/ B' D' p9 `  {  called by procedure SETUP. Y; L  |& \7 t6 L9 d3 c# y
  called by 按钮 'setup'9 Y4 v0 @  Y& N- y" }' S; X
求大神解答啊
发表于 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
4 X$ p4 i, i" C7 w1 s4 L9 e建一个叫做叫做Totals的绘图框就行了

$ X" O: f. L4 F3 U' W9 I4 t) _8 Y/ E哦,知道了,虽然自己应经找到问题了,不过还是谢谢哈
发表于 2016-5-3 09:17:18 | 显示全部楼层
你也可以直接再界面页创建“绘图”,然后设置时钟(ticks),每一步画一次,不用自己操心。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2026-9-16 03:22 , Processed in 0.017813 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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