我写的这个计算语句,调试时通过,但是运行时出现了不知名的错误
2 T; |$ P% N7 p- [) I5 o, ?请达人帮我指出错误好改进* r+ B$ I$ ?8 D
. |2 V: w* t+ j l& @6 g0 q
to find-distance6 o+ S0 P) S( h9 j l3 F- n+ _* [ f
let i 0+ o% b3 t* w- T1 ^& b6 _
let nodedistance 0
$ C1 t" T1 e& x( A1 A( b let linknumber 0
2 S: G: U& c/ D# A; X5 b/ B while [i < count turtles]
$ ]. K* L, d4 _* [8 b C [
0 R- }9 K7 f% Y, n* ?6 A* E! }1 t- t if link-neighbor? turtle i& |. c+ G0 c/ h& L$ w0 V
[set nodedistance (nodedistance + sum ([link-length] of turtle i))% F! R7 n2 j1 V( W8 E8 A9 n% r0 i. z
set linknumber (linknumber + count [link-neighbors] of turtle i)]
& A' j: k+ r# d, G if linknumber != 0
, ]) D) [0 O m- ?1 Y! W [
, `6 F& \3 ?+ M0 H( I- c" E/ C set average-node-distance (nodedistance / linknumber)
5 h" ?- E: A- \; \6 G ]# T6 b7 H$ ]& m% [
set i i + 1
" v1 E1 g( n( P+ Z+ b# d ]! o# f4 A$ p6 m1 O. U* ^! l- |
end
2 D3 g' t9 ~: j, s0 c* ~, q) e; p @) T) _' {, N
[ 本帖最后由 qy987 于 2008-11-12 02:18 编辑 ] |