我编的程序如下turtles-own [energy]1 M. m. K* g( |5 W! j
to setup
/ H( f; Z9 S9 q/ r9 s% G clear-all5 V, d u1 J& @5 r- R; K+ @
setup-patches
# O1 h5 u1 V# d2 t* }7 {6 E7 W create-turtles 100
& f. {: s5 y: l' G do-plots
8 J6 @; @: F- C ask turtles [ setxy random-xcor random-ycor ]3 q7 `& d; p" m% f& p
end
: E7 K, r% F, Z) Qto go+ b1 z5 G$ z/ u- [: T. G& J
move-turtles
v: Y3 ~6 s1 @0 s+ D; B3 T A eat-grass
( }$ y; l9 T L% o reproduce4 d$ D- n2 u. U$ t9 j! s- n
check-death- Z5 K; S# I! }) u6 v
regrow-grass
+ s" l8 W: l) j do-plots* d) C7 `0 W9 m+ A
end- {. ^$ A9 Z! @: ^7 ?/ A
to move-turtles4 W( P5 ^2 O) u- }8 g
ask turtles [
" _3 M, `, X$ B9 L; [) A+ m right random 360
# S1 S g5 Z* Z/ e9 g forward 1
e% [$ U+ L1 K& Z' i# J* J set energy energy - 1
8 X1 k. s1 U" ~ ]
1 B4 G% x& i [- _end
& c: F: R5 }. |8 Vto setup-patches5 `7 t6 [# N8 G
ask patches [ set pcolor green ]
/ T( t' {- s; }. |4 V" Kend
. r6 ^, a: e0 Z- y* D9 }6 o: Xto setup-turtles
( U6 D: Z% _8 H: {- [" d) C! K create-turtles 100* V% T, N. I- U- S9 J
ask turtles [ setxy random-xcor random-ycor ]0 J, w2 S% ^" ]) s
end
5 T* ]/ N- k$ A) s/ A* ^! U0 M4 Xto eat-grass
4 i- m% @1 x8 p% b# ` ask turtles [
% a% _2 p. |3 f& l if pcolor = green [
1 e- e- T5 ]9 o! H set pcolor black
3 J# |) x! q% e8 c# ?9 w set energy (energy + 10)) I7 ^% `, I% C8 t, S9 ~0 J
]! P# `' P. n. f; Y8 M6 v3 I
ifelse show-energy?# l- ^! T# F6 r, L' C
[ set label energy ]
4 H* }1 s$ f$ `5 w9 G: k [ set label "" ]) k- U* _, }( ?% O. K& w" M
]
# w/ c+ k8 j2 P+ ?, @6 W" vend
/ @' T* I- f2 Q7 U; U. G( wto reproduce s2 ^; k6 Q- E- c, W; o
ask turtles [0 y' n1 U: F% e# G" O" v9 R
if energy > 50 [9 L+ I: V7 p# C
set energy energy - 502 _1 d1 W- N$ @9 t
hatch 1 [ set energy 50 ]
. `$ k8 M' ^# o# o- f, Q/ X! f ], r3 v' r+ j# O
]# i# g P. W" t
end
$ K+ _" @. `# X1 d' ~9 Vto check-death
; u% _' j5 X( C/ R) C ask turtles [% |; c; I5 ?( i& n9 m: O/ N
if energy <= 0 [ die ]+ s5 @$ {4 R N q3 J% |( {3 t
]* {! L# g$ Y% B' b5 L5 q% d4 r4 ~. [, U! u M
end
; f: O1 S* `: T4 m( p" V. q: X- X ^to regrow-grass3 T# E3 `2 a8 P, u: w2 }
ask patches [) j2 G# }' B/ B6 E: e) [
if random 100 < 3 [ set pcolor green ]8 f/ v( a% z/ k1 S7 ~' t ]
]
' |0 _3 ^3 K' Q6 y! P5 tend& G2 Q0 `4 D6 Q( D. i; U5 G" R; i
to do-plots1 \9 X+ T4 t j" k! \( W
set-current-plot "Totals"7 B7 [- j2 h) U3 f% n
set-current-plot-pen "turtles"
5 M6 i# Q! V; `+ p- s: {# ]5 R& o# ~- h plot count turtles+ V, \: V+ E$ {6 v: L" J6 G
set-current-plot-pen "grass"
% g5 k9 Z2 {" _8 M5 c plot count patches with [pcolor = green]
0 J8 @: \! l7 I7 D$ B% B8 gend Q3 b0 J/ |, x% I) G4 m$ P
可是运行时提示no such plot: "Totals"( s. _5 m7 ~7 e
error while observer running SET-CURRENT-PLOT
9 w& H% ^& C: K! E; O called by procedure DO-PLOTS) M0 U$ m3 V8 T
called by procedure SETUP
: F( P! B4 A4 Z, p called by 按钮 'setup'
, o4 i$ m) z1 w. ~求大神解答啊 |