我写的这个计算语句,调试时通过,但是运行时出现了不知名的错误) e9 i& h2 _- i V# d- ~
请达人帮我指出错误好改进
2 r8 ?( `$ s; v' W# E/ a! F3 @; |# q! W- s3 {/ ?
to find-distance
1 h! b* Y" R0 P, [9 x# T' W8 ~ let i 0
, d; b5 i' l( G# C2 Z+ ~ let nodedistance 0
1 a& j4 m9 p8 P/ g- r; H let linknumber 0" H0 |$ M; l; p$ ^ U
while [i < count turtles]
: w3 g. ]4 a: O [/ i& ?# M1 w8 n! r
if link-neighbor? turtle i2 i( ^9 i9 B+ d& O% v9 J# D0 N& ^+ N; n
[set nodedistance (nodedistance + sum ([link-length] of turtle i))
( i A$ R: U, k) H# a1 g set linknumber (linknumber + count [link-neighbors] of turtle i)]; R0 H1 @. m: [; T7 r5 G$ W
if linknumber != 0
J0 j. g* Q0 t8 _, u; g+ M0 X [
; k- N: m, u) n. K set average-node-distance (nodedistance / linknumber)( p: `; V& y/ j# o" M
], b% I: `' R/ \2 E6 b" ]2 v# k
set i i + 1
& ^) e. d( N/ }. z! G1 `, k+ g ]5 ^0 C7 [5 y' [- `
end6 |* }# s; z: Z8 L5 U* Z
+ i4 I7 n) j- _
[ 本帖最后由 qy987 于 2008-11-12 02:18 编辑 ] |