网络边的平均距离

qy987

请教在netlogo中
8 L" y# }1 T8 X+ k* c2 a1 D7 X. W4 k对于一个非完全连接的网络
如何求它的平均节点距离
! a% i- P* u5 l: e& j5 }' `即如何计算以及如何网络边的总长度，再以之除网络边的总数

qy987

我写的这个计算语句，调试时通过，但是运行时出现了不知名的错误
请达人帮我指出错误好改进
: ?9 ~/ W! Q2 y/ V# x' ]7 \
; n+ Z6 s9 g; W1 Qto find-distance
: I+ m3 {& d$ X: j1 w. O. R& w  let i 0
  let nodedistance 0
  let linknumber 0
+ r; H& E! D' U9 [/ f' U+ e7 o5 U3 V  while [i < count turtles]
[
if link-neighbor? turtle i
    [set nodedistance (nodedistance + sum ([link-length] of turtle i))
: l5 ]( P& Y7 W- x     set linknumber (linknumber + count [link-neighbors] of turtle i)]
if linknumber != 0
  [
  set average-node-distance (nodedistance / linknumber)
  ]
  set i i + 1
; u  M8 e6 X- L: P  ]
end

/ D$ x3 d( i( w% _, {[ 本帖最后由 qy987 于 2008-11-12 02:18 编辑 ]

qy987

我新调试好的程序如下，应该是对的，供参考
5 ]7 Z. T5 _' Y; D+ b因为特殊要求，这里的边的长度是二维座标内的空间距离

to find-distance
. m; U3 E" Q# Y- l2 R+ |6 m  let i 0
  let j 0
) s1 l! g: _5 B0 m& p5 I/ y  let nodedistance 0
  let linknumber 0
9 }& Y5 _+ T9 V5 m% w9 F) J  
5 N8 F# A3 ?9 A* u. S- A   while [j < count turtles]
   [
( |: U9 l6 L" T+ a+ p. d0 D8 G       while [i < count turtles]
. P' a! d/ K2 _8 O! g8 f0 N" g          [  if link-neighbor? turtle i
* C) Q; u# h. S                        [ask turtle j [set nodedistance nodedistance + distance turtle i]
                          ask turtle j [set linknumber linknumber + count [link-neighbors] of turtle i]
5 `; Z' R1 z2 H6 h                        ]
            set i i + 1
$ J4 Q4 \/ \9 ]        ]
     set j j + 1
  ]
  set average-path-length nodedistance / (linknumber * 2)
end