网络边的平均距离

qy987

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

qy987

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

: L! B, H+ w" h/ {! J1 I. Wto find-distance
  let i 0
  let nodedistance 0
8 r/ B( J: t1 x  let linknumber 0
  while [i < count turtles]
5 t& U- K7 S: K# S [
if link-neighbor? turtle i
    [set nodedistance (nodedistance + sum ([link-length] of turtle i))
     set linknumber (linknumber + count [link-neighbors] of turtle i)]
if linknumber != 0
  [
  set average-node-distance (nodedistance / linknumber)
$ K5 V6 g0 E) M4 r" Y* a5 O9 _  ]
0 {" _- D) N4 X" ?  set i i + 1
  ]
8 N; O: z5 H3 \3 L5 B2 Rend
. R6 t2 ~5 r/ `% p. h( B4 M, o
[ 本帖最后由 qy987 于 2008-11-12 02:18 编辑 ]

qy987

我新调试好的程序如下，应该是对的，供参考
$ f6 C0 d8 F* j4 g; P因为特殊要求，这里的边的长度是二维座标内的空间距离
9 h: {5 {4 x0 A' k' o
to find-distance
0 ?0 ^" Z! Z% Y# j! l9 R/ m  let i 0
1 _4 O( d. m( `( ~  let j 0
  let nodedistance 0
  let linknumber 0
$ U. a* s5 }) B2 H  
" `) Q- w, J& O+ b  q9 j5 v' J! E   while [j < count turtles]
5 ?, n7 _. `7 o   [
6 M, A. ^  s1 n       while [i < count turtles]
          [  if link-neighbor? turtle i
9 p5 s. K* }$ B- X- W# E" n                        [ask turtle j [set nodedistance nodedistance + distance turtle i]
                          ask turtle j [set linknumber linknumber + count [link-neighbors] of turtle i]
                        ]
            set i i + 1
        ]
     set j j + 1
6 E( v7 X& }; |/ Y9 U  ]
  set average-path-length nodedistance / (linknumber * 2)
end