我编的程序如下turtles-own [energy]
( j" D: u8 o4 A5 Z: k* k# n# ^to setup" ]7 x' M! Q9 J& R2 ~
clear-all% Q2 g# I! `9 z
setup-patches3 F. d: d$ Q2 g* R+ s
create-turtles 100# w' G) U% ]8 { T
do-plots
# k: F/ Z1 r. y( _; d/ R ask turtles [ setxy random-xcor random-ycor ]
* o# D0 E: ~! ~ W; j# i& iend
- ^% d6 E* @+ P/ Q8 j# U1 ?to go3 q: M/ |# Q2 n
move-turtles
3 B. i0 f! P7 F$ ? eat-grass
% d2 y2 h' o _" J6 J$ P, p/ H reproduce3 Q, L: @8 E9 h) x+ ~: P3 p
check-death& P. F, Q6 @1 \& B! f
regrow-grass6 P. T& c3 }) e- Q6 a5 f
do-plots
6 s9 L1 n! L6 s1 H( mend3 J/ S! }) j* \5 b2 }/ }% {
to move-turtles+ I/ j; j- w% J5 [
ask turtles [
: D+ M4 e+ Y/ l# V2 f right random 360- l8 J! L1 N, q1 s$ l9 k% I
forward 1
0 I0 [6 W+ G: O- g* U set energy energy - 1
@9 S5 `- v9 z7 s' K; C ] D3 h" s$ Y5 s- v# K
end% P9 ^6 N9 q1 N
to setup-patches! A2 J5 U- B4 U7 T7 y3 O. X
ask patches [ set pcolor green ]" L# x: H( {# I1 H6 r/ j' T
end5 O- V: m2 Y o8 W7 d
to setup-turtles5 ] i$ _5 w$ |1 G( J& i2 n1 Q
create-turtles 100% q' D* L' K) [& z0 J
ask turtles [ setxy random-xcor random-ycor ]
5 ~8 s9 X; a0 \" k3 U dend0 z' P% M4 w0 m I
to eat-grass
! f: f, N" |: r9 `) h e ask turtles [0 b3 R" u/ |9 F2 ?
if pcolor = green [0 R) r9 U! k. v, a- `8 Y2 y9 t
set pcolor black6 h- \4 o$ s' Y, K4 L& x+ c& F
set energy (energy + 10)
3 w* E, s! d( S/ x. ` ]
( p4 o3 J3 f! Z0 b; x0 _7 k ifelse show-energy?" H# h2 i+ M6 O
[ set label energy ]3 r0 r! a, N. |* e
[ set label "" ]4 A) @8 b5 d- k% E3 C+ ~& F
]$ w# p3 b3 d! @ r
end
" |8 C+ Y# _; q2 oto reproduce G. C3 }$ k. D/ Z* }2 Z' R
ask turtles [
' b5 H$ t: r: \7 s if energy > 50 [
1 S9 P7 L, Q: q2 U6 S; d$ t' d5 e. @ set energy energy - 50
4 L; M9 F8 x2 S1 A( D: e hatch 1 [ set energy 50 ]1 u8 u* L; N7 B& W8 L6 {5 I: c
]: [7 Z- D- v% ^3 [
]$ [' l7 E) O& f7 f# Y9 J# f8 o( B
end" }2 b0 d) a5 ]# |* B+ G
to check-death
, R @- h" X1 o+ U ask turtles [/ o( ~6 r5 L. S, a
if energy <= 0 [ die ]
- r8 L! {/ A' S0 Y6 r, f" J ]
2 |2 n; h3 t0 z. K7 ~end
' c5 R. O& U; H# K- {! C1 b9 Pto regrow-grass- _, l* O8 X) G
ask patches [
& c# B6 T" M) V/ H# y% l if random 100 < 3 [ set pcolor green ]% T& F; h9 y# F5 r8 ^1 ~9 [/ a, k
]
2 `, |& k7 }5 W9 x1 l% Vend
( U1 Y5 _- t. `, L" B; Rto do-plots) l z" {5 w; g2 l9 t
set-current-plot "Totals"- |. ?4 y. j- _' _) f) g9 {9 V" ~
set-current-plot-pen "turtles"2 U8 P" P, f2 I! p
plot count turtles
( P7 k# S3 z+ N set-current-plot-pen "grass"* J* i0 A& }* S+ K& k
plot count patches with [pcolor = green]6 ~# U* b1 g8 A+ M2 E+ x
end
4 X6 L4 U ^2 ?可是运行时提示no such plot: "Totals"/ |- J' r, V/ J4 y& {9 ?
error while observer running SET-CURRENT-PLOT
# c+ K: @! A. @- s" b called by procedure DO-PLOTS
" {# X" s1 I4 `: c5 B0 s called by procedure SETUP# V* }1 U8 \$ V; v0 G) E/ g
called by 按钮 'setup'" R" k8 c7 \ S; [( L
求大神解答啊 |