我编的程序如下turtles-own [energy]
3 X7 L& W d6 Y$ G qto setup
5 l( ]8 a. W+ {* z8 { clear-all" y' H- x* G9 o$ r! G+ O2 V3 A
setup-patches
2 `$ `( a- m* ^% w4 P: p( I4 _, d6 E create-turtles 100& `) A) |/ d, ]: p
do-plots
- Q% ]. |6 P- W/ K# u1 \. ?# S ask turtles [ setxy random-xcor random-ycor ]3 G& @* ~9 V5 T9 z0 y4 Z
end
I- I L/ O; U5 Cto go
% h& T% C5 C. P- J% ` y move-turtles4 P( E/ t" I# O
eat-grass; Y8 i0 h1 i8 ? r$ j
reproduce
; I5 w5 a; W" n* L# { check-death' x( v1 q; n& L8 c3 R& }! r9 H' m
regrow-grass* I& E; E; ~+ i$ Y* p* |0 t
do-plots; j! L2 ?5 y( h* @/ a
end
7 ^: P, {( t0 `8 F' vto move-turtles' X+ X. m1 ?- m8 y
ask turtles [
( P/ d. M: f5 }+ J8 `. _3 K right random 360# d7 Q6 L0 X5 ?# F4 h9 K
forward 1
7 E: a) R/ s# @$ `2 X- h1 Q set energy energy - 13 [4 {% M B) H0 x0 b; a
]
0 ?& T5 Z; ]* N/ i0 |% _! pend
, Z1 ~" K5 L6 R6 t) b0 {to setup-patches
- o f% A2 |4 \) f6 O' D" [. \5 x ask patches [ set pcolor green ]- A) G$ r( b" o7 Z
end: k: q( X! a# ~! o; W
to setup-turtles
. O4 R- F7 ^& Z' b* f. a create-turtles 1001 Y) n' Q1 @7 Q# q+ M- g3 e5 \7 U
ask turtles [ setxy random-xcor random-ycor ]
! b# Y. d, S6 o0 n1 x/ vend( q* U# r& `/ d. H$ h$ K
to eat-grass( O3 V7 ^2 F+ H+ r7 Q0 b+ _
ask turtles [
5 M( q" X6 ]+ z& ^, x6 q if pcolor = green [' V3 U3 r3 ~2 M! [0 Y- N. H
set pcolor black
1 t* l/ H" }) x) ]: D1 z set energy (energy + 10)$ s! U2 c1 k% B W4 z# o1 S
]! V; M# v! X7 P7 \ ~ d# b
ifelse show-energy?
w z9 D. _- ?( `+ m [ set label energy ]4 P5 g4 ~$ Q; @3 o+ F5 `8 W
[ set label "" ]8 T3 L' s# Q/ g
]" d, x# J; {( ?! N& z/ H: J \: V0 f- R1 d
end
' g1 @8 Q9 x Uto reproduce6 Q- f2 S; j3 _
ask turtles [5 v* B, F: h1 ?7 i- j" w
if energy > 50 [5 Y7 s1 M0 ?0 v, j! j; h1 E
set energy energy - 50
! v1 j- e5 g7 b* w1 O( a hatch 1 [ set energy 50 ]# j, j3 m) w: O: z: X
]6 k% N6 d* {) B* }
]
: T( y2 j7 J/ b4 Send3 {& j N4 Z1 N/ [, @. w9 U9 b/ ?
to check-death
6 ?$ a& W9 Z, \# v$ n1 A8 J R& U ask turtles [
2 ~* x4 t" N. f if energy <= 0 [ die ]2 o6 x, T, d1 X! w
]
4 e2 y2 h. B% S8 h# ]% dend
) ~8 z3 [5 x/ Q/ Uto regrow-grass
( e7 U- ~, h- `: z% [' M ask patches [9 ]$ F9 x) k& \8 r6 ~3 F3 r9 h
if random 100 < 3 [ set pcolor green ]
- c: v& f+ d: Q; ]" O; t ]
5 P7 }2 ~! }) `" r$ @# Lend
, K) D, W' @6 z" A: Fto do-plots" \' U$ o$ D8 [ K0 K1 Z! Q
set-current-plot "Totals"
% _ A7 @3 `( I$ u/ q4 m set-current-plot-pen "turtles"
; i; ~, O/ T2 H# g2 k, }& b1 { plot count turtles
) q- }4 L% B5 ^$ E set-current-plot-pen "grass"7 Q* T$ }* \1 O( S' D
plot count patches with [pcolor = green]! J0 o% u% K8 k `
end
2 T# X* T1 ~- ]! }) n可是运行时提示no such plot: "Totals"8 \1 ?8 n3 G! D9 J6 j2 p+ m4 V% Q& P
error while observer running SET-CURRENT-PLOT) M& G6 _6 u( g% t) O2 z! Q: d
called by procedure DO-PLOTS0 Y' [* h; T: p& ~
called by procedure SETUP
6 L# z" h& v1 x called by 按钮 'setup'
' R* w T. w. ^7 k1 m求大神解答啊 |