我编的程序如下turtles-own [energy]' d; q8 d3 S! C* |; N" J5 s
to setup
7 ]% R5 D! A+ w1 ~7 p1 |! D! S clear-all9 g! D' s: S) k6 f @6 n
setup-patches0 D6 q. x- N* U8 ^: Y0 J6 _
create-turtles 100
7 S! s G5 v I do-plots3 L+ k: w4 K) x0 @4 X; i
ask turtles [ setxy random-xcor random-ycor ]3 c* u w4 X; e u, u2 l
end
* g# N6 p$ w) [to go
# R9 {- T) _1 n4 ]- j! W3 Q0 Q, P move-turtles Q$ }3 l A- M/ h& B2 a$ x+ U8 ?
eat-grass
+ \9 f- h5 d/ z% y" j c reproduce
* v: d% I( W3 S$ { check-death
* y2 w' m- d8 o5 j( P- q regrow-grass( Y2 ?4 n/ q+ D% E6 x
do-plots
0 M. x4 z& s3 ]6 Z" q; N( |5 mend1 O0 o5 V& x7 `
to move-turtles. r$ {7 |# F5 a5 z5 D% Z
ask turtles [6 w( U2 d: ^ L6 W' d- i L3 m2 s- f
right random 360
8 B6 {" b, @. x F forward 1
( t3 S/ v2 h8 _ set energy energy - 19 `; a( l% r/ U+ u& k n
]
8 }2 j, [ E. D6 Fend/ K ?: @: w3 ^2 H! Y
to setup-patches; ^7 M1 c$ Z% x2 c& q C
ask patches [ set pcolor green ]. V1 |4 Z) U! I) T# p# H& }
end
# n- I+ n- s% G1 c1 Uto setup-turtles a8 Q* Z: U; [( L* i
create-turtles 100' T6 n6 L$ b1 Z* S4 a
ask turtles [ setxy random-xcor random-ycor ]) N! f( b6 Y+ {$ B6 O, C4 c: B
end9 ^' B- k! u$ v% ^3 v9 q
to eat-grass
4 d* g# P* q) X, ? ask turtles [
3 t; @- P, Y" X# y if pcolor = green [' Z8 p# ^: i1 E! Q. l
set pcolor black
( N4 V s6 N2 Z3 m3 P9 Y' | set energy (energy + 10)6 b/ w1 c3 [+ v7 Z" D, t* D
]
% n! _7 V; p6 U# Y+ K ifelse show-energy?8 v& \6 k+ x7 r
[ set label energy ]' i( O& z/ g; e' l
[ set label "" ]# e7 A4 p4 }" m' d
]
8 z1 W5 ~1 a4 M3 T: N4 Kend% Y) B0 n3 y+ r' ~6 r
to reproduce
7 r5 w' D$ _, E ask turtles [
9 O: W) z; V; P; @# y if energy > 50 [1 r' g' i* o, ~% M& K$ j# z0 m6 d
set energy energy - 50
3 b7 Q! e4 a/ x* x- Z4 O9 F hatch 1 [ set energy 50 ]
. R0 F- K( r" A& u L ]6 p0 C Z1 Z# T7 y
]* E+ z8 W1 t( O2 e, ^0 O% C
end
6 M K, i, O- q' |: J8 _* y5 _to check-death7 E: @0 }$ S8 ]5 U& u
ask turtles [ F" s/ r: J1 p: V, D
if energy <= 0 [ die ]5 {2 a; q3 J! _+ _' K; O5 j
]
. w% y) g& S- A7 h% T% T3 p$ Bend) V! B: z# W$ N# k% K: v
to regrow-grass
" ^. L( ?9 j$ s ask patches [! b: p, j% K& l2 L
if random 100 < 3 [ set pcolor green ]+ `7 Z* x/ _( Y7 ~& G( S
]
: p2 ]7 p8 X) J3 K8 Jend; y9 j$ C* q% W2 u; h
to do-plots1 u7 z9 X, q1 m
set-current-plot "Totals"
* z1 _+ ? R W( ` set-current-plot-pen "turtles"$ I7 X7 L# H- f$ h+ |+ c4 z
plot count turtles3 Y+ l% Q. Y- ]" ?7 {/ H
set-current-plot-pen "grass"
5 ?# J. x$ m1 n1 ~$ H' U) _ plot count patches with [pcolor = green]. J2 l. h& c9 T2 @3 A n8 h
end( y& ]2 C* F* h7 F6 s
可是运行时提示no such plot: "Totals"
' |' \: N9 J2 Q k2 ^error while observer running SET-CURRENT-PLOT
3 i) y; y8 k8 [% Y: P" D! a called by procedure DO-PLOTS. V4 V- c& V7 w7 b7 F
called by procedure SETUP
% ~1 Y) |/ @; C. C% z called by 按钮 'setup'
{) Q) s+ }) k: z1 ^5 ?求大神解答啊 |