我编的程序如下turtles-own [energy]
; C% U j7 U. }/ xto setup4 f0 ?, q. C! W8 q
clear-all
/ k% F w5 E0 O setup-patches; s* F! H" _2 d1 n1 c+ f
create-turtles 100
3 S8 M- _& M0 J1 i. S do-plots
( I V$ u- G% X& \- e ask turtles [ setxy random-xcor random-ycor ]' }, S0 S9 W1 W$ V/ }1 X. U: S
end
# r* X1 B: O1 w, I* ^1 ^- kto go
& `6 \+ c! d* x& i( @9 d3 Y1 L3 ~ move-turtles% Y& s( O) E2 {/ s
eat-grass, G. F8 q1 }+ s: z* D9 O
reproduce) v7 `5 x, h5 I; I5 l+ j& l
check-death
7 T: n1 \( a# N8 j regrow-grass) B. h) L* E4 L0 K$ i
do-plots
) I) e, d# w6 s r- l4 \- X) Cend# X% B8 u3 O2 s$ O& w
to move-turtles. }4 P2 T8 n) N
ask turtles [
3 e% [! V. Z8 i# a% Q8 _$ v# ^( |" W right random 360
6 P" }# j# G. x! ]7 ?+ K forward 1
0 z8 e: _2 h* G1 Y' x set energy energy - 1
# S8 W! n, Q1 C" b ]& J- _! C, ?+ v* {
end' v8 x( [! L# H
to setup-patches9 O7 R; `! y) f' I. D
ask patches [ set pcolor green ]
/ O( B3 G% W! T9 D' Eend7 Z- z6 ?3 m' \5 ]- J
to setup-turtles
1 @# F$ r0 C1 ?( m7 I/ _ create-turtles 100, V6 @. O+ z/ c5 l6 @& x
ask turtles [ setxy random-xcor random-ycor ]2 z) i6 A& g+ k0 Z! H$ ^3 d
end: k7 c: X2 S+ v, V
to eat-grass4 r3 d6 C" X" f
ask turtles [
. Z. L+ }- ^( K% r: S if pcolor = green [" h) m$ B0 S& V, z C, d7 v
set pcolor black7 Q: i3 U% J/ {% }* _0 ]
set energy (energy + 10)
& H( ?" E/ d( Q ]
8 f# Q3 \, ~! Z' u4 y ifelse show-energy?3 f) V. y# ^% d |
[ set label energy ]' ]" N) K J$ R- P& ]
[ set label "" ]( ^6 H. o/ d5 ^6 \" {; f# \
]- ?/ g5 e& D$ r
end% u$ {$ \3 f+ J# o0 X/ t" a
to reproduce4 G" u& X6 M) p+ S. Q
ask turtles [
. f0 p6 P' g% G9 A if energy > 50 [" v5 \) {: ^3 ^/ E
set energy energy - 50
+ h- S, x. K5 Y: \2 V. l; H hatch 1 [ set energy 50 ]# f5 C4 u% _- Z& J ?7 t0 P
]
$ T( ], c4 c: d t* Q ]
. V! j1 p1 H4 M# W( ^1 nend9 H, ?2 D9 R8 |* p; r& I
to check-death
0 X$ V% D! N, y# X5 ]! u5 D4 i ask turtles [
& Q3 V( i. E# `, ^' a3 e if energy <= 0 [ die ]9 e8 Q b% ]4 a' k. F9 {1 x/ v
]/ s$ A$ M# I2 _3 V( G0 d
end
9 u' G* c) s. y" F. u- [to regrow-grass
: L0 q# R9 G) z8 d/ H) p ask patches [% `$ ]2 U0 x, s( G$ {; W& r. ?3 t) `
if random 100 < 3 [ set pcolor green ]
, L) {3 K; _3 I, _- r ]
9 L N/ H, z7 J+ eend9 i6 H6 U' c* ^
to do-plots
8 ^; G6 U1 X/ D: U2 k set-current-plot "Totals"
# {, j( O3 z0 @- i3 m8 j5 ^5 a set-current-plot-pen "turtles"
9 A6 D+ E$ O! c- d plot count turtles
" G3 d4 x7 E B1 l; e a set-current-plot-pen "grass"
b; m3 C2 b5 u3 O) N9 d plot count patches with [pcolor = green]! g. M8 y7 `1 V& W
end) V+ x/ B$ u- J; s! o& y7 U
可是运行时提示no such plot: "Totals"& A! ^3 h& o. ?$ }# w' U) b1 ]" _
error while observer running SET-CURRENT-PLOT
. F5 ]' e9 `% ?7 |' e9 u called by procedure DO-PLOTS; W. }4 ^& c! z2 _1 l% u: n
called by procedure SETUP
* X& m7 G, K* d0 C called by 按钮 'setup'
% w1 {) @# a+ d2 R求大神解答啊 |