我编的程序如下turtles-own [energy]
6 s: ^1 _ L2 n. L% m. fto setup# z# } B! q5 C
clear-all
1 G% B y% u- n+ i$ j4 |$ a; S setup-patches8 p+ f! j9 J8 U$ ]% @; t3 H
create-turtles 100
+ N) k! O' U! R$ ~ do-plots( D, S0 W& A L9 Y- [# R; i( `2 T
ask turtles [ setxy random-xcor random-ycor ]
5 S! Z; T/ N% Y; qend
! w8 t6 A1 _) e$ Kto go, y# w. q- ?; J! Q+ y( r
move-turtles
. I1 T7 A+ O0 r! E' J! g eat-grass) T- O5 x6 O! r, G2 {8 `5 t
reproduce
5 }+ u/ `- o* d: \' t check-death+ I9 E$ S" \2 ?) G
regrow-grass* H' p9 g. X0 T; A H# @! P# _
do-plots
: } o/ _ i7 a: A' Bend
' A* _3 Q4 ~; [- P" l3 k/ l& ~to move-turtles
3 H( R3 _4 N) o* ^% i ask turtles [7 A# I, X2 M0 j; y' u
right random 360
: m8 A) C- u- k! {- r: B" D+ Q5 V forward 14 R( L3 V% R* g( [0 [
set energy energy - 1% `( h" k8 l4 n' A
]; m) U m: m2 x1 v
end
4 |8 G5 {; [3 F* ]7 M+ r/ Zto setup-patches
- h$ o8 _) W' N) k$ k1 I ask patches [ set pcolor green ]
1 }% L7 U' L/ g) c* J9 O# Hend
) |- o, @% v. L& U% }; fto setup-turtles
% R6 ]9 M) D% T9 l6 s create-turtles 100
& P2 W: m- h. F! F* m J3 P ask turtles [ setxy random-xcor random-ycor ]
* G# X/ i/ N1 C$ f/ v! t3 R; i+ gend
; Q/ l1 m: @7 A. Vto eat-grass
( S/ l$ ~" v& y ask turtles [7 O7 C7 E% l* d B2 L1 ~: R
if pcolor = green [
# ]* d( C b& `( g# [9 }* ?1 i" X set pcolor black
) }0 _ ~$ z( ^4 W set energy (energy + 10)6 V+ Y" A$ B' n' O/ ] v4 B
]5 x9 |) F# p) \( R) |, M
ifelse show-energy?
$ \! v, @0 h; |; Q [ set label energy ]
! ?4 {2 ^8 s( a+ T) i9 t6 d w [ set label "" ]$ B+ d9 D- g+ O- U c9 g
]* D+ k$ V' r, I, g: x. \6 G; ~
end% }- [5 e4 W$ X# u- y+ E; E/ m$ w
to reproduce
' O& C, O# G1 f# r- b3 F. h! u ask turtles [
- A$ L$ k0 M& c" d4 t if energy > 50 [0 _. C! O% [) T8 ^( W2 @/ b9 b! V
set energy energy - 50
# D1 ` _ P2 u3 W! v hatch 1 [ set energy 50 ]
5 _. x2 o$ k. V" U5 L4 ^5 g ]
: L, I. G# c) P4 E% d- C ]! a$ H7 H( |. ?4 \; k8 M! R
end
% c! ]- ^( ]/ L0 i: _$ _+ j2 Lto check-death9 W" k$ @5 _2 a/ M& r
ask turtles [
9 z5 a# y9 l4 l if energy <= 0 [ die ]
C' R" ^. }# s3 d5 N) ^ ]! P) J6 O5 w( z
end
1 V( L9 J5 Q8 w& P/ h" X; ~to regrow-grass& O9 U* s( k! Q& {$ q( f, z1 M
ask patches [
5 ?( J4 D* e6 ~ O" L+ r8 ? if random 100 < 3 [ set pcolor green ]# {' V& G0 d" K. E9 ^" I
]
) s7 H2 @- A" H1 B$ L; K9 c* J0 Uend
- e& P& u' g* Nto do-plots
, |3 E, G/ t# m* Q set-current-plot "Totals"! A) T' b+ _: n
set-current-plot-pen "turtles"
( g3 ?0 A2 `5 K4 T1 J0 ^ plot count turtles
) u6 H: P# v1 x/ ] set-current-plot-pen "grass"# U# F% v3 u- t1 P
plot count patches with [pcolor = green]8 z, I' z# S, v) U8 h" `: S% r: e
end
# V& r5 X* A) A) g/ q+ f可是运行时提示no such plot: "Totals"6 Q; @7 m8 d4 E+ q* z
error while observer running SET-CURRENT-PLOT
- [: m( W/ E4 I ?" H7 ?0 _: V called by procedure DO-PLOTS
( _$ q; T8 Y% I7 n, X6 N6 t$ R' l called by procedure SETUP
- p; \) q1 Q8 u" ?2 u called by 按钮 'setup'
% l2 }9 |8 }+ w" j h$ {% T3 F1 |求大神解答啊 |