我编的程序如下turtles-own [energy]
1 V+ b$ }0 Z6 h: G2 _5 Lto setup, M" h( V2 m! t5 x: b
clear-all
/ G/ }: v9 z6 F) B9 @6 v setup-patches
( v0 D3 e3 t. X create-turtles 100
5 }, M+ L/ I' K% N2 v- \" {+ f do-plots
3 B2 x+ T, J/ V) D/ ^5 c2 w ask turtles [ setxy random-xcor random-ycor ]6 f+ k3 e" y* E7 x% c( e1 f
end; G4 c& P5 b% @' F2 W( T# j: K
to go+ d, f$ _7 d( {( M
move-turtles- ~9 ~1 u2 R z" j: f. C2 V
eat-grass
' E6 w( E( q+ _) e, h# i3 ~ reproduce! O3 P0 e" i, Q3 |1 z
check-death
1 G( ]4 G4 [% c8 f9 u regrow-grass
2 |; g. E' h$ K* r% k' I0 e1 C( N do-plots3 k! @4 Z2 G! Y6 [
end
4 w1 r7 z7 e9 K3 [4 p/ Q( Cto move-turtles/ i, }8 \: O9 M
ask turtles [2 _" h2 I+ c2 D; {. r5 w
right random 360
6 v0 m/ _: I( K forward 15 [4 Q2 \/ p9 N7 _& T3 |0 v
set energy energy - 1
7 _1 ]6 |; w, Q! c3 g ]$ \+ D! t0 }7 l- S4 `6 I
end0 T" y" K- N- j+ G, d3 j
to setup-patches
5 c& z$ @! a9 ` ask patches [ set pcolor green ]
' d4 } k8 {' w$ ~( j0 ]5 F8 M/ C$ `end
' s+ [8 F, v) N3 |$ R% E* @to setup-turtles
: M& u9 R8 f9 ^ z' N; |7 Z create-turtles 100
0 b- j" W# X% H, p ask turtles [ setxy random-xcor random-ycor ]# K$ n8 j* ?9 i* N; a' l" R# u
end1 `% R& l( ?; i2 K
to eat-grass) P/ Q7 f! z: F& K& S0 v6 ?
ask turtles [
( |; e9 o0 a, _' W' j3 ]7 H. L if pcolor = green [0 W5 O: r/ m: i5 }1 }) q
set pcolor black. {5 J" w( n! _. k9 n% ?& [
set energy (energy + 10)
* B% `% G5 L! z( s0 V ]
' r: L) ?# A4 z. ~$ l [ ifelse show-energy?8 T; D$ S& s5 S
[ set label energy ]- ~- L$ v, R1 c# [; u B
[ set label "" ]
( S" @' [% Q$ Y2 N7 B ]( |8 d5 m# P# C% U
end
. Q1 _8 C4 X; s5 q# M3 Kto reproduce! t1 |& P$ ]2 u. n/ n) E1 n/ s4 y( I
ask turtles [- O- s7 r& d [; @ ^0 P
if energy > 50 [5 _+ A3 W7 Z8 p" J2 F/ m6 m, ~
set energy energy - 50
; F# J" y3 _0 D5 n% ] hatch 1 [ set energy 50 ], [3 d1 N4 S% w* l- t
]
1 Z2 W3 B0 L6 N- p9 g9 p5 B; U ]
0 `5 |9 g! r* Y3 W7 q4 ^7 r# \end
( i% H r7 H* |$ zto check-death
% N9 C* J* r0 h# J/ l9 b ask turtles [
, V! K* |4 ]* k% x if energy <= 0 [ die ]
4 k0 a' [5 i- B$ F ]/ I2 U1 O& _) @; F
end
% v' e) {' n7 O" C; I6 n* Gto regrow-grass
( \% n. M. B9 j, d ask patches [5 j3 @8 i* u2 n9 T+ [2 F
if random 100 < 3 [ set pcolor green ]
* l* }# C( A+ u- U' X( x0 h ]
* S4 m1 X+ ~& B2 rend
$ O& F, O: Q' Z8 Y) cto do-plots
) D1 l& ~1 X$ Y2 `% p9 Q& @! h+ o set-current-plot "Totals"/ U% S6 z( i0 ]4 C
set-current-plot-pen "turtles"
0 }$ I* s, K w* P! @' @ plot count turtles
+ b; v5 k) R8 s$ ^ set-current-plot-pen "grass"
. ~ d( E9 }0 [0 v V7 V0 f plot count patches with [pcolor = green]6 }, k) _. {3 A* p9 z
end
; J+ g, }) J+ ]; B( B可是运行时提示no such plot: "Totals"
$ L( @7 x& j. A6 ]# xerror while observer running SET-CURRENT-PLOT
' W: [5 \& A% O( p- J9 r called by procedure DO-PLOTS4 e9 [& f( ]7 x8 k# l7 q& a: E/ h
called by procedure SETUP
/ |' ~9 ?; J; J. v/ S! z* C3 P called by 按钮 'setup'
! h( ^* m) Z, \+ z1 r9 I求大神解答啊 |