我编的程序如下turtles-own [energy]
9 j- N! e0 L6 L' P* ato setup
* U4 w2 R' H g! v. t" J clear-all
% C% z% k6 u; x4 U$ e) _1 O setup-patches
6 s# |) [: Q. v" X4 e, W1 m s create-turtles 100
1 ]7 s" O- ?0 B do-plots
$ Z/ j# F3 x7 n' s& k ask turtles [ setxy random-xcor random-ycor ]: h0 f: }0 d, ^
end/ @( n* u8 W; w6 t
to go$ G6 |% s! R( ?3 o4 Z, Y/ B& M
move-turtles
+ h" r9 Y: ]! Z& O eat-grass6 }* L# b$ m5 |4 B, l
reproduce
" n! d9 H5 f5 o check-death
- F3 t8 r, J6 S2 N3 a' C regrow-grass( [# z; x5 J1 m2 Y* T
do-plots
' T" V$ h% w" Q8 f: R5 N4 H. S0 qend
9 g) z# b5 s: [to move-turtles
- G* F+ A/ ?2 a8 z4 [ ask turtles [ p: u- T7 C6 a- U: ]3 Y" i! y
right random 360
7 c! ]/ y/ o5 S& U/ z6 f% P- G forward 1
$ z J0 I4 y5 ?! E& [ set energy energy - 1
* K* o8 a& i. F" z7 o ]
7 }- r& {9 V" K$ ]0 O* Fend+ L: U4 W4 q, ?- A! {" C: s5 m2 x
to setup-patches4 v8 l1 @% t3 {% ?. e6 q; S7 t! f. v
ask patches [ set pcolor green ]
% P. ^5 ^: h" t! A; {/ Xend
, u* \! B! g: Q8 D1 `3 M; rto setup-turtles/ j, W' H, Q8 u) h. A" m: s7 m
create-turtles 100
+ C2 C5 c; }$ d ask turtles [ setxy random-xcor random-ycor ]8 A8 b+ p* M2 J+ j
end l/ V l1 h5 {" P
to eat-grass
# |; |- r% b& s ask turtles [
& _3 |" }& K* O9 Q6 T if pcolor = green [
* i9 Q- W+ n+ r% x1 F set pcolor black- m0 W1 K& O, d4 I# l
set energy (energy + 10)
* z" e Q9 R4 q; N3 i2 K ]
+ J7 H$ d- S! Z |; t ifelse show-energy?
. l0 _, X* n# Y! U( A [ set label energy ]
0 g" g2 v$ v. L2 Q( @ [ set label "" ]
$ ]. ^& C( M' i3 M ]
0 P0 a& e3 s4 |4 \6 a% lend
" y; B4 d* r2 E1 ]to reproduce
0 j, i, m, r- h" Q ask turtles [
1 q' r5 ^5 y. P& a2 G if energy > 50 [. {/ B$ R; n0 V" D
set energy energy - 50* p8 } d( W( Y; @
hatch 1 [ set energy 50 ]
% Y+ V' c# C7 t0 _' i) ~( n ]
" z0 k0 ^# X( ?/ {( [3 h2 I/ r7 o ]
$ E" Y& w2 h/ ~# @end
P. b3 ^6 b4 Oto check-death
8 ?( D1 Y$ W, A ask turtles [
6 P& q0 k/ ], `/ v1 n1 C if energy <= 0 [ die ]; c0 u6 H$ x7 Q. z0 E
]
, C+ y- t9 M/ N9 ]% ^end
6 {* c9 h) d( h" D& N9 M: _to regrow-grass: j& |( O* w: m8 G0 D
ask patches [3 c$ {0 U+ ]7 W' I4 Y% x9 [
if random 100 < 3 [ set pcolor green ]
5 k) n! M" x3 J) s8 | ]
: I) c: O+ ^* t! p# z- Uend
; K0 V5 v! r. a7 [; wto do-plots
& p7 |% w \0 I) F3 ] set-current-plot "Totals"# |* d# \ ?: { B8 o; i9 B
set-current-plot-pen "turtles"
2 P7 p5 X, y- G3 Y plot count turtles
% Q. J, h6 |. n0 A. g set-current-plot-pen "grass"
4 O: V" T, \8 W: {& _$ P( ~& o plot count patches with [pcolor = green]
8 `/ t8 b, i( N" G0 |8 Tend
- S* W/ v+ m* W6 m) p3 y可是运行时提示no such plot: "Totals" Z$ p5 s* L" ?
error while observer running SET-CURRENT-PLOT
% Z( h' U: L' O4 ] called by procedure DO-PLOTS% |: X% T% F+ H5 J
called by procedure SETUP5 E: b/ z f' I7 ^% p
called by 按钮 'setup'8 ]+ E5 i. O( a/ ?2 K$ D
求大神解答啊 |