我编的程序如下turtles-own [energy]
/ C; n2 E) ?1 o1 A; @! g2 Yto setup
7 ^2 y/ b+ U6 M; {( @$ P clear-all c% @# [, R* ?: q* R+ E* ?: m0 Y
setup-patches
; W; P5 y; s. D% O create-turtles 1004 n6 y7 c' N8 U. Q6 h+ F
do-plots$ [) z- [ U. \+ R2 y+ j
ask turtles [ setxy random-xcor random-ycor ]2 f" L o" J) V/ y; W" ~
end
' u! l- E5 O/ f% r9 Yto go
# L9 X5 `' E. |' V$ s move-turtles5 U; i; R |( G4 r; F5 q+ ?* A
eat-grass
+ P3 c* Z& y( ?7 w! k reproduce
5 D: d4 t5 [8 e0 G check-death9 f, Z% |$ B9 w. W. e1 i: F# a
regrow-grass
0 w0 }% C, t; v T. b do-plots
/ T9 n3 \, x% T- dend
. N6 m1 h, ^* A+ X+ kto move-turtles
e+ ?8 f$ M% k& ~! H* Z ask turtles [
( t+ N( {" d1 [7 k# j right random 360
6 w: D4 C T4 [/ m7 d* Q& ]7 T forward 10 H+ N! w* o. F7 H
set energy energy - 1
# ]* y4 n. Q; V+ t8 w( n+ h9 s ]* I6 l$ c+ ~: d1 q+ h4 h3 C; |
end
! _- }& I6 y2 y t# Sto setup-patches3 ]+ j9 b: `; O: E: l
ask patches [ set pcolor green ]
% a: S8 }. P* l7 ~; \! eend
1 }2 J$ L" ?, p/ G7 ~1 p, pto setup-turtles
2 C. j, ^4 `8 K' }. |1 @' f3 v create-turtles 100; P4 P: j% N3 M; J: j! L
ask turtles [ setxy random-xcor random-ycor ]
( \2 f0 I' v, a, a% v6 K- bend& p0 S* D' ?! I9 a; J. N
to eat-grass- P. ?! \/ B: w
ask turtles [! O2 o- j( ~4 X' m2 \2 N
if pcolor = green [
5 T# \% t% L7 E set pcolor black* l9 c: J% _! Y0 a. k) z: M0 M- |
set energy (energy + 10)
4 J4 V& i% U, q) i8 [1 l7 o8 n _ ]
& g' v ~' k6 Z4 q. y# N9 V: { ifelse show-energy?
5 v9 d; Z+ ^. X: l8 i/ T1 V3 \ [ set label energy ]& L# H, y0 ]; e
[ set label "" ]7 J2 n2 F& ^6 j
]) p; m( |5 W- i3 O
end2 d% |9 k' \) R2 R! n2 ^3 E$ s2 x
to reproduce
! n% ?+ N. {3 y w, _+ _) ^ ask turtles [9 K! l' e5 \# @" }. `4 r% a1 ~4 z
if energy > 50 [7 k% D, `1 O% H) Z+ w
set energy energy - 50 I& e9 t+ r# ^
hatch 1 [ set energy 50 ]
7 ? G1 n0 }9 p$ l( Y, ~8 |0 B- q3 z ] W- {0 w8 Q: F
]
0 t0 t9 H5 h; m# X. C: Y: Iend/ t' a9 |) s+ g9 J
to check-death) b) V* @. Z9 f7 y. ~+ E, x# ?/ F
ask turtles [
; v2 L6 M, c2 { if energy <= 0 [ die ]
- C! @6 Q8 f+ `8 R R Q ]1 N% G& {! q8 @5 i9 o
end( K: G) V3 g) w
to regrow-grass
+ Y% B. N2 M4 l) B' X% E/ s: ] ask patches [
! Z) {0 ]: M( y% v5 ?- x. R8 J if random 100 < 3 [ set pcolor green ]/ h: l; g% }! W7 m% A8 l6 S5 K
]
" @" y- y2 s* v v( t8 x9 R* Uend
! V' Z7 Q* {. i: c+ n. e9 y6 M! d% Oto do-plots
, a4 ~6 `* y) S' w+ p set-current-plot "Totals", ~+ }& w5 j3 ^2 h. ?4 X
set-current-plot-pen "turtles"- E9 T z) g8 V% W8 A- z" f6 r
plot count turtles
5 ~8 [7 N. D( W% k( | set-current-plot-pen "grass"
2 F* K) S6 ]9 @5 d# q1 X. L) m plot count patches with [pcolor = green]1 G$ x, W3 t2 |9 f3 w& b
end& L$ w; G) v8 \; A
可是运行时提示no such plot: "Totals"3 h8 X% Z' U* j: s( q1 L5 t9 u
error while observer running SET-CURRENT-PLOT
5 R- W: G% r0 V6 j* e0 ^7 t g called by procedure DO-PLOTS& f& _) ^2 `% i2 N7 D9 C
called by procedure SETUP
: {( W/ s3 |9 ` called by 按钮 'setup'
, A7 D8 T; v, b1 F% s- m% ~1 V$ n5 D求大神解答啊 |