我编的程序如下turtles-own [energy]9 F& @+ W" `3 ~6 W, D
to setup* B, ~" ?! L& q! ^2 L3 j1 T
clear-all
( e& G2 N3 i. i' Q+ u setup-patches
. O) E. C$ j; f( P# B" H create-turtles 100) }+ `9 c0 w9 c0 {& ?3 a
do-plots
1 w7 K; _. d0 B* [4 S- T$ K. s8 V ask turtles [ setxy random-xcor random-ycor ], B7 J7 s/ X! ~- q7 ?
end
) X2 _: d& g2 \; J3 Wto go
, q$ _. M: h3 r. n3 M move-turtles
$ C( c9 R: ~; e3 o6 V: K eat-grass
a1 r5 Y; B3 T" h reproduce
. F* j5 T4 i1 g8 X% p# I5 _# ~: e check-death: a8 e1 E. I: b$ w& C
regrow-grass
( u. a, c4 S6 g4 {# T do-plots
2 D3 B+ L W; @' g# ]& bend* A1 S; t$ l, T+ y
to move-turtles
- M8 L5 X$ ~7 `! ]$ \( S ask turtles [/ K0 V) o: _ u- z- ~; Z4 o
right random 360 | U) E; ~( @$ Q1 B8 w
forward 13 ^% S! J) L& Y- H
set energy energy - 1% U$ ], w) R1 o! w% j
]
! m) l6 g. k( q' o% Nend% c( t: w. @$ ]8 N5 T
to setup-patches% z2 G/ a3 C) d# I& `- u
ask patches [ set pcolor green ]6 ~0 u# L$ {/ v4 y
end, m7 @6 c: D1 N4 M
to setup-turtles
4 f- [0 o1 b. ^1 W* F create-turtles 1005 X8 m1 F' _, A* m
ask turtles [ setxy random-xcor random-ycor ]
5 {, s; N- z; _7 i0 [! y6 Qend0 G0 [) e9 ?/ ~, f2 j2 u
to eat-grass
; u# a) l3 A0 v. M- p ask turtles [
% `( J# e# \* d if pcolor = green [2 {- Z9 F3 j, R4 g; T4 u+ \# }: d/ I
set pcolor black: v1 A/ {$ N6 y; {) W. g5 Q# G+ E
set energy (energy + 10)$ h% Z$ A q+ J% S! F
]' U! ^$ n; z* Q4 U8 ^
ifelse show-energy?7 s2 o/ U7 S3 X
[ set label energy ]
* | k: n6 k* u, \7 w [ set label "" ]& ]) u& `2 f6 n( o) V" y: p
]
: ?9 u8 {$ c- X( W, e1 J$ v' Uend
( F/ h9 d0 @4 t3 U7 D& ^" lto reproduce
d; Q7 B5 j0 K6 f2 l ask turtles [
4 Y7 E/ A7 p8 V& S if energy > 50 [- j4 e! [& H. W6 u! v
set energy energy - 50, P# N9 }3 R5 [+ f
hatch 1 [ set energy 50 ]- P5 Y* S. q8 k
]1 t0 T1 C3 M# \' k: q6 [# u+ d
]
6 A5 V6 [) ]* @8 b& w( Gend: v# B, x6 \$ C. b% ?
to check-death
0 }7 |3 {5 B. p Z5 D ask turtles [
1 A8 c( p3 Q7 E; E* Z' V if energy <= 0 [ die ]0 U3 G. {- |& r5 N
]8 T( a8 Z2 M( m0 f- ^' U" X3 P
end
4 K+ P# f5 j5 _& I. w! i" Ito regrow-grass
' F2 k. M2 a z4 V ask patches [8 i7 D c0 e! X; @( y3 L" W3 y
if random 100 < 3 [ set pcolor green ]
6 [* C# r* l# t$ V* K3 F, @ ]4 H2 c7 J$ ?/ c0 ^: ?. j; d
end8 R& |$ k' U; E0 S7 j. q9 k* [9 @
to do-plots
5 A, ^1 p% A$ z1 W set-current-plot "Totals"
0 ?$ _0 g' ?8 i3 e1 u* q( U set-current-plot-pen "turtles"
; Y( X9 M! S7 `/ x plot count turtles
( u* V9 e8 I! x. m8 V# K3 [ set-current-plot-pen "grass"
3 L+ W1 T* R9 _- s3 L" v; X plot count patches with [pcolor = green], N) R$ j0 Y, C' ^" x+ o% q
end
% R/ p7 @* ?3 t1 q可是运行时提示no such plot: "Totals"
. n1 g+ Z! y: [9 I, y* e7 Rerror while observer running SET-CURRENT-PLOT
' t8 q1 o( l$ T. h$ ? called by procedure DO-PLOTS
7 ^! |: E8 D6 s called by procedure SETUP
, L% M0 Y/ Q/ h5 k; w called by 按钮 'setup'
" ~- B# ]: E! x求大神解答啊 |