411 REFERENCE · Wikibooks
Linear Algebra and the C Language/a02u
Reference material by Wikibooks contributors. This retains its source identity and is not 411 news reporting.
__NOTOC__
Install this file in your working directory.
/* ------------------------------------ */
/* 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);
}
/* ------------------------------------ */
/* ------------------------------------ */