我编的程序如下turtles-own [energy]. P# s& u* J. }, B# S* [) W
to setup
0 C( x% ]/ B- | v" m/ M+ ] clear-all( q3 C# g- j2 ` z+ U1 g/ `" T
setup-patches
4 T. [ {6 D, e: d8 Q7 c3 v create-turtles 100
" O. v4 B! ]9 c1 G) U! B0 O do-plots* N6 G9 S& l3 j/ ^
ask turtles [ setxy random-xcor random-ycor ]1 r D, R0 W0 W! a: k9 F
end j1 |6 v9 [9 a) }2 P
to go
3 I, j/ {' E: W+ f move-turtles
5 T2 C g" G) X0 H$ h/ L6 X eat-grass' w1 T4 D* C) m9 ]# Z+ x0 X
reproduce- r _ ~3 c; h k2 Z
check-death3 a# w/ D, ? e: S
regrow-grass
' u8 U" j: Y+ U& v% l do-plots
2 L; R2 o% j& b6 |+ l( jend
, f7 J6 P( @6 t3 w7 ]! J8 xto move-turtles
4 @; ?% o- z! C/ o! s4 B ask turtles [
& w& f2 n9 L6 x3 o* s; D. S1 f0 ` right random 360, ~( |0 y+ U5 V3 O1 G/ e5 Q: k
forward 1
( h- Z% U7 Y, s& s. a! Z set energy energy - 1
5 y* O6 w5 U; ?4 r5 J" { ]
1 |& U6 o* {. `2 b W- nend
# H y/ N- I. E- |! a- M& eto setup-patches2 l0 Z$ M+ {! \( \' F" Z3 C
ask patches [ set pcolor green ]. U& c, E, d0 K# |
end1 B& P1 p4 Z0 G0 a; N, q( k
to setup-turtles# y- g" _ D2 [8 @% x
create-turtles 100
( \6 R. y. X3 W+ i* S- p8 y ask turtles [ setxy random-xcor random-ycor ]. k/ t7 Z2 a1 U N/ q0 d* y
end# }4 A! |) [3 e" I2 D
to eat-grass
. u' w8 b* L5 O$ O3 i) k4 f5 ?2 i% U ask turtles [
e6 D9 ^; L) Z: E7 T" }8 v- E if pcolor = green [( s8 R; B$ @$ H- t# E
set pcolor black: B% q. W/ a( s( u% [% H/ Y
set energy (energy + 10)2 k( i3 S- n& c" A5 s4 [' @+ O
]9 x- @! W0 {' G7 p# ~. C
ifelse show-energy?
! u4 [6 x& m; r/ z8 F$ g" Z# Z [ set label energy ]& k- c# I: ]3 u; S9 n! n4 e, y
[ set label "" ]2 q" M" a* ~! r6 S
]+ t. \/ _2 H, p# X( d: {# ?/ F
end
R* j. |5 C0 ]5 j% M0 dto reproduce
7 L# }0 v* j& V7 [, [$ K0 f ask turtles [
+ K4 _9 Q0 s! w7 m1 @5 Q6 q) ~ if energy > 50 [
# A( K, O1 o- z0 \) A, h3 o* C' A set energy energy - 509 U7 E; }! r7 X7 U N
hatch 1 [ set energy 50 ]' w3 D. `" |+ B6 Y7 K
]
# b9 e' T& v5 [( p( J; F6 f* f! [; Y ]
# d8 S+ m7 k8 g: y) H+ D8 tend% s% [ ]! E5 @2 `) V: T
to check-death
3 ^0 y" R! o$ q ask turtles [ w9 j6 e- P9 I5 n' j1 N
if energy <= 0 [ die ]
* E; B/ ]: R4 s- X! _5 w: k+ N0 t ]: V( `! P" A, M7 i0 v! M8 q, ?5 b
end
& M% e, ]$ P" w6 ]to regrow-grass& x1 N* }+ \$ D2 p% e
ask patches [( w" n' J4 g: d, F: r6 |
if random 100 < 3 [ set pcolor green ]
3 L( C3 d7 n/ B/ I ]+ g, @# o+ s/ h" a+ G! Q
end: W& Z3 z4 \. `: f' h' K" R' j
to do-plots9 _8 h8 X3 h6 I' a& s, E% @: I
set-current-plot "Totals"
+ o5 R' B: a/ \# C) } set-current-plot-pen "turtles"% ~* c% x* M. I/ D" ?4 c2 }) L D
plot count turtles
; o2 d; z3 F: h/ X: e set-current-plot-pen "grass"
% i! j8 [( Y$ w8 @ plot count patches with [pcolor = green]
4 q2 c; O0 N; D! z: jend$ T S6 {' D7 r2 d$ U
可是运行时提示no such plot: "Totals") T" Q2 ^: Z7 e# S. N( E) T
error while observer running SET-CURRENT-PLOT
8 i5 ^* f) O& n& V2 R* Q$ G1 o. b7 P called by procedure DO-PLOTS2 |* b' r) H/ T! z. I! M/ x
called by procedure SETUP
/ G8 |/ ~, Z9 f3 O9 h: b called by 按钮 'setup'
: L- B0 [& b8 m求大神解答啊 |