Mathc matrices/h16c

Bibliothèque

Installer ce fichier dans votre répertoire de travail.

	vgj3.h

/* ------------------------------------ */
/*  Save as :   vgj3.h                  */
/* ------------------------------------ */
void gj3_T_mR(
double **Ab,
int below
)
{
int r= R1;
int c= C1;

    while( (r<Ab[R_SIZE][C0]) &&
           (c<Ab[C_SIZE_A][C0]) )
       {
        if(pivotbest_gj3Ab_mR(Ab,r,c)>ERROR_E) 
        
           zero_under_pivot_gj3Ab_mR(Ab,r,c);
           
        else r--;
        
        r++;
        c++;
       }

 r = Ab[R_SIZE][C0];
 
 if(below)
 
 while(r>R1)
  {
   r--;
   c=C1;
   
   while(fabs(Ab[r][c])<ERROR_E  &&  c<(Ab[C_SIZE_A][C0]-C1) ) c++;
         
   if(fabs(Ab[r][c])>ERROR_E)
   
      zero_below_pivot_gj3Ab_mR(Ab,r,c);
  }
}
/* ------------------------------------ */
double **gj_PP_mR(
double **Ab,
int below
)
{
   gj3_T_mR(Ab,below);
  
return(Ab);
}
/* ------------------------------------ */
/* ------------------------------------ */

Déclaration des fichiers h.