我编的程序如下turtles-own [energy]
# e' A% j( L6 a6 @- [, `) Q9 kto setup" g+ |# R( T. S, y4 E4 M" S
clear-all& x/ m& F( J; l' x# k
setup-patches
# w/ M6 U( j: I0 t: j1 ? create-turtles 100
5 \0 L% E+ x! C' O- K0 o- O% o do-plots
( c' Z, v/ `. l/ I+ l ask turtles [ setxy random-xcor random-ycor ]8 B9 X, A" [1 W% C) j
end
( ]+ T* U& y A2 F5 a- K) kto go
" s1 A0 H) y3 U4 j9 S move-turtles& r' q- Y- e( [; P. s! ]
eat-grass; ?1 i: U" b7 c1 Q/ q2 I; a
reproduce
, s3 U- J, H) c6 ~3 I% _ check-death
p$ h# q) E0 m# F regrow-grass& f: Y: F' h0 u/ R$ p
do-plots
' `& [" l% v& rend
* j, _8 g! r1 h" e# \8 ^( Y5 c3 g- _to move-turtles
9 A( F9 V9 |0 M7 g* Y) L% I) t ask turtles [
8 X5 f+ u% m2 h right random 360+ k, Y9 U9 y; ]
forward 1, m0 c4 K, A1 o2 [8 V$ g; V
set energy energy - 1
; c6 b4 p6 y8 @$ r& J ]
+ G5 m; Y8 p g5 g0 g/ Yend
# V% Y1 \. ^* Gto setup-patches
. l! T- g, W% o; O5 i5 I ask patches [ set pcolor green ]
# j" A: | |+ U* d9 ]2 o$ S1 gend
: r' V& X9 O( Vto setup-turtles
& X, h! D1 h5 A4 I& O create-turtles 100; w$ L! ?8 g% H! t) n2 }
ask turtles [ setxy random-xcor random-ycor ]$ Z% U' d3 r# U: U+ S4 W
end0 t* [$ y, _, M* C. d
to eat-grass, G- m$ L( q" G% F9 A, _1 Z3 i
ask turtles [
; m& R/ h v# @1 k if pcolor = green [& t/ A/ u, d' u
set pcolor black& C. e9 ?/ C, ]+ t7 s6 ?) t
set energy (energy + 10)
6 {3 f; W4 X/ m8 l" S4 z6 A/ F ]) _$ U$ N* z4 \" f4 x( }; N' d
ifelse show-energy?
8 m, L F' _# V: t. n [ set label energy ]
: p3 P- d! Y0 [3 _4 r& R [ set label "" ]& E0 P' c/ w+ C# c! q" Y
]
& ~; `5 g; s" D" Qend D2 A( U, \9 J- g! p
to reproduce
9 ]5 }4 o! q- A) v4 Y1 W ask turtles [
8 d0 C& y* Y5 B: g- b if energy > 50 [& t( |0 X! s5 j3 o/ D# t
set energy energy - 50
$ W4 N) j# S. J- y" S hatch 1 [ set energy 50 ]
8 I' K1 P. v: v0 c, X9 x$ ]' G ]
# Z) g6 o2 d& B) O ]
+ M( l8 j* D9 d, O1 jend
; u0 H0 J6 t8 p' L! E& b. xto check-death
+ q& G( l+ G! D( H$ j; d ask turtles [
: v4 ~6 [8 h0 x2 {- @" @ if energy <= 0 [ die ]5 @5 L8 Z: x1 P3 E
]
, T8 _6 o' ~# f8 C% Yend
5 F) |3 f; K- |$ dto regrow-grass
( a0 W1 C5 x1 ~. k7 i ask patches [7 b% u* U( z9 |+ O3 t9 m/ v
if random 100 < 3 [ set pcolor green ]
& h5 |/ M1 q; a1 | ]6 T# ?" R* n& N5 _
end
" ~ t6 P6 u1 v6 r5 Pto do-plots& N0 F0 o/ D' g( a: I( i
set-current-plot "Totals"7 k6 v8 a0 [# F4 ]. D
set-current-plot-pen "turtles"
( h# y. ?! X. s% x: o plot count turtles2 a: R1 Q2 r( P& P6 n
set-current-plot-pen "grass"% ~! D+ R$ }) U, R' O5 @
plot count patches with [pcolor = green]: S! H: _2 J4 G- r0 v
end1 `+ C p! j7 V/ z+ ]/ Y$ ~8 k+ U
可是运行时提示no such plot: "Totals"
' k8 j B& k3 ]: @; y5 p. Xerror while observer running SET-CURRENT-PLOT
' T/ k$ }; _% [ called by procedure DO-PLOTS; a# m# F+ K) }1 D" V
called by procedure SETUP
" \+ `7 g& j8 q, W# o+ F called by 按钮 'setup'4 o8 `3 x4 l; {" K- w
求大神解答啊 |