我编的程序如下turtles-own [energy]
$ v9 j( F; s; \% Jto setup
: D% k% `/ |0 e# _. M9 z( ` clear-all
3 J) c3 U1 |% @; \8 o& O& { setup-patches
$ n$ {* k! k( H$ |! k create-turtles 100
! I) _( G- L+ D+ ]- C3 ^; X do-plots) b* Z3 m+ j) `) _+ ?+ s8 y P% `
ask turtles [ setxy random-xcor random-ycor ]
! y, v9 L& V" d- Rend
* p, b6 A2 w: [to go
9 u G* H& d) P2 V a& u) C# W3 V) M move-turtles
, C: J# X$ F9 @) U# D eat-grass
% b' e# ^! m0 g* f reproduce/ N" T1 O3 c/ s5 A$ t% `/ C
check-death3 i% u1 |) N) ]- B/ b* B; d A
regrow-grass
- o. @3 J% y9 ^. S8 O do-plots
0 e/ i) o( c9 Kend8 q: Q7 Z1 x6 P& M
to move-turtles
5 E* q' J$ x% y2 N x ask turtles [% O. K( n0 F1 p4 J$ ?7 A6 g4 L
right random 360
( S. R( }0 A2 V0 g2 l! g8 z forward 1
+ q, h$ A& g3 j7 v5 s4 {& \8 C set energy energy - 1
1 x. J, D+ O' y' Z5 K' O i/ w ]; I+ ]$ ]) T; h4 }1 Y
end
& c- o- I3 X4 Q1 w7 t7 hto setup-patches
4 n6 h5 R* {8 z ask patches [ set pcolor green ]8 y1 Q+ x% F1 [+ v& M
end; ?, n. M0 v+ q0 q) @
to setup-turtles
& Z4 o D! b5 s/ c6 D create-turtles 1005 R* u. l' _7 d+ w& w2 E
ask turtles [ setxy random-xcor random-ycor ]. }2 Y4 V h2 F' ~, G, i$ e# [( {
end
" @" V o7 } [- mto eat-grass" l' e% T9 U' ] {6 l7 Y+ w
ask turtles [6 T4 ~6 x2 c2 ~, V
if pcolor = green [
$ V8 [8 R0 R. h6 W0 Z( V5 n set pcolor black
6 r# J% B! X1 V; ^6 n: O set energy (energy + 10)
3 u2 L7 E+ I: E, m ]
& l+ e( P( R0 E3 l4 X ifelse show-energy?
$ p9 l: Q7 a( Y8 v5 q# Z% ? [ set label energy ]/ A# c; v1 Y$ S3 g- I Z
[ set label "" ]
% L: ]7 e U1 w. F ]6 w" ~, x- q! Q* h' |* l( v! k
end
2 | U0 G; D. m" T" m9 T4 B8 Vto reproduce. [" C `: E9 |/ N; Y
ask turtles [
: |/ h H; @# n' ?* Y; T if energy > 50 [ b0 E3 G- @& o% z3 \
set energy energy - 50+ I: h# X8 \+ I1 y
hatch 1 [ set energy 50 ], \# \: i0 a! w6 h, `5 B
]
8 g6 a/ L' [. ~, P( S* r9 B ]. H, r ]/ m/ W O" Q; G( U
end3 B* ^+ ~: X1 i0 |( U: q M
to check-death7 i0 g5 k v4 }
ask turtles [ ]7 j( a. [- D( h6 W
if energy <= 0 [ die ]" q6 D' s2 T7 Z. ~) I3 P# W7 k
]6 a% D- ?/ m* j: [. ]! W8 W
end9 i1 Y$ p0 f) T4 j) y
to regrow-grass6 t$ C R, ~! O6 L
ask patches [
1 P% ?, i) I* D5 f if random 100 < 3 [ set pcolor green ]
( z- @0 u6 o) s& [5 R ]3 F5 U9 X/ M% K% G: G
end
- @4 D y# x4 W% D( g& y: }( m* d$ o# dto do-plots# J' m0 Y. Z9 @) I
set-current-plot "Totals" z' T# W: [% R* K
set-current-plot-pen "turtles"
/ ~ H! z2 r& L% K" x plot count turtles4 U5 O2 T3 a7 ~( `# z4 {! w3 z- u9 d
set-current-plot-pen "grass"
% c' c0 G8 g" M0 _4 E1 S4 p- z# R plot count patches with [pcolor = green]2 P) f+ f7 v; d
end
" c, E: k; b+ c" ^+ f可是运行时提示no such plot: "Totals"
% y8 U+ j$ b( O7 Merror while observer running SET-CURRENT-PLOT
; O2 W6 l; i" C0 E! s: a, y called by procedure DO-PLOTS
7 u8 m: j- o/ v$ B, P; E called by procedure SETUP
+ u2 s1 `2 g4 Q2 h- ]0 Q& r called by 按钮 'setup'/ E8 A$ [. j( N9 U
求大神解答啊 |