网络边的平均距离

qy987

请教在netlogo中
对于一个非完全连接的网络
) P. X$ ]1 r7 E% a  a% B% s: a如何求它的平均节点距离
即如何计算以及如何网络边的总长度，再以之除网络边的总数

qy987

我写的这个计算语句，调试时通过，但是运行时出现了不知名的错误
请达人帮我指出错误好改进
. Z- P- n" p" ?3 K
to find-distance
2 I+ q9 S" q$ N: [' a  let i 0
  let nodedistance 0
0 r1 W0 l. t3 C6 j" c) W  let linknumber 0
. N% o! U. i5 Z$ y  while [i < count turtles]
[
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
. [, k$ l) b  l# t5 A7 I  [
+ h& q# g. f: [3 a: T$ X  set average-node-distance (nodedistance / linknumber)
  ]
  set i i + 1
  ]
end

) t$ E( f9 z) ~& l8 n* P[ 本帖最后由 qy987 于 2008-11-12 02:18 编辑 ]

qy987

我新调试好的程序如下，应该是对的，供参考
因为特殊要求，这里的边的长度是二维座标内的空间距离
# [3 c3 ~! ?& ]4 c6 X$ n
to find-distance
9 Z( E/ Z1 \4 J  let i 0
- h/ X8 w' t6 N8 C  let j 0
( Q# E3 b* B9 N( J% B8 r% b  let nodedistance 0
3 q/ ~3 F% M( Q. a. q* z5 u/ Q  let linknumber 0
. y) D" m: u, T+ V3 e  ^7 }' H  
6 o7 K# m& A1 i+ c: t   while [j < count turtles]
/ u. ^4 X6 U) U0 k3 E6 W: f, ?; @   [
       while [i < count turtles]
9 m) Y- H( T/ `2 r0 K* y          [  if link-neighbor? turtle i
                        [ask turtle j [set nodedistance nodedistance + distance turtle i]
* L' n9 k& h* x+ E                          ask turtle j [set linknumber linknumber + count [link-neighbors] of turtle i]
                        ]
            set i i + 1
        ]
, U% I4 d8 j# a     set j j + 1
  ]
  set average-path-length nodedistance / (linknumber * 2)
end