网络边的平均距离

qy987

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

qy987

我写的这个计算语句，调试时通过，但是运行时出现了不知名的错误
' g# g0 ~  g3 }0 O9 |4 t* ?请达人帮我指出错误好改进
8 @/ ~2 q$ ]/ g$ h) L& T  N: K# R
# R' c, X5 t: Y% }' D* Qto find-distance
  let i 0
  let nodedistance 0
  let linknumber 0
1 X$ Y# f7 N$ G; `0 c: P: l' q  while [i < count turtles]
[
if link-neighbor? turtle i
    [set nodedistance (nodedistance + sum ([link-length] of turtle i))
. t: [! R; I& k9 W( A     set linknumber (linknumber + count [link-neighbors] of turtle i)]
if linknumber != 0
. S$ r5 \! D( ~. P2 Y3 ]# A  [
9 u7 H- a7 S) ~  set average-node-distance (nodedistance / linknumber)
  ]
" A2 d1 {  Z+ V5 t) x- l  set i i + 1
6 z; p$ s* J" p& x: f  ]
' M- |* r6 Q. o+ h( r5 C% xend

; M3 R$ _6 t- k- ][ 本帖最后由 qy987 于 2008-11-12 02:18 编辑 ]

qy987

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

to find-distance
  let i 0
  let j 0
  g' L7 b6 z: V. D& f  let nodedistance 0
  let linknumber 0
  
- a$ e' ?  y/ e* C  R, Y   while [j < count turtles]
   [
       while [i < count turtles]
# h8 L/ w. n- n3 W2 V1 a          [  if link-neighbor? turtle i
                        [ask turtle j [set nodedistance nodedistance + distance turtle i]
                          ask turtle j [set linknumber linknumber + count [link-neighbors] of turtle i]
                        ]
0 H3 s3 g+ y8 A5 V            set i i + 1
' Q0 U; G- H7 j) K        ]
2 m) z  F2 r$ z4 C4 b3 u     set j j + 1
  ]
  set average-path-length nodedistance / (linknumber * 2)
/ M8 P7 L' f; I) M4 Zend