网络边的平均距离

qy987

请教在netlogo中
  D* w  R" [( W, Q1 J对于一个非完全连接的网络
如何求它的平均节点距离
( L/ ~' S% Y' c% |$ ~( L) `. g即如何计算以及如何网络边的总长度，再以之除网络边的总数

qy987

我写的这个计算语句，调试时通过，但是运行时出现了不知名的错误
, U* Z' P1 h/ V请达人帮我指出错误好改进
2 e1 x: e# N6 D  o
4 F7 l! G1 b, b8 l5 }to find-distance
  u0 T" [+ x" n9 w5 M( P  let i 0
; C- K" {5 I( W# e( K  let nodedistance 0
& v9 C* Z+ [8 X' U# R" p4 c" \% L: y  let linknumber 0
# O3 y* y/ f! z. K3 z  while [i < count turtles]
[
if link-neighbor? turtle i
    [set nodedistance (nodedistance + sum ([link-length] of turtle i))
# C1 j. [% Q' s1 D$ `8 c% M% Q' b     set linknumber (linknumber + count [link-neighbors] of turtle i)]
if linknumber != 0
- Z; j# f2 ]% p# O0 U  [
9 O+ _" n: J' u& A6 [& s# Q' T  set average-node-distance (nodedistance / linknumber)
  ]
  set i i + 1
  ]
8 C! Y) Z& e* y: z; c4 Q8 Bend

2 [9 M, J: F4 O1 U/ Z4 U[ 本帖最后由 qy987 于 2008-11-12 02:18 编辑 ]

qy987

我新调试好的程序如下，应该是对的，供参考
因为特殊要求，这里的边的长度是二维座标内的空间距离
: y2 u. @" \0 P  y1 d
/ e9 C% U1 v+ e. o. \. Eto find-distance
6 K& U* K& S% u2 ~1 ~  let i 0
9 J) p7 `0 L. Y2 _% f5 e  let j 0
4 Z- K8 a, G& T: n/ F9 O3 V  let nodedistance 0
  let linknumber 0
2 l4 M' W( l. B, l  
   while [j < count turtles]
- V: `; {8 }$ i8 Z! Z4 U   [
       while [i < count turtles]
          [  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]
                        ]
            set i i + 1
        ]
     set j j + 1
  ]
0 v) p9 I' [; m  set average-path-length nodedistance / (linknumber * 2)
end