Test of Np

> NpMtest:=array(1..dimH);

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

> for i from 1 to dimH do
NpMtest[i]:=Np(1,1,Basis[i]);
od:
print(NpMtest);

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

>