Mathc complexes/Fichiers h : wel rop

Un livre de Wikilivres.


Bibliothèque


Installer ce fichier dans votre répertoire de travail.

wel_rop.h
/* ------------------------------------ */
/*  Save as :  wel_rop.h                */
/* ------------------------------------ */
/* ------------------------------------ */
double **swapR_mZ(
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_mZ(
double **A,
nb_Z z,
int  r
)
{
nb_Z T;
int c;

    for ( c=C1; c<A[C_SIZE][C0]; c+=C2)
        {
          T = mul_Z(i_Z(A[r][c],A[r][c+C1]),z);
          A[r][c] =    T.r;
          A[r][c+C1] = T.i;
         }
         
return(A);
}
/* ------------------------------------ */
double **addR_mZ(
double **A,
nb_Z z,
int    r1,
int    r2
)
{
int      c;
nb_Z T;

    for ( c=C1; c<A[C_SIZE][C0]; c+=C2)
         {
          T = add_Z(
                     mul_Z(i_Z(A[r1][c],A[r1][c+C1]), z),
                           i_Z(A[r2][c],A[r2][c+C1]));

          A[r2][c]    = T.r;
          A[r2][c+C1] = T.i;
         }
        
return(A);
}
/* ------------------------------------ */
/* ------------------------------------ */


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