Linear Algebra and the C Language/a0ai


Code study: Normalize_mR();

/* ------------------------------------ */
/* ------------------------------------ */
double **Normalize_mR(
double **Q
)
{
double **u  = i_mR(rsize_R(Q),C1);
double **q  = i_mR(rsize_R(Q),C1);	

int c_Q   = csize_R(Q);
int c;

		for( c = C1; c <= c_Q; c++)
          {		
		    c_c_mR(Q,c, u,C1); 
		    		           
		    smul_mR(1./norm_R(u),u, q);

            c_c_mR(q,C1, Q,c); 
	      }

  f_mR(u);  
  f_mR(q);  
  
 return(Q);
}
/* ------------------------------------ */
/* ------------------------------------ */