网络边的平均距离

qy987

请教在netlogo中
, C5 G" @  c. ^: Q7 t1 `- Q对于一个非完全连接的网络
2 p* U. M+ A& ^$ S- J# M' n如何求它的平均节点距离
即如何计算以及如何网络边的总长度，再以之除网络边的总数

qy987

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

to find-distance
+ O3 h  F6 I6 Y  let i 0
  let nodedistance 0
5 ^0 y5 c8 N% T$ A+ @3 w  let linknumber 0
( K+ L% n* f( r; W! L  while [i < count turtles]
  E* k0 ?0 g2 x! Q) ? [
if link-neighbor? turtle i
! K! _* ?8 x) }# D4 E9 m  [, d2 ^" L% y    [set nodedistance (nodedistance + sum ([link-length] of turtle i))
) t/ C5 s. h' k8 w     set linknumber (linknumber + count [link-neighbors] of turtle i)]
if linknumber != 0
  [
  }  }5 R  ^6 ?% P( H) ]( h1 ?3 Z; b  v  set average-node-distance (nodedistance / linknumber)
  ]
  set i i + 1
  ]
* n" ?" H1 S; k7 aend
7 \2 l2 q! W& f
8 A% Z2 T. f9 |. _[ 本帖最后由 qy987 于 2008-11-12 02:18 编辑 ]

qy987

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

to find-distance
/ \$ i& d0 P3 |1 F0 o2 m, H  let i 0
; z: R" P+ ?0 e5 d  let j 0
  let nodedistance 0
4 ~- ^) S! W$ _9 C) @+ m  let linknumber 0
3 P$ c9 {8 l6 a" M  
   while [j < count turtles]
% s7 z9 \& h* W  C   [
* u1 ^( V  W, J- n       while [i < count turtles]
          [  if link-neighbor? turtle i
. g& s2 s% \1 V6 s7 o                        [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
3 Y- D2 A# H2 N, J$ |1 M7 b        ]
4 ~1 h: j# B" p; w( y     set j j + 1
  ]
  set average-path-length nodedistance / (linknumber * 2)
. T- |2 p2 m2 s" a/ Jend