我编的程序如下turtles-own [energy]& B& d! y5 l' v3 J% L" ^7 r3 S& D
to setup5 g! n1 ~$ O# d" _4 e. m
clear-all
' v" r% o% p4 j$ B9 @. L# p- X setup-patches4 N1 q( o5 b! B- N8 [2 F) {% P; A- k
create-turtles 1001 s4 V, `; _! j' e* s
do-plots
: d+ f: T" D. Q ask turtles [ setxy random-xcor random-ycor ]- t; d' D7 U0 ^/ E% P3 a8 p
end
+ c! n; d$ P0 t# _$ Rto go
- ~6 ?/ ~/ w: U4 W4 G; l move-turtles& |0 E/ G) T$ I$ g1 s" y& k5 f
eat-grass
/ x: T6 F! ~; f9 t9 U0 y reproduce7 K: O, V Z4 z+ A7 a
check-death0 s: @- t& `" x6 h0 j5 Q
regrow-grass! D2 J0 A( n% h( R
do-plots4 [ ?' L5 a s0 c+ l8 }+ D3 f' m
end
4 c7 M) u. \6 n; B9 t+ eto move-turtles0 z) R( d7 w; m# k; w6 ]0 m
ask turtles [
6 k5 f7 N/ k9 q" ^& [4 f4 @ right random 360
' D0 t A1 p* L& e) e: q( K- P forward 1' i7 C& R+ z/ m$ t c
set energy energy - 1
" P' _0 ~: O4 W7 b* ~ ]5 z4 t4 Z6 a* i' H5 h/ p& j" p) @
end$ |7 W- [, w. W5 _& p* z# g
to setup-patches
4 I# [3 T5 g* B6 T& r9 C1 { ask patches [ set pcolor green ]
2 [: c$ P2 Y4 a* A9 `) N/ Fend! a J1 P& o: ?7 H4 G: g* j- l3 g# u/ u
to setup-turtles* H/ G' _7 v) B5 c9 Y+ v' E" W
create-turtles 100" W3 T$ r ~$ T7 G1 L' l" O3 p
ask turtles [ setxy random-xcor random-ycor ]
& z; E- Q) {% i' Mend5 F1 p1 I% s" J: F
to eat-grass
) C1 x9 G! j1 L1 S$ H4 _ ask turtles [; A9 b; [+ A0 S: y; x% k
if pcolor = green [8 i9 `: ~* p* X
set pcolor black+ f, d8 L3 J& L8 m3 ^3 {
set energy (energy + 10)
. `" T* W. d* y% o) X0 s ]4 j; c. P/ J f8 C& _ Y; k( w( J0 _
ifelse show-energy?' g/ q6 }7 X. y8 w
[ set label energy ]
! j; h2 N, ]! F3 |- y [ set label "" ]
) u, ~9 P5 w* {( W; x ]
7 i. Z9 j# X+ b: \3 U1 Xend
6 X3 | K1 I1 w. }: Hto reproduce
- g T; C- S+ D7 R( s, S ask turtles [
& }3 D6 X) |4 r. o1 M if energy > 50 [2 K$ c# ]3 [/ o
set energy energy - 50
9 {& ~- e3 T% U8 Y hatch 1 [ set energy 50 ]$ P: Y3 Z; w$ L7 Z# s3 l
]
/ e' r+ X% l* Y ]; p5 ?. {! J4 @: h4 E8 ]2 j) f
end
6 m2 f$ t: d) K& b! eto check-death
5 y0 p; F6 @! B/ \9 H8 R3 x" B) B ask turtles [% Y& V0 O; D7 y: G
if energy <= 0 [ die ]
" n# @/ G3 a" z9 [ O; h8 e ]$ t( g: W) _3 }1 J! c% u
end
% _8 `. @* P0 p$ f" ito regrow-grass
+ i$ _$ X- t) F5 a$ S ask patches [2 D* Q" \. h0 p" k+ |
if random 100 < 3 [ set pcolor green ]2 X+ k) O$ W$ K# j( M. O- d8 V8 W
]6 t4 j; Q2 n% P1 y1 M7 e. l/ n
end" T/ p- B* w9 r7 ?0 ]$ N
to do-plots! o4 W+ G' h6 i0 T1 T
set-current-plot "Totals"
. D& x ?9 ~3 K! A1 j0 @6 m set-current-plot-pen "turtles"
( G m/ t3 E0 s/ `7 j plot count turtles5 Y% g. |; [, _
set-current-plot-pen "grass"
' s/ F% l/ R% w6 T plot count patches with [pcolor = green]
; o" B/ f7 j1 w# B" Nend' R( n4 p6 B% b5 B5 u K9 ]5 K. U
可是运行时提示no such plot: "Totals"
" N/ {4 I% h0 E; T5 H0 I% Herror while observer running SET-CURRENT-PLOT4 t# P( S: ]5 o: c3 _/ [* Q
called by procedure DO-PLOTS! P& h) K; v B" \+ _* A1 G* a
called by procedure SETUP) h# U5 c5 A: Z2 S
called by 按钮 'setup'
- |( c$ o- k( `求大神解答啊 |