我编的程序如下turtles-own [energy]" l& Z; D( D& g' r
to setup
3 {4 U$ q! r* `" G3 f( E clear-all/ A& c6 M/ U5 b( J0 j6 S
setup-patches
6 Z$ g( ?$ t0 x# l) q3 ] create-turtles 100- q0 J& y) y) ~9 U- o, Y3 P
do-plots
1 C) z; f, z3 s2 e ask turtles [ setxy random-xcor random-ycor ]
5 N% X3 J; \* z& Wend7 ^* {3 t! [$ q" H0 {7 |
to go
$ k7 D, r5 Y3 I. k6 h4 \ move-turtles
* m3 n) X/ c2 L0 W7 G- Z& `& h eat-grass
! z6 @" {( s$ ~& [0 ] reproduce
8 |5 l' T3 O8 a3 E$ ~2 W check-death
, A9 e/ O! E' \8 P' O regrow-grass* s: s$ v, c5 [9 z s: |% [: Y) V3 r
do-plots
- `% |; x8 }: J6 l5 S" Aend
" b5 U% |. \* m( Lto move-turtles, j4 J# G: e$ z: O, j
ask turtles [) B. O+ u( P( D9 m
right random 360* G+ f; E& A5 K8 U+ s
forward 1( V; s; b- ?0 t
set energy energy - 1: E5 N. n& s5 a/ E
]
0 P- i* m4 ~+ Z5 z; B6 ?+ Xend
: H. [0 T/ i. eto setup-patches
: N& ]: o0 o/ Y ask patches [ set pcolor green ]
9 U q% s0 g. d! @end& R: S2 Z l2 Y; x
to setup-turtles, k6 ?& r; O9 U5 N% i; }
create-turtles 100) ~( T& S1 O8 F. Z- ?
ask turtles [ setxy random-xcor random-ycor ]
; I6 h% o0 f3 @( s" |5 r5 H0 r- Eend# D% C L+ O$ g5 k% w
to eat-grass2 {$ N3 O0 ?- |* I4 \8 s7 N6 i4 _/ a
ask turtles [$ D+ ` s" I$ t( A9 h5 g
if pcolor = green [3 J! N7 k |$ Z- N6 e6 _! ]( X x+ a
set pcolor black
3 L1 h7 T3 Q5 k2 q' p set energy (energy + 10)
# x# V# ^! T" P( F ]1 P& _' L/ D: |& O
ifelse show-energy?
) a1 F' {- H7 }8 D6 A [ set label energy ]
: y; I$ x% x6 r4 N [ set label "" ]
+ E: f& j1 W7 S, @; U# C& k" W ]
# ^2 x8 i/ P- J! Bend' J! U# }, K# V, i
to reproduce+ C0 N* {* A! g4 S
ask turtles [
9 b1 E$ [; D$ S if energy > 50 [4 _2 m% Y& T2 X7 P" K+ m5 [8 }
set energy energy - 50
5 S1 j8 U$ q5 Q% w' @. k [ hatch 1 [ set energy 50 ]( ~. N& v: e9 l, f( V" K
]2 C3 u# N' K6 }
]
7 ]! L$ \) \0 a+ d1 Eend
~& l0 F) J7 F% R0 S' Lto check-death( e8 N0 Z2 q, T. d4 D* _
ask turtles [/ J+ Y7 F/ ^: Y* ~- [) O
if energy <= 0 [ die ]
' m% s: L% `& C# W ]
5 H$ g- W7 p3 Q8 Dend, X# |) q! f4 z
to regrow-grass
+ c% m: G( N8 a( I, q1 D" h% a ask patches [
5 x* G+ Z) i% @# d& a9 W if random 100 < 3 [ set pcolor green ]4 S9 m) g- g6 \/ K
]
3 }; s4 U/ E" v8 L# bend
1 C7 u( U. u. V6 B) vto do-plots
- c' x$ z/ j/ x) e& @* k* z. i- i set-current-plot "Totals"5 b& P% S; @ P) U6 @. d( h
set-current-plot-pen "turtles"" Q' z9 @ ^ W( P4 x; E
plot count turtles
2 i+ A+ |" J- z2 J, ~ set-current-plot-pen "grass"" S0 x y$ I" H4 F4 [" b
plot count patches with [pcolor = green]
! ?2 M6 d" Z! C: d! O& L# B1 O+ Lend' @+ Q9 v6 n6 d& D
可是运行时提示no such plot: "Totals"
" `6 h1 N3 E6 P' z' Yerror while observer running SET-CURRENT-PLOT& e! I1 N, `9 E R" Z( M/ ~
called by procedure DO-PLOTS
. ~9 b; x# l# d* x1 { called by procedure SETUP
! e- K( J, M* g5 E9 n called by 按钮 'setup'
% L9 O' h9 V- e- T1 A8 K求大神解答啊 |