Mathc complexes/Fichiers h : wel cop

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 wel_cop.h
'
/* ------------------------------------ */
/*  Save as :  wel_cop.h                */
/* ------------------------------------ */
double **swapC_mZ(
double **A,
int c1,
int c2a)
{
double T;
int r;
int c2 = (c2a*C2)-C1;  

    for ( r=R0; r<A[R_SIZE][C0]; r++)
        {
         T        = A[r][c1];
         A[r][c1] = A[r][c2];
         A[r][c2] = T;

         T           = A[r][c1+C1];
         A[r][c1+C1] = A[r][c2+C1];
         A[r][c2+C1] = T;
        }
        
return(A);
}
/* ------------------------------------ */
double **mulC_mZ(
double **A,
nb_Z z,
int  ca
)
{
nb_Z T;
int r;
int c = (ca*C2)-C1;  

    for ( r=R1; r<A[R_SIZE][C0]; r++)
        {
          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 **addC_mZ(
double **A,
nb_Z z,
int c1,
int ca
)
{
nb_Z T;

int      r;
int c2 = (ca*C2)-C1;  

    for ( r=R1; r<A[R_SIZE][C0]; r++)
         {
          T = add_Z(
                     mul_Z(i_Z(A[r][c1],A[r][c1+C1]), z),
                           i_Z(A[r][c2],A[r][c2+C1]));

          A[r][c2]    = T.r;
          A[r][c2+C1] = T.i;
         }
        
return(A);
}


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