我编的程序如下turtles-own [energy]+ S, r1 l, m8 W" M2 O
to setup5 y! s; ^, w& o" h
clear-all
, j( Y. ]4 Z; }+ D, K1 n! q& r setup-patches
: _4 y# u. ]2 v7 c create-turtles 100
6 A& A: U' r( S ^6 T do-plots$ b+ N2 B1 ?% z3 E1 p: {
ask turtles [ setxy random-xcor random-ycor ]# |1 w* X! R3 i
end
& B. N. _ |# }! P) b- Lto go. E8 D2 Z! A* Q9 R4 {/ }0 t
move-turtles) a; x4 w! k3 \
eat-grass
5 F8 q5 M0 Y2 t/ W+ q9 \, t# T' E, x reproduce8 z, S$ B! F8 \. J, }5 j
check-death* A) y) W2 S7 @! |* p7 G
regrow-grass, |: c ]& r6 J7 h! p) z: F
do-plots8 S. ]- n) L2 h s# X
end0 z& T% P" ~0 E$ P! W2 \9 f: y
to move-turtles! x) @9 |0 X- V" p, [: s# B! ?
ask turtles [
8 M0 x9 c3 {+ k# T5 x right random 360* `" I- i' O0 K9 a9 y
forward 1
?5 |! L, y$ Q W% r4 x set energy energy - 15 | E- Z c% x9 y/ d( H
]! u) k% S. w5 v' R1 [% O3 l
end% u0 @ Z& S! M) _" S; r7 f; T
to setup-patches8 Z; Q8 b# e/ O5 C: a
ask patches [ set pcolor green ]
% I. K& |* U; Zend) a6 O0 r2 k9 }0 J3 C
to setup-turtles: a# a( v" s1 Y* b" {. w$ I
create-turtles 100! l, R& \: K7 ~
ask turtles [ setxy random-xcor random-ycor ]8 R6 e i. V7 t! T
end
, d9 E F/ u; W) r2 R8 `# S# W' jto eat-grass
8 ~9 l! b ]1 ?! D" C; } ask turtles [
# l9 s# i5 x# A% Y6 q; i if pcolor = green [
% C8 V/ ~6 @' U* b$ ?8 k |" j set pcolor black
5 _$ _4 _/ z o& R; Y2 {$ g( Z5 J set energy (energy + 10)# \4 ]/ K0 a& b0 w9 T# @1 _7 M% h
]. O/ a5 D6 U( D @% \; J+ h8 ~
ifelse show-energy?
4 @1 P# d2 I. m' G' ^0 I, X& J [ set label energy ]/ L6 Y! @+ u+ C: v, r$ ~3 e
[ set label "" ]* s0 G2 k$ f# R
]
" ?/ Q4 w; G/ `end
2 p7 H3 c$ O C3 Z. rto reproduce
: G; O- L- U1 e1 N) ]3 x ask turtles [5 p" J; I* L) G- Q- c
if energy > 50 [
& y# V5 I- m) i$ b* S! g set energy energy - 50* k8 h% B1 W, C1 o- N
hatch 1 [ set energy 50 ]
0 B9 U5 A) G$ H. |& k/ C ]
1 d2 [) G# C$ S; G, l( e ]) m8 G4 p. ]( H7 n; w) \6 i$ n
end
& b* Y, x+ _, R! B# |! I' M: D7 sto check-death
6 i4 v3 E/ k0 L% P/ o. G ask turtles [8 T* ~( y6 i! Y* w' f* |
if energy <= 0 [ die ]( h2 H2 |! B* Y! S8 i
]% k4 O/ L+ @% Q7 T7 G2 B& F# @
end
$ z Z$ Z7 p) a2 Q1 p/ I& i: i) Pto regrow-grass
# y" O+ T Z. A4 q/ }3 @ ask patches [8 a3 J7 i( L# {( T# n- M9 Q8 w
if random 100 < 3 [ set pcolor green ]
9 x$ @" ~- W7 z+ b. H ]
$ r% a! H7 l2 k) R: H; f/ T! bend
: f& F" d3 M/ hto do-plots
$ K# d; e* ]! \1 B! o0 X) { set-current-plot "Totals"
+ T) W2 S3 j- ~# M# Y t6 v set-current-plot-pen "turtles"( o" `6 h* {" E: a) j8 v4 Y( d
plot count turtles4 P1 q( V5 @. O) U0 O/ P- n
set-current-plot-pen "grass"
: T: e9 k. M- I& p! A plot count patches with [pcolor = green]2 v# u" r% G) T) n; ?! c: s0 ]
end( C) f1 h. O) J
可是运行时提示no such plot: "Totals"
: U# c; B' D* M# Qerror while observer running SET-CURRENT-PLOT1 T! B) Y+ v- B! C6 V+ v6 @9 f
called by procedure DO-PLOTS
0 O) }' u& @8 k0 }; M0 c called by procedure SETUP
( C2 J+ a- l( M$ H) ^% |; h' C0 j# w called by 按钮 'setup'
. S8 U) N7 W& F求大神解答啊 |