自学中文手册时遇到了问题，求高手解答

newlove

我编的程序如下turtles-own [energy]
to setup
  clear-all
, r/ Q* l+ G) C+ ^5 s. }( G& `$ V) i  setup-patches
  create-turtles 100
5 n6 k' V7 Y2 q. n2 ~  do-plots
7 b0 K) F2 s6 O  ask turtles [ setxy random-xcor random-ycor ]
end
  v& Z3 w" E2 z4 Kto go
  move-turtles
3 ~8 ~$ W# w' Y6 a- t0 B7 T2 p) \, `  eat-grass
) t' b2 M. h9 K8 `9 D  reproduce
9 J' A- Y4 i; N" _1 I2 G  check-death
  regrow-grass
* b+ E/ B) t1 ^  ~3 a  do-plots
5 r2 }# L7 X% V' e: ]! s0 v0 hend
3 r3 B! Q) n$ T: i/ Y* ?7 B5 d% kto move-turtles
  ask turtles [
    right random 360
% `# v% o9 c: \- y, Z2 w. A0 k    forward 1
& d& f8 d7 U' Y, K+ d6 i; ], X    set energy energy - 1
& ]9 M/ \% m. u% ~    ]
+ f* r9 K3 G# O* dend
to setup-patches
  ask patches [ set pcolor green ]
end
. X+ }! i; x- R3 X5 Oto setup-turtles
# U% j& o; f3 l2 l  create-turtles 100
  ask turtles [ setxy random-xcor random-ycor ]
end
4 p& O8 ?/ L0 @# }) X- eto eat-grass
  ask turtles [
    if pcolor = green [
5 B( L* ?; i) {0 a! @+ o3 W      set pcolor black
% k1 P, h- h$ e6 g6 c5 j      set energy (energy + 10)
+ |# L' o: m8 X4 r      ]
    ifelse show-energy?
; }  f+ I# Y* k6 L5 n      [ set label energy ]
      [ set label "" ]
- \, K) u) n& E    ]
" Y$ C/ W7 C: B  B+ u2 wend
8 A8 |; A4 g; W9 d: N: S7 q4 lto reproduce
  ask turtles [
6 M8 l- ~! S- n+ ?: b    if energy > 50 [
      set energy energy - 50
  K# c' t& T, D. [      hatch 1 [ set energy 50 ]
5 d9 s  z8 U0 }5 h      ]
: X7 R2 {: L) O/ C3 n8 a1 O+ J    ]
end
to check-death
  ask turtles [
    if energy <= 0 [ die ]
$ J# g: R& C1 D    ]
, u# E* R9 f1 l% a. ]* d' yend
1 T0 q- \( F( \6 Vto regrow-grass
4 [& p" X2 W2 l% j3 T$ U' ?( `  ask patches [
% Z8 e5 H0 G0 u9 k. |    if random 100 < 3 [ set pcolor green ]
    ]
! x) `) g) i8 Z3 t% X2 Gend
to do-plots
  set-current-plot "Totals"
  set-current-plot-pen "turtles"
0 `/ z3 U8 D- L# ]7 f" W  plot count turtles
  set-current-plot-pen "grass"
) R* O4 J: I  ]" \+ R1 V& E! d2 d  plot count patches with [pcolor = green]
$ N+ A" l7 c+ D  ~5 ]2 ~end
可是运行时提示no such plot: "Totals"
error while observer running SET-CURRENT-PLOT
. b- H$ @2 J2 w8 T4 _  called by procedure DO-PLOTS
  called by procedure SETUP
% M$ h1 `( L" A  called by 按钮 'setup'
! M& b3 }9 ?, T0 ]7 l7 k, a求大神解答啊

emlyn

no such plot: "Totals"，就是说你的界面里没有叫做Totals的绘图框

emlyn

建一个叫做叫做Totals的绘图框就行了

newlove

emlyn 发表于 2013-5-29 00:26
建一个叫做叫做Totals的绘图框就行了

6 X$ A. c$ o% @' \! j+ f哦，知道了，虽然自己应经找到问题了，不过还是谢谢哈

pichan

你也可以直接再界面页创建“绘图”，然后设置时钟(ticks)，每一步画一次，不用自己操心。