我编的程序如下turtles-own [energy]
; i1 j4 C! |0 O: H% X! n3 Pto setup1 u, U7 q; B# ]# c% ^. d
clear-all
/ F1 {. K) }0 \6 }9 x8 R$ W setup-patches/ J b! x7 ^# \! E- T
create-turtles 100! }' G+ ~+ e" \* F
do-plots7 r% B+ E" F F
ask turtles [ setxy random-xcor random-ycor ]
+ E& E) b7 L/ Cend
% F& I% \' B: Sto go# t( ? e* n$ [+ M
move-turtles1 S! r& F( g7 Q ~% q# F
eat-grass3 x& t* _' `* d' o6 p, e8 T. a! i
reproduce* L3 ]! r4 N0 k0 v3 _, O) E
check-death
4 y9 `% L0 F4 A. p% M$ [7 R ]. Q regrow-grass) i' h% t2 f0 X+ r7 j6 y; i3 K
do-plots
6 K& V9 y9 S; |5 }: b/ Tend
3 W* M6 Q+ S0 F4 |- rto move-turtles
* _4 Y8 O/ S+ B Z, {4 d. J" Q& n ask turtles [
3 k. S% m# F( F& F$ w. L# g right random 3606 t. _. _( `+ z* [, U
forward 1+ A' k5 A) s7 e
set energy energy - 1
" O9 Y! h; S' G q. h( D+ _ ]
( L, W7 l$ q( F9 t. ^6 E, Pend
9 [, {% Q( J- J' l" gto setup-patches
# z5 Y8 {' D9 \' ^" V ask patches [ set pcolor green ]$ p; O8 b. r2 @3 _) B
end
- V5 [1 g' C( k& ^# u9 ato setup-turtles7 M G/ X# V; z8 F o
create-turtles 100
7 A* l+ ^% P5 E% N; @ ask turtles [ setxy random-xcor random-ycor ]) t' p" O4 @9 n
end
8 X7 c# D A F& H7 Z4 Z& dto eat-grass
W# x m5 j% Y _1 R+ a ask turtles [. h8 Y) C E' [
if pcolor = green [
+ n% e, T- Y0 U set pcolor black
! Q# E, B7 X% Q8 K' i0 { set energy (energy + 10)
1 w. o; X! k( o. x! s ]' |4 W/ j+ a9 s M" q
ifelse show-energy?
! h- ^; v% I! z# u- h [ set label energy ]
8 E- z2 E. s( P" _- c [ set label "" ]
+ |% M( x& K# H* S ]) ]7 E: P8 H- M7 x# r4 ?
end
8 T* @8 c }- \1 \# Yto reproduce! T4 ~8 H2 P% b4 @# ^& G2 l4 o
ask turtles [; J! S2 j% D9 z- ~. R) C
if energy > 50 [
% b2 ~+ x0 w0 q) o* u, X- h' G2 o set energy energy - 50) O5 ~3 D" |8 y; Y' Q
hatch 1 [ set energy 50 ]
7 |# c5 X. j' W5 i, Z ]/ G T/ @% d. v1 I, q5 T
]
. I: E9 ~/ d0 Z3 f8 A4 F( kend
\. K' c8 k3 z; N& |- H: Xto check-death
: i1 ~% o4 C. J5 v3 [, C ask turtles [
, K3 x, `; l. |; ] if energy <= 0 [ die ]
6 h8 v& v- M! D4 o/ y) B0 A1 P, V ]
7 ^: c5 F2 |4 Z# R% D0 wend
/ Y: G9 k Z, G# L. y& eto regrow-grass% A4 D. y }5 Y
ask patches [; R6 a6 W. a1 k" q
if random 100 < 3 [ set pcolor green ]: k) {$ | b- Y. M, Q! v
]& q3 E6 ^0 |0 t0 o- g
end
/ C) _. V9 c7 hto do-plots( b5 o2 j- c* q: }1 G
set-current-plot "Totals"
2 v/ R/ l( {- C; x( h set-current-plot-pen "turtles"2 G" |0 L- W1 y* S1 h
plot count turtles- W1 J: D- j$ S0 P
set-current-plot-pen "grass"
# Y) i" `2 h3 ^+ f# b& c; b plot count patches with [pcolor = green]: q7 C+ N* A$ Y1 P1 \9 @
end6 ?. l6 x3 l3 H
可是运行时提示no such plot: "Totals". r* H1 [* q& p& c1 w
error while observer running SET-CURRENT-PLOT
1 e+ y; q3 f; O2 z3 w called by procedure DO-PLOTS
) q+ p- j+ V7 l. X( Z) I% z* l# x4 s called by procedure SETUP
8 g% ]$ Z! X! k# q' o called by 按钮 'setup'9 T. S# K- F0 y: k
求大神解答啊 |