我编的程序如下turtles-own [energy]
1 i; c* j. k8 d+ N" C* I# ]to setup" I) r, N' w/ O$ ~
clear-all E* ]6 Y/ r: S" y
setup-patches( ^ a2 R% p9 ?; J
create-turtles 100; A4 W* s/ p. s
do-plots \* b1 |4 n1 Q
ask turtles [ setxy random-xcor random-ycor ]* t/ u ?6 Y$ m1 ^9 j9 U
end8 P5 k8 F- R* i# q; J5 f
to go
& o& E- F4 ?* E' k move-turtles
; A( c+ c( m* I3 y eat-grass
; f) z ]+ ]9 p; U z |; h reproduce
3 \& i( C0 D8 O: w: X$ b check-death) o6 A, K3 w8 t* v9 u
regrow-grass% O/ M5 B6 X9 n% A3 r7 M
do-plots
( A" S3 h6 u) g& S! `- Tend
; R8 h( P: X; Q$ ?, m, Yto move-turtles
% D2 ^# n1 S9 i& m' Y. ?' p ask turtles [% H. ]( q' B( w# X
right random 3601 Z9 s, B0 E0 ^, \
forward 1* \0 Y+ S& v9 n& S( O" c0 b
set energy energy - 1
+ W1 y/ V+ _! S2 E( G! O' D2 \ ]
2 k5 N2 `4 I2 j* f+ J3 `/ Nend
3 k% u! _6 M: b( l8 Zto setup-patches7 r% z0 s) C! B3 B C2 r# z6 Y
ask patches [ set pcolor green ]
! ~- h% X4 [$ }8 h! ?7 Mend. t/ L" V9 l: Z* m% N* Z9 `
to setup-turtles1 n$ A& |( {% h
create-turtles 1007 @/ f- T( b( I9 T( M# D
ask turtles [ setxy random-xcor random-ycor ]
# F+ T' E; h# v$ P( c* v; }end+ b( L1 @, B) Y6 h. j; n: n
to eat-grass) p3 X9 F8 _0 y; p- {. |) ^, u
ask turtles [
- D8 Z: A7 }3 _: S9 c2 v if pcolor = green [* }, e. m+ ] ^/ p% D7 P
set pcolor black# c' t* D* H3 E7 {2 z& a$ y* w7 O/ l+ V) P
set energy (energy + 10)1 i/ Z$ j+ t% i1 _! U
]
- l+ V- }, o. ]# G0 ^' `9 u ifelse show-energy?/ B* X- `0 z+ ^. M; [
[ set label energy ]
+ b7 X9 N/ W n: d [ set label "" ]6 T& h2 v0 |6 a0 {
]; G f0 l8 E+ R( E$ D- ]
end% N) |; A* [. J* M
to reproduce
! p$ h8 k) m& z- V ask turtles [& c3 {, P, E: Z- ]/ }* K9 G
if energy > 50 [
. g5 w u' G4 F5 s3 O0 @: [& s# f set energy energy - 50: U( F( {5 O. k' W8 O/ Z
hatch 1 [ set energy 50 ]
/ r2 r' D3 l, L- ]; @ ]+ f/ _- |" t# D. e& R3 Y9 V1 F) ~1 A
]
) G2 B3 C; [0 h, Mend9 ?2 T6 c8 F) m) z
to check-death% q2 _, F6 ]- }) W
ask turtles [
$ n+ T Z2 k8 V- G4 W8 j; e- T if energy <= 0 [ die ]
( K1 I; S1 T0 h m3 \2 e ] l- q4 \/ Y0 D8 t
end
. [2 R7 R; j1 q* F6 Sto regrow-grass
- Y( q( F6 |- K8 |" w ask patches [
" a. v8 e+ j( P/ z if random 100 < 3 [ set pcolor green ]
; @- |3 _0 j) g" g1 F k ]8 W" {; G) ~! Z+ m
end+ }, x- `- I. V' R6 U( p- \2 _
to do-plots) K. \1 E- x% ^5 u* ^
set-current-plot "Totals"- X" p7 s& o9 c- u) n9 Q9 F' C
set-current-plot-pen "turtles"
) E2 h H, k3 H7 j9 j1 C: b plot count turtles- j3 D. Z6 R8 A; e: Z) W
set-current-plot-pen "grass"7 `$ i0 p" R f' e) u. d
plot count patches with [pcolor = green]
! o u9 S$ Z' h1 b! G3 send7 g: s' ]1 `% r3 Y; L2 j6 R3 T
可是运行时提示no such plot: "Totals"3 R, r1 S6 w* m! s
error while observer running SET-CURRENT-PLOT( @8 v" M1 O, Q; ^ M y- N
called by procedure DO-PLOTS
4 _1 N: Q/ \( `* M called by procedure SETUP
$ F0 P& D) `- C% K called by 按钮 'setup'
* _& J# g/ x3 L求大神解答啊 |