我编的程序如下turtles-own [energy]3 B4 g8 x7 n9 i
to setup* h9 S5 \8 H. ]( F7 c# @
clear-all
& v; Z( v* O4 B, S; D setup-patches
) h @ q5 ?) R$ k5 w7 O8 `* d create-turtles 1009 y1 F. G4 |7 B! Z' E1 Q
do-plots
L& y$ }5 ?$ B& Q9 w ask turtles [ setxy random-xcor random-ycor ]
# l( C3 y& y. d+ {6 j1 c. gend+ r5 v/ M2 U A1 C# J% e2 ^3 b/ w
to go
6 D/ M3 D# P% a8 h& ^ move-turtles
4 a, z3 d0 |2 n- ?* f eat-grass
$ e! G% X" _0 @" n i; { reproduce& ?9 |9 Z- z3 X% r
check-death0 P, ?" K6 g( H' b9 P) O5 o
regrow-grass
( y* T& A- }0 m3 H" `( U" { do-plots
+ G8 v7 r8 q/ `+ o2 [end% g' P# [- F9 j! c2 l& [0 t
to move-turtles
9 R6 F: ~1 V0 W( U, l S/ ` ask turtles [* O8 ]: k; A; |: F$ E
right random 360
2 | r! _! t! E forward 17 F/ h8 s5 L! B! i4 z9 d
set energy energy - 1" m: V* |6 T* C, U3 x6 n5 U" L
]
2 s1 o8 i. @0 y4 g! k2 Yend
& |: r! e# i! e1 K/ _to setup-patches
* q: Y. {" ]9 l4 ~ ask patches [ set pcolor green ]
1 a- y% w, `, e# Gend& W4 Y+ y3 k$ l+ ]
to setup-turtles
: ]! ]) r# o- j( I+ T9 N create-turtles 100
1 k% U. f# K& H5 x) h ask turtles [ setxy random-xcor random-ycor ]& F; s2 P) _+ |1 |2 T) G. \- y
end$ v* I# H/ K6 r: h
to eat-grass4 x% l& ]: L" \ N5 N
ask turtles [0 |& [ H t4 a% T
if pcolor = green [/ b3 x7 Y) r+ }( A- U/ G2 d" x2 m
set pcolor black$ K8 g( u- l( _6 H5 O$ j$ q0 K
set energy (energy + 10)
7 v8 H- o! C" _' d ]
. S" y2 y% S1 Z% P4 z1 D2 n- g0 w ifelse show-energy?
6 d$ G4 o' r0 m( k$ K! e1 O$ U [ set label energy ]% j/ s* g5 K7 I! T$ e
[ set label "" ]5 b+ {$ I( @- J# ]' f
]
% M" W' n P9 t- m; iend
( a1 e; ~& v/ \8 n$ lto reproduce. y2 p1 p( }9 _' R2 j" K f
ask turtles [
: T# R! f# V; M$ ? if energy > 50 [- j; F. t# r. ^" S0 q0 h
set energy energy - 506 s8 p, s) K; `4 Y4 g
hatch 1 [ set energy 50 ]9 E2 r _. J( z5 n
]
! \; C3 \! C: n: ~ ]
- D3 J7 O5 B$ }: x% ^$ M0 ?end9 u) [7 P+ f- n
to check-death
* h+ Y f5 y9 A! S ask turtles [ D0 C- i7 k5 ~, C* {4 a% o; ~* O
if energy <= 0 [ die ]
0 i! s3 _3 [0 H ]5 a0 v' Z. C1 y% x
end
3 ^5 \1 g$ d% A1 K9 z1 g% ~% _/ B7 Zto regrow-grass J( A9 I5 n; |% n/ t% q/ W
ask patches [
$ E" F K5 o s9 a- h if random 100 < 3 [ set pcolor green ]
* @- ^4 {. f$ h0 Y9 o# T ]- u8 G/ n1 ?) b5 i
end9 K `- E$ {) T
to do-plots
% }. Z) O, q' t5 Y E: l3 R7 D set-current-plot "Totals"$ j+ A4 r3 k7 y, f) e# E9 c
set-current-plot-pen "turtles"
9 U% O5 X9 b+ |; {. \ plot count turtles
( _( I6 I9 {' r+ |5 _ set-current-plot-pen "grass" o9 k% e6 H9 G: I
plot count patches with [pcolor = green]
; O9 X! y& g7 ` e) Z1 z4 [end( f4 b; a$ C' x
可是运行时提示no such plot: "Totals"7 L9 [* k9 l: o3 q; `& V. x0 z
error while observer running SET-CURRENT-PLOT
3 B, v, z7 B* P called by procedure DO-PLOTS2 W8 Z; O5 u2 x' h; W5 ^ ^
called by procedure SETUP% M; K4 c6 p) s( D2 g
called by 按钮 'setup'
4 m6 J* J8 X% r6 d' _求大神解答啊 |