我编的程序如下turtles-own [energy]
% G3 ^# I2 O( Y" \6 Jto setup
1 ?( g1 i5 h; X& }6 g clear-all
" r$ A, s$ `, J9 @ setup-patches
( `1 ]; k2 J4 l+ Q create-turtles 100
2 |2 F1 l& T" B9 Z* o& j8 `1 B do-plots
/ q( ]" T1 [* Y' w3 x1 ^ ask turtles [ setxy random-xcor random-ycor ]
2 m6 q- e7 b; v. W# F8 z8 Gend
6 O7 V. X1 S# Jto go
3 a" \4 v# |4 x7 k+ C$ T% q+ y move-turtles7 s* R0 k0 W+ s. w
eat-grass
: E( p$ r5 V8 Q3 b* Z* g reproduce. `4 c: o0 {5 c
check-death* ^$ f/ X% O6 W. C4 `2 N6 S) m
regrow-grass
r2 W( ]& ~( s/ S do-plots3 `- `# _9 z# Q
end
. d9 h0 }% ~ D ?to move-turtles* K: l( S1 x" K( [; L. {( x
ask turtles [
}) ?2 |4 J5 Y# S5 n, K5 `2 N1 q right random 3609 y0 M4 H: _" r4 [; z( S
forward 10 f1 f: e& [& V- K `0 p8 G( z
set energy energy - 1+ o( o$ p% D ~# V( K, V9 k% H4 f
]
: ]* p+ {2 g8 S* ~. y A# aend
. M2 Y4 w8 f+ _$ |' bto setup-patches; x- @ r: v7 n# Y, |
ask patches [ set pcolor green ]8 v8 ]+ e& d( Z
end$ T7 r+ h" Y; D! P
to setup-turtles
* n1 _/ A. ?5 j) o3 c create-turtles 100
8 r' w* k) C% y' \$ R ask turtles [ setxy random-xcor random-ycor ]
' E y# q+ A" _end
6 c; R% I0 e& g1 O. |+ Jto eat-grass$ s+ B! b' X) X
ask turtles [3 p5 @ R; t/ o5 _
if pcolor = green [
* j$ n, p; H& T set pcolor black( A' B; g+ `; }9 B/ c5 A/ ~
set energy (energy + 10)
! ?. w# G* l; e$ | ]
, ?3 \8 M3 R* c. j! q9 d ifelse show-energy?
, D g5 q& L! b8 c. U. E [ set label energy ]2 C! ?* L5 h) a( V
[ set label "" ]
) e* ^2 X5 J; \ g ]# `6 N) Q3 T; F; D8 [; E
end2 j) O5 W- Y% z K% O0 ^# T& @
to reproduce2 q! k( Z0 D' {% w- I2 d
ask turtles [! @+ M( d8 h: u3 j
if energy > 50 [* P# c9 [' n4 ^
set energy energy - 50
# J* l" s8 A) _ hatch 1 [ set energy 50 ]- S1 K! F- B* b$ k- K6 k. c- l% B
], S6 z+ c1 B$ `( O) c1 U* @- f
]1 e S& R& _: F3 F" j
end
; ~9 i- ?! s9 ^to check-death1 B6 I' P0 [" W3 h: t E: Q8 R. H
ask turtles [2 K- F8 [7 e( h$ q; X3 E8 J4 {' X
if energy <= 0 [ die ]: z* f. q8 z1 Y/ J H/ X) f
]
& q8 G" B: A/ q$ X2 zend5 x/ R! j! J+ Y4 j6 ]7 F
to regrow-grass
5 M6 p$ V; {! ] ask patches [9 C; W) x8 I) S4 F7 l* T/ g! O9 _7 _
if random 100 < 3 [ set pcolor green ]: ~5 O8 N- E# H; G6 ^
]
" f: ?. t) w3 {8 e, q7 l, n& Lend) v3 O0 i- ? |( p( q7 E
to do-plots
+ f8 {: V* I J+ d( M9 u; D set-current-plot "Totals"' ]! l& f0 S- \: V# {3 t
set-current-plot-pen "turtles"
' h( k4 C8 [, ^4 G9 K" Y plot count turtles- z2 W) q* z7 ~
set-current-plot-pen "grass"! L9 H4 e0 W! Y/ S
plot count patches with [pcolor = green]
5 J* B: l3 S1 i- v t# Qend% x5 A, ^* G; B3 ?
可是运行时提示no such plot: "Totals"$ c' g7 j, m6 O# |# J% q: m, p
error while observer running SET-CURRENT-PLOT
- L' l5 w$ G$ j called by procedure DO-PLOTS6 W" U; N! h I* J4 I
called by procedure SETUP1 T+ k ~- T4 Y* ~( e+ H% G
called by 按钮 'setup'6 R+ @: V7 I- a+ h- k
求大神解答啊 |