网络边的平均距离

qy987

请教在netlogo中
对于一个非完全连接的网络
2 h7 F. |* i, a5 {6 N如何求它的平均节点距离
即如何计算以及如何网络边的总长度，再以之除网络边的总数

qy987

我写的这个计算语句，调试时通过，但是运行时出现了不知名的错误
- Z# W% s& x* z请达人帮我指出错误好改进
( [8 Z9 T- |  B9 u8 N/ M; k
to find-distance
  let i 0
  let nodedistance 0
  let linknumber 0
0 p; N2 V1 \( m8 q  while [i < count turtles]
9 w2 e: _/ u/ a2 C7 A [
7 [4 j1 L7 g; _. C if link-neighbor? turtle i
    [set nodedistance (nodedistance + sum ([link-length] of turtle i))
     set linknumber (linknumber + count [link-neighbors] of turtle i)]
* i( C  }# s; |  q  ` if linknumber != 0
  [
  set average-node-distance (nodedistance / linknumber)
3 ~* ?; E  h; k5 _5 x9 M  ]
  set i i + 1
( F; q, W, W8 s8 X& X* x; w0 x  ]
end
. v0 o5 B- P# U) w. I
# G+ s" T; N  Z0 `9 N& L/ e# D[ 本帖最后由 qy987 于 2008-11-12 02:18 编辑 ]

qy987

我新调试好的程序如下，应该是对的，供参考
/ ^3 Q' z, z: {4 i/ a' n' f3 J" l7 R因为特殊要求，这里的边的长度是二维座标内的空间距离
* M9 g0 ~2 Y2 v/ ~% I
, _. p4 I3 D5 v" @to find-distance
  let i 0
; R) D6 X2 C# v( [  let j 0
3 [' v0 g" K8 V, w1 g6 \* g  let nodedistance 0
  let linknumber 0
' Q& S( Z1 b% p$ X. ~  
, j& k# h3 _" [) R, e4 b   while [j < count turtles]
0 F- B( y: C8 \1 s: p# Y$ l6 b: q   [
       while [i < count turtles]
          [  if link-neighbor? turtle i
) f6 a0 }4 f% d* J5 n+ \4 J                        [ask turtle j [set nodedistance nodedistance + distance turtle i]
: t! ~* Z' n5 R                          ask turtle j [set linknumber linknumber + count [link-neighbors] of turtle i]
  \' d7 l, t+ J$ _6 ^                        ]
            set i i + 1
        ]
     set j j + 1
  ]
. d! T6 D% T0 D8 e% h$ j7 m0 ^; L  set average-path-length nodedistance / (linknumber * 2)
end