我编的程序如下turtles-own [energy]* @) g# F) A3 R: i* B- M
to setup* Z2 B( n. N, q3 a) L" o2 c
clear-all7 ]& K0 t7 d4 d& n4 x: p
setup-patches/ ]$ e* ^. W3 F
create-turtles 100
0 F0 b; t6 @! m- y( I/ r do-plots. b+ i# b% J- Q
ask turtles [ setxy random-xcor random-ycor ]) N# T5 K1 t Q# @9 t$ C1 P
end' }( u2 s; T( n2 K3 H" a
to go3 ]& Y& l% L+ w. v7 J6 x0 f. o7 v$ y" P
move-turtles
5 D. ?" ^- | x9 U eat-grass
- a3 K* A' {7 B6 h! e+ _ reproduce* ?' R( [: M" L5 G3 n
check-death4 A% k3 u; L9 F% E4 z
regrow-grass: B7 b" p2 Z5 u6 Y) V
do-plots
, W7 u# Y8 I6 kend" ]. t% u7 K0 w& U0 d
to move-turtles- R' ~/ n' U+ A `
ask turtles [
6 T7 S! C# \1 X Z/ ~+ L4 i right random 360
* H) }7 j5 X% w- T forward 13 G( u! L& V, N; g
set energy energy - 1
( `- {/ f8 ]" U. C, u2 J ]( Z1 _0 @( l6 l, v# w5 r8 \
end
, E7 u* b9 Q4 V. ~ J% dto setup-patches
( f3 I, a x) i, T6 `; T" b ask patches [ set pcolor green ]6 w( Y5 Y" j4 s1 P; b; h; H
end, |$ c4 U( m) z, e# o
to setup-turtles
, {) `- \6 {0 D create-turtles 100
: S* ]5 q" T) J _; h6 U( g, y! {4 `: }- D1 X ask turtles [ setxy random-xcor random-ycor ]* m, i1 q$ T5 |1 A9 ~# ]4 O
end
e" d; S# J, S, P" Sto eat-grass; t4 t. b0 t2 }
ask turtles [
: Q, i3 _1 V) W if pcolor = green [8 i Q2 e2 [ H, w" Q1 W
set pcolor black! t( @0 t/ W' w3 j' o9 d
set energy (energy + 10)
N5 j9 \) I9 B ]& }, T; v- u O" E+ x2 m
ifelse show-energy?+ f3 K1 t2 e6 G# y3 R
[ set label energy ]3 r3 u; {6 a5 A: e6 u1 r3 {6 i3 k
[ set label "" ]
/ v5 [6 S7 L( Y2 q ]! O; h( B8 S* j# ^9 u6 m. v
end
. U- ]5 H5 V$ P3 T* X# T! |to reproduce8 @- R3 e8 K/ H: }' T, \7 i9 `
ask turtles [/ ?/ Z$ }, h2 O5 w* ]" m
if energy > 50 [
- F( P1 ~: X2 F/ y; | set energy energy - 50
" i4 r2 K; M$ V1 _( u+ O hatch 1 [ set energy 50 ]2 \9 ~) a6 ?; T( R: @/ H
]' E' V* q7 b+ s4 _% D* m3 v9 U
]
. F( `* {/ f' T0 \end
5 ]. v- O% ?3 `8 N. Hto check-death
7 y8 j' A8 U, d3 G( v7 J8 V ask turtles [
, K/ Z' K0 S' ?- E if energy <= 0 [ die ]
; ^; w1 o4 T' M, \4 f/ N' Q ]
" e2 h9 z+ m x9 p+ ~! I1 qend6 A0 {, q; W7 d1 X9 i7 Y! ^
to regrow-grass
+ Y+ {) m8 U, [' d) O8 J2 p" e ask patches [/ G6 B9 \/ Q! C& f" ], T
if random 100 < 3 [ set pcolor green ]3 N! h3 J2 `0 f# E# n9 ]6 |) j s
]
9 ~7 H/ {" T5 p1 S+ z" k' e( Vend
% Y. h- e p) Y. x; Bto do-plots3 M$ k8 z3 v+ d$ H1 b9 @+ L7 `4 q" S
set-current-plot "Totals"5 h5 {$ L* Q; M; B% a5 u! t4 q- @6 }
set-current-plot-pen "turtles") u+ E/ w) m! P7 K* X
plot count turtles
! m( [, d5 L( R; B0 S6 [ }5 L set-current-plot-pen "grass"
7 X6 Q) X/ Z5 d3 s0 W/ y plot count patches with [pcolor = green]7 z5 G: c4 ]2 k* b, B
end6 t& |- c3 ^' I8 U' j$ w; b' |( b
可是运行时提示no such plot: "Totals"+ T/ p: |: t; q$ }
error while observer running SET-CURRENT-PLOT
' |7 ~4 g" m* ^3 x8 D3 a called by procedure DO-PLOTS
/ B% { w1 l) K" T5 _5 v& O E called by procedure SETUP: X! q) S$ @$ |5 w7 d1 J( `* X
called by 按钮 'setup'
) }, h3 ]( y# f7 f求大神解答啊 |