我编的程序如下turtles-own [energy]
+ e( n+ j; g! q( H$ [1 Pto setup" p$ D( _: n4 G m, [, M0 M4 t
clear-all& m h$ N' p# m6 r% G/ x
setup-patches
- H5 h1 p d- |$ d4 ~: s create-turtles 1005 N8 b: K8 b8 ^6 ~% _5 b9 C" y
do-plots, ]1 J$ D% g( Q: w. E4 X
ask turtles [ setxy random-xcor random-ycor ]8 {$ E5 z% G" V% L
end* `& e' j4 G( L& a N' }
to go
, L) B" @9 {/ { move-turtles
0 \" S# G* T( C7 a9 w8 x) L eat-grass U0 \% _* S- s/ R1 l, b% K
reproduce: |: l% _: w) j" S t7 \
check-death
6 i" B8 c0 v( S6 O regrow-grass; B7 p8 t# _6 O" j9 q( d, a
do-plots
{( I/ l2 |- j) {) aend& i4 D8 s( x' {* c
to move-turtles5 M4 G( X4 i e# a+ E
ask turtles [5 C1 t3 u; d0 K+ L. i
right random 360- X7 M( U% S6 o' g' Z0 @
forward 1
+ P; z( V$ e& x& Z1 M, M7 a6 m: c set energy energy - 1
) B1 e; q5 q1 o ], r( z9 {) h# f) q& e" v+ T5 l9 c
end
1 a1 b* c$ c. V$ bto setup-patches$ N/ `$ z' L3 F1 f3 _
ask patches [ set pcolor green ]" @6 b7 u4 O3 M' C
end
7 [9 ^8 E E! k( t1 ~) U/ Nto setup-turtles
2 g: W u; h& F# H4 V0 Q: e create-turtles 100) F5 Y" D1 J. |- A8 @
ask turtles [ setxy random-xcor random-ycor ]
' h. }3 M& s0 P3 ^end" z9 B; e, C# b0 E W5 `7 K
to eat-grass1 y G5 P, B, m- U6 o% ?1 ?& \4 ^
ask turtles [3 V: z/ ]: [- ^: ?8 X& h% p2 K, M
if pcolor = green [/ X5 v- ?/ z1 f' K: s
set pcolor black
8 O* k: p: a* K5 V* G set energy (energy + 10)+ h0 o0 m( G. E' E# \+ u$ h
]
M a I8 G$ G" @ ifelse show-energy?
2 g- U5 n4 C9 p [ set label energy ]
* b6 V2 r) T& q+ M5 _) A; `% l* D [ set label "" ]5 w c* h/ q, c. \' s/ L( ^$ `" j
]3 }+ u- g9 \5 u. e+ f3 Y# f+ z, a( @
end8 J/ P. f4 a/ |2 D9 Y4 v0 N8 W
to reproduce. ]9 ^; @$ f4 o' y; B9 c
ask turtles [
3 [7 F* k, i& _7 ]( y( Q if energy > 50 [
0 u# w: i2 Q* X; O1 @8 { set energy energy - 50
# o8 i/ [. R; {0 X' m: Q4 C hatch 1 [ set energy 50 ]0 K3 L; _* y& G$ l: Q
]( D7 m* F) C) Q8 |, ?* A
]% r- x# r# K6 F, A6 l9 t* D
end0 P9 ?3 e. ~. ?3 ~9 a
to check-death& i: m5 ~* S9 @7 v9 g9 P2 k
ask turtles [* F( q. o, u: ~: s: c* i: }% T# y. u
if energy <= 0 [ die ]- |6 e8 E3 S" `, O; f+ {
]( c4 i1 U1 Z1 p0 m
end1 a7 ~. V% A4 W% Q
to regrow-grass6 n1 X; ?6 J0 {8 c' N
ask patches [/ h* x5 E" X4 o" ^
if random 100 < 3 [ set pcolor green ]
1 W3 y' t2 j% ^. d4 s ]! l: [3 j% C4 B+ b7 ?
end
) M' @% D" J' L, V+ L J0 P# yto do-plots$ u% C0 N, K$ X: a1 g" z
set-current-plot "Totals"' K. }5 h3 H2 O( g2 q, u
set-current-plot-pen "turtles"
' L; P) \3 x, ?! D* P plot count turtles
! C5 _3 O) G+ Z7 ` X- I4 ^: e set-current-plot-pen "grass"* z4 o, S& L# T4 T
plot count patches with [pcolor = green]
* {" `: V# e* bend! ~0 `+ q4 n5 J, [4 D3 o* u+ ~
可是运行时提示no such plot: "Totals"
$ h% }/ D$ n5 {4 P6 A# Cerror while observer running SET-CURRENT-PLOT% N# b# h+ ~& e+ K
called by procedure DO-PLOTS- `0 a# Z( |/ s, e4 E
called by procedure SETUP
/ `# n) F) R6 i9 ?) b called by 按钮 'setup'
5 N/ w8 d5 I" e3 k$ Q( Y( M求大神解答啊 |