我编的程序如下turtles-own [energy]
/ C) ]5 v& n S+ G$ \$ v$ Ato setup
* ^& [8 }) B [# ~ clear-all
$ q! O: n. S; T9 r+ }! ?) x9 d setup-patches
5 @5 s0 U ^ y5 J: j create-turtles 1007 n9 ~# s/ [# g4 e3 `) n; H
do-plots
: f H: p6 h! p3 [. ] ask turtles [ setxy random-xcor random-ycor ]
# i4 ?% \* ^+ _end
- ?1 R, s: U5 ?3 J% l1 bto go/ u5 o# U1 U2 L) t, s% j
move-turtles
) u+ o. d& i5 H& K/ U eat-grass9 G! o, ^* E2 l7 ^8 b! L- j
reproduce
$ G1 [3 h+ ?. a+ I# q5 u check-death0 j6 |4 b% h8 |; x" g" U( g
regrow-grass& j7 b, V" R/ C
do-plots
! t3 ?: Y, M( rend. |2 u- b% j( m0 x+ Y! ^
to move-turtles& l, ?6 T, q! R# D* V, n' k/ i
ask turtles [+ j8 p/ C* t; c c
right random 360
* a8 l+ Q0 k; o forward 1
. N$ z" y. Q% w4 {9 v3 ~+ E" @ set energy energy - 1% }5 R' y" S# ?6 x, u" J9 N( j" Q
]& m+ K \! h; K
end0 r; K5 [+ L% P2 O' v2 A
to setup-patches' H( M2 a( T3 G& U& t# N
ask patches [ set pcolor green ]* u# \3 F7 N9 ~0 y/ G
end
0 Z, d/ S; h' j- pto setup-turtles
6 p8 P! F! G+ o4 P# O create-turtles 100
4 U1 h' ~- i; J3 F) Q1 e ask turtles [ setxy random-xcor random-ycor ]" I- v" w7 b( v+ `
end
0 a" b2 a5 u' J- ato eat-grass
" f0 v' A* l0 H |" ]5 B9 @ ask turtles [
& h& ], b0 S' C if pcolor = green [5 z& f. x- O/ P- [( x9 p t
set pcolor black3 ~: |' L: H; m) D) \. m$ K3 ?: F
set energy (energy + 10)
. ~+ a* s" n h; } ]
( A* Q, b$ B' B, k: v0 o ifelse show-energy?- x3 j9 O) e# T9 n0 M" R! U
[ set label energy ]
% ~7 E. P" l; Q2 ?, @ [ set label "" ]6 X4 X( S3 e* V; f3 t
]0 G% b$ ?. G8 K* j0 m7 ]
end
+ |" q# P3 w6 U/ Zto reproduce
) o& M. l$ b; {% Q" q9 s ask turtles [$ i9 o5 `8 \5 h. r5 |; W
if energy > 50 [" N. I3 Q6 y) ~! h' ^, U
set energy energy - 505 [5 S' t; k! y
hatch 1 [ set energy 50 ]0 D" W5 ]& r1 r8 T5 U! C
]
: c. m( k2 w2 [( T+ T7 ^/ a: ^ ]
* X# a; B* r; A& ~" U$ ?end
. K! m1 ^& g3 l3 [, \to check-death7 H! |! t" G. B( c0 P; z9 j% P
ask turtles [
$ @; ?8 S. @3 t; S$ `% s if energy <= 0 [ die ]
; ~3 z1 o$ w _0 a( \ ], C5 U1 L0 V$ n5 p6 R
end
9 s! N+ ^: \- b" D }+ g4 Y; vto regrow-grass
' J$ p z: @' H ask patches [- |0 i3 |' B; ]' f
if random 100 < 3 [ set pcolor green ]
, v9 F3 r# O* G7 o ]
2 Y/ \% Z% ~8 b1 C4 m/ Rend
1 h5 o* s* Y+ x, Z* ~0 p; o6 h6 Vto do-plots, X1 R; y- ?! @* g
set-current-plot "Totals"* n9 @% `& N2 [1 o; }7 n$ A
set-current-plot-pen "turtles"2 h% l1 N. W m M, r
plot count turtles
* W6 q) `, S3 _( D set-current-plot-pen "grass"
. F1 S$ E4 I" h t9 \ plot count patches with [pcolor = green]
$ e" e1 q# \2 l g; f. K& M! }5 nend n% U+ G4 _7 L( k" p# ~% N$ U# ?
可是运行时提示no such plot: "Totals"
+ E+ k( ^$ L0 N5 q3 k9 K9 S) Nerror while observer running SET-CURRENT-PLOT1 X; |5 H& n2 D! S" n* l/ r, A2 Q
called by procedure DO-PLOTS9 c& p8 E. q. b, \( O- W
called by procedure SETUP% P; `5 V* q. e! n. b2 i# S5 b( R6 J
called by 按钮 'setup'
8 [! I; T( ~- h I求大神解答啊 |