Aller au contenu

Mathc matrices/h12e

Un livre de Wikilivres.


Bibliothèque



Installer ce fichier dans votre répertoire de travail.

vdsvdeig.h
/* ------------------------------------ */
/*  Save as :   vdsvdeig.h               */
/* ------------------------------------ */
/* ------------------------------------ 
   eigs_value_AA_T_mR(A,  eignValue); if(c > r)
   eigs_value_AA_T_mR(A_T,eignValue); if(r > c)
   ------------------------------------ */
/* ------------------------------------ */
double **eigs_value_AA_T_mR(
double **A,
double **eignValue)
{
int rA = rsize_R(A);
int cA = csize_R(A);

double **A_T    =      i_mR(cA,rA);
double **AA_T   =      i_mR(rA,rA);

  transpose_mR(A,A_T);
  mul_mR(A, A_T, AA_T);   
  eigs_mR(AA_T,eignValue);
  
  f_mR(A_T);
  f_mR(AA_T);
  
  return(eignValue);    
}
/* ------------------------------------ */
/* ------------------------------------ */


Déclaration des fichiers h.