用VB編寫層次分析法的三標度法

妳必須知道要做什麽才能寫程序！

矩陣求逆的作用如下(求和、乘法都很簡單):

functionrect _ yu (a () asdouble，l aslong，c () asdouble) asdouble '矩陣的求逆。

將T0調成雙精度

Dim T1為雙精度

昏暗的T2作為雙

將T3調成雙精度

Dim B()為雙精度

Dim Num As Double

Dim Chay壹樣長

Dim Chax壹樣長

Chay = 0

Chax = 0

ReDim B(L - 1，L - 1)

數量= 0

Dim作為雙精度相加

add = 1 / Rect(A()，L)

對於T0 = 0至L

對於T3 = 0至L

對於T1 = 0至L - 1

如果t 1 & lt；那麽T0

Chax = 0

其他

Chax = 1

如果…就會結束

對於T2 = 0到L - 1

如果T2 & lt；那麽T3

Chay = 0

其他

Chay = 1

如果…就會結束

B(T1，T2) = A(T1 + Chax，T2 + Chay)

下壹個T2

下壹個T1

Rect(B()，L-1)'調用來查找行列式值。

C(T3，T0) = Rect(B()，l-1)* add *(-1)^(t0+T3))

下壹個T3

下壹個T0

結束功能