我编的程序如下turtles-own [energy]
; f( g! I2 \7 k7 ?to setup1 q4 C( N' l: G+ ~$ H; U' r$ q9 Q
clear-all, @+ g1 f3 r# B
setup-patches
5 l+ ]; ~* A2 _5 B, j: L s create-turtles 100" a6 ?. c; S; O% r: \, J
do-plots
5 ?. l# \- N* Z& P! `0 e ask turtles [ setxy random-xcor random-ycor ]7 X3 c, d& F. W: u$ c& K/ Y/ J/ S
end
4 U5 t% m8 j2 Uto go
0 m" N! p, W- K! E$ o* M0 L. L& T: ]8 ~ move-turtles) ]$ U$ Y4 M' V1 b/ ?& w" [
eat-grass* x, o/ n8 {) X$ [, }- k: I
reproduce7 @/ p- L% ?6 W+ u
check-death* U. v A! R$ K8 s$ D) L
regrow-grass S% g' l& J% U' O) m7 D8 o
do-plots; k1 ]3 m# s! n8 c( w# N
end
6 \: A. {0 e1 `( mto move-turtles
0 c2 j$ Z) v1 Q9 R* X$ V; P5 V ask turtles [
j! C! [% j) G7 I9 T1 k* ] right random 3605 Z+ d! l4 \$ Z; @8 ^. `
forward 1" M! j4 d- U6 O3 r
set energy energy - 1
1 u1 V$ `- G% O ]3 I+ K) \9 W5 |2 U4 \
end
/ p- ~! y, x4 L8 Y6 Gto setup-patches
/ o ?* O5 v7 G0 B/ ^ ask patches [ set pcolor green ]8 N/ ~3 n4 z6 A; _) u0 }4 s3 E' m
end5 j5 E W$ M9 P
to setup-turtles, Y9 X' B: Z' O. J
create-turtles 100- D& \+ O7 Q' |9 U% `
ask turtles [ setxy random-xcor random-ycor ]
3 i$ M& W4 I( o8 Lend. a. E# K% A9 A+ p. |2 F% T; i
to eat-grass }; B3 X6 I- I& E p0 e
ask turtles [
2 ?7 n, i$ k7 c" o if pcolor = green [
' r/ k+ s' m$ Z1 h5 r8 P$ w+ m set pcolor black9 j n) T, q' @) l
set energy (energy + 10); Z3 a: h2 X+ _) r
]
' ^4 r% p! v- z" E; |' J* a ifelse show-energy?3 n4 R) Z8 |% {, ?
[ set label energy ]
% h" |4 b% Y" E, \! |7 j [ set label "" ]2 a- ]& C9 B2 l' ~4 t
]
4 W) |( P g& |+ g5 Lend
# g: K( F; ?* G; v q1 D$ X9 E" cto reproduce$ |6 X- D3 m- |) Y; C
ask turtles [
+ J! r6 f* m* h$ v ^" [ if energy > 50 [
, p7 h+ C# @% k' q+ U set energy energy - 50/ s7 ^# O8 ? ~. C
hatch 1 [ set energy 50 ]! L$ o! ]- x l" \
]
1 e, ] D9 y! I4 h ]$ J+ R1 i2 j8 y/ Q4 e( z, N
end& F$ w% Z; N8 c5 u6 b# c4 X: Q
to check-death4 s7 t2 ?9 M( h
ask turtles [
% i; R$ z( n+ F/ `# d6 G# x if energy <= 0 [ die ]" Q, k, s5 D" y T
]4 ?) D. l; j9 o9 N! B9 P% `
end' {6 @& g+ R& Z6 \# p) S) [! P' B
to regrow-grass" l' K5 u4 C8 ~2 B
ask patches [6 @( I5 r+ ?8 b7 Y. E
if random 100 < 3 [ set pcolor green ]9 w+ k# u/ v- A
]
% C* A7 _4 L" a3 G$ K$ Wend
! o2 c" b) v0 o. M) @9 X, B9 ~. E/ t' Bto do-plots" x1 Q* L. F* v0 ?6 S0 E$ g5 J; L b
set-current-plot "Totals"0 h& P/ y/ G7 T x. ~: ^6 F
set-current-plot-pen "turtles"
* t; ]% \% [4 j( ]" [5 y. W0 e plot count turtles
" z: Z/ G& T9 B$ X$ q set-current-plot-pen "grass"7 M0 E+ `- b* Y, u5 S7 _
plot count patches with [pcolor = green]* A6 n! H/ I6 Z' L% g1 c. Q. E
end" }2 `% L1 \% Z
可是运行时提示no such plot: "Totals"
' j1 p- { `/ ?2 Verror while observer running SET-CURRENT-PLOT
" ^8 x6 j3 R1 I# l/ x/ g: U called by procedure DO-PLOTS4 Y7 B+ P1 y4 r) @3 Y2 { ]: g+ K' C' l k
called by procedure SETUP
8 ?6 _* h4 [% @3 w called by 按钮 'setup'
, V9 @% H |2 X6 u求大神解答啊 |