我编的程序如下turtles-own [energy]0 x$ \+ n5 t. L- D& u
to setup
, s8 z+ m+ ?% y clear-all
4 P2 l( {5 z6 S! i$ u; ^ c setup-patches
: F7 @' z+ m1 y/ ]! _ create-turtles 1009 j8 H D7 E/ d+ ?$ t" I2 y
do-plots
4 s* b6 k0 D6 q9 d) w ask turtles [ setxy random-xcor random-ycor ]
2 w5 O: ?# v! ~5 j- h3 wend
7 z/ V* d/ g4 p. @to go
9 M: e3 d7 F+ R2 f `; N. K move-turtles
8 t: @! i5 E1 s9 D8 k eat-grass
. r7 M9 n0 Y- G4 N reproduce+ l- @) N+ ^* e3 `. e! X m0 p; @
check-death
, a4 L# k- k& N7 D" ^1 n regrow-grass G1 S7 X3 p9 V& [
do-plots
1 Z3 t; ~# S; jend
' N- ?7 Z1 U% u7 Pto move-turtles, O7 t! E6 x. n8 c
ask turtles [
2 W1 t* K7 V+ [; p2 ? right random 360- i; O- z) |5 Z' n; c u+ \, w
forward 1
; u- \7 b9 b) x8 [ set energy energy - 13 e9 P3 M! m9 g0 G, c- L
]1 s2 c3 n7 d/ x
end2 h3 G( o" G5 ^- X; {- c: f
to setup-patches% K1 N6 ^8 s; V+ U, G) [4 S9 G
ask patches [ set pcolor green ]
& H- |+ ]. k `* e+ I4 uend9 V$ f& s& A& a' F$ r5 s
to setup-turtles
& b/ m- B5 T& Y( {: b [ create-turtles 100
2 `! Z6 [2 M; a1 G ask turtles [ setxy random-xcor random-ycor ]
2 @" P! I0 ^3 x4 Vend% A# m8 T6 E1 O3 E. v
to eat-grass6 ]5 N E9 A; Z. g1 N; G
ask turtles [1 i% T3 I% C+ {1 P% d; T* F
if pcolor = green [
- |# R4 E( R& `# t! L set pcolor black( f" s7 O3 F( p# @0 O5 m1 o7 R
set energy (energy + 10)2 t/ i( G; M0 d5 z2 `
]
0 j# e' u, B5 h1 o: ] U ifelse show-energy?! A2 T0 u1 u; W/ P
[ set label energy ]
) i' ^" ?; i0 x! N; E- {; m [ set label "" ]
; u2 }1 o) @1 ]+ v ]- f9 F0 L& z+ k7 l' I8 a
end& O4 L+ q0 ?" u* k, ]& h* M9 Y. F& J
to reproduce
* _7 ?/ B; R5 b. l& v, X4 K ask turtles [ {. D" l; T# ?: V5 W. q5 f ~
if energy > 50 [
# O) L- r( y0 \, Y, N& J: c* F" ` set energy energy - 50
$ }6 R& A) L d hatch 1 [ set energy 50 ]
) u7 S: o" E; M/ F+ `9 b. a ]% _5 t) ^, y$ V$ A# b) s
]9 b; ~- d. K+ L1 `4 m0 z+ }
end0 t" V7 U) t9 r5 @
to check-death
5 U9 V& J# N9 K& } ask turtles [' p3 i8 q' L' g# N7 L8 J5 a
if energy <= 0 [ die ]
9 A E: i# e: I& j( v( Z ]
8 V% e9 B% }3 h5 Q# y5 ]4 |end
7 h2 K! Z! r1 p, S) H0 g" lto regrow-grass
7 B+ V- \7 s* [7 }0 E* | ask patches [( \# n% R& B7 j; L6 Q
if random 100 < 3 [ set pcolor green ]) { Y6 |# t- V4 Q
]
l' `3 h; G5 [end
3 t6 b' k8 E5 ~! h3 x8 R) p6 Tto do-plots; y6 @. |: n5 b X4 }- f
set-current-plot "Totals"& B; C0 }/ P2 n% R& A
set-current-plot-pen "turtles"; `3 j. Y6 v: ~3 [8 i0 A
plot count turtles3 r W3 M2 m5 n W6 w0 F% y6 E
set-current-plot-pen "grass"( c+ }" @* E# z/ X
plot count patches with [pcolor = green] k8 k5 f3 U7 }' E, r
end* Q' @% l( A( o) G2 I2 _% ?
可是运行时提示no such plot: "Totals" v. O7 e! C) [8 y# _0 c! l
error while observer running SET-CURRENT-PLOT
( Z* ], H7 ^2 k t called by procedure DO-PLOTS
; Q- z, o1 [5 d3 _3 N% \- L called by procedure SETUP
7 ]5 `3 j- m- N. l5 S called by 按钮 'setup'3 ]4 w. L; i' s1 e P6 z
求大神解答啊 |