网络边的平均距离

qy987

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

qy987

我写的这个计算语句，调试时通过，但是运行时出现了不知名的错误
* E" d+ w+ q! v8 V9 l请达人帮我指出错误好改进

to find-distance
0 q6 }0 r, a( k9 X; ?# F  let i 0
  let nodedistance 0
  let linknumber 0
$ d2 F* ~- |' q* ]! A. C- k) d  while [i < count turtles]
. y+ q8 Q# I/ P" f [
if link-neighbor? turtle i
    [set nodedistance (nodedistance + sum ([link-length] of turtle i))
     set linknumber (linknumber + count [link-neighbors] of turtle i)]
- b. T/ ?* M' |5 ^) s if linknumber != 0
  [
  set average-node-distance (nodedistance / linknumber)
& w( Q, @' G6 O% y  ]
1 G# l3 G7 _. J2 F  set i i + 1
  ]
end
$ i+ F4 s, L: ]$ {- l, [
[ 本帖最后由 qy987 于 2008-11-12 02:18 编辑 ]

qy987

我新调试好的程序如下，应该是对的，供参考
7 H9 B7 f$ ^9 s9 V- j' H因为特殊要求，这里的边的长度是二维座标内的空间距离
$ U* ?3 }' E& c0 H
& P8 z: t2 z* N3 y1 M( t+ L4 bto find-distance
& e8 ^2 V, J0 C7 M6 f1 L7 S  let i 0
  let j 0
  let nodedistance 0
6 Q2 `3 T  d; J- B5 H2 C# U  let linknumber 0
  
   while [j < count turtles]
   [
       while [i < count turtles]
+ E* T0 C0 O$ P          [  if link-neighbor? turtle i
6 |5 G. q. G. R; q                        [ask turtle j [set nodedistance nodedistance + distance turtle i]
                          ask turtle j [set linknumber linknumber + count [link-neighbors] of turtle i]
                        ]
' v/ R' @) d4 R" o7 m            set i i + 1
; c* w9 ?; i3 [: w8 R        ]
     set j j + 1
/ G! V' i) J4 @& N% s8 I, W  ]
  set average-path-length nodedistance / (linknumber * 2)
& [8 U& k! o: \! F8 f# A" w1 Xend