L'idée est de rajouter qqs fonctions issues de Numerical Recipes, notamment tout ce qui touche à la recherche de vecteurs et valeurs propres.
procedure GetEigensFromSymetricMatrix(M: PMatrix; n: integer; var EVal: PVector; var EVec: PMatrix); |
procedure GetEigensFromSymetricMatrix(M: PMatrix; n: integer; var EVal: PVector; var EVec: PMatrix); |
la procédure qui encapsule le tout, la matrice M doit être symétrique, EVal et EVec sont crées dans la procédure
Ricco
12/01/2004