我编的程序如下turtles-own [energy] O. ?- m0 Q% x1 F; P/ G
to setup
2 K ?: X2 M; Y/ j0 D1 R clear-all6 v( \% {: v, H& Z$ U: O. a* \
setup-patches; k7 }! D& Y9 L# m7 e. b) o* O" Y
create-turtles 100& s# N: O$ V L# d7 ?* v
do-plots
4 F( C+ n+ ?1 P! F* s ask turtles [ setxy random-xcor random-ycor ]( E9 r9 D, t; j/ S/ j8 L' D
end- [0 l% k# L" U9 ^3 |& F* u
to go$ o( ?* ~* e# v! ~1 i% x
move-turtles
1 ]% k* v% n- q eat-grass" v% F! u" X) B
reproduce
( o) M+ \8 J1 x2 S check-death( _, H) E0 P2 a6 n& g! o \
regrow-grass
5 j" Q7 \' w8 m$ v9 X do-plots
9 |; Y+ _! ^3 J- Z" }end! ]2 a& c. y4 q N/ a5 {, x: r
to move-turtles
; V' p" R* D, K$ d, ]$ u* K ask turtles [( k6 G! q/ ~5 F0 c
right random 360( Y2 E2 y% \4 T7 O0 m2 r
forward 17 R& l' B/ e: K3 O: u7 ^3 r
set energy energy - 10 `# n2 p2 T: G* @$ B* |
]$ p2 B6 r) R5 e3 {
end2 q& F" v! B- [5 q @
to setup-patches
; ]$ y9 Q. E# y, }( j ask patches [ set pcolor green ]
" q& c- e, Q- w2 G; f& k8 Tend
3 X! w: H. Y: m1 [( G( u/ ]0 uto setup-turtles4 z$ w% K& W! N+ k3 N8 t
create-turtles 100
* m4 ^2 w- }/ j! E) d8 U3 Q& Q5 |! `3 Q9 H ask turtles [ setxy random-xcor random-ycor ]1 a6 K' y Y; b' H4 {1 P
end
) [8 Y E, y, q& L. K& tto eat-grass
7 p6 p( ~, _% |1 I, _; @ ask turtles [
* u) d" q0 K& D5 r9 z if pcolor = green [
+ M: I8 @1 ^- h0 i5 K$ g6 q8 Q W* M' ? set pcolor black
8 E1 t) E4 V. { set energy (energy + 10): z1 L2 p' u/ S! D/ G$ z
]
& @$ @- v8 g6 @/ D; b; g2 T3 b. k# N ifelse show-energy?
1 |* J& f0 g( g [ set label energy ], [" W0 r. P3 j0 x+ ?
[ set label "" ]
: u3 Z& b& C, p8 W ], H9 Z. z# D( s1 h4 M+ D# D
end
+ w8 r6 m" J6 ato reproduce; R6 z Q7 o* m& q" k a
ask turtles [
! S |! G$ G* E if energy > 50 [
, y% U. }$ E: e3 x0 G, c6 R& B set energy energy - 50
; ~2 F1 s8 r# t& B hatch 1 [ set energy 50 ]$ S7 p A7 D7 t2 W: Y
]
" R7 Q3 i# K8 z; r" @ ?' B ]
" _" S; ?1 Q/ `: ^: v$ Y! x6 }/ Oend( g8 c- \# V$ I# N0 V, q# g
to check-death1 z% }! q; r! }: w
ask turtles [
5 r" `0 F3 r+ x/ F if energy <= 0 [ die ]
# R1 m7 g9 r9 o9 S7 n ]
( I0 {; v8 p% n/ D- t: A2 fend( q& \: P9 R1 N! g4 @
to regrow-grass5 [; g7 M, Q- q# }' H
ask patches [
1 k+ r- N( e7 ^. P% G2 B if random 100 < 3 [ set pcolor green ]; H& h- N0 I0 n+ {% R' z2 f5 }
]* [6 _' {( N, \- H( E+ F5 ]2 N
end
" f7 A/ J5 j* w4 @0 gto do-plots
! P" l( K2 q/ Z7 E" E set-current-plot "Totals"
) P' W+ Q# ?# R set-current-plot-pen "turtles"" L( a& q! G* N' W) F L8 h2 S
plot count turtles
; S! S# [+ Z' m. u: h8 M set-current-plot-pen "grass"
/ Z, [2 |! g6 P8 P) c plot count patches with [pcolor = green]/ T# f" R6 I4 o7 ^0 U
end# M' R' v( [ }; e1 j) _
可是运行时提示no such plot: "Totals"0 _0 M0 n' H3 J& V% z: i' B
error while observer running SET-CURRENT-PLOT% E* v! P' K3 u$ q+ Q6 \5 }1 @
called by procedure DO-PLOTS* U1 j* x' f9 ^2 B0 p- w! R5 O$ F7 w2 r
called by procedure SETUP/ u4 E" d ?( I& V) H8 z
called by 按钮 'setup'0 v; H" j5 C1 u1 s
求大神解答啊 |