我编的程序如下turtles-own [energy], b/ t6 P0 n M( o- E( l8 y' H- r
to setup
% Y# h5 M1 |* j3 h+ I clear-all. c5 A! T9 @: x- \$ E. Q* c
setup-patches
, V" o4 Y/ J4 @1 z create-turtles 100
& U: o. U! J# f- ^6 o3 [ do-plots5 P+ Z6 @3 S% b8 |3 j4 M! H
ask turtles [ setxy random-xcor random-ycor ]
* J" f5 c2 w: yend
5 A+ x9 B' s1 A+ N3 `to go) ~" {2 ^& J, B
move-turtles
+ s8 Y, i; J. G2 u eat-grass
6 b. t* x, x4 I; w$ l! w+ ^: ` reproduce3 ?8 E% M: K- c
check-death9 p7 n% i. r7 _* K* H7 f
regrow-grass
" [, X1 ?& K2 ], B, P; j" Q) [( c do-plots( o: J; s& e. H. s
end
/ ?, A% b+ W' h$ B) Qto move-turtles
" n3 ^4 {# y1 [! ~. W ask turtles [
2 b4 L4 J7 l' {+ I% E& p right random 360
9 V; K3 x# W! s. o! j4 W% W forward 1
9 W9 H( @, {& g) l* N7 K* R0 \1 y set energy energy - 19 k7 S' Y. ^* J8 H/ M5 E; M, A
]
0 q# Q4 u7 ]' v) h9 E+ yend$ O: C: k8 Y5 L
to setup-patches
4 m2 f8 Q# g# B/ ~9 l! x ask patches [ set pcolor green ]
0 I- {6 X" x/ J: a/ y; |4 Bend6 k+ H! N0 e" @
to setup-turtles7 U, G- T4 F+ W' @9 g4 s! A X
create-turtles 100
8 O& c. [0 J& C& n ask turtles [ setxy random-xcor random-ycor ]
! a4 p5 ^. t+ X, A* ^' Tend
8 L1 l' j# l3 O ]7 y3 o0 @7 mto eat-grass
8 h; R p: o2 D. `5 q. O$ t; F- r2 \1 o ask turtles [
8 B# @9 j' `1 n6 R% q if pcolor = green [; q& N3 W' _ ~8 O$ \
set pcolor black
: \( [. Q% {, G4 o4 m( c+ u set energy (energy + 10)
. \* h7 ?9 E/ o8 T; a6 v ]
. b8 t) Y+ U7 ~; L2 V ifelse show-energy?
0 a$ G9 O, `2 Y7 A% ?6 @4 L [ set label energy ] x9 ]2 d' s/ V$ i: t
[ set label "" ]0 l; ?# C F& @; o- [# c
]
" [% ]9 \% w4 h/ \, d ?end
& u- h8 c4 Z6 j5 [to reproduce
' A% ^% j2 e* j0 S ask turtles [
8 [$ @1 x" d% s' B if energy > 50 [
6 S3 C2 E6 X8 {+ e2 k set energy energy - 50
# K0 O* H; P( B7 {1 M: D" ~' R hatch 1 [ set energy 50 ]
9 Q. W9 b0 q" v8 j6 O0 v' b ]
9 N' z F6 O% I* v* g) ? ]0 f' v: i, b7 B9 D) ?! c8 N& l
end; c* m( t6 c8 u% E3 Q. x& D: d, O
to check-death
3 ]6 y5 _" e6 p6 v$ G# B+ `7 d+ C/ \ ask turtles [
7 Q. y( J8 c( i e. O- ^ if energy <= 0 [ die ]
/ V1 C+ ~ S" ? ]
* h5 g: d) Q7 L0 X, \% X" ^2 @end
$ ~ i& L+ N& Q" |" N+ Nto regrow-grass G1 P8 [ _: H% u( a2 T2 h
ask patches [' ?/ b2 d( w7 ?7 D1 D
if random 100 < 3 [ set pcolor green ]! I, u1 ` _ {" a" y" _
]4 R: p; z1 W, P' {+ h5 s# Z% U; r
end
$ I% @7 y6 A- O( F2 E5 ~! X n( T& qto do-plots- \' w. V& d9 v1 t- q& {. z
set-current-plot "Totals"6 T' y( r- b* T. Z( o u
set-current-plot-pen "turtles"" N/ O0 ]+ ~5 a: U
plot count turtles# P, x* J/ J% a+ T+ ^1 w
set-current-plot-pen "grass"( d) q. H7 x4 k/ t- o q
plot count patches with [pcolor = green]! N+ Y( [- v% A
end: O# }5 X/ z" \ n. b
可是运行时提示no such plot: "Totals"
! ~: E9 K7 i( |error while observer running SET-CURRENT-PLOT
; _5 G" m) P) b5 d o5 R called by procedure DO-PLOTS
. ~5 d' c' X: U$ ~ called by procedure SETUP
9 J+ ^/ ] {& U2 L called by 按钮 'setup'
; V0 L( f) d% D7 i& p$ j求大神解答啊 |