vb程序.txt

应用模糊加权最小二乘法排序

'设置q值
 q(1) = 1 / 3
 q(2) = 1 / 3
 q(3) = 1 / 3
'求prot
For i = 1 To 5
   For j = 1 To 5
     For k = 1 To 3
     prot = prot * (t(i, j, k) ^ q(k))
     Next k
   Next j
 Next i
 prot = (prot ^ ((5 ^ (-2))))
'求sumprot
 For i = 1 To 5
   For j = 1 To 5
     For k = 1 To 3
     prots(i) = prots(i) * (t(i, j, k) ^ q(k))
     Next k
   Next j
   protss = protss + (prots(i) ^ (1 / 5))
 Next i
 For i = 1 To 5
   For j = 1 To 5
     For k = 1 To 3
     prors(i) = prors(i) * (r(i, j, k) ^ q(k))
     Next k
   Next j
   prorss = prorss + (prors(i) ^ (1 / 5))
 Next i
 For i = 1 To 5
   l(i) = (prot / protss) * prors(i)
 Next i






For i = 1 To 5
  For j = 1 To 5
     For k = 1 To 3
     prot = prot * (t(i, j, k))
     Next k
   Next j
 Next i
 prot = (prot ^ (1 / 75))
'求sumprot
 For i = 1 To 5
   For j = 1 To 5
     For k = 1 To 3
     prots(i) = prots(i) * (t(i, j, k))
     Next k
   Next j
   protss = protss + (prots(i) ^ (1 / 15))
 Next i

   For j = 1 To 5
     For k = 1 To 3
     prors(1) = prors(1) * (r(1, j, k))
     Next k
   Next j

 'For i = 1 To 5
   l(1) = (prot / protss) * (prors(1) ^ (1 / 15))