Mathc complexes/Fichiers c : p e mrz

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

	`pe_mrz.c`

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

  clrscrn();
  
  printf("Real part only\n\n");
  
  printf(" A : ");
  pE_mRZ(A, S10,P1, C4);
  
  f_mZ(A);
}
/* ------------------------------------ */
int main(void)
{
time_t t;

  srand(time(&t));
  
   do 
        fun(rp_I(R4)+R1,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 : 
  +0.0e+00   +0.0e+00   +0.0e+00   +0.0e+00 
  +0.0e+00   +0.0e+00   +0.0e+00   +0.0e+00 
  +0.0e+00   +0.0e+00   +0.0e+00   +0.0e+00 

  +0.0e+00   +0.0e+00 
  +0.0e+00   +0.0e+00 
  +0.0e+00   +0.0e+00 


 Press return to continue
 Press X      to stop