我编的程序如下turtles-own [energy]6 J* e& x5 y; [: [4 k
to setup
# p. V" ?* r5 K' s. v; M1 k clear-all- m# h- U( w# P9 g6 n! N
setup-patches. f! q7 I& D1 l% q' V/ n
create-turtles 100, F6 T$ M' l/ C- f
do-plots
4 }$ c6 E, E, \ ask turtles [ setxy random-xcor random-ycor ]# C5 Q# J0 O: I! T
end
0 v) d c: g4 tto go- _' B$ B; a h. b; T7 b7 T
move-turtles
5 L5 C0 H2 v: T( m$ J/ s eat-grass# K* N2 g; n! s8 Y' U' S3 F
reproduce. H& j3 [7 I, O, b
check-death
7 T/ i2 R6 i% }( w$ t regrow-grass
* w: V. {) U! W6 a8 Y4 D do-plots
3 g9 b( b& p% g* H! t* Nend# u3 t7 O9 J R
to move-turtles9 u) [# ?) K) x4 d; k
ask turtles [
# b5 a6 \3 m) a O right random 360% X* ?7 f- M* ^" j+ U0 W/ s
forward 1
0 S/ ^( M+ f4 g3 u4 G5 K set energy energy - 1
! `5 f0 e8 e: u2 l, ~: O ]+ B. c. B E, W
end* ]7 o' O: v8 m
to setup-patches+ E+ o, s9 s# x; N3 y4 K
ask patches [ set pcolor green ]
' G% r, C# C" b+ Vend6 c: a+ e% {% k8 U/ {8 G+ K1 {
to setup-turtles; D% T8 A1 t% F4 Y- a k5 E( `
create-turtles 100$ f+ z; u2 _4 i, X% h! B
ask turtles [ setxy random-xcor random-ycor ]5 f! A" d5 c0 X2 c) z/ a% B) m. V
end' z( K8 U1 C3 V$ }2 F( o8 o$ [. [
to eat-grass
, @8 b& n8 Q1 s& L* Y( c ask turtles [) N, ~ a! E+ q3 o, A/ Q
if pcolor = green [) F# n; \" Q0 O4 r: F, m
set pcolor black
. |% s- g7 }7 n set energy (energy + 10)
$ o0 F6 E/ O. ` ]8 a5 |; e- w5 Q! f* f2 k$ M
ifelse show-energy?$ P6 h* j# {( H$ H7 q% D6 z' J8 Y1 B2 W% g
[ set label energy ]% z- m* D+ R' S: G' Q
[ set label "" ]
1 m0 _+ F9 S8 d7 P/ c ]
8 u6 F/ M+ h- q5 v- r0 v1 ?end
4 ?! Z1 J& _- I9 J: w& \" j% j4 tto reproduce
( m' _; }& U, P: l: O$ ^' { ask turtles [! g3 K, }8 c) O6 X/ x/ |
if energy > 50 [. t9 G: q* O% R9 ?3 X: @, v/ Z8 {0 w
set energy energy - 50
9 U" Q8 J, n3 e7 y& a, u8 z! {1 _0 c' ? hatch 1 [ set energy 50 ]
6 k) v7 |5 I+ d* s) n ]( v; A3 P9 f7 W" W4 I9 Q e5 i
]
8 d: X1 f. @; [end( ~% ?- U ?6 A' [% [9 V
to check-death
, S5 R3 }5 x9 t ask turtles [9 `% s0 Z; q( ]4 a+ A1 o. w; n
if energy <= 0 [ die ]9 f3 r: y/ z+ C% @
]& d3 F! |$ Y( P F
end
3 k& N- e- O+ Q. X' K5 jto regrow-grass
1 z8 j6 _9 k, r2 u: F( j ask patches [
. Z2 b q3 W/ b: j" K9 e if random 100 < 3 [ set pcolor green ]
4 k8 O( H* x2 z3 E ]
, ]0 t3 } k* Y# l* Q5 tend/ Q* _7 q) K: d& h' h8 `% d4 g# b
to do-plots
( |0 a' V% ~* @ Z set-current-plot "Totals"
* B/ v' @ H/ y9 g! M% y6 q set-current-plot-pen "turtles"
6 Y( X$ Z1 _9 U$ a; K plot count turtles' r2 `% a1 u' N8 z3 i* V
set-current-plot-pen "grass"
4 m3 }) ^& @; R2 Q" S9 Q. o( b) z plot count patches with [pcolor = green]" [3 X3 R( n& ~" i! _2 g, [/ q2 b$ ~
end
2 p# c( D9 z0 | }可是运行时提示no such plot: "Totals"
3 a5 o a$ H% I- K. serror while observer running SET-CURRENT-PLOT3 A m% D- _' M
called by procedure DO-PLOTS# P; {. i. f' s! @* k
called by procedure SETUP
- F$ p& m2 v3 }/ D- c* f' I) X) o called by 按钮 'setup'
. D0 p& N8 R$ F3 e3 S求大神解答啊 |