我编的程序如下turtles-own [energy]9 g: z' c7 V- M4 k# P
to setup
2 F2 q* | B0 j- U6 t; z clear-all/ b, N* i9 S6 u0 v. h1 Q; }8 V g& n5 U* O
setup-patches
0 m) |+ w, ?- a1 i [$ ` create-turtles 100
$ S7 F. Y6 n4 d6 B/ q1 t do-plots
) @8 J$ N! m% M# [1 I! t6 P% ?# F% L ask turtles [ setxy random-xcor random-ycor ]* _& N/ A) ?5 k% U
end
- y/ ~5 |- b2 J" c+ d& ^to go" h' I# z- ~# d7 \2 W _
move-turtles
& c5 R& {1 e" l5 ` eat-grass
1 U! T/ z2 X4 `% h7 ]: L reproduce& o2 D I5 W E* k% P* W8 H
check-death( l+ q+ X6 N1 V, S
regrow-grass
4 z! V5 x( m1 Y! {2 J do-plots
* r8 t' q7 c5 i" B+ x( ~end
y$ w' B. j0 K& a" W* fto move-turtles; a& A, D7 o) |5 I: W0 G
ask turtles [
4 E0 T8 X3 t y; d right random 360
5 V6 F2 G9 K* p: M. u1 p forward 1
& m) D7 j# Z1 `3 P set energy energy - 1$ r1 @7 E" q6 g' A6 K
]
- w$ @. c6 h* g. dend
% S; ~* C+ H `* M5 |8 ^to setup-patches
! ]4 Y0 \# C% O, h1 B& ^7 _ ask patches [ set pcolor green ]
/ K( `5 T1 l4 @# B7 v- `% Eend
" { Y# X! ]% _9 |1 |2 ^to setup-turtles* V& Y% W) t7 F
create-turtles 100
8 N' p M; V* S ask turtles [ setxy random-xcor random-ycor ]6 ^4 m8 U( q' d0 A
end
2 y% h* W k. Nto eat-grass
% p& a" v7 ?+ m# K" i/ Q ask turtles [
- K! g1 c$ b0 C4 J; n9 b4 i if pcolor = green [
) @7 m2 q3 z' O& W& L* [ set pcolor black
+ h& D8 n5 R2 ~6 F4 e set energy (energy + 10)2 q* K% ]' j+ L7 Y
]
- F, a6 w; E+ `/ b- V ifelse show-energy?- ]; x, ^+ w7 v& W2 @6 b
[ set label energy ]
3 `+ t8 \) Z: t [ set label "" ]
" T( F$ D8 t+ b& q ]
3 G: }9 }+ e7 |2 f# L7 mend% D% C" k( u7 }. t$ ?
to reproduce
7 z# j8 A; Q1 f7 M# t9 h ask turtles [6 L/ M: v0 O6 W0 \
if energy > 50 [* D! h" N% w: o3 T' J9 p
set energy energy - 50) H2 L O8 B1 f3 I0 d
hatch 1 [ set energy 50 ] V. T" e: H C0 A# A- N9 q
]- ~. T& F( m4 ?# [: `5 N5 Y
]( S$ A: f* \1 i+ \( e6 U2 z
end" h! K% @, ~5 k) \% E
to check-death) T/ E, c- E$ `8 Z B, g
ask turtles [1 K+ @3 t/ u; p1 c8 ~+ N
if energy <= 0 [ die ]" U/ x. B. G7 x0 B' j: I* \
]
1 ?# R8 j5 {- \$ Kend. K; ]! S. b+ [& s
to regrow-grass
X! l, x8 h4 f2 r* z& Q ask patches [# w/ x/ J. d2 v( |
if random 100 < 3 [ set pcolor green ]3 {7 ~6 s4 c/ B# m7 e
]" W$ ?- m" ?! b# W% B& [& W
end
% i% A3 X7 ^7 n' o: |" m& B2 f7 A" S3 Sto do-plots8 ?4 f+ J# ?! ]
set-current-plot "Totals"
# L1 `9 a* j# l. X! w1 K5 [ set-current-plot-pen "turtles"4 ~: ^8 ~/ I9 _1 w5 M; t
plot count turtles, a; g% V$ M2 C$ G$ T3 T) j! |
set-current-plot-pen "grass"9 }* t: y7 e. X8 Y/ O3 m
plot count patches with [pcolor = green]
& ^! w" c ~: F5 r- }% Cend
0 ?' N& J/ h% J可是运行时提示no such plot: "Totals"* ^: ~) B( D1 S
error while observer running SET-CURRENT-PLOT
+ Q' X# L V% F. e# d2 c$ D called by procedure DO-PLOTS
1 c# c* ^ q/ Z, Q- ?$ x) q called by procedure SETUP
- f" S# _3 v: l2 { called by 按钮 'setup'
0 r' L; H+ Q8 Y; x求大神解答啊 |