Mathc matrices/058

Installer et compiler ces fichiers dans votre répertoire de travail.

	`c00a.c`

/* ------------------------------------ */
/*  Save as :   c00a.c                  */
/* ------------------------------------ */
#include "v_a.h"
/* ------------------------------------ */     
#define RCA          RC3  
/* ------------------------------------ */ 
void fun(void)
{                          
double d[RCA*RCA] ={   
  +1, +0, +0,          
  +0, +1, +0,
  +0, +0, +0          
};

double **D      =         ca_A_mR(d, i_mR(RCA,RCA));                       
double **A      = rdefpos_diag_mR(D, i_mR(RCA,RCA),9);

  clrscrn(); 
  printf(" A : Choose your Eigns Values,"
         " and copy these lines into your C file");
  P_mR(A, S8,P12, C4);     
    
  printf(" D = EValue :");
  p_mR(D, S8,P2, C4);
              
  f_mR(A);
  f_mR(D);
}
/* ------------------------------------ */
int main(void)
{
time_t t;

  srand(time(&t));

do
{
 fun();

} while(stop_w());

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

Créer les matrices A.

Exemple de sortie écran :

 A : Choose your Eigns Values, and copy these lines into your C file
+0.951533135509, +0.214638971316, +0.006923837784, 
+0.214638971316, +0.049455984174, -0.030662710188, 
+0.006923837784, -0.030662710188, +0.999010880317  

 D = EValue :
   +1.00    +0.00    +0.00 
   +0.00    +1.00    +0.00 
   +0.00    +0.00    +0.00 


 Press   return to continue
 Press X return to stop