我编的程序如下turtles-own [energy]
- }. [* N0 v" c* M* oto setup
% R) N; A; g9 v& C" h/ ~ clear-all& k$ L$ o2 i3 f
setup-patches
7 V1 d% N! _% z8 U create-turtles 100' P1 P8 u3 a& y/ G; L
do-plots
! w6 V" i0 X; E ask turtles [ setxy random-xcor random-ycor ]& E! x [' m" n2 M/ T
end
4 z/ c! A" s& V, m& [1 }5 Vto go
5 M" l1 {; ], @ move-turtles, p- U7 |( H! ~6 o) D
eat-grass
" R+ d4 d8 y: r- ?3 ? reproduce
% F( z- y) t# Y: `8 P4 B check-death
& J+ h' n$ m3 R" L, W2 N regrow-grass/ B. s! C. v2 c$ U
do-plots
6 J- N1 }" @1 W* r( D+ i: yend6 w( _ y/ u9 X' I+ {
to move-turtles) b6 Y" v7 R5 J' P/ A
ask turtles [: u* j. K7 I) M% C. ^5 e/ @- D* |
right random 360/ A4 \, e3 }8 u) J4 r* ~
forward 1
# N) j2 g# Z. v/ G, h set energy energy - 1! ?4 d1 y+ o) z! N3 {# i! E
]% V; A7 D& }* L
end% S L+ Q+ p' \- P
to setup-patches
9 n# f' Q/ x$ E( t( h) x8 | ask patches [ set pcolor green ]
3 D$ _$ o7 @0 [7 dend
% U( S1 q1 z7 t; c ?8 T4 ~to setup-turtles; _2 b% e1 X1 n# L# L3 F8 b# j% x
create-turtles 100! ? W9 `4 S) Y/ Q+ D: Z
ask turtles [ setxy random-xcor random-ycor ]# q5 J+ y3 Q3 s' L
end3 s I/ W: h6 v. F% n/ a+ v
to eat-grass
D* K# G' w- t$ K ask turtles [
# G0 J1 A; L v if pcolor = green [
5 e8 u( t* X# x" |0 N set pcolor black
& M, E! b" ?/ j; R) H8 b6 x set energy (energy + 10). N; H7 `) U* ?9 J4 N
]
, X* w. p" x+ I; u: }; r ifelse show-energy?) t. N' ~2 o2 f! Y" m
[ set label energy ]4 s F2 ?9 b" t! \0 g
[ set label "" ]
/ n7 J3 n& m( {9 b4 y2 e ]
9 W/ \" f3 L+ Q9 l. d2 c4 R! k5 pend& @7 f) x6 g$ {0 a2 q
to reproduce
4 H1 Z% t4 o5 C7 x" E- Q0 E ask turtles [
L! W% ~$ B* [6 g, y: a+ X if energy > 50 [' E* L0 T& ]/ s
set energy energy - 50
& S$ ~- u1 C* V$ U5 g K3 \ hatch 1 [ set energy 50 ]
- d, Z, @8 V ^% G ]
, s6 m: r- ?* b9 s8 M2 ?4 L9 r6 _1 T ]
2 `# ~/ ~# u0 O& e. Hend2 Y7 {+ Z: V1 z3 {
to check-death! Z- i6 }' X- B, T
ask turtles [
0 a& V- n2 B' X9 s) j if energy <= 0 [ die ]' N, \) h+ p) k. E0 M
]
8 x4 L3 N$ [6 m) C+ q% lend
& u+ y2 X& n3 o3 \+ O$ w# M3 n0 @to regrow-grass
; o) g- m* N9 b" v ask patches [
a' P: ]& A" o4 x if random 100 < 3 [ set pcolor green ]
, a+ q6 {/ ?6 c9 _2 k ]
/ N. i s$ i# q3 n2 L: Z% Xend. X, W1 a) Q4 P" _
to do-plots
: ?& q' E( J4 ]4 P6 Z set-current-plot "Totals"& J8 o* c; K: K2 W4 K+ h/ D1 u* h
set-current-plot-pen "turtles"& V( ~2 p/ u2 y4 i* r
plot count turtles; E R& G- b; u: N
set-current-plot-pen "grass"( \5 P3 z) h! n+ h/ |, h
plot count patches with [pcolor = green]3 l% J. q. {- g- k: h
end: G, |" n9 g; T7 M1 X" v" T' w+ X
可是运行时提示no such plot: "Totals"
) @7 b9 a% M6 ?. I( m5 ferror while observer running SET-CURRENT-PLOT% x. ?1 P [! D3 |! q7 V L
called by procedure DO-PLOTS" n* g& A u1 f: D
called by procedure SETUP2 _& _# | B2 Y: A
called by 按钮 'setup'
% e- U9 X) w1 y- ~+ @8 l; R5 X求大神解答啊 |