Aller au contenu

Mathc complexes/Fichiers c : c01c

Un livre de Wikilivres.


Application

Le code de la fonction :

/* ------------------------------------ */
/* ------------------------------------ */
void rs_mZ(
double **A[],
int      I,
int      n
)
{
int      i;
int      r;
int      c;

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

                 A[i][r][c] = r_I(n);
}
/* ------------------------------------ */
/* ------------------------------------ */
La variable "I" indique le nombre d'éléments du qui doivent être initialisés. Dans l'exemple seule les deux premiers éléments du tableau doivent être initialisés, A[0] et A[1].

Installer et compiler ces fichiers dans votre répertoire de travail.

c00b.c
/* ------------------------------------ */
/*  Save as :  c00b.c                   */
/* ------------------------------------ */
#include "w_a.h"
/* ------------------------------------ */
#define  ARRAY A3
/* ------------------------------------ */
void fun(int r,int c)
{
double **A[ARRAY];

  A[A0] = i_mZ(r,c);
  A[A1] = i_mZ(r,c);
  A[A2] = i_mZ(r,c);

  rs_mZ(A,A2,9);                

  add_mZ(A[A0],A[A1],A[A2]);

  clrscrn();

  printf(" A0 : ");
  p_mZ(A[A0], S5,P0, S3,P0, C6);         
                         
  printf(" A1 : ");
  p_mZ(A[A1], S5,P0, S3,P0, C6);        
  
  printf(" A2 : A0 + A1 ");
  p_mZ(A[A2], S5,P0, S3,P0, C6);

  f_mZ(A[A0]);
  f_mZ(A[A1]);
  f_mZ(A[A2]);
}
/* ------------------------------------ */
int main(void)
{
time_t t;

  srand(time(&t));
  
  do{
        fun(R3,C3);
        
  }while(stop_w());

  return 0;
}
/* ------------------------------------ */
/* ------------------------------------ */

Exemple de sortie écran :

 A0 : 
   -6 +6i    -7 -4i    +4 -7i 
   +6 -9i    +6 +9i    +7 +5i 
   +1 -8i    -2 +7i    +3 -9i 

 A1 : 
   -2 -5i    +3 +5i    +1 -9i 
   +2 +1i    -9 +1i    +6 -6i 
   +7 -2i    -5 -5i    -2 -9i 

 A2 : A0 + A1 
   -8 +1i    -4 +1i    +5-16i 
   +8 -8i    -3+10i   +13 -1i 
   +8-10i    -7 +2i    +1-18i 


 Press   return to continue
 Press X return to stop