我编的程序如下turtles-own [energy]* a8 G T y0 e5 U+ B0 `5 a
to setup4 r2 \4 o) I" I9 d9 `( t- m* C
clear-all: c' L9 c2 R8 a7 i5 {$ }+ {
setup-patches
$ h1 q8 h/ A3 K4 j, `: W create-turtles 100& a; T" B8 n0 D8 U" {
do-plots
1 M8 G: k- w) d" P& y3 Q9 @, `/ N ask turtles [ setxy random-xcor random-ycor ]
+ O4 q# f. \, Q9 n1 Iend
, k5 D# j/ j$ F/ f4 M! U) g- dto go9 n3 i' q G" u1 j' q5 x# V3 o
move-turtles* l6 x5 K) o! M; N
eat-grass g- g/ e! ^- X1 x: q* P/ {: N
reproduce
; w- |; h0 A. o" [0 T3 B check-death
+ S" m8 d3 U$ ~: m: M! C regrow-grass# p! E( d! z: n0 r- T' T, ~0 D# R
do-plots
9 ^& q9 x9 ^( X1 s. lend o! o, j8 T3 d; M& S1 e0 B
to move-turtles
" S. f0 A, y& i0 M8 I0 @/ L0 p ask turtles [! v( S) w) F" ~ b
right random 3601 w* {9 B+ }6 C' I7 s* J& l8 w. K
forward 14 T, g$ V! y$ ~3 R' k% P& C( D
set energy energy - 16 U6 k+ D+ L( t) X2 N
]
6 t+ p, Q7 O( B' L @end
7 W0 i9 @9 U$ n0 A( Zto setup-patches
# e% p7 d( B( l4 [+ N( K ask patches [ set pcolor green ]
: c( [, w( a( Y& G2 hend
[; M# T& l7 p' O/ f0 C6 lto setup-turtles
+ J- n. c u/ D m create-turtles 100
* \3 _/ F5 f) n# x& x7 _ ask turtles [ setxy random-xcor random-ycor ]9 F3 a# l/ W! E3 E( J9 n: m4 _2 \
end
$ F& t. C1 Y! i" _$ qto eat-grass t% ^5 D+ q4 i# h" P
ask turtles [7 N- T8 m# W3 I: v2 {8 j' {
if pcolor = green [
5 A U1 v2 E) \% F- M8 i5 W* V7 {6 l set pcolor black, R7 ?1 ?% t& [0 f: P8 d; y6 i4 e! p
set energy (energy + 10)4 b+ x- _2 S3 ?3 f- Q
]) P7 `1 q# B" R
ifelse show-energy?
* V/ D: L- c# l [ set label energy ]' h8 X7 k! ?2 Y$ d2 b2 l& g: |
[ set label "" ]" r8 \3 ~/ [; t' g4 W9 A2 X0 a
]; z; }2 E6 y4 R$ h* e
end" y9 ?( g4 y/ Y. S/ ~. i6 j2 d
to reproduce
, f5 w- E, r. H# s+ p: H2 ? ask turtles [
9 g4 C; Y4 R; N S% K L% ^ n" H! E if energy > 50 [
. `5 N; S1 T6 o5 Y set energy energy - 50: T0 Q) M1 [ Y1 m$ \# }1 u
hatch 1 [ set energy 50 ]) _4 g/ {" g+ Z- W9 G
]5 K- i" q8 G8 X* i" i% h- C
]( p# c7 J" C" k) h
end& q/ c- }* }, h
to check-death
- @8 U' H% F: z# ]6 ]6 r ask turtles [
, l& E3 q3 ~' ^3 u9 p/ Y8 L if energy <= 0 [ die ], [9 d/ H" g" z- @ ~, I5 ?
]
* Z n9 g2 y9 |end
4 q# E& h P' U7 \& ?% \* Lto regrow-grass1 E/ Z( D7 s& U1 M- L: d' g
ask patches [
W5 L. ]6 m% a9 z* j if random 100 < 3 [ set pcolor green ]) d. Q# e3 d# p( q7 H! C: P
]/ H& T8 V6 l$ u) a$ ` i6 ]
end. ]1 c9 p! S, `: |
to do-plots2 n( ^0 w- N; |9 c
set-current-plot "Totals"
$ F/ U' Q4 u; p, J- m set-current-plot-pen "turtles"- u6 Q- z+ D* A' S
plot count turtles
, L6 L" ]5 b' E8 r) F set-current-plot-pen "grass"' ^" o/ ]- i) e
plot count patches with [pcolor = green]5 G3 K6 r% ^. G
end
$ v4 H$ L. d- v5 Y; l% M可是运行时提示no such plot: "Totals", A+ O' [3 H$ K# O: i9 n
error while observer running SET-CURRENT-PLOT# l c% |0 N* n4 K6 v
called by procedure DO-PLOTS x$ s0 ^+ y7 i w
called by procedure SETUP5 l3 K: G8 z( {4 f7 Z. F) u
called by 按钮 'setup') |3 X% W# q2 I5 a5 e, s
求大神解答啊 |