网络边的平均距离

qy987

请教在netlogo中
4 I) F2 s4 X  S对于一个非完全连接的网络
& Q7 z8 F: C1 m/ o& ~! p% O! B5 ~如何求它的平均节点距离
3 g; v) Y) Q# @% B5 d  X即如何计算以及如何网络边的总长度，再以之除网络边的总数

qy987

我写的这个计算语句，调试时通过，但是运行时出现了不知名的错误
请达人帮我指出错误好改进
7 k1 U0 H! z4 Z5 O: ?9 j
+ l% x) Q4 n0 S6 A; V2 ~to find-distance
  let i 0
/ w, N' J3 _% Z1 C* d/ S  let nodedistance 0
  let linknumber 0
5 n* t7 ^& q: K2 K" g! w, `1 F/ _5 g% j. a  while [i < count turtles]
+ _9 Y5 r: W& D# p$ N [
if link-neighbor? turtle i
9 S% U; H  u0 e    [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
  ]
end

& X3 P6 a8 ?5 ?+ Y  i8 F[ 本帖最后由 qy987 于 2008-11-12 02:18 编辑 ]

qy987

我新调试好的程序如下，应该是对的，供参考
+ _) D$ f% j, x$ w" {1 x因为特殊要求，这里的边的长度是二维座标内的空间距离
, O) o$ k! E4 F% Z, B+ f
to find-distance
  let i 0
  let j 0
  let nodedistance 0
8 J9 h  ?8 K7 x% u% |  let linknumber 0
" ]( G. F: D7 J  
   while [j < count turtles]
   [
4 w( o' T7 J- d5 i# r, T       while [i < count turtles]
/ i9 a2 h& G( k, |' X/ h, W          [  if link-neighbor? turtle i
- y3 v8 b% W' b+ N                        [ask turtle j [set nodedistance nodedistance + distance turtle i]
  p: |4 v! B$ T# [% E1 a! |                          ask turtle j [set linknumber linknumber + count [link-neighbors] of turtle i]
# E8 w) S3 v+ t; o( W                        ]
            set i i + 1
. N- R# D( ?7 i4 n% [        ]
     set j j + 1
+ X! Q4 Z6 X  X  ]
6 @5 @3 \! B' v: g# Y9 ]  set average-path-length nodedistance / (linknumber * 2)
end