我编的程序如下turtles-own [energy]
( g8 Z' p5 q% j* f, b$ z2 m" zto setup/ H' k+ U6 |% L& r0 R" z
clear-all
2 r/ d6 h% G6 u' f setup-patches
' j, O' H& l2 M0 |5 n8 P create-turtles 100
/ N' U# b. Z0 i7 i7 W( j9 F do-plots
' g( b0 G# |7 m; h2 J7 { ask turtles [ setxy random-xcor random-ycor ]
7 b# K7 Y/ j! w# ?& r( d5 d2 [; _end
! g/ G' N9 S/ Zto go
3 G% ^2 R7 I5 b3 I C move-turtles% \ X x& {- ]5 i8 W+ d& r
eat-grass( k, E" q' j6 d, _% w. L. e
reproduce" U! o& |. c. h k$ X* [/ n
check-death2 _) _' `7 q& F F" E
regrow-grass- g4 S6 K$ L! @( q, |9 K4 V
do-plots* C! O& ?: N& y& _
end
" X2 G, b! p8 X; ] \to move-turtles
) [* d( L: O S! u0 w ask turtles [% L; o3 X- {# R. C& \
right random 360 ]' E. m$ H V2 w5 U
forward 1
7 N: D1 `$ n/ [8 K+ F" S set energy energy - 10 n) `/ I/ m. r) K) d6 ?3 v
]
) I+ @7 k1 a; e) _! y! Rend
- u- E0 V9 Q4 k4 T7 Sto setup-patches2 \% ^0 `* _: |$ h! J$ e# ?
ask patches [ set pcolor green ]3 b$ O$ F" r( w
end
5 R+ w+ `6 H/ Q2 }# {( ~to setup-turtles
' B2 |/ }5 o, T create-turtles 100
7 B) N# s+ Q: Q9 h$ C% F7 ] ask turtles [ setxy random-xcor random-ycor ]
0 w6 x/ X0 b5 ?, Q6 N9 R- ~9 p9 Kend
5 w3 @$ b i1 T! Qto eat-grass
0 C* x/ w3 I' J9 j& e0 _4 ^% f ask turtles [
, R. I* m8 \& r3 M- k if pcolor = green [
$ }- _6 S% E4 H$ ^3 Y set pcolor black% E; N7 W' K/ d9 @1 E& m+ u. g
set energy (energy + 10)
4 r& \0 K# B6 T* X$ I ]
. ~2 h$ `/ A$ u$ Y9 B ifelse show-energy?
6 o' m' R% c4 |5 ]1 w- S [ set label energy ]7 k) V0 I; G8 D$ V
[ set label "" ]
$ ~* U0 |! [- r h0 ? ]
" W8 R7 e& B# f. A( Pend+ f! }* K3 s* h9 T- @3 o r
to reproduce } o1 J0 J1 I- P' C- O
ask turtles [% m) {8 i8 s' s# Y- k W0 R
if energy > 50 [! I E9 L. \$ {" ]5 J- y' ]
set energy energy - 50 | l/ d: R' |3 W$ E
hatch 1 [ set energy 50 ]
$ S, p. A% _% { ]
9 {6 ]6 _/ Y6 u; s* p; ^3 Z ]
9 p; \( C1 ?9 j9 O% J! f% send/ ~3 F- m/ z' m# Y1 U4 ~
to check-death
$ Q+ W& c7 {5 e6 F3 ^( B& Z ask turtles [
( g5 X o+ y, j3 P3 ~0 K- O- p0 P if energy <= 0 [ die ]
, r- B) w, x" J( j; e8 l ]" ^3 X6 q/ j+ h3 M
end
' _! u: a2 |2 s J, M; `6 pto regrow-grass1 O" l$ |% w& x# N5 H
ask patches [; _6 |' ]7 c) F
if random 100 < 3 [ set pcolor green ]5 B2 @/ ~! i5 X1 O- E4 {6 C
]
8 k& V/ E7 K- l) d) L$ Y3 aend
' q8 J* W; [+ l1 K8 p# r* @to do-plots, h. x! C7 t& w; H- _* Y% N
set-current-plot "Totals": f, g0 \( M# U0 b6 `
set-current-plot-pen "turtles"
% }1 L% p2 M6 m4 e( R; h plot count turtles
; M" ~# S/ j+ X- v set-current-plot-pen "grass"6 I. g* D/ n6 j2 E- U9 W, O* I
plot count patches with [pcolor = green]: E9 m& P: W0 `: N) S8 e4 F
end* ?; T- _* D/ b
可是运行时提示no such plot: "Totals"
+ `& D4 f5 S- ?+ F# l0 qerror while observer running SET-CURRENT-PLOT
3 ~' l. D u% i7 n7 Q. s& j1 j called by procedure DO-PLOTS$ p6 q9 F1 z5 h: d. C! Y
called by procedure SETUP
; ~: ]# J x- ^: A6 @6 O( m called by 按钮 'setup'
& s2 ?" l5 s: L7 k; m# p) B# v% u3 A求大神解答啊 |