我编的程序如下turtles-own [energy]( h' r: a9 @* S
to setup: n/ h% R$ ~/ B* P% F3 v1 ]5 L* ]5 Y E7 k
clear-all
% M t1 r* N9 l setup-patches
& p. F* j# I2 s1 v2 R7 e create-turtles 100
) u; O `* s+ F+ e do-plots
1 p% R5 M( A! t$ C ask turtles [ setxy random-xcor random-ycor ]6 F# @) B8 A$ z' K) @7 X# I
end* `; I1 B' ~, t6 ~
to go; z* K7 d0 }" s2 \
move-turtles
5 H7 _( K9 G6 T* {4 W$ R* B' E ] eat-grass% M: E1 q6 \8 W& N( g
reproduce D" q, @2 L' Z( m, B) q7 t/ T T
check-death
0 t: E F/ P' j. F7 b regrow-grass
/ a, A3 {6 ~, O3 B0 u q0 q0 [ do-plots
% V! I' C( v% N4 K1 y+ Tend" I$ C4 c! [- N6 G1 L! `! g* }
to move-turtles8 Z. T! h" s) \& |6 Z) }
ask turtles [
4 x* G, O8 y7 F. A right random 360
0 H, ~; T5 B7 A- { forward 1
* c9 Z4 `8 v3 M: s4 i5 L set energy energy - 1
" s) ?, N- a; K7 N& \/ d( ~; A ]7 m u+ i% M1 N6 z0 }
end' M3 O' O9 ^3 }
to setup-patches
' T. B6 A4 W5 m# w6 J. _ N* j5 g ask patches [ set pcolor green ]7 S$ L* a( s5 U- y( p, U
end
3 k) u+ X. | |; f8 |& V# Oto setup-turtles
W/ o e) w2 H3 A1 t* Y& [% u create-turtles 100! F2 s [# V, s2 y, e
ask turtles [ setxy random-xcor random-ycor ]3 @2 Q: T, M! N+ {6 `* J
end8 G9 A5 b5 i$ ]- b
to eat-grass1 u, ?( L6 {( h5 b( Q/ R
ask turtles [
% a8 t2 h+ x2 W+ W8 \% I if pcolor = green [
* p, K9 G% O- J5 m, s set pcolor black- \9 B! P4 z& e8 {4 Z
set energy (energy + 10)
+ c ? c/ L$ E( ~, {/ y ]1 H9 R- R& |" r# o D* [
ifelse show-energy?0 O+ B: B- b4 f8 Y2 Y. } m
[ set label energy ]* a7 d% g! d S6 O/ E* Y# {
[ set label "" ], B i {! G' I' L5 t7 {" s
]
/ ]9 i& W4 E0 J1 R, u0 Vend2 k. ^3 x/ H; K2 l* K
to reproduce$ k7 _ h. L' Z% M4 j9 }
ask turtles [
: Q& a' i" e4 n' T0 J4 _/ e7 U if energy > 50 [ g3 p7 {( c: [: ^
set energy energy - 50
, X' C! }, Q5 e hatch 1 [ set energy 50 ]
' M% Y1 r" O9 b: W9 s/ p6 l. [" g ]8 a+ J" T |5 l$ F
]5 U2 Z/ ]0 ^3 G. N* o
end" B+ o7 a- a$ p$ |; `: m/ C' Q
to check-death
! T ^( e9 T. q$ D0 n ask turtles [0 ~6 D. o& Y: D9 f3 [
if energy <= 0 [ die ]8 b& A; m& T9 f( l' \; z( T" H
]
) g6 Y/ ]$ o+ c5 J3 l3 h5 cend" q6 I- h$ ~4 k
to regrow-grass
/ M+ ?- G' {( y9 J' H ask patches [6 c8 D; X, ]* T4 F
if random 100 < 3 [ set pcolor green ]9 H( L" ?. Q9 x+ _7 ^
]) k* L" ]9 A: d" L
end
& u+ m- Y) s* n! @) D. H0 A: @& h0 Zto do-plots
" z# o$ y( ?6 [( E+ S V0 x3 \2 G set-current-plot "Totals"
) [$ o- G! e; N; U1 D set-current-plot-pen "turtles": y' `- E' S+ F/ f: t
plot count turtles* `6 ]: O/ B( F
set-current-plot-pen "grass") ~& A* U- } }$ w& W
plot count patches with [pcolor = green]1 v2 W& E$ A: p0 }: e' a; m
end
: ~ B5 y1 O! q0 J; U# K) }可是运行时提示no such plot: "Totals"3 [1 j, N" ?* L% X4 v8 n
error while observer running SET-CURRENT-PLOT! ]/ w. ?8 R, c
called by procedure DO-PLOTS
7 U, [9 ^1 e R/ F3 e& I7 o called by procedure SETUP
% h' y% T g6 R) j called by 按钮 'setup'
8 @) X9 _# V) k& q求大神解答啊 |