我编的程序如下turtles-own [energy]
) N3 p3 M. N! j, l" k6 Tto setup; s* R5 ^; v$ z8 r: V
clear-all& A/ ?$ f) @; ^7 ~( m
setup-patches
$ ~2 \5 P& D: `. f- [2 y { create-turtles 100
* O2 U2 Q$ O( W, l do-plots" q1 ^4 c9 c+ N9 H" D
ask turtles [ setxy random-xcor random-ycor ]
5 {. M! V$ v( J- D v0 send2 K* B( W/ }2 ^1 A* O8 H
to go
# K; {' m( h" [9 g; t move-turtles9 {6 Z9 e1 v' b, l: g9 W' u
eat-grass% D1 W! R; c8 V4 u. Y* e
reproduce8 }' y' s9 s+ w, t
check-death
3 o8 ~ r! \; q: \, I [8 @% x regrow-grass( i! j! B% c- L# W
do-plots
% o/ N: Q8 F6 T8 ]# `. `) ~end
B& l$ j1 z' ~, g+ D5 Yto move-turtles
' g, t5 q8 q m4 v5 A ask turtles [
: q8 s1 Z/ w$ |. K0 [& n& D- X. I right random 360
! w7 o- w5 A/ T$ k6 w; D y# b. p forward 1
e$ w2 U4 J0 M set energy energy - 1
" |- @+ c- ^. x! D+ U( d. o, v6 T) W) O ]
% r/ f( F& d6 u% ]0 e) X/ \5 `end0 t+ J% Z6 L1 l% X% i( }3 O6 v
to setup-patches `$ @/ Z" K) c* k) R. Z5 p/ G
ask patches [ set pcolor green ]
$ t# w8 C6 O+ X& ?; C6 [. x( Cend
, C$ ~) y L- Y1 P) qto setup-turtles
8 m* O1 D4 t( _+ i. q, O create-turtles 100, t+ r# C- P: E7 q" p; ^0 h
ask turtles [ setxy random-xcor random-ycor ]
. M. V9 T$ }9 X. s3 uend
- U6 a( b* D' v8 A1 Fto eat-grass! g/ H" \% ]' z
ask turtles [0 C4 H' [ L2 {7 L; A
if pcolor = green [
8 G5 I5 P# A4 c+ r set pcolor black
5 K( p" z" j; B. X$ m set energy (energy + 10)
6 g8 V- `- o# G+ h9 P$ i ]$ l4 H( {* e0 }' @7 `4 @
ifelse show-energy?
0 S6 T% _4 M# r& L4 q7 V" F" r [ set label energy ]; ^+ y8 R. }1 b& p
[ set label "" ]" R# m$ d7 M1 U" ?! X- }- r2 Y9 d
]9 w1 S* V( f q# @; I" }' C
end
3 m( b. i+ l5 ~) h/ x ?% ?to reproduce
$ O" K$ X& D1 l/ P4 j! w+ _ ask turtles [5 A/ o2 z) D+ I$ S: G# Q! ?
if energy > 50 [
0 [5 f' ?; ]! v7 Y3 F set energy energy - 50
* Y/ f- F/ I: p4 D$ R: Z$ M hatch 1 [ set energy 50 ]- M- B: }1 N( X
]) P9 n1 x9 `1 Z2 T% W' n6 E9 k) @* W \
]
/ C. @3 ?4 C* G# {end
- u4 w0 G5 D% O; D, ]to check-death$ R5 L n3 A2 q L( q
ask turtles [, X$ ~- m: v6 O7 b
if energy <= 0 [ die ]: s, i2 D5 t' v2 s, R. T# ?" a) T x2 N
]
5 a6 L E6 U |9 y) B t& Pend
1 d' T4 P* o. _" Gto regrow-grass/ ~# _ n5 U: w/ X# u8 r' q
ask patches [
, h# n- C- n8 b if random 100 < 3 [ set pcolor green ], A& w5 S4 m3 b4 n- |$ J1 B
]3 ^- z0 g; T' p; D9 d* f( s
end
0 A5 X8 G1 ]7 `. Rto do-plots
4 i/ T3 j, ^) G- F9 [+ q set-current-plot "Totals"
: K' j s P6 G! z set-current-plot-pen "turtles"
2 x2 Q8 X6 ]- @3 E- K# }" y% \ plot count turtles! D5 _# {! x- J5 c# X1 b. D$ }
set-current-plot-pen "grass"0 d1 [8 ^' q( j4 J' D9 W
plot count patches with [pcolor = green]$ x( L1 A4 U/ T* J& f
end% D6 D/ u6 L) b% ^, r
可是运行时提示no such plot: "Totals"
0 K& R; A7 k3 {# B berror while observer running SET-CURRENT-PLOT
( V h, A# B! N6 _2 I0 r& _ called by procedure DO-PLOTS5 y! K+ N4 {9 |/ @0 n+ g
called by procedure SETUP
4 ^) c6 q* J# V3 w7 b2 F called by 按钮 'setup'
8 ?" y; }$ W/ H" \0 @/ S求大神解答啊 |