我编的程序如下turtles-own [energy]" q2 d! h) L3 g$ U
to setup! B. n8 p! B3 ^0 c4 k
clear-all
- {8 C" c" R f# E N setup-patches- J" w. s' E- Y4 _, W
create-turtles 100
! N. F* S4 b* E! J! b do-plots
) } O4 q) [% f ask turtles [ setxy random-xcor random-ycor ], Y1 ?7 C8 r+ o0 K8 }- d. t
end
; E* X4 F- B4 _7 Ato go ~- ]5 ]3 Y1 x% U, {. a5 {0 A: b
move-turtles
4 W' [- A9 x: K- n( d# L eat-grass; F# y9 o& h" C
reproduce
9 A+ D& T6 T8 R b+ d8 u# } check-death5 ^( h/ t; z, V0 Q
regrow-grass8 Y1 N5 ]/ n9 |
do-plots6 ]3 R q3 N5 [! @4 N _7 \
end: D3 ?. _# b: W+ T) i
to move-turtles2 K) `# e* S& H1 v) H& Z
ask turtles [
1 }. b" A" X. F/ O right random 360
* M' ^/ k( z! c5 e* D P. c# [ forward 1
1 D9 H) B2 r- {; ?" N set energy energy - 1
( h. r5 d5 `0 i/ k$ t2 r- O ]$ F* O8 m& J3 b2 @) P; _! G
end
( \( u* M2 W7 L3 Bto setup-patches# l. M( x7 H3 L7 p- Z
ask patches [ set pcolor green ]
/ n s) ~" i- zend/ K* z& X5 K4 B9 ^, K# G& r8 y
to setup-turtles
% M: a% \5 {8 s" g, H7 G! z) U create-turtles 100* J* w6 O# } j, \$ u
ask turtles [ setxy random-xcor random-ycor ]
! E0 L6 x+ { L; U: g, S7 d% |6 `end" j. u4 \$ R% a' U5 Q2 ?' [
to eat-grass9 {; d7 t* q4 r1 [* D( l5 h
ask turtles [' N% m+ K. ]( V4 M. }5 q. M
if pcolor = green [
# i- x! P; f$ m7 I. Q set pcolor black4 }- n/ Y0 M- v/ ?0 x* }& B
set energy (energy + 10)
0 z: n q; v; R9 c d$ q) B1 n ]/ R# ?8 Z! G& } l6 ~7 J
ifelse show-energy?
* r- Z* g8 G) ^! [ [ set label energy ]
v1 \/ c3 ?; O' j, H [ set label "" ]: T @) W4 p1 { d9 t
]6 _7 Z/ {' [" R9 W, F
end
3 e6 h, K- } b+ Z" ~- \" D6 Oto reproduce' u6 j/ ~9 O* ?& D# ~; d# P. z5 R3 [
ask turtles [
6 i; `$ Y+ _7 E( Y/ k5 O5 `& A1 \' X+ | if energy > 50 [
1 v9 u6 O/ |* `& H% M set energy energy - 50
* p, p5 ^9 D: @: D hatch 1 [ set energy 50 ]. V1 j1 p2 T$ D) i: K
]* J( o! j @8 A1 P, a. Z* y6 s1 i* t
]" D5 R! F/ w; W2 O/ K
end
, g/ [2 z1 `8 W9 j# {9 |& m; l$ W! wto check-death
8 s7 x8 @- U1 e/ L- u ask turtles [. s3 d2 K5 v5 ~! B+ z8 q! t+ c+ i
if energy <= 0 [ die ]
! U$ v) ^: e, y. A5 I; X( C$ w0 | ]9 g. X9 `$ d a g( E+ z
end
8 S6 H. n% B7 ~3 a9 Wto regrow-grass$ L2 R- Z* `# T7 c/ Q% z
ask patches [( _- V! d5 l/ {6 L; {7 p* N# X
if random 100 < 3 [ set pcolor green ]: Z s0 t P% C1 H
]
+ |/ h5 M2 P$ D; ] l7 O* h% Fend* H% {9 y9 }: r
to do-plots
/ b2 z$ n9 l2 n5 D$ E6 R, C set-current-plot "Totals"
. _3 t7 Q% ]1 I2 ]3 l- F set-current-plot-pen "turtles"
& T7 Y% F+ Y8 C plot count turtles1 m8 y4 y" ^- A1 f |# X9 y
set-current-plot-pen "grass"
5 o' Y* Q* Y' [; B% R1 \! ]0 G- v- R plot count patches with [pcolor = green]& q9 C+ q( D& s: l
end
' `5 c( O4 B# t5 ~& V) ?5 b7 b可是运行时提示no such plot: "Totals"
+ i4 H4 Z2 G) }8 perror while observer running SET-CURRENT-PLOT6 G, |$ t1 G. b* A% j+ W
called by procedure DO-PLOTS
7 u+ a& ?! I* q2 j called by procedure SETUP8 S u1 p) W7 w8 b
called by 按钮 'setup'
+ B2 T% J& W) o1 A求大神解答啊 |