我编的程序如下turtles-own [energy]
& H8 s$ o: F: C7 n1 \' A4 |to setup3 A B7 |) C7 G, h# l; v
clear-all$ {/ R0 M" H6 O- h+ o
setup-patches% R& t/ e6 I& d9 O k
create-turtles 100
! d( Z0 f8 k% z$ M% c do-plots- A8 `7 V6 V. j* X0 y
ask turtles [ setxy random-xcor random-ycor ]
6 @6 h; P& ?5 T+ Mend+ u4 c" i: B/ Q; c% \3 _8 S
to go: b l/ {7 A3 a
move-turtles
& l& e/ y2 i/ B7 f. z0 O9 K eat-grass
% N1 P! J4 n0 [ reproduce9 n @+ f- q. y3 R* i! K
check-death2 r6 d! f. Q+ S/ b( v( p* Y
regrow-grass2 x' z% g$ |7 c: A. g, Y
do-plots
/ q0 j" f. I; v) F) Dend" n0 E, Q$ S$ ]6 j/ J* l
to move-turtles C1 q ]8 w( l
ask turtles [: @; m2 N- |) {: [* \
right random 360+ K4 n4 g% j* H* S
forward 1+ R3 n) v' w' N9 s
set energy energy - 1( O- }" _. @! T6 C% x
]& s/ [" @2 R$ A, X
end- o8 D4 e U1 w( L+ a7 e V# e
to setup-patches
% K9 @+ o' P* `6 K( }; e1 v' m: P ask patches [ set pcolor green ]/ h7 M/ `8 e3 n `% c! r j& v
end
8 G6 R2 U6 k) Qto setup-turtles+ b0 F& S2 v P2 i' ^; k. |# h
create-turtles 1003 { A$ w+ g2 d6 P8 t' b! ^& K
ask turtles [ setxy random-xcor random-ycor ]% V. b7 C8 R7 E; R5 h8 b: k$ C
end, @, {% E; {- H* k$ N; O$ S
to eat-grass8 [6 \ h1 G; C# O* p
ask turtles [1 A; o$ M3 [/ m2 ]
if pcolor = green [' X4 R) C1 B+ \
set pcolor black
( C! G( |, O$ c4 O% @/ k6 k; p set energy (energy + 10)+ Q: p$ c: K- M5 S
]& h7 w1 i. E6 Z U" Z# H
ifelse show-energy?. m+ Y4 v) |, r; |) S, k' U% y
[ set label energy ], o7 X- v/ @2 j4 F# q
[ set label "" ]
3 J$ r. n! B% i& e: b% i& p, D ]7 ^1 }( I1 p5 O& k% t1 c& v
end
$ o5 j/ J8 @% v% V( u% S+ o7 Y, Fto reproduce; U7 I1 Q2 e' ?! i+ M! {
ask turtles [; j2 O- [* D+ |- [2 }+ X
if energy > 50 [
. K* ^$ ~. U; @, Y7 u" e8 v/ ] set energy energy - 503 D" L: E/ i: e/ h
hatch 1 [ set energy 50 ]$ \5 x( c# k2 ^( E" ~
], N" Q" I: E0 G# Q" L
]
8 `* b. ^, I1 t, gend6 S5 U8 j, \% r. p
to check-death2 P8 \6 |3 z: J) M) t' i8 q: P
ask turtles [
$ x' j: T) o- S* B* E if energy <= 0 [ die ]$ a6 O) A& B$ {( [
]
0 J, `- }/ H, J+ r" W% dend3 z2 Z1 z6 d( B/ |. [
to regrow-grass
1 l% L- Z. g8 G) ?: W# r9 [3 t$ n ask patches [
( H: c& m& ?: f9 H+ @3 q1 z& U) M if random 100 < 3 [ set pcolor green ]" B! s, P9 k2 t7 ?
]
7 t1 |7 ~; `2 Rend
- H+ @) w2 V# l1 c5 d4 t9 [to do-plots
% j& f7 b% ?( y8 ]$ p1 ?/ A8 d5 ^' e/ W set-current-plot "Totals"
& }% v4 H) T1 W, v/ b; F5 g3 h N7 S8 \5 | set-current-plot-pen "turtles"
+ G# A& P2 T) c" @6 U/ u plot count turtles0 M @+ [7 S% o9 M9 R& a* d
set-current-plot-pen "grass"
# J/ E, r t7 T3 l" \ plot count patches with [pcolor = green]
0 H6 g7 p' v& ]) _end3 K5 w( R% ^4 z: F* x& c f
可是运行时提示no such plot: "Totals"
- j( o9 e: ], S# c; j+ c5 _+ serror while observer running SET-CURRENT-PLOT. W3 p5 _ ~% S0 p' r6 @
called by procedure DO-PLOTS
3 L' o. P5 _0 ?+ O called by procedure SETUP' H$ Y, Y7 Q# x9 _; c9 y( F
called by 按钮 'setup'6 J; l) b) |2 j( Z6 J$ R
求大神解答啊 |