我编的程序如下turtles-own [energy]
' B/ }; C" j: z9 D- pto setup6 q% n. }# O9 q+ I
clear-all
% ^, l7 N ]0 ] setup-patches5 v, {. T5 l$ c1 M) R/ ^
create-turtles 100
, m6 C( q+ `+ b# }1 D) |5 m7 f" U do-plots
1 [% X5 F4 u; ^' A ask turtles [ setxy random-xcor random-ycor ]
4 s3 Q" q. P5 `+ jend
( o8 h8 B! W9 Z: U- d% i3 |to go
4 D3 b' _7 |2 n7 R' {0 h move-turtles& R0 d& c4 ^, j6 y4 ^1 d3 X; C
eat-grass
7 ~; q6 s" \( q- P reproduce
" }0 }5 ~' t+ p- D* o check-death* ^9 U3 C& y; Q- V) L% Z
regrow-grass
; k0 b4 i- C; W0 U, r4 p) T do-plots
; [ F# \$ {' c5 vend
0 x' g& y, w# _to move-turtles, \. S# o1 E. G: z* ^! G+ @; ?
ask turtles [% o- ]4 F& ^+ H0 _
right random 360+ W/ t& h5 G9 ~3 Y9 c$ P
forward 1& B/ d. k, N5 [4 y! t* g
set energy energy - 1, Q1 F/ |5 E" H2 N
]
$ c6 h! }% d# Rend
' u% y/ i$ b, \! U U0 R# d% ?' nto setup-patches+ V. o1 k1 `/ Y7 P2 ?# h/ c
ask patches [ set pcolor green ], E4 ]0 ]4 t Z
end+ v' d# l6 ^3 K; A
to setup-turtles
' \- v' V9 Z; j2 R1 X8 n" L ~+ Y/ z create-turtles 100+ W& H+ R+ B2 j% ?4 K2 t
ask turtles [ setxy random-xcor random-ycor ]% `' L# b8 E6 |
end2 q( j* C; g2 a( y. j1 b0 `. p
to eat-grass" c0 o" [/ ]; a; @- a6 O1 e
ask turtles [
$ z/ s( m0 U; V. E' e if pcolor = green [) n. N. W- r8 [" z! s" W2 m3 p3 e! e
set pcolor black4 Q( _2 ?2 D/ ~6 Z; C) ~: C+ t
set energy (energy + 10)4 X6 }* J' _: H( ]- i# A i
]
: Y- f: o2 F! \8 ] ifelse show-energy?
7 I4 x5 e7 O7 ]' t+ h F# @ [ set label energy ]
( O9 k3 n+ @4 L4 W& V! J [ set label "" ]
' U o0 _) M W- c ]
4 P+ f! V# x# nend
+ R% Q: ]* t& a( u1 I/ u9 vto reproduce+ X, P% X, s+ |# i; K
ask turtles [
5 C5 T' l. o# c" B% `0 l2 h/ x if energy > 50 [* P$ x! J- e7 O3 O" n5 Q5 B6 V$ b
set energy energy - 504 E0 T/ s) Z7 \) d) K* |; y7 c4 Q. |. H
hatch 1 [ set energy 50 ]1 j) _9 k5 D- m( d, w8 ]- t1 E/ S
]+ M( m, j; c& a [* \; O
]
7 G' N; t3 N9 t4 T Oend
$ n) y) @- `( [* S: \to check-death/ H1 M- f6 }( W u+ U, S, w8 x# R; c
ask turtles [. |! G2 y5 c8 G" d
if energy <= 0 [ die ]( b- g4 N" p- d* W2 M6 g i+ V& G
]
' m7 X: E* C% P: e% g/ @end
9 ~+ R3 [3 ^( I3 T0 J9 M* O0 [2 eto regrow-grass: a5 ^1 |* ?* q8 D* a
ask patches [) x g: y R6 ~
if random 100 < 3 [ set pcolor green ]6 {' ?. I+ C: T
]
( V+ z6 e$ L, R( N" { _5 [; zend
) Y9 K b% t0 a Wto do-plots2 @3 E n' j/ W! p
set-current-plot "Totals"$ |8 Y3 f+ n$ @; Q. h3 Q: [9 U, g# E
set-current-plot-pen "turtles"
4 t2 z1 M2 \8 F0 d plot count turtles( P. J* H. y) E: R1 c& x
set-current-plot-pen "grass"- x9 M) O3 b; c, d b( m1 O
plot count patches with [pcolor = green]
; H7 Z/ v# R5 ^end
* w& y+ l. g+ Z0 d) R可是运行时提示no such plot: "Totals"
- I- r5 t7 E+ t( O( nerror while observer running SET-CURRENT-PLOT; {4 P0 ], v5 Q# ?) v7 T! \# L
called by procedure DO-PLOTS. L4 P$ R* K: v6 V& t u: \2 s
called by procedure SETUP2 @& f) A# D2 \% ^" p1 X& \0 W
called by 按钮 'setup'
; |3 J3 t7 @0 u" X1 Q6 j/ Q& q求大神解答啊 |