Aller au contenu

Mathc complexes/h10h

Un livre de Wikilivres.


Bibliothèque


Installer ce fichier dans votre répertoire de travail.

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

    while((r<Ab[R_SIZE][C0]) &&
          (c<Ab[C_SIZE_A][C0])
         )
       {
        if(pivotbest4Ab_r0_mZ(Ab,r,c)>ERROR_E)  
           zero_under_pivot_gjAb_mZ(Ab,r,c);
        r++;
        c+=C2;
       }
}
/* ------------------------------------ */
void gj4_mZ(
double **Ab
)
{
double **Ab_T = c_mZ(Ab,i_AbR_AbC_AC_mZ(

                             Ab[R_SIZE][C0],
                             Ab[C_SIZE][C0],
                             Ab[C_SIZE_A][C0]));
double **new_Ab;
int r_not_0;

  gj4_T_mZ(Ab_T);
  sort4_r_coef_r0_mZ(Ab_T);
  r_not_0 =  is_system_consistent_mZ(Ab,Ab_T);

  if(r_not_0>2)
     {
       new_Ab = i_AbR_AbC_AC_mZ(
                             r_not_0,
                             Ab[C_SIZE][C0],
                             Ab[C_SIZE_A][C0]);
       c_nr_mZ(r_not_0,Ab, new_Ab);
       gj2_mZ(new_Ab);
       m0_mZ(Ab);
       c_mZ(new_Ab,Ab);
       f_mZ(new_Ab);
     }
   else printf(" The system has only an equation !!\n\n");

f_mZ(Ab_T);
}
/* ------------------------------------ */
/* ------------------------------------ */


Déclaration des fichiers h.