我编的程序如下turtles-own [energy]7 ^ Q3 I4 A" F) E. ]# @
to setup8 K' t* O) J- g+ y4 A: s9 M
clear-all
5 K) e# _! a* U3 S% S: ` setup-patches* H3 E4 i2 B/ s( q3 r
create-turtles 100
' O# F9 x/ x, z* o' s do-plots
1 ^6 B4 E w. Y% F, r& b# J8 }+ U! n ask turtles [ setxy random-xcor random-ycor ]# d7 q5 N1 [ {3 q, P' g
end
6 W2 h2 O% [% c; m) w2 Pto go
% k3 O* {( q# X& ] move-turtles, N, {- g; ~2 C- S. |2 ~" h$ E; u$ \
eat-grass2 K' R7 q9 Q& q8 d3 l
reproduce
1 \( w% A% m2 Q check-death
% j& B2 \( p: C7 L$ D regrow-grass: P1 R5 s# v9 n( E3 Q( t0 A
do-plots
; d" |* s6 D7 T! |end$ i- r$ X ^1 R ~6 A8 }3 G
to move-turtles
" E6 l: ]) v% I$ H ask turtles [0 ?+ b8 M; A N( Y G! u! u
right random 360
% Y% @/ [$ P9 F forward 1# C/ k$ M; q( s: G' d, q) b
set energy energy - 1) o' ?5 m( V7 L) T/ v3 {
]
8 D0 t7 P7 ^9 F# `+ J$ M/ Iend
6 X" |' l8 @; i5 lto setup-patches- Z! c' D6 V& y& E$ k
ask patches [ set pcolor green ]
8 R" L7 C2 T* [end0 l& s% ?9 g$ M9 n, D
to setup-turtles
; w( p( E8 }' a; N8 ~. Y+ l create-turtles 1008 X; V1 ]/ S5 J& S7 G
ask turtles [ setxy random-xcor random-ycor ]* Z; X" ~: P/ H3 N( Y
end& _( M; O3 Q7 N+ O
to eat-grass
, K* n& q' |9 F5 R+ a4 S3 U- X ask turtles [: L- n1 R. Q2 I
if pcolor = green [8 ~+ b- x0 `/ x& H, l
set pcolor black$ }- {9 ^ l# U7 ?: P5 A% p
set energy (energy + 10)5 y1 r' x V, w) F+ E
]
, U$ `" O! M4 `( u: D% U. N ifelse show-energy?
& `9 Q9 U ]& M& g/ g* b [ set label energy ]% ~3 A3 ], Y; i* n0 C2 _
[ set label "" ]1 O8 V4 \% `% j0 }' B1 Y
]+ O1 j0 Q o& v- q0 \
end$ \( y. S9 J' B
to reproduce
5 ~' q& `. w$ v% Y B$ f# K ask turtles [
7 N0 \( M3 H2 y0 C if energy > 50 [/ P" ?4 |2 Y3 A4 L% f! X6 c
set energy energy - 50
' l7 u" p3 s: z( C4 e) O hatch 1 [ set energy 50 ]" h$ F& j8 w1 r
]) A7 L+ `4 Z. K# p% r
]9 c# ?8 o/ H" V" c
end
- n. Q0 `* g [- ^3 `to check-death% N* y: Z( [/ a8 N
ask turtles [
+ D$ S) r! q* }' B: e" \ if energy <= 0 [ die ]
; }. P8 f" ^- ~' { ]/ J$ z6 R, S- K! D- f+ ^& q
end4 C* [5 w1 c' z1 ]
to regrow-grass
( W# Q! j7 \4 | ask patches [5 j: Q; w" v$ p: q
if random 100 < 3 [ set pcolor green ], D' {: r; J( f4 z. z* d
]
$ e5 h# W2 K6 V. ~end3 G4 c; z4 O0 i r
to do-plots" s8 j+ I' l3 t8 K' I( O+ I1 ?
set-current-plot "Totals"
1 M5 Q- l; ~% y7 }( v set-current-plot-pen "turtles"$ ^' B; p q: P/ `' s ?1 Y1 A! n7 b
plot count turtles+ W) b. }0 N! w6 B. r
set-current-plot-pen "grass"( V' h- J. n& t9 o: ^
plot count patches with [pcolor = green]- S& J/ Z( M4 x0 e3 C5 V
end7 Q6 H/ M4 v4 _ z5 k
可是运行时提示no such plot: "Totals"
/ U, ^. [, F; H* B3 Uerror while observer running SET-CURRENT-PLOT y- [2 x& W4 D k
called by procedure DO-PLOTS
) n. S) U5 S8 v5 R z7 ~) f* e: m called by procedure SETUP
. p$ u% I+ N0 J called by 按钮 'setup' m: i) T" P! H7 b. Z; G! |
求大神解答啊 |