我编的程序如下turtles-own [energy]
2 k2 j( w: Z s2 [( s3 H3 ?to setup
3 _# J5 u# t P clear-all
X' e# X4 `$ y+ R% Y2 m setup-patches
( O3 w- D3 i5 t* E create-turtles 100% d! {, @% ` i6 [ T
do-plots+ @ b% J# d2 f5 b7 w w
ask turtles [ setxy random-xcor random-ycor ]
" u# K) z# k$ W% aend
1 t* j8 `4 M1 N4 _) oto go
6 t4 Y, p5 l8 A6 S/ a" n( j N/ B move-turtles
( O D+ W Q4 x1 X0 t) m; T8 z eat-grass ` @ g/ e1 L. [
reproduce
2 \) r: \! s! R6 ]- m7 n. ` check-death
/ V7 W1 x# a% G- ^( _+ d regrow-grass
3 g: V* l( i: F2 a& K( A+ S8 m do-plots) c9 n# k& x4 J+ B1 z+ q9 j) e* Y
end+ m7 s6 l6 ]' b# L9 F& ~) a
to move-turtles$ g; Q4 o1 `/ G, B8 K
ask turtles [( C, @; U9 m2 P$ d* M `
right random 360
. v3 `; V. d+ P9 a' L) _: v forward 1
. P* W4 _' w6 W* K6 B1 y6 B set energy energy - 1
0 `; G( x, l. W w. n; ]) s ]
. \: p1 Z! i/ T9 D1 ?8 [) _end
5 c9 F/ W% ~7 j- D$ ]; Wto setup-patches
7 Y4 k. @8 p' P: Q% M! z ask patches [ set pcolor green ]! x" }( @& N4 U/ n% D
end
% Q: ^0 m$ D% o0 \" F+ z5 [to setup-turtles1 K0 [; Q2 t6 x' h2 _
create-turtles 100
2 L) A; R* u: M ask turtles [ setxy random-xcor random-ycor ]
# a9 _# A5 @( Z2 d$ ]& R9 uend
' d6 C/ ~) N( |3 lto eat-grass0 q: u3 h9 T0 \& K7 t9 P
ask turtles [
' D* x, h' E# T& _ if pcolor = green [; L6 A$ d" v) M. {4 V0 z# \
set pcolor black
( k, y: u+ n5 K set energy (energy + 10)
7 n! W( c d2 y! H* k ]
4 v- m0 S$ A) C" m0 C ifelse show-energy?. k, F4 P; D/ }$ L9 E0 I
[ set label energy ], z/ z! X$ V" Q( F1 |9 t! V* T$ T. D
[ set label "" ]
( H+ ]% H. N% o/ W3 z8 k ]
2 d! F9 l8 ~$ U0 t7 A# i1 Fend
0 _0 Z5 u+ O" |' G. {+ qto reproduce
: K5 w# ~2 k( R ask turtles [
# f' O( b \# H2 o if energy > 50 [/ }* `. e, J% f3 D% [9 S3 J
set energy energy - 50
\# d$ E0 \- N' I) t hatch 1 [ set energy 50 ]& A+ H2 J0 ^3 ] T `. h4 l
]
- Q5 V# i1 }2 w0 H. w ]
* f z' W# s v/ U/ p/ _end
( h& s3 |- R/ H, E" K, [' e- R+ yto check-death" X- ^2 B, e+ {
ask turtles [
% u0 ~# q! s6 i* a) T if energy <= 0 [ die ]; ^8 ^, N; I: t/ [% Y6 K3 e, j& [
]7 h4 j8 C& w0 s; M8 A8 C/ Q
end
3 t( h) h1 r& i5 ^0 Zto regrow-grass
$ |# N- R8 ^) D( a, k: i$ e# V. ` ask patches [
8 g, ^7 j1 @; ?! R7 n, @ if random 100 < 3 [ set pcolor green ]
$ G% g, z8 [% m9 F( d+ o ]
3 g, _8 j6 Q6 r( Lend
- |, M) K$ y8 M6 V4 sto do-plots
d+ J% B0 K) M/ P' A. j y set-current-plot "Totals"
7 n# d7 [1 u7 c; v R: b' e set-current-plot-pen "turtles"7 U" X+ e K4 q) e
plot count turtles6 F& k, }1 T2 G- Q6 a; ~6 V2 w( S
set-current-plot-pen "grass"$ i/ f3 ]2 W( |5 [9 I
plot count patches with [pcolor = green]* k- F8 _8 V% E, r- Q5 G
end) ^7 c( [) r; c; o6 @3 Z# _0 k
可是运行时提示no such plot: "Totals"
7 T+ m! o1 J' b. ~ ^$ Eerror while observer running SET-CURRENT-PLOT
1 U. r, g- x4 u* M0 B called by procedure DO-PLOTS
) I- Z# d& F$ E7 h$ N called by procedure SETUP) _- s1 f0 o. u5 p# L" D( F" z
called by 按钮 'setup'
* j$ w9 T& i. ?1 Q" P求大神解答啊 |