我编的程序如下turtles-own [energy]
5 k0 u7 y+ j( l+ m Xto setup# [; S5 w& I% C' K" a
clear-all
& H$ D; m$ Z. B5 g setup-patches3 |$ t) M" S. ` X# ~
create-turtles 1009 e0 x, k! {) Z$ W+ N7 ?5 _
do-plots) |$ Q4 U& p' {8 }% F$ C9 f+ N
ask turtles [ setxy random-xcor random-ycor ]: I: {. l6 o' C; t: O( w3 i
end
( Q/ F" M' X3 U) ~4 o6 Pto go. W8 p( D+ ]3 L. o3 h) d/ J8 z# W, v
move-turtles. E# g: @4 M$ u6 ?" H/ A
eat-grass
1 a' t, q" a1 c5 n; P% } reproduce
$ g8 r$ m" J5 x* y/ y) u ^) | check-death* y' W4 _" {+ l! W7 ~
regrow-grass! N% g* b7 q, {- x& {- S
do-plots4 ^' J/ `' c$ |0 V1 M
end
% x" x! _. h9 cto move-turtles
: ]5 U1 g+ T3 S( O& D" L5 ^ ask turtles [3 K& M# B# o- {6 D d
right random 360
{/ R8 s& d1 S7 g forward 1
7 A+ Q) ~1 f& @# r set energy energy - 1
7 N& w! Z6 P4 i% } ]
% S* X+ G7 B& ?3 Q$ M8 V( Kend: @4 Z& v' G+ M' E
to setup-patches8 o) d. g# e! [* L+ x8 k$ _
ask patches [ set pcolor green ]
) P0 L4 g/ R" z! T: ^* s( Qend
; i2 h6 Q2 d' l: V+ Rto setup-turtles8 U( o' Y; N% r& W% U
create-turtles 1003 Z9 [4 ?& u9 z6 H; a& Q" R
ask turtles [ setxy random-xcor random-ycor ]
' L/ |% x8 y1 c) R4 Qend% J: A+ N& r0 S* P
to eat-grass
9 E* K5 t4 }- o6 P ask turtles [
( e5 V2 \$ ~2 X! Z; D E: A if pcolor = green [
$ l$ ]& h4 T5 ^- z* i$ k set pcolor black
, F( e+ l; h; o l set energy (energy + 10)* R: v* D" d& M
]* h/ }4 r( w4 m7 m: C, n% w
ifelse show-energy?2 q. [ L$ G# E0 k8 t
[ set label energy ]+ M$ O2 a/ R8 M$ m' q& p0 m; j
[ set label "" ]
, N1 D3 q( b6 {' e7 y ]/ D( o' b% L; ~- s
end
* k( u: Y4 y! t8 tto reproduce
9 D) W+ d: {" Q8 l3 i: H ask turtles [% ` @" R- |% d% Y
if energy > 50 [
8 _4 H6 D" M* j) ]0 e3 {+ c set energy energy - 50
2 M l7 U! N: U8 W hatch 1 [ set energy 50 ]8 Z2 u. C" u* M/ s/ F& M- t8 S
]
4 I% I* J) f! ~' j ]- i1 }# z# ~$ B P3 c. M2 [* y. ]* M
end+ g- W( I% s( q8 c& V
to check-death
) Z1 s- C6 ^' H# n& I6 L ask turtles [& K; k6 J& `9 d* S$ }
if energy <= 0 [ die ]
" G' h3 D4 N: ?+ v2 d" W ]3 V; _* m4 f- d8 i- [ B
end
+ g3 {# d0 I2 |6 Ito regrow-grass
+ \8 V1 F2 S! Y" |6 E ask patches [
6 O, p- @# a* u; D* _ if random 100 < 3 [ set pcolor green ]$ m- R1 V8 p) @4 I
]2 k( i$ Z/ P0 |+ Z# X- t% ?! [; s
end
; n, {0 N( B8 z' E cto do-plots
3 [; A: _. d# J( c T* z5 s set-current-plot "Totals"
& Q/ S1 }1 t6 t/ Z9 `3 W7 z set-current-plot-pen "turtles") l: g9 z6 P( X! V' x$ H7 [
plot count turtles$ Y* e; ]" @& f+ b1 a( M
set-current-plot-pen "grass"# s3 }" M6 l u! b
plot count patches with [pcolor = green]! S" C7 @; c# ?% ]( _. ^+ F: _
end# s0 w+ N( o+ N1 z/ j$ D
可是运行时提示no such plot: "Totals"0 I& S6 s, t# E. f7 j% ?
error while observer running SET-CURRENT-PLOT7 ]( ^$ @- b5 Z1 W
called by procedure DO-PLOTS6 r* K1 T y" g7 {! F0 C
called by procedure SETUP
3 T+ U8 k: Y$ _( k7 U' C+ w called by 按钮 'setup'
6 @( v. Y- [# b" | o( n; D1 e% f i9 d/ q求大神解答啊 |