Mathc matrices/h07b

Bibliothèque

Installer ce fichier dans votre répertoire de travail.

	ve_det1.h

/* ------------------------------------ */
/*  Save as :  ve_det1.h                */
/* ------------------------------------ */
double det_R(
double **A
)
{
double **T = c_mR(A,
                i_RC_mR(A[R_SIZE][C0],A[C_SIZE][C0]));
double deter=1;
int rc;

    for( rc=C1; rc<T[C_SIZE][C0]; rc++)
       {
        deter *= pivotbest_mR(T,rc);
        deter *= zero_under_pivot_mR(T,rc); 
       }

   f_mR(T);

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