package Jampack;

class ZqrdTest{


   public static void main(String[] args)
   throws JampackException{

      int i, j, m=10, n=10;

      JampackParameters.setBaseIndex(0);

      Znum Aa[][] = new Znum[m][n];
      for (i=0; i<m; i++){
         for (j=0; j<n; j++){
            Aa[i][j] = new Znum(i+1, j+1);
         }
      }

      Zmat A = new Zmat(Aa);

      Zqrd X = new Zqrd(A);


      Print.o(Norm.fro(Minus.o(Eye.o(X.Q.nc), Times.o(Ctp.o(X.Q), X.Q))));

      Print.o(Norm.fro(Minus.o(A, Times.o(X.Q, X.R))));
   }
}