我编的程序如下turtles-own [energy]
0 D, r2 Y1 `- F1 v# k1 M. bto setup/ U% s+ \1 E; j1 c Y1 z" G5 e
clear-all+ j, D m$ {8 x5 t8 @
setup-patches
0 f1 i( n8 ]/ W2 f3 o3 @4 l create-turtles 100
1 u4 _4 Q, z v4 X% F do-plots
+ j; q" g0 `+ ~5 d- S4 f; D5 L ask turtles [ setxy random-xcor random-ycor ]! x5 k0 \* [( Q0 `
end5 b0 Q) D; c& {: k2 b. E" `1 t
to go+ Y& W' d( A4 b" T! F
move-turtles
; {5 g; y ], x2 z: s2 B eat-grass
8 w4 r9 m( X/ F* m5 S U reproduce
! e0 m) b: o8 t! p check-death
' m- s- ]7 @7 v! z$ \: |9 O+ }7 C, E# ]1 J regrow-grass
* B! `6 |8 \6 K- R. b$ ^' t5 x do-plots8 |/ f8 [4 ? o, x2 K
end
( j& v7 H* L/ t6 ^' q- ]/ Gto move-turtles+ P$ J4 E( i r) P
ask turtles [( H. O: {( O3 W E" y
right random 360
4 p9 _& B2 X1 m$ e H9 v forward 1! U/ M% n N4 S7 _3 q# K! O3 D, d
set energy energy - 1
5 s) u* P- e) `1 g. l ]
4 A# l; y2 ~2 ?/ C- fend
( b: W. |& }. U8 M9 jto setup-patches
. d }6 K' M* a6 @ P' o ask patches [ set pcolor green ]7 q$ c M2 A$ D6 \ o
end( L# y6 j }. O! c+ P/ ]4 p- R
to setup-turtles
/ {; q% {2 z! J! |# r! }% S$ l create-turtles 100. R2 I% Y+ Z2 B
ask turtles [ setxy random-xcor random-ycor ]
. b. ^1 s" w$ q6 Fend
# G4 d* q- C9 |+ o, \" M: Jto eat-grass
* j" A0 T) U- R) V/ G) @2 Y& F# l ask turtles [1 J i* Y) O6 y! U. O" x5 j
if pcolor = green [
" U6 I" }( q7 J) W6 m6 h set pcolor black
$ L! @ u- Q7 a# R, X' A set energy (energy + 10)
3 C; v1 G, w* Q) n" }$ g1 c. a ]
# Q- a$ S' |& J O- w7 j+ c ifelse show-energy?
& L" N- C# G) A1 N8 r% b [ set label energy ]
% M1 H. B6 p( l; V* K: Y [ set label "" ]! v. `* m9 \# ?" _; Y
]1 K' t& x5 g+ Q- A
end
5 P, F" b. H; |7 h- Wto reproduce2 }( N, z j6 e$ a
ask turtles [ S- ?9 {( F9 b8 E
if energy > 50 [* n; `2 h2 X& E/ \ r# i6 |, h" {! [
set energy energy - 50/ H0 g3 b g6 @& }/ b
hatch 1 [ set energy 50 ]
% g" `% g5 N0 ]/ _ ]
# i$ P V3 D3 j8 k3 j+ z ]$ e1 ?) _- A8 u/ ?" l
end2 Z7 p2 M9 F: X, R/ c, E
to check-death
+ H) D" L3 S3 F$ c) }! n3 r ask turtles [. [9 Z0 E0 B8 P0 F" u2 w( R
if energy <= 0 [ die ]
' V4 h4 B( |, g) Y' y+ V ]6 Y& Y/ |6 G+ ]! _) W4 p
end6 r& K, W# T- b! {: I6 P
to regrow-grass
) S' |6 q7 @! ]* x8 | ask patches [" v7 Z5 Q' b' p
if random 100 < 3 [ set pcolor green ]" a" @: R) c" U# c9 A; E
]/ t6 F( F/ h, R2 W3 Y/ e2 n9 _/ P
end P5 i# x& q3 y* l7 Z
to do-plots
; Z* f- _4 h, S$ [# c3 k4 Y% I: S set-current-plot "Totals". Z8 |" I# R9 ]6 _" N n
set-current-plot-pen "turtles"
8 V; X/ w+ ~# X plot count turtles, A* z; m0 u0 U
set-current-plot-pen "grass"! P! O) V, J2 O' J
plot count patches with [pcolor = green]
- B _7 I' L. M h, o+ a& Iend1 i" m) H: i( M+ q
可是运行时提示no such plot: "Totals"( f' R* _. \) @7 V+ m
error while observer running SET-CURRENT-PLOT
0 P7 Q0 X" O1 _+ i; o% _' n9 O called by procedure DO-PLOTS
4 N0 [: r. }* q7 X. x called by procedure SETUP
# t+ }7 r' U; |8 f0 B, G called by 按钮 'setup'! A4 Y* m `8 B! Z- x
求大神解答啊 |