网络边的平均距离

qy987

请教在netlogo中
' b9 E) I: }3 w+ A* A对于一个非完全连接的网络
" F7 T4 w0 Y4 \. i& j5 o1 a如何求它的平均节点距离
即如何计算以及如何网络边的总长度，再以之除网络边的总数

qy987

我写的这个计算语句，调试时通过，但是运行时出现了不知名的错误
请达人帮我指出错误好改进
8 J5 m& }+ z* x" G0 L+ R1 ~
to find-distance
  let i 0
  let nodedistance 0
2 z% |# A! S6 [! L3 {6 }& a3 O  let linknumber 0
  while [i < count turtles]
[
if link-neighbor? turtle i
1 R6 X( u8 t+ E4 S6 v    [set nodedistance (nodedistance + sum ([link-length] of turtle i))
4 e: T, s" b& h     set linknumber (linknumber + count [link-neighbors] of turtle i)]
if linknumber != 0
3 x1 P9 m. o( o4 ~9 `  [
  set average-node-distance (nodedistance / linknumber)
& n% T6 \& [: k" ^  A  ]
  set i i + 1
  ]
end
; S2 v* x; o$ {8 D: w* W) ~7 u
[ 本帖最后由 qy987 于 2008-11-12 02:18 编辑 ]

qy987

我新调试好的程序如下，应该是对的，供参考
& a+ e1 v( T6 h' ?9 |& N8 y$ j# r因为特殊要求，这里的边的长度是二维座标内的空间距离
8 w1 X' q. J4 x  ~6 M" i
5 F( Z, s* `9 \' z% o/ ]# tto find-distance
. z5 i) Y1 b. P6 T% F& W: p  let i 0
  let j 0
  let nodedistance 0
' s+ H0 f8 K5 {7 f! b' E  let linknumber 0
  
5 j. o% Q- V+ i/ y" ?$ B, i! K   while [j < count turtles]
& v2 i  s/ O+ {7 q+ E   [
       while [i < count turtles]
  Y7 t! \; Z' x7 `          [  if link-neighbor? turtle i
8 H4 g, ~5 w- K/ y# @2 i7 ^9 P                        [ask turtle j [set nodedistance nodedistance + distance turtle i]
3 g; A2 n+ j7 B, a6 Q                          ask turtle j [set linknumber linknumber + count [link-neighbors] of turtle i]
                        ]
3 o4 f, _+ `) O            set i i + 1
        ]
: i; J* S; h9 Q2 u8 ^; t2 N     set j j + 1
  ]
  set average-path-length nodedistance / (linknumber * 2)
+ \/ `2 L/ T$ T  L1 nend