< Mathc complexes
Installer ce fichier dans votre répertoire de travail.
![]() |
wc_coef.h ' |
---|
/* ------------------------------------ */
/* Save as : wc_coef.h */
/* ------------------------------------ */
nb_Z c_coef_Z(
double **A,
int r,
int c
)
{
if( r<R1 ||
c<C1 ||
r>A[R_SIZE][C0] ||
c>A[C_SIZE][C0]
)
{
printf("\n\n Error : c_coef_Z(); \n\n");
printf(" r=%d, c=%d, and would be :\n\n",r,c);
printf(" r>=1; c>=1;\n r=<%.0f; c=<%.0f;\n",
A[R_SIZE][C0],
A[C_SIZE][C0] );
printf("\n Press return to continue. \n");
fflush(stdout);
getchar();
exit(EXIT_FAILURE);
}
return( i_Z( A[r][c],
A[r][c+C1]) );
}
/* ------------------------------------ */
void c_z_mZ(
nb_Z s,
double **A,
int r,
int c
)
{
if( r<R1 ||
c<C1 ||
r>A[R_SIZE][C0] ||
c>A[C_SIZE][C0]
)
{
printf("\n\n Error : c_z_mZ(); \n\n");
printf(" r=%d, c=%d, and would be :\n\n",r,c);
printf(" r>=1; c>=1;\n r=<%.0f; c=<%.0f;\n",
A[R_SIZE][C0],
A[C_SIZE][C0] );
printf("\n Press return to continue. \n");
fflush(stdout);
getchar();
exit(EXIT_FAILURE);
}
A[r][c] = s.r;
A[r][c+C1] = s.i;
}
/* ------------------------------------ */
/* ------------------------------------ */
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.