我编的程序如下turtles-own [energy]
0 x; V0 g; F1 j- B( X! r& x; c+ cto setup0 x; L4 `- a* f
clear-all4 B' ]1 O* f; E" u2 a: b' X
setup-patches% H5 @; g5 v) D& `4 P" T" e3 A
create-turtles 100( L4 u7 X$ A' Q& A* H
do-plots' i7 H; p3 T' r$ ~+ U8 d& l
ask turtles [ setxy random-xcor random-ycor ] [2 e* J/ }8 v7 `) {0 Q
end
J( N$ `# ?, X4 ?2 Eto go
; U' |& L) h+ M, d1 ^- Q move-turtles+ k2 R2 Z: W8 Q; @: M) z/ c1 h
eat-grass. y& v8 L- ?6 a% o# {* t8 O: U% p
reproduce: I3 Z+ ?: w- Y' z) B4 f( X: d) d3 s
check-death8 S. i. P4 v: j
regrow-grass
& ~# d0 W( u( D! X do-plots) D h$ n+ `8 P4 E
end
! f4 ?/ B4 u: J3 n, Q0 rto move-turtles
Q6 j( O' G3 @. Q ask turtles [6 }/ {' e$ d- S+ K2 a0 e
right random 3608 u" C6 h$ I9 Q
forward 1* i0 f) T- H; S$ T; ~
set energy energy - 1. o& a& e* i. Y; H0 w6 @, b
]
: X* j. l7 i& K) z0 h* z: v1 [end
! |, Z$ A! T/ g( H8 yto setup-patches
; @1 T' r0 Y4 v4 N% z2 c, O ask patches [ set pcolor green ]; ?# [6 A1 W& _# I2 _
end2 I9 Q% ?* X( B1 n4 {: ^' k; n
to setup-turtles
# G, @" ^" `0 E2 y, ]6 h! v create-turtles 100
9 X6 P, Z) E; h! K5 O ask turtles [ setxy random-xcor random-ycor ]
+ y6 v! J- r |# o3 Yend. _: p/ Z2 w3 F+ B( m9 o% L
to eat-grass& |" J. G! c0 n9 w
ask turtles [* ?+ ^' g8 _" V2 N4 P: p
if pcolor = green [" l; `& i8 X$ T/ ]! K1 ^
set pcolor black
$ E3 e/ Q v% I; v" u set energy (energy + 10)" s3 D+ [6 T3 a, @
]
1 D3 g( a: {. W# [# \# J ifelse show-energy?
; g4 A$ o: Q: V3 K% R [ set label energy ]
+ M: ~! `& i( U$ Z [ set label "" ]
. N% ?, i5 Y. `* m- G2 {2 Y# X ]
6 `: L5 _' o0 u5 Gend
/ E1 J+ p1 l4 W( E3 H8 ?3 dto reproduce
. `' L7 G4 w# f* Q/ \& o4 _: ?* {# x ask turtles [
: `4 J, R5 x6 l$ A! e( k* ~2 X if energy > 50 [
- Q: t9 U5 A M2 v3 W% l! f set energy energy - 501 }" @6 {5 N# ^
hatch 1 [ set energy 50 ]
( F6 H2 u# g! z4 p ]" \5 d2 D% _0 n1 v* k; `
]
$ c0 x/ f& ^. Q, Hend* g7 I6 m1 ]& G5 o9 G
to check-death
9 X, R2 }# u3 a* z6 c [3 K9 l ask turtles [9 W1 i. p9 x: |
if energy <= 0 [ die ]
. u* A! I+ g, E+ l8 y; ? ]
* L' ]; Y, n6 k6 g: c. {- qend4 d# A. v, ]( E+ j
to regrow-grass7 q& O9 |, h# A% y: q; v
ask patches [2 P# ?3 b" P3 ^# U$ B3 L
if random 100 < 3 [ set pcolor green ]
9 q( u% b/ r) F! d ]
) U: a P' c, }% Dend
0 \$ o$ a- o. u0 Uto do-plots
% R! @' v8 S+ L# ] G set-current-plot "Totals"% Z& a6 O* {; u6 y
set-current-plot-pen "turtles"
! M2 [* m" c' z( p: w& h plot count turtles
3 c! x: _8 H o" H+ G: x9 P set-current-plot-pen "grass": K- d+ e5 i8 x* H0 f9 a* `1 T
plot count patches with [pcolor = green]
; M1 Y+ t6 E1 k0 C2 }4 {6 F" Cend
: W0 D; s8 e. J4 |可是运行时提示no such plot: "Totals"
( g# n, Z( u5 Q8 x7 |( K# v2 o* L& Eerror while observer running SET-CURRENT-PLOT
( L1 r: y. F+ L) ` called by procedure DO-PLOTS6 k( L. V2 g1 M; ^. R3 b2 V; ?& x
called by procedure SETUP1 t" ~ N! A8 q7 _7 W5 b
called by 按钮 'setup'
$ [/ J; H3 s; p0 t% |& W7 n求大神解答啊 |