我编的程序如下turtles-own [energy]
6 O2 T" W. H, d: b3 hto setup
2 I/ A) D' o0 u. a; U! ^ Z4 E, J clear-all
$ \: J- C3 T: w, n9 n" j- W* u$ P setup-patches/ `9 s6 q9 B# `" h
create-turtles 100
: `. X( G, T2 k do-plots V# z( S! V/ O* W
ask turtles [ setxy random-xcor random-ycor ]
; R0 c8 u. I9 p& M' X6 Q: Eend6 b) u: I: W% U2 u' } M2 K
to go
, C& a4 t& l5 r7 Q% D8 R+ W6 Z move-turtles* M" [: O( ~8 N) D0 i- S1 v
eat-grass
1 |8 X9 _' V+ e+ f1 C0 b reproduce
! u, i- z( t4 H0 \% j check-death( U# l$ T1 G1 R/ z" ~
regrow-grass
, [4 \! A: T( w3 _( { do-plots
) L F$ ^. W1 t4 z/ H8 [1 A/ Aend. h- G; @' Q/ E: E" _9 z8 L8 Y
to move-turtles, p. z: T( w5 s8 m' F
ask turtles [
8 c$ F, v! b/ `' W3 d, |4 b right random 360& ]- k8 h- X+ E# u+ R1 Y
forward 1' x6 N! M- i- k' o; Y
set energy energy - 1
, T9 r }& p7 Z5 }4 Z/ Q' ?) E" r ]+ V5 W9 F5 }, ?9 i8 H/ b
end
% ?5 Z+ C2 n& ~# [/ n& T- q( eto setup-patches
3 o3 y$ x2 u' e) \) Q# \ ask patches [ set pcolor green ]
8 B: e A9 E5 u) tend
; T }6 S7 i, i9 Mto setup-turtles
! w- y, i$ \1 M create-turtles 100
7 [) O+ g N9 l8 o ask turtles [ setxy random-xcor random-ycor ]1 N$ C2 X( @1 l% l9 {, v
end
' X2 C, b2 Y# _2 {1 s1 Ato eat-grass1 z; p0 Y& ^0 |7 s, n' T$ U& w- S
ask turtles [0 C+ V( q* S% ^# @( B
if pcolor = green [8 \4 R) ~; p6 a, c
set pcolor black
# k* L* J. b+ v set energy (energy + 10)
( i- H0 {/ k2 f5 _7 F ]
+ c3 U6 C3 I% S% o- X5 x ifelse show-energy?
1 L6 t1 |; B) W4 p) x5 G( d [ set label energy ]: [+ ^$ `4 l2 T1 V8 h5 H' j
[ set label "" ]
% u: ?. P. ?0 A# [1 V* V ]
& V6 p o5 D9 `" N2 P$ w$ L4 d% Mend
* V; `' Q9 S/ N5 {2 ito reproduce
; F# s z7 `5 q7 V ask turtles [
- i/ y& Z- Z4 I. l7 O" k if energy > 50 [
7 A+ M6 D+ `$ `, ^9 p$ I* O set energy energy - 50# \8 g% r/ o0 M" q6 ]- R r
hatch 1 [ set energy 50 ]& v9 K) j+ ?4 V6 O9 u) s- D
]4 G$ \9 b% i4 P
]4 V4 z* R! R) Y: k- p5 l/ j7 _
end
_2 n* Z- e$ f0 j& E. w: Ito check-death' j, X' D* T$ l* u
ask turtles [
+ V) y1 n3 ?6 Y1 L d if energy <= 0 [ die ]0 y8 a( I3 W' o! \5 @$ n1 z# T
]+ U! c+ \$ z& n7 K( Z3 M& J6 G$ i
end* F1 c: U7 a( Q8 u$ V! S3 z
to regrow-grass
7 K, L1 d' Y+ I ask patches [
6 |8 P: a4 n F6 E& a$ F% S8 T if random 100 < 3 [ set pcolor green ]) B6 {/ a3 @$ q. z, Z+ a6 z! d
]
8 z# {; f, F4 R9 Bend5 r" d S2 j+ U5 H9 Y2 ]
to do-plots
/ B7 |* D$ }3 o# {" J( j: I set-current-plot "Totals"$ F i8 [% Y1 n! a! G$ Z" I2 `3 ^
set-current-plot-pen "turtles"
8 Y2 b. i% ]) \7 K1 Z [9 \ plot count turtles# l, b7 z/ J6 R$ M [
set-current-plot-pen "grass"
7 ~- N4 N8 I* r( V$ e plot count patches with [pcolor = green]
1 ^3 x8 O; B$ U( I9 q, p& J; tend. C O, t9 ^2 p" B' \
可是运行时提示no such plot: "Totals"& R& ?( {* s9 X3 Y
error while observer running SET-CURRENT-PLOT
, H7 S0 g" |* U- m called by procedure DO-PLOTS
# g: f" ~# ]( q) k8 f called by procedure SETUP
]6 }& P: u1 y" L/ U- A, q* s9 i$ M. I called by 按钮 'setup'
1 S9 A4 t( Y# s# s求大神解答啊 |