我编的程序如下turtles-own [energy]/ v, L+ N Q; _1 r
to setup
6 {( I- @4 V0 b7 k clear-all
) h- [5 F( ?" Z3 B8 v3 E' d" |" |+ X setup-patches6 U* @& z0 i- L. P; ~
create-turtles 100
1 q4 O8 |. z3 R do-plots7 g( G) Y; U( {" F7 I/ ]: v
ask turtles [ setxy random-xcor random-ycor ]
3 s& I* R3 S- R) x4 m' Tend
+ W/ E% t, f) [' {* oto go
/ v! n$ H, c& O, X move-turtles
! A6 \3 I0 w# E/ i! C, a% X eat-grass
0 H4 k9 S I; [- v) K" d w3 u reproduce
$ T1 p) m" E/ ]3 E3 b q$ P* G+ E check-death( u' W9 U3 Y7 W8 K* J, _
regrow-grass- u/ ]! Z# S9 w; X& e5 q
do-plots8 a+ d5 s/ N$ [* \1 N+ R( F
end" h9 H( a. K7 w" C! Q8 h
to move-turtles1 F9 o! s# J! J$ r1 r7 Q
ask turtles [
8 E5 e) g1 E9 g4 s% \7 T right random 360# O7 w, T6 i$ x) y( n
forward 1
7 ^9 g7 m: ]' _) {4 l4 Y set energy energy - 1
9 B# W/ f# S y8 |. Z, H ]8 }# \4 a$ ?* S4 {6 E
end
# O, P& F7 x6 n5 Z& Cto setup-patches- a! }" s1 N) P" C
ask patches [ set pcolor green ]! M" M6 s9 U8 P' a# w% l
end f$ V# F* I- o5 r( ^4 U* d5 C# [
to setup-turtles
) ~& m9 d# w( g) E; F create-turtles 100
. ]: x m7 H- j$ q ask turtles [ setxy random-xcor random-ycor ]
: D1 F; P' G& Wend; e$ E8 R3 C8 v7 y: e
to eat-grass
/ Q7 r* n& r2 ^7 O# K4 S0 R4 C ask turtles [& N3 C- M$ J$ O" R; K
if pcolor = green [
0 n$ l# U9 z2 J, S% z4 ? set pcolor black* x6 e0 _+ i1 _0 V' U, y0 n
set energy (energy + 10): ?% h* a Q7 T0 L! n0 a! K
]
5 n3 ]: h1 b7 n ifelse show-energy?; a$ ~0 D- u: x' {" g& I- F/ o' q. o
[ set label energy ]2 w1 \- n A9 f3 k" J
[ set label "" ]
/ q! u0 ?' D3 C; d; y( L) h; ~( X3 T0 p ]7 M5 d8 k5 }- h9 k
end
s: f4 N$ b+ i3 [to reproduce
6 N2 D9 A& K9 W" K6 b0 ] ask turtles [
" P/ c) a% K5 u, l# C/ M9 f+ ~/ X if energy > 50 [
% }7 X- D: a% Y( y set energy energy - 50
4 a% H" X; \ r. [. R0 Z hatch 1 [ set energy 50 ], a: Q \4 \/ _& h) S
]
4 D* G8 h* I7 G+ f; w" D8 B ]0 O6 I' G' t# p0 x2 R: x
end: z/ u9 a, {, X
to check-death" C5 a( @0 i! `0 ^$ O+ M* K- K
ask turtles [
2 c5 Z% N# O1 k6 T7 e! e5 A if energy <= 0 [ die ]( w, q& t& {: V& E. X
]- q- [/ \" @# E( W% F
end
% @ |2 E& {( Qto regrow-grass- X6 C" O4 r; v4 f2 P& z6 i
ask patches [
5 O2 f" ]0 J" Z% T6 l: |6 E if random 100 < 3 [ set pcolor green ] x: O- d% E, T$ _0 _: e
]
1 C8 P. I) [5 iend
% X& ]) K6 G5 k0 f3 Q% m! m. Ito do-plots
D! w( c( Y% }7 J& _ set-current-plot "Totals"
$ a& {2 v3 k3 \ set-current-plot-pen "turtles"
4 L$ Z1 V D- d. O0 I* V! m plot count turtles
, t6 Z* T \# `4 N3 B4 z) | set-current-plot-pen "grass"9 X+ m6 O; J- S1 ?& A
plot count patches with [pcolor = green]
# a: z" @+ x% e I$ [6 @" X5 yend; U7 A' l- z4 N( x/ a
可是运行时提示no such plot: "Totals"
4 a$ k7 a, g; z6 ^# b: Uerror while observer running SET-CURRENT-PLOT1 {) E5 u( C7 |+ M+ o
called by procedure DO-PLOTS ~- h1 _$ b2 @
called by procedure SETUP$ z; V" }5 p' q! n( P
called by 按钮 'setup'
! k5 l L. ?7 _# |7 y9 M4 i求大神解答啊 |