我编的程序如下turtles-own [energy]
/ ^, w3 Z$ K2 mto setup+ K( w2 d( I x( G8 W
clear-all' H4 t! w, Q4 I `2 ~. E
setup-patches
% e1 C9 H3 X2 X& e5 G9 a create-turtles 100
& T1 s. r6 Z5 D" C5 R- J do-plots
+ N8 k' {2 L* W/ w5 h ask turtles [ setxy random-xcor random-ycor ]
# J1 y" z7 B. c) `) iend
& u: B" _* e( e* ?5 O) e) yto go3 a7 B7 [$ F4 [5 ^
move-turtles
+ w: q4 b) A( a+ ]% F% t eat-grass
3 v2 N _- T7 o2 `' {6 J0 p reproduce
4 W. i7 ], T- p g8 y check-death
, T; q! @1 A7 k regrow-grass5 p! x1 g8 T/ C
do-plots4 z+ A* P8 s' B1 \' a" Q* X2 o
end
8 _ k- A) x- M" h" S3 w* a4 {to move-turtles9 V) @' h* u* ?: P9 r( s1 U& @
ask turtles [6 X; C% Q" g! L; b* |7 p. I
right random 360
, A/ i* X" A; V forward 1
3 l! n4 j9 L& ^7 Y( F9 P4 _ set energy energy - 11 W1 B G1 f& u& h! M1 [: m' e4 b3 ^, o
]
7 W c. F; r; Q* r. C9 G3 W/ Fend5 \ k! X8 b o$ x3 M1 r! D
to setup-patches
- m) ^" J6 Y- F" \3 a* M ask patches [ set pcolor green ]9 d" S; I% y8 I W
end
1 A4 B' ]- w$ `, a; m) Wto setup-turtles
2 n( V9 {* k s0 v9 w& G* T4 D create-turtles 100
& c r3 ~ I" m7 ?$ Q ask turtles [ setxy random-xcor random-ycor ]: o' X- {7 s% J8 C
end
. K+ e2 w+ p! |to eat-grass
% @& B/ o* c/ S! ^& w ask turtles [: L7 C1 W, n; F) j, p3 |1 X
if pcolor = green [
e0 q" b t0 \# ^ set pcolor black
( s5 m7 n2 b* ^$ v. r+ _3 q set energy (energy + 10)7 }7 I" t% m, D1 T! J( [
]$ {/ y- t7 I) G9 l6 T& W
ifelse show-energy?4 o; ~( Y4 R- j( o1 N
[ set label energy ]1 j' O, y$ k/ u( P/ y4 s! C" X
[ set label "" ]' q! ^( R' |6 A& M, |
]
5 W$ S- j. _& ?4 Y& R# D0 j, I4 h" _end+ h V# L3 V% r9 A/ F
to reproduce3 e8 x3 o/ ~0 h* Z" N, K u
ask turtles [
0 s5 J M. n$ \0 s7 O0 h if energy > 50 [
8 R- y; q3 l1 T set energy energy - 503 k" }; H( k& U7 `
hatch 1 [ set energy 50 ]8 n- B: ?4 P- ]
]. M6 I) E2 X" A
]3 ^- f' Y+ G( S( Q& Z6 Z% O
end& I( r: |7 _+ Y2 h8 Y+ y9 r
to check-death- G* y' g/ W5 }, |$ c
ask turtles [4 q1 }* k6 k% a/ t
if energy <= 0 [ die ]& y+ E/ O* \; A* k5 Y7 Q
]
/ ?% W# J# B0 Z# uend
( u8 q. a7 z6 u/ H; b6 Zto regrow-grass
3 |( {) P& J* ~1 D9 e6 J* @4 G. ~7 r ask patches [
3 L6 \: a# c# J( r! E. z if random 100 < 3 [ set pcolor green ]
+ Y& @* \6 [/ J$ e- a ]
) a: C, \/ }( zend$ W* T6 ~: r2 y/ ~3 L' V
to do-plots
8 Z G8 h+ q. Q& Q$ }. M set-current-plot "Totals"
* ~9 x$ P% C Q' ?$ r set-current-plot-pen "turtles"2 v V$ _( q9 q8 n9 H1 @7 R9 \
plot count turtles
1 H9 i/ A# \/ q; C set-current-plot-pen "grass"2 p% @$ r9 v* c/ K% T# e0 [
plot count patches with [pcolor = green]
/ ?+ A. @: J6 g! N" nend9 u! j4 g( s0 Q# E1 x' J
可是运行时提示no such plot: "Totals"
/ c# R) v& p7 `' p' cerror while observer running SET-CURRENT-PLOT
1 t* s8 G/ G/ g! h1 t/ Y( D called by procedure DO-PLOTS
: w0 Y, O9 |1 }. |( O! m; W called by procedure SETUP
; H8 ?" k/ l- o0 P ? called by 按钮 'setup'
( D! s8 V& x o1 w6 W: p% H求大神解答啊 |