Mathc matrices/h09c

Un livre de Wikilivres.
Aller à la navigation Aller à la recherche


Sommaire


Installer ce fichier dans votre répertoire de travail.

Crystal Clear mimetype source h.png vdsvdf.h
/* ------------------------------------ */
/*  Save as :   vdsvdf.h               */
/* ------------------------------------ */
/* ------------------------------------ */
double **svd_f_uv_mR(
double **M,
double (*P_f)(double x),
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.