我编的程序如下turtles-own [energy]1 m. B1 q, A1 o" m
to setup* U: L D4 \3 R3 a% ]% n
clear-all
) a9 ]4 U- N+ w1 M0 V setup-patches
' t' M" ~) f5 [ create-turtles 100- r+ v7 n' f0 w M4 o! H, J
do-plots
0 B# r# n! ~9 S" Y5 ~% z ask turtles [ setxy random-xcor random-ycor ]% p" G/ K9 N5 J4 o8 P+ s8 A
end7 H* f' \- {; y, K$ |
to go
$ t" g( f& n3 Y* ?* ~0 J move-turtles; G' S/ A2 U4 M0 X7 d
eat-grass# e0 ~' D0 `1 z* c! Z
reproduce
5 j% q5 c; ?$ c( w6 ~! I check-death0 F% c' R9 ]. B1 w
regrow-grass
2 y) ? Z8 h- J) [) X9 w do-plots
# R9 c2 ?& G0 ^" Q( \8 R" } R% I9 kend0 x/ q3 [6 [) X
to move-turtles" @& l# V& }8 d# u6 r) J: Z3 i" E
ask turtles [* N5 R2 h4 w: ]8 L3 q3 H3 a6 I# u
right random 360
+ I$ C0 B: A) O* F T; g6 @+ N) u forward 17 x# _1 R3 L) h- D; n7 {) l
set energy energy - 1
1 ^' R) v- m- H. j! k/ M% Q( C5 t) ] ]
+ [' k2 }5 e b0 Q# s' \4 Gend6 X. }/ L E6 _# X. N: Q+ M
to setup-patches6 W6 k; _! S+ ~( [
ask patches [ set pcolor green ]
8 a% z% l' j& y; [. R5 w' Iend
5 G! l2 Q y5 j6 Uto setup-turtles# g- {4 t0 j3 p$ |
create-turtles 100
) a, ~5 H" G! F3 M: S) r ask turtles [ setxy random-xcor random-ycor ]: f8 O$ c5 t* P9 g
end
1 _0 z4 ]1 J' b1 z+ O0 g1 l2 kto eat-grass
+ T% x% m9 ?0 _ ask turtles [
8 d2 }/ I! @. E+ y4 G- r4 q* M7 a1 \ if pcolor = green [
3 U3 g i- a! f, h: m; S5 o set pcolor black" A/ `1 U2 A9 x! Z" o' q2 F! g
set energy (energy + 10)( ?0 p' J M( r. ~( O' z
]
5 H5 \8 p, u! C0 v8 C, C ifelse show-energy?! w0 S% V, w' D, N& U( c7 _$ @
[ set label energy ]
5 V; }/ S' Q/ c$ g [ set label "" ]5 ^+ T+ ^# q. l e* Z9 W2 Z
]( q# E6 N; {1 ^ z E
end0 T5 v6 |) G9 c1 v* G6 [$ B$ K
to reproduce- i9 N8 {, N+ s9 n' a2 \! z/ O
ask turtles [' w0 k0 t' P. D
if energy > 50 [. C" d+ r: o0 @9 p
set energy energy - 50" l& X) U3 T. i6 h6 X
hatch 1 [ set energy 50 ]8 V! ]+ ~8 U! N( S9 Y% G
]
+ B7 t7 f+ s% n ]! t! W9 z' ^. {8 y
end: `$ q' Y5 V/ r9 E2 C
to check-death
" H( H# d/ ~. n- f0 M3 F ask turtles [5 W4 K; Z. M1 |- _
if energy <= 0 [ die ]
: y( h, m0 f7 |+ l$ ~ ]
6 Z3 a+ x, ?- z, c; w0 [; ^% uend" k2 p7 F. h5 J# u* t) j+ i
to regrow-grass
9 q" r( `' Z3 |: c# C* A$ U" A ask patches [7 @, `/ m+ Q. q, {) p
if random 100 < 3 [ set pcolor green ]
; E2 G4 a% J3 Z: c, | ]) k5 o- B6 i; g& _* ]7 ?2 n
end
, v' e' Q" D" h0 _ Z9 qto do-plots) I: _, }/ L( E* ]& Q6 A7 ^0 T, {
set-current-plot "Totals"
6 w$ _/ a* F" g set-current-plot-pen "turtles"
' D( r& D/ |4 o: [) J plot count turtles
H2 ?! d; b2 b) a set-current-plot-pen "grass"
7 Y. N- N# }2 |7 O plot count patches with [pcolor = green]: |& y+ i* ^$ r) G* T
end8 Y# P8 @% Q1 a7 x( p& f5 M6 T3 D4 \
可是运行时提示no such plot: "Totals", y) O- q; l" q
error while observer running SET-CURRENT-PLOT
7 V& p1 L1 g( F9 P5 ] called by procedure DO-PLOTS
- Y# a3 k" c- z* G3 ^, [+ w called by procedure SETUP0 a4 t2 \* M/ f' m7 k
called by 按钮 'setup'
$ H$ }1 `5 v: x# u求大神解答啊 |