IBM® SPSS® Amos™ 28

The following program displays the inverse and the determinant of .

Module MainModule
    Sub Main()
        Const eps As Double = 0.000000000000001
        Dim arand As New AMOSRANDOMLib6.AmosRanGen
        Dim ad As New AmosDebug.AmosDebug
        Dim Cov(2) As Double
        Cov(0) = 3
        Cov(1) = 1
        Cov(2) = 2
        Call ad.PrintTriangle(Cov, "The matrix")
        Dim w(1) As Double
        Dim det As Double
        Dim ef As Integer
 
        Call arand.ChversInPlace(2, Cov(0), w(0), det, eps, ef)
 
        If ef = 0 Then
            Call ad.PrintTriangle(Cov, "The inverse")
            Call ad.PrintX(det, "Determinant")
        Else
            Call ad.PrintX("Error")
        End If
    End Sub
End Module