我编的程序如下turtles-own [energy]
: X& H, M' z; eto setup- H$ N$ K$ K, x$ ~
clear-all
( v( d- s- t& F" v# s% T" F6 L& Z! M setup-patches. e+ `/ d5 Q" w5 Q) a/ f0 s) f, k
create-turtles 100! s' v( {7 }8 @, Q
do-plots- E+ g8 g; x: ?" C* x# c
ask turtles [ setxy random-xcor random-ycor ]
! Q3 \- ` a5 v$ K# Lend1 t/ B# I! N7 d' ~
to go% y6 j) @+ G5 o/ B2 @3 D) ^% S
move-turtles
1 F( p& W8 P+ S3 m eat-grass
1 }7 x8 L3 h6 d$ k" W5 [+ X4 P$ ~ reproduce
4 i L1 e& H9 S" n- s# l. q5 c check-death' M& ~$ H4 Z. u% { p; e0 Z
regrow-grass
% e4 W' C! T2 s" X do-plots
1 `+ I2 z% `+ U" M; }end
d2 Q4 i r- V; A# Y- }; W: Fto move-turtles+ {. y: m& L5 C v7 `
ask turtles [
& A: u. g# x& ~3 o/ Z) k* H1 K0 { right random 360
$ C. x1 _# ~) B$ m' Y. g/ j forward 14 E: z t7 E+ E4 K: Y
set energy energy - 1
+ {0 T9 u- N# l# d0 K8 ]% a3 m ]6 Y2 ?( ^# W5 x0 ^0 y
end
/ [2 b' x& S6 M, o8 Lto setup-patches
5 d3 r6 q5 k4 Z ask patches [ set pcolor green ]
0 e7 }: i, ~, P, cend
' S$ o! `& k5 b, U: N; r. Y+ A: Rto setup-turtles
8 h" j4 K, |1 C# w. G, t. M create-turtles 1006 m$ Z3 q7 @* a8 K2 X# J# e
ask turtles [ setxy random-xcor random-ycor ]
/ i9 Z* Z+ |! V* {' Wend7 D/ ?2 L/ h5 x1 W# D
to eat-grass4 P6 t3 P+ F! q0 v/ W: y) X
ask turtles [
: p" E2 i6 w- `' _1 z if pcolor = green [
. S, C+ o; v* H" b6 P6 V( N set pcolor black. u% b# j* P7 U: [! i) [
set energy (energy + 10)) T, {9 f. C0 Z/ b1 m: \
]/ ^2 _# Z" ~2 N/ x
ifelse show-energy?
4 ?% v7 X9 _: b( h% b8 Q4 C% X [ set label energy ]* T v5 o' M7 W, H
[ set label "" ]
- @2 y+ X0 V5 e( \% n6 U& |+ H/ R ]/ I8 J) H( {/ h) x2 e; u7 g) v, C
end* m( l, y/ A1 A. |
to reproduce
; p; {1 J0 k" t! p ask turtles [, Z1 L( ]' C* G) `" d
if energy > 50 [
: X: c* b" a( a1 ?4 @ set energy energy - 50
. s: A& y5 f+ T' _" t' A hatch 1 [ set energy 50 ]
9 G, g% A' G6 J4 p# g( c; A ]
3 L2 ^: W+ g( l2 V5 n) C' U; | ]
* o2 C' Z, J) S" {( Z; ^8 e; O* zend
4 a+ N/ h/ {5 G/ ^1 c M- u5 H, r5 Eto check-death
+ C3 }6 [/ U% d7 U" T! v$ [8 Z" `: B ask turtles [% Q. w- L0 Q& a, X$ k- O
if energy <= 0 [ die ]
! r; z, u3 f* E& M8 c. h ]
; S" R+ K2 n$ l u9 ~end: _7 o: F2 S/ q# C$ z- Z1 `
to regrow-grass, y* f2 e# a6 p- T
ask patches [# @1 b9 t8 v9 ?% Y
if random 100 < 3 [ set pcolor green ]0 L! P1 V5 ]8 q$ z* g" C3 T. r
]' a: R4 i+ U# q$ }- f3 j5 x
end
; R4 p( {4 S3 j; I8 rto do-plots" |' `) |4 S8 \# f7 V6 ^: J
set-current-plot "Totals"
( g# w- V/ Z7 w y2 o set-current-plot-pen "turtles"
6 w- @ O/ ~% a plot count turtles* K! Q" j! I" d+ f+ o
set-current-plot-pen "grass"
" |0 L( `8 [+ i }: c* S plot count patches with [pcolor = green]
! G5 Z0 f4 f5 Lend" v, H2 _* O% n R
可是运行时提示no such plot: "Totals"- F' W: o: K) J0 k
error while observer running SET-CURRENT-PLOT. p' x$ s5 F! @! A$ B9 I/ \
called by procedure DO-PLOTS
9 v1 R0 u( K: F5 I( d r% b called by procedure SETUP0 Q+ E( H. X% A% B$ ?
called by 按钮 'setup'
3 k$ V4 |0 `4 d h* |/ w4 z/ O求大神解答啊 |