我编的程序如下turtles-own [energy]* k! C% u5 q* o# o, K
to setup# Q& m' |7 [ ]; i
clear-all4 h' ^! E( B q( S& ]$ |( Y$ }8 Q% w5 K$ I
setup-patches2 C+ K! @. S) D% v
create-turtles 100/ Z- b9 r/ s* f+ `) Y1 o
do-plots
* s1 w# b# E" o! Y+ |: w ask turtles [ setxy random-xcor random-ycor ]& c- x. _* U3 b/ W6 t+ D6 x
end
! _* t3 \5 i V6 R. @2 L* y$ oto go
% o" l) Q2 _% ] move-turtles
$ B. R$ F: \- J+ { eat-grass; J- N( i: M7 u* \& r- ^
reproduce! s3 B5 G. @+ ~( M: J" {! A) K
check-death3 s4 @3 e; }' ^. F: G. s# q% K
regrow-grass% f7 p/ \. I6 |0 @" ?; U: \# H
do-plots+ d' n6 s/ B3 N- L0 m; n' z3 [
end
+ G- c% j0 w; f0 y; U' V0 t4 Bto move-turtles
' m" Q. m% w, p! u4 N# B ask turtles [1 m% `1 d7 S5 h6 v
right random 360
' b- R2 j1 q& K forward 1/ K$ P, `1 S ?5 q* z1 j
set energy energy - 1
+ g$ c/ U( L8 N ]
1 ~( y3 P. z3 N) ?end
# P* M3 o4 S4 ^7 d+ E! a& Xto setup-patches
! }. G9 T- M+ `' H1 t7 V ask patches [ set pcolor green ]: D. E2 |- @4 O" c
end
8 _# B$ k$ n* g) g! M7 X! Jto setup-turtles! }8 b1 ] r: b: `& B' e' F
create-turtles 100' R1 ]9 ^# S' R. f/ r
ask turtles [ setxy random-xcor random-ycor ]
, E- Y1 |$ r& xend
% n' B5 Z" H1 Y% hto eat-grass. g1 _" W6 ^' H$ ^- y. x7 T. I* ~+ S
ask turtles [
5 H7 u' c% G6 f s% g if pcolor = green [% O% d# _& y' w* c. o k9 h
set pcolor black/ m" F$ j8 @3 [' b
set energy (energy + 10)
7 ?- E8 c0 N) g" K* ~- x9 m ]' f$ {/ x& H" h6 T* n/ w: _% `
ifelse show-energy?5 e$ ?& }8 L7 _: t% r2 L+ Z7 W
[ set label energy ]1 l2 @- C" |' E+ e
[ set label "" ]
3 u/ Y" O; x- ` l9 Z. m ]" D3 q- n; D' b, d8 E- W( z5 {
end d; N6 r8 w( t
to reproduce
/ [- z. n4 A: q+ s% J" u ask turtles [, K3 N* g- m2 f8 u
if energy > 50 [
6 R* C6 ~' ` ^$ m. z; i g! Z* n set energy energy - 50 L, t \& h, E6 p7 i, N; s
hatch 1 [ set energy 50 ]
. p; _( R- {: d! T1 K1 d% k* W ]! D x! |+ l& _( A2 Z3 r
]
0 Y6 ?9 S% K6 }$ k; T( B; ~end5 A' l1 j( {% M) R
to check-death6 F8 D. b. L+ e$ e
ask turtles [: o* a! r v( K2 X# z8 d5 y+ c! X
if energy <= 0 [ die ]
& K4 t3 L5 U4 o7 u; ~ ]/ c% K* \* g! m# Q$ u0 c+ F
end) K0 k- i3 q5 N" Y/ Y
to regrow-grass$ j& r u( n2 x; Q3 T
ask patches [+ `. Q9 o6 A! C" ^( `5 g, T
if random 100 < 3 [ set pcolor green ]' m2 U' { S- M8 N+ i
]
: s. K& K+ i$ Iend! h& c+ K: D. F4 h2 e$ C
to do-plots- C$ C4 Y" X) \! M6 }, y4 A
set-current-plot "Totals"
3 r) c/ ?1 b% e- f7 n/ B set-current-plot-pen "turtles"
9 B! v3 Y" J2 B plot count turtles
; g2 _: z# ^. A/ e set-current-plot-pen "grass"
2 }2 ?4 M) P( `. x9 \# p6 D plot count patches with [pcolor = green]- k# t0 t6 L Z& {
end
% _4 y( ^5 X3 X' w! ]可是运行时提示no such plot: "Totals"
. f# A' M9 \; H$ Perror while observer running SET-CURRENT-PLOT
# g; E( I# r8 |0 R called by procedure DO-PLOTS
6 w4 O+ p: T" o9 ~, s called by procedure SETUP% [4 E+ s! @3 `% c9 r3 E
called by 按钮 'setup'
0 ~' A# |7 F0 r7 L求大神解答啊 |