我编的程序如下turtles-own [energy]# g' M& z& b% T
to setup
. F' Q4 S0 a4 K clear-all
) o4 v) r" [4 R' f8 p3 k1 D setup-patches
: H& v* L4 z7 d+ _ create-turtles 100( ]8 g1 l& K+ Z0 ?9 I- C @
do-plots
. s v- E" m; s, L/ Q8 i4 G: N# R ask turtles [ setxy random-xcor random-ycor ]
2 S' g$ `- `6 j0 x8 c' Pend
. o# g `3 }( d( ~( _+ Mto go
/ A! ]7 v* l ` move-turtles) m5 E- L% ?" c
eat-grass+ R* y5 S$ ^, @/ W5 o
reproduce
7 O1 {( H# q m9 b( ` check-death
) T) N2 Z0 L3 R% [ regrow-grass- n: N3 }4 b z
do-plots
, L3 y! Z1 h) p1 Yend
) j; K5 ]8 r: n9 ^to move-turtles1 c0 R* Q. ^) a8 M# r$ Z8 {
ask turtles [9 s7 {- L/ `0 W0 ~
right random 360
0 b/ Z% I1 S5 T3 `2 t! P: S forward 1
: T4 H, k7 {* M; ]$ w set energy energy - 18 c4 K! q) X9 ]
]$ U! S4 D9 M; T, z8 h( f
end
. {( O9 a2 H6 R$ gto setup-patches
% D& t+ X- k0 T ask patches [ set pcolor green ]3 {& X9 Y' Z8 w( ?( T( O. l# r( b
end
4 U, {5 T( Y. H' fto setup-turtles* L2 x4 y# Y8 O" E( w# e k$ L
create-turtles 100
5 k% H0 I3 Q! ?' \ ask turtles [ setxy random-xcor random-ycor ]
, Z( G% M- |+ T' V5 Uend
& k3 H i7 x7 Q6 j sto eat-grass
% P# {6 n" r' ^) w! N9 H, b ask turtles [
3 `" {( u$ l Y9 ~! t if pcolor = green [
0 R* v9 l4 P- l& w6 ~4 N9 h/ i set pcolor black' x' k/ n4 I+ u8 K# j, y
set energy (energy + 10)7 F' b* O0 C- P% K
]6 t0 C) B$ i4 c+ D0 w
ifelse show-energy?# z: [. G3 X& M$ w5 V) B9 I6 ?3 b3 ^
[ set label energy ]
1 X% w' x& }: r9 f# ? c [ set label "" ]
7 \$ {2 ~. n1 j9 c' u# s ]
) D+ ?" R: n5 ?! ]3 X* kend
, y4 c8 n6 P; ^9 qto reproduce
# U% ^4 H6 D& h2 F+ e ask turtles [
+ x1 p0 t, j3 ?2 w4 r4 [, |( {( L* P if energy > 50 [
/ j* o) o k3 x6 K set energy energy - 50
6 h y& D/ ?, x4 I hatch 1 [ set energy 50 ]$ I5 I" A, \- ~0 {' w
]
# y: ^+ I, j. r8 E1 t+ N ]
3 o* t0 g2 ?. lend
" b, P% X. C- m6 Nto check-death
: v7 r- b1 S+ S! u1 P ask turtles [
2 q% k: u8 i z! }! `9 a6 |. R8 l if energy <= 0 [ die ]) m& L1 C9 a( j
]" p+ C6 Z' L9 M# E3 |: W
end
4 u( ?+ g' S+ w( T jto regrow-grass2 f+ W6 r9 i( B
ask patches [
) d/ m9 K6 u& q: m- \/ D) m if random 100 < 3 [ set pcolor green ]" V) g/ F2 ?9 t9 ^2 C- C, @( |
]! {3 J% J0 s: O! X# ^0 v
end7 i0 X- D4 n! F" { R4 ]' |
to do-plots$ l- J! w0 Y; l5 |/ V. b+ i7 z! p
set-current-plot "Totals"
$ [5 L* ~4 L( w8 H. H set-current-plot-pen "turtles"
* d B+ i( V+ A plot count turtles W& n3 `- ?3 w% q* ^
set-current-plot-pen "grass"& z, ^# j, `. H. o7 g: g
plot count patches with [pcolor = green]
6 H( L! R+ }# C! F8 qend4 i9 }. {# s: v4 h6 Q
可是运行时提示no such plot: "Totals"
4 {9 t/ x. ]9 K* a; Yerror while observer running SET-CURRENT-PLOT
n' u( U; P$ C* _8 z called by procedure DO-PLOTS
# h7 D0 I% c7 [/ e+ \0 T1 j called by procedure SETUP
( S3 R. u' \3 @, Q" i- x3 q) O called by 按钮 'setup'
4 M3 L: d: d+ Z! f9 X求大神解答啊 |