我编的程序如下turtles-own [energy]9 x% {! a* ?' F, d
to setup
+ I2 b$ M* M. H: q1 Z& V clear-all6 ^, U: z& j& E5 e. h6 w- N
setup-patches, ~* m* \3 _7 D
create-turtles 1008 r# |' q& m! Y& q! p. Y
do-plots
+ m @, G l" w- D! g4 O5 V. | ask turtles [ setxy random-xcor random-ycor ]
0 o b& F4 ?5 j U* cend2 r" C* J+ x: w# j+ `' p
to go2 J& M$ O" C) ]4 Q! ]5 F: t
move-turtles
: V2 Q! N. `" W& k& K eat-grass- s/ I- o. s3 y* |6 N. i
reproduce
9 @, P4 W1 z, `7 X$ B9 }: a2 ] check-death
4 ]: k( M( i I) y, c- {) y2 @ regrow-grass/ N! k* o3 p7 x
do-plots& A/ L2 A4 M. A j5 E" z' g
end4 N. y* U+ s9 {) z
to move-turtles
! K: x, X* w* L. T `" V& q ask turtles [
+ W/ v: r) U* t right random 360- z& G/ ~2 @* F+ x E6 G4 \! t
forward 1% h2 Q3 h4 |- d6 m( [+ k
set energy energy - 1" i- D1 u+ l. q* G
]) N% ?4 z# A6 U6 o3 q) m
end5 n) P2 P7 }- r' A
to setup-patches6 u" Q( v# i) y& z3 f8 r: n/ r2 ?
ask patches [ set pcolor green ]5 }0 o: M: m0 y5 R/ w& U
end" l# J6 h' e+ n' z+ V7 `3 B& g5 c
to setup-turtles: G! b) Q9 X8 E3 |
create-turtles 100
3 }5 @6 e1 \; B0 H' J5 ^! y( p' C ask turtles [ setxy random-xcor random-ycor ]- V; b/ _6 d* y! c( ?, t- W
end
* ]2 K, o% Q+ e4 Kto eat-grass. G) h( n9 D) P5 F
ask turtles [
$ q& h4 \" \& z! W if pcolor = green [
G% e2 g$ \8 f7 @ set pcolor black
3 x7 Z; X: R; S4 A) \( N- \6 M set energy (energy + 10)* X+ t) Q+ K# S4 N
]
; f3 D4 J' g6 D1 P- _ ifelse show-energy?$ F# P6 q1 m4 I; H }) Q
[ set label energy ]
3 V) k1 ?& P9 i4 B [ set label "" ]2 a; U5 t7 S; f% k2 S: Z
]$ D% x+ C# O/ T) }
end
9 B6 x- n5 K3 j- U% g' O. fto reproduce$ I( B u6 |+ A, m3 _, O
ask turtles [0 K. I* D( W* B% \' B$ H' f5 i1 g5 I
if energy > 50 [
4 p4 p& h* z0 L7 ]/ g* A set energy energy - 50
7 d1 y5 U+ Y) O2 [ hatch 1 [ set energy 50 ]( [; x( b7 v* ?! N w! l
]7 B2 W& P; T# r! j# D
]
$ `* B6 r5 p* c; g: lend7 V% m; Z1 a) `# u# T9 T$ \
to check-death e5 X& r; z" h! E0 x: r' c* _
ask turtles [
4 T* X+ n) Q4 b z* ~ if energy <= 0 [ die ]
& y! |! u/ M+ K. X+ ~ ]& b: W: E4 L1 l5 @5 L2 T
end2 `' K& F+ w. p$ C% r
to regrow-grass
2 y* l! S w {! r& Q7 j ask patches [
1 Q" a0 S8 C9 i if random 100 < 3 [ set pcolor green ]6 [5 C) f# Y0 W) Z- X. y
]
" j7 @* V3 h1 K8 Pend" x( q0 m/ a7 j
to do-plots
. d* q5 V( U6 E# }5 ~ set-current-plot "Totals"
\* P! M1 X, |' z4 w- A# }5 x) c set-current-plot-pen "turtles", h& X _$ a' q: Q; u4 K Q
plot count turtles
5 }2 j% x% {% B, f0 j" k" v set-current-plot-pen "grass"
D% Y& E! a& L+ b plot count patches with [pcolor = green]5 y* [0 n1 u. t' o
end- I1 V4 `9 j" ^( m4 r
可是运行时提示no such plot: "Totals"( h' e7 p% D* J
error while observer running SET-CURRENT-PLOT8 k% A9 n# n, d% V
called by procedure DO-PLOTS
7 \$ e' F* o' R- `+ e- s4 K$ ` called by procedure SETUP
3 B0 t j. h7 d8 k! B$ M called by 按钮 'setup'
0 C. c$ l1 z0 f' |8 [- d求大神解答啊 |