d9r5.txt

来自「VB常用数值算法集 内含有解线性代数方程组」· 文本 代码 · 共 55 行

Private Sub Command1_Click()
    'PROGRAM D9R5
    'Driver for routine SVDVAR
    MP = 6
    MA = 3
    NCVM = MA
    Dim V(6, 6), W(6), CVM(3, 3), TRU(3, 3)
    W(1) = 0#
    W(2) = 1#
    W(3) = 2#
    W(4) = 3#
    W(5) = 4#
    W(6) = 5#
    TRU(1, 1) = 1.25: TRU(1, 2) = 2.5: TRU(1, 3) = 3.75
    TRU(2, 1) = 2.5:  TRU(2, 2) = 5#:  TRU(2, 3) = 7.5
    TRU(3, 1) = 3.75: TRU(3, 2) = 7.5: TRU(3, 3) = 11.25
    For J = 1 To MP
        For I = 1 To MP
            V(I, J) = I
        Next I
    Next J
    Print Tab(5); "Matrix V"
    Print Tab(5)
    For I = 1 To MP
        For J = 1 To MP
            Print Format$(V(I, J), "#.000000"),
        Next J
        Print
    Next I
    Print
    Print Tab(5); "Matrix W"
    Print Tab(5)
    For I = 1 To MP
            Print Format$(W(I), "#.000000"),
    Next I
    Call SVDVAR(V(), MA, MP, W(), CVM(), NCVM)
    Print Tab(5)
    Print Tab(5); "Covariance matrix from SVDVAR"
    Print Tab(5)
    For I = 1 To MA
        For J = 1 To MA
            Print Format$(CVM(I, J), "#.000000"),
        Next J
        Print
    Next I
    Print Tab(5)
    Print "Expected covariance matrix"
    Print Tab(5)
    For I = 1 To MA
        For J = 1 To MA
            Print Format$(TRU(I, J), "#.000000"),
        Next J
        Print
    Next I
End Sub