Aller au contenu

Mathc complexes/h10k

Un livre de Wikilivres.


Bibliothèque


Installer ce fichier dans votre répertoire de travail.

wgj2.h
/* ------------------------------------ */
/*  Save as :   wgj2.h                  */
/* ------------------------------------ */
void gj2_T_mZ(
double **Ab
)
{
int r = R1;
int c = C1;

    while((r<Ab[R_SIZE][C0]) &&
          (c<Ab[C_SIZE_A][C0])
         )
       {
        if(pivotbest2Ab_mZ(Ab,r,c)>ERROR_E)  
           zero_under_pivot_gjAb_mZ(Ab,r,c);
        r++;
        c+=C2;
       }

    r--;
    c-=C2;

    while( (r>R1) )
       {
        zero_below_pivot_gj_mZ(Ab,r,c);
        r--;
        c-=C2;
       }
}
/* ------------------------------------ */
void gj2_mZ(
double **Ab
)
{
  gj2_T_mZ(Ab);
  sort_c_mZ(Ab);
  sort_r_mZ(Ab);
}
/* ------------------------------------ */
/* ------------------------------------ */


Déclaration des fichiers h.