我编的程序如下turtles-own [energy]& `! j0 O* v# X$ m
to setup
0 P: C8 W: S! ^) N V clear-all% J n, L3 T& A3 P. Y/ l9 ]6 e
setup-patches
4 G, n$ S1 o$ w! F create-turtles 100
/ c, U3 G! K+ Y do-plots9 H: x2 [8 ~3 Y9 B9 ^
ask turtles [ setxy random-xcor random-ycor ]6 P& R. `. D$ k0 q5 z
end
' W* s5 C4 w/ q* U% Jto go/ P" e; R+ B# ]( M3 t
move-turtles
8 Y; D5 F [7 V5 g$ Y" L eat-grass; _- y; l6 H& J( o1 v
reproduce
0 g' f! g ~1 Q2 w+ O' U' n- p" _1 m check-death1 P% j) o$ |$ B, V( ~- T
regrow-grass8 p8 y3 u* j* R& a
do-plots
: `9 R- M% I9 i; i8 oend4 \% K& }+ {& Y& L# f
to move-turtles
' D- r4 p6 M: R) s; @ ask turtles [
1 e! W. ^* D9 ]' |: ] right random 360! J/ S0 }4 P1 ]
forward 1
" T3 X0 \# A* r0 S* E set energy energy - 1
7 ~% Q! f6 b7 n4 B/ g) Z ]
/ P) _+ v K9 gend
, E$ w+ Z% d, N& a$ w$ ~to setup-patches
9 q, P; E# b# Y ask patches [ set pcolor green ]
( @7 N. L3 _) c% g5 \) Gend
Z4 l/ Q( l" D! R3 B7 O" o, B: Nto setup-turtles
2 D- G9 i. ^! L3 b. F4 z create-turtles 100
4 [% A5 k' ?0 I5 y ask turtles [ setxy random-xcor random-ycor ]
* s1 X/ c# C$ F& R" S) U1 bend0 ^: m9 z' j) F8 t# z1 Q/ V
to eat-grass J5 G5 g: i1 C
ask turtles [
/ E# J N* \6 Y' r' {( i( {& E if pcolor = green [! C0 t5 N: P: X
set pcolor black( I6 i, I ^- [1 N1 n: f) v
set energy (energy + 10)
( l: L1 n( y4 T3 R* y+ F ]
. f1 F5 s" o4 N0 Z: u ifelse show-energy?/ m, J- @& O8 O( ^6 ^0 ?6 o' C5 I& K
[ set label energy ]
) Z! j' W9 j4 ~6 G$ s [ set label "" ]$ ~& y$ q- S5 }
]1 r- Q9 V8 T# D- m7 A( q
end
0 D3 U! K( R* l+ [4 vto reproduce5 N6 f; X. D, ~$ A# a8 e
ask turtles [; H. L3 F- h' ~0 G) a. L
if energy > 50 [$ b, _# G: ~. [! V2 K
set energy energy - 50
7 r$ e* n: @; T6 ^) m5 n hatch 1 [ set energy 50 ] J8 D7 w9 o' o; _1 i# S" |
]
: n$ H7 z$ r' a" N& Z ]6 U9 i& O, s5 h A$ j- d; N3 P/ T
end* L" F3 W n. ^( d! |" S: c
to check-death
?1 U! r/ q9 m6 |! r5 r' Z; ` ask turtles [
' w, ~6 ?" ~! @# I2 L; W. a if energy <= 0 [ die ]7 f4 b5 ?9 B' V+ `6 Q0 c
]
" |2 z; l! f, e$ }end( r5 X! Z: f( D: e* \ [
to regrow-grass
8 e! T5 Z9 A1 }% A, x4 i ask patches [* w4 S, S8 M5 p' W
if random 100 < 3 [ set pcolor green ]
0 c3 }- e" d( S6 n' r. S ]& |* x- L. k' l9 |
end( b7 o% E+ ~2 P% m' F. V; e7 p x
to do-plots% M7 e8 v: ]! y" E0 x+ }
set-current-plot "Totals"
1 c, Y8 n0 F9 [5 h set-current-plot-pen "turtles" S: g7 I' z, W1 b I% O
plot count turtles t! |. w) F6 L0 m6 @: `
set-current-plot-pen "grass"7 B( v/ c* N. Z
plot count patches with [pcolor = green]
% n$ v6 q/ e$ U3 S5 Lend0 d2 g! u0 T4 m; @; B9 e" F5 K
可是运行时提示no such plot: "Totals"9 O2 v: T3 F9 e! Y( G
error while observer running SET-CURRENT-PLOT
. F% M" S" P' V5 v8 `4 l called by procedure DO-PLOTS, c9 Z1 A$ G; h0 \
called by procedure SETUP
/ e% O+ {9 Y8 R7 ~7 u" d called by 按钮 'setup'' L. k' p' x* U* ^6 ^3 a+ H
求大神解答啊 |