我编的程序如下turtles-own [energy]
$ I7 a# x7 M0 z( }1 W5 fto setup
# q3 i# z8 {+ v$ f/ E clear-all
8 B' a" E q3 r, A# ^ setup-patches7 e4 q5 k/ @1 Z: C
create-turtles 100% u* ~8 _6 a3 `/ l7 p
do-plots
* W1 i) [ m5 k2 D/ n( r5 x+ a ask turtles [ setxy random-xcor random-ycor ]
2 a* S+ O% ~2 nend
+ k2 d' ^6 A6 w' G t3 Jto go
4 |8 T& m4 X6 E- W0 J5 z move-turtles9 G4 I- j. d1 J% {: V; k4 |0 X" d1 U
eat-grass6 a5 e3 r% S7 Y
reproduce
* w( ~1 s) T! a" |0 k3 T check-death
6 y) V: \8 Z8 ^. }" K+ o regrow-grass4 \" {6 t# B0 B. Q
do-plots. k K6 v# A1 `/ ^1 V0 y
end/ ?2 \* B4 B* y% b. _ i. k0 r( [
to move-turtles
! t# n5 D5 b8 p! H1 u, U2 @ ask turtles [
- D3 {/ V) e# X( }. s) j* @( ~ right random 360
# H g. x+ q- n" S6 D forward 1
: w, _+ w6 I- C4 q( |# ]% B set energy energy - 1% Q) q( W8 G- M0 t! w* {
]
/ }: _0 z* L# w1 c# Z( B% aend ~! j5 r1 X6 z% I& `3 T# N) M: H
to setup-patches
8 ]" B4 L% g: m0 J9 m9 L, @" _; K; K ask patches [ set pcolor green ]) Q/ D4 d& U: z. r6 F0 ` L- o% b* M
end/ @; G# z2 @: E+ h( o; V, S9 Q
to setup-turtles0 {% Z, p1 z; S8 e9 Y8 l4 E
create-turtles 100$ ^6 ~6 i3 {8 o6 `) T2 W+ g) ]+ O
ask turtles [ setxy random-xcor random-ycor ]! Z% f7 A$ O! R* ]8 M; _1 m
end
) s; w) a- S- p! O& d3 H- ^to eat-grass& z' U$ N9 Z0 Q1 G
ask turtles [4 v- g0 \8 [9 C3 N5 \" o
if pcolor = green [
3 E+ u& L m6 h, Q7 d" t set pcolor black, w2 j ?" C$ Z; X: o2 \
set energy (energy + 10)6 F1 J- b4 l9 F7 Q; d3 C- W# P& X# _1 w
]
; F3 n* q, X- N4 Z ifelse show-energy?
7 N- R' ^. I0 [7 W [ set label energy ]
( W2 v4 y$ H1 j+ L [ set label "" ]
6 s2 i9 N# [+ \7 e ]* ?: p* G: D5 M* o
end
$ g9 G; x8 L0 J% Gto reproduce
" p( j$ x# U. C; H& A0 K) a' s ask turtles [0 N( X v) T% H- f' ^; \% r* o5 `
if energy > 50 [
( g( N4 R! ?0 \* K/ |, r$ X) z6 U set energy energy - 50
& Z$ g1 A' V: v. l4 T( q. J/ s hatch 1 [ set energy 50 ]
: a" }) W7 ]& y4 h6 @" W ]. r" m: H1 F6 b8 p% [; p1 x, Z: `
]) q" K# R7 V, z$ z6 }$ @+ I
end! m/ Y, Q" l7 ?" z/ [# ~
to check-death; ]$ E) B8 j8 v$ ]: U
ask turtles [1 f( K% F( x% l6 G' Y/ Z1 D
if energy <= 0 [ die ] r& \3 g& ?9 G# g
]$ { J6 D7 I/ O1 X7 g
end
8 H0 b8 u0 f3 l4 C- hto regrow-grass! T3 J2 I$ ]) Z
ask patches [
( k) |9 r K3 d9 Q if random 100 < 3 [ set pcolor green ]' @1 \6 u9 W K& l: i4 n+ \2 v% C/ B/ H
]1 \2 t+ L- X. {' H; P- z( Q
end/ z* O' d7 W" y6 \
to do-plots" A5 x( b0 ]% ?, G
set-current-plot "Totals". N! p( `4 Y9 T* I
set-current-plot-pen "turtles"
c& U) X8 { I9 `, f* R plot count turtles+ \+ G6 R4 J8 G5 r+ \# y
set-current-plot-pen "grass", B$ y ?: v% a |6 q' d/ ^9 G
plot count patches with [pcolor = green]
4 z/ Z* y2 Y* L. Bend
9 T' x2 Z/ `* }6 h- L* ~ o, b) ^可是运行时提示no such plot: "Totals"
% s0 h- f) y9 I" n2 m7 cerror while observer running SET-CURRENT-PLOT n5 i' i A7 [. g4 H6 i* e
called by procedure DO-PLOTS/ @+ i3 X. `# s1 x. U
called by procedure SETUP
& b. q. F6 w: |+ ^ called by 按钮 'setup'+ E& j' G- R9 B$ L% v
求大神解答啊 |