我编的程序如下turtles-own [energy]
3 c# e% D# G6 G" Y& I7 Bto setup
4 R* A/ w' i( F" G; w# l clear-all
6 ^0 O; W R2 S2 r2 a& l* E! m% _ setup-patches& c0 R) g N' M+ f' ^' [6 a
create-turtles 100
5 f: W: I- ^$ t; x' B do-plots& e+ l4 b5 f5 r
ask turtles [ setxy random-xcor random-ycor ]# R [/ o6 B0 Z6 U% u" a1 h
end
! \5 G3 ~5 G% A7 ?- o8 F* uto go! B, r$ p1 ]; h
move-turtles ~3 L+ r* h9 k9 e& L
eat-grass
( `0 p- n- P% `/ S# E reproduce
) f/ i4 C9 k7 d4 W& e check-death
3 P+ `! L/ `: q0 B regrow-grass1 g! E* o: }! [+ C
do-plots& O2 B7 }/ C, g5 ^4 A% K
end
+ j/ p9 A$ C2 e, a7 ito move-turtles# X( Y# b5 ~9 \. _
ask turtles [/ \+ z- X; Z5 t0 E$ G( X: b
right random 360/ p: E% r! {2 h
forward 1
1 E) r; ]' _8 H+ a; ^ set energy energy - 1
& R) F* r) O6 m5 G6 v ]
+ X1 A6 w3 \& q1 K; k) c8 ]" N5 vend! n+ ^- d8 m: i/ u; M; ^
to setup-patches9 r0 `" L+ v* C4 D
ask patches [ set pcolor green ]
1 ^5 \! `, w) Q: W/ n0 ]/ uend6 v7 _3 A0 M' C; ^+ Q3 c5 j
to setup-turtles6 L: G P' {* y' }/ T4 F) n
create-turtles 100
% O9 G7 f, |0 n7 e" t; o4 F ask turtles [ setxy random-xcor random-ycor ]3 Y+ w" j3 Z' _% E% d9 Y
end, X7 I; Z2 K- y( D* E
to eat-grass
2 E, M* U7 t, K0 G5 [ ask turtles [
; D0 ~$ {' V; X0 P2 Q if pcolor = green [; I4 F3 N5 m* X" z& Q% |
set pcolor black
& b$ r9 W$ @3 n# x, |9 J set energy (energy + 10)8 n! p4 l/ g3 | v
]
2 _0 {2 l# p& w6 Q ifelse show-energy?& n: T6 h+ x' }. A) W6 D9 O
[ set label energy ]* v( \9 }, d+ r) B3 q, G
[ set label "" ]
% {5 c6 F n4 U0 G ]
0 l5 k+ |2 q9 P% r3 ]end
5 F/ y9 Y+ R- {7 Ito reproduce8 Z* B+ K h" J, K0 t& s' C7 }/ i
ask turtles [8 b6 ]/ T5 \3 H9 N
if energy > 50 [! U K5 l" u5 ^0 I. L8 s
set energy energy - 508 d; k5 c( t. e5 u% D7 W
hatch 1 [ set energy 50 ]& [! K4 I% e9 s$ r9 Y4 e7 J( d
]& I3 @- r6 C- c
]7 h" `' d1 S; u) u& T! F
end
+ Q$ o! Y9 H9 P T2 v3 {to check-death
0 Z+ R$ t5 f7 ~5 f) M ask turtles [7 I2 V |& u1 E$ u5 E
if energy <= 0 [ die ]" M- a& Q4 z$ J
]
" \8 q2 J) t3 d/ \+ [" eend% r! w! K- E8 P9 F" G2 ]
to regrow-grass
8 A" k/ w3 Y: j" W+ ` ask patches [
. B0 A/ o H' t7 d9 Q( @ if random 100 < 3 [ set pcolor green ]
% r# l+ a, }0 b0 R6 n ]7 K) s3 }, `0 M% [4 t# w% h
end* A. |! o& Y6 l
to do-plots
0 K/ z; i6 J5 z, V) e6 D set-current-plot "Totals"
5 ^5 o3 V2 Y, Z6 z. V/ m6 [ set-current-plot-pen "turtles"
( R- u, c2 v9 D& g plot count turtles; q" D! B. S y2 i% f: S S
set-current-plot-pen "grass"$ u$ {, ~6 m* R9 u5 ]# l+ ~
plot count patches with [pcolor = green]# V C% n' B3 c4 G; g( v. I
end
* U% [9 I0 l" }0 W7 C* t可是运行时提示no such plot: "Totals"
& g/ E8 t+ M9 H# U! s* S! U8 F! Aerror while observer running SET-CURRENT-PLOT
+ G: H J4 A( f. c& h& w' i+ | called by procedure DO-PLOTS. Q+ W! X5 e( R% o
called by procedure SETUP
" D) _7 ^2 T7 R. k called by 按钮 'setup'
% E! s% V4 c$ q* |' L4 A/ ]9 E/ X& L求大神解答啊 |