我编的程序如下turtles-own [energy]
* P# T) [/ x6 X; [! c, o- r" L' Eto setup+ s! Z |' T, `. s- W% @( H
clear-all! m; s5 W: ]8 U; g x q: ^5 r' x
setup-patches9 i6 b- y6 C; U8 ]3 \5 Q9 m7 `
create-turtles 100
& K2 O5 Q, B1 K2 y' @ do-plots: E ~* p: ]; k+ K
ask turtles [ setxy random-xcor random-ycor ]
& G4 i4 B7 a! K: n% H Tend# ^6 u" E8 `* ?) b+ ^
to go
( R+ z8 ]# f. [. ?( i/ @6 X move-turtles
- x$ F5 F: S3 ]2 N( H% E( l( B eat-grass7 _5 O8 f5 R. i% K, M A! c0 V
reproduce
# W( k" m* r% B, y" s5 p check-death& H$ C6 y4 y' F1 o' _* Y1 N
regrow-grass
1 j% V% H) m0 g+ A- W: K do-plots
! }% h/ v/ Q5 M; x6 Uend
- q3 ?" _5 x @5 [( W: ~7 gto move-turtles
- [' C- m$ E6 L5 A3 x8 W+ ?! [ ask turtles [
& z' Q' n2 @/ _5 W right random 360
, Z& Z8 j! p' [4 E. J forward 1
E6 p. t) d$ D0 F a" M/ U, V1 T& G set energy energy - 1
1 @9 ]" }, n5 y5 [2 M, i ]
: T9 `; a3 G) _6 ]3 } j; Lend6 X$ H. F! j: @* b. K* q
to setup-patches
/ {+ L8 q8 c: D1 _: S9 \: b- i3 ]* f ask patches [ set pcolor green ]
: ?+ O* {4 W( v: eend
% v+ N( O. N6 A. h$ m% xto setup-turtles4 {& `, l0 T' H* G
create-turtles 100) o6 E) q7 f- h9 D9 q8 K
ask turtles [ setxy random-xcor random-ycor ]
7 [, C/ [5 N' Z) K$ pend9 f! o8 J' s; d$ u" f3 F
to eat-grass
9 S1 z4 V. \) L, K ask turtles [
( V8 s& |& D/ J9 U6 [ C if pcolor = green [! ~, o* W( a4 ^- G' y/ r" E, `, y
set pcolor black
6 N- @2 s$ g) E: X set energy (energy + 10)
2 L3 h: O/ W9 D& b* S" f ]
0 Y9 W8 l1 Y+ d5 v5 ` ifelse show-energy?: Z2 j4 u% ~6 W8 S% |* x
[ set label energy ] J! l1 B ~2 w! r3 g- U! b& }! w
[ set label "" ]+ @9 m& d/ u' J; S
]
' R1 }/ G o/ o2 G* bend& r2 i! W& u- q! i7 n( o6 C% t
to reproduce8 N% M$ U7 X+ ~! Z
ask turtles [2 e/ n& m2 v1 u3 n$ W, f: R: A
if energy > 50 [7 f! X0 G$ B9 x- ~& k8 v0 j% A! m
set energy energy - 50( C/ y8 s0 N& N
hatch 1 [ set energy 50 ]$ b4 V. e1 l' k; S' T2 X9 _
]) u/ v3 O* d' s3 U- t* Q
]
, c/ R5 z9 l7 n7 h! cend7 q) E. ?( j5 G
to check-death' k+ p2 `8 |' O" d+ D4 G: \& b
ask turtles [! I8 M' V% J+ |: s
if energy <= 0 [ die ]2 J+ M) r! K" S1 W
]
% b& g/ W, E) B8 ~2 q+ E& Send* g4 Z* {' @7 j4 E8 G
to regrow-grass0 {! }. _( m1 ~
ask patches [
- t& Z; \2 y- c3 G! Y9 Q% G1 \; @4 ~0 E; q if random 100 < 3 [ set pcolor green ]& f# ?4 t K6 x' z ]+ [
]
% D. x3 Y- C, `! Tend
0 S0 \. W# h8 o' N$ }3 k+ yto do-plots
' o. v+ o, A, l" X& } set-current-plot "Totals"
7 K; C4 m7 @$ `" t8 E9 Y: ` set-current-plot-pen "turtles"3 t; y) ]- t) t' w! e
plot count turtles
" w$ ?5 ~/ i6 S# o) v P, h set-current-plot-pen "grass"' ^$ Q' `* U0 _4 D% r& I
plot count patches with [pcolor = green]. g5 ~5 q0 g% Y5 D, M
end) N( A! F m7 E9 S9 O
可是运行时提示no such plot: "Totals"
0 E6 l7 Z( ^& T+ zerror while observer running SET-CURRENT-PLOT+ X+ N7 M" m. {# p! m8 _
called by procedure DO-PLOTS1 O/ b5 h* z4 r/ e
called by procedure SETUP
: U; j* C# r+ P' B5 t3 i called by 按钮 'setup'( O8 n% v+ G/ t, A' e1 [5 Y
求大神解答啊 |