Aller au contenu

Mathc complexes/h07b

Un livre de Wikilivres.


Bibliothèque


Installer ce fichier dans votre répertoire de travail.

we_det1.h
/* ------------------------------------ */
/*  Save as :   we_det1.h               */
/* ------------------------------------ */
nb_Z det_Z(
double **A
)
{
double **T = c_mZ(A,i_RC_mZ(A[R_SIZE][C0],
                            A[C_SIZE][C0]));
nb_Z deter=i_Z(1.,0.);
int r;
int c;

    for( r=R1, c=C1; r<T[R_SIZE][C0]; r++,c+=C2)
      {
        deter = smul_Z( pivotbest_mZ(T,r,c),
                        deter);

        deter = mul_Z( deter,
                       zero_under_pivot_mZ(T,r,c));
       }

   f_mZ(T);

return(deter);
}
/* ------------------------------------ */
/* ------------------------------------ */


Déclaration des fichiers h.