我编的程序如下turtles-own [energy]
1 _ j! I1 t- ^" T1 `' k; @8 jto setup2 b d/ U1 A5 G! S$ I" }) U
clear-all. }& {) @% C; X% g0 y2 n2 K7 ]* K
setup-patches
3 w ?- y( U- d* |7 f7 q create-turtles 1006 m# v1 t+ C. P3 }
do-plots' F# t* }9 b |2 b J
ask turtles [ setxy random-xcor random-ycor ]4 P% r6 |9 g' r- J4 O5 P
end
- U0 h0 h6 ?3 i8 U+ y7 g, Wto go2 Y/ u& e. b3 C. e- }( I9 ]
move-turtles+ s& v, N4 F8 c: N' ]
eat-grass
2 ]$ [& v5 A4 X* b: M! s2 k reproduce
0 x. h3 n: X' f. u4 C; Q check-death5 n: u( ~/ C$ u& |4 u) e* J; c
regrow-grass& C3 O, u# A( Q$ k. g
do-plots
% T! I; u. F8 Y. f! Kend4 H& j& C2 g- ^2 Q
to move-turtles
" L& C8 N9 a( h ask turtles [8 l( E3 `+ z' ^" g- v+ p5 c
right random 360
7 @7 j! H! t( z3 Z" ]! f& A forward 1: R/ R+ E W8 ] V9 T$ I+ G
set energy energy - 1( X7 q9 w9 T5 `; M" M( t
]; r8 Y) ?6 f+ Z3 h4 z
end
% @0 O& |5 Q, N7 h; ?to setup-patches
$ x( n+ Q' ~: T8 m4 K ask patches [ set pcolor green ]6 r; `; r( z. |( p3 {- g- d
end
& B/ r) d6 J1 I- V. L1 Ito setup-turtles
1 h/ f4 D$ m8 Q. v# x S" J0 H" I" d create-turtles 100
1 L' J W. _4 n5 R$ l9 Z2 _ ask turtles [ setxy random-xcor random-ycor ]" q* V0 r/ N* J' u \' W
end
T# k3 @0 D1 N% Ito eat-grass* r5 n, {( ^% Q* ] ?" ~' M
ask turtles [* \3 \+ T7 o0 _' c" |, {, |
if pcolor = green [
- z0 ^7 Y3 O' j% W7 V, o* ^. H, Y! G set pcolor black5 c9 C5 z6 @+ v3 R% h) m
set energy (energy + 10)
) {7 [( [4 c) u7 j3 I; B ]
! X/ @: Y2 m. Y" O8 h. H# S ifelse show-energy?
0 L0 e; a- w/ j" C2 m [ set label energy ]1 r, b9 n# ]3 F( F% Z4 L
[ set label "" ]
. Z: p' z" i* z$ n2 J/ U; d7 a4 d" _ ]
4 r! S" h% G# j# \end1 g$ M, j9 K: ^- M' b
to reproduce
7 H% s7 [; y7 c, H, D3 ^$ ` ask turtles [* \$ j3 D' n0 X. ?- N- F1 n
if energy > 50 [
/ g- A) H- y8 d; K: ~& [* f set energy energy - 50
9 m4 k/ W+ y8 l% k! }3 p hatch 1 [ set energy 50 ]
K; W2 c+ z, D+ M ]
) ^. q/ ^4 | ?$ G/ d ]
- w" _* H1 K+ t/ P8 A3 O+ P0 Dend/ R$ A) y) F: |) _; a; D0 I
to check-death
/ _) ]5 b: |# r8 a2 T! W. D ask turtles [; g. t, [* ?5 n, z$ S
if energy <= 0 [ die ]' W& O! ]# y) R' h6 S) K
]
7 ~# w4 h+ |6 Y' f7 X3 q- Eend
5 J7 g# P" F, n* g6 dto regrow-grass" t1 |6 [/ R. `- f
ask patches [
2 Z0 O4 y) i- k if random 100 < 3 [ set pcolor green ]5 Q0 ~3 C5 k( Q* b2 T9 t
]
1 s, `2 A6 n9 N& \end
% P+ s4 m" ?. F8 z) ^) w2 E) Eto do-plots' j6 C8 F6 o! p- ^& R0 D, k' e
set-current-plot "Totals"4 a& v$ Q1 Z L1 e8 y
set-current-plot-pen "turtles"& C- _( o- j* S4 `( T# ^8 O, B
plot count turtles
- ?( ~9 P; f$ d4 F* Q# @ set-current-plot-pen "grass"
4 D( A" n1 c/ m$ e* [+ k. z' ~ plot count patches with [pcolor = green]
- m2 {" O' Q) @4 Pend8 o, @7 E6 x$ `5 _ T6 p
可是运行时提示no such plot: "Totals"; p& e2 k1 Z9 u1 Y( f
error while observer running SET-CURRENT-PLOT# t& i# K5 e$ O6 ~8 Y
called by procedure DO-PLOTS. D5 T- N2 ~- e* ^3 x6 J
called by procedure SETUP& B7 y( C( R7 O$ \0 \( T q
called by 按钮 'setup'
3 ?: ^* _9 }9 B9 Y |求大神解答啊 |