Test of Cm
> Cm(5,2,vec([1,1,0,0],[1,1,0,0])+vec([1,0,0,0],[1,1,0,0]));
> CmMtest:=array(1..dimH,1..dimH);
>
for i from 1 to dimH do
for j from 1 to dimH do
CmMtest[i,j]:=int_product(Cm(1,1,Basis[i]),Cm(1,1,Basis[j]));
od:
od:
> print(CmMtest);
>
Test Passed!!!!!