我编的程序如下turtles-own [energy]
0 W0 J `; j0 X6 B/ M- n, X# E* ~to setup f, ~; _& I2 Y' i. E b
clear-all
5 b: f; S0 U& T, c7 G2 X5 y8 [1 @ setup-patches+ B! E9 P; M9 n6 t1 E, Y
create-turtles 1007 `" l- y! X6 n# f& x
do-plots- Z3 [4 C# o7 X
ask turtles [ setxy random-xcor random-ycor ]
) u' _* x! Z; Q. _& l% F7 Bend4 u6 E3 e) o8 N E* C& u
to go, |* ]; H- g- D2 z
move-turtles
! J! y0 _. m& G- q4 }4 o+ U+ D# ^ eat-grass" @, Y4 t! w3 A" U( n- C
reproduce
N( I3 h! [1 ]$ T9 d; o! h check-death
. \% i+ C, Z% r regrow-grass; w' o4 d4 D" K6 O6 i! q* g5 a! f' A7 `
do-plots
0 G* z* m; F' b1 m+ oend8 ?: H# D" H$ T2 b r
to move-turtles+ z3 g* F- d) H. |
ask turtles [' e) _$ I0 G4 v& |: N; t
right random 3604 a$ M3 i; U. A0 N" d% ]
forward 16 m% r- v# s8 L* r9 w9 A
set energy energy - 1
- q$ L2 m2 O7 {5 o, ]3 X9 r ]; L5 x2 \9 u( _/ e- l9 x" q3 G
end
6 L! H g2 K. {" ^( a3 u- i. kto setup-patches0 C" C* O4 B/ H$ M$ J/ h+ Y) Q
ask patches [ set pcolor green ]
, h+ b7 [/ \7 B; e: wend
' \3 W$ s* g/ a' J6 A2 gto setup-turtles* Z$ b, Q/ i. ~- l
create-turtles 100
8 \ E: B% R- L ask turtles [ setxy random-xcor random-ycor ]
5 B) Z" T8 e+ l6 H* R6 [ [' \end
0 I7 E s0 j! V( T F8 x w- a8 D$ o/ rto eat-grass6 x; h7 |6 P; |4 x
ask turtles [
: A+ v& A" N4 h0 ] if pcolor = green [) l. B2 x$ {& }) q
set pcolor black y) u/ f# f L1 T+ Z+ L, z* S
set energy (energy + 10)6 r$ u6 g L% p1 i
]
* s F! p+ R. y! i# L7 p ifelse show-energy?
4 G+ O4 v, E6 w" Q w [ set label energy ]2 P5 l0 P; J* S
[ set label "" ]5 a2 ~/ }* W, @0 U& G$ j8 e( J
]8 z1 I: ^# z% Z, h
end
% y" L2 H P4 [; n- t- R& fto reproduce
/ E. t6 h% y. b' | ask turtles [
. U6 R" t9 P+ B. q2 e, [ if energy > 50 [# }4 b) x2 D2 Y& J2 M
set energy energy - 505 e0 ] v9 L9 x# J
hatch 1 [ set energy 50 ]
]) u% Y, h4 i# U# q ]+ n+ `) d" x! n ]- `
]
$ d0 D2 M7 I3 r! k& cend
$ \ K9 N% q; h5 {' C4 ], Ito check-death2 M& n6 q1 d7 j; m
ask turtles [8 ?3 A; u9 d0 B( K3 J( g' z
if energy <= 0 [ die ]9 z4 E* }7 h$ K7 N
]# [& i! P/ D( Z3 t/ i) v
end* ?8 E/ r7 `/ r4 [; m9 \+ P
to regrow-grass: L* c8 ]9 G3 J3 n7 |
ask patches [7 \* l4 P9 T! Y* g$ y& G. k: d' _
if random 100 < 3 [ set pcolor green ]
& v$ _( z. o7 ~& i' t ]
! d' [: ^. W+ u. Qend
3 h* H& b( T/ F7 M# Vto do-plots
; P- O' p' p. |9 }: i9 g( d set-current-plot "Totals"% `) a7 P: O, ]" X9 c
set-current-plot-pen "turtles"8 b- o& f8 d: C2 F
plot count turtles: Y" N; B/ L5 p! K
set-current-plot-pen "grass"
$ H, L) j" [& }; p% F plot count patches with [pcolor = green]
% M; g0 o- ~! b1 @* d0 v' ?: \# Nend( ]6 I, q7 x" m2 D
可是运行时提示no such plot: "Totals"
. F+ |& O' t) v+ H! Z2 E& cerror while observer running SET-CURRENT-PLOT& M8 M0 \' n }0 n2 K1 d+ A
called by procedure DO-PLOTS
3 R# \6 C4 g3 h called by procedure SETUP$ L3 e3 V s1 v' R
called by 按钮 'setup'
, {" s4 n) F _- H" W4 Y求大神解答啊 |