网络边的平均距离

qy987

请教在netlogo中
4 I% b" Y) T# a对于一个非完全连接的网络
如何求它的平均节点距离
- n8 G. j/ E- m+ P5 o即如何计算以及如何网络边的总长度，再以之除网络边的总数

qy987

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

to find-distance
# r4 t2 `5 G" Q$ v% w9 O  let i 0
  let nodedistance 0
! h  _4 w+ I9 v+ D5 [3 y  let linknumber 0
+ K2 d4 e$ O3 X# y) V2 H1 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
  [
  set average-node-distance (nodedistance / linknumber)
  ]
  set i i + 1
  ]
end
5 Y! Q$ n& T2 c* ^+ `
; r- O, e6 G: ~; w, j/ Q[ 本帖最后由 qy987 于 2008-11-12 02:18 编辑 ]

qy987

我新调试好的程序如下，应该是对的，供参考
因为特殊要求，这里的边的长度是二维座标内的空间距离
/ W9 d  m4 {+ L
, c2 `9 S, d7 vto find-distance
  let i 0
( n, n0 e8 W- l* a6 f/ [4 O  let j 0
  let nodedistance 0
  let linknumber 0
  
   while [j < count turtles]
( j  S! s9 G! C9 Y   [
       while [i < count turtles]
          [  if link-neighbor? turtle i
                        [ask turtle j [set nodedistance nodedistance + distance turtle i]
" ?1 M+ {# H8 ]                          ask turtle j [set linknumber linknumber + count [link-neighbors] of turtle i]
                        ]
            set i i + 1
        ]
* I5 ~/ \. C9 `) @% \6 H     set j j + 1
  ]
  set average-path-length nodedistance / (linknumber * 2)
. j- {) P+ ]4 j  _; S6 Gend