我编的程序如下turtles-own [energy]5 Q# x& S/ P3 @6 X5 X( U6 D+ s& v2 B: m
to setup
4 W b3 V' W7 r( c- c W! } clear-all
! V0 M5 s6 l# W4 d( o setup-patches+ I2 J: h+ Z4 c: i
create-turtles 100
- n: T$ Q) o7 I% @1 `6 L+ | do-plots
5 q/ t6 z0 [+ ?+ k- G ask turtles [ setxy random-xcor random-ycor ]
4 ~, q0 n4 o; M7 F2 r) z- G6 c/ send! ~* p1 G. Y' n8 H$ b) D
to go+ s! M! [+ B1 K) b
move-turtles
/ z: S) S, ^% V, K' S( i0 m" V eat-grass' d. }% v% d6 [+ _( m
reproduce( {; @) R5 o# \
check-death
/ M8 K2 R' P) B6 t L( l+ i: f1 \2 Z% d regrow-grass2 A4 S! Z r% ?+ ]
do-plots; j2 R1 }( M& J5 W" ?) e" R) w
end' W; Q' z. g: _2 b
to move-turtles
* X* ?- U' p0 ]0 F' c( {8 j# V ask turtles [
; _) B- g/ p4 u. g right random 360. Y7 |8 `' V- ~. k' ?$ M
forward 1
' s8 b! Z7 ?/ { set energy energy - 1
& r% n+ _/ W8 n' d9 u) X- _/ `7 f9 x ]4 { Y+ G% I; z }6 v; G
end, y# H! M/ |+ \$ p
to setup-patches, n3 ]5 z/ U4 y: `8 _! z2 w
ask patches [ set pcolor green ]% U: U" ], \# W8 @1 {
end
$ ?) b9 r/ k2 F& {2 Qto setup-turtles
1 l2 B6 ]% n0 A, d- y; { create-turtles 1000 h' E" ?3 G; N0 W& l; t
ask turtles [ setxy random-xcor random-ycor ]) u% K/ |* l) U z
end G& s& a1 ~9 n5 I: [6 @$ I
to eat-grass# M3 [2 G, ]+ n
ask turtles [$ |! w o8 I/ k$ E' l
if pcolor = green [
& [! `' c$ W9 Y set pcolor black8 X. A1 U& |1 A2 M% k; J
set energy (energy + 10)
( q3 p# F# L' F4 x+ Y ]
) |, U3 y* |- J9 H ifelse show-energy?
' y7 T) y. W8 h [ set label energy ]
, w& s3 T7 h& q2 C4 u [ set label "" ]- p! I. e0 E- a7 ^2 h( ]% F
]
: |' ^% s+ G& n9 Q; ~, t0 M& M* Q: Uend. U% g. {$ f9 u3 u0 C- O. i
to reproduce9 ^$ A4 V. S' O4 k6 B
ask turtles [
+ P, Q- B: l2 V' H- M4 n if energy > 50 [
. F7 z. H8 D: Z! ~ set energy energy - 50! I4 @$ {' d3 ~1 ^9 z8 p
hatch 1 [ set energy 50 ] m# a6 o# K9 ~; Y) O/ E+ f) u
]
; u5 a4 }3 C3 n0 D+ ^7 Z ]
; U3 f% p [. Q# M/ B. L- d' M* n" C7 P* kend4 m0 }- m: O4 u5 n# @0 h
to check-death
/ j$ B( |1 Q' p5 U) U/ d4 A* t ask turtles [
y; T5 l% S) s' X* ~/ b if energy <= 0 [ die ]
) N. r1 f6 |8 X C* h: e ]6 T$ a( X& s7 v' Z% a9 F5 {! j
end
( O( e# b+ p9 u/ `to regrow-grass& w2 J& Q4 N. V# H9 c
ask patches [& y; M7 g& W9 X0 m4 ~$ _( W" p; k @
if random 100 < 3 [ set pcolor green ]
! H# G' N( l' `' V ]
5 R" e# N( m, t4 l1 i# r' |1 ]end
6 G, Q$ o# v- F0 `% o% Z0 j& `4 ]2 wto do-plots5 k) y6 R1 P1 g5 m/ X3 c( I
set-current-plot "Totals", O; F0 J6 I) U- R- N6 c: N+ c! R
set-current-plot-pen "turtles"- `9 I W8 g" V. u+ _1 y4 ?
plot count turtles
) V, ~* _5 }0 f set-current-plot-pen "grass"
. i3 G& u( {5 ?( n4 ]% i plot count patches with [pcolor = green]# X: D5 g. x' K3 @+ s
end4 h* F6 C( n& C- o/ J
可是运行时提示no such plot: "Totals"+ i( s' L; H6 w0 Y2 F
error while observer running SET-CURRENT-PLOT& G. s7 t7 k+ `+ @
called by procedure DO-PLOTS
6 c; z6 J `. g( B4 r7 R: Q- w/ T called by procedure SETUP
3 R! n: f1 ?; J' D. y; ` called by 按钮 'setup'
1 w @; E8 n" H& E6 o求大神解答啊 |