我写的这个计算语句,调试时通过,但是运行时出现了不知名的错误 V8 l% @5 R2 }7 Z
请达人帮我指出错误好改进
. c+ {# C6 N. D% J: z
* @9 \$ F$ v5 ^( U" i O1 r# ?& e$ I0 Fto find-distance k) e2 Y6 \1 l4 W+ r
let i 0
; x/ l' J# p4 \/ k7 ]/ N let nodedistance 0" c: ]9 y8 q. h
let linknumber 0. r9 W* f, H# m% E
while [i < count turtles], J$ j4 C/ X# k/ l5 u& t+ Y
[1 }' g6 S! O7 B; @0 v
if link-neighbor? turtle i3 M5 X" E7 \' O4 u0 ?: n
[set nodedistance (nodedistance + sum ([link-length] of turtle i))
. C' ]* w( g4 E8 x. u& @9 } set linknumber (linknumber + count [link-neighbors] of turtle i)]
3 t8 W0 j% z/ G if linknumber != 05 V2 }+ y+ E f7 V
[* r0 W+ f9 Y) ` T. M
set average-node-distance (nodedistance / linknumber)4 |& [+ k; r, u1 y/ F
]
C- u C! _$ S, d. ` set i i + 10 N4 Q8 C6 J" h; `; \1 U
]
1 l R% K& F, aend
0 m* r2 j& p' y0 w/ [9 ~3 V8 p
: Z- G6 D% z6 D& }6 e, l3 O[ 本帖最后由 qy987 于 2008-11-12 02:18 编辑 ] |