Mathc complexes/a85

Application

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

	c00a.c

/* ------------------------------------ */
/*  Save as :  c00a.c                   */
/* ------------------------------------ */
#include "w_a.h"
/* ------------------------------------ */
void fun(int r)
{    
double **A = r_mZ(i_mZ(r,r),9);
double **B = r_mZ(i_mZ(r,r),9);
double **AplsB =  i_mZ(r,r);

  clrscrn();
  printf(" A : ");
  p_mZ(A,S5,P0, S5,P0, C6);        
  printf(" B : ");
  p_mZ(B,S5,P0, S5,P0, C6);          


  printf("\n\n Trace(A)+Trace(B) =");
         p_Z(trace_Z(A), S4,P0, S3,P0);
         p_Z(trace_Z(B), S4,P0, S3,P0);
  printf("=");          
         p_Z(add_Z(trace_Z(A),trace_Z(B)), S4,P0, S3,P0);

  add_mZ(A,B,AplsB);
  printf("\n\n       Trace(A+B)  =");
  p_Z(trace_Z(AplsB), S4,P0, S3,P0);
  printf("\n\n\n\n");       
      
  f_mZ(A);
  f_mZ(B);
  f_mZ(AplsB);
}
/* ------------------------------------ */
void hello(void)
{
  printf("\n                                                  ");
  printf("\n                                                  ");
  printf("\n         Trace(A+B) = Trace(A) + Trace(B):        ");
  printf("\n         ********************************         ");
  printf("\n                                                  ");
  printf("\n                                                  ");
  printf("\n                                                \n");
  stop();
}
/* ------------------------------------ */
int main(void)
{
time_t t;

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

do{ 
  fun(rp_I(RC4));
  
} while(stop_w());

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

  La fonction trace se contente d'additionner tous les coefficients sur la diagonale.

Exemple de sortie écran :

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

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



 Trace(A)+Trace(B) = -20 +0i   -9 +2i = -29 +2i 

       Trace(A+B)  = -29 +2i 




 Press return to continue
 Press X      to stop