网络边的平均距离

qy987

请教在netlogo中
( p; ?' N8 c2 |; `0 J" q" x对于一个非完全连接的网络
# S) H2 t; q3 ^7 p8 m% v: z5 G0 z如何求它的平均节点距离
即如何计算以及如何网络边的总长度，再以之除网络边的总数

qy987

我写的这个计算语句，调试时通过，但是运行时出现了不知名的错误
: z7 m6 \$ x  i9 e0 v" K请达人帮我指出错误好改进

/ P, r, C& c7 o0 ?# ~5 ]' ]to find-distance
% q) G# ~: N( ^$ G) h  let i 0
" n4 e1 u7 ?# j) A& ]: D" h  let nodedistance 0
  let linknumber 0
7 a# g4 B+ n+ w1 U( Y, i  while [i < count turtles]
! j7 T- r! b' ~- E [
0 b: E$ t( X/ U" k 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
  S$ I7 j: _7 j9 Q  [
  set average-node-distance (nodedistance / linknumber)
3 o7 H0 U8 f- H" k6 _# F1 U  ]
. ^2 R5 _8 R1 t1 y# L$ R  set i i + 1
  ]
/ L5 R. k# }1 e9 r4 Yend
& P( e/ ^( L- a. B3 D
% [+ m2 {8 V1 {+ p; p! ?[ 本帖最后由 qy987 于 2008-11-12 02:18 编辑 ]

qy987

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

2 ^5 ?% }) ^2 B6 p$ Cto find-distance
  let i 0
/ V8 \9 g/ m6 O0 }* X  let j 0
  let nodedistance 0
0 m, t7 \4 r  I" I7 ]( q  K4 d  let linknumber 0
  
9 T$ g$ ]  g/ {3 V   while [j < count turtles]
   [
% I6 @9 L* H+ k' U! y       while [i < count turtles]
. ^  j, x; f' S9 ]! ^6 \9 O$ k          [  if link-neighbor? turtle i
' l, `' q; B' O9 E- g                        [ask turtle j [set nodedistance nodedistance + distance turtle i]
; j% D6 ?! i" l* R% a                          ask turtle j [set linknumber linknumber + count [link-neighbors] of turtle i]
2 e9 Y2 s& J- M! ^% R6 H$ ~3 S                        ]
            set i i + 1
        ]
' R! g% }& x/ B" W( s     set j j + 1
- Z( U8 ~+ t9 K! ^  ]
  set average-path-length nodedistance / (linknumber * 2)
end