我编的程序如下turtles-own [energy]9 ?. ?: b5 C- U* Y8 i
to setup* `% l; @; P1 @4 a( P& I4 V: ~4 \
clear-all; |! ~; r$ ~5 r: g0 ^$ ~
setup-patches: y, j% e( L# H( f' H9 B2 Y+ v' a
create-turtles 100
* Y- Z- i* Y# k do-plots
1 | m) T# a/ v7 N9 `- `2 J N- d& l ask turtles [ setxy random-xcor random-ycor ]
, K! \8 Y& R4 V0 c2 aend; ]" q0 F9 ^3 E( d# }, g$ c
to go1 m7 u H( {2 s2 C+ J
move-turtles
k" I( i4 r2 z Z$ R0 ^4 b+ L eat-grass6 Q( f( r6 S# l4 g. E
reproduce
; w- j8 b( D E" |8 t r check-death
& r/ U: Y: l# Y regrow-grass" U P8 j" W! w$ u$ T9 w. P. R. J
do-plots
: q- i7 M+ Q3 O% W; ?/ m4 o! }$ H+ Bend
7 t+ Y. c! ]% Cto move-turtles
% ?4 J6 J# Q L) R ask turtles [6 y6 v t# t5 G1 ?' w4 Z
right random 360
8 D. S2 x5 m" w I% S$ `4 g forward 1
1 L# D& _6 g3 N2 N1 D V! B set energy energy - 18 l' p# {) q6 h8 D% ?' I
]7 ?& \: D$ @; [+ L: O9 [
end
# a3 {; k: N% a# ^to setup-patches" y: ?& D1 a' H5 c7 K( t- \
ask patches [ set pcolor green ]5 B# _) R5 d5 r8 n7 m. f: j( m
end6 A+ D- f. g2 S# U) z. J- G" p
to setup-turtles
0 h# t8 t9 k; d# C5 q create-turtles 100" @* ^- ]) B) _( g) \- P: w, @
ask turtles [ setxy random-xcor random-ycor ]
7 \$ B H! `: k9 D6 {. w- Vend
/ x" z8 }& z) uto eat-grass2 C. e5 [9 e# d+ C9 K! L
ask turtles [
" Z% n8 i5 p% {0 Y if pcolor = green [
, ~1 {: s; \9 ^/ I set pcolor black
7 ?* T. f" ?2 G; c9 f# y set energy (energy + 10)
, g+ g7 M( F- B' a' E( `) i( G ]
. k6 c/ `7 t* W4 S9 F& s$ _ ifelse show-energy?
+ B3 }" A% z% b* ~ [ set label energy ]
! w0 O. t" l3 E @ [ set label "" ]
/ b0 S, q9 o' c4 v1 U" y$ A0 J2 C4 P ]+ `; @* A" K5 ]
end
8 ]: ?5 B0 U) xto reproduce, U7 f/ y6 _8 n& L
ask turtles [
5 N# J* t" \0 J" B if energy > 50 [7 |' i2 C4 n( ~: |( W- Z5 s5 Z
set energy energy - 50
( ?5 d8 L2 S& t3 N hatch 1 [ set energy 50 ]$ v M c- F5 k# U; O
]
; ]3 ^- W4 H! D; Z: K ]
; X# m$ ~0 H0 f' }. B5 eend* b, C$ N; `9 z( s
to check-death% W3 l. r; k* C/ s( K
ask turtles [- R6 _! z" G, [; V3 ^2 t( b/ S7 e. Y
if energy <= 0 [ die ]9 I! J# M/ \* D5 R
]# ]+ I* d; H* \4 w
end4 i; `% D, y% p( A# Q/ f1 k# V6 N) G
to regrow-grass
+ c+ {0 C8 J; B" }; P4 ? ask patches [- K3 J. ?8 @. e) B* ^3 L, T% t2 c
if random 100 < 3 [ set pcolor green ]
7 O# c$ c( r! y! y, f7 e. \+ W r ]
" t% n$ t. V/ Y$ D9 `. Wend7 B6 z# R4 i5 v5 C4 H0 {4 P
to do-plots) x+ p0 b' L K$ Y# G5 Z- G
set-current-plot "Totals"+ Z5 Y a& n9 g: `
set-current-plot-pen "turtles"
4 L- ~1 J' j/ U- y5 ~) H& I& M, U7 h7 A plot count turtles2 E& r* ^2 X7 p/ J b9 h2 _6 D
set-current-plot-pen "grass"& [: r, }+ }5 A" q4 d3 ^
plot count patches with [pcolor = green]
/ o W7 x; c9 }' hend8 ~2 I' }: D% s$ ?8 b; e; R/ }
可是运行时提示no such plot: "Totals"
) d+ O2 E& Q, j- I; x( Berror while observer running SET-CURRENT-PLOT
, ]- T' |4 f: y called by procedure DO-PLOTS
; O2 G, i8 ~" ` S8 l6 w called by procedure SETUP
7 F" P! W7 ]& B3 t called by 按钮 'setup'# _* Z! h- H0 g5 P; Z
求大神解答啊 |