我编的程序如下turtles-own [energy]
5 K1 P4 r& I8 F- ]5 G- uto setup; R4 D) R' g* h8 t% Z
clear-all5 Y/ C {! Q, k$ U; ]2 p5 V
setup-patches
; V" G' Z5 g2 [ create-turtles 100
% N( Y: W8 E ^2 e+ ?2 t do-plots
" `7 o7 K0 w0 z) |) @ ask turtles [ setxy random-xcor random-ycor ]7 ^: e4 o5 E6 Q1 u a7 ?
end/ t# q- U9 ]5 r8 l
to go
, X w7 }- c5 }! z0 P. g: U3 c( L move-turtles' k3 u; T# f7 Z1 P, B2 t; s! G
eat-grass
3 G4 O8 k9 Y: p. T1 O% y6 w4 J reproduce$ K, j, w! b+ ?: X8 z5 y
check-death2 ^0 v* N* ~9 h
regrow-grass
' Y8 J" R3 ]4 l% W9 C& n" _ do-plots
3 ?1 A5 |3 X3 ]+ D1 m$ e' jend& q t. I' l% m
to move-turtles# Y+ Z4 ~" g* A) f; a }' r
ask turtles [2 y0 V# Z; D0 I1 Z$ E. W8 R
right random 3606 I* i7 B5 B+ D6 i) x% \9 X K
forward 18 f' r! G2 R# z- u# v% `% a) Q
set energy energy - 1; I9 |) n6 \1 l u7 U/ o; {9 ^1 v$ V% p
]0 x3 D, ]% k; I( C1 {: S h& k7 z
end
2 Q) F, S2 Z' t5 z& Zto setup-patches( r# f# W" z8 r" y
ask patches [ set pcolor green ]+ {5 P/ {7 @; W8 \
end
6 O2 s, i* |; E kto setup-turtles
+ p. k# Q) a9 ^2 `# s) i' w create-turtles 100
+ E. E5 [. j J: {: W' ]8 Q ask turtles [ setxy random-xcor random-ycor ]+ G- g, `9 y1 q1 l$ u3 K
end
4 v) k0 `- g0 z2 a9 }! w; j6 {" n. i& s9 rto eat-grass
" L: N) Q- p$ H% P/ f6 v1 K ask turtles [
B' Q- n3 Z0 [4 ~3 N4 s if pcolor = green [8 _: x9 |/ Z! t) W( N
set pcolor black
* X" L# ~. \- R7 F+ h9 X1 ` set energy (energy + 10)
; E* }+ \, S- ?/ i0 H7 z ]
& e! n7 x" o% P& x! K, B5 o ifelse show-energy?
; o+ m i( k* R" f( M [ set label energy ]6 x6 D- Q3 y' e9 c3 q3 m
[ set label "" ]
# D) @% M( N2 K4 ` ]
5 C) R; q5 X" \6 Kend
/ d% t+ Z* }- ~& ~; oto reproduce5 j) r! j, a- l8 i% C
ask turtles [+ Z0 f+ ~+ U8 a; o
if energy > 50 [
! i2 s7 c$ D7 J4 y7 r! Z# A, \ set energy energy - 50
: _/ s3 I7 I i hatch 1 [ set energy 50 ]
8 S( k( E. W$ Y3 |' `+ W: R* Q ]1 q2 W& i+ O+ ]1 c5 k
]- }; p9 g3 ^! U8 f1 F' G7 v
end4 N1 H! v1 B/ G* L8 J$ K/ E6 u
to check-death. c% Y' h/ F5 p8 t) |! Q; d
ask turtles [
& W2 G8 C: W8 @* T' @& o if energy <= 0 [ die ]+ g. x! U1 O4 {. M ]
]. v- h5 j$ I' F
end
$ B7 _4 T. M' f3 J! @to regrow-grass2 U0 x. Z& C7 G3 {$ E; w% u
ask patches [
# f: _ O q" n$ T" o0 F, f; r/ C if random 100 < 3 [ set pcolor green ]5 w0 ~7 C+ Z# } A
]
# S# N7 K4 @# D% a& ^end* D0 F1 ~# P& D( T1 R* W9 g
to do-plots
w8 c$ E8 z9 t, ?' c8 v set-current-plot "Totals"( d( e$ Y; Y- @& X
set-current-plot-pen "turtles"( d/ j- U [) ]* _+ x- M
plot count turtles
. I8 o" Q* [2 | set-current-plot-pen "grass"
# |+ @' N- C3 d0 \7 e) e* N e% N plot count patches with [pcolor = green]
+ g. q( h" |7 x9 C! j" W8 Iend
7 `7 @- }, U1 m# D: l: S1 A可是运行时提示no such plot: "Totals" t5 I( h# T: p' ]5 ?, Z. {! P
error while observer running SET-CURRENT-PLOT+ W$ k% d4 L- r6 i& `
called by procedure DO-PLOTS, ~' M& G' z2 x: Y! S1 n# a. w6 M
called by procedure SETUP+ T7 { ?# V1 l; ?3 \# v0 p
called by 按钮 'setup'
1 S0 E2 ], g) B/ [, O求大神解答啊 |