Aller au contenu

Mathc complexes/Fichiers c : c01b

Un livre de Wikilivres.

Application

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

c00a.c
/* ------------------------------------ */
/*  Save as :  c00a.c                   */
/* ------------------------------------ */
#include "w_a.h"
/* ------------------------------------ */
void AplsB(int r,int c)
{
double **A[C3];

     A[C0] = i_mZ(r,c);
     A[C1] = i_mZ(r,c);
     A[C2] = i_mZ(r,c);

  r_mZ(A[C0],9);               
  r_mZ(A[C1],9);                               

  clrscrn();

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

  add_mZ(A[C0],A[C1],A[C2]);

  printf(" A0plsA1 : ");
  p_mZ(A[C2],S5,P0, S3,P0, C6);

  f_mZ(A[C0]);
  f_mZ(A[C1]);
  f_mZ(A[C2]);
}
/* ------------------------------------ */
int main(void)
{
time_t t;

  srand(time(&t));
  
  do{
        AplsB(rp_I(C5),rp_I(C5));
        
  }while(stop_w());

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

...


Exemple de sortie écran :

 A0 : 
   -8 -6i 
   +9 -3i 
   +3 +2i 
   -5 +2i 

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

 A0plsA1 : 
  -11-12i 
   +5-10i 
  +10 +1i 
   +4 +7i 


 Press return to continue
 Press X      to stop