网络边的平均距离

qy987

请教在netlogo中
5 b! {& s! k- L% U4 T- `对于一个非完全连接的网络
如何求它的平均节点距离
即如何计算以及如何网络边的总长度，再以之除网络边的总数

qy987

我写的这个计算语句，调试时通过，但是运行时出现了不知名的错误
5 L. T; u9 {1 v/ G" x  y请达人帮我指出错误好改进
% ^! P5 ]; a3 X5 I. ?, f0 \
. D3 ^. A5 H7 g* w* b- d% w- k6 rto find-distance
+ P8 l3 O9 V  E" R  let i 0
  let nodedistance 0
  let linknumber 0
  while [i < count turtles]
[
if link-neighbor? turtle i
    [set nodedistance (nodedistance + sum ([link-length] of turtle i))
. q  P$ O5 S* h4 B" d/ V# i9 Y6 |     set linknumber (linknumber + count [link-neighbors] of turtle i)]
if linknumber != 0
8 Y7 U) R, E. K4 ?7 ^# @) l  [
  set average-node-distance (nodedistance / linknumber)
0 a5 S* J% d9 A" F, b+ U7 Q% g  ]
: v% a0 y6 [' Q5 R2 f# m6 N  set i i + 1
  ]
- k: G" h( ^, {! aend

[ 本帖最后由 qy987 于 2008-11-12 02:18 编辑 ]

qy987

我新调试好的程序如下，应该是对的，供参考
: [, j3 F( \4 e/ s, ~: B: z因为特殊要求，这里的边的长度是二维座标内的空间距离
+ a% b9 y7 j' a' S
to find-distance
  let i 0
$ a* y, k! |: n  ~  let j 0
  let nodedistance 0
7 y7 X- H! E2 i4 H7 I" A5 u  let linknumber 0
  
   while [j < count turtles]
- a! x& T" t: |# }. s, ?) ?   [
+ X. A! g9 }! x       while [i < count turtles]
          [  if link-neighbor? turtle i
                        [ask turtle j [set nodedistance nodedistance + distance turtle i]
6 |: D, I) F( g) w6 U                          ask turtle j [set linknumber linknumber + count [link-neighbors] of turtle i]
                        ]
            set i i + 1
        ]
     set j j + 1
( O5 S. B+ U- ~9 |% [( [  ]
  set average-path-length nodedistance / (linknumber * 2)
end