我编的程序如下turtles-own [energy] m. i% ]" v5 D- s; P7 E7 V- K- D
to setup W4 O+ m9 q2 U) o
clear-all2 J; J$ t# F) t9 K3 p) e# P
setup-patches
' K" o% L2 l* T- N' @' A create-turtles 100
7 ^" p0 [, ^! V* I0 T2 Q2 L) |5 @ do-plots
) |5 J; W7 v ]2 j8 r5 \5 @' A ask turtles [ setxy random-xcor random-ycor ]
x, n; @4 M; a0 i( p5 Z' U$ Cend
/ q3 @; ]* _. ]5 U" D5 hto go3 w, ]" j# \; m7 q6 P" j1 |( ]
move-turtles4 _' y% s! l* S6 ~0 a1 D8 ~
eat-grass" b3 e! w+ ^) p/ U
reproduce
- p P5 _/ _6 O check-death5 i- `: k; m: |) H% @3 _
regrow-grass# {- h' l. F/ w# X7 H: a
do-plots
* x m ^' G# e7 Hend- O, @4 V% N1 f/ d
to move-turtles
x. u3 W5 `/ e. k: A ask turtles [
# x) U9 ?$ Y' V1 O right random 360, U: v( h0 _- p4 ?6 Z
forward 1
8 [8 W2 H& b& c set energy energy - 1- q" W, J2 Y2 J! n1 Y
]
3 f, A5 F2 w7 v3 R0 T! g8 iend9 z2 Q9 g5 f7 A8 K! t2 Z* {
to setup-patches
" C0 }0 ]! \8 S$ ^" D ask patches [ set pcolor green ]( @" H+ h1 N# y* q/ y6 R
end& E/ L f4 ^0 t
to setup-turtles
( g; L0 ]7 y- L create-turtles 100" ^: o6 V$ E0 l/ @5 `
ask turtles [ setxy random-xcor random-ycor ]
2 f9 I) Y% b. |( z9 [: Pend
9 H" F! f4 E4 s( Fto eat-grass, K9 k& d6 l" y% J" Q1 _6 s/ \
ask turtles [8 n( `2 D6 X) \* H
if pcolor = green [+ H& q4 S: b4 e8 C' f% X6 X
set pcolor black. w1 r4 c) H9 B5 E
set energy (energy + 10)/ ~3 |2 F0 O( H2 H% p( X8 l
]
8 ^" i/ c( R8 I( f ifelse show-energy?% E2 T+ |5 n3 d. Z# M) n/ Z2 L
[ set label energy ]
# P; c8 D; | a& ~! C3 n [ set label "" ]4 o# [" T9 I5 \
]! p; L0 b' X5 z t
end
7 o1 M4 g% \4 Y8 n1 e8 r9 }to reproduce" j. _8 y7 S9 \& G6 n( k: Y
ask turtles [: O7 B* l! h; f
if energy > 50 [- n& {% s8 j) l" C k' N
set energy energy - 50& D: P: m$ X Y" j( H. C: L
hatch 1 [ set energy 50 ]: m/ H$ z4 k0 R) V: w
]
: S* V( _8 e" x6 h1 p0 L" U' G. @ ]
8 n. J# H8 I0 q+ d/ aend, I/ C% C# u& x( Z) s- M. B
to check-death6 \+ k- o3 {" s) y
ask turtles [
3 w( Y# y; K& F5 T4 c% ~# c( d if energy <= 0 [ die ]
5 Z" ^# C X& {3 P+ P2 Y+ B# D ]
3 L2 k* S; A; I, k( a5 h/ \end
, d- [) `; q8 `/ s, A& cto regrow-grass
% @2 m% R& Z R& H7 s* u- T# Y ask patches [& M' g5 F/ {/ N
if random 100 < 3 [ set pcolor green ]
0 Z9 |1 C. c$ B, @2 v7 x% l5 f ]
/ K2 @/ D7 J8 E8 d; ~end
6 a. R4 G8 E1 e" U; }6 h, Mto do-plots4 @( \% E$ b. c( e$ G, Q
set-current-plot "Totals"6 z2 [9 e5 O& {" G+ X5 N* w
set-current-plot-pen "turtles"
/ X: \# \$ @% z) u plot count turtles
! i) @8 H$ ~. f C2 | set-current-plot-pen "grass"5 t4 |0 A. X* R' i% [+ b& C
plot count patches with [pcolor = green]
, }) q( I+ k& j* j4 V$ tend6 J: r" h6 U) I3 W* c4 v; ^# L' m
可是运行时提示no such plot: "Totals"! l! x( W; S1 }# {4 p T* @
error while observer running SET-CURRENT-PLOT, C/ T% }0 w5 |" ~
called by procedure DO-PLOTS
$ J2 ]* O) N. v: x called by procedure SETUP3 |0 w, j7 {: @" e& S7 _
called by 按钮 'setup'
& D+ g1 g4 {/ S) H求大神解答啊 |