我写的这个计算语句,调试时通过,但是运行时出现了不知名的错误
- B# F( G9 X2 r* m" Y2 r3 Z/ O请达人帮我指出错误好改进, Y3 n8 H+ d0 ` B3 \4 e$ B# G7 I
4 I2 C3 i/ S1 d# M8 X, d7 Z# E; `" C
to find-distance
/ x' |9 C9 T. p% {/ y let i 0
: h2 a" o+ t$ T* L9 b let nodedistance 0
3 r8 u! _# T( y2 p let linknumber 0
( l* m4 z6 X$ k while [i < count turtles]
1 f1 W! q6 v1 c1 r) J8 n5 l5 } [+ `9 D- ]) o8 ?/ {- K
if link-neighbor? turtle i; N0 g+ A7 ~, y8 i0 Z2 k3 ?; s3 A
[set nodedistance (nodedistance + sum ([link-length] of turtle i))
3 _6 D0 h( A# A, @! I( v% w set linknumber (linknumber + count [link-neighbors] of turtle i)]
3 A6 m& F7 H" ?# ~ if linknumber != 0
, a7 \: H# h. N% C) w [, \1 l5 e C, o' L; p: {" o
set average-node-distance (nodedistance / linknumber)& Y# C3 t) B% ~: T
]
* }, H: F. n/ y* n0 P# B set i i + 1, E0 p) |/ v' }1 g8 {
]
0 q& j3 O8 d4 K6 ?0 U# r% xend
, j" Q/ i! \( D) `, S7 N) y% q1 W& B4 s9 E* c
[ 本帖最后由 qy987 于 2008-11-12 02:18 编辑 ] |