网络边的平均距离

qy987

请教在netlogo中
5 ~1 s7 y0 |5 }( [- x2 ~1 @对于一个非完全连接的网络
如何求它的平均节点距离
即如何计算以及如何网络边的总长度，再以之除网络边的总数

qy987

我写的这个计算语句，调试时通过，但是运行时出现了不知名的错误
* K( J2 r: g0 R( C请达人帮我指出错误好改进
0 ]" k0 V: m+ b/ Y6 k8 E1 \& O( q
& |' ?  H4 O0 K$ a0 fto find-distance
  let i 0
  let nodedistance 0
  let linknumber 0
  while [i < count turtles]
6 ^& h1 R2 O  w/ M [
if link-neighbor? turtle i
    [set nodedistance (nodedistance + sum ([link-length] of turtle i))
     set linknumber (linknumber + count [link-neighbors] of turtle i)]
1 h" k; M, b4 A4 }" }# _% A8 R+ k$ t if linknumber != 0
% `+ [7 \& p# X4 l. ~$ A  [
  set average-node-distance (nodedistance / linknumber)
) _) f' r' r2 g4 c2 M# ]  ]
  set i i + 1
% P% A8 s1 L1 K/ \: y1 I  ]
end

[ 本帖最后由 qy987 于 2008-11-12 02:18 编辑 ]

qy987

我新调试好的程序如下，应该是对的，供参考
因为特殊要求，这里的边的长度是二维座标内的空间距离

to find-distance
3 m% U' H( S+ T/ I4 d$ R  let i 0
: K9 ~( n  N( l8 h  let j 0
  let nodedistance 0
  let linknumber 0
/ p  n% ]! Q5 l" L7 Y( T& d% a  C- _  
   while [j < count turtles]
   [
       while [i < count turtles]
$ Y! p6 g5 t5 J' C          [  if link-neighbor? turtle i
/ W. X# g5 F% |9 l) h8 E/ D4 b                        [ask turtle j [set nodedistance nodedistance + distance turtle i]
                          ask turtle j [set linknumber linknumber + count [link-neighbors] of turtle i]
2 p1 f4 J& h; x/ U( z& e                        ]
% |1 V5 u2 L* T; o1 U" N0 [            set i i + 1
2 T4 @* D4 n6 y' J* y8 n, j        ]
) W/ |/ H' x7 C  S- J     set j j + 1
  ]
- P" `( S; ]  z: B# _6 O3 \+ _# Z  set average-path-length nodedistance / (linknumber * 2)
end