我编的程序如下turtles-own [energy]: N; W* c# o0 p, o2 Y+ g/ ?+ G" A
to setup
& \ N/ N2 G! |; t clear-all/ ]( N; c r# \) j N' q
setup-patches
4 c7 o% \1 A$ Q, ? create-turtles 100
7 X" Z8 [$ c# R do-plots
( k9 z4 U8 P/ c* G) c4 N0 I ask turtles [ setxy random-xcor random-ycor ]
& |; Y* x6 H( R$ o2 Hend
3 R$ b6 i2 W( _6 _- ~/ Vto go! U8 c3 s7 I3 s3 ?
move-turtles
' ~2 Q& @4 [4 }" F4 K+ B eat-grass# A n/ A. y( [, {* U
reproduce- V) |6 v! t0 l
check-death4 D6 ~! W! F+ i* a7 @
regrow-grass' a% |0 m& L+ [" j3 T
do-plots+ H& V2 C% b% n/ ?! \
end/ P ^* v( O6 c1 _: i! I+ {
to move-turtles \. D$ }6 `5 C5 N% l; t7 U$ r$ X
ask turtles [# F7 v2 G( J# B% L
right random 360
/ v0 {- _' z8 c& ` forward 11 C1 ]) g- |* n1 R- { n0 J
set energy energy - 1
* y6 F6 T" p: c" k' q7 B ]9 ~! @6 N$ q$ n+ x
end
, ]( v+ N5 C eto setup-patches
. j. p- f: c- f ask patches [ set pcolor green ], m+ s3 l( {) Q {! n. y
end
2 y. F! t3 w% U1 Z; W$ F. xto setup-turtles
* ~- \. }1 `2 R: U/ n: {# s k create-turtles 100
) }7 x; X" E% H7 h/ _ ask turtles [ setxy random-xcor random-ycor ]- G4 ^4 n" ]* O7 h( Z5 q) ~
end
7 N4 ] u- V( ~) j3 d5 d) |to eat-grass
& S7 T" a- h" `6 v9 |' b+ Q ask turtles [5 D- d- Y. [, f# _0 B' ~$ n
if pcolor = green [
8 j+ D2 h% J& S, @! E1 X4 T2 O3 r set pcolor black
3 u% @$ @: }6 v g3 o& v+ H7 i set energy (energy + 10)
' B' l! R* D1 q: o8 ` ]
) {- Y. J8 V) S, l ifelse show-energy?) E* i1 @3 Q3 `: n$ E# ^
[ set label energy ]1 W, e1 }! x, i/ o- s
[ set label "" ]
- p3 H6 T7 @+ n' Y ]
/ p9 w' k! x$ _& {% z, b& \; \end
. F' `/ q' u0 y6 q" B3 h; f8 h* l fto reproduce
7 X3 E# I% X0 v* L) z ask turtles [
! x' l/ j( y; `# Y if energy > 50 [, Z9 b- d- k# o, @% ?% ~
set energy energy - 504 W9 h( ]- W: m7 p9 m
hatch 1 [ set energy 50 ]
8 q9 @/ }* L! X1 Y- L ]& N2 D: x/ E( f5 q8 y
]
/ N' X* w! C: J$ x' R. z0 r: R- iend- ^! O, I" S+ i0 ?
to check-death6 r8 f6 s2 {8 i+ N4 L
ask turtles [
" F; z3 V2 e" a$ t& k7 L if energy <= 0 [ die ]4 J, y- z$ u3 ?- K* b
]& @' ]) G }. o0 [% t" O
end$ J- g: @" y) P. v5 I
to regrow-grass+ Y) P3 ^2 t: t* m+ a6 ]
ask patches [" K) k% u* b( J# ?+ q
if random 100 < 3 [ set pcolor green ]8 z2 P' r+ ^# N* T+ G# X* q, l( z
]# t" I a7 r; W4 b
end
+ J% b8 }* j: w4 c# T% w" eto do-plots6 Q$ n: m3 n! n. Z8 F
set-current-plot "Totals"
) T; }0 R) l1 i" s set-current-plot-pen "turtles"
+ I) c- V6 {, ~5 @ plot count turtles
+ v* W" ~: ^8 {9 k set-current-plot-pen "grass"
4 n! U- j$ w! D* k6 Y4 y plot count patches with [pcolor = green]- g5 S) q2 Y' [' v9 ~+ _: C
end
5 e+ \+ G1 b3 H8 x) v7 u可是运行时提示no such plot: "Totals": Q: U5 U. g o" ~! h
error while observer running SET-CURRENT-PLOT( h; V2 |+ [3 s; V* u
called by procedure DO-PLOTS. a5 E, X; N/ _7 E, x
called by procedure SETUP
: e" P+ s, R0 K# K5 ~ called by 按钮 'setup'
3 f+ U0 C( R$ g( y# `; S; U8 H* E求大神解答啊 |