我编的程序如下turtles-own [energy]+ K4 D0 C! A+ ]1 }, f
to setup
3 V6 U0 P6 Y5 d# x# }/ c, N: v clear-all3 o* t: ^. \# L" u- O
setup-patches
4 v$ I* H; M2 d c { create-turtles 100
! T, P: v/ b \0 B3 ^ do-plots, @+ J. n0 \0 i' p" Y/ o
ask turtles [ setxy random-xcor random-ycor ]5 D. h: H) T& O0 e4 Q2 m/ t+ E! Y
end
1 E7 ?9 n* M, v9 a7 T: `. p% jto go
7 W+ a9 Y4 s' D d, P. l/ T" S move-turtles
! b) ^6 U4 Y0 J* W; o$ K- ~ eat-grass
& A' @9 h; @1 F O* {' q reproduce
& P6 t: b4 }3 [: i+ s1 ? check-death
$ W# h3 n7 B0 R& c regrow-grass0 R6 t3 e2 V+ v' |: ?
do-plots/ e8 ]# C2 ^" u0 n
end
( s' O6 Y' {8 i2 N; ato move-turtles
* `" A1 o& i2 Y8 _, W+ K ask turtles [
) d( {9 q1 g" x) j% @ right random 360$ a9 J! y; e. C- \0 I* O
forward 1
9 X5 W z5 w u( p* N% d set energy energy - 1
& {1 T" [1 {1 \, c& w/ ]3 N/ h$ U ]0 t: e$ ]7 `! s5 z
end
$ ]- C! R- S. P7 {( w0 Eto setup-patches; k) [! K( x4 @+ B5 P1 h$ {
ask patches [ set pcolor green ]) @$ e6 O1 i, o7 s* D; [
end
: B9 `; a1 m+ w/ L& Qto setup-turtles
" v6 O% [/ C' R. G. s. e create-turtles 100
# T* n4 n1 T' ^+ C$ {# W* \ ask turtles [ setxy random-xcor random-ycor ]
, v8 r- b; T: `0 R! q; d9 Pend2 g6 t& Q+ G# |
to eat-grass/ s P. |/ r) m2 c9 F9 L% f( \+ ]
ask turtles [
, Z% ^) ?. D, T- p2 v2 J8 w$ S if pcolor = green [( N T9 c3 U( w* m9 B' h5 u) R' N( B
set pcolor black; c0 [2 s X8 ]7 E, I* [
set energy (energy + 10)8 P0 G8 G( a; T' ^ C8 ? p
]' d' t# X9 M0 }' C. b& B W& T: ]
ifelse show-energy?
% F' z1 c& Y) ~0 F! S6 h- q: j x [ set label energy ]
/ P) y$ z/ v6 i/ |* C/ n [ set label "" ]
" O3 p+ O" z, q( Q1 m ]! k6 E" M% W' V4 F {
end
4 _. D4 A% e# ]to reproduce6 C; g" ]9 Q& A4 {
ask turtles [
0 ~/ t. C2 A0 s7 N8 n4 g0 ]% D: k if energy > 50 [) E: P/ _+ S( u' I1 P1 w
set energy energy - 50
3 k8 ~/ d! g5 p6 r3 u6 X hatch 1 [ set energy 50 ], z W k( X1 k9 j
], d& Y: t7 }( [$ g0 r9 r2 e* T
]8 b4 n T- I, x. E
end
/ [! y. w! O5 n0 C5 ^# Xto check-death
" B9 Z; f" |3 A ask turtles [- N7 G e, }& K' y+ e
if energy <= 0 [ die ]" y M1 [) M6 P5 i
]
; B, R- _% @$ S5 ]$ u/ V+ Hend+ j1 w! n4 V0 E' W- Q
to regrow-grass- G5 v, R4 t( g$ n* u% T
ask patches [0 m8 ?) @, E& {# G
if random 100 < 3 [ set pcolor green ]
# \& V" n- l( l0 l ]
% E# x4 C4 p" i: t6 U* Y9 {end
9 O' p" J# j2 L: B3 F/ Lto do-plots
. R) c( ^0 s% |5 | set-current-plot "Totals"
K) Z/ {8 R2 R) F6 [$ J set-current-plot-pen "turtles"
. h# U1 H+ x/ Z' D, [ plot count turtles
4 z9 ~# s* [+ g+ P' J set-current-plot-pen "grass"
/ W' D7 V! T5 o6 f0 z' y plot count patches with [pcolor = green]
: E7 t* Q9 b+ W+ a cend$ k5 H1 }5 |! s
可是运行时提示no such plot: "Totals"5 @5 |2 W# B( W" e0 D
error while observer running SET-CURRENT-PLOT
1 l$ x& z6 s' W" ?3 d1 t& I! ~ called by procedure DO-PLOTS7 c+ q3 c/ ]: ?& U8 v, \' o
called by procedure SETUP
$ I6 W* W0 g Z& e. ^6 ~" A called by 按钮 'setup'! L. {4 D( q% [+ E- |5 ` }
求大神解答啊 |