我编的程序如下turtles-own [energy]
# Y* ^- l2 @0 L" @3 Y0 B4 sto setup
0 E: B7 j: W7 n5 z N1 i) `/ ? clear-all
+ j$ m' K: ~ l6 P setup-patches
' J9 G/ u9 h# ~8 p+ B# l% @ create-turtles 100( t) `8 `6 |* {" ~% a- k, s
do-plots
Q/ C" l8 _# m2 s3 m6 Z; q ask turtles [ setxy random-xcor random-ycor ]9 q* g/ ?9 v4 j7 r$ {& m
end* E) o! E. z/ [
to go1 F+ F& t+ e7 H k# E
move-turtles
" y# ^: ~. v) o- |) R% U! \ eat-grass
5 s& c' M. u/ t& |; { reproduce7 X- t7 a) n6 E% F
check-death6 w! Z3 w; y R2 a+ O) F
regrow-grass
+ Y) X7 g; {$ {: ` do-plots
. h0 t$ G! s5 f( P% xend) W& m4 `8 y6 s" n* f
to move-turtles) L5 h8 v2 p8 p' A
ask turtles [
- v; G3 S- T: T& t right random 360" X8 t5 V2 X$ O( C. v
forward 1: T: b* F4 d/ c: V8 E1 R
set energy energy - 1
7 Z+ W2 r9 }. r* e5 j9 ~ ]
. `& ]+ V5 ]% q/ ~8 @! ]. F" Mend
6 l) E! I0 F4 G" v; jto setup-patches
7 D/ x# _9 n4 k& j7 W ask patches [ set pcolor green ]
; G: L9 I# D5 y, s3 Gend
( R2 J$ y" ~& m; u$ ]0 Z8 wto setup-turtles
: @ t4 \2 Y `; U0 H( V create-turtles 100
; ] i8 y9 B* {- \ ask turtles [ setxy random-xcor random-ycor ] N5 q: M% T Q! E) d7 B- Q
end
4 n" s: d9 R# j( M/ b U7 ^2 ito eat-grass; M5 y( Z: u# p9 T( x [4 Y3 L8 v! F
ask turtles [0 c% m7 _3 H0 E2 C4 j' A/ U3 f. f. U
if pcolor = green [1 R9 ~) N( Y2 X$ T( @9 @
set pcolor black
! S9 ]1 F/ {- Q$ g, L& } set energy (energy + 10)
! U. }5 I) f' I( a. Z& ` ]
9 I3 m3 E2 m; Q/ @; t ifelse show-energy?
9 U z0 { C+ _6 i( G* I& m [ set label energy ]8 P' r: n) |+ [" J
[ set label "" ]
/ l$ O2 O9 F& {* ~5 s9 N% T ]
5 S$ v& k! t% G$ z: nend5 ?8 i. l4 ]5 a; r3 g c& g. }
to reproduce
5 g, L8 q( V; v8 G% O# v ask turtles [
1 L# j0 B/ C- B if energy > 50 [/ ~! t0 a9 i X$ a: z/ s
set energy energy - 50
; o8 A3 Q! V( X+ @# P hatch 1 [ set energy 50 ]
- ~" l* g3 E3 m" n* {* S. z) P ]
2 G5 q( u) q5 E( x1 \, ?4 x7 c2 v ]+ y* l' r3 K n2 _) p; x9 F
end7 h! t6 C/ Z0 M( Z9 D; z
to check-death& U I5 z* q2 \/ p
ask turtles [
# C# \* q2 @/ m if energy <= 0 [ die ]
- p# i% } K/ A1 y, ^- c ]9 x) x8 j6 e: D+ y
end
3 v3 u( q2 s, D& Z6 E& t9 B' Eto regrow-grass
0 l; Z" B6 F1 {3 f* i ask patches [
, l: f" D K& ]0 ~+ x if random 100 < 3 [ set pcolor green ]8 G3 J! R8 k/ V4 G' ^& O$ @1 h
]- p+ v1 D1 T3 H
end
+ M; V4 u& b. [to do-plots
# v9 v" Y5 W O set-current-plot "Totals"" s( _, o+ l% ]
set-current-plot-pen "turtles"2 v/ H6 _9 |; h N: e/ T4 e
plot count turtles5 Q$ y ~6 [& Q I( \% v
set-current-plot-pen "grass"
9 ~9 `+ c- ]1 n plot count patches with [pcolor = green]
H4 v: y! u; N/ c" A9 A7 Hend
$ w' R$ H) L) J( E5 R$ v可是运行时提示no such plot: "Totals"- N2 P7 u( V# z8 \1 \( R0 z7 F# t
error while observer running SET-CURRENT-PLOT
; {# v% H" f: W/ M& Z! j; V* @, ~ called by procedure DO-PLOTS5 U. U; e- [) @8 [. l
called by procedure SETUP% z, g8 k S0 r- g& @
called by 按钮 'setup'
8 x$ d: n& h9 |3 W# E9 R求大神解答啊 |