我编的程序如下turtles-own [energy]
9 w2 o' O! s% ]3 w8 e! Eto setup/ U/ P, T3 `7 t' p8 b+ M+ Q, O& u
clear-all& L/ ]: Y8 U2 ~: {
setup-patches$ C/ z, C5 V+ x6 N" ~) }# D1 l
create-turtles 100
7 M' z3 V( p5 E1 C, B$ Z do-plots
3 d' w5 T o% j- g( a3 m# v ask turtles [ setxy random-xcor random-ycor ]
$ ~, y: ?- R; Q+ Q8 k8 ] U; ^end8 }3 \# f B$ Y
to go) X l; N1 u& z, h6 h& ]8 r) V
move-turtles, w b. U! S( `6 ]" {
eat-grass* C& P# h" `" v/ Q# j* {
reproduce
2 e% P4 j. v6 U6 V1 z4 u check-death
/ s2 Z! C- a( K9 }/ y1 P regrow-grass0 O' h: z7 o1 ^9 s
do-plots
! ~! R& T6 [2 ?5 K$ Uend
4 X R# Z0 }2 m e1 L S3 Jto move-turtles) |0 N" a/ Q' Z
ask turtles [4 Q% U& u0 T) B, [' ^+ @
right random 360
' t7 |' I+ i5 L1 W: U forward 1: l. y3 M% h" |6 A! p3 w
set energy energy - 1
) P- c: J, p, P( l ]
! W% r: y. ]- s8 n8 Wend
7 W9 Q2 R# P+ i6 g' l2 [to setup-patches1 L* X- w3 Q O7 F5 s5 [! ~& E
ask patches [ set pcolor green ]
% b9 I. { i3 Jend, _& ]7 n" J; X) G! H! w8 Y
to setup-turtles
5 v! H, W- d0 G# O0 | create-turtles 1004 r- `2 F d9 s! t
ask turtles [ setxy random-xcor random-ycor ]/ n: C, a0 k' N7 l8 v+ }: q
end
1 }: d- X2 } S5 Ito eat-grass
( Q# y) w2 d4 L- X8 U5 b ask turtles [
0 Q: S+ T& h& r6 a' O& } if pcolor = green [1 p6 r( P6 h* s) v% }' g
set pcolor black
, z" X n6 ~0 h. K- }: j4 j set energy (energy + 10)
. R9 R C+ o- ]* v" ^2 b3 ? ]: J( ]& ~! i. t+ N; n: ]
ifelse show-energy?9 { X# Q4 j b. x8 H+ h
[ set label energy ]2 D4 I# ?+ a( V4 {- ?. X$ O
[ set label "" ]) K* K8 I" X u& M& K0 m
]9 ?4 d$ @7 ~% A4 T5 l
end3 t3 {; S. g1 n( w/ q# x" c
to reproduce
: Z( h& o9 D; @ B1 ]- ` ask turtles [
8 r' p) ^1 `+ \! {, J% g9 I if energy > 50 [/ D" ?5 O. V- H3 r
set energy energy - 50
# Z4 J+ {# e3 Z, t* g) j, q hatch 1 [ set energy 50 ]
. K$ w+ a7 i9 `. T2 H+ R ]$ j! g5 f5 x+ a& P( O9 [9 s" s
]& s) V) {9 ^, o- w
end( }, T2 R. e( w: ^+ f L4 j
to check-death, f1 `- b: \! H% G I0 q7 Q4 h9 R
ask turtles [4 [& k9 y8 Y) D! u0 `1 w1 [
if energy <= 0 [ die ]
! {3 U" e- T) E8 O% Z ]
, O/ b6 @; b. s1 a( B9 Yend
5 a5 U% q k4 I( |5 D% tto regrow-grass2 H! J+ e/ g9 V' P
ask patches [9 s& Q+ g! X. o4 K/ q
if random 100 < 3 [ set pcolor green ]; ?8 `" k* z# F: P8 L2 N
]
+ l% A6 t8 K/ r. z3 Z* ]- V2 [end
: n0 i% E: q$ E: yto do-plots7 H) e, h! U6 g9 [3 b9 V
set-current-plot "Totals"
& V* I1 y1 B* G' c& s set-current-plot-pen "turtles"$ l9 b, r& `& @& n
plot count turtles* C, K1 b2 r1 }1 }5 R
set-current-plot-pen "grass"! }: z8 u2 w' n# g+ h. B7 \
plot count patches with [pcolor = green]
0 {0 }' R: I; @5 J/ t; Uend
0 L; n5 R' D9 L! r+ L- @) H4 _可是运行时提示no such plot: "Totals"& L7 q2 H) Q* x' W4 H# j1 e( i1 s' |
error while observer running SET-CURRENT-PLOT# [4 S! g" D- K3 Y6 Y3 U0 j
called by procedure DO-PLOTS/ k- p6 r; U% R( V$ u
called by procedure SETUP- T6 Z4 j! P E0 C
called by 按钮 'setup'
9 L* p" y. [ l求大神解答啊 |