我编的程序如下turtles-own [energy]
3 }" ?7 L9 D" ^2 z, S( E9 jto setup# w1 i; V9 } ^+ `( J& A$ v# v
clear-all+ X5 F, y3 P3 Q0 |, k
setup-patches
6 u8 Q. E- P* h R$ i1 r, N, H create-turtles 100
: E/ q+ Y* a. C4 R2 @ do-plots
! Y' w0 d: P6 M }( U8 m1 { ask turtles [ setxy random-xcor random-ycor ]
+ ^ d. X; q) x8 ?/ D/ Cend
% I/ x: r$ z q5 U. x4 qto go
& O& R" X- J' P: f0 O move-turtles @9 B" E8 k) b7 Q8 P$ ]
eat-grass" w+ Q8 x: i" ]! |" ^; F. m) p
reproduce
: M2 j: `, `' g) F check-death) l+ ]* Q! h, P9 e' c; e, h: `& e
regrow-grass7 d% H4 B7 \1 x$ Y% h
do-plots
( V; P4 i a S, p& R" d Tend. T. _0 B: n: H
to move-turtles
+ N5 b& a: `6 q2 t' n U5 m- C ask turtles [3 g. E9 S: @! d( `
right random 360# I# L$ J( ]) G/ E- F& ]! r# G
forward 1
) g U+ ]5 J2 f; r' A set energy energy - 1
+ H5 f: S$ k; W6 l, b% k- F' W$ N3 K ]
& L7 A' H! U0 y! Pend
) t3 g9 D. u+ Wto setup-patches
; S( [! g5 s$ ~! c% h3 s8 m% ~. n ask patches [ set pcolor green ]
9 y8 p7 Y- {9 R5 Y, b8 X6 t, Dend
' h) w" ?0 P, ]* Ato setup-turtles
2 Y; v+ l0 N5 W" S create-turtles 100" W6 u/ {1 o% y" U" i6 l
ask turtles [ setxy random-xcor random-ycor ]3 w) J0 S! }; [8 f1 t; M
end$ e0 d& B* K! _4 g
to eat-grass" {5 q, I/ o; z
ask turtles [
6 l- `% y l' w8 [; k- J if pcolor = green [% |: r- h E& R( i" B5 S8 G4 L
set pcolor black# u6 D' ^; ^+ v8 p3 r
set energy (energy + 10)5 K% z) D9 r4 ?
]
; u8 T0 C0 T, ]8 x* Q, z ifelse show-energy?+ k% X _5 s: \; d0 E( u
[ set label energy ]6 Q: e# T9 t4 q# }2 _& j* D
[ set label "" ]
- E7 \, Y+ r5 i- g ]
: b2 b; s) F3 I; D0 Q; S0 t8 a% Zend6 P" ?/ H1 B9 B5 g; A4 p% w h# }7 u
to reproduce
; `8 W0 s+ D8 V ask turtles [
" u0 Y2 h7 F# }2 m4 N if energy > 50 [
% y; v* h/ E+ v1 \# e4 \ set energy energy - 506 B( P8 g: P1 w% Q: i+ c% K
hatch 1 [ set energy 50 ]
/ R, f8 B' E" F! s4 L7 u& u6 g5 c ]
# b) w( V! O) l" o j$ T3 | ]' c4 @8 ?$ p0 e3 R% C& L
end
: J- Q" Q* j, k$ rto check-death1 E9 N+ [9 e$ b3 S! |5 k2 K( S; W
ask turtles [, c, _& `. {- { }+ `4 g
if energy <= 0 [ die ]
2 Y3 C+ Y$ d; R: R- y ]7 g1 M1 K" m) {# I8 }' [
end6 s# m4 _# v* T! c0 ]
to regrow-grass5 R' W) I) Q+ y3 S$ ^' h
ask patches [
" y2 z6 i8 A/ W# f; g if random 100 < 3 [ set pcolor green ]
3 c: v2 `0 K# O" x+ f; p& O ]
) H( g [) ~( [3 {! m" ?& Pend- G% b) [+ [! m' m) H/ p- _
to do-plots8 t/ l6 C ^, X
set-current-plot "Totals"
/ w/ d6 s6 u" t% |& Y set-current-plot-pen "turtles"- M6 Z3 ^# C' A- q% C" b& }
plot count turtles) f/ V, P4 x+ ^
set-current-plot-pen "grass"
! K2 O) }4 b1 T& P v plot count patches with [pcolor = green]
+ p4 \ E) P% b3 L4 _end+ W5 v/ M5 f( M! a9 ]
可是运行时提示no such plot: "Totals"
: |( a" F, ` ^; }% u) V2 K$ verror while observer running SET-CURRENT-PLOT
/ `' B6 g! p3 _) d called by procedure DO-PLOTS; s( o! o( b8 R. S6 M# S" ]
called by procedure SETUP
7 F; M- x% g# p' t; n t: y( G! i called by 按钮 'setup'
2 o" K. I: c0 u' |) R/ o求大神解答啊 |