我编的程序如下turtles-own [energy]
3 E% E+ Q# u2 j4 Z Q6 s- dto setup" Z" _3 a4 w' ?$ B' J" ?. D
clear-all
& ]8 n7 b& Y) h1 d setup-patches9 c2 t* L9 B7 q5 d$ E+ C
create-turtles 1000 G- |9 `; K+ ]: E- e- l3 p% r
do-plots
+ g& V9 e' N: d! D7 M- |" F ask turtles [ setxy random-xcor random-ycor ]
5 N7 x6 Z9 \' a, N8 G5 X3 [& iend: s/ x5 K$ \- w9 ^* B
to go5 V! T% A5 d: j9 w: Q0 \
move-turtles
3 n) a3 j+ H# d( X' c eat-grass
* h5 _6 j# @8 w( ] reproduce
( I- ^6 ]: g% r% Q/ X. n check-death
# W6 h+ v7 F1 c. @* a' F regrow-grass! o4 m, x! n) b
do-plots
d& _9 L9 y9 Nend; F3 ?6 V2 {7 U
to move-turtles3 T" }" z1 A7 l
ask turtles [
. E5 {& u% }8 R% p$ S$ ~' A right random 360: \# N8 \. Q* ~& R' s* v, t/ ~) u7 F
forward 1
; |# C; E8 u# h4 h0 w3 L+ { set energy energy - 1' o* u# ?' k! i) s7 I
]5 r5 n/ } u" j! M2 T: ?
end! d4 X+ A+ C1 W3 d* J
to setup-patches
9 r P9 ~9 x5 Z ask patches [ set pcolor green ]
" [! c% N: h2 ^, {. g9 ^( b: M1 |end* N) ^; e7 c( v$ j, K; ~
to setup-turtles ^' [3 z" f3 u- ?1 A
create-turtles 100, E, E$ b1 Z+ p8 d' j# g
ask turtles [ setxy random-xcor random-ycor ]
; q4 X% O& Z" d) r9 o. iend8 D& d3 ]7 W M
to eat-grass0 f/ a8 [% w5 c n1 Z/ |" i7 N0 N
ask turtles [) f+ n' u3 i# Y, f0 \
if pcolor = green [
, {2 p' o: V- i5 Y set pcolor black6 _2 S5 r! V3 P2 p& Z( m
set energy (energy + 10)8 \7 B4 B# N' ^1 ^, @# {9 z
]
6 l4 K- |& _! H# f3 q ifelse show-energy?
( t1 t4 l1 ?. X& F. r% ` [ set label energy ]
' z$ H$ K. d9 K6 n) x3 L% W [ set label "" ]
! ?5 u6 v9 g5 h. l) ?2 x ]
$ ^9 F/ t+ i4 S( N; Fend
0 ~, O# i) H$ v" Fto reproduce+ O" y4 e/ G' P0 J0 X
ask turtles [
7 M3 O# a3 d# @5 Y) d7 x if energy > 50 [
; {- z; `& F" K) s set energy energy - 50/ A4 h. X. \6 a; |; Z0 T
hatch 1 [ set energy 50 ] x1 S7 I9 D" K# A
], K( v$ _( o" y% C i0 {4 p1 {+ L
]
: `/ K$ X7 }8 m1 N* [+ Send
; s2 E! E, U) e+ I& z" Jto check-death8 m( Z! Q/ P2 E
ask turtles [
# i. [- ^" Z8 t1 s+ ?& R4 ~9 b; n$ \ if energy <= 0 [ die ]. `' @+ E: B. k# J/ x
]1 V! e4 ?" t- f. D7 ^6 r4 U) R" j) x6 x
end
+ ?3 s" g, U+ O$ e" tto regrow-grass
$ w' S$ w- G6 a2 l- p9 ~* B0 G6 Y1 O ask patches [) A/ _5 Z2 |- Q
if random 100 < 3 [ set pcolor green ]$ J; j4 U- q/ {1 D# u/ w& X
]9 P; }4 X! }# g
end4 f: U9 u N% L
to do-plots
% N* A! _& |2 e2 D0 [ L set-current-plot "Totals"! y+ r9 @6 T5 k; O, ?1 }! v8 X
set-current-plot-pen "turtles"
0 r9 w. N; W. i0 U' u; i" e/ i. Y plot count turtles
c* }7 d0 N( W' t set-current-plot-pen "grass"% r7 H/ K5 n) j: [
plot count patches with [pcolor = green]
# u: W) G) c! W( P1 wend% }2 |0 I* U4 c
可是运行时提示no such plot: "Totals": K: r5 l3 M, E! s. [4 j5 u
error while observer running SET-CURRENT-PLOT
# }& q' i; [% l2 O7 F9 ~ called by procedure DO-PLOTS! L1 ]+ \/ \! P; I: Y4 e/ d/ E
called by procedure SETUP3 b: B% z/ E& S; k% z1 v
called by 按钮 'setup'
; i1 k2 W# y% n+ Q( V- W求大神解答啊 |