我编的程序如下turtles-own [energy]
! E3 u o* ]: l Z0 \to setup
7 F2 j# B# _- f# _6 H! m* h- V clear-all
0 g+ M* u( h: ]- H9 b, A setup-patches
! N [; \- d! f create-turtles 100
+ F2 A* }+ w4 b$ ~2 E2 S2 A do-plots
+ ]& x5 ]& S) E. P9 n5 r$ [! d: I+ t ask turtles [ setxy random-xcor random-ycor ]) n- K. R- r" E7 W3 O
end; I* L% a# ?3 `* ^, F. E2 X
to go7 U& I6 U; ^0 r! [
move-turtles
* \7 a+ { B6 c8 B eat-grass9 D) l+ m3 N. Y: k; l
reproduce
$ O3 j& w2 }# }. D check-death+ S6 H+ p* J, J$ U6 T5 {
regrow-grass' p, _" D/ |2 h5 E+ g" y: |: K' f
do-plots
1 t! E9 V( ]5 {5 xend+ B+ U. e3 _$ s2 j& K
to move-turtles
; T* O X5 Q# H- O! [/ [2 ] ask turtles [7 J$ G$ ^0 U A* g* f/ q9 R
right random 3608 S& G. m! r& a j! d9 R
forward 1 w1 X+ j' X. ~% L' |4 U; d6 c }9 v
set energy energy - 1* f6 C( G4 N7 r" k9 {: h( Y+ k! E3 M
]
q) V9 U& K8 J6 ]( Cend0 C. ~* P8 I2 }" f1 |
to setup-patches$ C: s. Y7 X; a( z' t! J) {
ask patches [ set pcolor green ]; h; @% q' R4 x. I& m$ @
end
( q. ]- Y) D; \4 C' m! P; Ito setup-turtles
& o# }, [9 O. d2 V6 H# F create-turtles 100% r) A+ j- f8 s! {* E
ask turtles [ setxy random-xcor random-ycor ]; M9 C* Z! @5 N; R, q/ R
end& ]; ~) z' e @8 [9 H" \$ d
to eat-grass
; H! W2 i# r7 g: z" j, ~ ask turtles [
* s3 U, K7 k9 J- F5 D% y- t4 P if pcolor = green [- T" q7 n& p4 ^* D& ~
set pcolor black2 ]' o9 {7 s G0 J' U( j% S
set energy (energy + 10)( p$ F) P! \6 w
]
& S2 R8 B- l$ x3 I3 ?% K5 N ifelse show-energy?
& n7 ]2 G+ o4 U0 z" W' ]8 M [ set label energy ]
" l# F, Z' P5 C) H [ set label "" ]
: {0 f/ ]! a: E" N/ @7 ]4 z ]0 L6 ^$ R/ x, B
end! D3 w+ o7 k" h; d0 h! r/ O
to reproduce. V( U0 o" O1 {1 z
ask turtles [3 u8 {' Y4 M' R' h6 a" k% a k
if energy > 50 [; n$ U1 Y& h. f6 t2 r Y
set energy energy - 50# z7 `8 O/ j! M
hatch 1 [ set energy 50 ]2 }0 C `* f$ ~0 W
]
: m! l6 L) Q4 k. Q) k ]
- O/ N: ]' ^! K" A3 oend
( n1 o9 B+ L b: H3 a+ E O% hto check-death
2 C5 P; P8 t# g/ ], [4 D% | ask turtles [
7 l5 ~- K( B( Q; S; @, _ if energy <= 0 [ die ]
) @1 f! E$ A% M1 j2 @) C+ B ]
9 s$ m+ g) e& aend8 F) p1 w: d! a. T# c" Z1 L
to regrow-grass
: I3 m9 F W/ S4 P7 F ask patches [+ m0 E3 x8 I! n
if random 100 < 3 [ set pcolor green ]
& @: ~7 ?# G$ {. V5 h0 T2 Q ]
" U) A+ X( J' ~' }. |8 Q2 bend$ T) E, t5 G9 T4 }% @6 n6 C9 V/ X9 e
to do-plots
2 k1 p3 ?! B; M8 t set-current-plot "Totals"0 K3 _" ^7 q) x: ]& O1 z5 Q
set-current-plot-pen "turtles"
" E* ~- g9 R* G0 {7 ? plot count turtles5 ?0 c. F+ B, J; f. s
set-current-plot-pen "grass"
" T+ E& @8 K: \ plot count patches with [pcolor = green]
2 r& ?* `, B6 s* Jend
5 M+ ?% y- j: a% }0 k可是运行时提示no such plot: "Totals"
! ?1 w: J# n4 m9 @4 p) C$ Oerror while observer running SET-CURRENT-PLOT
$ _/ t; E, d+ D called by procedure DO-PLOTS* |% q( D5 X$ \
called by procedure SETUP: V2 k1 w5 u9 ^
called by 按钮 'setup'! k" v; G: |/ }% c9 h% j$ l
求大神解答啊 |