Mathc complexes/Fichiers c : p 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 p_mrz.c
'
/* ------------------------------------ */
/*  Save as :   p_mrz.c                   */
/* ------------------------------------ */
#include "w_a.h"
/* ------------------------------------ */
void fun(int r,int c)
{
double **A     = r_mZ(i_mZ(r,c),9);
double **B     = r_mZ(i_mZ(r,c),9);
double **AplsB =      i_mZ(r,c);

  clrscrn();
  
  printf("Real part only\n\n");
  
  printf(" A : ");
  p_mRZ(A, 4,0, C6);

  printf(" B : ");
  p_mRZ(B, 4,0, C6);

  printf(" A + B : ");
  p_mRZ(add_mZ(A,B,AplsB), 4,0, C6);
  
  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 p_mRZ(); imprime la partie réelle de la matrice. La partie imaginaire est ignorée.


Exemple de sortie écran :

Real part only

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

 B : 
  -3   -5   -7   +8   +6   -5 
  +8   +2   +6   +4   +8   -3 
  +4   -9   -9   -7   +4   -7 
  +2   +4   -3   +2   +6   +4 

 A + B : 
  -8   -6  -10   +1  +12   -6 
  -1   -5   +1   +3   +1   +3 
  +3  -14  -12   +1  +12   -5 
  +1   +6  -10   +6   +5   -5 


 Press return to continue
 Press X      to stop