我编的程序如下turtles-own [energy]
, y# d% P# c! s. v3 l" U3 |; Qto setup
) P# ?3 A- S" m j: O clear-all1 b' `$ m! K# u/ Q8 W
setup-patches2 w3 U" ?7 D6 a6 |- N8 G
create-turtles 100, J& B4 P6 u, f" g" I) N1 x
do-plots5 v1 l' W, {8 L
ask turtles [ setxy random-xcor random-ycor ]: U" M* h! c6 o0 h; @- ?6 U( b
end7 a$ `6 H" k, E
to go8 X' X# V, f' l/ [3 X% K
move-turtles
3 b5 e" l- h& ]( D4 g( o* d% E' R* v eat-grass
7 h0 V( A6 d. `; ?, B Z. G reproduce, a1 `% f! S, e! k: H3 S
check-death
, d( d& E) K9 c9 @1 ^' H5 S regrow-grass
, ~7 k- y3 f2 i do-plots
2 z3 G$ ?' P4 A% w h, m0 rend
0 Q. j4 G+ W8 t( Sto move-turtles: o/ v9 a1 d( \" f* x
ask turtles [
- w7 |" A7 D2 R right random 360$ ~% Z. Y/ }, C* ] V2 |5 R
forward 13 g1 }+ k* G+ K/ @' C* z) Z
set energy energy - 1
4 H) @' ?1 @2 t) U/ w# ? ]
g/ F7 [( d3 ?6 J1 r* T6 H6 Lend
! M- v) K3 |- c! K. V, ^to setup-patches+ C% A' d0 m7 a- d B8 i
ask patches [ set pcolor green ]
7 r1 H! U' \$ ]% q' w# fend
; K7 ?2 o; l! ^6 `- a( X# T, Ato setup-turtles
* D" n8 m2 C9 B+ S create-turtles 100
5 z/ n- q; ^7 ]7 P0 E/ d' c ask turtles [ setxy random-xcor random-ycor ]
+ z, U* S. w! U9 [4 O3 @7 D6 m3 d1 [end, W! y- z; m7 m' n4 R1 A3 `
to eat-grass
0 V6 H" ~: D! `' U ask turtles [6 _; ~7 }4 I1 T/ ^2 B: ~
if pcolor = green [
* k" D _- X2 U, g2 V+ z+ L set pcolor black
& Q+ j# w: V9 ~3 T8 v! N set energy (energy + 10)
& \& Z' s, M$ n+ |& Q ]
( [# a( P* D! F ifelse show-energy?) G. ?, @6 Y' E r
[ set label energy ]
; j* y. \6 M& |% @9 ? [ set label "" ]
) s; O! D8 |* p ]* V8 j2 F) F, s5 @5 n& S
end
# S5 g2 P# E2 h/ Mto reproduce
9 b S: F U5 W5 T1 C! x. E/ m ask turtles [) m+ P* h/ r6 R4 D, W$ F* x( ]3 r
if energy > 50 [. Y( |5 e, [; z3 R' B
set energy energy - 50
, d: \1 @" P) W$ F: X5 M/ _1 R hatch 1 [ set energy 50 ]
! l; d2 Q: M% o: A( g+ `8 d ]
; u: q) a7 \5 t4 ^ Y ]( j) Z1 Z2 Y( d
end
4 p7 q% E) o n1 x9 E8 eto check-death
. b4 s" R# K( @! _ ask turtles [
p0 D0 I" J& |- t6 J* _: W. u if energy <= 0 [ die ]
6 C* i$ w0 d5 ?, ^/ h5 b! g% c- m ]
2 |3 q9 w# M0 ?) [end y! Y3 o* \- o: K3 ]& ~* f
to regrow-grass( ~& J$ b6 f" I, D# b( d! ~; f( j0 {
ask patches [
* Y) _5 B4 v" _/ C9 r: A) s' W if random 100 < 3 [ set pcolor green ]8 `. D0 q, b( j `
]
, S# P# K2 _7 u6 Y$ |end
& t$ @0 @: D: U6 L6 \to do-plots
: t/ j- }6 Q- Z set-current-plot "Totals"
. a8 z! s$ V, L) A$ X! A, q set-current-plot-pen "turtles"
5 d0 x2 w; z" w! W5 ]* N% i5 r plot count turtles
" H4 }5 _2 A$ f& w" n) K& I# ?2 D set-current-plot-pen "grass"- T% L" e0 L; W' E* C) L& O: n: [
plot count patches with [pcolor = green]# U& `# d8 ^% ?7 t9 _0 L% S
end0 D; X2 w4 @" q" D5 y- V
可是运行时提示no such plot: "Totals"- [+ i: v3 } T- A+ y
error while observer running SET-CURRENT-PLOT- P) \3 T. u: |8 Q9 c3 K/ ]2 D
called by procedure DO-PLOTS
8 Q! `- [/ b! c m1 k. T# a called by procedure SETUP+ z+ v) O" v9 ^- p
called by 按钮 'setup'
& @' S/ |2 p I: `& V, H" q求大神解答啊 |