我编的程序如下turtles-own [energy]
' O) H6 K+ o. \! vto setup* V* F" B; N: E4 [: s- x
clear-all
0 g8 |/ W6 b- L: n! i5 n setup-patches+ r+ b+ ^, b) _. B \9 s
create-turtles 100
! |, j+ `/ B! I7 \1 b" s4 q do-plots5 R0 P2 v) z) ~' @) o' w$ i( C8 A. S
ask turtles [ setxy random-xcor random-ycor ]4 N: Q% y) g* o
end! ~( o, S; ]( [* B* n2 W
to go5 V1 J/ d+ a% p: ~1 c
move-turtles6 C! A9 i! f, }6 _9 N
eat-grass
0 l' C4 @) o+ |( Y reproduce. q, Z$ O. E( F1 C3 @
check-death
" @4 u$ f9 j, t& b regrow-grass2 e5 B* b! t7 }
do-plots# m0 y$ c9 W6 }' Z
end1 R/ w$ s P. Q7 B* E/ F
to move-turtles2 |# T. z" q+ ^' ?" y
ask turtles [/ H$ _) |6 q7 F) {3 n
right random 360
# n* y5 |6 X, E' H9 r forward 1
. r" s+ } C8 b3 j8 E set energy energy - 15 W' F0 `# Y5 _% q |
]5 M8 d8 [: Y. F {4 b8 N
end
7 Y9 N$ J; w- [4 g. b5 w/ e$ D/ kto setup-patches
6 _- A8 j+ t) X" c/ p( V8 u! x$ ~ ask patches [ set pcolor green ]6 p6 o/ _2 j, Y2 i5 ^! i/ f' B
end3 t: j; y- H4 K; [" m
to setup-turtles; ]( i8 _: ~; A, P/ K* V
create-turtles 1005 S N+ `, I! g0 G% d# S
ask turtles [ setxy random-xcor random-ycor ]
2 D+ P7 t3 _# Fend
( M, o( h- Z7 K2 hto eat-grass2 i4 b; y' _" e: o7 t3 k/ D% x
ask turtles [( ^# @4 X6 N8 v6 a5 k
if pcolor = green [
9 G. l6 E3 {+ S/ a0 ^4 n. B+ l set pcolor black( h5 e* M( `9 T" N3 |
set energy (energy + 10)& p6 I/ R5 ?( [1 e: W% O! A! N4 a
]+ I$ a0 H% n8 a7 Z2 Z" }6 Y2 O7 i% b+ h
ifelse show-energy?: [! t0 w: S. i7 [( Y7 {
[ set label energy ]4 h' Q2 @0 h9 _
[ set label "" ]
N$ }1 A* [; r* W' K/ ~7 r1 ^) A ]/ w' I0 z0 x& Z% Z/ Y! q. ~
end
. z2 `! u3 w" a, s% i' @( E6 C7 [" b- dto reproduce5 |1 L2 B, a% J1 w7 {: B1 J+ S
ask turtles [
' z) _' E8 E, D, {, |! X) B6 a8 }; K if energy > 50 [
: b4 |. e' g% b7 L$ \ g set energy energy - 50/ J3 H9 M1 G8 s0 j S
hatch 1 [ set energy 50 ]
5 f9 H& ?6 o* K* Z/ k7 c# M ]- [" g }3 k4 e9 J1 T
]9 u2 D, J8 Y. J* u4 n
end
# g+ ], N E: C& n" \to check-death- L! U( k. I2 X/ s
ask turtles [( ?- j/ I2 k, m: x2 y- \. m, _8 f. n
if energy <= 0 [ die ]
& I! j5 Z' j, R4 j) }7 ~3 p9 N ]
, G$ ]! T: Z7 T1 Send
" ^6 X j' \1 w& [; [, Ato regrow-grass
( z% m/ i& x& x9 j! }% m" T2 P6 l ask patches [
3 R/ W/ |" W9 G- X; B if random 100 < 3 [ set pcolor green ]
$ @" ] m3 c% E# w7 C; l; y/ n ]
0 s7 s! B4 F, ]end
8 s3 C s' V9 I1 ]7 ~; Jto do-plots
! J3 `+ ?6 r6 _9 s* P% N6 B% ` set-current-plot "Totals"
; x' D: |* S0 g1 c: R set-current-plot-pen "turtles" W) a. N. ~" M- D
plot count turtles
8 ?; g) C# Z* j% k4 Z& K2 o1 N7 s set-current-plot-pen "grass"
0 R% ?' K+ r+ w! V# | plot count patches with [pcolor = green]
+ O- g% m+ z5 `+ w/ z0 m- t* d8 t$ hend
- K: ?% } h# D, H: b可是运行时提示no such plot: "Totals"# w! E2 W1 Y) H& O- G
error while observer running SET-CURRENT-PLOT; A, k8 S! J; ]2 f
called by procedure DO-PLOTS
A2 G; e" |7 _4 R called by procedure SETUP7 q/ a7 n$ D: N
called by 按钮 'setup': @# I v! M. X. q$ |* y; t f
求大神解答啊 |