我编的程序如下turtles-own [energy]% l7 K. j* n* \% d! }7 B
to setup
D2 h# P/ Y3 j clear-all
3 p% o, I- z; _7 i5 ~6 s setup-patches
, t% o! Z4 ^2 W3 K create-turtles 100+ b3 R( f; f& L$ C- I4 g
do-plots
8 F# y* s E6 N7 t" w ask turtles [ setxy random-xcor random-ycor ]! V" [1 @7 d: Y0 G* j
end
- [7 F# N& `1 r- f6 k/ H" Bto go* ?0 m# `2 }# b7 f
move-turtles
, L& |' Y! j- h( o6 E. p/ ` eat-grass: E2 c6 e+ D* A
reproduce; B# E* o/ }: ~3 c3 X ]8 J
check-death
" _: k2 j% F/ j1 v5 Y) C+ g regrow-grass
( r7 @# O, A$ ]2 c( G; L+ U do-plots
6 T# k; O8 @* M$ L$ X) eend# x/ e9 r9 W! k5 h$ T- o' x5 R
to move-turtles
- j2 c, d" G& s ask turtles [
1 e6 @ J( l1 O9 D! U) T right random 360$ U, A+ ]- y* W! o o( M0 r0 u
forward 1. L& L8 @! N, J
set energy energy - 15 g8 w& H" }% e+ P7 {6 Y
]* N: o5 w; ^" k$ T
end" O; J M# V0 t0 T, V
to setup-patches8 l7 {: Z& e7 O. _0 }: W) n
ask patches [ set pcolor green ]' @7 t A* F# h: V6 e4 M
end4 w# {/ A, }. n4 C
to setup-turtles
; b$ W/ U, j* m# V6 O create-turtles 1005 o6 z& d- k3 x+ N- \
ask turtles [ setxy random-xcor random-ycor ]
: K. i, i, T( s! {8 N+ l. i2 Aend6 M. W; I& Q$ ]" p
to eat-grass
; y) }" K; r% j ask turtles [
2 w. X, p/ s6 N6 d' T: f% ^ if pcolor = green [* z7 m1 H& v3 t0 x& d$ l0 ~
set pcolor black" N! ^; k$ G1 d9 s6 E/ ^
set energy (energy + 10). L) \* y/ ~) A9 c8 m
]- n4 {$ S Q; `! ^7 r* e
ifelse show-energy?- |3 F0 B; O: ~1 @
[ set label energy ]
# q3 V2 r$ p; Z k5 V; n: s' x [ set label "" ]
V9 X' u9 Q; H# _" |& \5 ?+ Y ]6 I) d3 g' u$ y' v
end
: H: C9 B3 @! ^& Mto reproduce$ Q. Z7 a% p K$ \. M
ask turtles [
9 e; F, X6 X8 ?! R& N+ g if energy > 50 [
2 e5 p! j4 B) u9 `& p" Y7 n3 q set energy energy - 50/ w) d; p: D, s9 G; V7 x
hatch 1 [ set energy 50 ]
+ ]/ l% z' G, x7 a ]6 U: Z. l, h- q! f& F; f
]6 }' y, z+ O( e0 V5 M0 C
end" C5 B# Q7 H O( J9 k9 D. @
to check-death" Y$ c0 M6 p4 f4 u* m5 e/ c
ask turtles [# }1 T n/ K% U' W+ D: u5 f' J
if energy <= 0 [ die ]
: @4 b2 x% D9 `; h) V A1 Q0 u ]
# V7 ]1 p2 y: {! j- e9 lend/ [% x* O9 ~+ x9 r$ A3 S, w
to regrow-grass( A3 `! |, \5 K0 b( W4 ?; u
ask patches [! [+ ~' Q1 j% v$ p9 g9 O' n/ o
if random 100 < 3 [ set pcolor green ]1 x( \5 U4 ]7 I9 R! E
]/ o" ~5 y3 s, J& F s" E4 @
end# s( H9 J& v. V$ b& T9 C
to do-plots
9 f5 S0 N R0 B2 U' r3 [ set-current-plot "Totals"
. J! ]. h$ P/ ] set-current-plot-pen "turtles"
1 @, y# V" `! i* c0 [( H/ G7 [4 y plot count turtles7 _, N" d4 D# a$ \9 U
set-current-plot-pen "grass"+ l4 I# _7 n/ L [% [: X
plot count patches with [pcolor = green]
a% y1 s3 q8 b2 d- y, F: Eend
( Q4 S8 @9 c' u1 K5 l* B可是运行时提示no such plot: "Totals"" v( t& U i* ^* e! R
error while observer running SET-CURRENT-PLOT
# z! G1 o7 ^3 N# m- }2 P6 } called by procedure DO-PLOTS
* O; v- k6 i( z called by procedure SETUP# \0 {) t, p: B6 {; O N8 ~ ?
called by 按钮 'setup'
$ f# B. K' J. |5 D" B求大神解答啊 |