网络边的平均距离

qy987

请教在netlogo中
- f* P; |1 D, R; P3 ?对于一个非完全连接的网络
如何求它的平均节点距离
% e: @; ^: c; s2 Y  b; x即如何计算以及如何网络边的总长度，再以之除网络边的总数

qy987

我写的这个计算语句，调试时通过，但是运行时出现了不知名的错误
! ]: F- Y; I+ H9 m3 K; C  [请达人帮我指出错误好改进

7 M0 @2 D8 q& z! V  b/ }5 @to find-distance
  let i 0
& ?) ~) H% q% m: E  let nodedistance 0
9 K/ ^  @1 F" C  \9 J  let linknumber 0
0 z8 z; Q$ E2 q# `8 H( a7 B0 g( _  while [i < count turtles]
( u* A2 A# {6 ^0 T9 i  F [
if link-neighbor? turtle i
    [set nodedistance (nodedistance + sum ([link-length] of turtle i))
     set linknumber (linknumber + count [link-neighbors] of turtle i)]
if linknumber != 0
  [
  set average-node-distance (nodedistance / linknumber)
  ]
  set i i + 1
# |+ D* g: a0 h- U  B  ]
" K: v- B3 ?% ]. X9 P8 Lend

# K( g: x7 Q& J[ 本帖最后由 qy987 于 2008-11-12 02:18 编辑 ]

qy987

我新调试好的程序如下，应该是对的，供参考
5 H0 F( `4 _( \因为特殊要求，这里的边的长度是二维座标内的空间距离
, b8 g+ j' [  V
- N6 J7 ^# J! w5 p- W# A7 Y' Kto find-distance
  let i 0
  let j 0
) n8 c6 ?4 f, \" W  let nodedistance 0
$ \7 W5 e& ?3 s  let linknumber 0
* ~1 f& r: h" o- A/ H  
  g, |; ~, f3 I& P* }   while [j < count turtles]
   [
       while [i < count turtles]
" z' K' |8 e1 U0 g6 O          [  if link-neighbor? turtle i
                        [ask turtle j [set nodedistance nodedistance + distance turtle i]
* n0 `- H5 ]4 j9 p! m                          ask turtle j [set linknumber linknumber + count [link-neighbors] of turtle i]
                        ]
            set i i + 1
6 ~; W0 |  [5 |0 A! J7 Q/ E: M        ]
     set j j + 1
  ]
& N/ b4 v6 G7 W& I; ?  j  set average-path-length nodedistance / (linknumber * 2)
end