我编的程序如下turtles-own [energy]
0 h B* b& h6 Z tto setup
& e+ Y) f) q" p3 z) W% H clear-all+ a) m4 j5 D9 [% @$ E/ }' L# A
setup-patches
, F8 K. C, c# Q7 q) \5 B create-turtles 100
, i" E$ J) Y$ x. Z8 b$ F7 _* h do-plots- j/ K3 Y% x. v) l) S6 O( E$ |" f
ask turtles [ setxy random-xcor random-ycor ]
5 z- d& m9 ~0 [) N% p0 X; j4 b, |end& d: [* ]8 z, h( u
to go
* E1 ]9 t, B+ G. q% U move-turtles
9 A. R# f7 Y% R" o$ e eat-grass
6 C9 _ c) Z N reproduce' S" M( R _! v) B: a- B
check-death
- j: _/ A, h( ?, w& e5 J' y/ W regrow-grass
6 x9 F+ E; y W1 H do-plots% g& [: r B0 d' J1 x3 ~: h
end
" ?& ]8 t& T2 o5 F7 Qto move-turtles
1 P# o( E, q' F& l ask turtles [' q i# b, o( t$ H. V
right random 360
6 R8 n- n/ S" S/ N6 v% c2 M1 M forward 1
3 c% I, f: r5 i" h! z8 y+ ]; d set energy energy - 1
4 c5 Z) D6 {! q4 w V2 G ]
6 N) a9 d+ d" Bend3 o3 Y6 e- |& T/ K% J& {
to setup-patches
9 v# U2 A, Y3 r; [ @3 d ask patches [ set pcolor green ]' H( u, V( Y; J8 x1 K
end$ I0 \$ I* \* t2 ^: ~3 X5 F0 g
to setup-turtles
1 K, V+ c; o6 D9 l( J, y6 B create-turtles 100" s6 K* s l5 y+ A2 L
ask turtles [ setxy random-xcor random-ycor ]$ Q7 ^6 j8 j4 D
end
$ b2 G2 S! L/ Q: p& k5 B9 Xto eat-grass+ B P& }$ Q: D: B, ~" O
ask turtles [
3 ^" a7 _/ E) W( G/ X! q1 b. y if pcolor = green [$ W5 R4 p5 e& Q$ I
set pcolor black0 L P& A/ T- G
set energy (energy + 10)2 J! ^2 z+ F# I, W1 \
]
2 q9 `, G; ~5 i ifelse show-energy?. h! I( g4 m9 R8 y [2 v- H Q; C
[ set label energy ]9 E1 x+ W$ g! H/ C. Y
[ set label "" ]% p* b7 M" H. E) M
]$ v2 v" i8 [9 |+ u/ h% v' s. Z
end
- @4 Y) i% _) y. U( l5 lto reproduce- h) s! c0 w g% B
ask turtles [
# c' T- G. B$ R6 n" ~& d if energy > 50 [
- V7 h: J+ S8 g! Y1 }. w set energy energy - 506 u+ Z4 T1 s- X; C; n; ?
hatch 1 [ set energy 50 ]( x* t, S& F% A: N
], q& H9 U- E# @& K# V$ u7 i+ M
]
+ n8 m; E5 v0 v: i7 s" r$ v \end
* n5 q' a/ P K7 Y, Vto check-death7 F0 F. r- x6 ]: W6 a! E$ Y
ask turtles [
) r I# S0 F1 e, L4 Q if energy <= 0 [ die ]
9 ^$ g/ {/ j4 C% x- B, B1 p ]7 Y$ ?/ z1 @. e( V
end; Z! G1 H" V' V# Y" h. K: Q
to regrow-grass9 O" S# C9 K% P% O
ask patches [- X& q6 k1 ?) E* F& ^
if random 100 < 3 [ set pcolor green ]
) a2 x! Q% W( k( ` ]
) r4 R- P% m; v# o/ Aend
0 C0 Y5 r' Z; R. G5 I8 y0 ? uto do-plots
7 o3 d5 M3 A& [! v4 h+ f( {& D$ I set-current-plot "Totals"0 q; W7 x! l+ @
set-current-plot-pen "turtles"
; G+ A. \2 Z6 O" ] plot count turtles8 N3 W0 z* q+ Y# T
set-current-plot-pen "grass"4 y4 f2 d- k, t" l5 S, n: b: Y( e
plot count patches with [pcolor = green]# q; G+ k4 C$ ]$ e$ j& X3 B& x
end/ @' I p! S: I
可是运行时提示no such plot: "Totals"+ _ g' F! l% k' a) t( A: I
error while observer running SET-CURRENT-PLOT
# w- E6 o$ T1 Z- w! w" J; f; m called by procedure DO-PLOTS: X) U( n" I/ l5 m9 L. @
called by procedure SETUP7 H7 t4 b# {. [+ T( \
called by 按钮 'setup'
' v- L9 Q# E7 \9 J求大神解答啊 |