设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 10994|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]3 {5 z  ^1 M9 D! Y0 h" `
to setup" y$ a4 U+ w0 j8 f' ^
  clear-all
+ n1 m8 z7 v; q- }  setup-patches1 h1 |4 \6 j3 h6 j8 \* s: ^5 q( b
  create-turtles 100
4 k7 @9 D5 X8 [1 i  do-plots7 Q" n6 V: u, K. p, L% ~
  ask turtles [ setxy random-xcor random-ycor ]9 U9 h" I5 ]4 x6 P/ p- j' u
end
9 K8 y0 G' @) x6 o/ d: Nto go& K& p2 i& i( a$ R7 n$ @- q
  move-turtles* r% D6 N& B; R) ?. t) e
  eat-grass9 x0 }" p$ t8 c! b2 y
  reproduce
8 i; {& X7 ^$ i9 ?/ y+ S  check-death
- W, A% T1 C. T4 L  regrow-grass8 B- U5 c# g& ]9 B( e4 ?
  do-plots
$ Z+ y) f. h" d5 O! Wend2 x$ G/ i) d# x& Y3 x9 y5 [4 x
to move-turtles
' \+ ^3 u9 K! y( g' c  ask turtles [; h% o; t% X8 X$ o9 o( C
    right random 360: T' e  F1 C* w4 N7 I) R* v$ k/ t
    forward 1
( @5 ^5 i: |/ \7 q/ Z0 v    set energy energy - 18 j/ a8 c% Z. _- S- j% r% @) T/ m: |* O
    ]
, @3 S; Y9 {3 {7 ~% N3 Zend( w9 Y/ Z5 A6 P# l; J
to setup-patches. g2 X% i* c8 Y1 K
  ask patches [ set pcolor green ]
9 E5 \5 h) S/ p7 Gend. s; v% o9 H9 `8 r
to setup-turtles: O# _9 Z" x- e7 Y
  create-turtles 100
- H) {0 x" n# v2 s. X7 h  ask turtles [ setxy random-xcor random-ycor ]8 R: I2 p, n- {* \$ q* M/ x- `! x
end
9 A- j5 i. V. q" e+ {to eat-grass
0 V! K2 N8 K: ^+ H4 v  ask turtles [
/ e- `, O0 B: J3 g    if pcolor = green [9 p4 C# b' d2 m* }  b  l
      set pcolor black
5 H  g( }/ A! ]3 L# B1 k      set energy (energy + 10)
, b0 M& C' |6 h* \      ]
2 [4 a& C' @, t1 h- u+ k  S' f. U% r    ifelse show-energy?
6 ?! [" Q( a& V# r! R      [ set label energy ]7 Y: C, }$ n" B/ S5 B2 c
      [ set label "" ]
1 S# S+ {8 N% Y5 _  S# J5 d    ]. \  k+ V7 u; d" v3 |9 m! x
end
* P, U/ y1 Y2 f5 ito reproduce
) H# n1 B) w0 c5 w  ask turtles [" i6 w, r$ q/ d
    if energy > 50 [
$ S- o7 A! n8 i( ~      set energy energy - 50
+ W+ `# H) g$ z. w      hatch 1 [ set energy 50 ]
: X/ s5 e* w$ Q! Z: O5 Z      ]! v5 V& N( ^9 z1 |6 h# r0 f( m9 [
    ]0 s/ p2 U+ \( o1 {' t
end
" X/ i! ]( w9 W" Z  e2 Lto check-death5 _) d- m! T$ {+ ^6 A
  ask turtles [" B5 @- ?0 r9 q& p- Q6 F, I
    if energy <= 0 [ die ]
9 u4 \4 v+ W- y8 C9 \1 ]  L    ]
4 a) Q1 d( |+ H, c+ nend
# p# o- ^! d7 C" }, ?/ kto regrow-grass
& _# [9 N. c% {6 m  ask patches [
0 _4 A8 D. {& Q( X# [& j( m    if random 100 < 3 [ set pcolor green ]+ [' @& O$ @2 Q
    ]
/ v% e. `; Z% A2 m2 U1 zend# ?7 d/ f5 k! ?& {& R; h, Z- M
to do-plots& W- j  h3 P5 g& B
  set-current-plot "Totals"- n! {3 O, P6 n: |# X/ K% O
  set-current-plot-pen "turtles"2 F1 n, B! i+ I+ w2 r! d
  plot count turtles1 }/ r1 E3 x7 A# ]% j) H
  set-current-plot-pen "grass") L; }! r5 n0 L
  plot count patches with [pcolor = green]
. e! n- A  s; f3 Gend
1 U2 J. c  Z: X- R5 U1 }可是运行时提示no such plot: "Totals"- E' _' t. I- C
error while observer running SET-CURRENT-PLOT) M- s/ K& q1 |. C& e/ @* |. b" H
  called by procedure DO-PLOTS
# b- L4 _& r( S5 x* X7 h; B  called by procedure SETUP8 X: A* z; r$ V: m: X2 I# e
  called by 按钮 'setup'2 ]1 }! t: f; @
求大神解答啊
发表于 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 k) z9 n: S! G3 Z$ t& N建一个叫做叫做Totals的绘图框就行了

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

本版积分规则

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

GMT+8, 2026-4-24 16:24 , Processed in 0.018460 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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