我编的程序如下turtles-own [energy]: v, D$ Y" O$ n$ M& U, h
to setup
7 J: Z0 J( I2 L; n clear-all7 T* l* X( Q7 w/ ^( f
setup-patches+ p1 R0 t: i/ B
create-turtles 100
) k) |; H0 \6 V2 m! K* t3 I do-plots
5 O( `7 ]8 Y6 z' Y$ q1 Q: } ask turtles [ setxy random-xcor random-ycor ]& i+ v1 [* A& B& {+ j
end+ R4 S# [1 E. a- D; ` w: d
to go f+ U! Z1 h0 p
move-turtles
" i2 W; j; w$ K( O" Q e eat-grass
! j1 B6 s, ?0 c2 v% q) P9 S reproduce
1 f- I" @. D# ]( v3 ^ check-death0 K8 T: n" q9 N# ?' S4 m- B
regrow-grass
8 v( k4 _5 _8 P, [9 \ do-plots
* |, v2 O9 X% b$ y( |5 E9 cend+ l ~+ P x/ ]- X
to move-turtles
( p+ q5 F0 \8 g0 G5 a3 F ask turtles [* Y( X1 _; V/ A7 u2 U. J
right random 360
# N7 d, i% M5 H C forward 1
f+ X6 h: Q; N# F4 a* i set energy energy - 1
0 h$ v$ g4 R% L0 n ]
# u6 Z! g% N. \9 tend+ O6 E- o- F" l: z `2 E
to setup-patches
2 T$ n5 z* ?/ ]) b! P ask patches [ set pcolor green ]
0 X |; C0 a& |1 E6 q1 mend3 X+ C2 p v+ y" h+ n/ g
to setup-turtles4 l2 A7 o! e0 w* w5 ^( ^4 T6 o
create-turtles 100
: l" c i) |: ~! N( |! H' n, r5 b ask turtles [ setxy random-xcor random-ycor ]- k" H. F) q8 V9 M# H5 Z
end$ m' [2 g9 s. e4 L
to eat-grass1 H+ C3 ], ]5 h# J) G! H
ask turtles [1 i- Y! g0 [! ]3 @& X/ @
if pcolor = green [
, j) [. c S* O6 g3 v set pcolor black6 O9 |( g+ C U8 A
set energy (energy + 10)7 r* W0 ]1 I( K& }) O; A, \* Y
]
! K& J. ?6 ~6 D1 I2 Q5 [3 v5 h ifelse show-energy?0 v8 t q- J g) U! n1 U' N+ h. ]$ C
[ set label energy ]
8 N2 h4 w* N3 o3 l! J T9 m. W [ set label "" ]
; S2 W9 @# @9 j. x1 q3 G* B( i- ^ ]
7 V! r$ b9 q% u1 G$ @end
+ @. m) d8 Y, M) yto reproduce# R0 ^0 `/ ` ?5 @- O5 e2 s
ask turtles [ X( ]8 D( F: M* @& L
if energy > 50 [9 t/ {5 V8 f- r' a- ~. S& z$ r6 R
set energy energy - 50
. f9 p5 I& l' E( P# j+ M hatch 1 [ set energy 50 ]
* v" U- D& D1 E K) e1 u D ]. P# V9 y6 R# E% z. G" A
]
2 i( Q2 S5 o8 | E3 \" F( Iend
( d) l* L. C+ o2 W! `" j: `# g6 y7 Tto check-death
- u, V! |% l. C! d; E4 J: s' a ask turtles [+ J% d& ~% H# w3 v& E- G9 M' X
if energy <= 0 [ die ]
# i' h; m4 B( x6 r8 E. j9 n ]
b( V3 ~, W. l/ [! S2 n6 Dend
. h' V9 f1 T6 R& V( fto regrow-grass9 V! x( S& `! m
ask patches [
) X2 R' b$ p6 n& v5 S6 |4 |. Z if random 100 < 3 [ set pcolor green ]
* }- y. @2 B0 S! h4 U ]
* ?5 p1 @% R2 U9 H$ J) Y+ Bend
+ P3 `# n8 K2 F+ l' d. z5 @# @to do-plots
1 w) u; N2 u k$ K+ D6 h9 k2 x set-current-plot "Totals"+ s3 I# d2 }9 [) }/ @5 T9 w
set-current-plot-pen "turtles"
9 o4 J) K( ~ X+ t- Y- x plot count turtles
3 Q6 C) v. l' \+ M set-current-plot-pen "grass"7 D' _7 k0 F# ^3 W
plot count patches with [pcolor = green]4 F6 U7 \7 \+ O( h/ y
end c, L" t2 ?+ ]: P# \) j: N4 M' _/ Q7 u
可是运行时提示no such plot: "Totals"2 L4 [8 L4 `. u- r1 X# f
error while observer running SET-CURRENT-PLOT
# l$ Z2 D; V' J# _& \; W called by procedure DO-PLOTS% H: _# M. D7 U
called by procedure SETUP
2 G; c0 [; R8 z* {' N; i! S called by 按钮 'setup'
" o( ~4 ]$ N6 H7 m求大神解答啊 |