Mathc matrices/h09f

Un livre de Wikilivres.
Aller à la navigation Aller à la recherche


Sommaire


Installer ce fichier dans votre répertoire de travail.

Crystal Clear mimetype source h.png vgel_op.h
'
/* ------------------------------------ */
/*  Save as :   vgel_op.h                 */
/* ------------------------------------ */
double **swapcoefR0_mR(
double **A,
int c1,
int c2)
{
double T;

         T         = A[R0][c1];
         A[R0][c1] = A[R0][c2];
         A[R0][c2] = T;
        
return(A);
}
/* ------------------------------------ */
double **swapC_withR0_mR(
double **A,
int c1,
int c2)
{
double T;
int r;

    for ( r=R0; r<A[R_SIZE][C0]; r++)
        {
         T        = A[r][c1];
         A[r][c1] = A[r][c2];
         A[r][c2] = T;
        }
        
return(A);
}
/* ------------------------------------ */
/* ------------------------------------ */