Mathc matrices/c071b

Application

La fonction i_RC_mR(A[R_SIZE][C0], A[C_SIZE][C0]); lit la taille de la matrice directement dans la mémoire.

La fonction pivotbest_mR(); retourne 1, si il y a un échange de lignes et de colonnes paires, et retourne -1, si il y a un échange de ligne et de colonnes impaires.

La fonction zero_under_pivot_mR(); retourne la valeur du pivot.

/* ------------------------------------ */
/* ------------------------------------ */
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);
}
/* ------------------------------------ */
/* ------------------------------------ */