网络边的平均距离

qy987

请教在netlogo中
对于一个非完全连接的网络
如何求它的平均节点距离
即如何计算以及如何网络边的总长度，再以之除网络边的总数

qy987

我写的这个计算语句，调试时通过，但是运行时出现了不知名的错误
请达人帮我指出错误好改进
% J2 d% W) S8 U" F0 g; t
% Z( r, }+ @* d9 o( ?% B6 Xto find-distance
1 i; @. c+ i5 z) t6 I  let i 0
( H, d$ }% D; N6 g  V+ ^- g  let nodedistance 0
  let linknumber 0
% G6 \% s* j% K  while [i < count turtles]
+ k/ u* [4 _2 [  x [
6 M1 C; U; B+ S* S+ L1 a" g% ? if link-neighbor? turtle i
    [set nodedistance (nodedistance + sum ([link-length] of turtle i))
     set linknumber (linknumber + count [link-neighbors] of turtle i)]
/ U2 v! R9 F' _; Q if linknumber != 0
  [
  set average-node-distance (nodedistance / linknumber)
. U1 ^  K6 U3 k. z% ]$ }/ y  ]
  set i i + 1
  ]
; M* ^/ V' Y: f4 ?7 N% v- rend
' @2 b$ X& Q( ]5 F( S
0 |! h2 q( @; O0 r. i[ 本帖最后由 qy987 于 2008-11-12 02:18 编辑 ]

qy987

我新调试好的程序如下，应该是对的，供参考
8 G. D& ?9 x6 z因为特殊要求，这里的边的长度是二维座标内的空间距离
* R5 @9 b7 |+ J/ u6 D8 L5 _
: J5 d/ F' A6 K: w2 P' ^to find-distance
) E5 [$ x5 H6 _' k  let i 0
. R: |% B' T, q/ R  let j 0
  let nodedistance 0
7 X  M  E7 E6 P) O# [1 R: X  let linknumber 0
  
4 T/ }5 N1 N! x   while [j < count turtles]
# G3 @: b  @# ^# {' S$ T* ]   [
       while [i < count turtles]
0 R1 C' ~- N: x: h          [  if link-neighbor? turtle i
                        [ask turtle j [set nodedistance nodedistance + distance turtle i]
1 W! U0 |8 m  @' \% G                          ask turtle j [set linknumber linknumber + count [link-neighbors] of turtle i]
! T! ?/ i2 n8 o" V! k                        ]
  o6 I1 X& J4 T* ]$ ~8 O            set i i + 1
        ]
     set j j + 1
  ]
  set average-path-length nodedistance / (linknumber * 2)
- h) e$ h  [: G! Gend