我编的程序如下turtles-own [energy]
7 u$ A; O) u8 P; {/ Lto setup
2 _ [- b6 Y: B& F( p- V clear-all" v: y; @3 R) S1 b
setup-patches
0 g1 {, }0 A) f. F8 Z/ z create-turtles 100
8 H% F" K9 N7 y/ b) F% a" H7 N8 q do-plots3 z- B; I2 n" W Y# X
ask turtles [ setxy random-xcor random-ycor ]5 E7 l/ _; j- @% }0 j( P
end
2 }$ k J! t( v& G5 K4 C. M Oto go
3 Q- g9 I! ^( y$ p2 N4 f& g9 y+ G move-turtles& u1 b- n: X0 {
eat-grass: U' b- |5 s4 a9 N- e {& g6 d
reproduce, P) F* j1 z# Y
check-death
7 C" [9 _- w7 k( l- C% l regrow-grass6 ?. z$ d# p% S- u. ?
do-plots0 F! n8 e3 ^8 q3 |- d2 i% |
end$ k, f0 U# ^- F$ i
to move-turtles
; K& B8 G. ]" V$ c9 n6 a% |+ {! t ask turtles [
( Z4 F; f0 |$ {6 J+ h0 O! U right random 3603 R# o0 p/ J) ~
forward 15 _, e c2 B! w; Y
set energy energy - 10 U9 U. ~2 R& `& L3 I. M
]. e3 `" o I# V/ D& E
end# I) U/ ^" U. s! F6 T6 D9 l6 g8 X& R6 v
to setup-patches! ^) |2 B" _; P8 V, S
ask patches [ set pcolor green ]
. F# m) z M/ ]end2 I$ l3 f g. v3 O6 R2 [# J
to setup-turtles
D' u& L8 m8 {0 ~8 m# @ create-turtles 100- w$ m N2 R; c+ H- C
ask turtles [ setxy random-xcor random-ycor ]
' c) A: z1 G; f* H2 aend9 F$ E$ n" Z& K! H$ s% R
to eat-grass
. k+ t; M* o) r/ ~+ K8 D v ask turtles [- N) p9 {& O, p R
if pcolor = green [
; |6 y3 l: c& J- [! ] set pcolor black! C# Y5 G: k# h8 o
set energy (energy + 10)/ H2 X. C0 V# _% z6 G* _
]
+ F$ T4 s: @* M ifelse show-energy?
6 Y6 a( T; O- l+ T" ^ [ set label energy ]
- x! T# P1 m6 d; P/ {& q$ Q* u5 A% Y [ set label "" ]
; l; |2 n& P/ I. u+ y ]/ A5 k; [2 s k6 ~
end
$ x, N5 | Z6 Z- u. O5 G) T" Mto reproduce
0 e4 V; r% W* c; T3 f @ ask turtles [) ^/ H" }: V% N3 Z1 F6 c
if energy > 50 [
! P8 m6 S$ G' s% w$ Y, _ set energy energy - 50' M5 G) r( L( ?0 j
hatch 1 [ set energy 50 ]
C2 K T9 ~$ \& }6 X ]
8 I% j4 S b H. @% b3 V% y; } ]
" i7 E( S# d2 I( ?( S" T ~, ]: lend [1 A5 W# ]+ t/ H3 L5 I) y
to check-death6 j* Y; a# t% L( A& X3 Y, S
ask turtles [1 F/ G% w6 ~2 ]4 i
if energy <= 0 [ die ]
* L' b+ n' A4 \ ]7 e, l1 e/ z1 M$ A; J ]5 T
end. w5 e- W% s2 A4 h
to regrow-grass z7 p, g- V, u+ \- C
ask patches [7 [- K# o" i/ Z+ \6 b* g
if random 100 < 3 [ set pcolor green ]2 s& L" L# ?/ n. Y) D3 m5 e+ L
]
) J5 l) m( {1 Vend
- m/ E$ q# ?% P3 Z" ~% z" jto do-plots
% f# z X5 l- y b K% D. L set-current-plot "Totals": W: v( j$ t# E9 `7 R" h
set-current-plot-pen "turtles"
0 A1 d; e; L7 E. T- V plot count turtles
6 w7 H5 R1 o, O( y! E set-current-plot-pen "grass"* v% T9 U! T% Z8 g) i
plot count patches with [pcolor = green]
) k+ @7 g* z) I& a5 R! send. U% z# x( {: X9 Q6 J- o) \: n
可是运行时提示no such plot: "Totals"
) o. I+ ]/ h+ H: U6 j" @error while observer running SET-CURRENT-PLOT4 ?2 w$ s/ g3 R
called by procedure DO-PLOTS+ d2 M9 f) z1 ~5 J; r9 n# o8 l
called by procedure SETUP1 g: H5 i% E; v' G- k
called by 按钮 'setup'
. l3 Z, ~# X* B. O t6 \求大神解答啊 |