我编的程序如下turtles-own [energy]
! \. I- v+ _3 I/ Fto setup
* P; z% T. h' Z) ? clear-all, V A I) a1 X: s& ^$ t Q
setup-patches
+ h: ^+ v/ R# }" z& d! r8 n2 x3 D. n create-turtles 100
! `% v& A! W3 i+ h do-plots
' F9 p, S7 r# z% N ask turtles [ setxy random-xcor random-ycor ]
: a8 L" B7 L$ d8 Xend/ f% J2 \7 I" c: [
to go
; m& m+ x9 T# V7 h move-turtles' v6 i" k3 @* _- v+ R
eat-grass
9 m8 ~! v# B4 L# F3 c reproduce. s6 D: Z/ k+ i) l9 |' b; ~
check-death! c7 q1 k0 v i4 t8 p$ G
regrow-grass5 O1 r% ]+ @4 G# o2 w A& [
do-plots4 Z* `7 u/ |! `
end) G+ i, f [8 C/ N2 a
to move-turtles5 ` ~7 k! k9 U/ @5 p8 a" f
ask turtles [
b4 F5 ]/ W& @- |( T right random 360* m( U! R/ J; S M
forward 12 O8 s, J' Y3 u% G
set energy energy - 1
( z0 U, ]5 D/ i8 m0 y ]
& `) @2 _ \ y% @; kend1 N2 n5 q. Y" r6 }$ p& R+ [$ V7 I; P; i) x
to setup-patches
$ s% F8 n1 y" ^$ E# B% O3 A) X ask patches [ set pcolor green ]
. w4 j) J! u4 p% Z' g" dend
$ g8 P& W* f" }to setup-turtles9 H. x! u3 L1 _/ |
create-turtles 100
& o% o5 L$ p4 _2 E ask turtles [ setxy random-xcor random-ycor ]
" m" X6 g7 t, B! B; Oend! R0 b; p6 a; {, F
to eat-grass( y: U6 ]# G9 ]( j3 B9 A6 b( K6 f' t1 d
ask turtles [
/ H; H- p/ E8 m4 C+ j if pcolor = green [
/ B& h$ y T5 A1 D1 t/ u/ b set pcolor black- U' Z2 p/ _9 [& j+ Y! y1 G
set energy (energy + 10)
# W. V' {( J0 c0 y) L ]
; _: i* f8 G1 R A ifelse show-energy?
# y' x) X, V( t' m* V* L [ set label energy ]- j: [) p1 d* A1 u
[ set label "" ]
. S, d5 L+ t& p1 y ]: _: P5 j" |' f5 Y$ C! D
end
: Y! [9 {; {) i: `5 mto reproduce3 v4 m9 |. I P% q9 G
ask turtles [
8 c$ F, n# b9 X. s& \ if energy > 50 [
, f' B* x, A* f9 s3 g3 I8 d) j* ^ set energy energy - 50, P+ P3 {/ J! O" M/ G3 ^' B
hatch 1 [ set energy 50 ]
. x, U1 B+ Y8 s! {6 [$ k h- t ]
' Y# m9 x( I( K+ A ]
2 {; d- H* }# r! yend
# D: ?& T- \. U6 ^6 u! E/ w! sto check-death2 G0 ]7 H; J3 C: f2 ~0 D
ask turtles [
8 z, i- W) v* |; u5 Y$ q5 j5 S if energy <= 0 [ die ]
; B& z$ B! k4 _' B$ A7 _" C9 R ] Y1 \( \/ K! B; `9 L/ [
end1 w1 @7 i8 ]) }8 ?) a& |. J3 b
to regrow-grass% A" B9 ^3 f! T' h5 R$ Z) Y
ask patches [
) M( S/ H" p- \, i. ? R1 P! b8 ]% m if random 100 < 3 [ set pcolor green ]% w4 g, d3 n- T Z9 ^& c) P3 A
]
4 w% W; `' T0 f7 Z+ Iend
/ E; [& g- b- `% z/ n$ lto do-plots
% C0 o5 ]2 R( c" E" s set-current-plot "Totals"
; x& a5 s; G, T% G) a set-current-plot-pen "turtles") h: s% y+ U2 _' d+ g
plot count turtles
' j& @7 x( t1 o: X; S4 S# i# p set-current-plot-pen "grass"
. X+ ]& U, M3 f$ V& y( G plot count patches with [pcolor = green]: h: _3 k; Y* h$ i7 P1 F, R6 ?
end
6 e" D( E& a: r7 o( [! q可是运行时提示no such plot: "Totals"( O4 E I# ?4 g: j/ b
error while observer running SET-CURRENT-PLOT
' F# g# Z( N2 Y; Q( T called by procedure DO-PLOTS: \% |6 n$ W1 \) q" B$ n
called by procedure SETUP
6 ]( A: f! H# e called by 按钮 'setup'
J& a+ D( S; V求大神解答啊 |