我编的程序如下turtles-own [energy]# V7 E, Z$ x6 o4 v3 W4 _
to setup* Q' o: {/ d0 G. x$ C
clear-all2 V+ S9 B7 \5 M# j
setup-patches
6 z# e7 g( Z- C. o! ^& {, f2 G/ D9 i create-turtles 100+ B' L0 T: E. k9 ~( C$ b7 c
do-plots% z2 o; F+ S) v- n# @/ l
ask turtles [ setxy random-xcor random-ycor ]
& k; x n& }; bend
" C2 Q, Q7 z% D" [6 r2 y! c' J6 Dto go
* i1 x0 {3 O/ l. k move-turtles
) z9 i0 w( Z. [3 } eat-grass
8 z: d# _* U6 f- t2 {2 } reproduce* j# b9 S/ W7 B' ^9 U3 i
check-death, A! U( G' f4 @3 @4 ]
regrow-grass4 D& P9 u6 {) |: O- e9 Z& P) ^
do-plots9 Y" ^* ?7 L0 z
end$ M# H2 y, w( F* ^8 m
to move-turtles
# U. Y* j- ~9 Q/ V ask turtles [% y" O: P7 B6 {% q% K" i
right random 3606 c4 v R. {3 m5 M/ b3 }
forward 1
. Y! }$ n) J. h6 J. {( @ H! r4 I set energy energy - 1! p# f y- ~+ ]2 R- J! k
]
9 d3 i9 i7 e; C: Z; Lend" i* a5 K2 q, E/ f/ {
to setup-patches
& ?$ ~8 g# T2 B1 K& m3 k; X3 l ask patches [ set pcolor green ]7 j: W* |, g0 J4 H. n& p% k+ b2 l
end
/ q7 L% i6 @. \- cto setup-turtles
4 f& u2 w& r8 m9 Z2 C5 a9 [. |& T create-turtles 100
- d0 \- A1 }6 a- y ask turtles [ setxy random-xcor random-ycor ]6 `4 \- C6 \8 y$ X: r l
end
7 N; u7 C& s# D! N* y; R8 u; }! dto eat-grass
) a, [/ B. a$ h+ c% G" L. m" O ask turtles [8 q; S/ m2 Z+ E1 s. a! x* p" V" ~* u
if pcolor = green [
, e. V$ S+ b" c9 h b p set pcolor black
; X" g H1 }' r2 [1 z set energy (energy + 10)5 Z9 Q3 |$ @: Z- ^* S8 g
]
! Q3 q% k- {& @! ?" _* W* a ifelse show-energy?
; [6 r& b/ L# y: ]7 D5 l [ set label energy ]6 A- E+ [, y+ \8 u+ h" T
[ set label "" ]
" m' @9 i ?# c% f" c6 F% I ]
" m$ r5 f2 X1 Z4 `/ z2 xend
& C" c9 i9 X' |" dto reproduce( L q+ f; o, `- s( j' ^
ask turtles [
% k: X( ~% I2 i/ | if energy > 50 [
/ ]2 v$ D' ?. O, Z set energy energy - 508 S2 U; C7 m- \3 x8 U1 a
hatch 1 [ set energy 50 ]
3 [, H* N* w( L' r ]
3 q0 m0 M2 x* B ]( ?/ C; q& o* p1 Y" q
end
; M$ C. O+ ^2 _+ Q- A! {to check-death
1 _1 F `& @. R0 ~: L5 X v# | ask turtles [
% M( p2 P# ~8 \* q if energy <= 0 [ die ]4 |; o3 T+ I+ J
]5 P; Z6 Y$ B' i. K
end
6 _6 f3 p* ]/ p4 g0 y) {) eto regrow-grass) U' H5 B1 a! T5 F& Y3 B4 s* F
ask patches [* s' o2 _% ^. w8 }" j
if random 100 < 3 [ set pcolor green ]
( |( c: E$ h3 c3 \& n ]# b/ m9 O4 B* X- K0 ^$ U# d
end
- {: m* M s5 A$ O" v* eto do-plots; g% N/ [& v0 c! |* x5 f
set-current-plot "Totals"
! ]; q1 j$ l2 R2 A) c" k$ d9 D set-current-plot-pen "turtles"
- f" G8 X: A% @6 |. l3 o: c" { plot count turtles
Y5 H8 B, r& U set-current-plot-pen "grass"
' O3 A; Q* o s3 U( k3 Q. x6 K, V plot count patches with [pcolor = green]
# W& y2 A7 V5 i0 B7 G" J+ Iend
& p" R: ~% Z0 t r+ r" S, \可是运行时提示no such plot: "Totals"
1 a1 s5 ]( P2 E' Z( p1 werror while observer running SET-CURRENT-PLOT% a3 R1 K* p ~5 K' s7 a
called by procedure DO-PLOTS S# w- c1 c6 S5 o7 s5 A2 B3 g
called by procedure SETUP
& S9 s8 S" Z) c' f% C called by 按钮 'setup'
6 _$ L9 {1 H E; Z) i求大神解答啊 |