我编的程序如下turtles-own [energy]
, s9 M# ~4 w2 I! T" Bto setup
- ?3 d' k$ H0 M6 d. N. j( n0 k: h6 l clear-all
) K+ E' I! i1 E' C setup-patches; Q4 y5 w! v9 m/ O
create-turtles 100
2 B1 a9 Y2 m) [9 S5 F do-plots @; n- v' K4 L7 T
ask turtles [ setxy random-xcor random-ycor ]
4 w( K" W: X: f ]+ N& j6 b: @end; a1 x/ L( P* U5 B
to go. I7 W5 f* _9 }" d2 c
move-turtles
) X- W+ k& E+ e' x9 b% E& T$ l eat-grass
0 X- r7 s5 Y( ]* ]# K. ? reproduce
$ J# w. k! F! M2 L8 W1 L0 l' ^# X check-death
; v5 [' m5 t( X1 r" S regrow-grass
; O: E' G# l8 Q* | j do-plots
( n" n1 j( S$ [9 V! p7 lend
: Y& w% J1 h3 Vto move-turtles$ H) F4 g' ?- g* R6 J, l6 Y- Z
ask turtles [
9 G! }# Z0 v) F right random 360
# L/ k+ W) Y( _8 c3 f) c forward 1
* z" F; ?& j1 T. e8 w8 q: G$ K set energy energy - 19 i0 ? x5 n- n6 V) ]$ Q
]
9 N8 r' ?4 V- J W9 C. s* `3 D lend
- D1 q- b7 r7 \4 tto setup-patches
& x% q. C( F W0 n# Q; F" P- Q; L ask patches [ set pcolor green ]
! J+ Y8 Y8 h5 v: c* v6 D3 k" U3 A. b6 Oend
; r* W8 }- I) J2 n5 ~5 z: B; D# A/ ato setup-turtles
6 j7 W) e! ? t" \6 j6 ~ create-turtles 100
# O6 I( C. o# r( r% Y% L: u ask turtles [ setxy random-xcor random-ycor ]. p+ [/ E9 j' \2 q
end% j) ~9 c9 r2 y3 i+ C+ Y
to eat-grass' D& y$ X" b. T: ?& m
ask turtles [ v* F: z8 J) S( t6 ^8 C% I2 T
if pcolor = green [
+ S2 ^7 ~+ G: j3 N set pcolor black7 u U# l7 g2 t. H0 ? t2 L6 F, c
set energy (energy + 10)3 B S: J6 P' z B3 e0 h
]2 [& R: j/ z# ?& c
ifelse show-energy?' t! e# E- [+ V# p5 i# F
[ set label energy ]
! b9 O3 K5 D! j/ b0 N [ set label "" ]8 _; S: Q+ G. M6 I
]" O1 C8 r' X2 v$ w8 [
end
* l" `& b8 N7 Bto reproduce$ \8 F: I$ z# k3 d$ A
ask turtles [$ r8 P, N5 x/ M4 u N+ o% Y. A
if energy > 50 [/ h/ v' k6 P, q
set energy energy - 50/ S! g% u+ K( I5 l/ D& {' n
hatch 1 [ set energy 50 ]2 L) X7 m% V0 V+ e
]
U/ k8 n9 _- x& Y ]
4 Q0 N4 y; ~6 \ ^, c& L1 iend
% ^ C' }6 j& w" \) ito check-death! c% W+ v9 ^0 I& C0 y/ S g
ask turtles [
& h& \+ u) p! m' g if energy <= 0 [ die ]
/ ~8 ~3 p( H; H ]+ l+ s% W4 f. j
end! i1 W7 J- t! P! E
to regrow-grass
# T7 g1 }' y, i2 M- Z1 o0 E ask patches [2 f D& A, p$ J0 j8 p7 N# q
if random 100 < 3 [ set pcolor green ]
, v! S0 l. w) d- m3 I6 d5 w$ e9 @ ]0 X) H: {9 c) e8 B" f- K. e, ?' _
end
0 o; E# i8 m7 g+ J; vto do-plots5 v3 M- P0 ?& ?5 K5 H
set-current-plot "Totals"/ `4 s) N) C* B, @( u, ?3 |7 X
set-current-plot-pen "turtles"6 l' s. U x* d- J
plot count turtles
# h% | ], C% J: x4 O set-current-plot-pen "grass"
" N2 l& K+ V/ B8 E9 T0 r plot count patches with [pcolor = green]
+ f. E% ^2 Z5 V1 fend5 j3 n6 D) Q+ Z6 v D7 i
可是运行时提示no such plot: "Totals"( T1 v0 A1 {; K
error while observer running SET-CURRENT-PLOT$ |) A; h; ?; A! h
called by procedure DO-PLOTS( k2 u8 T8 a3 x3 W% H/ _3 S# F, f
called by procedure SETUP
& @2 ?2 D4 `6 z) y f called by 按钮 'setup'# O0 L6 `( z$ H8 l
求大神解答啊 |