yenru0/2025-02-Numerical
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

add numerical recipes library

Browse Source
This commit is contained in:
yenru0
2025-09-12 18:55:25 +09:00
parent d4dff245bd
commit 2c75620ec9
1344 changed files with 63869 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

55
lib/nr/ansi/examples/xsvdvar.c Normal file
View File

@@ -0,0 +1,55 @@
/* Driver for routine svdvar */
#include <stdio.h>
#define NRANSI
#include "nr.h"
#include "nrutil.h"
#define NP 6
#define MA 3
int main(void)
{
int i,j;
float **cvm,**v;
static float vtemp[NP][NP]=
{1.0,1.0,1.0,1.0,1.0,1.0,
2.0,2.0,2.0,2.0,2.0,2.0,
3.0,3.0,3.0,3.0,3.0,3.0,
4.0,4.0,4.0,4.0,4.0,4.0,
5.0,5.0,5.0,5.0,5.0,5.0,
6.0,6.0,6.0,6.0,6.0,6.0};
static float w[NP+1]=
{0.0,0.0,1.0,2.0,3.0,4.0,5.0};
static float tru[MA][MA]=
{1.25,2.5,3.75,
2.5,5.0,7.5,
3.75,7.5,11.25};
cvm=matrix(1,MA,1,MA);
v=convert_matrix(&vtemp[0][0],1,NP,1,NP);
printf("\nmatrix v\n");
for (i=1;i<=NP;i++) {
for (j=1;j<=NP;j++) printf("%12.6f",v[i][j]);
printf("\n");
}
printf("\nvector w\n");
for (i=1;i<=NP;i++) printf("%12.6f",w[i]);
printf("\n");
svdvar(v,MA,w,cvm);
printf("\ncovariance matrix from svdvar\n");
for (i=1;i<=MA;i++) {
for (j=1;j<=MA;j++) printf("%12.6f",cvm[i][j]);
printf("\n");
}
printf("\nexpected covariance matrix\n");
for (i=1;i<=MA;i++) {
for (j=1;j<=MA;j++) printf("%12.6f",tru[i-1][j-1]);
printf("\n");
}
free_convert_matrix(v,1,NP,1,NP);
free_matrix(cvm,1,MA,1,MA);
return 0;
}
#undef NRANSI