Mathc complexes/Fichiers c : c a a

Le code de la fonction :

/* ------------------------------------ */
/* ------------------------------------ */
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);
}
/* ------------------------------------ */
/* ------------------------------------ */

La fonction ca_A_mR(); permet de copier un tableau dans une matrice.

Installer et compiler ce fichier dans votre répertoire de travail.

	`c00a.c`

/* ------------------------------------ */
/*  Save as :   c00a.c                  */
/* ------------------------------------ */
#include      "w_a.h"
/* ------------------------------------ */
int main(void)
{
double a[R2*(C3*C2)] ={ 1, 2,  3, 4,  5, 6,
                       10,20, 30,40, 50,60};
                     
double **A = ca_A_mZ(a,i_mZ(R2,C3));
double **B =           i_mZ(R2,C3);

  printf(" A : ");
  p_mZ(A,S4,P0,S3,P0,C6);

  ca_A_mZ(a,B);  
  printf(" B : ");
  p_mZ(B,S4,P0,S3,P0,C6);  
  stop();
  
  f_mZ(A);
  f_mZ(B);
  
  return 0;
}
/* ------------------------------------ */
/* ------------------------------------ */

Exemple de sortie écran :

 A : 
  +1 +2i   +3 +4i   +5 +6i 
 +10+20i  +30+40i  +50+60i 

 B : 
  +1 +2i   +3 +4i   +5 +6i 
 +10+20i  +30+40i  +50+60i 

 Press return to continue.