Mathc matrices/Fichiers c : fp e mr

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 h.png fpe_mr.c
'
/* ------------------------------------ */
/*  Save as :   fpe_mr.c                 */
/* ------------------------------------ */
#include "v_a.h"
/* ------------------------------------ */
void fun(int r,int c)
{
double **A   = rE_mR(i_mR(r,c), 99, 1E-3 );
double **B   = rE_mR(i_mR(r,c), 99, 1E-3 );
double **AplsB =     i_mR(r,c);

  clrscrn();

  printf(" See the file \"aamatrix.txt\" \n\n");
  
  fpE_mR(A,"\n\n\n\nA :", 12,3, C6);
  fpE_mR(B,        "B :", 12,3, C6);
  
  fpE_mR(add_mR(A,B,AplsB),"AplsB :",12,3, C6);
  
  f_mR(A);
  f_mR(B);
  f_mR(AplsB);
}
/* ------------------------------------ */
int main(void)
{
time_t t;

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


La fonction fpE_mR(); est identique à la fonction pE_mR(); mais elle écrit les nombres dans un fichier texte (aamatrix.txt).

Le nom du fichier a été choisi pour être parmi les premiers de la liste dans votre répertoire.

Les additions de matrices s'ajoute les unes après les autres grace à la commande "a".

Vous pourriez bien entendu les afficher aussi à l'écran.

FILE * fp = fopen("aamatrix.txt","a");


Exemple de sortie écran :

A :
  +3.600e-02 
  +8.400e-02 
  -7.900e-02 

B :
  +3.400e-02 
  +1.600e-02 
  +6.800e-02 

AplsB :
  +7.000e-02 
  +1.000e-01 
  -1.100e-02 





A :
  +4.800e-02   -5.900e-02   +2.200e-02 
  -1.900e-02   -5.900e-02   -4.300e-02 
  -3.000e-03   -4.700e-02   -8.100e-02 

B :
  -3.300e-02   +8.400e-02   +7.000e-02 
  -3.300e-02   -8.900e-02   +5.600e-02 
  +9.200e-02   +4.800e-02   +9.200e-02 

AplsB :
  +1.500e-02   +2.500e-02   +9.200e-02 
  -5.200e-02   -1.480e-01   +1.300e-02 
  +8.900e-02   +1.000e-03   +1.100e-02