网络边的平均距离

qy987

请教在netlogo中
对于一个非完全连接的网络
如何求它的平均节点距离
2 o/ _( {6 [* S* ]即如何计算以及如何网络边的总长度，再以之除网络边的总数

qy987

我写的这个计算语句，调试时通过，但是运行时出现了不知名的错误
请达人帮我指出错误好改进

to find-distance
( s4 o) D* Q3 _4 \" w  let i 0
  let nodedistance 0
  let linknumber 0
3 K6 |. |/ ?5 E5 D0 j  while [i < count turtles]
[
if link-neighbor? turtle i
8 ]/ [- N( `3 M4 u8 \& o    [set nodedistance (nodedistance + sum ([link-length] of turtle i))
3 k/ H' L. a" y  v. u2 I     set linknumber (linknumber + count [link-neighbors] of turtle i)]
8 E" k1 f2 \! N/ x( D if linknumber != 0
  [
  set average-node-distance (nodedistance / linknumber)
6 B2 _7 P* r6 k- }  ]
  set i i + 1
# {% @% \9 G" W3 E' U+ V/ Q* [/ b4 }  ]
end

9 r8 n1 S+ e/ Y" w* E# s: ~[ 本帖最后由 qy987 于 2008-11-12 02:18 编辑 ]

qy987

我新调试好的程序如下，应该是对的，供参考
因为特殊要求，这里的边的长度是二维座标内的空间距离
+ _# O! f2 Q/ V0 T5 G+ {
% }; J- X/ z' ]$ m, B) ?to find-distance
  let i 0
  let j 0
  let nodedistance 0
. N& x; L! A8 ]  let linknumber 0
  
   while [j < count turtles]
% ]& G4 P/ U8 N6 B0 O" D   [
- L9 m4 Z: J4 L  Q$ E       while [i < count turtles]
          [  if link-neighbor? turtle i
                        [ask turtle j [set nodedistance nodedistance + distance turtle i]
. V1 f' [# M# G& l6 ]  C$ g8 N1 e                          ask turtle j [set linknumber linknumber + count [link-neighbors] of turtle i]
                        ]
! n3 D* Q' b$ ~$ C- P. C            set i i + 1
        ]
5 K# l4 w7 l! Z! u) ]: p     set j j + 1
+ U+ l; e5 \- z  ]
  set average-path-length nodedistance / (linknumber * 2)
) A% E7 S* D( u2 D2 K4 rend