Aller au contenu

Mathc matrices/h09c

Un livre de Wikilivres.


Bibliothèque



Installer ce fichier dans votre répertoire de travail.

vdsvdf.h
/* ------------------------------------ */
/*  Save as :   vdsvdf.h                */
/* ------------------------------------ */
/* ------------------------------------ */
double **f_svd_mR(
double (*P_f)(double x),
double **M,
double **fM
)
{
int r;

  dif_sizes_mR(M,fM,"svd_f_mR();","(M or fM");

  for   ( r=R1; r<M[R_SIZE][C0]; r++)

             if(M[r][r]>0)
             
                 fM[r][r] =  (*P_f)(M[r][r]);
                 
             else
             
                 fM[r][r] = -(*P_f)(fabs(M[r][r]));
            
 return(fM);
}
/* ------------------------------------ */
/* ------------------------------------ */


Déclaration des fichiers h.