网络边的平均距离

qy987

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

qy987

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

to find-distance
  let i 0
  let nodedistance 0
  let linknumber 0
  while [i < count turtles]
[
9 c2 h9 |2 N) ^# j if link-neighbor? turtle i
    [set nodedistance (nodedistance + sum ([link-length] of turtle i))
) g( a" y4 R1 D5 G5 i     set linknumber (linknumber + count [link-neighbors] of turtle i)]
if linknumber != 0
, t' V0 S5 n/ x$ _9 S) w8 i  [
- E3 b4 O, g" J4 L0 F7 I& _  set average-node-distance (nodedistance / linknumber)
) ?0 S/ f5 r. O+ {2 R# }/ ~5 m& n  ]
7 S9 i, h4 P3 E' {+ {  set i i + 1
  ]
6 |: c& V. O. a$ P9 j& eend
- `0 t' ]% O5 }4 U# d3 }, a
8 `' X  Y$ E# R/ }" t7 ?[ 本帖最后由 qy987 于 2008-11-12 02:18 编辑 ]

qy987

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

1 t+ x( r1 M6 p  Nto find-distance
% C8 `7 d: W% f; j% s  let i 0
  let j 0
  let nodedistance 0
  let linknumber 0
  
   while [j < count turtles]
6 \* T6 s) F  g+ `8 {   [
. V5 R1 t5 y6 U3 ^* p4 N       while [i < count turtles]
# [2 `3 g& R! D, {2 u5 Z0 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]
                        ]
* B$ k8 i7 q5 Z            set i i + 1
$ a3 h1 m/ D+ M2 ~. F+ U        ]
     set j j + 1
. P' R4 M# M6 O# M2 G2 y) [  ]
  set average-path-length nodedistance / (linknumber * 2)
6 F; f5 ?7 U+ Vend