我编的程序如下turtles-own [energy]% T. i8 K, t5 k& X" D: X" ^, ]# L
to setup0 o# B3 N$ ]6 ?& z6 m
clear-all; i" M5 Y! s, L2 i
setup-patches+ W. d. B* U- Z4 b9 O
create-turtles 100; K0 N: a! a; T ~
do-plots
; J) i. y: Q4 p2 T n* I" } ask turtles [ setxy random-xcor random-ycor ]
7 W: x; G7 g6 ~; cend8 `+ ^% X5 b* |
to go
T' U2 P: J6 p8 j- D; w) [8 D move-turtles
; \7 v5 W9 X8 |; V7 w4 D: r _* r eat-grass V- ~- ^9 @/ Y; b$ B5 m
reproduce
/ T5 T$ f! d- \. |( X' R check-death X0 y$ Z0 o- L, e
regrow-grass
8 }/ d$ n& f; o1 X7 J: } do-plots5 @" t4 g5 ?( V* H1 M6 N' M1 F, q
end
% `% w8 x; L! v! S% p3 C5 W% fto move-turtles
7 C. r9 G, g& y; d6 e+ e) p( w ask turtles [
' U; g. j% O3 x6 l) C1 N0 Z3 \ right random 360
: e3 b1 K3 b! C0 h: q' S forward 1
\4 ]) a3 |2 _" F, \ set energy energy - 1
! L: L; d- U( } ]2 t' J: n9 f& ~" ^
end
' I& w$ S$ m) q! n/ T: k9 Qto setup-patches
! P# v7 o0 Y& o( v0 L7 d, g/ @/ ~ ask patches [ set pcolor green ]: u- r% x( L8 i! U
end
2 l. D9 n0 e; h+ V* pto setup-turtles
2 | v) b2 d( a0 G" ^% p create-turtles 100
; L2 y7 r5 S! t6 e! x3 ~ ask turtles [ setxy random-xcor random-ycor ]
. X% A$ J2 A8 G! y, j& tend+ `* A1 A8 m1 _5 p( L! ]
to eat-grass
, @2 K/ N$ U. G# `; J2 y ask turtles [2 Y& e6 E2 J6 e( i& I, |3 g
if pcolor = green [
( G, U; y4 F1 J: d" d' k set pcolor black
( z2 b/ w) J2 g& e1 F# e set energy (energy + 10)0 F, f* _- a' y" u. _1 D _
]7 k Q! I# X2 x7 E- w. z5 h
ifelse show-energy? e5 O, H9 P6 x( t! y, T
[ set label energy ] K }4 h9 W2 f/ a% d7 h8 _3 V
[ set label "" ]) Z- ~6 f2 o/ N' j/ _, S
]" x; F) ? p; j
end
/ S% J& D% I d) L$ tto reproduce
5 D ?6 {: b" y0 Y ask turtles [: A; \1 J2 {; z+ ]
if energy > 50 [
' n( o5 u# ]' C$ K, g: q set energy energy - 50) j5 ^, { |, Q
hatch 1 [ set energy 50 ]
2 _- s; u& d5 e# r ~ ]
/ K" j4 M4 D8 c' P4 ^ ]$ s4 z5 }! G- d+ q
end
. z2 D! B; r) L6 Xto check-death" C6 ]7 ?# B9 p) ]) Y, P% w
ask turtles [! U0 O/ D q# ^6 N2 |! J2 y
if energy <= 0 [ die ]- b7 l& D5 ]1 W: F
]$ O) x! W a: t& s t$ R% f+ R
end7 t. |" P# L- M8 ~0 d& D
to regrow-grass
. t+ G6 @# M( z( Y. `% b ask patches [
" D, `6 \& A; h( Z if random 100 < 3 [ set pcolor green ]
$ `* e' s3 W7 v0 i4 w! X ]! k7 i" n$ ?1 Y, D3 a; B7 h, _
end
4 N S# r( I9 T" ito do-plots
5 ?; L/ F* S3 [ set-current-plot "Totals"
W# y" M% z: s0 P# z7 [ set-current-plot-pen "turtles"6 s8 \1 e' R! O+ @7 |. U
plot count turtles' \+ R6 F: w, a3 J
set-current-plot-pen "grass"
( {9 B+ E7 P) x% h! K plot count patches with [pcolor = green]4 _8 A* S2 n% v# Y+ W' q! c$ D
end% W' p5 f. Y3 C7 ?5 j* d3 X5 r
可是运行时提示no such plot: "Totals"3 b: f+ Y4 D! \3 }4 C) e
error while observer running SET-CURRENT-PLOT
3 l3 N( W9 j! ]. a0 c/ h9 ~8 y called by procedure DO-PLOTS
1 Z3 k* @: w" s- p+ Q F1 C called by procedure SETUP. Y4 e3 l! d/ J$ ]( O% \% k$ X8 L, ^
called by 按钮 'setup'
' k/ p4 O0 i6 i8 r/ E- U3 U求大神解答啊 |