我编的程序如下turtles-own [energy]
: b) H2 V# P+ y$ z: R6 K9 \to setup" A. Q( g5 j( v: F0 l l
clear-all
+ |6 p$ F# G: W" K) J! G" | setup-patches' ?5 } _, [( o& y+ X7 O
create-turtles 100: }+ o4 J/ U2 N
do-plots) G1 f( R& h$ d: ^; }
ask turtles [ setxy random-xcor random-ycor ]
# d+ F5 ~' Z, {6 n! w" Bend; H7 u& t4 u" ^$ E: i
to go. f; Q$ a+ C: H
move-turtles
# J! s0 }2 M3 C% J1 y eat-grass' }$ } {& \. M' t) z) F1 ^: C
reproduce
/ r( [' u+ O; ?* F8 e check-death+ E3 \5 H' N3 E8 E" h
regrow-grass
/ v2 p, x) n+ d# R5 Z, P/ z do-plots2 K7 I9 j. Q: j; P9 |# V% m7 \
end
4 y9 O! t! ` c2 p& Uto move-turtles
6 C, ?' m- x' K, k7 s# w2 a ask turtles [
4 T& ~3 x1 n2 [9 k5 I1 h3 @: j right random 360
6 S2 F# d+ N. @0 P. l forward 17 [2 Z# T4 j4 Q- p% K' f& s$ M. T# l
set energy energy - 1
& B$ a+ j! u4 W* x ]
0 \# g, R! |8 v4 h& G8 @end
, `1 P$ Z& ^ T t) qto setup-patches
9 q" L( U$ j8 h- g( G& B ask patches [ set pcolor green ]. D6 F5 t8 H- W$ b: |: i, f: v
end0 B8 H) d1 l F: h# F
to setup-turtles! D; M! v2 U0 K) K
create-turtles 100: C5 X# k! U; z, {
ask turtles [ setxy random-xcor random-ycor ]
/ k/ m0 l* Y9 Q* S3 ~% iend
' A. X4 @% ]& q/ k2 J0 K2 V' bto eat-grass
: I8 z2 u X# q ask turtles [" o0 d! O+ q4 ?3 O: U$ b
if pcolor = green [4 w3 s* B" g4 O6 _
set pcolor black+ y, R$ B* F, \" {6 g
set energy (energy + 10)
/ D$ N. I' e+ p' | ]
8 [2 l, |4 U) @ ifelse show-energy?
( m9 S/ } y0 N9 [! Y: B6 d% D) y [ set label energy ]
( s; u) j( B3 G9 k) L' j( m [ set label "" ]) b7 ]! x- ^ N
]8 E$ z% M" l% ?
end
% b& h0 `3 P7 o& Mto reproduce
" b& X a4 o( k! e ask turtles [
6 z% r0 w; b: c+ S if energy > 50 [
9 S- Q' k7 C7 ] P' N& f( z* X: v set energy energy - 50% g2 R+ t! U+ B5 M/ X
hatch 1 [ set energy 50 ]1 K. H6 ?9 {, s9 c: M
]" ?4 N: j4 p9 Y/ u
]
& v- T# y `. _' H* ~. h7 ^1 h# dend' T8 R. c7 x3 j1 R" I
to check-death
* R+ w. L3 o$ v" `2 {- K/ u ask turtles [9 G" ~# g" K, X# a
if energy <= 0 [ die ]
. Y; R3 i3 o$ t: [7 [ ]6 u% I; C: R( x1 C1 h& m
end7 @- S3 b& n H# Z3 s/ h' z4 U
to regrow-grass' v6 W# n# ?, T9 g2 ~
ask patches [6 C1 M7 y4 o9 G1 U
if random 100 < 3 [ set pcolor green ]
9 G3 u7 G- m- e- X) W ]9 a( M7 R+ k8 Y5 p1 T' x7 t
end
4 x' Z7 M! X8 {' jto do-plots3 h9 I& E; }8 v: f I2 _# y. _
set-current-plot "Totals"
' @) V7 j1 \7 b3 m9 _ set-current-plot-pen "turtles"
# ?$ ^2 f. k: d( F' I plot count turtles) H3 R; I5 W, q% e) S q
set-current-plot-pen "grass"
, F3 J; R! F) u; w" k8 ? plot count patches with [pcolor = green]( g+ @6 J. c; q m/ `6 o. x! c- U
end6 T1 A2 F. v c/ e7 Q4 L+ l
可是运行时提示no such plot: "Totals"
8 |$ e. `/ c: G) derror while observer running SET-CURRENT-PLOT; U1 X9 U Y+ i( P' w- `; d5 I
called by procedure DO-PLOTS
4 V% m! e, O9 K# f called by procedure SETUP" ~# c9 X; Q3 U' I
called by 按钮 'setup'
6 n$ r: |/ O& R |求大神解答啊 |