我编的程序如下turtles-own [energy]
1 A! Y7 [# ^# E3 k7 m& q, g# Nto setup
1 _0 c% O- i" K! z clear-all
9 I6 d8 C- U" l& k setup-patches
' B& q! U& B$ }+ A" V create-turtles 100
7 f+ W" O' @( t$ I) r' ] do-plots
! D( G* u5 `( f/ _, R3 n ask turtles [ setxy random-xcor random-ycor ]
i3 P* x H+ P, M6 H- h; Bend+ _3 h" n% l0 r7 @
to go
, ]5 `. B. Z! i move-turtles
) j& _. S0 @ [" c# o) p eat-grass& x% q1 H! v) T" n
reproduce
; i+ X1 Y1 x: ?% M+ B8 J check-death
& e( {0 ~* |; n3 B. p& W regrow-grass+ R( D6 E- X) a2 k2 F6 D
do-plots G& b* P! k# u5 h# ^8 t y
end$ s" M- R$ O7 P+ E0 P
to move-turtles- d6 z5 G5 E) S! }
ask turtles [
7 c: ~# [1 _" u" z: c& V1 i6 i2 } right random 360
2 W& W7 t3 f# ?: @7 U: D forward 13 I8 L6 y! H3 J
set energy energy - 17 k% u! P/ T' O- m$ t
]( O* h( R: {' W. x4 ^4 M
end
) \6 ^2 o1 m) h jto setup-patches6 x" l7 c5 J4 l5 D8 V( q
ask patches [ set pcolor green ]/ ?7 g( a* [# T
end% y1 J/ U% l% j
to setup-turtles& X% n( f2 X: i3 i" X: X
create-turtles 100
3 F* j% e- ^% f* c ask turtles [ setxy random-xcor random-ycor ]
& E. R; Q& t: u' k- N/ B6 Gend% o: e( ?' k+ F: J' g6 j9 Z) f% e9 o
to eat-grass
$ C& Z5 F( X$ V2 Q: z5 W ask turtles [, d# W1 E9 f0 Q3 d" ] R: ]9 u
if pcolor = green [
( N) r6 b+ G8 k. k4 S set pcolor black2 n8 C3 ?5 k0 S6 p' W
set energy (energy + 10)
4 E4 N2 N9 O" N# y ]% Y. `( d3 C1 H: M3 B4 E
ifelse show-energy?& M8 _$ r4 c6 v5 y$ ~
[ set label energy ]) c9 A9 {0 o2 v& t" a( I
[ set label "" ]
# j. K( u/ ?3 e f8 _6 N( l8 w* J, _ ]0 j6 v7 h ?. D- N
end
- u# X* l. Z1 p oto reproduce
0 }3 p r% K8 i3 G ask turtles [# h1 k( l$ h: Q: s' q
if energy > 50 [
/ V+ l1 M" P/ v( Y: m& w( D set energy energy - 50
& F- S, U2 z% z Y! D1 K hatch 1 [ set energy 50 ]
! Y" u# o9 y) ?& b' C" L ]
2 A* c; C, v4 o: r ]' v* p( G# I: I2 D2 n$ b: K$ h! F
end
" l# U2 p; B* e+ l& \to check-death; I( S* l1 e/ Q) ]1 n* ^
ask turtles [
5 C9 S. n3 n$ E% ~- h if energy <= 0 [ die ]" Z2 B, p/ N; M! }7 m& o
]4 n+ H7 @7 a% B4 m
end6 ~: o" c/ O( y! `
to regrow-grass
( c% R9 P. j9 E# w$ Z, E+ Z7 |3 J( q8 J ask patches [, G R+ B2 G) v5 A* y4 K
if random 100 < 3 [ set pcolor green ]
# ~( P$ a& q: j+ N ]
3 e; I( j4 v: N5 V6 O4 Yend$ e1 y% L x1 e7 \3 M6 `9 R
to do-plots( o8 R7 N: z: b+ X( Y* E) K
set-current-plot "Totals"8 }: ]7 d) T. S$ a
set-current-plot-pen "turtles"
2 M8 t A1 a2 o) f2 S/ ^ plot count turtles
+ x) P0 m- ^( S, m set-current-plot-pen "grass", [7 ?. | _+ d: D4 U7 Z6 W
plot count patches with [pcolor = green]. \1 M9 y+ j6 q$ r
end8 S" B: ^) _ o. y( ~
可是运行时提示no such plot: "Totals"
+ t: @- `/ T: z8 E; ^$ n- merror while observer running SET-CURRENT-PLOT
4 Q F: _( I, }+ w I called by procedure DO-PLOTS
( n( o% \& D5 I o) t" u called by procedure SETUP; g. v+ y7 T: F7 v- k9 R
called by 按钮 'setup'$ ^% V( ~/ e7 D4 ?/ b7 T( H1 |* U
求大神解答啊 |