'!TITLE "ProDeterminant.pcs"

Sub Main 
	Dim caoCtrl as Object
	Dim M(20) as Object
	Dim vntRet as Variant

	caoCtrl = cao.AddController("eigen", "caoProv.Eigen.Eigen3", "", "")
	M(2) = caoCtrl.AddVariable("ID=2", "3,3")
	M(3) = caoCtrl.AddVariable("ID=3", "2,2")

	' 初期値代入
	M(2).Value = Array(1,1,1, -1,0,1, 1,1,1)
	M(3).Value = Array(1,1, -1,0)

	' M2,M3の行列式を表示する
	PrintDbg caoCtrl.Determinant(2)
	PrintDbg caoCtrl.Determinant(3)
	
End Sub