网络边的平均距离

qy987

请教在netlogo中
( g4 G& O) y. R) w5 A  ~对于一个非完全连接的网络
; k& Y" A0 }/ {: t- @$ U如何求它的平均节点距离
即如何计算以及如何网络边的总长度，再以之除网络边的总数

qy987

我写的这个计算语句，调试时通过，但是运行时出现了不知名的错误
请达人帮我指出错误好改进
8 R7 l% x" V5 n% m* a& L
to find-distance
  let i 0
  let nodedistance 0
0 q' S; F# J+ _1 j5 ?% N  let linknumber 0
  while [i < count turtles]
: b( |5 Z  Y2 G' H2 [ [
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
  [
  set average-node-distance (nodedistance / linknumber)
4 J& e% b# |* j  j5 V' e# @1 P  ]
; A0 J% h5 b- `) l: G5 c* ?  set i i + 1
  ]
  H5 g: ?) e  w' vend

2 F, B4 p! k$ ^5 E3 V[ 本帖最后由 qy987 于 2008-11-12 02:18 编辑 ]

qy987

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

% M/ K: R: y4 v6 sto find-distance
  let i 0
- O. {8 y" R: t' X2 G+ [  let j 0
  let nodedistance 0
  let linknumber 0
  
8 V- }- V" P3 Y! g   while [j < count turtles]
   [
% R$ b$ k) H2 F7 q9 g# ^0 }       while [i < count turtles]
          [  if link-neighbor? turtle i
; ^5 b% b8 _7 ~, @0 z                        [ask turtle j [set nodedistance nodedistance + distance turtle i]
$ R3 F) x# [% h5 I                          ask turtle j [set linknumber linknumber + count [link-neighbors] of turtle i]
* U2 J- x6 F0 n) A. L3 S5 O                        ]
% c( S: K; ?' @' H) ]0 y            set i i + 1
        ]
  E. r; k# }% k     set j j + 1
- V1 K6 L" o6 H) R. H8 D  ]
  set average-path-length nodedistance / (linknumber * 2)
end