我编的程序如下turtles-own [energy]( f6 z, @# d# ^' U
to setup$ ~, E" @- h, @& M% ^" ~/ ?* ^
clear-all
# u$ R" j3 C3 L# r setup-patches
8 i+ @/ |" M: R; X" A, R* g5 ^7 F, m) ~ create-turtles 100
; B, B6 d8 s1 @' ] do-plots9 n! }8 s0 s5 |4 E, e* D2 ]1 z. r+ V
ask turtles [ setxy random-xcor random-ycor ]
8 k! i3 K8 P) r/ Vend
. i% n2 P6 g! q7 A/ F. I) Uto go+ m& ~; M# X) o' F/ `% s9 [
move-turtles+ ]# [: m. B" ^! o$ s" R
eat-grass
* C/ [( D4 I% d7 o# d' H0 K reproduce7 ^+ P6 n2 `4 S, V
check-death: G8 ? b/ ^' e, }% p1 v
regrow-grass
# ^) V( ?7 y& k* ]# }$ i do-plots
- f# u8 A ?! ^) T) @/ Xend
' ]; E# F+ J- B+ Eto move-turtles# ^0 H: h d& q$ M, g5 d K
ask turtles [
$ Y' S0 J5 U" m% D: Q. c) P right random 360
: d% `( b* c- l( P forward 1
, {* o5 b. }; Z7 Q* R/ q4 q% q% N set energy energy - 1% L) m( W+ l( i/ P* j1 d9 P
]
+ i! V6 {% ~9 I6 C5 Qend
, X' M6 D( O# Z5 ato setup-patches1 w3 j6 [% F$ s/ @9 R) A0 Z+ H+ y
ask patches [ set pcolor green ]
4 e1 L0 P3 n+ L$ a4 Hend0 {: j! f/ I( p9 b- p+ h
to setup-turtles
5 s* @) L; f J1 B) b% h( e create-turtles 100
/ f) F/ H( B: q5 I1 H& l. E ask turtles [ setxy random-xcor random-ycor ]* b/ w1 _& h* b+ C
end
2 B# D ~% L* x) ?5 h7 ^to eat-grass% O" U* R+ T# d, O% M& f
ask turtles [
' r# [# m# X" o if pcolor = green [0 l$ n+ b+ b' B7 u# A( x: R
set pcolor black
( x, Q" M. v# ?# ?- y set energy (energy + 10)' r- Z6 e7 u, F; k" J8 J$ k0 W
]
; j" i s( m8 f# w1 c5 G# a, Z/ R ifelse show-energy?
% @- E" v0 B4 n& h [ set label energy ]% a+ a X4 |* G- X, c1 X
[ set label "" ]
3 q/ ^: U( K- Q: E; @ ]+ s) b# b7 Z# g# v% t
end) c1 ], e9 S. X* p+ }! H6 B) s3 m
to reproduce/ y# o1 a) H" S1 x8 v- M
ask turtles [0 R$ I9 w5 W# |
if energy > 50 [
/ u" R h4 j0 w. ~1 u, X Q. m set energy energy - 500 J% T' g* e- b g. G! E
hatch 1 [ set energy 50 ]( t- u) A5 E, ]8 x
]( F0 |7 I9 O b% W- ? n- U
]3 E/ `3 |" v0 w7 D
end! b! S1 G/ n- s% f, j& c P
to check-death
" V1 q* ]+ E# y1 K: E( K ask turtles [
* ]6 W- q- Z8 Z2 n& x if energy <= 0 [ die ]
2 Q: `" [; O( d8 ~# T# U2 q ]
, A- ~6 K. `) R7 O3 M0 x8 Kend/ X8 T$ y; S3 d( j- H
to regrow-grass+ S' v8 r9 v1 q4 J! k
ask patches [
/ V% `& x) Q9 X9 z6 n7 Q if random 100 < 3 [ set pcolor green ]
0 O% |# j% L$ |) k" Y# P! T) K ]
/ @, b& I5 G/ Mend0 C6 A o7 [: B, J5 r
to do-plots
9 L9 Z; Z6 a* c( e' P" | set-current-plot "Totals"
$ _; p: T' a/ l/ h2 g set-current-plot-pen "turtles"
0 C. n, t) K; O" U1 X0 A- ` plot count turtles! k% Q8 p- c+ R6 n- W
set-current-plot-pen "grass": f4 { v a& C/ M7 k
plot count patches with [pcolor = green]
t# r7 N9 ]# x( _$ h) n( fend
! L2 Q" s; N- J. U( V/ t6 L/ W4 |1 S可是运行时提示no such plot: "Totals"- y/ z! v5 ^- E; W+ u8 B
error while observer running SET-CURRENT-PLOT
- m: s5 r& w+ u, i9 F called by procedure DO-PLOTS& V: l1 w4 P3 @
called by procedure SETUP) R: K5 ?! `& X# H
called by 按钮 'setup'
* |! J# ]0 ^# G( h$ q1 `; ?" P" o8 [' o$ P求大神解答啊 |