我编的程序如下turtles-own [energy]
3 W) x' `; W2 ^1 ~% _to setup
7 n( k) j6 D- b clear-all3 B9 F$ h4 M/ v0 g& K/ [+ Q
setup-patches
- ]5 M* _; `0 |/ j$ E) u create-turtles 1002 d; |; N0 k1 m9 T7 d. R. T$ Y3 ?
do-plots. _- n& e; R; J/ `
ask turtles [ setxy random-xcor random-ycor ]% s9 t* v% O. R& f! p) ]* A
end
# ~, f- E2 Q3 a6 G! X5 e; t! I! F$ U/ Sto go+ v$ M3 P6 n# v% s, s+ _- f) z: o
move-turtles
8 E: I# @/ Q3 Y eat-grass
3 [8 K) n6 h: `8 S$ J reproduce
C# k' m/ c& J: T5 E check-death4 L7 }' U4 j! Z7 q3 g* ~; t
regrow-grass
$ Y8 B6 S+ O" v7 e3 o9 \. f0 | do-plots6 N5 c* e3 N, z6 H# Q
end8 H3 T% G# z x" ]$ c
to move-turtles
; J3 W- {, |) n% v" I. W ask turtles [
+ l6 A# n8 O5 }1 F$ @ right random 360, F, b0 l4 {$ f% ?
forward 1) a. e: ]7 p- ^, q# w
set energy energy - 1/ z! E" b4 X4 Z4 t
]
9 r( }1 d, q% q( Aend
8 d. h, u& @* W0 \" d% Qto setup-patches
9 o* g; I) V4 s- Z0 @+ V: j ask patches [ set pcolor green ]
! k( i; S; h- ], R4 K- `end
: p$ j' F; }9 x, vto setup-turtles3 n9 f3 i- E$ h' Q; V) {$ O
create-turtles 100
. D: z. c1 h' F$ U1 K ask turtles [ setxy random-xcor random-ycor ]
0 [% [ k0 |3 ^( Jend8 P" X: J" [8 B+ Z7 i' P$ H
to eat-grass
9 @. J% g2 ]1 c i$ @ ask turtles [) Q- |- M' D& X [& c0 D5 }
if pcolor = green [
3 b7 ~- g- R* t set pcolor black0 T- A: _" i8 K0 G
set energy (energy + 10)' u* }5 E7 o/ ~8 W% l
]
4 L8 L/ r* E; |+ F% x ifelse show-energy?$ x& ^) v0 ~7 i( O/ w4 H$ z
[ set label energy ]
; G v% ?" W0 N r [ set label "" ]) }3 h$ W! M% ]$ [/ F2 L" [% N
] v6 G' W. \5 ]/ b
end5 s& @' E: F4 C0 h! d
to reproduce
" P$ o: U: u9 ~: \4 t. k" | ask turtles [
5 s* t$ u* d* y; V if energy > 50 [
3 I8 w3 Z7 g, l1 c U( j, D! l4 r set energy energy - 501 L/ c% R% E. v) m
hatch 1 [ set energy 50 ]3 y6 y6 S" r6 A, D* v
]
) c2 Q. X7 g2 r) Q8 o- T: f ]
5 b' `2 b! k/ w% l+ Hend
7 x# p' w7 @2 b( K9 xto check-death% L- v7 D5 x& x& p, j* g2 B
ask turtles [+ U8 g0 b, V, }. h$ S' Z
if energy <= 0 [ die ]
$ F8 K/ q7 a7 @ ]; l; Q* t' c% w! e% u
end
I1 R3 O8 F$ x" j! R# }to regrow-grass+ J: [ V. s: v. }
ask patches [
* G% |, q( m* g9 R4 n: \ if random 100 < 3 [ set pcolor green ]
7 F2 G) e7 P5 c }8 K; F ]1 c* ?! A4 `$ F7 o" D, R
end( N) X4 z4 X# b6 m6 w
to do-plots8 W3 T4 r/ l6 F8 y& \
set-current-plot "Totals": ]6 U) h0 S3 t' _3 z
set-current-plot-pen "turtles"
# h: l- u$ [! X+ R; L! H" H% D( \ plot count turtles
7 Y0 f1 \$ A: X8 w3 g, o set-current-plot-pen "grass"9 V4 h {% b2 R% b+ P) l% Q- S6 y
plot count patches with [pcolor = green]
* i* L: d8 P* [9 w% z* z U; Hend
, J$ t$ e2 Z. a; |; `5 f) l可是运行时提示no such plot: "Totals". g6 Y) C' i; W4 R) ?9 _
error while observer running SET-CURRENT-PLOT% f; F- H: I$ }' C# w& a
called by procedure DO-PLOTS( l+ h' |7 W2 x8 G6 f7 F
called by procedure SETUP8 Y/ b* k e$ G4 N7 w8 |3 T' x
called by 按钮 'setup'
- V* p( ?6 P c2 c4 r# s求大神解答啊 |