我编的程序如下turtles-own [energy]
/ n1 j& C2 [2 j# [7 cto setup
4 n- C3 a' L. R% z; d4 i4 l7 C d clear-all
9 {" s2 n1 W3 `" f setup-patches
' m- c4 N. I5 L, w4 h7 Q; P create-turtles 100, M. F, {1 x/ o3 ?
do-plots' |3 T# U' e) G
ask turtles [ setxy random-xcor random-ycor ]1 f; A4 q+ J8 s0 d9 i* j
end' {6 S7 c# y) N @) E0 f& D
to go
+ k% W+ ~( Z, O7 {9 h% l+ [ move-turtles' z1 Y/ o% r# J2 g5 B) A! B
eat-grass. \" A$ r6 M) q! s8 |
reproduce
: S, s+ v( @3 ?4 M' [. `- ? check-death$ L+ q3 H8 K a' t$ V' Z. ~
regrow-grass
% b [# D! i" |: F5 _+ { v* n5 e2 r; _ do-plots3 D) O' R' l# m; H7 [
end
9 Q" e" M) ~& ]3 o" C) Ato move-turtles
' F, P+ q: h: H) k ask turtles [+ Y) F- U# d* l
right random 360- X4 g+ `% F; i0 p) Q
forward 16 U# G8 x- @2 B' Q
set energy energy - 1
* P" q3 r0 ]: n9 Z; y/ f* o ]
& A `# D9 {: F: rend/ A$ P6 f" H( l0 ~+ [2 u
to setup-patches
" q+ P. H- U8 N% i- I ask patches [ set pcolor green ]# h; }1 Y; L. n9 F6 H" Z
end
0 m4 ^& `! h0 w9 N( ^, J! Nto setup-turtles, m. k" {/ E ~4 v! ]" G
create-turtles 100: X( Z) w- N' L, D2 x5 @( N5 W: J
ask turtles [ setxy random-xcor random-ycor ]1 C5 X; p" V7 `, O/ W& w2 E3 [
end
: f* j9 } f8 h# w- s0 p4 Bto eat-grass
1 ?& N: w/ _3 t' Q# x7 J* E ask turtles [
& w; h" q- P# ?; T4 m' k1 ?7 } if pcolor = green [" _& \1 M8 i: p7 K5 K
set pcolor black
% n, h2 y4 J7 [- A. I set energy (energy + 10). \2 w2 k7 z& q K) G
]3 q3 ^0 r* }! J% h& H/ o% n5 _
ifelse show-energy?5 h5 n0 o* [2 f. r1 J( q
[ set label energy ]
; r* Q; n1 T& i4 Q' F8 U1 F, i9 t [ set label "" ]& i. N4 K7 ^: D& Z Q
]! r' f( \" W8 h
end: m+ r5 N' l, n- p* r
to reproduce2 y8 p0 q) |6 O' [2 E4 |+ m( |8 ^
ask turtles [
( l5 C4 c' k) K! p0 X4 a9 a# l if energy > 50 [0 n% }7 b$ [5 J+ O4 t1 k# k$ t
set energy energy - 50
8 S5 b4 f' p. R! i$ g& L% k8 `0 C hatch 1 [ set energy 50 ]( u. R9 {6 ? B' C
]) t" k- v9 N0 ?6 \* Y X* t
]
; g6 @/ p4 H0 d, i. F" {end9 [& F J0 F2 I
to check-death6 b0 ?# X( j* J- [" T
ask turtles [6 S* L( B/ l3 o
if energy <= 0 [ die ]
: \. D( c1 E- |8 @* h$ _3 J, m' v ]# Z: `2 ^3 @* C( W3 c
end
C0 I( Z8 Y0 B S n$ T. Lto regrow-grass
! K/ S- C3 C8 I- o. J% H0 _/ v& y8 ~ ask patches [2 U" F7 q( [- X/ y; |) m
if random 100 < 3 [ set pcolor green ]8 Z" ^* P; o2 O7 A: Z: W, \" i+ I8 g: M
]' _3 Z" D; i7 J, a' M
end
7 N9 k4 ?5 ~3 `+ Pto do-plots
9 i, }) e/ U4 ~* j* m$ I% G set-current-plot "Totals"' y Q; `1 T/ F5 B/ ?3 Z5 \0 t
set-current-plot-pen "turtles"
1 d. _$ }, \/ ]. B% Q* t$ E- } plot count turtles
g; l1 P( t; `2 P5 b) `. L, [ set-current-plot-pen "grass"9 }* z' {4 `7 ~# f
plot count patches with [pcolor = green]
* L, |. [ d. Z" t' B" `end
- W* b" S) ` S4 M可是运行时提示no such plot: "Totals"1 M+ U, u0 a3 U# G; L% L" p
error while observer running SET-CURRENT-PLOT
& I) t: M5 I) \. g! S: d1 P: g0 C* V called by procedure DO-PLOTS
# u: ~$ o/ U1 z( Y8 [: k. y called by procedure SETUP
& t& F& m8 J4 I4 A called by 按钮 'setup'
2 `' g0 r% n) ?) |6 u! D s求大神解答啊 |