我编的程序如下turtles-own [energy]8 Z" S) A( S" Q. {
to setup! i- v( T+ v2 T1 u9 K/ o& M
clear-all" i Z6 z( Q& h; X+ k1 y3 C0 j
setup-patches, E& ^ Q; u# K# {5 t$ J% h4 d
create-turtles 100
+ _0 U, `3 R: v0 E6 L+ x) @8 ^ do-plots0 G% |' Q3 G2 b6 i8 x
ask turtles [ setxy random-xcor random-ycor ]
- d4 G I: v$ X8 F+ m; dend- m5 U& M- z+ R6 K5 F" }6 k C
to go' ?3 H# _. N% t: L1 `" W! S' a
move-turtles5 b ^0 [$ D8 w {0 p, e6 |: p4 a
eat-grass
P7 V3 e: C4 k5 \. r- B# x reproduce
% s v+ W1 A; O8 f+ w5 g: k5 X( v check-death M+ o$ r/ Z, Q6 s- Z6 D3 G
regrow-grass
. H7 Y' p" q/ F' h' I- B do-plots
) O+ y# J* t8 x. m. p' send# x! u" c8 A+ V; c' w6 O
to move-turtles+ n3 M6 p% P" s1 D4 i* }# I
ask turtles [
- _ M* A% i, a( ~& x right random 360
' z2 a' Z6 w8 M0 C+ r forward 1' R; q- H* Y& C' y. ?" o6 Q
set energy energy - 14 @ s' `" I. U& l& ^! p3 a/ z
]& V9 E& G, L& H4 J0 |4 B
end
3 `' _6 e* k* r& ]1 V2 h6 P* V lto setup-patches( T Z8 r. K g( ^; f: A
ask patches [ set pcolor green ]
- z* ^2 c. a" E/ m/ Aend$ Y# c: C, C/ A% E" S4 K
to setup-turtles9 \4 T7 g5 E! i" U
create-turtles 1000 L; S4 W0 S" R* _" t4 X% H# m Y* q D7 n
ask turtles [ setxy random-xcor random-ycor ]
! t- l, r' z! @5 K0 ^end" @0 u6 f% n7 O- @$ y
to eat-grass2 o& H) h! l: c1 ^1 o9 v
ask turtles [
% S! a G3 K3 J! k2 r) c if pcolor = green [
2 B9 f- f& [7 @: @ \ set pcolor black
; K1 M# e. A" t4 F1 w3 y$ M set energy (energy + 10)
- x7 N5 M) c# N4 L ]
: J6 _% o, g5 L7 T, T* s) V% K$ R ifelse show-energy?8 m# g9 ]5 J. { n: ~" Y8 y
[ set label energy ]4 J+ x: M! d. \( H$ S+ o+ \3 M/ q
[ set label "" ]% L9 ~) S. K6 M$ _& U2 R
]
& b0 |% L% |6 e" F9 E2 k v. Dend4 J% m6 @" I7 W h5 Z1 E
to reproduce
" f1 k. N0 a0 q! k0 z& q/ e( k ask turtles [2 w1 Z6 `# q, q% L7 [/ {5 d
if energy > 50 [
1 E0 D" C3 b1 O! ?! O. k7 @ set energy energy - 50/ f% C$ \) g3 N5 D, y4 \
hatch 1 [ set energy 50 ]' P* s6 B9 C: [7 m( Z9 F$ a
]2 K! c1 _, T7 B
]
?6 T* c) u3 I; C4 z) m- {% _) Fend
- a' M1 Q% W/ X+ s* @to check-death2 j# q9 P3 _6 Z9 q+ S
ask turtles [
: J: y( F! h4 M$ s9 [* P% s if energy <= 0 [ die ]% K, F. G2 H) L* c- g. M! z; M
]
0 |- X3 {% ?3 _9 {2 L. Z% H0 Eend
; o3 |6 h% S( ito regrow-grass" I5 U! H' J" S4 |
ask patches [
- z& k0 B1 f P: Q* N h) h4 t if random 100 < 3 [ set pcolor green ]
" e+ \8 Y; Y& u9 w" B; | ]
9 s2 S2 l \1 s( ?$ t1 A' ]end1 ~) P6 O6 n. i: o; L( o$ X
to do-plots7 ^" _- S* d5 p1 A) }( E- X
set-current-plot "Totals"" X2 t: o w7 n/ r+ K
set-current-plot-pen "turtles"
$ L1 U Z) c) k1 F( k, ?1 ? plot count turtles
6 |9 E' L: v9 y0 y set-current-plot-pen "grass"* ~) l( t1 {( x
plot count patches with [pcolor = green]
2 n* k0 I; m- h) n$ l% o' M6 R# |end) q, }, Y* y; }8 |& p
可是运行时提示no such plot: "Totals"
1 |5 H% I; q0 ]' D/ \% o* Herror while observer running SET-CURRENT-PLOT L* ^* k9 A S
called by procedure DO-PLOTS4 q; t+ ^4 i( Q6 R: r0 k: |8 w
called by procedure SETUP
# ]9 t9 [6 v! K6 ?: { called by 按钮 'setup' g# g* E* ^+ e. l" q
求大神解答啊 |