Mathc complexes/Fichiers c : p e mrz

Un livre de Wikilivres.
Sauter à la navigation Sauter à la recherche


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

Crystal Clear mimetype source c.png pe_mrz.c
'
/* ------------------------------------ */
/*  Save as :   pe_mrz.c                   */
/* ------------------------------------ */
#include "w_a.h"
/* ------------------------------------ */
void fun(int r,int c)
{
double **A     = rE_mZ(i_mZ(r,c), 99999, 1E-3);
double **B     = rE_mZ(i_mZ(r,c), 99999, 1E-3);
double **AplsB =      i_mZ(r,c);

  clrscrn();
  
  printf("Real part only\n\n");
  
  printf(" A : ");
  pE_mRZ(A, 12,2, C4);

  printf(" B : ");
  pE_mRZ(B, 12,2, C4);

  printf(" A + B : ");
  pE_mRZ(add_mZ(A,B,AplsB), 12,2, C4);
  
  f_mZ(A);
  f_mZ(B);
  f_mZ(AplsB);
}
/* ------------------------------------ */
int main(void)
{
time_t t;

  srand(time(&t));
  
   do 
        fun(rp_I(R4),rp_I(C6));
        
    while(stop_w());
        
  return 0;
}


La fonction pE_mRZ(); imprime la partie réelle de la matrice sous forme scientifique. La partie imaginaire est ignorée.


Exemple de sortie écran :

  Real part only

 A : 
   -5.79e+01    +7.00e+00    +3.49e+01 
   +3.14e+01    +5.41e+01    +6.94e+01 
   +9.08e+01    -3.50e+01    -5.54e+01 

 B : 
   -4.02e+01    +9.26e+01    +1.88e+00 
   +9.36e+01    +3.74e+01    -7.60e+00 
   +4.78e+01    +2.23e+01    +1.66e+00 

 A + B : 
   -9.81e+01    +9.96e+01    +3.68e+01 
   +1.25e+02    +9.15e+01    +6.18e+01 
   +1.39e+02    -1.27e+01    -5.37e+01 


 Press return to continue
 Press X      to stop