< Mathc complexes
Installer ce fichier dans votre répertoire de travail.
![]() |
wgel_op.h ' |
---|
/* ------------------------------------ */
/* Save as : wgel_op.h */
/* ------------------------------------ */
double **swapcoef_R0_mZ(
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_R0_mZ(
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;
T = A[r][c1+C1];
A[r][c1+C1] = A[r][c2+C1];
A[r][c2+C1] = T;
}
return(A);
}
/* ------------------------------------ */
/* ------------------------------------ */
Déclaration des fichiers h.
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.