我编的程序如下turtles-own [energy]! U9 l. ?' l2 u* c
to setup
& Z- x7 x2 J8 e! @+ }1 M* e a clear-all
Q4 z9 A* A. F setup-patches) c! [/ h `6 D. q# P' ]: q
create-turtles 100
7 J$ Z+ b1 O9 Q1 u8 J* R4 h do-plots
4 x' @; d7 q0 A; k ask turtles [ setxy random-xcor random-ycor ]$ `: m$ W& z( k9 C
end. {4 R9 Y+ f$ a
to go n& m' a0 `6 Z, X$ P
move-turtles$ }9 m) z3 r0 e/ X
eat-grass# Z( Y! x' X0 ?5 o
reproduce
9 h' S( q1 k a2 x- @7 h* \% q check-death- T( @: c" D( x% `8 X' ]4 O; w( T
regrow-grass
6 j ]( n# k3 r& c, E& J: T do-plots8 r1 G3 P, s& O+ ]4 c( m3 y
end0 G" ^* j- e! `6 h& \: h" S
to move-turtles7 H. H: T1 h& Z" U! A* b( n
ask turtles [, `, }4 H( v* }2 s
right random 360( n, i$ P, s3 K. Z+ m
forward 16 T1 L5 \6 n' `! B8 n1 z% T
set energy energy - 1
# t. t! E9 ?* {, D; }) f ]) v% E3 C8 `' u7 f
end* q/ c- h- x8 `
to setup-patches
4 | R9 @+ @& v6 C+ M ask patches [ set pcolor green ]
8 ]! U: A) S u4 fend: D3 O. x# j6 ?- v) D/ ~
to setup-turtles$ ]2 b( v$ x4 L" t. s6 N& w! K
create-turtles 100
$ h: @+ _, L l1 Z }$ } ask turtles [ setxy random-xcor random-ycor ]1 k9 C4 u9 y0 V, R
end" _# }: _* H9 M1 j- K& q$ M- L' u
to eat-grass
# q$ }. N0 _' V. Z# X ask turtles [6 ?8 t8 y; ~1 m
if pcolor = green [* U2 W3 T' m/ D6 w; K; t- ~
set pcolor black
1 ~- x! q) Z* B- y set energy (energy + 10)1 [- o7 ~4 C* i6 f4 O
]% h: o' ~- ]: U+ J7 r/ R
ifelse show-energy?
1 v, u$ u6 l: @) e [ set label energy ]
; P/ e+ l+ g: o/ S$ U% e! k [ set label "" ]7 ^" D! `# z9 @4 N! z1 k
]7 E' k) q9 @5 X
end
8 M5 ]$ e" t6 O9 ~& |( \4 r* ~to reproduce
% l; r% _% F4 _7 v" ] ask turtles [
* e3 M6 X1 I! c; S) E/ D% x5 W if energy > 50 [0 s) n' Y( |. |6 ^
set energy energy - 50
9 q" P) [! }, N& S x+ g4 A hatch 1 [ set energy 50 ]
( b p- `6 O& h* j6 r, S4 @ ]
* g9 ^/ ?3 O: Z; @. Q ]
9 F3 W; q* X Uend+ P/ T# y) _% Y8 H
to check-death
' x1 o3 \: P3 Q5 E ask turtles [. P# u( {7 I+ Y
if energy <= 0 [ die ]
8 q# z4 m# A$ O ]
0 K/ z" N/ B. I) w- Bend9 j5 b* @3 D, Z3 j( ]% ]! y
to regrow-grass) m4 V! p! \4 {' t! I
ask patches [
- ^. B6 E1 q& |! S o if random 100 < 3 [ set pcolor green ]
: |. Q5 ]( Q5 @) ]% B3 a* S# I ]
% }5 B/ X( u. v6 {5 xend. H8 M& J0 e( n" c
to do-plots
* v5 {( h! L4 C1 U set-current-plot "Totals"
3 f6 n* k/ z" s( Y" B" p set-current-plot-pen "turtles"( h. ^# i) p5 T7 J
plot count turtles6 [6 p( _/ q! @( s) T3 f- L
set-current-plot-pen "grass"
1 @9 W( D; s1 t+ r# d plot count patches with [pcolor = green]
: o9 _: ^9 D/ |3 G0 }% L! lend3 I2 p+ A& d- A- Q! j( T1 H
可是运行时提示no such plot: "Totals"
' [& \ f. I+ R; Q' f" y1 v' w* ~error while observer running SET-CURRENT-PLOT
V$ w( U& L7 k0 `4 v4 Z/ N; ^ called by procedure DO-PLOTS
9 |, |$ w/ [4 U4 }1 W6 q6 v called by procedure SETUP2 u& N$ x' W6 ^
called by 按钮 'setup'
, U! `7 l& C) ~$ V1 f+ Q求大神解答啊 |