Mathc complexes/a290

Quelques propriétés des valeurs propres. Matrices symétriques conjugués

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

	c02a.c

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

double s = 1;
int    i = 0;

  clrscrn();

  printf(" A :");
  p_mZ(A,S5,P0,S4,P0,C6);
       
  printf(" EigsValue :");
  p_mZ(eigs_mZ(A,EigsValue),S5,P0,S4,P0,C6);   
  
  for(i=R1;i<=r;i++)
  
       s *= EigsValue[i][C1];
        
  printf(" Product of the eigenvalues of A : %.3f \n",s);   
  printf(" Determinant of A                : %.3f \n",det_Z(A).r);
   
  f_mZ(A);
  f_mZ(EigsValue);
}
/* ------------------------------------ */
int main(void)
{
time_t t;

  srand(time(&t));

do
{
 fun(rp_I(R3)+R1);

} while(stop_w());

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

Le produit des valeurs propres de A est égale au déterminant de A :


Exemple de sortie écran :

 A :
 +406  +0i    -4 +95i  +123 +50i   -44 +28i 
   -4 -95i  +173  +0i   -39 +89i   -63+130i 
 +123 -50i   -39 -89i  +243  +0i  +201 -22i 
  -44 -28i   -63-130i  +201 +22i  +265  +0i 

 EigsValue :
 +547  +0i 
 +471  -0i 
  +68  +0i 
   +1  -0i 

 Product of the eigenvalues of A : 22054682.000 
 Determinant of A                : 22054682.000 

 Press   return to continue
 Press X return to stop