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