我编的程序如下turtles-own [energy]( S& z# U8 k( r
to setup
% O) o$ ?- @+ v* l4 g6 r' h clear-all
: D) D+ v B. K6 |7 ]4 ?+ p3 \ setup-patches
+ S9 E- ~) y' A$ v3 _ create-turtles 100
, P! M8 Q6 Y9 W$ t5 z" ^/ q do-plots5 @* h+ s& v, X3 |
ask turtles [ setxy random-xcor random-ycor ]
' Z$ \! E: r6 W( g& Iend
$ G; V, ?0 P8 T* Y; |$ qto go/ K: Z) ^! J) }5 ?" F& ]1 F, Q1 S4 t4 v
move-turtles* h6 i; @8 H$ |; F- }; U
eat-grass8 M2 S, l; m, ^' n+ u
reproduce
, x& o# Z' y0 _% U; k& ] check-death
( l, ~9 z( K8 A$ R( W regrow-grass M0 _& c4 [6 V
do-plots
* k& W6 |7 _5 u1 @0 ]( i% [end6 I" }8 b l+ J K% U& x, B/ D% E& B
to move-turtles
: s0 s: E$ V: Z1 R2 c' ~$ L ask turtles [
9 W4 u2 x4 ?# W, v right random 360$ r! R. G+ x$ J0 a! v
forward 1
/ D- B# E2 s; C( Q set energy energy - 1 Z. a4 V4 S3 Q# O( d8 ~5 h
]2 S1 D$ f7 M9 l( \8 b3 J$ V
end
1 r2 B4 c: u! ^7 _5 |8 C9 M4 T- |to setup-patches
# g! b; p- ~# h- E/ H ask patches [ set pcolor green ]
7 b' p( B8 T& L5 c- Wend/ B9 [7 {; e7 l
to setup-turtles
& P2 i8 d! J% J$ m create-turtles 100& o/ I( w2 k5 o8 ]$ Z
ask turtles [ setxy random-xcor random-ycor ]
# K4 e( c. N4 T8 z- eend3 H0 V1 l5 D1 \' L
to eat-grass
. _8 p2 j3 [' X: @8 ~ ask turtles [3 `! W1 j5 H) F( ]" {8 U- Z
if pcolor = green [- |9 G. r' g! ~0 q$ [# k' A
set pcolor black2 N& v* w+ G" G% R: L9 ^+ L
set energy (energy + 10)
. H! ]; z1 ]( B! b/ ~ ]
5 Q" X5 w4 _# e ifelse show-energy?
' U" |, H& {6 ? O4 ` [ set label energy ]( d$ P4 [7 _* J7 J6 W8 p# ~! I
[ set label "" ]5 t* h4 q1 L$ o/ Z# Y
]
! ?2 z4 y! ^# A% aend
! `" ^) [/ ^: X7 z' sto reproduce& f, r4 k5 V3 ]2 j! ?$ n3 e* Q
ask turtles [
/ b/ v7 D8 K: z3 D, r* k" c% h if energy > 50 [
8 V! t; B2 [3 a1 W. H, h0 ? set energy energy - 50
2 \: ~! k, n- P3 H0 ^2 S% K hatch 1 [ set energy 50 ]
" V0 I- J5 `' {: ?9 ~4 M# k$ {, E ]
0 A, G. E; F. h; X1 C/ Q ]
7 l- N3 N. f6 {; fend
$ k* i7 n; L7 B# a2 q3 b. {to check-death
- o" }4 w. i* F' h ~ ask turtles [
) b9 ]4 z; d8 p( y7 L if energy <= 0 [ die ]
) A* Z& s8 O2 s1 \ ]
: a- i# e0 @1 E3 Zend0 [9 c- ^5 j- v( F, f2 |5 U e
to regrow-grass+ ]3 Z+ C" }) T' k# K% Y" z
ask patches [: C) R& I- T: A5 [) {. D, L
if random 100 < 3 [ set pcolor green ]
6 k% l- C6 i+ N$ S+ D ]
4 A8 i. x! u8 n$ m( j- ?$ ]end
% T. x. J4 L$ pto do-plots! z. s- a9 {& V+ M
set-current-plot "Totals"' B0 ^7 \3 t# _9 t
set-current-plot-pen "turtles"
+ K& o% |5 }9 @- x* l# f& e) J plot count turtles2 }" O& C: T: v( y1 z' M, R$ b2 D
set-current-plot-pen "grass"% k0 O& G6 _$ ^6 V
plot count patches with [pcolor = green]
' U! E2 P" p# k4 F: ~* [5 \' w- tend
; `3 {* `) _, Y" L0 ]2 v可是运行时提示no such plot: "Totals"3 X) ?' v' q% {5 R. T4 Z4 q
error while observer running SET-CURRENT-PLOT
o4 f3 y/ q8 ]- K# B called by procedure DO-PLOTS+ t3 C @% I1 C
called by procedure SETUP6 c) ^9 I6 z s A
called by 按钮 'setup'
5 }. S- e6 m# [' D求大神解答啊 |