网络边的平均距离

qy987

请教在netlogo中
对于一个非完全连接的网络
* m1 M3 [% R9 A如何求它的平均节点距离
$ B) G% h3 s6 {* t! a. h即如何计算以及如何网络边的总长度，再以之除网络边的总数

qy987

我写的这个计算语句，调试时通过，但是运行时出现了不知名的错误
$ h% U5 J' r1 e% ^请达人帮我指出错误好改进

to find-distance
. ^5 e9 r* L6 y9 e6 C2 Y2 Z  let i 0
  let nodedistance 0
  t# M5 u' }1 j4 p: ?  let linknumber 0
, d2 n3 i) I. }, @8 m  r  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)]
& x' P+ u5 p+ q6 O% o4 M! o3 K if linknumber != 0
  [
  set average-node-distance (nodedistance / linknumber)
+ z0 g; F. A1 g8 \  ]
7 n* s. H* n$ v# N+ f  set i i + 1
! h; s% g+ v% v  X9 b2 I1 F) Q  ]
% c  S9 U% ~( bend

[ 本帖最后由 qy987 于 2008-11-12 02:18 编辑 ]

qy987

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

to find-distance
  let i 0
  let j 0
  let nodedistance 0
% T$ m, w+ f/ l* s6 u. t  let linknumber 0
3 c5 ~. l# x* g  
1 A  n: k7 I9 r/ ]% a  c   while [j < count turtles]
! f! ^+ B3 }2 o3 n' F   [
       while [i < count turtles]
: @; @& k5 n* o; @7 `          [  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]
; g% P/ ]' z: T$ U                        ]
            set i i + 1
0 ]- i1 f  A& t2 Q8 t) F9 u        ]
     set j j + 1
  D" ^- D# h+ y' h+ t, C6 U* ~; p  ]
  set average-path-length nodedistance / (linknumber * 2)
end