我编的程序如下turtles-own [energy]* }, P( u g2 x/ o, W% E
to setup; P. p- e/ N7 [, H9 d
clear-all) m" V& p7 E9 b/ B" h) f* Z
setup-patches
7 x1 j2 e: s+ \* T+ K create-turtles 100, Q' h! X. D0 @2 R' p" w% r
do-plots
. b' h6 r9 k& a ask turtles [ setxy random-xcor random-ycor ]
5 e9 l0 T. Y, h/ vend
- z; ]5 G! ~3 qto go' ]9 g0 l7 \6 f' _2 @+ E
move-turtles
$ J( d7 j) D4 U2 _) l eat-grass; X# R3 ?2 K+ P( k8 q3 l
reproduce' I% v) j* F% R+ w5 J8 Z8 A
check-death
4 _' }* E# q, w regrow-grass% x# ?! ?. N* p+ W' {9 E9 p
do-plots3 m1 h+ m& I% S9 U9 r1 a; _9 F2 q/ v
end
$ e2 _3 N5 m/ R" o W% ~) yto move-turtles
6 m# \4 Q6 P: @) u4 l9 t8 g ask turtles [1 d3 {6 H; Q( @' G' h# Y- f7 K
right random 360, C9 ^; D) t% H! I" S5 H
forward 10 x% Y9 e n/ @; |2 m
set energy energy - 1" Z. g" S( v6 S2 Z! Q, B# x
]
8 u/ f' W' T9 m; u& Jend) {1 w' W& w2 v9 w8 w$ t
to setup-patches
; k1 R0 s& X( \# b: J' i ask patches [ set pcolor green ]
6 j* I. p4 B8 mend' T4 n7 N8 N6 o5 r) ~
to setup-turtles( O# E: @' Y6 q
create-turtles 100" }- D; X! B2 d5 k8 M n/ B ^
ask turtles [ setxy random-xcor random-ycor ]& ~" O9 _1 E0 d) B, S+ K
end. @9 d: J( n1 C4 C
to eat-grass
/ g; f0 B& v: ^ ask turtles [
: ]3 `+ G" U" m if pcolor = green [
3 Q# U+ y8 b% B W" O( v set pcolor black
5 ^! v& D1 p) o) I0 Z; P; b set energy (energy + 10)0 V; C- x) u/ p1 }7 x' M3 f& g
]) J% ?% G' E9 `- g" F) r; Q2 g9 h! p$ i
ifelse show-energy?/ r0 @; i$ q7 F- L
[ set label energy ]# g8 |( T# `1 M2 b2 k: B+ [
[ set label "" ]
$ z: _+ J5 Q3 S4 u+ ] ]8 Y0 N, h- b Q# k8 F' Z" ]7 M
end8 {0 v" _8 G: j, f' t2 B2 e$ y
to reproduce# j* M6 U8 s8 S
ask turtles [) o, D( y- G& q
if energy > 50 [
% v- P) M W& S- o0 h) v set energy energy - 50
! A4 A6 `. N, b3 Z4 c. G4 t; H hatch 1 [ set energy 50 ]
% [/ ^$ p6 i& B& Q5 }( ~/ b ]
7 ]9 ^& A0 `. I) x/ _ O5 U: b ]
" B" Q% k M4 aend5 e* v$ h( I) ~0 U2 B
to check-death
, X2 T* W5 B* u$ i9 R% X ask turtles [/ J$ q* Y! S1 V' |" W
if energy <= 0 [ die ]9 z7 L2 W. q: D- ]( y
]/ T" o! K/ e+ s# j
end
, ? u9 V& w0 c( b: Sto regrow-grass
/ o3 D+ L' | [. S, A$ l6 ^ ask patches [% J. g# o" [9 M1 b+ R( }; l3 O1 k" L
if random 100 < 3 [ set pcolor green ], A4 g% |' p5 Y. n; `
]; l! X$ \8 I! A4 \
end- l* z" `, @4 u* I0 ]2 x
to do-plots
! U( X; d3 S) {4 q9 d6 e, A set-current-plot "Totals"2 @! z; d! H3 c8 D% [! X, ^, |; C4 p
set-current-plot-pen "turtles") R7 i+ d7 }6 g/ }3 R- ]
plot count turtles
$ j# B }3 A* i( N j set-current-plot-pen "grass"
- I( ^; O& U( ?$ A9 _) Y* T plot count patches with [pcolor = green]
6 X& v' A7 @" q" \end
, G; r% q2 g# z) r( H可是运行时提示no such plot: "Totals"
& o# v/ O- r6 ?. W& b" q. {1 j8 Werror while observer running SET-CURRENT-PLOT
" |: T5 u& ~0 @ called by procedure DO-PLOTS/ c0 k1 ^+ X+ i
called by procedure SETUP
3 R1 o7 x: {0 d* W% v7 N called by 按钮 'setup': k3 L1 |7 `) @- s- `
求大神解答啊 |