我编的程序如下turtles-own [energy]% i- T! b3 T, v0 l. d7 M
to setup% b5 v' R9 S( T' ?/ y5 _
clear-all; X3 q2 u- B+ A# V# {
setup-patches% j! X" z o+ `% N1 X
create-turtles 1005 c+ A, v$ a% ~- K1 Z: o4 p
do-plots& Z6 s& H3 b0 [) W
ask turtles [ setxy random-xcor random-ycor ]
! o, ~! [/ ^+ cend
( R, |1 N/ @: P0 X# I4 T" Ato go4 p1 J# g5 c- N. V
move-turtles1 O2 Z3 h# v9 p$ _2 A
eat-grass
( g; Q/ c! S7 d/ P reproduce* [. \# ^ } W0 ~
check-death
\! o, d, M; F( m Z regrow-grass+ R9 F4 M* s; }) K
do-plots
* T- q& J$ n: v; {. ]& {end
# x6 ?3 X5 @8 x6 t; ito move-turtles% ^5 f6 y" ]2 h& d; \0 g# L! ]+ {6 E- P
ask turtles [8 |* F" R/ z% | f
right random 360
& x- |# U1 C9 H' w9 B! ~6 q forward 1
: i3 q5 q [5 x% ~1 X1 w" Z3 G: | set energy energy - 1- t2 ^0 h. G6 }: j
]2 h- @; E/ N- O5 P2 }2 |. @
end
6 \' b& u% L, ato setup-patches
& H. |$ i4 J' e: G7 b2 c$ z, V ask patches [ set pcolor green ]6 X5 b2 o( \" }5 r% y
end
. M) a# }# _* ^# F& Xto setup-turtles2 G# \3 P& }5 n/ j% o
create-turtles 100
; P, c8 w1 t& e# N! S ask turtles [ setxy random-xcor random-ycor ]6 t, v2 m7 O* | e$ c
end
3 b o3 g' s `; w/ @6 [to eat-grass
1 p9 O$ C* `" e2 } ask turtles [
8 z$ D4 O% m, F e" |' j7 m7 a if pcolor = green [! W& ?1 v( F C; P q
set pcolor black, Y$ y' b. r/ F/ q/ l
set energy (energy + 10)
1 E" H" X4 @- L0 v7 b' N+ k$ {+ E ]6 o& e7 s% k; k) A
ifelse show-energy?
( `0 M( m. @ u" d7 Z [ set label energy ]' ~( o6 W$ E) u z m) D
[ set label "" ]
: I% @/ }; O" {7 r, e' |) d" | ]; n: D& O0 \% q4 ~
end
- F. n, ]5 B3 Eto reproduce
) ^& }7 d) {9 _* z4 ^ p$ G ask turtles [( N% D; h* R8 m8 G
if energy > 50 [
* e+ P" `* X/ |! N0 o0 f set energy energy - 506 ^* V$ y! Y0 u; r. i
hatch 1 [ set energy 50 ]
( G; F& e( Y. Q/ g8 b6 e7 b ]: w7 g$ Z6 i5 G5 B7 ^
]
: s) O# D( D) Q" S9 j" q8 e3 ]end7 R7 ^4 j( y& W; }( g
to check-death% c) y4 V; j# G, t2 L; G2 e+ Y
ask turtles [. s% Z& R4 c( K9 m7 w
if energy <= 0 [ die ]
! l, E3 J8 _7 N8 a: K+ Z0 P ]
* y$ X! d# Q) i7 u7 G7 d/ pend. N0 |, _" \; [; Z+ }/ y
to regrow-grass! X* H, n9 E% x, Q
ask patches [
+ F' o m3 q9 B+ z* R if random 100 < 3 [ set pcolor green ]! G+ O1 p. d% d8 w& n& Q4 t# I
]
9 H I7 |5 k# i! Iend# K3 z3 Y( `. F4 J: Q, G9 X
to do-plots
. }5 d. @; J/ ]" J% ~6 a set-current-plot "Totals"+ f" a/ a4 q+ H W0 H* ^
set-current-plot-pen "turtles"
. J- B! ~8 D5 q9 | plot count turtles
* Y/ t+ i1 {% I+ i2 Z% B set-current-plot-pen "grass"' ^" Z* |8 H& o9 M% ^
plot count patches with [pcolor = green]
, K6 H7 i1 h) Y: ~; oend% \3 }# m8 e+ l6 E
可是运行时提示no such plot: "Totals"
8 b* g! h/ [+ v- d2 S. yerror while observer running SET-CURRENT-PLOT3 {8 |0 C3 \" O# V1 |
called by procedure DO-PLOTS s9 S8 g& ?6 e2 F
called by procedure SETUP
2 `+ v; w* B g- g- J0 ? called by 按钮 'setup'
2 T2 x& |7 e: d8 E求大神解答啊 |