我编的程序如下turtles-own [energy]5 F' k4 q& f. G
to setup# F+ x0 x. C/ N/ f, j3 W
clear-all
! J F3 h7 E& ~8 D( L, H setup-patches2 ^/ a0 g% |: z( U' y' ~
create-turtles 100
. B$ F" T2 O" W do-plots
2 a0 q- Y3 S+ E- [5 C- k ask turtles [ setxy random-xcor random-ycor ]; E5 s3 J+ _3 H7 _3 R/ f9 m
end ~# A2 b* J6 q$ G4 y" u1 D. h4 u
to go: X( b8 t" p( y* S9 W
move-turtles# \8 a! x% Y, D* x3 K! g5 `% W
eat-grass
* ?" h F+ U( } reproduce1 F4 d P0 X4 I% V
check-death
. Z$ {& i, }, K0 a regrow-grass
" y* a3 A4 T9 p+ d$ U8 f$ I do-plots7 u$ a/ U# k0 }% c. |) {( i. T. c: O
end
7 x" t5 W* A+ d) M: Vto move-turtles k+ {' [" X- o+ r ]& e
ask turtles [
) G. m, u1 Z2 U, t' i right random 3601 I( x# K1 c: q4 n
forward 1' P* {( J, H- ?$ L6 P* z6 g* |4 w0 a
set energy energy - 1+ {% w, {, Z; Z1 l1 ]1 Q
]
- h) |, t" Q9 Oend2 j4 e4 ^" p: B
to setup-patches
" r: G( |' R( M) n$ X ask patches [ set pcolor green ]
" y8 Y/ Z' t$ Y; Z+ A0 Oend' C( W$ I: E) ?/ w$ E2 C1 J
to setup-turtles& A( [+ E) k) H/ X0 y; J" X4 B, ~5 Q% R4 n
create-turtles 100
) w7 \: g) q8 Q9 |1 ]' P( V ask turtles [ setxy random-xcor random-ycor ]
% J; F: T4 d" O5 mend2 N) i# Q3 o ]5 l) \
to eat-grass
3 |+ S+ D2 T& A" N: k3 d: s+ O" ^ ask turtles [# o& t9 ~1 c% D: U$ u7 x m! O
if pcolor = green [( } l& Y! o5 t8 X- R
set pcolor black. ~) \/ n$ K6 u9 C$ E4 a" c3 s
set energy (energy + 10)3 @1 c% D' Z0 V4 k. a4 a
]& Q4 H: `7 O4 ?2 o# W* Q
ifelse show-energy?* B- B3 H7 k; Y' B M o6 H
[ set label energy ]
4 J% q) e" F3 j% Z# r( ? [ set label "" ]. X U# F. d R9 N4 t/ z
]; m" W) j' E% D+ A9 F
end$ t) ]8 G8 Q9 p- L% z; a. p" c
to reproduce! x1 a$ b# Z! b% m1 e
ask turtles [
9 C7 m, W0 w- n" G; ^7 t if energy > 50 [
; R6 @# q: D& y! c! L2 \" V( i set energy energy - 50! M# f- B9 R; o3 c$ n
hatch 1 [ set energy 50 ]# j6 U% i+ ^8 \! H- U
]8 s, _4 A) p7 v) k/ g" K8 m$ B
]
' [ R. k5 N. J! ?end# a( `$ j+ g# a. R4 ^
to check-death/ H/ n, ?1 ~ d' [" I O* y
ask turtles [
' T0 y1 F* \$ G& T if energy <= 0 [ die ]
3 N0 Z. ~* x/ M( x, k* T ], n' n$ g2 Y4 q* y) x4 ]
end7 \7 e9 m1 G! J" W) K& c
to regrow-grass# f$ s% i6 q' o! Z
ask patches [# |" k9 g5 f- X( s5 o% ?7 P; t
if random 100 < 3 [ set pcolor green ]( }5 Y3 p! N s% \) L; Z" A8 q
]4 q; x9 |; L' z" v9 q9 q
end
& l# R* s1 l1 x5 H2 f& Mto do-plots
( l5 `& Q; G& F& Q6 ]9 s( r1 m set-current-plot "Totals"
! p0 T' }. d4 O: F6 U/ N set-current-plot-pen "turtles". R. I$ S+ ?7 u2 ?
plot count turtles
( ?1 o6 o* u- s- T set-current-plot-pen "grass"/ v6 y( f% Z$ K! h" D; j) M
plot count patches with [pcolor = green] h7 w! b z' h- \/ P" D+ [1 | K
end( c$ n' s' x! C* k$ k- Q7 a0 ^
可是运行时提示no such plot: "Totals"9 ]& e+ c% l. i: K B
error while observer running SET-CURRENT-PLOT9 T1 @9 y& J. w; a
called by procedure DO-PLOTS; [3 i5 N7 h* b
called by procedure SETUP. j7 }) }" `+ o/ [2 h, l3 \0 e8 }) C
called by 按钮 'setup'
1 l0 h6 ^( ^" v- I' Q+ r求大神解答啊 |