网络边的平均距离

qy987

请教在netlogo中
对于一个非完全连接的网络
如何求它的平均节点距离
* t3 z  p- }! p& ?. P即如何计算以及如何网络边的总长度，再以之除网络边的总数

qy987

我写的这个计算语句，调试时通过，但是运行时出现了不知名的错误
- w) z/ L. p: S/ Z% ]0 C: q请达人帮我指出错误好改进
& \( `' l$ h. }7 D3 `
( S) T  X! R' r# H" l) q3 c1 o( Kto find-distance
  let i 0
  let nodedistance 0
; B8 b" R4 g- m  let linknumber 0
  while [i < count turtles]
8 L- e- ]- L3 y$ l4 n+ j [
# r  T4 F& v, | if link-neighbor? turtle i
    [set nodedistance (nodedistance + sum ([link-length] of turtle i))
  l9 f9 }9 J' ^! p, b8 l' b     set linknumber (linknumber + count [link-neighbors] of turtle i)]
if linknumber != 0
7 Z: D3 N. G# c) X9 t1 M, |* l  [
  set average-node-distance (nodedistance / linknumber)
1 V2 [/ B: [6 g$ r  ]
% x# |/ H7 G$ {  set i i + 1
: _! X! S% P9 N& t! b* d/ _  ]
: a( I4 W# @# ?) L0 E% b) f/ L0 }end

7 Y  o" Q, f4 R[ 本帖最后由 qy987 于 2008-11-12 02:18 编辑 ]

qy987

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

to find-distance
  let i 0
# `$ p3 [# s( d7 Q$ y; z  let j 0
8 X, o' ~* ^9 w0 O0 T& L- U  let nodedistance 0
$ h% g. D4 L) F2 g1 ^  let linknumber 0
1 y: T5 f2 s2 ]3 o* R0 s  
. D8 \, v3 `; [; N; X4 J2 c   while [j < count turtles]
+ e9 f5 c/ Y8 K   [
, f, D# m. N! N6 v/ E8 Q       while [i < count turtles]
          [  if link-neighbor? turtle i
                        [ask turtle j [set nodedistance nodedistance + distance turtle i]
                          ask turtle j [set linknumber linknumber + count [link-neighbors] of turtle i]
                        ]
3 H2 G6 m  T) j. \+ z            set i i + 1
        ]
     set j j + 1
  ]
0 j& b0 g1 H0 V" P  x  set average-path-length nodedistance / (linknumber * 2)
: o6 b7 q/ t; Tend