我编的程序如下turtles-own [energy]+ a0 a: V% |4 F! I- l
to setup; L0 l) f5 X. e; `$ \, H* t
clear-all2 ?6 {0 v/ w" E; Y
setup-patches# g3 K, b* O; k/ T3 _# }9 `# a( m% ?
create-turtles 100( k, t/ ~$ y% a. g& W
do-plots
+ X2 N$ _1 K- w8 }: a' h& j: `. o ask turtles [ setxy random-xcor random-ycor ]
`$ r- M% N/ ]; Xend
; i1 V0 ]5 ^) Q* y% s Uto go
5 b+ T* J6 h; I: a move-turtles. T. x4 ` f0 r6 K: T! l% ~! L
eat-grass7 n& Y0 \( P$ @$ W2 c! N7 p
reproduce
# V1 \1 o+ O: D! E, X" l check-death
; i+ D* m! @( i) ^& b+ _ regrow-grass
9 o. @+ N+ _8 o) _- Z# Q do-plots
1 S9 r+ z! h, {* {/ _9 ?6 ]end
$ k# S8 b2 m4 ?# Q- _, Z$ w& Ato move-turtles3 g4 t) H: P- C% K/ r
ask turtles [
+ [* j& p& t) S/ D! ]- M right random 360; \1 C( P q7 I
forward 11 O% B2 `8 v! h; \' y
set energy energy - 1* o( T, G* f: u, w# @. {
]# i, v( |8 w# Y8 S) j
end3 ~: t1 b0 n' O5 o
to setup-patches# U1 V. g. m! n8 } B( G/ d
ask patches [ set pcolor green ]
' @' @+ i% M; `end! D, n+ U( M! [% Z; \
to setup-turtles
) z" S E% V; c& ^$ p- K& r create-turtles 100
+ L5 b6 V/ [" }$ S- b7 l ask turtles [ setxy random-xcor random-ycor ]
$ d; C$ V, V. v, `end4 D: u5 |8 u: R/ q
to eat-grass1 p/ ]# A& u" D+ h
ask turtles [3 Z) ?8 b2 q! T3 F2 a6 e
if pcolor = green [% t) @- d* B u
set pcolor black! t, a7 N# r- q% J
set energy (energy + 10)
4 H; D+ d7 ~: N+ _ ]
! D" g! j, `! ^4 ~: N* Q: A# @ ifelse show-energy?
X2 i- p! x& h, l, r$ m V. m [ set label energy ]* J& y/ b* T3 U) q
[ set label "" ]4 K7 B2 a i3 r7 U0 `: H
]
0 b3 S- k9 |3 i) Eend
8 o& F8 G: J. N7 O# U4 a2 ?+ s2 O- @to reproduce, b8 X5 ?% ^3 U& q
ask turtles [- C5 B6 e' |5 X# b
if energy > 50 [4 t9 p3 x1 c$ }) K" G- @- i0 `
set energy energy - 50
) [0 _0 f4 Q1 A" [: Z- A hatch 1 [ set energy 50 ]) P1 q, X+ Y1 w9 F& E' C8 z
]
# `/ z) Z3 q# G! D' T4 q+ m ]4 Q, [1 [( @/ O4 d: r
end
; O; s3 I4 C; c! [: v; ?to check-death1 |& y- ]" G4 c* U/ e
ask turtles [% ?3 T5 ^ m% ]% Q! \" `
if energy <= 0 [ die ]
) c% X$ w/ C% X4 E* a ]
4 e# J3 v Q8 h9 nend, B& h% n" t y) L$ Q
to regrow-grass
U. a8 b$ f) K5 d6 w2 r ask patches [1 v9 m* H( d" q1 ?& k( r
if random 100 < 3 [ set pcolor green ]
) c. o4 V( J- N ]6 [/ A, c: \1 P# _
end
8 A. a$ T1 j. Y& M- Sto do-plots
! A2 E6 H l, B- B6 R set-current-plot "Totals"
$ F) b6 j& I. E; f set-current-plot-pen "turtles"
' |9 k- ]7 A' b6 a! h. S plot count turtles
& A. |" _' W, ` set-current-plot-pen "grass"+ }: n9 v& o2 _! l; N
plot count patches with [pcolor = green]
. a+ g$ U1 q. i" _- kend( t) j7 ^2 t7 J4 o6 |% N
可是运行时提示no such plot: "Totals"
4 |( ]3 I2 `% f: {* Oerror while observer running SET-CURRENT-PLOT' m# K5 F5 R: Q- _4 k
called by procedure DO-PLOTS! I; v0 \- u( w R" C- \* j
called by procedure SETUP: A; ]4 Y1 C/ ^) {% x5 j
called by 按钮 'setup'
, T, j9 b) p8 @) v求大神解答啊 |