我编的程序如下turtles-own [energy]
1 I7 \ n6 s' O' l3 Z4 t, Ato setup2 {5 V( s% \, v5 C$ k* A
clear-all
8 Q# m+ [5 H3 m9 ^) F' T setup-patches
- x6 r9 k: b' ` create-turtles 100
/ L; F& x( b3 v+ Z6 x9 W2 A do-plots
3 j. [# \' O, [$ O% X2 a3 f ask turtles [ setxy random-xcor random-ycor ]
# l+ |' _, S' s( |/ lend
H0 I& [, T/ q1 uto go
- B! [& U5 |' B6 _+ I move-turtles
& m- Y+ r* @, i eat-grass
X; j$ j* {' G, c( P+ g reproduce
7 T4 S% @8 l! r$ a/ m0 e check-death, f, D r; Z- z& ?0 m
regrow-grass7 R) o* z0 l' a1 n1 r6 P P5 A
do-plots
- g. h! i5 o( m; r2 send* I% N/ a: ^) u( l! _$ k
to move-turtles
# @6 u+ `" Q8 h) {( ]9 s7 a7 R ask turtles [- w2 G! X- |9 z: y* K
right random 360
& r: r, M+ _# m forward 1& N, W; d5 U c' R5 n
set energy energy - 1! ~, x Z5 M; i9 ?/ f4 w& s% N' I" h. L
]
$ c' k7 i! O6 R. n( l5 A- Cend
; n R5 x: q0 U% l7 ?to setup-patches
" c; u' O. v2 z4 G5 d ask patches [ set pcolor green ]4 J3 J5 t1 I& J
end
8 R, u' w2 T! P" H% n6 q* d9 Dto setup-turtles
: D( a4 U; [, K2 t create-turtles 1002 `) i7 @' n3 k4 W. u
ask turtles [ setxy random-xcor random-ycor ]
; _& C* Z8 K' x0 L& w* eend% h1 U3 h8 d" G' \! H/ e# R& ^
to eat-grass
2 h; J6 v0 _6 C5 n0 f$ K O6 J ask turtles [7 x; J9 i7 g9 v( V0 k- p/ r4 s
if pcolor = green [0 X0 @! u3 u$ j
set pcolor black
2 \; N. S+ T$ f3 n5 } set energy (energy + 10)* T* M: H! x. {2 i0 N# X: ^
]
) [% @$ a- H% I8 w. T/ B( d ifelse show-energy?
9 e# [" j: x, \ Y! ]; G; P [ set label energy ]) k- U k$ g4 ^$ ?0 n
[ set label "" ]2 t9 A4 L& f3 _
]
9 o% S* d6 Q1 j% {; qend
* Z' z$ p1 @0 o% N4 R1 ]to reproduce+ `) B/ y. P. B
ask turtles [
7 u( O- Y% s: _/ I& H5 q0 d8 \- ~: ? if energy > 50 [
. R' [9 Y7 j8 [4 s# B3 Z set energy energy - 50
; b4 j" v N# _2 o hatch 1 [ set energy 50 ]9 z: f ~9 s+ v* R8 ]3 n- x% b
]# E* K3 T; b# J$ q& K
]7 D" y. A) T6 t; |: H& x
end+ r" o( ]2 t% L! q3 d
to check-death4 N, J3 b( ]6 k0 i4 M9 A% {$ o
ask turtles [9 t1 n [" L% }7 P& I, Q d
if energy <= 0 [ die ]
8 D% \7 q3 s0 F9 } ]
" x0 E! e1 }' {6 `( t& mend
! ?) e3 R* B' Uto regrow-grass
; o f$ h9 e/ a* Z. }7 x ask patches [9 o1 h+ I! c& F; p0 m0 T
if random 100 < 3 [ set pcolor green ]
- g( H' |7 q) Z+ N O ]
* i4 D+ m# i4 bend, o$ h/ h9 ^" j
to do-plots
1 ~+ t+ f; V% o Z set-current-plot "Totals"
. p8 r$ U& P/ y9 G& T set-current-plot-pen "turtles") @7 X9 p; W5 |4 B' ^5 X
plot count turtles
/ F& e0 y0 c! i- a" t* \1 O set-current-plot-pen "grass"- h7 M2 ^" ^# U0 F+ G: z9 w
plot count patches with [pcolor = green]
0 J( }6 e0 r' l2 T, Kend
. F* ?- R2 Y8 n$ S; m) f可是运行时提示no such plot: "Totals"- ], _4 b7 ~. J4 {
error while observer running SET-CURRENT-PLOT$ i, A# T4 w: d/ Q+ F# g* W/ \
called by procedure DO-PLOTS
/ h: G6 s+ x; v0 o% e called by procedure SETUP
7 D4 T7 d7 C" X, i called by 按钮 'setup'
& T5 O+ K0 ^. S! s3 i求大神解答啊 |