Mathc matrices/h16c
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.