网络边的平均距离

qy987

请教在netlogo中
对于一个非完全连接的网络
$ Z+ c+ _( I  h; |如何求它的平均节点距离
即如何计算以及如何网络边的总长度，再以之除网络边的总数

qy987

我写的这个计算语句，调试时通过，但是运行时出现了不知名的错误
1 F7 \6 j. U( [+ X8 e  x请达人帮我指出错误好改进
! J  M; k/ |- k# \: H4 C
to find-distance
  let i 0
  let nodedistance 0
  [+ ~0 [5 i- U: M# x+ g+ J3 ], I7 [  let linknumber 0
. w" @! g# i- s0 y& t  while [i < count turtles]
[
if link-neighbor? turtle i
0 @5 J0 d% k3 q7 q& [    [set nodedistance (nodedistance + sum ([link-length] of turtle i))
4 Q( a" `  `8 Z     set linknumber (linknumber + count [link-neighbors] of turtle i)]
if linknumber != 0
  [
  set average-node-distance (nodedistance / linknumber)
2 a8 Y! ]# ~# K) c  y$ F  ]
! m! h: d$ I4 f6 b$ v, _& J  set i i + 1
- i" V. |) L! p  ]
end

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

qy987

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

to find-distance
  let i 0
  let j 0
  let nodedistance 0
  let linknumber 0
& e$ J- Z# n+ m3 u0 }  
- ?/ F) r- A7 Q+ U7 `$ |   while [j < count turtles]
   [
       while [i < count turtles]
2 ^2 ?0 ?$ ~2 n4 _3 |, a          [  if link-neighbor? turtle i
" l  a0 R6 ^, b$ v                        [ask turtle j [set nodedistance nodedistance + distance turtle i]
                          ask turtle j [set linknumber linknumber + count [link-neighbors] of turtle i]
" _3 ]# K) l% I& |# p1 O( ]$ r                        ]
# V  b& o' ^& ^% f  [( B2 F+ \            set i i + 1
        ]
$ A4 \2 k. ]$ ^5 T* J8 n8 V     set j j + 1
  ]
  set average-path-length nodedistance / (linknumber * 2)
7 F; T) P. O' x7 pend