Mathc complexes/Fichiers h : vc m

Installer ce fichier dans votre répertoire de travail.

	wcm.h

/* ------------------------------------ */
/*  Save as :   wcm.h                   */
/* ------------------------------------ */
double **ca_A_mZ(
double  a[],
double  **A
)
{
int r;
int c;
int i=0;

 	for    (r=R1; r<A[R_SIZE][C0]; r++)
 	   for (c=R1; c<A[C_SIZE][C0]; c++)

            A[r][c] = a[i++];

return(A);
}
/* ------------------------------------ */
double **c_mZ(
double **A,
double **B
)
{
int c;
int r;

 	for    (r=R1; r<A[R_SIZE][C0]; r++)
 	   for (c=R1; c<A[C_SIZE][C0]; c++)

            B[r][c] = A[r][c];
            
return(B);
}
/* ------------------------------------ */
void c_r_mZ(
double **A,
int rA,
double **B,
int rB
)
{
int c;

    for(c=C1; c<A[C_SIZE][C0]; c++)

            B[rB][c] = A[rA][c];
}
/* ------------------------------------ */
void c_c_mZ(
double **A,
int cA,
double **B,
int cB
)
{
int r;

    for(r=R1; r<A[R_SIZE][C0]; r++)
       {
        B[r][((cB-C1)*C2+C1)]    = A[r][((cA-C1)*C2+C1)];
        B[r][((cB-C1)*C2+C1)+C1] = A[r][((cA-C1)*C2+C1)+C1];
       }
}
/* ------------------------------------ */
/* ------------------------------------ */

La fonction c_mZ(); permet de copier la matrice A dans la matrice B. Elle ne vérifie pas la taille des matrices. Le fait d'avoir conservé cette possibilité m'a rendu de grand service.

La deuxième fonction copie un tableau de nombre dans une matrice.