我编的程序如下turtles-own [energy]( d: D5 V; Y: i6 Q# I. R
to setup% E: N7 t6 w& R$ }
clear-all p' e+ q1 o5 Q. Q7 X
setup-patches3 a" U& P: C& I' a# Y6 a6 j; r A
create-turtles 100; n' i" k- ~9 p( @
do-plots3 z0 H3 I+ |/ N2 V3 J3 {2 S
ask turtles [ setxy random-xcor random-ycor ]
2 m6 h: V7 C% X& q( F. uend
& w3 ]- X( ?8 R% R; G+ R6 Qto go
/ k! c' t5 P0 K/ n6 @' I, h. d move-turtles7 Q1 L; v0 W$ F- w
eat-grass( z2 I9 k- O# S1 K2 q x
reproduce
5 }8 }7 u6 H6 \2 O X check-death
; }' S f8 G6 R% l C* t) g regrow-grass
: o2 \/ h% x4 |9 v4 n( p do-plots
" m7 ]8 C* o1 ^/ g s. `end. R9 s" c: A9 p# p
to move-turtles+ f0 @; K+ ^9 q3 O3 C; w
ask turtles [/ g6 R2 J2 P7 I% z; l; a8 x
right random 360
) G0 k' ?) K& I( N% [) F L forward 1
+ ~6 o0 m+ r& {2 L set energy energy - 1
7 q" R4 _5 J, ], |) C ]
8 }; k& P" n3 U5 u3 `end
7 Z' T6 l# j1 } m& y, n; X& ?3 }to setup-patches, V( Z9 m) ^' f% t; [4 ^
ask patches [ set pcolor green ]) E. d7 x0 k% W) ^( D) l
end
9 R4 ^+ A- U4 nto setup-turtles0 E" Q- B( R- Z; ^
create-turtles 100
6 R& ?5 m; \- } ask turtles [ setxy random-xcor random-ycor ]. X2 X5 z6 X; U: r
end
# R9 C4 B) I9 T' V! O& R) Y; [to eat-grass" D5 X( z" h! ]7 s0 d
ask turtles [
+ {) X" Y. U k% f% c( b if pcolor = green [) i# i+ n; U& ~$ c8 {% k
set pcolor black2 L! |, f2 [1 v, w5 ^
set energy (energy + 10)
* L7 \0 l! T6 ]* C ]: T% h; I. s9 d$ T% w
ifelse show-energy?' ?* u0 s! F4 b r. E3 f
[ set label energy ]
. T& \1 l, k( E$ F- q2 L/ ]$ x$ z [ set label "" ]. d8 j! }) V- n8 t3 ?+ i9 V
]
$ _. }) w3 W9 Q9 p' {end
) u" y ?3 p/ R' e2 v% kto reproduce2 b! j7 ~3 _8 _. d1 q5 \; u
ask turtles [
; z/ Z6 p1 @# d7 x) ?/ R' f+ O0 K if energy > 50 [/ g0 ^2 g$ i6 M! ]) I; _
set energy energy - 50
. K! ?1 k; o7 \1 F+ t8 a) P hatch 1 [ set energy 50 ]2 V. n% S. M/ h% P* T
]
5 |" y6 `2 ?6 ^( k2 B+ P ]# Q4 D6 G6 v" c. P1 }
end
4 k6 Q. h7 N5 c& x2 K3 p- Mto check-death) U' C0 a, ~( s8 H' z7 H
ask turtles [
0 Y. c+ C1 Q% z7 i9 L& b if energy <= 0 [ die ]' D* u/ y& ~$ w, `0 K- ^/ @
]6 f' |" b4 N3 C/ G( Q/ p
end) Q* R: W6 H+ k7 q2 Q
to regrow-grass% k0 u: n7 ^' V6 d( q1 m' y
ask patches [
1 A. U7 K# X [8 z if random 100 < 3 [ set pcolor green ], ]& c0 G' q3 b
]2 C: ~/ A* }# [6 p; I! h
end9 a: @; i1 \2 R; |1 m( S
to do-plots
3 i* r: S' I1 W2 z set-current-plot "Totals"3 v; O- n& O# d1 j2 H4 R
set-current-plot-pen "turtles"/ g" V/ D. _) g7 _ M, p
plot count turtles9 X0 \0 {1 z% O/ [2 F
set-current-plot-pen "grass"
0 p1 p6 T* D$ q2 B1 P plot count patches with [pcolor = green], B/ k: l* ~3 D! H' q
end
+ ^5 T" ~6 a' u6 U& x) K可是运行时提示no such plot: "Totals" u) l3 x4 c/ ~9 I
error while observer running SET-CURRENT-PLOT3 w# G2 Q5 V( E+ O. _
called by procedure DO-PLOTS
7 R8 v9 z7 T. z8 ~6 @ called by procedure SETUP
! y: A& E5 k g( V called by 按钮 'setup'
- n- R: i' K+ |# m* ?5 U求大神解答啊 |