我编的程序如下turtles-own [energy]8 t1 S4 a6 H _, p t+ y
to setup6 m' q& v! O! D( S" V
clear-all& ?9 e& l) f5 N: j. z7 i8 G7 [! D
setup-patches
4 j* L$ c. i) i; m4 \ create-turtles 100
; x1 Q7 |7 d) o8 W do-plots8 U! \* N# f( a. \7 I
ask turtles [ setxy random-xcor random-ycor ]
/ m" f8 |! i$ z; o. kend
2 Q& Z; P, S* w* N1 ?% M" b6 ~# P" ^to go) i- K0 h c+ [2 @ h
move-turtles; X' b" T3 _. ~+ V8 v) Z
eat-grass
5 b/ A+ s _ X8 @ reproduce7 W# G' O F& |' Z a
check-death
; ^0 `+ a$ V7 m9 M9 m regrow-grass3 G0 O, |+ n E; a
do-plots, K, M; A, q- y
end' {- `% m9 C. y1 t/ H
to move-turtles
' l' x; u, Z! S+ w9 X7 a z" T ask turtles [* \0 R4 A5 l- N w
right random 360- x9 Q- [, p( x! I3 O: ]
forward 1
5 \5 s7 [# X- E2 I set energy energy - 13 b2 J2 G! i3 X, a
]
/ e- j: S6 z& s/ T) Eend
& G% {$ e0 m& C; qto setup-patches J% l% C; i9 x) v3 ?7 H
ask patches [ set pcolor green ]* D( g2 B( t4 P; j2 k6 m- X" D
end R. W, t( ]$ K$ @0 ?8 C7 u
to setup-turtles
5 L& V$ D& z' S( W2 H create-turtles 100
C/ }+ |& ^) e6 X0 o. l' n2 a ask turtles [ setxy random-xcor random-ycor ] m/ \, l! n+ f/ G0 ^5 d3 |
end& q- W* U' U3 _
to eat-grass1 X! o8 F. O8 k0 r1 [3 g5 M& l
ask turtles [
7 v) C* J/ @3 u3 `- Z$ k if pcolor = green [2 M1 M% D. `3 |' S2 K
set pcolor black5 ?9 D. D7 X& N" I2 H
set energy (energy + 10)3 Y4 ~0 ]: v* k2 @
]+ \* s1 l; m& H$ t- I
ifelse show-energy?, D) D( G( w9 E
[ set label energy ]" j5 @1 {/ f5 @5 C5 b
[ set label "" ]* n) a" w# }& V$ D S
]4 `& ? O9 L" Y
end: [" l3 T: r7 P3 Q1 k0 f; r
to reproduce
% A1 m0 p/ K X4 G ask turtles [0 _ k" ]. R/ h% l+ a) X
if energy > 50 [
" P7 K" z9 Z* _! b4 ?0 K set energy energy - 504 S# }! j( R6 L$ s0 M+ ]
hatch 1 [ set energy 50 ]
: D7 Y7 k! \5 f# P, R ]
4 M. V- I3 [4 @ T/ @. D ]
* }4 X6 d' Z0 w$ U) u- Kend. P! B: u1 B* `& l* p2 G& R
to check-death
! Z+ ~ W' S3 x0 ?9 j# L. Y* E- n ask turtles [, r m9 H X4 z2 i. x& u& J( o
if energy <= 0 [ die ]* j7 ~# V. A# k0 v8 i" U+ L% ?) `
]3 ]' L# B! G2 R: P1 @
end
' ^$ K' z* }; ?" @to regrow-grass+ X: K1 @$ ]! E# l; L% U. Q* ^ s5 u2 f
ask patches [
) s9 A ]& o" c1 I# S' G9 d if random 100 < 3 [ set pcolor green ]
! L/ {* R; I) X' Q' O! V- p, v ]
# ]/ h4 ~3 q' z0 B# a. i. \6 xend
6 c# d& y$ ^- E6 R( e6 z" N' j% Xto do-plots
) o2 w, F2 [6 n, z5 a: e. f set-current-plot "Totals". B( e! d( i3 _& t, v2 h4 s: N+ v
set-current-plot-pen "turtles"7 x) e4 f8 W, N& K8 A
plot count turtles% X0 i# p2 G0 l( _5 j. _* G, W- I5 `
set-current-plot-pen "grass"0 I8 r6 w+ [/ o/ E
plot count patches with [pcolor = green]
6 B! p0 \( _* D# kend, [) n% f) O4 X/ {# c* D/ W3 g
可是运行时提示no such plot: "Totals"" H6 t7 r: z% ~' j9 x
error while observer running SET-CURRENT-PLOT# O: V9 O& f' k) q
called by procedure DO-PLOTS, `4 {) l/ v6 x: s/ C
called by procedure SETUP
$ O4 w- o7 Z' |7 X) X called by 按钮 'setup'% {& _4 p m$ V5 E! C
求大神解答啊 |