我编的程序如下turtles-own [energy]
& d0 d5 B6 [. V" Kto setup6 ^! _+ r& |( {( @3 @
clear-all. g/ A" {" n/ q+ k- |
setup-patches# r( o& y# O6 V0 [
create-turtles 1004 E F0 f, p# A" X' E1 Q# V+ X
do-plots* L" A1 |$ q4 }! L) t9 ?: g2 z( ~; [# P
ask turtles [ setxy random-xcor random-ycor ]
6 \# F" s9 `1 ~end6 l Z; H) J0 {% G0 n6 f
to go
' g5 `% ]* O: d# y5 ` move-turtles) |* d% K7 ^" w1 p5 z- Q! P
eat-grass7 H. w1 L6 V. {
reproduce
5 V5 u/ t) G) {# | check-death$ _3 ` Z5 m5 W$ d
regrow-grass
' N* B! r1 K0 q1 Z do-plots
; M+ M/ r9 k' F/ wend
7 X( r" L* C0 t/ ?5 G2 x& w* Wto move-turtles
2 F* T8 H# |* p1 ~- V ask turtles [# F% |$ b3 |2 Y
right random 360 `/ e. ]6 S. C, A1 l, G$ ]
forward 19 c, H/ ^- I% T7 g s9 Q8 w
set energy energy - 1
' K) ^) [# }+ _/ @. v ]- a+ y9 V; E7 y @& u: p/ }
end! @( V1 S% L7 M9 U5 O9 w% E
to setup-patches' y" S* Z* v0 t. X& Q1 ?
ask patches [ set pcolor green ]
) ]& t; U; Y! ~* e7 ^# n* H8 Mend
6 N* Q5 P' g* d- A/ j Jto setup-turtles. H: q1 ]3 p7 t% D* S
create-turtles 100% H P. u# ?7 p C: s
ask turtles [ setxy random-xcor random-ycor ]' {; \4 m8 r+ L( {2 E3 M* J
end9 O1 K" _2 B" b0 y/ H6 j3 Y
to eat-grass
2 s+ _% ]9 o: H# ` ask turtles [
# [& P# A) w& F; v if pcolor = green [# r) w( ]: m# K
set pcolor black" v4 t$ `( T) a; c" i) `9 o
set energy (energy + 10)
% y% r% n N: B D# z: N3 B$ | ]& t! n1 {" [9 d: ~
ifelse show-energy?' w0 Q* }6 L2 m! a! s! i
[ set label energy ]3 C1 W x- I) T1 B
[ set label "" ]$ t# l8 a. K7 m; O6 G9 H- }7 y
]
j" f! ]/ q, {1 E9 Wend
4 k9 N+ {0 e- P6 Z3 oto reproduce; a3 [0 {0 G" _8 H
ask turtles [* A' J- A2 m' X4 w3 w2 p- z
if energy > 50 [8 f6 I% f( P( B
set energy energy - 50
6 D& r! \' `: f7 h hatch 1 [ set energy 50 ]
4 P$ m! y3 @5 G/ B, D ]* M3 d0 g" N0 r$ C
]& _) I# v- b5 P5 Z+ f7 E* V$ d3 d
end7 v% d# E9 a/ R/ N
to check-death2 v$ V/ o/ N! `* n4 U) i
ask turtles [
, Z2 q% y1 F# h1 w' \$ T6 a, { if energy <= 0 [ die ]1 d( u+ ^3 n, z
]
* d6 k o2 p* u; d& ^& qend
: Z( k- P4 k: N, M9 f7 k' _% [& |6 X% Jto regrow-grass/ _1 H7 h/ F( ~1 i A+ {+ _8 @+ ^
ask patches [
8 ?0 m6 s- C& a4 C; {3 ` if random 100 < 3 [ set pcolor green ]
3 W9 O0 S2 A! F* y* G7 m5 D/ X ]
* e8 u1 K+ ] e% i- W. hend h& F. Q3 T( x( u
to do-plots
+ D W' v# ?! b- c$ j; E: o! N set-current-plot "Totals"
" }1 n7 B* G( ` Z( m8 ~, U set-current-plot-pen "turtles"
/ j7 m& O! ~3 c plot count turtles
, C/ p; v1 i5 x# ? set-current-plot-pen "grass") Y9 | K2 l0 O7 l9 y- u
plot count patches with [pcolor = green]; b$ B- Y& |( O5 O4 I
end
% T- }! v- X) r可是运行时提示no such plot: "Totals" w* m. o0 }* s1 o
error while observer running SET-CURRENT-PLOT
2 Y$ c* c9 m7 \ called by procedure DO-PLOTS
; U9 T9 a& O0 |' g1 T t4 B2 x called by procedure SETUP: n9 b) H- @3 p' X# X
called by 按钮 'setup'
& u; B( ^( S! W求大神解答啊 |