我编的程序如下turtles-own [energy]
; {+ w) H* O7 h% d3 T7 X; vto setup
2 |6 x1 Z! U5 {* l$ _ clear-all0 l C+ l. o7 l+ P. r ^3 F% n
setup-patches
' M1 p( c/ R1 V' K- t, B create-turtles 100
( y: {/ ]& X: q* J do-plots
. \9 g% R) g$ l* o% d9 [( T ask turtles [ setxy random-xcor random-ycor ]
6 L4 `2 x9 R+ H: [6 Cend0 ~, @+ q, h, ^. K) S$ v. F+ {
to go9 X/ E& n& I& t( J% c( ]0 |
move-turtles+ ~5 b( [# t7 p9 J1 ~) w5 g1 o1 h
eat-grass8 i' F; Q; i0 O; B. Q2 R
reproduce. } u- u2 H8 h, e4 l0 ~
check-death( {1 o! w" U5 V8 ~9 S
regrow-grass5 h* o/ F& a$ q$ e3 n* k) [0 E
do-plots; C) w5 Q" _. T
end
) E- R- y* f& j- F' w' B- s' _0 p; Bto move-turtles0 o6 g9 O' W9 O9 A0 n
ask turtles [
$ g* m3 t5 F9 ~! f3 `) K6 h right random 3604 c) A4 ~( k: h
forward 1
- b2 A0 A2 P! |4 C/ t3 s6 a set energy energy - 1 Y' [6 W. Q9 Y
]
# F) K) \2 |+ \2 cend
+ u9 G) C' x/ I3 Q) }& E" V. h! Ito setup-patches
2 C" ?: L) G: k2 ^ ask patches [ set pcolor green ]
8 m8 ~8 P# a0 b; @/ B5 f6 K2 Xend
3 F1 @1 \0 k8 Cto setup-turtles: W4 b! ~. j R2 a' d
create-turtles 100
+ o b* |6 U& F2 B1 Z& n ask turtles [ setxy random-xcor random-ycor ]- {. v3 n5 U9 Q0 M' n& k s
end
7 P. _* I o* |" J( Kto eat-grass
$ ~# _3 {4 m% P: _ ask turtles [
; O) K3 |2 z( c7 j/ L: [ if pcolor = green [& U2 q! T, s7 }1 E! z( f) J) g, p% ?* L
set pcolor black
( T8 l5 R. |9 _% M/ F; B% m set energy (energy + 10)
8 e8 l5 f( g9 t4 ^( }: a( N ]
' w) v& @5 K3 P5 x! c% n* M ifelse show-energy?* g9 P- s4 f8 A6 ^
[ set label energy ]' a- M. ~/ j5 A' i9 w0 K
[ set label "" ]% ?4 H# r! ~6 x7 s* [* Y( ] c; `4 S
]
6 Q" o! L) o4 yend
7 K- `; e, g3 N6 E) Tto reproduce
6 T3 T8 D i# M' o- s: d ask turtles [
4 T- f8 Y$ M+ Z! i' ^9 y if energy > 50 [
. B# j1 X! d; i set energy energy - 50( N* k2 J( c4 I a+ E( t* e( c3 X. g9 l4 d
hatch 1 [ set energy 50 ]- c1 p+ s% E3 u+ B; V' K
]; Y. S" t& e- J6 d6 W& N
]) |8 N6 D4 s2 G& o
end
6 h5 d+ Z' u% V4 Q& }, `' Qto check-death3 D0 Y0 ?& |: a+ t- g
ask turtles [
# t% w2 ^- z9 F& { if energy <= 0 [ die ]+ m, i* r) _9 O
]- E. k# l$ \: M7 I6 d/ T
end0 D+ {, U: N$ ^$ n3 q' l3 G, C# c
to regrow-grass$ Q2 v Z# s2 w- v, K
ask patches [
' L8 w& @) o( X if random 100 < 3 [ set pcolor green ]) `* w8 Z) e7 V, E
]
# S, y. V4 H2 f) g( e: {end
' o3 [7 X, h; X" D7 D. }to do-plots3 @6 H. v/ P6 p1 k! B8 {
set-current-plot "Totals"- t( ^$ x; }) F
set-current-plot-pen "turtles"
2 Y, ~6 i0 G9 p" n; i" X plot count turtles% R% q* l! `4 J8 [
set-current-plot-pen "grass"
6 J5 D. B/ x8 P- _+ } plot count patches with [pcolor = green]& a' k3 k% g; P' X
end
3 y3 Z% a8 ^( o- Z' x* i可是运行时提示no such plot: "Totals" d# J) E; p$ t4 V' Q
error while observer running SET-CURRENT-PLOT9 |0 C' k' O0 `- r: f+ U, @
called by procedure DO-PLOTS, h# c* A: X* R+ _# _3 g: m, R8 p/ w
called by procedure SETUP
' q3 y! v5 j9 u4 z+ d0 f% D called by 按钮 'setup'
, z" G3 q8 X; @" O( p( D3 n s0 L求大神解答啊 |