我编的程序如下turtles-own [energy]
6 `8 D% U) N% k) l7 i4 f: G0 \! }to setup) k& T# U0 U3 p$ H# ~) T8 D
clear-all9 a e" A' |4 L Y. p
setup-patches1 j9 i! a: L" ~7 T8 A6 A
create-turtles 100# ]; F6 p+ Q t$ a* n* m# j
do-plots
# S' `# c' D5 r8 n% `% W ask turtles [ setxy random-xcor random-ycor ]
) P! f. a u t& x2 Y+ c C7 u2 M0 Hend" [ L" i- a6 j3 B r, x7 n1 y# j
to go+ r+ V+ {6 B8 |& R
move-turtles
7 O# M8 z% q4 V$ h. \5 i- d eat-grass
1 e, ?4 H+ I2 I9 r" f* W8 i, N reproduce$ A' h' D" j+ G+ |! K- m
check-death
' c* |+ G) x% a& h z/ E regrow-grass
7 s4 P) ~) E; \ do-plots
+ E5 k! I A$ Z _8 Bend
5 W- V D% D/ I# T( |% Q: Ato move-turtles
* o0 z9 i, e% t4 | ask turtles [
7 [2 x0 ` X0 E0 Z1 f% p' a right random 360+ O, _* f: D+ ?
forward 1
K8 c% a/ D( l D. I z1 ~% r* x9 ~# @+ i set energy energy - 1% F) W+ v( m. R- C9 I ?
]
& |* o& m3 d7 v4 ^* H- u! v( Tend" d* [0 p3 v; A; X, \
to setup-patches
* X1 X* B6 _, D& |, k ask patches [ set pcolor green ]
5 W* @( O7 e( d0 ^; qend( Q5 w. [ H% S, k0 N$ [& q: } F
to setup-turtles
9 |, W& n7 p! O# r. |, f4 U create-turtles 100# Q4 R, Z% x$ ^& j# s
ask turtles [ setxy random-xcor random-ycor ]
1 J( y1 `/ l- `4 P/ D, send
' {. k1 v9 h W0 |- l9 Pto eat-grass
, a) `# L3 n3 w+ g; A8 Y ask turtles [7 L& P5 K5 J! Y2 ^, `& C
if pcolor = green [1 y0 R, C$ }& L! A/ ` o
set pcolor black+ r8 P: a* h( f% D( b5 Y9 Y9 n% F
set energy (energy + 10)
: h! q7 m+ M3 y$ S! x" a7 V ]7 @* H4 b$ i" v
ifelse show-energy?, b* Y$ s, I8 P. f/ \
[ set label energy ]0 v( z% N; E9 D7 o5 d" f; t
[ set label "" ]
6 d0 z$ a, Y [9 a2 }9 t ]) F1 q: @+ [0 E7 \+ P' P
end* F! m% {; `3 H4 n
to reproduce
+ Q. `# E2 `% ^6 i4 ?: u, e6 g ask turtles [
% Y: S3 w. x8 o7 m% Q% K/ {5 C if energy > 50 [. `# A1 D/ _+ c, G
set energy energy - 50
7 ^. K8 |/ A d hatch 1 [ set energy 50 ]
' v% L" c k; e7 w ]
. X% r* Y8 C- u: Q ], v: s u8 `# Y8 W8 y
end$ x; |' ^, x$ P/ Z* K1 u; v9 ~
to check-death
8 o' v* c: h7 j2 h( K" y: V% ] ask turtles [; T2 r- o7 v* x7 y
if energy <= 0 [ die ]- i; M1 k2 K R3 l* }0 T
]! ~" U& C7 O2 a- Z
end
$ l; P# V3 {. J6 ^6 `% K- \to regrow-grass
! p5 G' W3 {; C) U9 U2 [: s! D+ i ask patches [
6 R3 c# b, E3 G- v) C; C! }' d if random 100 < 3 [ set pcolor green ]
/ ^' G6 R k( m ]; d% b( M8 t S9 O- @( J- q, f: p
end1 e/ W+ {9 ]4 `& l6 e8 _
to do-plots! R" [5 n1 O6 ?+ E0 {0 k
set-current-plot "Totals"
, U; v4 y/ V% ^7 T7 n9 G O set-current-plot-pen "turtles"
, t& H8 F9 X: l6 V& w; ~0 R plot count turtles
$ N5 L5 E5 t! t$ J set-current-plot-pen "grass"
# B. x4 |! O) @3 s& y0 {! o plot count patches with [pcolor = green]
1 Q, e" d7 I. v7 G' V3 vend
/ o, I7 ~* }% H可是运行时提示no such plot: "Totals"+ p' H# h5 `* ]
error while observer running SET-CURRENT-PLOT2 |( H& l. J8 @( X% v
called by procedure DO-PLOTS
, H F6 q" _# }" _ called by procedure SETUP4 B" z6 r( F$ d
called by 按钮 'setup'
; @7 u/ s2 l$ @求大神解答啊 |