我编的程序如下turtles-own [energy]
. f" S. N+ h* h# R* Pto setup! K: e& K/ J" E! D1 \$ b) G
clear-all
) e7 Q1 [/ @* @0 [2 l8 C' { setup-patches
! H+ i& [* m9 [# U; V# ` create-turtles 1007 K. H# |: i+ i1 I4 K& {3 K; |
do-plots
9 }( }( h# J; C. U ask turtles [ setxy random-xcor random-ycor ]
. ]5 m4 p, a: n+ { a1 d% G8 Qend
) r) V' {- U5 P0 G5 r' Zto go
9 a9 p& G" i0 E6 F1 _ move-turtles
+ Y8 F& a: g+ c" {% G; p1 y eat-grass) [; c+ n2 n. W; e' s9 Z, z5 }
reproduce
. m" w7 n, v( m check-death( _' T1 c, o+ U$ F; k4 b# y0 ~
regrow-grass
- l! c3 e3 E' o+ } do-plots
, G& {2 N7 q, g2 yend
0 l1 y' i4 S' e* E+ G# F* Dto move-turtles$ L1 b: a0 K/ k0 b# ?1 l
ask turtles [
, o6 B# T2 h* y5 a% r0 Y' \7 s2 B right random 360
9 {+ K. p- q( U9 ^. j! _3 y forward 1, B, m+ A( [- Q+ b* X
set energy energy - 1# \( M$ q5 `( R1 ?+ k
]
- ?) o7 W5 i2 x, Lend
+ D6 r! C$ w7 e, H6 K* k' l8 [ yto setup-patches1 D3 n; j+ _: P- g6 y. ~
ask patches [ set pcolor green ]6 p( `! J! i% A
end
" L( l8 z5 j: Wto setup-turtles
7 [' [9 b3 k7 H9 A create-turtles 100
, r4 T( Q- u. [1 K# @7 g9 Y/ ~ ask turtles [ setxy random-xcor random-ycor ]
4 _* d0 V+ k, Send
8 s3 F5 g2 @( r7 a: Oto eat-grass
5 O. W n) f3 K ask turtles [) k; o; x7 [6 D W" N. Z8 [
if pcolor = green [$ c4 G: q- L$ D4 `& }4 W8 {
set pcolor black
( t! v: d1 D+ Q& y$ l9 ~ set energy (energy + 10)0 l! H. J! g' w+ v' L
]* \) X& C& {: s; D1 z
ifelse show-energy?
5 Q3 E- f* c8 d6 V [ set label energy ]
8 o- `0 \9 Q- m4 `4 @9 H1 d) z9 r; q [ set label "" ]
/ ?3 R6 T# ]7 z/ s6 R ]
+ O! f) c9 i" k7 r& K6 p& yend* C) @/ G8 {. b+ \3 p/ ?4 A R
to reproduce
' E& j' `+ _+ j7 t ask turtles [
% ~3 c( v' k2 a9 d& g. v6 c if energy > 50 [( |/ n8 V7 U b& y
set energy energy - 50
, M2 p" s) |$ Z2 B( S hatch 1 [ set energy 50 ]0 y ^: D! y6 p& d
]
1 w" B4 n& K# U# T) U; J ]
4 u; |$ E6 ]2 i' v& ^end
' d# I, ?0 `: `to check-death
. ]. ^6 @0 `% F% ]+ E$ N3 i ask turtles [2 B) r) h d9 r/ o6 D- r6 s
if energy <= 0 [ die ]5 g7 G! d& M) ^. [
]$ T' P6 S5 t4 }. [: h: k- x, U( t; G, a
end
0 k5 Q- u$ e- S$ |# r: X! ^to regrow-grass
% b# q) y- T1 l* T5 d7 I+ P7 O ask patches [
" t z- a0 \ S$ N) j& R- m( @ if random 100 < 3 [ set pcolor green ]
9 T& T4 ^$ M2 N5 \) M ], H5 H$ [' g0 v( \6 E. C5 ? j
end9 i1 p+ K! P' d- i4 V* ~0 A9 S( i" |$ @# d
to do-plots
( x# Q: u: n5 D$ B- p set-current-plot "Totals"" t4 \9 m% n. v# D8 l( P
set-current-plot-pen "turtles"
. ?) N9 x9 B# | plot count turtles
9 `* r6 ^. z% r, C( p9 d set-current-plot-pen "grass"
7 S% p, ~+ V- I2 z: `2 D, D% Z; u plot count patches with [pcolor = green]
) c; O: s, v' }5 f1 A' O cend2 q6 K3 d' W; T7 y
可是运行时提示no such plot: "Totals"
0 r; d) B$ z" U3 }error while observer running SET-CURRENT-PLOT
9 I8 p' M2 T3 g2 W9 C$ R called by procedure DO-PLOTS
: W3 F! E& N3 [$ G8 m called by procedure SETUP) i7 x0 K2 f! I, k( r& B) Y
called by 按钮 'setup'
8 n/ G# M9 {# g; [2 o, K+ I求大神解答啊 |