我编的程序如下turtles-own [energy]
9 m$ i, S: m7 F8 t& T& Dto setup) v9 O' g% N- y1 U
clear-all
6 h* O& G# ^' @+ _% E setup-patches0 a2 n7 b: B2 n ^' l4 v
create-turtles 100: Y B* {9 [6 m: Y
do-plots- t( t1 E3 f: F( H/ ~+ e
ask turtles [ setxy random-xcor random-ycor ]
* _; z; Z2 ^1 S% C, {end: m1 s+ W4 I7 F, {: P( a6 ~) d/ c
to go' Z7 c7 T, d6 I) Q- ~+ M" Q
move-turtles
1 Q6 w) y- @$ U- |! C eat-grass0 L" P* P3 e N
reproduce
4 l6 i6 N7 O7 K0 f. B @4 Z0 ^2 O/ C check-death
4 c. ~1 K/ A, t5 {8 R/ r2 D regrow-grass
# }9 P6 C1 B! a: \& x, `. w do-plots6 W: U, u4 |/ U' @: c) J
end' k& U. a0 o( ~9 X" h9 W. G# _& n$ k
to move-turtles: m& c6 K3 _6 m! x
ask turtles [
b$ U; j# r$ ]0 D7 y right random 360
' L- V1 W8 k! M, T forward 1
( x' K" `6 u8 A2 m- @9 O3 [ set energy energy - 1
7 X! S3 y/ \8 a0 Z ]
5 w9 D& Z5 B% V C0 S1 X/ \end
1 A/ b6 H3 o uto setup-patches; b& F9 ^% A8 r8 m; v0 x
ask patches [ set pcolor green ]
0 s" R1 h1 T* l! w/ o+ @/ I2 J5 Eend
* e2 u6 e) Q& W/ M& a! p. a' ], X! f* vto setup-turtles
3 f$ y) J, N" Z$ Q create-turtles 100
! N }; M( N; O2 `" G ask turtles [ setxy random-xcor random-ycor ]7 M% [# G3 y: @) ], a
end
3 C) d' N$ ~2 \- _. tto eat-grass; w$ S2 D2 m( V' K% B+ J
ask turtles [( E. Y1 d) G$ w' i; y
if pcolor = green [7 [$ z* q. N* O5 }+ W9 Q( l2 Z
set pcolor black) z. m' c f' P/ T8 h
set energy (energy + 10)0 E: G% S) C2 U. {1 a/ c, J0 @
]
5 r, x- b8 x2 g0 @5 r ifelse show-energy?, y7 X3 g W; [9 e) q5 H8 `
[ set label energy ]/ y, X; T6 L1 n/ t
[ set label "" ]) U# E2 f! ]7 K0 e% v; H* ^8 M1 ?# b2 q
]
, i* F) N, ^1 yend
& A2 Z) p* v4 m, z% ^to reproduce3 a% _8 \" n" z& A! J- n
ask turtles [
% ?3 A2 k% c( {& j2 X+ u8 j. J if energy > 50 [
1 V$ i& M) U0 Y4 h9 |5 E set energy energy - 50+ N2 f9 s2 h# c) j9 V& T/ [
hatch 1 [ set energy 50 ]
w$ O/ w1 j9 Z/ C ]
$ _' N0 E( P! E" p ]
! T, a. R6 A1 e: e' C) Q3 oend
( ]( F1 D6 t* Z Nto check-death
/ h9 T4 b0 G2 _: M1 M# N& Z ask turtles [9 n* E. X4 n7 R
if energy <= 0 [ die ]7 P) }4 v9 t2 H& y/ H9 x% e
]
0 D# T* l! j2 `, W) z/ k! bend
* y! t1 q9 Q9 b& `+ \ _: u+ p# [to regrow-grass1 F, i( K1 k6 X3 r1 w3 I
ask patches [; i$ j5 w- k- R9 B4 S& F+ a. Y+ g
if random 100 < 3 [ set pcolor green ]
1 j4 ]' m% ?2 G$ y* d ]; f4 A/ W. p. r$ F8 A8 i
end
5 D x# `. @! i: g! tto do-plots
Z2 k4 S6 v9 ]2 G set-current-plot "Totals"0 z- m, x9 R3 o* ?5 p1 s- O1 ~
set-current-plot-pen "turtles"
( x4 \- T' e4 i3 J0 [ plot count turtles9 ^( ?2 y2 v# P
set-current-plot-pen "grass"
0 r( |. G" X" a plot count patches with [pcolor = green]3 ~5 I" M4 q' I& ?' |; @" `
end
5 v; n3 g) W( G; n可是运行时提示no such plot: "Totals"* u, p8 ?$ b: t; C. ~
error while observer running SET-CURRENT-PLOT8 A+ n! `; h/ |# G S7 C
called by procedure DO-PLOTS
; d( g+ ?7 E: t; @2 Z2 \1 j: ^2 j called by procedure SETUP3 a$ B8 K- h% y
called by 按钮 'setup'
" W0 z* i/ r6 A4 U求大神解答啊 |