我编的程序如下turtles-own [energy]
( z4 A" ]7 A9 V( m8 t0 Oto setup. c q9 E t. u7 I: I7 `, s) _
clear-all
0 O. r t" I4 D setup-patches
$ v+ X" a2 Y3 v6 i* `; C create-turtles 100
1 l1 T+ E3 _9 _ n1 D3 X n do-plots
& }+ q+ a* k/ K& N) E0 L9 I ask turtles [ setxy random-xcor random-ycor ]
) f" E H0 A( {& [1 cend% _8 E0 U) K$ A8 N p
to go" }+ K6 ]' \2 z. V, A. n
move-turtles7 L! f& T9 A: |9 l. G
eat-grass- y% [" ~- z! b- F2 b; J5 v. V: G
reproduce
; P& L) s$ R. } check-death
$ E7 _7 o$ g! M) P1 Z: \ regrow-grass5 Z0 `% y- x, F! b6 Q( [8 l
do-plots7 Q! V0 @- K' {( A; N L6 j6 m
end, c( T5 U7 V/ ?+ w& Y0 j/ {
to move-turtles5 J/ R5 u- B5 ^3 H' A% I& r
ask turtles [0 b, q4 X8 p( L, y
right random 360 P8 g' Y8 h1 e& y9 }: n4 `
forward 10 [4 D, U+ z4 k- [
set energy energy - 1
+ O3 M& `% p# t ]
7 E- A8 g$ Q) w3 I( Q+ z% qend
7 u2 J! j' y* X$ Z; j# J& w4 W1 Tto setup-patches. ] H5 d$ D! O2 X6 O
ask patches [ set pcolor green ], a" I9 u; M- ?6 k1 Z4 I+ F4 R7 [5 m
end. O$ f9 [# V2 k- g3 h
to setup-turtles: r; R' Q3 Q: l. c
create-turtles 100+ x! ?6 s: f' H, Q, r( n" {. G
ask turtles [ setxy random-xcor random-ycor ]8 \4 z/ Q; Q$ I( ?) d& g$ _
end
1 x3 V/ D1 p" g) q1 M+ z$ U4 X* sto eat-grass# u5 b+ N: a8 e
ask turtles [
. g8 G% X# e4 j) f+ v if pcolor = green [
. D5 ~& u. \* [* u set pcolor black, E" H. }0 L7 K) m+ o5 ]
set energy (energy + 10)
4 l; i0 C9 P1 g1 C4 G ]7 r) Y' T- j1 r( |" {2 S
ifelse show-energy?! V' O+ K! S% ^- X: a' _
[ set label energy ]" M6 H6 q: B1 o/ X J P# Y
[ set label "" ]6 d3 X! Q, l; o# g! i
]' B( ^; I1 ]1 A$ a. K9 b
end
' u% y; F+ p% f; p( e' xto reproduce
" J7 m/ T, {8 j- T. c8 w ask turtles [0 y" o/ P6 {; ?! D, g+ h7 m
if energy > 50 [; W. D! j# c" G2 v8 m& x* g
set energy energy - 50
* b: l C/ ]5 T9 \- s! m- D' w hatch 1 [ set energy 50 ]# ]2 q4 l3 D% d
]" A5 Q% ]/ K3 [, N
]
' a* |3 d0 F/ }9 Xend
, X; k4 Z; S/ d; @1 i% Z8 yto check-death
- ]; H# ?( { i# \' g7 @ ask turtles [
# c7 A0 [; X# t$ c/ g( g3 k& e if energy <= 0 [ die ]
, b0 f5 j5 a' V ]
: h3 t% `0 p' Jend, s3 s& O5 x# Y6 A! n2 ]
to regrow-grass
/ V+ _1 @5 g. B; J6 w- G ask patches [1 R3 ]; P; B! }* i) `) t; [/ o" h
if random 100 < 3 [ set pcolor green ]& r* |! {: c5 Y. x, O- E3 i
]
7 ^2 ^/ i2 H. d9 f) v& p. J, Iend3 @: D& U: {& j' Z* r
to do-plots
" [8 L5 Z3 O6 X3 L set-current-plot "Totals"+ ]! f$ J6 c$ g1 P% W. b ^* I
set-current-plot-pen "turtles"
+ ~7 X5 D' n: v4 f plot count turtles& ]5 q$ I7 ^& Q# R7 b. T5 ^0 o: z) h
set-current-plot-pen "grass"3 x+ \6 T: N( k, m- l
plot count patches with [pcolor = green]
9 g6 n$ v7 ]# T J8 O' f" B7 I$ Eend' S7 l: o' H h* I4 @+ h4 y/ s8 i J
可是运行时提示no such plot: "Totals"8 m% P c% y# @, P4 m( n! ]
error while observer running SET-CURRENT-PLOT9 i* p1 z4 W0 u6 ^. A0 l8 i1 V' ]5 b
called by procedure DO-PLOTS
, f8 V8 Y& {. i& J2 k0 H called by procedure SETUP
?1 y2 q7 x: g! \3 f called by 按钮 'setup'* m! Q; {3 s- l# ~ g6 L& j5 Z
求大神解答啊 |