Aller au contenu

Mathc matrices/c33 1c

Un livre de Wikilivres.


Application

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

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

  r_commute4_mR(A,B,C,D,9);

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

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

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

  clrscrn();
  printf(" BC : ");
  p_mR(mul_mR(B,C,AB),S5,P9,C6);
  printf(" CB : ");
  p_mR(mul_mR(C,B,BA),S5,P9,C6);   
  stop();

  clrscrn();
  printf(" AD : ");
  p_mR(mul_mR(A,D,AB),S5,P9,C6);
  printf(" DA : ");
  p_mR(mul_mR(D,A,BA),S5,P9,C6);
  stop();

  clrscrn();
  printf(" BD : ");
  p_mR(mul_mR(B,D,AB),S5,P9,C6);
  printf(" DB : ");
  p_mR(mul_mR(D,B,BA),S5,P9,C6); 
  stop();

  clrscrn();
  printf(" CD : ");
  p_mR(mul_mR(C,D,AB),S5,P9,C6);
  printf(" DC : ");
  p_mR(mul_mR(D,C,BA),S5,P9,C6); 
  
  f_mR(A);
  f_mR(B);
  f_mR(C);
  f_mR(D);
  f_mR(T);
  f_mR(AB);
  f_mR(BA);
}
/* ------------------------------------ */
void hello(void)
{
  
  printf("\n                                                  ");
  printf("\n     Four 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.166 -0.675 +0.311 
-0.768 -0.313 -0.140 
+0.451 -0.144 +0.405 

 B : 
+0.154 +0.327 +0.363 
+0.352 +0.234 -0.387 
+0.481 -0.500 -0.554 

 C : 
-2.964 -3.961 -0.000 
-4.434 -5.228 +0.796 
+0.161 +1.179 +0.546 

 D : 
+2.578 +2.716 -0.503 
+3.061 +4.280 -0.100 
-0.795 -0.250 +0.751 

 Press return to continue. 
 
 
 
 AB : 
-0.062339004 -0.258872567 +0.149440583 
-0.295901450 -0.254772246 -0.080371979 
+0.213947104 -0.088617352 -0.005234657 

 BA : 
-0.062339004 -0.258872567 +0.149440583 
-0.295901450 -0.254772246 -0.080371979 
+0.213947104 -0.088617352 -0.005234657 

 Press return to continue. 
 
 
 AC : 
+2.552146353 +3.238937890 -0.367848775 
+3.640966506 +4.513108698 -0.325010660 
-0.632761552 -0.555686939 +0.106612824 

 CA : 
+2.552146353 +3.238937890 -0.367848775 
+3.640966506 +4.513108698 -0.325010660 
-0.632761552 -0.555686939 +0.106612824 

 Press return to continue. 

 

 BC : 
-1.851440740 -1.895923694 +0.458981779 
-2.141191966 -3.071767768 -0.025622332 
+0.702008327 +0.055244725 -0.700775560 

 CB : 
-1.851440740 -1.895923694 +0.458981779 
-2.141191966 -3.071767768 -0.025622332 
+0.702008327 +0.055244725 -0.700775560 

 Press return to continue. 
 

 AD : 
-1.886277766 -2.516668484 +0.217875173 
-2.826274812 -3.389745271 +0.312729795 
+0.399186093 +0.507068843 +0.092223690 

 DA : 
-1.886277766 -2.516668484 +0.217875173 
-2.826274812 -3.389745271 +0.312729795 
+0.399186093 +0.507068843 +0.092223690 

 Press return to continue. 
 
 BD : 
+1.111771847 +1.730090428 +0.162231310 
+1.930202575 +2.052534715 -0.491409408 
+0.150221221 -0.694361059 -0.607969126 

 DB : 
+1.111771847 +1.730090428 +0.162231310 
+1.930202575 +2.052534715 -0.491409408 
+0.150221221 -0.694361059 -0.607969126 

 Press return to continue. 

 
 CD : 
-19.763973297 -25.001913517 +1.887303670 
-28.066399361 -34.617771858 +3.352390871 
+3.588481645 +5.344669131 +0.210979191 

 DC : 
-19.763973297 -25.001913517 +1.887303670 
-28.066399361 -34.617771858 +3.352390871 
+3.588481645 +5.344669131 +0.210979191 


 Press return to continue
 Press X      to stop