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

newlove

我编的程序如下turtles-own [energy]
to setup
; K/ U& U0 Y* q4 f5 D  clear-all
3 Y3 j! `. s4 N; c# E8 Y& S: S. S  setup-patches
& L1 R/ W' A& r% t- P, n5 [" J  create-turtles 100
  do-plots
3 |  ^+ S5 P% X, \  ask turtles [ setxy random-xcor random-ycor ]
+ e- K) h- p3 O1 Send
. H8 c0 e" K" Lto go
5 O. ?; q( w. X- c& P- d  move-turtles
  eat-grass
: x% W- S9 t4 U7 u  reproduce
" N# O/ H9 R. b: j) M  check-death
- K( U3 ?2 ?6 t1 W  regrow-grass
  do-plots
end
to move-turtles
  ask turtles [
4 ^' z+ c5 K/ B$ r! ^3 U2 ]    right random 360
    forward 1
) W2 Y, g) A7 j- N3 n( e    set energy energy - 1
8 z) S2 V; w8 J& a& @" Z, p0 ]    ]
end
4 D) {  }/ R( j+ Q, g# E4 J4 y4 xto setup-patches
2 w$ y3 r' n  k' z3 o  ask patches [ set pcolor green ]
end
, o2 H' A( m* mto setup-turtles
( C, O/ d4 e5 v9 Z, E$ c  create-turtles 100
  ask turtles [ setxy random-xcor random-ycor ]
. B- t: N! U/ [( c( F" S2 Kend
to eat-grass
  ask turtles [
+ g$ D+ s- T0 Q6 l+ p& {    if pcolor = green [
4 T+ q2 b2 W  s$ ?4 \1 ]2 h/ V! Y      set pcolor black
' E0 m& @. t0 ~: i" W      set energy (energy + 10)
      ]
    ifelse show-energy?
# K1 F0 i+ P6 x9 M5 c" T      [ set label energy ]
      [ set label "" ]
    ]
end
to reproduce
$ H" T3 }' z$ ~& }9 ^  ask turtles [
( k# u. e! i" K    if energy > 50 [
      set energy energy - 50
3 H- e; C0 B2 f      hatch 1 [ set energy 50 ]
      ]
1 G# E8 [0 t' v% A5 x    ]
end
+ c6 n" ~4 `1 i" e& E9 e; fto check-death
$ P( [, \! X0 ^3 I: Y  ask turtles [
9 R: Q! _/ f0 V+ m+ _    if energy <= 0 [ die ]
    ]
end
, L) l. R% e7 V! F. U9 S& }: kto regrow-grass
# v& N, M4 U- P( L% {  ask patches [
3 `- }. c: j) p2 N, {  U7 y    if random 100 < 3 [ set pcolor green ]
) S! v+ c  O, T: i+ r( A    ]
end
to do-plots
, L3 |. E1 h' l8 \  set-current-plot "Totals"
) ^, o, o, @$ ]) }1 m' I1 ^8 _% [  set-current-plot-pen "turtles"
  plot count turtles
: k2 v- c( n; G# h  set-current-plot-pen "grass"
" l/ P. o/ U0 M8 }; |7 M  plot count patches with [pcolor = green]
2 |5 H! K+ d3 Lend
可是运行时提示no such plot: "Totals"
error while observer running SET-CURRENT-PLOT
  called by procedure DO-PLOTS
" a/ F( O3 m2 p6 R+ z  called by procedure SETUP
  called by 按钮 'setup'
求大神解答啊

emlyn

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

emlyn

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

newlove

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

哦，知道了，虽然自己应经找到问题了，不过还是谢谢哈

pichan

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