'!TITLE "ProProduct.pcs"

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

	caoCtrl = cao.AddController("eigen", "caoProv.Eigen.Eigen3", "", "")

	M(5) = caoCtrl.AddVariable("ID=5", "2,2")
	M(6) = caoCtrl.AddVariable("ID=6", "2,1")
	M(7) = caoCtrl.AddVariable("ID=7", "1,2")
	M(8) = caoCtrl.AddVariable("ID=8", "2,2")

	' 初期値代入
	M(5).Value = Array(2,-1, -3,4)
	M(6).Value = Array(1,2)
	M(7).Value = Array(2,2)
	
	' M8にM5*M6*M7の計算結果を入れる
	caoCtrl.Product 5,6,7,8

	' M8表示
	vntRet = M(8).Value
	PrintDbg vntRet(0) & ", " & vntRet(1)
	PrintDbg vntRet(2) & ", " & vntRet(3)
	
End Sub