我编的程序如下turtles-own [energy]* h8 E- T% ^2 c. P- P9 U( m7 T4 r: e( I
to setup
, C4 a8 z8 B& y6 i clear-all( F" R6 V+ ^# j7 {2 t
setup-patches
0 l4 {3 J& B+ R; Z8 _: }" A create-turtles 100
' h6 R. g$ G0 ?. V. H9 O; J do-plots8 C" a. _5 E) D8 m8 @
ask turtles [ setxy random-xcor random-ycor ]
0 q# C% {5 _( B. y! M/ `end
8 T( K9 G8 ? ^- G$ E; mto go
. j' L, k- L ~6 d$ z9 i move-turtles) f7 E. Z# }% n; V1 |1 Z; [
eat-grass
+ M/ c" k2 u. G& A! P& q% ~ reproduce
7 R" n+ v4 c$ ?9 H check-death; K( w# O6 x' `8 f. E$ a% ~9 t
regrow-grass/ X' u$ W6 U: U; U E' e
do-plots* U( W' ]/ u- n6 i2 ^) f
end6 l0 G" n3 D! E. {$ c
to move-turtles* X0 I$ }; r8 K9 C
ask turtles [8 h5 U' n+ ~5 s6 m0 j* D
right random 360* u% K. R% t. o8 D
forward 1% c1 O' ~# W" H2 y( P
set energy energy - 1
: U3 j" @! P9 F* H' d M5 S ]
# N g* @* B; a2 Jend. ~4 O$ \* G9 ?* N; E
to setup-patches
) j- W$ _, ^6 x* Q9 f8 w G* p" P0 K ask patches [ set pcolor green ]
$ Z* Y# V4 {" c3 pend/ V; i2 O' K# u( Y8 j! E
to setup-turtles
0 f$ ]) t% X5 Y8 @6 b create-turtles 100$ u4 h8 b% z$ E% [$ e) g+ B. }
ask turtles [ setxy random-xcor random-ycor ]1 Q( n! ?1 q9 {/ w1 c
end/ k$ k! B, |1 B, f
to eat-grass3 u9 q( `& Q* b& {% M i9 T
ask turtles [2 H! J4 b# B3 L6 M6 C
if pcolor = green [0 E0 [5 G2 P' f. t( c7 Z4 c2 N
set pcolor black
9 O" Z1 t( w* t/ l set energy (energy + 10)
9 e! ^: ]6 V: Z' q" P* c ], Y: Q& P6 [- i* O; P
ifelse show-energy?
. G2 z' Y% e5 a+ W9 U [ set label energy ]
' y0 P9 D+ ^/ a [ set label "" ]% h4 N! {& e, T' j u' m" k
]
8 k# n/ p9 q. k6 j& A* L. J" @6 j1 pend' ?+ u2 i+ d& O4 h* l8 u8 |
to reproduce
: X1 `$ G: |6 e ask turtles [
% v. P7 G7 u6 M' E. h) Z if energy > 50 [
2 G$ X: A/ E0 J9 c* h1 { set energy energy - 50
' m, P; @) y& h2 P/ G hatch 1 [ set energy 50 ]. F" I5 `0 ]2 D( Y
]7 L- R+ ]7 D" h) L' O
]8 Q& b! X2 Q3 z% r. M; {' o
end1 ]: J' L: W' n0 g
to check-death0 A" b, E6 c* |, g
ask turtles [
* ?5 M0 k" T. D3 m; ]! J+ z" _ if energy <= 0 [ die ]3 m, i! j5 }: X3 O
]" Y& o& m5 {% U& Y Q1 ?) h% F( \
end! }) r/ x* B" f1 c6 i3 o
to regrow-grass
) ~$ f; l# ^+ N1 v2 y @' O ask patches [0 [. e- p! Y6 G! Y" `7 h9 Q/ I
if random 100 < 3 [ set pcolor green ]; o7 i5 q$ G7 k
]% Z6 O3 ]4 f- m% E
end4 Z0 w6 w2 l1 @) n
to do-plots
; c6 L3 V P8 P( s- I% H set-current-plot "Totals"" b! a; m1 ]2 d2 A
set-current-plot-pen "turtles"
8 \. k, I* C5 a plot count turtles
- ?+ K( @6 x3 M6 T2 N2 [ set-current-plot-pen "grass"* O# G$ k. d1 H1 {1 {
plot count patches with [pcolor = green]
9 F2 t5 L0 C/ tend1 p& m& C6 B# K8 j1 t" A6 X
可是运行时提示no such plot: "Totals"
3 }2 Y( e2 y: k0 E4 w" {6 serror while observer running SET-CURRENT-PLOT
9 {+ I+ Z' |0 P. f' |- @; ^ called by procedure DO-PLOTS
/ s/ E' P- O9 K; N9 X/ r called by procedure SETUP o$ W/ r- o/ `: g2 f+ R0 M
called by 按钮 'setup' ~( N6 |2 J$ J( W
求大神解答啊 |