Installer ce fichier dans votre répertoire de travail.
![]() |
wel_cop.h ' |
---|
/* ------------------------------------ */
/* Save as : wel_cop.h */
/* ------------------------------------ */
/* ------------------------------------ */
double **swapC_mZ(
double **A,
int c1,
int c2)
{
double T;
int r;
for ( r=R1; 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 c
)
{
nb_Z T;
int r;
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 c2
)
{
int r;
nb_Z T;
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.
Cet article est issu de Wikibooks. Le texte est sous licence Creative Commons - Attribution - Partage dans les Mêmes. Des conditions supplémentaires peuvent s'appliquer aux fichiers multimédias.