Mathc complexes/a136

Application

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

	c00b.c

/* ------------------------------------ */
/*  Save as :   c00b.c                  */
/* ------------------------------------ */
#include "w_a.h"
/* ------------------------------------ */
void AplsB(int r)
{
double **A  = i_mZ(r,r);
double **B  = i_mZ(r,r);
double **C  = i_mZ(r,r);
double **T  = i_mZ(r,r);
double **AB = i_mZ(r,r);
double **BA = i_mZ(r,r);

   r_commute3_mZ(A,B,C,9);

  clrscrn();
  printf(" A : ");
  p_mZ(A,S5,P3,S5,P3,C6);                                
  printf(" B : ");
  p_mZ(B,S5,P3,S5,P3,C6);
  printf(" C : ");
  p_mZ(C,S5,P3,S5,P3,C6);       
  stop();

  clrscrn();
  printf(" AB : ");
  p_mZ(mul_mZ(A,B,AB),S5,P9,S5,P9,C6);
  printf(" BA : ");
  p_mZ(mul_mZ(B,A,BA),S5,P9,S5,P9,C6);
  stop();

  clrscrn();
  printf(" AC : ");
  p_mZ(mul_mZ(A,C,AB),S5,P9,S5,P9,C6);
  printf(" CA : ");
  p_mZ(mul_mZ(C,A,BA),S5,P9,S5,P9,C6);
  stop();

  clrscrn();
  printf(" BC : ");
  p_mZ(mul_mZ(B,C,AB),S5,P9,S5,P9,C6);
  printf(" CB : ");
  p_mZ(mul_mZ(C,B,BA),S5,P9,S5,P9,C6);   
  
  
  f_mZ(A);
  f_mZ(B);
  f_mZ(C);
  f_mZ(AB);
  f_mZ(BA);
  f_mZ(T);
}
/* ------------------------------------ */
void hello(void)
{
  
  printf("\n                                                  ");
  printf("\n     Three Commutative matrices                    ");
  printf("\n            ****************                    \n");
  printf("\n                                                  ");
  printf("\n                                                  ");
  printf("\n                                                \n");
  stop();
}
/* ------------------------------------ */
int main(void)
{
time_t t;

  srand(time(&t));
  hello();

do
{
  AplsB(RC3);

} while(stop_w());

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

Exemple de sortie écran :

 ---------------------------------------
 A : 
+0.181-0.046i -0.551-0.144i -0.227+0.206i 
-0.642+0.161i -0.273-0.053i +0.159-0.059i 
-0.064-0.237i +0.026+0.104i -0.665+0.098i 

 B : 
+0.359-0.276i -0.095-0.490i -0.028+1.018i 
-0.507-0.143i +0.479-0.472i +0.339+1.061i 
-0.103-0.486i +0.274-0.437i +0.016+0.748i 

 C : 
+0.114+0.075i +0.011+0.131i +0.001-0.274i 
+0.122+0.044i +0.068+0.128i -0.089-0.294i 
+0.027+0.127i -0.075+0.123i +0.185-0.203i 

 Press return to continue. 


 ---------------------------------------
 AB : 
+0.434810475+0.174468591i -0.343798055+0.262510666i -0.150150838-0.614952765i 
-0.100610661+0.229349630i +0.002243624+0.317665809i -0.136209570-0.847387889i 
+0.029462986+0.189563214i -0.187948557+0.408464831i +0.057625024-0.492134400i 

 BA : 
+0.434810475+0.174468591i -0.343798055+0.262510666i -0.150150838-0.614952765i 
-0.100610661+0.229349630i +0.002243624+0.317665809i -0.136209570-0.847387889i 
+0.029462986+0.189563214i -0.187948557+0.408464831i +0.057625024-0.492134400i 

 Press return to continue. 


 ---------------------------------------
 AC : 
-0.069113056-0.056712464i -0.019496306-0.100756985i -0.005673853+0.209178420i 
-0.104207477-0.029324530i -0.044492220-0.097029038i +0.069581516+0.218083037i 
-0.021175931-0.099932070i +0.056323283-0.089723975i -0.139750390+0.153741502i 

 CA : 
-0.069113056-0.056712464i -0.019496306-0.100756985i -0.005673853+0.209178420i 
-0.104207477-0.029324530i -0.044492220-0.097029038i +0.069581516+0.218083037i 
-0.021175931-0.099932070i +0.056323283-0.089723975i -0.139750390+0.153741502i 

 Press return to continue. 


 --------------------------------------
 BC : 
-0.058919263-0.044802143i -0.026610479-0.080914103i -0.009134934+0.166041105i 
-0.094014703-0.019303648i -0.049374383-0.076119628i +0.057129588+0.167383789i 
-0.017719240-0.082216972i +0.044087261-0.067204335i -0.131224715+0.120921771i 

 CB : 
-0.058919263-0.044802143i -0.026610479-0.080914103i -0.009134934+0.166041105i 
-0.094014703-0.019303648i -0.049374383-0.076119628i +0.057129588+0.167383789i 
-0.017719240-0.082216972i +0.044087261-0.067204335i -0.131224715+0.120921771i 


 Press return to continue
 Press X      to stop