我编的程序如下turtles-own [energy]
/ Y+ c! p: X: Xto setup A# \! m$ x+ s: Z: C( [
clear-all
; t @+ ~: W% q$ y& @ setup-patches' W; T0 T" {" ? M
create-turtles 100
i' r9 h+ d% f! I9 S5 s do-plots
2 o! G" m- F) Y( W8 x) ` ask turtles [ setxy random-xcor random-ycor ]9 X' V, ~+ n2 d+ Y* Y1 L
end
5 r4 ~$ d4 w! t! h# M$ b! z4 [. O' Gto go
% L) b! M) o( l1 W move-turtles
& }. t& M7 Q/ Y eat-grass
8 U$ p* P7 L" A reproduce
; |( e- { h7 w check-death
[8 l' X: k5 ?1 b regrow-grass1 K# ` @* V% J2 H" W! L+ m
do-plots
7 d/ J% f& v- V( send o" h$ o5 h1 r9 o5 S, r
to move-turtles
+ `$ K' Y- M. { ask turtles [9 o5 h5 w7 B$ _* [" I7 i$ b
right random 360
7 n8 v5 b |3 V3 t forward 1
8 `% m8 n; c( ~- G2 P set energy energy - 1 u' X+ L5 W. m* ]! m9 S
]4 M- b% l! L* U: S- v
end) k8 W4 L7 T, s8 \" y
to setup-patches1 T, h% y9 F' N& g4 ]
ask patches [ set pcolor green ]2 `8 w* D; ~. G* Q( x9 X# O4 [
end3 s1 y1 b7 S: ^$ s
to setup-turtles
0 h/ _4 N2 ]0 }% ]$ U create-turtles 100% r7 Y6 D+ k/ z! I( ~
ask turtles [ setxy random-xcor random-ycor ]
$ q- Z: U' o0 \0 V: g, fend. G0 U! R# Y& B. ^
to eat-grass
@, F8 X+ O7 N- e) X# q: H/ w7 M ask turtles [
4 T6 w3 D8 b1 Z# x if pcolor = green [
- F! y, h. D: }3 {: f set pcolor black, `. P) F8 v4 P
set energy (energy + 10)+ ]# I0 I. w ]& ^5 `6 M+ u1 U
]6 F& p! T8 W [. u2 u& l3 b; C
ifelse show-energy?
( V" y7 V. @; Q h! N% u [ set label energy ]0 v7 A# ]0 x+ A, J6 c" {2 j
[ set label "" ]: p+ K1 O) A6 ~6 k$ L( @) p; p
]
. W+ r9 Q% ]! I- u( Pend
+ o* X! u/ W- \to reproduce% i7 U# u* d4 D' s' a# p3 l
ask turtles [7 F% C2 U$ \ u% X$ P
if energy > 50 [
: ^7 f! D% d1 {1 P& v set energy energy - 50
" l7 z9 ~ S5 g$ l- b" q hatch 1 [ set energy 50 ]
) Y& U- _( |4 @, g5 N+ a: e1 U ]
! D [2 m& t) b ]5 m% @/ r- t) _8 i3 o5 I7 ?6 l
end
4 E6 x. H" [8 b) \to check-death
+ \5 e) H7 ]& P. o9 M, c2 w. H, ? ask turtles [" e9 H$ f* k' ^+ Y4 r
if energy <= 0 [ die ]' }" N7 p! P. u n" v$ B% V
]
* n# [3 @/ R9 Q1 C+ C0 ^end
$ M; ?- N ~8 t/ w: w, r: dto regrow-grass
* o7 z$ I: p2 A# |; S4 D4 @ ask patches [
: a" `. Y$ b8 l+ I7 J9 {% H9 L5 L if random 100 < 3 [ set pcolor green ] g; I! {1 K' A" W, V# t3 {
]8 A* N3 G& k& M T$ T
end5 T% z) ~5 A( N7 p
to do-plots2 _/ \9 i' x! {% Z
set-current-plot "Totals"
5 |" P5 A/ H1 u. h9 E set-current-plot-pen "turtles"- O- P' i) o. t' v
plot count turtles
7 e% d; M8 ?2 @, H8 S set-current-plot-pen "grass" }3 }1 P# D8 A- i
plot count patches with [pcolor = green]
# U+ j% ]4 r. t9 t( |end
0 [) z; g) W4 Y1 ~可是运行时提示no such plot: "Totals"
; P' C8 O2 I. Yerror while observer running SET-CURRENT-PLOT
1 K0 ]' E1 G6 W1 } called by procedure DO-PLOTS9 \7 I' b( a: ?% Q: O
called by procedure SETUP0 X6 d c( T0 Z. v( D
called by 按钮 'setup'
/ |* R" X) ]/ P ~4 l& a求大神解答啊 |