Mathc complexes/Fichiers c : mul low

From Wikilivres
Jump to navigation Jump to search


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

Crystal Clear mimetype source c.png mul_low.c
'
/* ------------------------------------ */
/*  Save as :   mul_low.c               */
/* ------------------------------------ */
#include "w_a.h"
/* ------------------------------------ */
void fun(int rc)
{
double **A  = rlower_mZ(i_mZ(rc,rc),9);
double **B  = rlower_mZ(i_mZ(rc,rc),9);
double **AB =           i_mZ(rc,rc);

  clrscrn();

  printf(" A : ");
  p_mZ(A, 5,0, 4,0, C6);

  printf(" B : ");
  p_mZ(B, 5,0, 4,0, C6);

  printf(" AB : ");
  p_mZ(mul_mZ(A,B,AB), 5,0, 4,0, C6);
  
  f_mZ(A);
  f_mZ(B);
  f_mZ(AB);
}
/* ------------------------------------ */
int main(void)
{
time_t t;

  srand(time(&t));
  
   do 
         fun(rp_I(RC6));
        
    while(stop_w());
        
  return 0;
}


Si nous multiplions deux matrices triangulaires inférieures, nous obtenons une matrice triangulaire inférieure.


Exemple de sortie écran :

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

 B : 
   -3  +2i    +0  +0i    +0  +0i 
   -1  -1i    -3  +6i    +0  +0i 
   +4  +6i    +4  +4i    -9  -9i 

 AB : 
  -22  +6i    +0  +0i    +0  +0i 
  +28 -27i   -27 -66i    +0  +0i 
  +52 -88i   -19-100i   -18+144i 


 Press return to continue
 Press X      to stop