我编的程序如下turtles-own [energy]
( ?' F; K7 h( ^. M, Dto setup
0 Z: D g2 _0 ^" u2 A clear-all
1 J+ d, \% `9 c" ^( t" C9 y5 v' n setup-patches! D9 L9 x! Y! K; Z' s2 t
create-turtles 100
% _# d$ l4 q6 g! J, b6 I do-plots' x; |( n' s$ h) b/ D# D
ask turtles [ setxy random-xcor random-ycor ]* ~$ W' [" ~. l
end8 |$ h! y7 A7 G* K' t
to go
5 w9 ?* e) U" | move-turtles4 q J R0 r3 e0 f( G. u$ A
eat-grass
2 s% n1 H; h- U reproduce' t8 L" T! k+ g7 H5 d! p, G
check-death
7 h& ]7 T$ @5 ?, D: O: C) m regrow-grass
' F+ f4 n1 y) F0 z6 U) m do-plots
& u, |$ A. F$ S+ p2 H5 qend+ n9 r$ B5 W# C/ v
to move-turtles
2 X2 U3 S+ T# p ask turtles [
7 ~6 n, z9 ?4 e# _ right random 360
# |$ V3 Z z+ n% i( N. _ forward 1$ V( g3 `* l5 z4 s5 v
set energy energy - 1
6 L1 j) T7 s8 C+ t ]0 y5 j7 h! O5 D* ~7 U6 ~1 I" p
end
& o6 R4 ?5 M3 [2 ?) o# b- q; _to setup-patches d5 W9 U8 c* K" i3 \' o- u- ?
ask patches [ set pcolor green ]
! w9 `! T0 N: nend/ c9 _2 B" Y# \, S
to setup-turtles
+ k" ~; ^# A$ I8 S# N create-turtles 100
' [2 \ U- ?. q2 g7 N! V2 S ask turtles [ setxy random-xcor random-ycor ]
0 t, [- K$ J) l8 z# vend! Q. k4 o8 D! K" D- n1 O. ~
to eat-grass8 X5 B, B1 Q; B' w
ask turtles [
, z4 p- E; m Q5 [ if pcolor = green [
; [; _- U/ y4 R set pcolor black
, Q% | O$ e; ^8 L1 @ set energy (energy + 10)
, G2 N( b4 o' }/ f1 ~+ l& o ]; a" q* `8 Z6 u' x$ ^
ifelse show-energy?
0 y+ a6 l; o" m3 Q! ? [ set label energy ]
; F3 ?7 t( R# [3 L1 i, v9 v [ set label "" ]
; J) h7 w3 k$ u$ y) b ]' u4 f V6 ? X: Q" ?3 b6 j o
end4 [) M3 m* i# k4 R. `2 J
to reproduce
' ]1 W9 i( k4 c& R ask turtles [
) x" _$ s' }2 @ if energy > 50 [
3 [1 w& A2 D; s: { set energy energy - 50; \4 u+ H; K) j
hatch 1 [ set energy 50 ]
$ E4 n- f6 H5 [* c- k ], M6 g. R; E2 l. |5 d8 B" K
]6 _( q& \' A" G6 `
end2 m9 K3 a4 J: X0 ^) P* |
to check-death
! j5 r {; G9 F4 s- n5 j4 x ask turtles [
* q' ~, Z4 j0 H" ^ if energy <= 0 [ die ]
3 D- x4 r @8 y6 U9 z, j ]
5 ^) f# }1 W1 L2 J/ x8 Cend( a+ T. ` m2 L
to regrow-grass* N- T7 b q- z
ask patches [
# t. Q4 x+ G3 o2 _2 E7 K# i if random 100 < 3 [ set pcolor green ]
7 D7 _- R. i& |# @. ?% K ]
5 j+ z3 i% ]) \* M# K# B$ O# V P( eend6 E6 s0 @9 _+ t
to do-plots$ y" T* |/ k2 y& S% Y; u- Y
set-current-plot "Totals", m9 u: ~% u# I6 I6 u
set-current-plot-pen "turtles"1 d! L/ ^7 M; ?* j
plot count turtles8 ~$ ?1 q. r! @7 L V; {( h/ A; c
set-current-plot-pen "grass"
) Y* B, N& o* w# N* l5 O plot count patches with [pcolor = green]& ^% @$ T% i- p( p/ u
end
9 X s7 Y" F1 x3 i可是运行时提示no such plot: "Totals"
- Q4 J8 j5 g0 P0 `error while observer running SET-CURRENT-PLOT
5 m ^; r5 p2 H/ _2 \7 b called by procedure DO-PLOTS
1 C* e# o& s) { called by procedure SETUP- _, A5 W% X/ ^. \6 p
called by 按钮 'setup'
( {! w' ^* \3 ^' g& q求大神解答啊 |