我编的程序如下turtles-own [energy]
, a0 r$ x E/ Z& @7 a) W8 Z: eto setup5 o$ o( t4 W- p4 d/ U' ^% Y
clear-all
( N" }9 U x2 R( [3 F! s, d3 ] setup-patches
# B0 @$ x8 Y6 f) X+ d create-turtles 1004 Q6 ^# A- Y H* c
do-plots
& |& Q5 N2 v \3 e+ K# G ask turtles [ setxy random-xcor random-ycor ]
( J+ o0 k( w, u0 ?; ]end
) \; T/ p, w$ d( ?! k bto go$ N, O7 [% g+ U3 T, e. }7 t1 ^
move-turtles
3 }( n- n4 A1 o- m7 q eat-grass
/ C2 q- I! B- S p reproduce7 \ X4 ?9 `7 W5 \
check-death
& d# E: p6 r! r" i6 E regrow-grass ?$ N/ ?& o7 o) x+ y, m
do-plots
8 |$ x; D, L; ^1 u" tend5 o: Y3 s& u6 M6 ]% f
to move-turtles) r+ g) N& F# H2 d$ n. u' Q
ask turtles [
4 k* y: Z! G- H' b% D. n; p right random 3602 W3 C5 {$ Q3 S3 S
forward 18 i% C' n1 x0 ]
set energy energy - 17 I) d! W) H3 v
]
( a& c& p( @3 ~6 N* i6 U- |8 gend
5 O2 [3 W4 o' Zto setup-patches
: Q6 o6 E0 M3 i$ m) K ask patches [ set pcolor green ]
2 ~2 q2 m. N" M; Gend
, n& Q: k$ C- F2 sto setup-turtles7 b9 z+ v" z* b' B! r
create-turtles 100/ w5 S% g, ~; \# j9 c* R i8 p
ask turtles [ setxy random-xcor random-ycor ]
0 z) g- c5 o1 E y& yend
, O. [& E g+ v' o$ j" Oto eat-grass8 W' o1 i4 J3 \
ask turtles [
: o! h! [3 u/ P( U4 L0 r. Z if pcolor = green [! d7 g" g5 Y/ M+ O: }
set pcolor black
o' G; o: H# q set energy (energy + 10)5 x3 Z3 p# W/ B% d0 F
]
; T) m z' [/ D. v" O# W8 W ifelse show-energy?
" w; D+ X; V8 J# f [ set label energy ]
8 J, I* R# ^7 Y& t2 O" P# p4 } [ set label "" ]
6 n# o! X) O4 c- v# ]7 D ]$ v E c8 q" X2 @$ o& I; v
end
8 d- [# E* E9 _0 b, _5 Lto reproduce8 B W* }+ [# a3 g. h; m1 ?1 t2 Y
ask turtles [7 V3 a! f' c7 @
if energy > 50 [& ?; x- V$ f7 s% Y
set energy energy - 502 k+ D( o+ r! Z2 X
hatch 1 [ set energy 50 ]; ?: V) i) V" L2 D
]
6 l% w" \5 a; v5 u; b/ d ]$ Z# N, q9 [" K, g
end7 H9 L, x6 N* C* W& p4 B1 F- ^
to check-death& @" {: W' I5 S1 J3 E# e* V( ]
ask turtles [8 n+ a* w! _3 ? O5 j" x7 C
if energy <= 0 [ die ]
# x I7 u0 {& t! s/ O9 X ]" O/ W7 B3 f" _! R3 ~
end
S I) A( i, S4 ~8 Q5 S% r/ mto regrow-grass# J4 f: _5 d7 ^- D
ask patches [5 R8 t7 A1 a* s
if random 100 < 3 [ set pcolor green ]1 h: n6 E, P% j
]
; o: d9 O$ n0 {end p$ S; X" D! `5 x$ u& I
to do-plots4 Q( Q0 i* [6 w# J' _4 n, f% Z
set-current-plot "Totals"& X" \2 g0 p, O ?, `
set-current-plot-pen "turtles") m9 }: J& H7 l1 D* B$ s
plot count turtles4 [# u& s3 z! e! o6 l
set-current-plot-pen "grass"
6 l4 K9 z1 i$ l# r, T, M7 q5 T1 G0 e plot count patches with [pcolor = green]# s4 U4 z4 a0 v
end. p2 a8 A+ Z4 ]% ?
可是运行时提示no such plot: "Totals"
^5 O- l, p# D6 L- H% Terror while observer running SET-CURRENT-PLOT
# F2 P$ Q7 p2 G) e* n called by procedure DO-PLOTS
# y9 q( f# P& n called by procedure SETUP
+ O$ i, J8 Q& ~; F called by 按钮 'setup'
7 G$ ]9 |$ ?; C. m! C求大神解答啊 |