我编的程序如下turtles-own [energy]+ S, g: V4 P8 N0 _0 Y4 z
to setup
0 f+ ~4 |4 N2 R: U clear-all
6 m( Y% \' B$ P \2 d% Y" Y setup-patches7 D- b3 F, d/ H# ]# T) Z
create-turtles 100. \) H/ m9 k H1 O+ k
do-plots$ \6 }# V0 w, ?3 ~7 e
ask turtles [ setxy random-xcor random-ycor ]# W) p7 U; ^( H( b) J7 n0 n
end
6 |. A8 T, C1 c; ~8 Hto go
( s0 ?/ M* T, v" D8 l! }/ t move-turtles
& F# v# x- a9 c5 i4 R$ F eat-grass
7 G1 o y# [) P) i( E reproduce
$ s4 @+ ?8 B# o1 @ check-death4 L! Y" }2 ?* _# X! s
regrow-grass9 K$ p6 Y/ F8 _ @/ |
do-plots% N( W8 }% d- k- r$ n
end9 ?2 j n' Z' M3 [+ c
to move-turtles- O* s$ w0 Q" N/ b& g
ask turtles [' i8 w3 M6 H* D8 j/ E& ?
right random 360
. k& i9 Z# S+ r$ d" x forward 1
6 Z. X$ D6 ]; J. E) d) g( g% m set energy energy - 18 U+ D7 l; }# S8 p! \7 w2 @% y: S
]$ a6 v1 [& n7 e9 ~) n
end
2 J" a# {! ]3 C/ jto setup-patches) P% H$ {3 U2 a u0 N
ask patches [ set pcolor green ]
* Q# j. _& D& j, I, s3 [! l6 Z7 Yend
; Z: u+ q; g% h9 W" R T$ v; x& E& Wto setup-turtles
* e0 c* r a1 J, B1 i; t create-turtles 1000 G* x: P: e9 g* q) G' l: e
ask turtles [ setxy random-xcor random-ycor ]
/ P; B- Y1 h0 {) R/ {. D; ~end- C' q3 J; ?( z* Z6 e# A
to eat-grass
! U; g: G, ` a" ]* }7 S- W; { ask turtles [
" q# r+ L, q7 \. ^ if pcolor = green [9 q2 {: r& Y- v2 t' ^
set pcolor black" V, q' p( G8 H/ p5 r9 g
set energy (energy + 10)
$ a7 k% g$ E" y, z) m ]
2 D7 O0 i9 k3 V: @5 Q ifelse show-energy?
2 o& }4 _3 r/ x6 A) D, R* d [ set label energy ]8 I& e' g4 o# A* Z8 j% d
[ set label "" ]
; Z3 z, [: r( y3 A ]
$ g5 Z4 D4 k8 J! W% o, `+ Jend% \( y) J% U$ z- z: U3 _' q
to reproduce
# B7 G* N: g. p, Q ask turtles [% E1 b# m ^, F6 A: O P8 d
if energy > 50 [6 O# t+ J6 ^3 y/ o
set energy energy - 50% c7 z" @% q6 l* Z# c
hatch 1 [ set energy 50 ]
S) m0 p& N! f, w0 i4 T ]
6 U. A! n& f. y/ }; y ]
( ]+ Y4 ~# p' ~4 L6 D: Uend4 A, G' ^. ^5 F
to check-death9 e4 c) G6 D. a9 v+ j& X
ask turtles [
, b! f C$ P0 r& ?' g5 e3 P; p if energy <= 0 [ die ]7 X' [8 u. [! i3 v7 p! B( J
], I! d; F- I0 ~! R- Q' \& _( _8 }
end2 W0 U( Y# H7 E" U9 s* \
to regrow-grass( ?- ]7 P. z% B: O* U+ D3 d: {5 U
ask patches [
" X7 z- o, w7 A/ N if random 100 < 3 [ set pcolor green ]
h) P1 z' K, v& l7 K4 r, N ]
7 B+ R7 x8 Z: ~5 qend
) h( I% j+ E3 |4 K- Y( vto do-plots
* H* p" s# Z3 F+ i" r set-current-plot "Totals" \0 I z6 D( L# X7 a3 g
set-current-plot-pen "turtles"
) k. o& _( S1 p plot count turtles, G$ g( Y1 K5 k+ e! A3 u
set-current-plot-pen "grass"! Y2 F" {- ^2 k
plot count patches with [pcolor = green]
8 G+ E/ M0 z( T- K7 p: t& D# |/ Xend B- Y6 W" @9 H# U- k7 C
可是运行时提示no such plot: "Totals"$ ?4 c& ^: j/ D) F: x: O- z; e
error while observer running SET-CURRENT-PLOT
) R' I$ ~# ^( u; a0 P0 F8 w called by procedure DO-PLOTS
0 ^( s) t; j8 p7 q M" H/ w: O called by procedure SETUP
5 d' O- S7 c, {9 [7 }, W called by 按钮 'setup'
) N* _! G3 |6 K+ c1 m求大神解答啊 |