我编的程序如下turtles-own [energy]7 n. V& ^! Y4 f9 ?: H+ ?+ J1 R
to setup
1 w) g S8 T1 B0 a' Y X clear-all
( n0 F4 `: p8 l0 w. g3 a setup-patches
, n1 l! L6 B3 W/ s0 o' Z create-turtles 100) B9 Q. b. J+ l# p% m1 I t
do-plots
7 M' L! o- ]7 I4 W ask turtles [ setxy random-xcor random-ycor ]
. l3 a- C: _# {3 c9 s( {0 Bend
' R4 Z3 s i. g- J. |8 E" tto go
8 }+ h+ Q y$ S move-turtles, }" Z. Z2 F9 y* E
eat-grass1 b( Y8 \# Z* u( W, Y
reproduce
6 C" j- s% o$ h E: ` check-death. p& l& K; W. Z* I9 }. w- M
regrow-grass( z0 Q/ O* n( G, H! T
do-plots
1 t& L( t8 Z8 k ^! H/ J9 e* T4 hend- P- {5 H7 W( ^3 L
to move-turtles4 U+ O1 C% V/ i, n) K
ask turtles [
1 {& t, C, n1 P( ~) T right random 360
; d1 _3 v" O+ B+ H+ j3 }$ v: ~& R( o forward 14 T5 ]( N) B* F. }' p' I
set energy energy - 1/ X J0 b% S: L' k: a
]( t) ?& K' H7 u
end
: O7 `6 K8 X2 V/ s. lto setup-patches% n0 Y8 D' C9 e5 c4 {
ask patches [ set pcolor green ]- S E1 e4 ]/ x
end
1 T6 U; r) v/ z) ^, Ito setup-turtles
. E+ H1 T8 i5 c, |* Y create-turtles 100" V0 D; f. d1 }' E: z. I2 \- D. k
ask turtles [ setxy random-xcor random-ycor ]
$ r0 m N& y) l' m2 s' F$ q- Qend1 h1 x. U$ n& W+ i
to eat-grass: r: r5 q& N0 g+ }2 }, t, _+ V
ask turtles [
2 h$ V0 x2 _6 ?; d$ {: z if pcolor = green [/ Z% ~- _! T! t6 a' u4 F; S2 I, w! i
set pcolor black$ y: x. j) q! c/ R
set energy (energy + 10)
) V, d5 I4 s9 Q( ?9 Q" ] ]
) f9 V _. F( k1 A1 w6 o9 e( Y8 A! y. x( g ifelse show-energy?
2 S( t- w, v Y) c) {9 } [ set label energy ]
0 ~' }3 q- n: _. Q [ set label "" ]
# X6 d6 ?/ U. S3 m8 g9 f ]
( \$ d8 q3 O- \" t! X& S2 Pend8 |7 @! `- m" K: g
to reproduce
' ~4 r& {: l: v+ h ask turtles [; A/ J2 P, F7 v! a
if energy > 50 [2 H0 O i0 x5 w6 U& o* w0 @2 n
set energy energy - 50
, B- E- Y( j2 l) D* G hatch 1 [ set energy 50 ]5 G/ e. Z. L; B- `. z7 w+ O
]: x. j* ]) B9 E8 D# U, Y U! M O" N, W
]
$ E) ^8 _( g1 K3 g* send u3 Z( t7 D# P( ~
to check-death
6 e1 F% O7 x: F& V' }9 J ask turtles [
) Z* B; w6 o/ E' q% [ if energy <= 0 [ die ]3 _4 N. A9 M* i/ l
]. a$ Z, k7 k! h7 Q* W3 J
end3 ^; M9 u& T) a
to regrow-grass( C# |# l! I4 \5 }- S$ h$ p1 q; Z
ask patches [$ \* }( O; m' T$ E: U) n
if random 100 < 3 [ set pcolor green ]$ \( o# d+ i+ d. W2 f- b
]
9 l5 N; M* y' D5 R. m1 rend; W+ Z0 `% }3 h8 _' `
to do-plots
/ p$ ]- {6 U; P+ L3 ~- v set-current-plot "Totals"
& u8 T) P+ E7 F6 g set-current-plot-pen "turtles"
; z# n& O- ?6 r# {; a6 \5 {3 s9 Z8 o plot count turtles7 I0 `; @3 J# G& }" o3 ^' s
set-current-plot-pen "grass"
2 g7 n* ^ Q9 T6 w! [ plot count patches with [pcolor = green]
* C r/ I! W, c) Eend
4 u, m; v1 [& E. `可是运行时提示no such plot: "Totals"
7 K: P& y$ a8 [, Uerror while observer running SET-CURRENT-PLOT2 h+ n d9 }3 M1 m
called by procedure DO-PLOTS
! D I8 U2 k9 i) z+ k called by procedure SETUP ]* F1 C" U% c/ ~9 u2 D
called by 按钮 'setup'
. Z( [6 o& U! |求大神解答啊 |