我编的程序如下turtles-own [energy]
$ s0 R8 ]! F9 N$ k3 M' Bto setup
/ u0 ~, m4 ?; t* j- i3 R! c" f clear-all
4 S1 g! W% L" d setup-patches
0 S( R2 @' R6 y9 ^4 ~; Q2 H create-turtles 100
; d* w3 m/ Z- V' p do-plots% R' O1 w( U% N( Z) P
ask turtles [ setxy random-xcor random-ycor ]- a+ e# |$ |4 A
end
! X' m& Y8 m: U2 \' o/ ]! a2 F9 _to go* ?! C& O1 t s6 u1 G0 d9 F
move-turtles
7 }; X+ i) N% m eat-grass
, c& E! L1 ?8 P, z+ m5 N reproduce. ]1 H7 m( U4 P; ~) g5 d X9 o4 Z
check-death
# I% t) [) }) ]& v) v; S7 X regrow-grass, ^2 R' J4 ^* f0 W7 J
do-plots
" _# l" J: E: X6 V8 mend1 J3 E5 S$ |- N
to move-turtles
: C C U( F; U" K) h ask turtles [6 b5 _7 [; X0 v$ |2 [
right random 360
. [5 L3 y5 u4 E9 h& g) Q forward 1* ~# X) L4 F7 G
set energy energy - 1
8 T$ S2 [# V/ ^, |5 ]7 ?. J ]" _/ G) ?) v1 B% c) B' _: z
end
5 _5 S3 D7 s# p) E9 @. o! Wto setup-patches
, c2 e3 N# c: F ask patches [ set pcolor green ]# \! f: |; Y7 Q! \0 Z
end1 G% ]0 R1 s, J+ J/ L
to setup-turtles& W5 J5 J' K% `# P' n2 S) n. X' i
create-turtles 100 `7 N1 _+ w7 a( B
ask turtles [ setxy random-xcor random-ycor ]6 k' k0 u. |2 `% v, v$ {
end
! \) u( u0 `; C, w8 q V; zto eat-grass" y; a) ] I$ S8 S* v
ask turtles [
, U' X+ K; \6 X. ^2 H1 R if pcolor = green [
% ^2 Z# ~& a+ e5 |9 L( Z" Y/ { Q set pcolor black0 C4 U# k' {; h1 A
set energy (energy + 10)
& m7 g I. a3 I8 N ]
( l) P' U7 l) w+ L; ~ ifelse show-energy?2 _$ l" j+ x% ~
[ set label energy ]
3 }: ?0 {( r& i3 v0 x0 } [ set label "" ]: o0 Y" f3 V# B6 O" C$ u
]
2 d7 ~% V& d( T2 j4 O& @+ ^end
6 ?* }: E6 d q' x5 g" Fto reproduce& g8 ]8 C Y' m# L( b
ask turtles [- V- l j# E( d: Z& m, v* I
if energy > 50 [
2 ?, }; `: F! l8 u# B set energy energy - 50
( G* [9 M6 g( }, }+ | hatch 1 [ set energy 50 ]+ v! l% m% ?2 a3 W% ?
]
9 c. n& q! H2 j3 P$ D, m. x ]: s$ W7 k: {$ s* v; m
end
: f- g' Z; J. k. g" xto check-death- x% I: Y# K$ h/ E1 _( S% Z( ]
ask turtles [6 _- J8 N' w- \1 A' _+ m
if energy <= 0 [ die ]8 l3 |5 ^, Z. g* A8 I8 p1 t
]
r' `: f: I6 wend
4 R1 i, e: G% C( ^- l4 oto regrow-grass0 }3 m9 ?1 o6 u2 w2 k5 M g
ask patches [
! p/ S* P0 h% Y) r" ]1 W$ A; h0 w5 X" } if random 100 < 3 [ set pcolor green ]
6 v! k# ]* h9 q) `8 X C9 @ D ]# `: E$ {4 f5 G/ J" w( {
end) g4 E! N1 z T" ]$ M* Y
to do-plots
7 x+ X) I- W t( X& t# v2 ~# M set-current-plot "Totals"3 S& ]1 s. }# w; ^5 ^% P9 K; N
set-current-plot-pen "turtles"( F4 U0 o, t7 t9 B4 K& q P2 y2 v
plot count turtles- V4 k1 h# n0 }/ W- w3 V0 N
set-current-plot-pen "grass"# O7 u6 T* Q3 A% F8 U3 f& ]
plot count patches with [pcolor = green]
6 y- T6 ]% M$ b* ]7 vend
- s/ e' G, l+ c( s- V: s# U# Q可是运行时提示no such plot: "Totals"7 l# N9 H4 V' N2 H! `
error while observer running SET-CURRENT-PLOT1 ~- I& U0 A4 q d
called by procedure DO-PLOTS' x/ d7 A! t2 m+ Q7 m K! @
called by procedure SETUP
0 s. K$ I: \- l3 s called by 按钮 'setup'
' {. o1 C$ @5 |1 ?9 J* m求大神解答啊 |