我编的程序如下turtles-own [energy]' j0 ?$ d2 I' z% b( [
to setup
/ m3 ~0 C/ z! H# L8 C3 y clear-all3 B* Y& i; T8 x3 O8 g$ {
setup-patches
8 D3 @" e- @+ D' p5 w, Y create-turtles 100
" Z' E+ n9 @+ a$ v( H do-plots
9 r& D6 c x5 u ask turtles [ setxy random-xcor random-ycor ]
0 n3 j0 \9 d( }6 b1 J2 l0 T* Yend- W- K& o- `1 u5 h: \. b# u$ j
to go
2 @2 u( Z: V, J) T* \/ U move-turtles: c9 z6 G5 c* Z; d. ^* F6 I0 C
eat-grass
) j6 O, J0 ^" j, X& d$ M p: J reproduce
( \& Q( V* q6 ~9 B' G8 x check-death: P6 A. _/ j; x, s2 X2 h: b
regrow-grass
- e: R/ M3 y+ \+ c+ b, x# i do-plots
' L6 `' z& [3 N- Send
( y8 m1 S x I8 ^to move-turtles
6 m3 B0 r' k' g* G2 @ ask turtles [
$ @. |( {4 j& D5 F( N% I right random 360
" |* D1 l& s4 j! c9 v3 j+ F forward 1! O' W1 o/ f- J/ ?4 _3 B
set energy energy - 1* T9 Q" { X2 M# X! Q# N3 \
]7 _! {& I- e+ Y% @2 F
end# G. e! |- [# y1 H
to setup-patches
$ w, Y% O/ j# v9 g6 y8 ^$ Q7 {/ y ask patches [ set pcolor green ]
, L5 Q: H# D k: @end0 c; z" B; p9 A$ j/ O# ~
to setup-turtles* b+ x: g: z7 G8 E- K
create-turtles 100
+ A# G1 e$ S8 ?2 q+ W4 { ask turtles [ setxy random-xcor random-ycor ]! N3 B$ H( X* u9 B, m8 _
end
6 D! T4 y- H8 n& d& Jto eat-grass
( C. }# A8 F. {/ r& _ ask turtles [
1 g/ w" L- {) y) a9 e! h if pcolor = green [
6 y' }) D9 p9 i# d- r set pcolor black
- p$ K. E2 c0 M* ` set energy (energy + 10)) n) Y4 ^- f$ M% {0 s, O4 K. p0 Z* _
]
0 D. c2 n- g: w. o ifelse show-energy?8 H' X. J* o- p5 Q2 C+ @
[ set label energy ]
4 ^- V6 {( l+ U) E7 _ [ set label "" ]* ?; Q+ w8 G1 \
]
6 j+ i0 [) u( }' l3 B3 o3 c/ bend
( m* c F7 l, N2 Q. p7 _! }to reproduce
3 J, h$ r' T( `- k8 }: N' j ask turtles [
8 d1 j- F6 }7 N if energy > 50 [8 v' y: b* g" n) G5 Y$ Y/ h
set energy energy - 500 r- u: v D) W+ T- n( }
hatch 1 [ set energy 50 ]8 m, T3 q- N( [
]
2 O" J9 u" x3 k ]9 `0 g2 y9 a7 t: u- N8 s
end
, w2 p! @! ?" d+ d3 t' I7 oto check-death: M& {3 {8 c3 z& T! x4 p8 x4 G
ask turtles [
1 v4 g7 V0 M6 p) V/ T6 I if energy <= 0 [ die ]
: `4 i3 q, d+ v* `; {3 F ]
" Q: j7 p0 m* vend2 o0 V/ K% B8 |1 L3 t. t
to regrow-grass) f& [6 }/ u/ z2 q
ask patches [
" ]- {" p) E; y if random 100 < 3 [ set pcolor green ]1 [: E* ?2 h- Z& Z% f; j
]# d0 T& t4 E7 ~+ U
end& }7 p/ A8 h/ i* D( a$ t
to do-plots4 p6 x% j4 @- r) n+ p* b
set-current-plot "Totals"
2 E2 @. L; @* w0 L {9 X set-current-plot-pen "turtles"
6 j0 p* J J* w/ Y plot count turtles
8 x3 f2 I! n n* }6 M' R set-current-plot-pen "grass"- i+ `8 @% \: f9 D3 `( Y
plot count patches with [pcolor = green]9 }/ a- Q! d+ L% R' R2 ?7 ^2 _
end& B' ~- H- n9 H6 r, b+ X+ C5 ?6 Y
可是运行时提示no such plot: "Totals"* G2 v& r d5 T9 x
error while observer running SET-CURRENT-PLOT8 m% h4 e5 P# d* s; ?) @
called by procedure DO-PLOTS
# W- ]7 o0 x! a: F& M called by procedure SETUP
0 d0 C- z n3 z- @ called by 按钮 'setup'2 Z/ H- X1 _& X% G
求大神解答啊 |