我编的程序如下turtles-own [energy]) B0 w5 C' k% `% H
to setup2 h( y5 |) y7 N5 h# G6 V: @6 t( u
clear-all
7 l3 a# k9 A$ w$ ^ setup-patches
9 {9 K5 Q0 k1 l1 B create-turtles 100
" ~- x: P5 y& w( n+ D, G" L/ { do-plots3 P& k& v6 G& ~: A
ask turtles [ setxy random-xcor random-ycor ]# b! O" k7 B) y- b5 Z S h
end
$ _6 g4 r$ A- \: _, h9 O4 wto go; z5 \. W8 m% ?$ H) O( g* _
move-turtles, v$ A X4 C+ G# m9 h
eat-grass
0 l! s l) D1 n) e3 `) P( ^ reproduce9 ^" } R& e" [4 L. \: U
check-death F* e: M' ]& j$ X3 q% O2 v
regrow-grass
; H! D/ N6 [8 y$ f+ k& P$ S' M do-plots
+ y$ k. @. I8 F. r" iend6 d! O! E4 w( M, f& q7 z
to move-turtles
% d( h" Y% ]- r' Q, g ask turtles [
2 T& o" }5 p( A8 I2 v# s right random 360
+ Y+ X* {' h( ]. [1 C# k forward 1
" G6 H# y3 z; M6 R0 p set energy energy - 1
9 A8 h5 c" x4 r" Y! ` ]
) Q' f( { n: h# fend
) v" { g" J4 j4 Ato setup-patches
) W1 T" M$ w9 o1 R K, M% N$ X ask patches [ set pcolor green ]
* |$ A! A( ~. b. M6 e6 Xend
* X2 K: n! ^1 P3 k% Gto setup-turtles
* I- ^+ G5 n; X2 Q: D% q! C create-turtles 100 w; d3 ?: I0 J6 ~# s/ T7 W" j
ask turtles [ setxy random-xcor random-ycor ]
! N3 h. t& R/ Z& `8 Jend6 I9 Y7 J. Z/ E) G7 R4 B
to eat-grass
2 z! Q& V! R# _( b2 Q# J ask turtles [2 V% i! T& V* q# s/ ?7 N
if pcolor = green [
5 h5 A3 {& L) Q" O7 ~ set pcolor black
$ R7 q$ A; t; j; K$ T$ L. } C, u set energy (energy + 10)0 {0 R9 Q, c& G2 K% M: R4 @+ \4 @4 l
]3 r& }: J; p. z% n
ifelse show-energy?
5 k# u2 T0 N$ u" x) X3 N# h [ set label energy ]% ]- ~3 q! t, B
[ set label "" ] ~$ p0 F q2 v% p* n4 B% L
]
; Y* b: Q0 v) g- n Kend1 ~( l( w. e8 d" y+ m, q) z& I
to reproduce
$ J* H. [. g3 A; d2 C ask turtles [& h& B; R: I! _4 X" v5 ~7 |$ k
if energy > 50 [& e% g& X& h+ X u2 C
set energy energy - 50
# b6 h$ m, X: S& r( L" Q hatch 1 [ set energy 50 ]! z* X4 I. R+ n+ E& Y7 G
]7 H: [, w$ S4 R+ r0 R0 P+ b* t# O
]
% d# V9 s4 B8 ~) X w( W2 rend5 c# X4 n' m( L' B
to check-death; L' ?. e( L) N
ask turtles [
: \( y2 j! s& l! |: U3 X if energy <= 0 [ die ]
/ j" |1 O/ F; V, y ]: W/ F+ s, L( ]2 C- s# l
end
) ^. Z, \, w8 I# Eto regrow-grass
; u1 p; o9 l+ J+ b- v ask patches [. E) U5 j% k2 D! t% d$ Z& u6 H" @8 B
if random 100 < 3 [ set pcolor green ]
: K3 l; T+ A: V2 M ]
8 Y3 Y# `. P( U% v$ s$ eend
3 X, q% R: l: l& I" \to do-plots! D; d6 m c9 ?% `
set-current-plot "Totals": g- @ e2 i$ [- }2 E& H" T
set-current-plot-pen "turtles"" b" Z, n, v9 }9 {
plot count turtles7 n6 \: j2 c' b2 x* E" N- d
set-current-plot-pen "grass"( r4 @8 `- p' O# i/ S
plot count patches with [pcolor = green]0 j% {5 Y+ s: |8 j) X0 {
end* v c( j4 O" u
可是运行时提示no such plot: "Totals"& {$ W) l T1 H# n
error while observer running SET-CURRENT-PLOT
( X( e' `4 j0 Z3 _4 v( | called by procedure DO-PLOTS
. G2 t2 j. [ @ called by procedure SETUP' M7 \3 ~+ F6 y
called by 按钮 'setup'
4 N0 B, C* x- K/ w6 w! r( K求大神解答啊 |