我编的程序如下turtles-own [energy]
/ |6 c; A/ i1 A, u6 F6 B% v2 ]to setup
+ ~" r* Q( y; [' O. d' g% k8 z clear-all0 u: Y* @( X2 L. a2 d
setup-patches
8 V0 V) C+ A& y! K" @5 A create-turtles 100
9 a! w, L* |& R" X( ^% }" b do-plots( n8 g5 @1 ~- S* f0 M
ask turtles [ setxy random-xcor random-ycor ]
j m: J# b7 [1 V3 tend7 ]9 z- H r8 I% O# [9 a- K; z
to go
5 Q) K s6 r9 c6 d move-turtles
# {9 K8 T [) ? eat-grass/ Q7 L' z5 N- r; ^' o
reproduce
- v: V! H, U8 Y% i check-death: r+ F, y' D+ `" j4 v+ ~5 @
regrow-grass
4 m# a! ^0 K/ V3 m" w do-plots
$ J4 ]; n) l9 O- L2 g, N: Tend
; m3 x/ l7 p E Y2 d6 ]( }1 F( Yto move-turtles
a+ ]+ f6 v7 U! M: L6 n ask turtles [
) \& R. r8 |5 L* L! M K right random 360 N! R8 u3 p9 ]& \9 U/ g# r
forward 1. C% v9 d; V D; i6 ?8 t
set energy energy - 15 Q7 R! a1 @4 C8 i o6 q
]7 {6 h0 L2 ~7 K- V- x
end1 M5 [2 w" a( f! M: V
to setup-patches
& V- r1 B s1 y7 [! E# ]/ B ask patches [ set pcolor green ]! a! p. N% o9 Q: E' B6 C# r) J; P* {
end' f' w _% V) d" a4 v d" W- x
to setup-turtles
7 K0 |- e( [2 I4 J create-turtles 100 @) @- _# u+ o
ask turtles [ setxy random-xcor random-ycor ]
- z' Z. n7 i- ?9 cend
( ~8 t, V) X/ B3 `8 _/ R, v& i/ ]' Oto eat-grass: N) Y J G, ?6 x! {
ask turtles [7 W5 P; t" c- `( b, X; w4 t3 _( s
if pcolor = green [
2 Z. l8 W. {2 ? set pcolor black2 a |! U w i6 B- z1 Q# @- E
set energy (energy + 10)
8 \7 ~1 M `- e ]
7 f$ F. D! e. e+ y, e ifelse show-energy?4 b5 H) E! i" S* _/ o; ~! e
[ set label energy ]; t! F5 |& m+ P" t
[ set label "" ]
0 G) u* V9 C* x! r& B ], W# W' _' ?$ v. l: _
end( `! }' D: ]) }
to reproduce
8 c% V( ?, U$ K% u ?9 M. A6 y$ S. B ask turtles [6 ~6 }( \8 N: V1 T
if energy > 50 [
2 ]. I/ c2 m; \. a# T% T set energy energy - 508 U3 O; D- @, m3 _7 Q
hatch 1 [ set energy 50 ]
* G( `( g: ]# B ]
8 T$ T. r9 m( { ]
+ @: y7 h* F" u' w. ~3 F: K& r" gend3 ]7 U2 g4 V& p0 Q" V2 F) k
to check-death
9 f8 }. m$ O p ask turtles [5 Y& K# `7 k6 M: x5 |+ A e0 M
if energy <= 0 [ die ] I! S) F, G3 [' q- L. x
]
, V6 P; h! y7 U! i' s3 [+ `2 Tend( h- I" k: L$ E% Q; _5 k" d
to regrow-grass
1 `3 S8 W. w# s$ ?& c ask patches [
& Y" r" k' u6 i$ S. M3 o- G if random 100 < 3 [ set pcolor green ]5 K4 s, G. V, Q
]) t Z/ C" m" }: M' t) T2 |) \9 L& x! p+ B
end
* x/ \8 I0 F$ c. dto do-plots
0 H0 [0 i- G; x) s6 p7 u( ] set-current-plot "Totals"4 @ w8 f& o2 {4 p! |
set-current-plot-pen "turtles"
) f7 M7 a" j* y8 E8 b' ~" F plot count turtles
$ z: C6 h6 N$ Z2 o7 ]! | set-current-plot-pen "grass"
6 m9 p$ v/ V. x; C/ q$ @ plot count patches with [pcolor = green]
# ?! J0 k' Z5 F7 t! Mend
; x% B: c( T5 Z7 z! F. e0 F可是运行时提示no such plot: "Totals"% [/ ?4 F2 l0 z# E
error while observer running SET-CURRENT-PLOT: Z9 O# X# X& n/ ?5 Z
called by procedure DO-PLOTS+ F; v* |6 q7 S+ t- _/ _6 P
called by procedure SETUP
/ m, N" x0 o$ W, |$ @; t called by 按钮 'setup'
5 _2 B- w: {& ]5 K- ]求大神解答啊 |