IBM® SPSS® Amos™ 28

The following program specifies a multivariate normal population with covariance matrix and mean given by

.

Then it displays the square root of the determinant of the covariance matrix.

Imports System.Diagnostics
Module MainModule
    Sub Main()
        Dim arand As New AMOSRANDOMLib6.AmosRanGen
        Dim Covariances(2) As Double
        Dim Means(1) As Double
        Covariances(0) = 3
        Covariances(1) = 1
        Covariances(2) = 2
        Means(0) = 4
        Means(1) = 5
 
        Call arand.SpecifyPopulation(Covariances, Means)
 
        Debug.WriteLine(arand.SqrDeterminant())
    End Sub
End Module