'!TITLE "ProValue.pcs"

Sub Main 
	Dim caoCtrl as Object
	Dim M1 as Object
	Dim M2 as Object

	Dim vntRet as Variant

	caoCtrl = cao.AddController("ProValue", "caoProv.Eigen.Eigen3", "", "")
	M1 = caoCtrl.AddVariable("ID=1", "3,3")
	M2 = caoCtrl.AddVariable("ID=2", "3,3")

	' 初期値代入
	M1.Value = Array(3,2,1,1,3,1,2,2,1)
	
	' M1 表示
	vntRet = M1.Value
	PrintDbg "M1 = "
	PrintDbg vntRet(0) & ", " & vntRet(1) & ", " & vntRet(2)
	PrintDbg vntRet(3) & ", " & vntRet(4) & ", " & vntRet(5)
	PrintDbg vntRet(6) & ", " & vntRet(7) & ", " & vntRet(8)

	' M1の逆行列をM2に代入
	caoCtrl.Inverse M1.ID, M2.ID

	' M2表示
	vntRet = M2.Value
	PrintDbg "M2 = "
	PrintDbg vntRet(0) & ", " & vntRet(1) & ", " & vntRet(2)
	PrintDbg vntRet(3) & ", " & vntRet(4) & ", " & vntRet(5)
	PrintDbg vntRet(6) & ", " & vntRet(7) & ", " & vntRet(8)

	T1 = M2.Value
End Sub