我编的程序如下turtles-own [energy]
9 X' H2 r1 b& f3 E# g$ S4 mto setup
/ r% R% X8 f2 o# d3 V clear-all$ O, S$ M) o: O1 N; ]8 u
setup-patches' A3 h) k: u+ s# S1 f1 i
create-turtles 100$ G$ H) _: B6 Q0 ~0 ~: _5 X
do-plots
+ n+ l* R3 M* ^- @' y ask turtles [ setxy random-xcor random-ycor ]
/ C* E+ v- Q0 N4 z4 W$ kend
6 Y9 A7 x# ]' n( {! s7 h p/ ^( Uto go
2 I- e$ O, v) k! {- J3 n move-turtles C o! T( R& ]5 y4 E
eat-grass
, c' |; R7 K7 e* j reproduce, P6 X u' a# N& R$ A% k* m$ t J
check-death. r' Z# i \. q2 V7 P8 d/ G
regrow-grass$ W( ]4 q5 ~$ Z/ s# e5 j6 J F4 o
do-plots0 w1 ?! H+ \# U% h' L
end: V! \% f9 G" ], x0 ?
to move-turtles3 n4 f& E/ b/ l: C+ b3 i* V$ m
ask turtles [
" e& Y* }3 Z' ]3 |/ Z, e right random 360; M4 y4 p' o3 k
forward 1' X# N }7 N) Y5 G" D; O8 I, d
set energy energy - 1& I, n5 [ I! S5 m2 ^6 A, }
]
6 y9 e2 a5 m( G: n/ F5 n2 fend
6 n, y" G0 d$ m2 @1 {. P7 m, T8 [to setup-patches
5 P9 u: b8 V2 c9 E+ p- f0 D C6 h7 ` ask patches [ set pcolor green ]
# W* y: }1 f6 Q$ N) gend
$ c% { q7 S# oto setup-turtles5 v5 O$ s- [( A
create-turtles 100
4 ^2 z* k% C1 } ask turtles [ setxy random-xcor random-ycor ]
* ?8 R7 x. T: Q2 |# rend
7 ? a- c) Q( w/ fto eat-grass2 n7 |0 H- c" f+ o! U V
ask turtles [
9 i. ?- H2 e$ Z! z- |0 M ~. b' Q if pcolor = green [% l" u0 y( w" b' ^" C7 ~3 k
set pcolor black4 Y: }# x- c8 T+ O* l* |4 x8 ^
set energy (energy + 10)
# s' a9 D0 z6 E, a: { ]
$ w8 k4 I( U, K) k) N: {9 R ifelse show-energy?1 q2 t% _ r1 {* P
[ set label energy ]
+ {: ]8 z$ V; ~) E6 k [ set label "" ]/ P# q1 x K8 C; |1 T0 f, R
]
3 L% T/ V+ J c4 l- J% M4 P7 O. ]4 mend
T) \$ P& o2 W) n0 H/ L' eto reproduce+ w# R& C7 i3 v; W
ask turtles [3 x/ B1 }3 W5 y4 \: U1 h
if energy > 50 [. ` m! N+ n3 v: m0 c. [1 V
set energy energy - 50/ m, |! M- `# b4 z: ?, A
hatch 1 [ set energy 50 ]! z9 e. X* y. n% Y1 m
]1 E" N7 x4 R9 r/ s
]
' V1 Y) E4 _- l* T5 a& v3 Gend% v, J: o% S8 L
to check-death
% ?/ x/ Z- |2 i% P ask turtles [! P8 W. D& g! x6 }! A: W) ?& G/ D7 i
if energy <= 0 [ die ]
% }# a) t7 |4 x( @2 H$ x' l9 S ]6 m3 O( b5 e; N/ h
end
. S' n8 L1 q0 J! i+ Xto regrow-grass* r0 Z: W$ D5 z H4 ]7 m+ F3 Z5 b
ask patches [
7 y: z7 J8 w$ H- y$ k" [! A, o if random 100 < 3 [ set pcolor green ]
& I# Q6 D+ R, o: q ]( O7 @* t& |+ h# A: w V
end
?) {4 N% n& C9 V9 M) p/ Z0 N7 Yto do-plots
+ t2 r* H+ `% N1 o set-current-plot "Totals"
( V2 n, b' r" O* p set-current-plot-pen "turtles"
- O) y! ]' M( e: X: H, G plot count turtles# B& U `' n2 u# r
set-current-plot-pen "grass"
7 `7 {0 k) U8 d, ], E1 K plot count patches with [pcolor = green]
' x) M! p' j& Q* j# Z4 gend9 w$ h9 e" Q. v, K% W# B) c
可是运行时提示no such plot: "Totals"
" Z& z# O6 t9 Perror while observer running SET-CURRENT-PLOT
8 v# d9 t4 v7 Q& F" V0 c called by procedure DO-PLOTS
/ S7 C6 Y; w5 M7 t3 Q# [9 ^2 p called by procedure SETUP
0 S& k$ E3 E* a" M0 b called by 按钮 'setup'
5 P! w p3 N6 }. U2 q! k求大神解答啊 |