我编的程序如下turtles-own [energy]
& y8 H+ T, X; i9 ]; y+ ]2 Xto setup- h9 T# Y( R- K+ H* U! j' J$ i
clear-all
! u0 B: J* y# r. W9 \) ~' s setup-patches
; }% t9 r- A5 Z+ F) U/ m* B; G create-turtles 100
% O9 C' l/ Z5 ]! Q- Q( U do-plots
! ~8 B8 m/ n2 X( x9 E6 i ask turtles [ setxy random-xcor random-ycor ]
" D0 p4 c3 n7 g* ^& nend6 g, t9 b! B, ]3 t. V! K4 t+ J
to go
3 R4 `( z- T ? move-turtles
1 D0 J1 G- Q' I' w; b. { eat-grass: Q M: A7 P/ g+ \
reproduce
5 z7 l6 a6 ?) Z/ H. c check-death
) N0 d" I# X! x0 ?" U: z" z regrow-grass
4 J7 k7 W( ~* I$ q do-plots T; F- a# s# ]0 C
end
" }7 L, U8 F& g: t3 Qto move-turtles
) X' Z) {1 v' O9 S ask turtles [
' c4 p9 q' i- F ~+ Q: |: K right random 3602 k8 N" Z& \$ M7 l3 ~1 _9 X8 }
forward 10 {( j3 A0 j) u
set energy energy - 1
9 d: u5 R X0 j ]
% t; }9 u3 U, p: s$ tend
* X4 ^4 E# l5 N( `" y1 vto setup-patches3 U3 c; a8 O( c1 i6 x
ask patches [ set pcolor green ]* x) @' q1 O& w
end. @( d: m$ F9 g$ s
to setup-turtles
. A9 G6 l0 S/ {! Z( G" n create-turtles 100
% C! @+ O5 p: s; [- ?. p ask turtles [ setxy random-xcor random-ycor ]
: G- d( H7 @# ~/ b, |/ t1 Zend
1 _- C* y$ g9 z; `8 }to eat-grass
2 `" `0 m' B) e5 `9 ` ask turtles [
3 @0 z4 ?- T1 i6 t9 Z4 G- ] if pcolor = green [3 B4 A6 ?3 Y; {9 ~
set pcolor black
9 g0 ^: }* k! \5 f- i& ], M6 \$ g7 e- c set energy (energy + 10)
3 [7 `* M; G2 C; C1 g4 ] ]
+ e% a/ ~0 U+ {; V4 R$ O) f$ w ifelse show-energy?0 O- {. t f2 ?
[ set label energy ]5 S" x( K/ F- ?* Q) K$ P# X
[ set label "" ]- H* x. g3 t- t- w
]
. X( P$ A( H: O [% lend
4 o( F+ s5 {5 uto reproduce
' e$ W/ U0 [$ Y: L& u9 Z ask turtles [- N+ h7 a: l0 P. q2 _3 A
if energy > 50 [
( `6 p1 @0 N" E, ^ set energy energy - 504 D. J. q- Z2 I( J i
hatch 1 [ set energy 50 ]
1 |) k' U3 T' z* [5 V& w, R ]
& o7 b+ H1 @6 N ]; G% [: v/ U" q0 b
end
2 i$ F9 Z3 ` d. a, [& Xto check-death9 p- {0 ^; x; x! s2 R2 A
ask turtles [) z8 J- D, y( b% ?2 f7 C1 ~
if energy <= 0 [ die ] w+ l* N. i! a( @# l3 ?8 W& W/ U
]2 \- o0 X& F1 ^0 W* _0 I7 m& K8 r- ?
end1 {7 G" j7 u2 i% O& _
to regrow-grass! g- r' s- r) M) }! h
ask patches [+ ?$ x( _, G F
if random 100 < 3 [ set pcolor green ], S+ Z0 M1 ?0 U) ^: {
]% a9 c" o/ w6 _/ D0 h
end \. l/ E5 B& s- S7 x; C' p4 O
to do-plots& C& P. e3 R1 j
set-current-plot "Totals"
# F9 F, d8 R7 I+ y! I7 O7 ~ set-current-plot-pen "turtles"" x. w/ G# Q3 W+ M- T, Q6 d
plot count turtles# u7 B" _/ v7 D1 _: Z- P9 w6 m
set-current-plot-pen "grass"
& O/ Q7 P% r+ c plot count patches with [pcolor = green]
/ O1 I- r7 P( }7 c2 U6 x& P+ uend
* w! [4 ?+ [, [; s$ g6 v可是运行时提示no such plot: "Totals"& J5 T# s) w3 \2 G0 ?
error while observer running SET-CURRENT-PLOT( h' [3 ]5 H/ r9 z
called by procedure DO-PLOTS
" B; J" z+ a9 h# l( s8 c: z" p- } called by procedure SETUP$ |1 I" _1 T: a3 D3 ^0 G G
called by 按钮 'setup'
" N6 ?# T( o& n4 l% l1 p求大神解答啊 |