我写的这个计算语句,调试时通过,但是运行时出现了不知名的错误
$ L' D/ t% o' W; x, N/ J) r请达人帮我指出错误好改进7 B% o0 A# k4 b* }0 O& I8 ~
+ o; V+ ]3 Q+ F
to find-distance
' u) }) b% B8 A" | let i 0
' a( E7 j) w/ V% s, A3 Y) r let nodedistance 0
% b2 P% q! {0 l) T: g- y let linknumber 0
# M+ I* F, G! { while [i < count turtles]( }* Q: m0 @, n5 k
[
' p9 t0 H m- P0 M# [* [( ] if link-neighbor? turtle i6 e' O6 K6 _5 l8 p( K
[set nodedistance (nodedistance + sum ([link-length] of turtle i))
1 R! Z7 I3 n$ i- H# u6 i set linknumber (linknumber + count [link-neighbors] of turtle i)]
1 E7 ?/ Y' K5 C6 D/ I2 G, C" }, K if linknumber != 0
. k) n4 @; b! h4 C [
+ U6 T' m+ c$ e7 T set average-node-distance (nodedistance / linknumber)
* Q- ~8 p1 s, ~2 ]$ R6 A ]8 X. x$ z! T6 F8 C0 F( [/ G! r
set i i + 1
. d$ s) S( N/ Z. {) ~# t* F8 f ]5 |* `6 m7 @) U! Z) A' f3 k
end% ^' L% t, D( ^; t
0 W5 L: b" ?) z! C+ W
[ 本帖最后由 qy987 于 2008-11-12 02:18 编辑 ] |