我编的程序如下turtles-own [energy]
# ^. p% ?+ ]( n. \: Lto setup
( C! K# D- d8 Z$ U clear-all
6 S% ] e+ F8 z V3 p setup-patches
9 V* U+ s) s0 d) R) V create-turtles 100* l7 F7 _1 E7 q" r/ f0 I
do-plots
9 r+ _1 F7 x' @5 H' c ask turtles [ setxy random-xcor random-ycor ]' f2 x3 h* a5 e' F* _1 \1 g5 N( u8 @; l
end
" w% W9 w' G* l2 w% _/ b+ P" Hto go) F2 R3 v( M9 a6 T8 F4 K/ x
move-turtles- N' w O6 x* y- N; C, |
eat-grass
4 }* K1 O& f/ J6 f- ?6 o reproduce
`* f# x( W B) Y) O check-death% |; f+ S' K: E) _$ J8 l
regrow-grass
2 J0 p4 U- a9 E* d+ Q do-plots* \, S9 F3 A* d# Y# S/ ?
end q% s* A7 u; E2 k
to move-turtles
, u7 ^, a+ Z! l6 s ask turtles [
( u6 Q0 Q2 v P; D# y( j right random 360& h6 E, E, `* u' ?
forward 1
: e" H6 [2 l' W/ _# p set energy energy - 1
4 i, |: g2 }# N3 T) U ]" Q; B; B, x) S- v& o7 |8 S
end
6 l3 O( Q/ ^8 I, Zto setup-patches- q: U" G" _% }6 h2 P7 A
ask patches [ set pcolor green ]
' X. T* [3 b& ?end# X# a r9 Q6 p& a
to setup-turtles) ?* u4 T0 k( u$ E! q: o
create-turtles 100
& C6 G0 h1 K! ]2 ^ ask turtles [ setxy random-xcor random-ycor ]& {0 L2 a6 M, ?. O. _9 I
end
' m2 q# u( r; D3 S8 Q5 Tto eat-grass& A( A& j' O% o
ask turtles [0 L+ ?4 M7 s: X1 C
if pcolor = green [+ D6 P+ {6 x0 R" m3 j. B: M
set pcolor black4 k& l/ M- i" V2 ?( X( F
set energy (energy + 10)
. B F; x) l% G' b ]
' m. @8 |, l Y) k ifelse show-energy?
( h' T: q+ L1 B+ c; K [ set label energy ]
" g/ e! w, i# Q6 h; ^ [ set label "" ]6 i, d0 u, C% g8 R$ z
]9 |+ P* g3 a) U R/ G/ k% I' q0 {3 w
end0 y, o3 }0 l5 a; @% ~6 \
to reproduce
! \. b8 A6 \2 ~, n0 h ask turtles [- s( a6 b0 M8 \
if energy > 50 [
8 n) G7 ?2 W [+ l* S set energy energy - 50
/ _: ~" v- Q' M( A* g3 g hatch 1 [ set energy 50 ]
+ I9 V8 {* `1 \$ }/ c; A" b6 R9 H8 P ]
3 o6 r9 W: q, k, ^9 r2 g- M ]
& Q9 a6 u; ?# G3 t7 Tend
; `$ c! B5 W! cto check-death$ A8 Q. s+ {; d1 B, u
ask turtles [/ q5 i9 D7 r2 @/ p0 A+ h: E) A. d
if energy <= 0 [ die ]+ G/ @( Q2 a* h7 k
]6 S) k- n8 G8 E( V% k: l/ @* G
end
. T* P6 }7 w. h& Q2 J% kto regrow-grass
# A6 q3 p4 D8 m: u& i ask patches [( S( D% F5 W+ {$ V
if random 100 < 3 [ set pcolor green ]
& c1 s1 w" r; R0 ~4 m* a g ]! m" s0 a; @$ [8 y" y) ?. ?
end! ~ a2 B, l' X. g0 \) a) Z1 {
to do-plots
( r# ~. A: _) I; {& i set-current-plot "Totals"/ b, J$ j8 L) Z" ]( E* y
set-current-plot-pen "turtles" K6 ]1 i/ Q+ @9 E" Q8 d; {
plot count turtles; o7 i+ q/ j" q' n
set-current-plot-pen "grass"$ o8 a( L' t* _5 j
plot count patches with [pcolor = green]
6 Y9 ], W4 G3 o7 Yend
# E$ G6 d- E6 h& B可是运行时提示no such plot: "Totals"
# F, {. S2 v/ c* c: w- G! F) \" j* b1 eerror while observer running SET-CURRENT-PLOT
8 V9 x6 Y) \8 F called by procedure DO-PLOTS
S! g6 y: j% Z) O' | called by procedure SETUP
6 T7 H, I0 L' b called by 按钮 'setup'
0 a! R) m" H8 |- i9 W& ^求大神解答啊 |