我编的程序如下turtles-own [energy]$ G; i x' J, C- O$ a9 \4 `9 M
to setup; V% X1 ^" j1 Q B6 r9 ], L
clear-all
( J5 p7 A; c" d/ c7 |% H# b setup-patches
$ H" k" }& T2 ?* v create-turtles 1009 b* D9 ^7 C3 L1 b
do-plots2 y4 n0 o! M9 ~8 b1 m
ask turtles [ setxy random-xcor random-ycor ] e) P* W) o) k W/ ?6 v
end8 l/ X! O$ P' U7 e$ b4 @7 Q
to go; J. z/ a% @: x& n) y3 }% a3 c
move-turtles
: I, o: o4 f8 R) h( y4 y' q eat-grass
+ }' {) {8 @$ R' h4 ~& g& z reproduce: E8 R* e" }3 L9 i0 {( o0 W& E( K
check-death
5 N% s6 ]- U) o2 \5 Y3 | regrow-grass. V$ s7 r6 J: }( L5 N
do-plots
) N0 }4 p, Z4 ?! ~& g+ Mend! G6 j P( M2 _( u9 ~
to move-turtles- B- M# ]; M+ S* v
ask turtles [
- c2 q/ } O9 I right random 360* _/ M: ^2 t; g: I( a3 O3 z
forward 1
6 l' l5 b/ U. t3 A) S2 w) F; ]4 ] set energy energy - 1* s; L1 Z; U' H5 {
]
: E$ I1 Q K; d+ iend& T4 Q& p2 I7 |# P- p* D; R9 W
to setup-patches% F/ N L; R8 e- m: f& a
ask patches [ set pcolor green ]
& ^9 r0 m/ ~6 ^9 D8 cend
: N& |; u* J% S7 Y- Vto setup-turtles- i& _8 f- ?) A! Y* Z) O1 ]+ X+ _
create-turtles 1009 Y/ a' j# L' n5 a4 `) X0 C$ c
ask turtles [ setxy random-xcor random-ycor ]
' `. V, C0 j) rend
* A1 r/ C( ^3 A: n8 r4 gto eat-grass" G1 C- e* K. O( d& H* N" H6 |9 t
ask turtles [
! Y1 d! D$ u3 H" y3 V9 n% V2 L if pcolor = green [6 H% b' ^. U* ]6 Y3 ~
set pcolor black
/ g/ X# y9 M$ s. p ]! T c) L set energy (energy + 10). U, o- ?0 ^5 Q
]
; [& @6 M8 x1 r0 ~( }3 ]3 I ifelse show-energy?
! f% F, N! t* [7 y1 r$ M3 b) Y [ set label energy ]) _! t4 l9 X9 _$ H
[ set label "" ]7 X. _1 ~- ]6 ^0 ^& [! Y a, F2 P5 w* J
]! z4 n, Z K c5 j0 w
end
& _5 S! {5 m8 {2 ]- r; wto reproduce
% t* B R% X/ d ask turtles [
! B8 N) Q! }" |$ z4 Y if energy > 50 [
2 p: Q5 X- l% P$ S! \% V9 l set energy energy - 502 z2 s" }$ D4 H' }. ~
hatch 1 [ set energy 50 ]
, V9 }' i% X1 e# J) @# f ]
; l3 ?% M+ F" h% u& z: o0 K ]: V3 G; x: H% M9 A5 S4 T" a& D
end
- e. W& C6 h. O5 M: T- B9 C( Lto check-death4 ], n" M7 q. q. w6 V2 [, k
ask turtles [4 M9 B' T/ T; `) o" s3 F& ^0 d, h" c
if energy <= 0 [ die ]; C/ I ?$ B4 I- N8 b
]
- _. D, Z7 I/ I5 A& N) {; R- r- Tend
$ q6 C: @1 ]5 N- c! pto regrow-grass' q4 F5 G9 @1 h% |. _1 {+ b( Y9 G
ask patches [
4 Y0 [0 J3 y, j ?3 D if random 100 < 3 [ set pcolor green ]
! {8 Q e& F/ N I$ X ]0 ^8 n( R4 b8 k* Q
end
7 r% a4 Z6 P* {0 E) E* tto do-plots6 l6 x& I! Q+ ]3 f$ ~9 |7 t5 A
set-current-plot "Totals"/ `% ~; U; Q8 J! K
set-current-plot-pen "turtles"
: Q7 r7 p0 l1 @ plot count turtles) |% K8 w" L: O* V! K/ N
set-current-plot-pen "grass") _7 I2 M6 B/ Y1 k0 F2 h
plot count patches with [pcolor = green]$ i/ N! y% |" W
end% M( F+ J! J! L! h1 G( \
可是运行时提示no such plot: "Totals"3 y6 N+ p8 ]2 ^8 }# K! j
error while observer running SET-CURRENT-PLOT
0 S# z- ~; Q; N' E called by procedure DO-PLOTS+ H9 @: ?3 c& k( f9 E U
called by procedure SETUP
3 u8 @$ k) u% X, z9 c+ r3 O called by 按钮 'setup'
! T: y% W( E x9 R4 U$ W7 i求大神解答啊 |