我编的程序如下turtles-own [energy]4 A8 z l$ a4 C* h5 h4 ?- Q/ g
to setup+ G$ V1 q! D+ h( r, C2 F0 C
clear-all4 ?# u- p- \& m+ \% ?
setup-patches. [* [- K; Y: G& O( {! ~
create-turtles 100
4 O9 s/ D6 y7 w: W6 A- [ do-plots
0 q3 ]$ W, }8 D W: w' ^' f# t- ] ask turtles [ setxy random-xcor random-ycor ]
. ~3 x3 J6 h: i$ l. Xend5 u: D- F; c' D ~) {4 T: [
to go
: B8 s8 v9 [. j- Y! B9 O move-turtles$ @8 {: S$ ]% V5 L* z$ d
eat-grass
' [( q2 t! g0 d reproduce" r) ~( M: t% k T7 T
check-death
8 [. M0 H+ k3 ~! ` regrow-grass
! E( K" v+ F1 P* r, [2 i" Y do-plots8 {% n6 P8 l! Y/ p$ D4 h3 g
end; O9 F# s7 H8 I K% v& O. v+ T
to move-turtles( Q1 N8 M7 G4 k2 u- @
ask turtles [7 g! B1 z u* L; Z4 }# Y
right random 360( a) U3 r6 Y0 e' z0 D, G+ |4 c
forward 1# ~$ x3 o, ]4 o
set energy energy - 1) `$ |$ y/ e9 l# P" {/ y0 `6 g
]
1 U: P- _5 B( W4 Q1 y! D8 Iend/ m: ^' K1 ?5 t: f$ n
to setup-patches% T# A7 J& u9 t9 J! ]4 `
ask patches [ set pcolor green ]& H+ w2 K% i+ W9 @1 [
end0 ^* o A# p: h# N! z' Q+ h( t
to setup-turtles; O z+ v. {5 e! j# z) _: y
create-turtles 100& L! C0 _- n- D; G% {( J
ask turtles [ setxy random-xcor random-ycor ]
5 B. n+ p4 q, t) T: d: Z; F: p" Tend, u5 {/ G; L* G1 v' k [" W R w& u
to eat-grass7 d8 F4 Z/ v/ s9 Y( f4 r
ask turtles [/ H: L5 a0 N! d/ }' h/ I5 S
if pcolor = green [
& h4 C' o/ {0 j set pcolor black; h/ e( c$ D! P, \4 e* [5 @
set energy (energy + 10). m4 R1 u! @2 H
]
0 }+ V; V2 x0 }; D. D ifelse show-energy? o( ^3 ?. }% `4 q7 G
[ set label energy ]
5 |) E* L' ~* C; p. ^* \ [ set label "" ]
7 V7 t2 [1 b; A- v# J ]
. ^* _3 N1 k& ~# }& h, Kend9 U5 \, m5 t; c. V) x
to reproduce
! P V& x4 F- Z ask turtles [: c( y: }- S, Y
if energy > 50 [
! f1 |, a9 d* Z& H9 q set energy energy - 50
9 y* {! B+ r: U5 q+ {7 a! q hatch 1 [ set energy 50 ], h5 {7 u A9 n- m9 m/ r
]! U3 K7 H* k3 S8 [( b, U1 K$ P
]. o+ T2 z5 k" |
end
* u- s1 }+ x3 u: s% yto check-death
: h( w4 A$ c2 R1 } ask turtles [
1 a+ D; W) J0 U6 F9 m if energy <= 0 [ die ]' H( _3 ]* V& u6 H1 N
]
, |: `7 n8 {* z# F3 |4 ~end Q4 Y$ ^. a; r
to regrow-grass0 N7 W6 c# N- X
ask patches [
3 I0 P* ?3 x9 ~$ W% V if random 100 < 3 [ set pcolor green ]
0 F1 C5 L+ F$ p5 i! p) } ]
& S. |' R3 e+ X0 ?# y- {end
( Q6 M$ @- X1 D3 ^- uto do-plots
L2 i/ n5 \2 X3 p4 f. ~( Z- n set-current-plot "Totals"
# E) z$ R1 X6 _& | set-current-plot-pen "turtles"6 W- h! O# {5 c+ M& l
plot count turtles
" E9 W/ T) @3 x. N) e0 c) C7 f0 ] set-current-plot-pen "grass"; |- r& \9 I" `! v& X) h/ B
plot count patches with [pcolor = green]3 m& C3 [' b( M( ]. F
end
+ n4 s+ w* Q5 L. \. n可是运行时提示no such plot: "Totals"" L/ }$ a4 E; g3 Z- v
error while observer running SET-CURRENT-PLOT7 E( F/ _5 T7 p; R5 b, k2 n& g
called by procedure DO-PLOTS5 t0 {# H2 N, }+ r2 j- r
called by procedure SETUP9 M3 G% E) g: B" g9 L/ C7 X
called by 按钮 'setup'
$ M; {- U* C8 A求大神解答啊 |