我编的程序如下turtles-own [energy]
; W B8 G9 k, p' q# ]) c. t* Uto setup$ k. Q6 [) K: T \) |2 [3 N% q
clear-all9 b1 v& P2 s) o! A
setup-patches: g, A% }) j3 k% s* O! O0 U
create-turtles 100& i5 n3 g3 [& ^ J* |. L( ^
do-plots/ m+ i5 C9 b/ _: Z
ask turtles [ setxy random-xcor random-ycor ]
9 X* f0 D6 p9 Z/ q+ h gend
, s. s2 E- [7 \7 Y) |4 L3 cto go
) Z+ T6 v1 Y" M( Q; s6 v- w* s# { move-turtles7 Y# G" H i' G2 U N, h
eat-grass3 A' S5 W4 M9 H& @1 j/ L8 i' H
reproduce
3 ^" W4 L/ ^* L3 K- q check-death
3 f" f& D. |: | regrow-grass" P. Y% V: }8 ^. }3 [2 x5 v w
do-plots
, q8 P+ Q8 A5 H9 C2 [end; [3 u, W, C9 b1 L) ]
to move-turtles' ]! F' H; E) r. t @$ `8 a4 E
ask turtles [
6 n/ a& L2 G. R+ R4 f! n0 g5 X7 Z0 ?6 I right random 360' {( {- h% C0 a! ]
forward 1; z+ o6 }6 e8 \; e
set energy energy - 11 m4 n$ a% p. z0 _5 J1 H
]
0 t& z' q/ o, z M; r( [end* j# c( R% u9 B/ n6 U4 Y# ]
to setup-patches! V/ u# N# H- a
ask patches [ set pcolor green ]( T" R& C7 R6 I. L+ z4 @6 f+ h8 b
end
' u0 e7 W. J Fto setup-turtles. e# \6 i# v d2 e( V6 y
create-turtles 1005 v0 _% g: ^# K, L+ n
ask turtles [ setxy random-xcor random-ycor ] A/ m) }! A" ^! x
end
5 H: B) Z/ K! ^2 t, P' B% nto eat-grass, L- ^, z2 }' o2 x" z
ask turtles [
; P; v P# e& U) J: _, B. A if pcolor = green [: B# F. e9 ]7 q( }8 R# o
set pcolor black8 q# w- I1 s+ C7 ]
set energy (energy + 10) O0 P0 @* t/ M% |; I
]& w, Q2 W! U" K) G8 \/ G- K. t2 P
ifelse show-energy?5 [! y3 W" m" I8 g
[ set label energy ]
' c# t. [2 K) c9 S [ set label "" ]
+ U4 p) D( o& u4 j ]
, w: f' E! V, `& O/ Z( Iend
8 Y( i) Z- X$ I6 A$ [to reproduce
$ \% f: |- V' E" t# b$ {0 `& X ask turtles [
& g! n( ^1 ^ u2 H2 }0 B if energy > 50 [
/ x* U( Z. m( |6 t K g set energy energy - 50
" L7 o& Z" P, G8 @* g& @' L6 l hatch 1 [ set energy 50 ]
' Y: w! Y T" ]' t, Z" i ]
& Z5 }" E, F* k, s I2 o* V' d( n ]8 x9 ^3 `& \' n' k1 W/ Y4 g
end
) l5 |( D. b" n; j+ e( Hto check-death
# j! ~+ h! C8 p& b ask turtles [
& V/ F$ e7 t2 e& ]" C* t- J if energy <= 0 [ die ]+ \- W- V n5 [: S
]
2 X& b* R6 |4 u5 ?end
+ Q( p# x& s9 R+ X7 Vto regrow-grass
1 V7 @, [) H" g+ w" z$ D1 [2 f) G ask patches [
4 ]+ w0 D% b' d if random 100 < 3 [ set pcolor green ]8 Z8 C+ f' M( y6 U3 x. z: U* ]
]1 B V& a0 V& K2 ]4 }' b, s
end
" J/ k9 E$ T% S+ g2 yto do-plots
x" B; ?1 p0 P; h1 \, Z% T0 R set-current-plot "Totals"
% A3 a q+ {! E4 N: B. v& } set-current-plot-pen "turtles"1 P* j" L' q: p% ]6 u" M4 q2 w8 R
plot count turtles
9 T' M G5 z9 ~8 j& ^/ b set-current-plot-pen "grass"
& C0 P4 y; M" w( U plot count patches with [pcolor = green]
5 G+ m- X! L7 O2 D+ Xend
3 K3 n9 z4 I: |' v7 {2 N& K6 I可是运行时提示no such plot: "Totals"
9 R7 Z- |8 W. x p% b* Lerror while observer running SET-CURRENT-PLOT
9 I& O1 e" }! t# M: z called by procedure DO-PLOTS
, ]; v) @' ]# o- ]. i4 W called by procedure SETUP. t- y+ p v! {% p3 S
called by 按钮 'setup'% i) |* i+ I. M9 ^- K
求大神解答啊 |