网络边的平均距离

qy987

请教在netlogo中
对于一个非完全连接的网络
4 R: \- i" U$ N% n5 `' w( K如何求它的平均节点距离
即如何计算以及如何网络边的总长度，再以之除网络边的总数

qy987

我写的这个计算语句，调试时通过，但是运行时出现了不知名的错误
请达人帮我指出错误好改进
! h5 M+ p1 Z2 u: D7 n- ^8 Z# B
to find-distance
  let i 0
8 i2 X" S9 Q4 T. n. A# E. W  let nodedistance 0
  let linknumber 0
  while [i < count turtles]
. Q  T5 {, z( R: i6 P8 Y, _ [
if link-neighbor? turtle i
8 S0 F2 }$ h5 q    [set nodedistance (nodedistance + sum ([link-length] of turtle i))
     set linknumber (linknumber + count [link-neighbors] of turtle i)]
if linknumber != 0
  h2 c5 N# R" l8 V  [
  set average-node-distance (nodedistance / linknumber)
0 E6 M- a+ U3 M; D  ]
  set i i + 1
* B' E% I* k( J/ D+ w& L3 t  ]
end

, b( W" G1 u6 G3 d: k- P  o[ 本帖最后由 qy987 于 2008-11-12 02:18 编辑 ]

qy987

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

: g3 P1 w8 t' @0 y  q8 V, ^" [6 Qto find-distance
  let i 0
; m5 N: B0 f5 k* u: z& S  let j 0
  let nodedistance 0
  let linknumber 0
  
0 a0 Y5 F$ s% U" j0 w) W0 W5 y   while [j < count turtles]
5 ^$ N* t8 }6 y/ y  M   [
       while [i < count turtles]
5 `3 p* T4 Z) w4 q          [  if link-neighbor? turtle i
9 L& S: O- G# H! ~$ P                        [ask turtle j [set nodedistance nodedistance + distance turtle i]
+ h* J: m3 {7 q% E                          ask turtle j [set linknumber linknumber + count [link-neighbors] of turtle i]
6 ~6 a' [* v6 H) G; C                        ]
            set i i + 1
  T3 ^& M9 ~+ X9 `" c        ]
- ?4 ^+ z( B. x- W; n     set j j + 1
  ]
* `0 ]) R) X2 r+ J$ {1 w  set average-path-length nodedistance / (linknumber * 2)
! u; y6 C: w; \3 l  {8 cend