我编的程序如下turtles-own [energy]7 [0 w6 p, ~5 z- \# ]
to setup
# Y+ m H$ V5 @- c5 n clear-all$ l* o) t9 O( r4 ^ e! z
setup-patches
* k+ k, `* L2 S8 e& |, J create-turtles 1006 |3 `6 W1 K9 `
do-plots
6 Z! F' j- i; `' N# D3 E6 ^ ask turtles [ setxy random-xcor random-ycor ]& s9 d1 I' I7 @- Y
end
6 N/ }! f5 `$ Kto go
9 f2 [& R0 C; C0 A# o4 { move-turtles+ { X: c* y7 _% k
eat-grass0 T& n0 L# j; l
reproduce
8 T) ?/ S# W/ U! |0 Q% B2 e check-death
3 [# K# Y" Z i* m; U9 C regrow-grass: E& S8 C: @0 m
do-plots+ K# J" d: N3 t+ F, D
end! ~( f" b* T2 O' O: y
to move-turtles
( r) k3 B Q% c! n. L ask turtles [
! J* f. m- n! H right random 360$ v+ q( ^' q+ n) g& F8 ?
forward 1
) a1 M$ _. h2 M+ t% ? set energy energy - 1
8 h9 j. ]5 N; I' Z ]9 f, x3 ?1 p1 w; N4 F2 U& _2 f& M
end
# s: y% `8 ]! ]+ P) Vto setup-patches
0 T- {6 x9 H: Q7 E$ `, l, @' j ask patches [ set pcolor green ]
% j/ `: @; u5 H/ P' `& ~/ xend- \4 F5 P& h( [8 k0 @+ H' X
to setup-turtles1 V0 |4 m% G9 W- N7 w
create-turtles 100
; }4 r( D4 Q+ l3 O' t6 \) N1 `4 w0 _ ask turtles [ setxy random-xcor random-ycor ]
% C0 y, s/ u% ?" Q. Kend
- x' m% y: F2 k7 e) e6 r) ]to eat-grass
) m, d( \$ e3 i ask turtles [' c" ]: _2 ?' {2 H5 x8 d
if pcolor = green [
( n4 r0 O/ m' n# `3 x- i set pcolor black& i- p+ W6 }5 x& U# n
set energy (energy + 10)" P, s, M7 b+ |% s' Z2 M, X" \. Z
]2 k- O0 Q3 d% ?% d; Z2 F) M
ifelse show-energy?4 V( @: Z, H3 j; u9 g' `0 L$ j
[ set label energy ]
) |5 D* q# r* T- N5 l$ t9 ~ [ set label "" ]
* r5 o, u# `$ u; a* F" u$ s$ x ]
! o8 v0 G1 Q8 H4 q, Xend
9 m. H8 i" J+ m8 w4 }to reproduce
! n5 r2 O, q4 T$ ]' @4 | ask turtles [) O+ Z# _+ ~7 T" v! Z {1 Q
if energy > 50 [( f2 Y2 S0 ~$ C/ R/ u
set energy energy - 50
7 j6 R8 A7 m# |/ _ @7 c7 f hatch 1 [ set energy 50 ]0 v- u9 {2 @2 Y9 S! m% V
]
. |$ b. q% R3 Z- Z r0 A4 e ]
5 w9 [- V6 p. W. T' F# r# vend
& z: x0 V6 v$ J; P. Cto check-death4 o1 J: Q( g% V) A. g% o
ask turtles [
' }+ @" ]4 u- z2 t# {% s2 ` if energy <= 0 [ die ]
$ H& y& Q* o4 o6 {% p/ F, M5 Q/ c' ` ]
- q0 [+ R0 e/ l! Cend
3 b" V1 L5 j8 e; a" b- rto regrow-grass
7 g$ T8 M; t$ r: L ask patches [# f2 `; G) |9 f5 }' i
if random 100 < 3 [ set pcolor green ]1 Z: A5 y7 W0 B0 @" T2 l
]
+ w1 @6 X p' O- |, ]. L! j# n# l* ]end
- j" ?9 G( P* g" Z6 R! ]to do-plots$ t2 a/ J! {: H* c: n' m+ X
set-current-plot "Totals"6 g) W+ N! `1 u" E- F
set-current-plot-pen "turtles"
( d3 L- A2 B# k+ W9 `' V. u$ r plot count turtles
1 P# S( q& l; |: c6 i set-current-plot-pen "grass"7 v& A1 L) W8 i- o
plot count patches with [pcolor = green]6 z# n P7 @; S" ^ J
end# r( N/ R" b9 k* M2 e' n$ V
可是运行时提示no such plot: "Totals"
: Y4 Q1 n2 W& u2 l9 z" Perror while observer running SET-CURRENT-PLOT
! \# a0 z2 B. n. m called by procedure DO-PLOTS) `+ m" |. _" p; A' I
called by procedure SETUP2 F% T4 ~) Z. q0 U
called by 按钮 'setup'
) o& ~ f% I0 E8 {2 W求大神解答啊 |