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

newlove

我编的程序如下turtles-own [energy]
* A! M  Z6 I. H( [' `6 @to setup
6 R- t; v+ B& d  w; N7 C# O1 M4 v  clear-all
  setup-patches
) b4 t0 G) L: M5 n  create-turtles 100
2 }! p! n$ F6 p: P! _1 K  do-plots
  ask turtles [ setxy random-xcor random-ycor ]
end
6 f7 ^1 B; v% n9 y9 ^+ O1 ^to go
6 r7 w3 A# Z- p& q# ]  move-turtles
) X" w# b( }; L# s( i, e  eat-grass
: A4 l" E. D" @. C: }. R) h  reproduce
6 F( c. b3 @9 C' i; i  check-death
- [5 P$ ]3 _1 S0 Q  D1 [6 t4 \  regrow-grass
9 D, L6 ^, m2 m, o( n  do-plots
; p  d8 |1 D8 O6 ~( hend
to move-turtles
  ask turtles [
    right random 360
; S/ T6 u1 h1 v0 x5 \+ @. S% |    forward 1
1 g/ |. ~% i- x+ i2 |    set energy energy - 1
    ]
end
to setup-patches
" N  z* \$ ]( C  ask patches [ set pcolor green ]
1 ~' n( `, L. o; b" J# v8 Tend
6 I4 D" d7 V2 jto setup-turtles
: K% g& s) [' ~% Z& J; F! o. J# U$ v  create-turtles 100
+ n: N/ {3 |; s% ~$ ]  ask turtles [ setxy random-xcor random-ycor ]
end
to eat-grass
  ask turtles [
    if pcolor = green [
      set pcolor black
; v) M# ^' e- l      set energy (energy + 10)
! v+ o. O# Y. T# ?      ]
" f+ ?  i& g( f: B  X& m" [. Q    ifelse show-energy?
, h$ A, S2 p$ I$ Z* {) {6 v8 @8 U% h5 A      [ set label energy ]
6 w( }" m- Y9 K( b9 J" n- V' i3 ~      [ set label "" ]
; H( k' f" }  N5 E* O) t( v    ]
end
to reproduce
+ e# U/ `+ Q, \5 @  ask turtles [
9 R8 p* S9 }! ?4 W$ Q    if energy > 50 [
      set energy energy - 50
      hatch 1 [ set energy 50 ]
      ]
5 g6 M2 ]- u% l3 s3 Q- t5 v    ]
end
. _' W5 d2 ]+ W% n4 b7 V# mto check-death
% y, b: L9 Y2 J7 z# A) B8 p  ask turtles [
1 k! R0 `: G" Q2 J5 ~    if energy <= 0 [ die ]
: v* L, }2 P; X8 d6 I    ]
end
to regrow-grass
  ask patches [
) z$ F, _2 [% q* j    if random 100 < 3 [ set pcolor green ]
' l2 ~7 _3 c8 H    ]
end
  p  h, @6 B- T$ I! dto do-plots
  set-current-plot "Totals"
  set-current-plot-pen "turtles"
+ c; o8 A/ b* [- Z; _  plot count turtles
  set-current-plot-pen "grass"
4 i0 O  b: `3 m7 P0 ]  plot count patches with [pcolor = green]
end
* j+ m  U7 `: q可是运行时提示no such plot: "Totals"
error while observer running SET-CURRENT-PLOT
% W0 N9 n9 \+ x  called by procedure DO-PLOTS
0 N) B9 c, W$ a! L' G  called by procedure SETUP
; c' Z2 I) G, Q7 ^- q0 l: N  called by 按钮 'setup'
$ J8 [/ n. e8 l) ?- c! {* V求大神解答啊

emlyn

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

emlyn

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

newlove

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

0 D8 G5 ^3 K- [8 A哦，知道了，虽然自己应经找到问题了，不过还是谢谢哈

pichan

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