Mathc matrices/Fichiers h : vel rop

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


Installer ce fichier dans votre répertoire de travail.

Crystal Clear mimetype source h.png vel_rop.h
'
/* ------------------------------------ */
/*  Save as :   vel_rop.h               */
/* ------------------------------------ */
double **swapR_mR(
double **A,
int r1,
int r2)
{
double T;
int c;

    for ( c=C1; c<A[C_SIZE][C0]; c++)
        {
         T        = A[r1][c];
         A[r1][c] = A[r2][c];
         A[r2][c] = T;
        }
        
return(A);
}
/* ------------------------------------ */
double **mulR_mR(
double **A,
double s,
int r
)
{
int c;

    for ( c=C1; c<A[C_SIZE][C0]; c++)

         A[r][c] *= s;
        
return(A);
}
/* ------------------------------------ */
double **addR_mR(
double **A,
double s,
int    r1,
int    r2
)
{
int      c;

    for ( c=C1; c<A[C_SIZE][C0]; c++)

          A[r2][c] += s*A[r1][c];
        
return(A);
}

Il y a les trois opérations élémentaires sur les lignes.