Test of Cm

> Cm(5,2,vec([1,1,0,0],[1,1,0,0])+vec([1,0,0,0],[1,1,0,0]));

vec([1, 1, 0, 0],[0, 1, 0, 0])-vec([1, 0, 0, 0],[0,...

> CmMtest:=array(1..dimH,1..dimH);

CmMtest := array(1 .. 36,1 .. 36,[])

> 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);

matrix([[1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, ...

>

Test Passed!!!!!