我编的程序如下turtles-own [energy]
4 h/ P+ k4 i( T3 Qto setup
4 ~* q4 e* p8 Z6 d clear-all
4 {' h. i8 d0 C2 H0 \8 | setup-patches% C! B. I+ @, Y. C
create-turtles 100
8 M# {' k$ U3 F; i; } do-plots6 y0 N7 C0 @9 U& G& h7 t6 U
ask turtles [ setxy random-xcor random-ycor ]+ m& T3 p6 R' O- w& x; q
end
/ S" _& c0 ~& U/ a3 Oto go! S: v8 `: Y* {9 g" |' ?
move-turtles
. V4 M( t; [# y9 ~& v* G% f6 G eat-grass2 {, U$ H9 X, D) {3 d( q
reproduce! f% Y; ^) F- a. x# i
check-death. {% i: B% s2 `) b/ r
regrow-grass1 D5 w6 e4 C, B1 W8 y
do-plots+ b$ ^" p" \7 M* R
end
( i! a( Z: R" v) E. F( |& }" Tto move-turtles& o) O' I+ Z/ J4 Q" ~
ask turtles [
0 K' \6 B! C# y# c, Z: Q+ h2 ] right random 360
" C y C* v2 i% U7 L w forward 11 {. \/ [2 t; T3 ~# Q
set energy energy - 1# t9 X% s. F0 T% v) ^* \/ Q {
]. U" O1 U ~9 M4 K; l7 I$ l
end
1 X0 U8 r- J! Y: `8 t" g3 Ito setup-patches
; H" S2 ?" F0 z( ~; x k, L: m+ p ask patches [ set pcolor green ]
% Y! e8 \. G8 P, |$ u/ ?- `end
' ?$ |- K1 m+ C) hto setup-turtles
0 r. v3 \; N0 O+ x create-turtles 100
, \ {3 O! i* K2 {0 ^ ask turtles [ setxy random-xcor random-ycor ]
9 }$ i. U% g) Bend2 m; e; I7 ~5 k; u. {$ w3 `. B7 k
to eat-grass r# F& W% \# I( m# C$ H, P
ask turtles [ Q7 ]2 u" E" Q7 V6 X( f
if pcolor = green [3 U; y0 K7 G) ~: L8 j' O
set pcolor black- x( z! O- B. v* |- i4 h2 @9 u
set energy (energy + 10)0 `1 d% c5 l( V
]
- m2 u& a5 {! @: {% T- J ifelse show-energy?$ O8 `4 g' a x* N& B/ p/ u
[ set label energy ]
6 k9 _4 M9 f) c" M* c" I. d0 v+ g [ set label "" ]4 _ j% k- q- t7 P
]- V$ W2 V7 ^9 l
end
/ _0 X& J1 Z' Mto reproduce
% ~, W$ ]4 N0 I+ D; Y( N ask turtles [
" T: d8 c- q7 `9 J3 E, ?4 V" } if energy > 50 [! v3 {6 x$ R9 @8 q* C5 J
set energy energy - 50
! Z/ T$ v$ J4 m2 T% |, p hatch 1 [ set energy 50 ]
+ R) }; V8 x& e: h% Z ] }0 c0 M9 s6 T9 z% H
]
4 P" Z0 [7 p! \" n2 J! [5 c# Z! Wend: t. A+ F- a% b" u6 S
to check-death$ ~# U) R$ z& J& H$ _, Y+ a/ j- p
ask turtles [+ e5 Y! X/ a% {$ {( r6 I7 m1 W
if energy <= 0 [ die ]# X1 m' U+ K8 Y% E3 Y+ M
]
" F3 ~; I. l7 w4 [end
2 A+ t4 x, K6 ^6 ^to regrow-grass, l! y( Z8 p! g
ask patches [
) {+ `: w$ @# g5 i! k if random 100 < 3 [ set pcolor green ]: ~5 I4 m: G) \( p b, `. T
]9 d H K* q: i' ^! Y& V
end
0 d1 B/ o5 H+ qto do-plots
2 E) `" c' j- Q r( @# t& ` set-current-plot "Totals"4 y6 Y2 U8 {6 v* o8 L$ u
set-current-plot-pen "turtles"
8 l- `: S( E* S9 J plot count turtles' ]0 Q N v' X( }/ M* j
set-current-plot-pen "grass"# V }- Z- u$ h: G: r" t
plot count patches with [pcolor = green]
, M; O# e# {: G) i# Z! i" Qend2 v# y+ v4 b- W3 Y$ d
可是运行时提示no such plot: "Totals"+ f+ Y' q+ @) e% s
error while observer running SET-CURRENT-PLOT8 w! I2 I8 L0 G1 z
called by procedure DO-PLOTS
: x( N+ Y g3 x9 W6 J) | called by procedure SETUP
" |. y. @: |; A+ Q! a$ l' \: n$ } called by 按钮 'setup'
' }' c( x8 K* z4 q3 u求大神解答啊 |