我编的程序如下turtles-own [energy]% p* c1 v9 X* T9 [2 P% h7 W
to setup
; a- M$ r" i$ A) n/ [6 q4 F8 b clear-all( B _- t. }6 ~- W
setup-patches' e, f( i. T0 v& O$ C
create-turtles 100
. Z) Z' z- s1 v2 | do-plots
; m$ r" n/ y* [& d9 u3 h ask turtles [ setxy random-xcor random-ycor ]
# n l% d9 t! Y6 Zend
3 P Y% r6 O( w+ Wto go
0 }$ \3 R! _& X5 k+ f: _ move-turtles4 S- f6 d7 D8 Y! T% l7 Q; j+ R$ j
eat-grass% l4 f: s8 j2 g% t8 v
reproduce f, o1 n# k9 I+ V* Z9 t8 D0 E, Z
check-death8 Q& `, [4 J, J8 ^8 Y$ s+ J+ r, v
regrow-grass
* y9 u, W7 g' {. z1 \' N do-plots
# x* A7 e9 ^) d a( q+ U* eend
, t, d: d. G1 H l1 x+ l3 Xto move-turtles
5 u( k' t3 F/ b& b ask turtles [
8 o& z) {3 `3 S, J) G6 j: e right random 360
4 M' H7 D9 A+ F8 Z* Z forward 1' N( `3 t) K8 T) W' o; F4 N3 x
set energy energy - 1
; ?+ J( y; ?, l, H9 q, X% _3 m ]
4 U- Z7 K$ l: D- h0 @end
' [3 |0 Q: u- `' fto setup-patches1 E( f* a" l% r! q5 m$ [% I- c' ~
ask patches [ set pcolor green ]
9 i4 n5 q9 O2 L+ @4 aend1 _- z3 M! T7 Y* q3 A
to setup-turtles. S( n- }2 Z/ u/ z" z
create-turtles 1002 ?0 _" x4 o7 @5 @# S0 {
ask turtles [ setxy random-xcor random-ycor ]
d6 v, h9 n+ t, [5 U% gend9 ?8 M( z T ]; i1 H8 C8 ~
to eat-grass
) _: a1 L* A& X J5 D/ M/ _ ask turtles [
# M1 Y! K( w7 s if pcolor = green [
& P# c- Q4 z9 f$ G1 y! B set pcolor black' v+ h* l* S: x" O# u
set energy (energy + 10): w: Z- ?6 E! E; R
]1 U- ~* ]- w: t) ?4 i% h1 z7 v
ifelse show-energy?
9 s. y; n* M' H. c [ set label energy ]9 I- r& d: C8 _8 H) a7 a8 p
[ set label "" ]
" v% v) N ]1 z& o% U3 Y }7 e ]! {' m! A$ D3 A6 l8 E, L
end2 y/ V: a; M1 p: H8 S
to reproduce! h4 \7 [- m/ ^9 O# H% Z8 h# ]3 s
ask turtles [; M; Y) a" ^/ U4 [# T! @. U
if energy > 50 [
) n& N; V& F& h$ i5 Z1 B; I set energy energy - 50# X6 s% w2 x1 u
hatch 1 [ set energy 50 ]
7 ~& k+ _( E) F7 T( F4 u: F ]
; F8 O2 H( y* z4 y0 T9 `2 P7 C ]
+ ^" {) p6 j! m/ F% Fend
3 i6 ^+ G1 G5 ]2 U3 yto check-death8 M' G. E6 m/ A
ask turtles [0 [9 J3 V2 f! w, V
if energy <= 0 [ die ]
g; g: A M6 b+ s/ C- t+ r$ i ]' T5 q5 O) V: R. v0 U) D' j
end
3 L# t" M, y( nto regrow-grass4 R' v& D# B& W; q& Q! o" `
ask patches [! D' X8 f, l: W, V* @
if random 100 < 3 [ set pcolor green ]
# N: x( c4 {/ _7 X; j) _ ]
$ R2 f8 \5 @0 P. x; U* z" W, ~end' P6 p l8 G1 H x0 u' O$ l" F
to do-plots2 B# C# z* M, q/ S7 T/ i
set-current-plot "Totals"
7 ^% y8 X' m- g+ M0 U. e set-current-plot-pen "turtles"
. B6 @/ H0 n" ?- g plot count turtles
" \! ~. t/ V% X set-current-plot-pen "grass". b3 {7 T7 N& |" f, u3 R. A" _
plot count patches with [pcolor = green]
6 L5 ^( `8 C0 n% V+ oend
7 Y# N+ n! [$ j* X& l可是运行时提示no such plot: "Totals"
) Z3 n9 Z) D! g) V& Serror while observer running SET-CURRENT-PLOT. ~1 Q1 r7 z. g8 B9 O5 J
called by procedure DO-PLOTS
7 F: C, k. \( a1 ]1 N: u called by procedure SETUP
$ | t# y4 G& Q1 n; }* { called by 按钮 'setup'/ T7 w |1 _. D$ \+ j
求大神解答啊 |