我编的程序如下turtles-own [energy]: N+ l. P% g% ^; g: L R, K
to setup
! j* _6 c8 u. `# ]) T9 M clear-all
* b' j2 m1 I* ^$ _ setup-patches
6 q |# n$ h4 l% A8 h x create-turtles 1009 s4 z# V, o. F) [' [8 C# T
do-plots; S! p6 t& |$ \7 H+ o; H1 L
ask turtles [ setxy random-xcor random-ycor ]
- M+ x, d4 E' U1 q; cend1 E1 ^6 s0 m( H, w# x9 c! \7 P
to go. y) e6 o- U. q1 H/ m1 W& M
move-turtles
0 I7 |, H* K2 ~ I8 V! Y eat-grass( P1 I8 t' d d( q3 C5 h1 k
reproduce
- o* l2 I* D8 P# y* `4 h% k' w check-death
* N# M! R' L# M- J( S regrow-grass
) y, ]1 r: Q& K9 Y/ R6 d( L do-plots; R w, L4 i; \6 ~8 h
end2 A% o# R5 w3 S H
to move-turtles+ l) Q/ @4 i9 H/ j, e$ m r
ask turtles [2 T2 H0 U8 l7 X1 _
right random 360( G2 F% g" c5 k6 P
forward 1
7 x8 ^; K4 b: `1 c4 c, P set energy energy - 1
7 d5 Q% f" P% j% u/ P& C ]2 u j# i# g5 s p3 I& e- Q
end
$ a3 m4 b& R1 L- [8 pto setup-patches3 K: P% }8 c! \) L. U0 o0 i
ask patches [ set pcolor green ]9 y* B/ Y" k' |, y
end. b/ K5 M% t, W# P. r6 k9 p
to setup-turtles
, m3 v/ D p( t- r create-turtles 100/ T0 ]; e% P! J# }3 b e
ask turtles [ setxy random-xcor random-ycor ]
4 h: w, A- s% k, U9 l, vend* v2 Q% f* C' q# @; K
to eat-grass
7 D' Z. ?) D1 l* a0 |- Q" q7 Y& f0 k ask turtles [8 r: D4 u& T3 t& c/ [
if pcolor = green [( U$ W( v5 G% x0 m. x
set pcolor black$ y! `7 u# p$ e8 p* b" ?5 e
set energy (energy + 10)
0 t- V% i6 R7 V- | ]. ^3 s y, V: i& Z& X% X5 b; q
ifelse show-energy?! t. n. R- W" Q6 x2 ]; S5 q
[ set label energy ]
1 O! \0 I+ Q4 a# V! \$ T8 n [ set label "" ]
/ }; ]' u% {+ d; ~; P ]
4 v4 e- S7 U( _end
3 q8 e+ H1 E- B* ^to reproduce
, Q9 r* J8 R! V4 { ask turtles [
: z) \% [6 _2 p2 b if energy > 50 [ z* e7 j. x7 Y# E9 G) m0 j
set energy energy - 50
2 p2 x+ G4 E8 X! c hatch 1 [ set energy 50 ]$ @( r9 v5 W! i" }0 `4 m
]' p5 }1 m# c2 M1 p" l3 G/ P
]: \7 ?) O5 {. ]8 ?$ V# l
end
* l& m: Z, I% l6 oto check-death
: }5 {- M7 k. s+ ^2 d+ T ask turtles [
4 ?% `9 x9 d' H( l1 i" J if energy <= 0 [ die ]4 Z: {3 E2 ~7 q
]7 u4 z9 ~! L5 b5 m0 l4 z7 h
end
" `. ]6 t) ?$ Q& ~: Q4 |6 tto regrow-grass
6 h" K. n8 f3 z" S( W3 n ask patches [# s* _8 a2 B3 C6 U- I0 R; K
if random 100 < 3 [ set pcolor green ]
+ m) p! ~9 s1 o! o' s: W ]0 _* g8 T2 @/ ~! X7 S% X7 F
end
2 B, R& [: B: ]+ ~to do-plots
8 }! c5 h9 J! E. \" L1 q4 q% b$ P# b set-current-plot "Totals"
. M n' t) ^, ~2 g set-current-plot-pen "turtles"
2 r- o: i" _. I; M" i plot count turtles/ Q& u1 ?1 `/ Z( Q0 l. r& P
set-current-plot-pen "grass"5 w0 Y* B3 C2 V& a4 U+ f
plot count patches with [pcolor = green]! `% @% K: [7 f/ A. t p% u6 R
end
I. l; Y* M" Q8 i/ d可是运行时提示no such plot: "Totals"; k. A# \( y0 w1 I
error while observer running SET-CURRENT-PLOT. D) A5 N7 U4 G' f) l
called by procedure DO-PLOTS
& E* B- y. ?. P3 @- I2 @ called by procedure SETUP
) }) r/ l. l; v# d) Q, A called by 按钮 'setup'
3 P9 A: |6 C$ S* x求大神解答啊 |