我编的程序如下turtles-own [energy]
- O5 u! u& ~7 m. Bto setup8 x! d/ h* x, U8 x7 E5 k
clear-all+ T+ A# c1 r7 y; l! o3 U! H$ a7 j
setup-patches
+ x0 i0 G# {, d( p: y+ b create-turtles 100, R* {( X3 |2 @' i1 P1 D$ n
do-plots' L, C; n9 @- P. |2 D4 B' K! ^
ask turtles [ setxy random-xcor random-ycor ]
& y C n0 g% X9 G+ Qend1 |$ p, e N- N7 E; W
to go
4 x# w, [4 s: N$ I move-turtles/ x+ d: ^7 [1 t9 }& D4 e9 i
eat-grass
) V1 E$ n3 ]% ~ reproduce
* e0 w& n) r* H5 m check-death- p$ ], i0 v5 c7 Z; z3 ^
regrow-grass
7 G( t/ |- K3 F4 H' u do-plots
9 n! k' I: d/ V1 G+ ?2 Hend0 _% U ~% w" E! ~: U! o
to move-turtles
" K2 I: v+ g0 d( v ask turtles [$ ~$ s' L1 w$ B; v( W7 I- f7 x
right random 360$ ]# A) Y7 }5 E+ S4 i. [( c
forward 1
% o0 v' P! T8 h- V% l3 h; r2 N) V set energy energy - 1
* Q1 M3 ]; \. \, d% [% n5 B ]
% j& K/ t; t% tend
- @, \3 I) p5 L9 Dto setup-patches
9 M' s! s3 c( k0 C/ `% g ask patches [ set pcolor green ]
( Q- W# L F, }: ?" T( O3 qend
/ d+ | Q2 n2 s9 o4 [5 Tto setup-turtles
( k2 G x! @- U/ F$ D create-turtles 1006 T& R6 ~& W) V( c' R' {; E
ask turtles [ setxy random-xcor random-ycor ]
1 ~+ G! [. r! X, nend6 u* x8 R0 W; R, ]" d" g
to eat-grass
' b1 X: i' e% |+ I% T ask turtles [
9 @( G6 B3 ^( ~8 `) h! E4 x if pcolor = green [
) x0 a1 J6 L g9 |; e: r set pcolor black, h# M7 K0 w2 v+ K* x: k
set energy (energy + 10)% C, p H: `) s2 l5 S
]
, w" l/ }7 q+ c' P ifelse show-energy?
0 w# H: Y. r* B# ^$ J [ set label energy ] X6 F/ ~; b, W% m
[ set label "" ]6 k4 R# S9 }6 f8 E3 @ g
]
0 Q K9 l4 U) ~. G7 |4 Zend+ @3 |1 i! p/ z, T
to reproduce
0 \6 Y' B S3 u0 P5 ] ask turtles [
. W% g$ z; v7 M m if energy > 50 [4 C! K; \$ |3 T4 \# |
set energy energy - 50; K0 X+ S0 A: t1 w* S
hatch 1 [ set energy 50 ]+ w. i0 { V) a6 u7 D" B$ T
]
: x% G8 D5 b' y5 { ]8 I1 J# d8 h: `) H4 {; M# S. }
end) s$ m% e6 @' t% O- S$ E
to check-death: P4 l7 c; V% Q9 \; z% z% M
ask turtles [9 |7 \4 Z" r4 I& C8 ?- e
if energy <= 0 [ die ]
5 N9 p( }3 [2 T+ E7 m, D/ q2 J ]
6 m" p: w, O7 Pend
, M v: g1 W$ I* U8 ?- ?1 }to regrow-grass2 v1 j$ q, m5 C+ {: [$ K# t
ask patches [7 q* i) l' r# V
if random 100 < 3 [ set pcolor green ]
$ g+ p# F; z% }+ U$ w ]# ?+ L8 Q* m2 b7 x- G3 Q1 Y
end
' l& A& V- ]* x) b; R" k1 Zto do-plots$ j6 [3 x8 \; a4 C R
set-current-plot "Totals"5 ^, Y( b5 W2 F, l& O9 _/ ~- A$ m
set-current-plot-pen "turtles"
1 Q( |; A; z% y# l& V$ j2 b# n plot count turtles* |4 X1 s4 Q6 y; M, m' F: c
set-current-plot-pen "grass"
& G# z9 c$ _4 v( S& t2 |* j* q plot count patches with [pcolor = green]0 {, |- `7 I) D
end& [+ y" u- ~- h/ d, U
可是运行时提示no such plot: "Totals"( \$ P' \+ H% o4 N' v9 O
error while observer running SET-CURRENT-PLOT! r! e. A) Z2 ~2 [
called by procedure DO-PLOTS2 R& x3 X s$ O$ K+ z7 H
called by procedure SETUP+ | J1 Q. O/ I7 G, e
called by 按钮 'setup'& w' b/ d1 F, O5 v
求大神解答啊 |