我编的程序如下turtles-own [energy]- @. g+ d, X& h* a
to setup' j% y( u0 g8 V0 P8 B% X
clear-all
: _& T8 d2 d% _ setup-patches
* ]4 E" A+ _1 t5 Q create-turtles 100
2 ~( X4 V% d- `# r$ e do-plots
- n1 N( z4 x+ m ask turtles [ setxy random-xcor random-ycor ]
( D) l2 E) H! E5 v# kend2 Y9 s6 b! v; u. Q
to go
0 x# T; X# ?% t' e1 \) C move-turtles
- E2 Y* k: h4 Y$ D eat-grass
7 K! N8 D& B1 o reproduce
; b" [6 h9 Y) [* t5 s check-death- x Q4 \ V p5 l1 E6 o6 A4 v
regrow-grass- R2 E% r% V |6 @
do-plots
4 c/ o9 |4 \& ^9 n/ [1 qend
( ~2 B% P4 W: Q3 M' S: G6 lto move-turtles
% Z+ Z/ g) Y3 s1 Y) p$ d( | ask turtles [* S# u I% J! r; P. m5 r
right random 360- Y' X% u V( X" z/ ~8 f
forward 1- A4 {! [) e7 o3 c1 m6 j
set energy energy - 1
6 `' w8 r& A% ~" m L ]
: ^6 C0 t. n6 `# U/ E$ wend) z5 C* @: G! r& L4 K
to setup-patches8 Q4 m! h( m6 M8 v- ^
ask patches [ set pcolor green ]4 }5 X* w) M" X
end
" k$ F! j/ P8 fto setup-turtles
1 U1 o8 a) }, h. g, C1 ] create-turtles 100* I- ~0 B8 |; R8 q0 p+ G Z8 o8 u
ask turtles [ setxy random-xcor random-ycor ]9 s9 @: I. H' y1 [+ Z ~2 b! ~
end2 D8 v& w$ q5 v9 Y2 _8 j& g
to eat-grass- O( r+ C. W. ~
ask turtles [
# s" s) u8 }% d* l9 a. w if pcolor = green [: A z" w$ b, `7 B3 o* m
set pcolor black
& J# f2 h9 G! h3 a2 h set energy (energy + 10)1 m o+ Y6 n0 j* i/ ~
]
8 q2 N% \ J3 w) z" I# |: |. r ifelse show-energy?
: q$ R0 g2 h- x8 T k4 V [ set label energy ]
G7 `3 q) Q; o; M; y& Z. R1 h [ set label "" ]
: D: M3 j6 L. i5 i% r ]
: G, q F M+ o( ]. U1 O! aend$ ?0 Z% m N& v8 {; M: L
to reproduce. p8 w/ E' j! f: \$ w, y$ d9 R1 V
ask turtles [0 O( h) a* `5 A* J1 V. M2 W
if energy > 50 [
3 S, j9 j5 S5 H3 O& q, a. g3 {- I set energy energy - 50
) a t v% o- t0 m0 D8 T. U hatch 1 [ set energy 50 ]: h- e& Q# a2 L6 h
]9 u/ @! U9 a& O3 g
]# U/ m$ ?- R, p) M% {- N
end) E* Q. e y, j9 M% i2 ]; M) ]
to check-death
2 d9 x' n. f9 o, o ask turtles [4 Y8 M1 x' J9 ?. ^9 b/ j" _7 ]
if energy <= 0 [ die ]( y- E9 h3 M! V6 P6 W0 }
]
- m7 C* a' {* K R8 Xend2 V/ ?. t- i/ v
to regrow-grass5 |# f2 X3 v4 M5 P
ask patches [
6 M8 e( _! X Q, h- A) ~2 a if random 100 < 3 [ set pcolor green ]% \) N: L# D) D. _- F
]: m3 v; T t+ ]
end3 G* q) G6 C8 k+ H R$ K
to do-plots
7 i" r7 c7 t! Q+ C- e% o set-current-plot "Totals", o2 Q# Z8 u) j/ J" c! B
set-current-plot-pen "turtles"1 D; e* `3 }: j: D& W# B7 y: `
plot count turtles( R$ K( j' H1 t& R, E3 ]6 ~% R
set-current-plot-pen "grass"
8 I/ R5 z& s) U5 l6 b8 T* i" b. H plot count patches with [pcolor = green]
! f! E8 P# ^! b. gend
C" {# f& h6 E( N可是运行时提示no such plot: "Totals"
/ Q, S, W6 P) V4 r' t1 ~error while observer running SET-CURRENT-PLOT# `0 c' g' q0 m2 A$ ^
called by procedure DO-PLOTS7 g* w% X6 q- ?5 s9 A1 _
called by procedure SETUP
$ S S4 _% T- H9 I* |1 z8 r called by 按钮 'setup'$ z+ p8 g5 V( v4 |4 L* [
求大神解答啊 |