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

25
lib/nr/cpp/recipes/ks2d1s.cpp Normal file
View File

@@ -0,0 +1,25 @@
#include <cmath>
#include "nr.h"
using namespace std;
void NR::ks2d1s(Vec_I_DP &x1, Vec_I_DP &y1, void quadvl(const DP, const DP,
DP &, DP &, DP &, DP &), DP &d1, DP &prob)
{
int j;
DP dum,dumm,fa,fb,fc,fd,ga,gb,gc,gd,r1,rr,sqen;
int n1=x1.size();
d1=0.0;
for (j=0;j<n1;j++) {
quadct(x1[j],y1[j],x1,y1,fa,fb,fc,fd);
quadvl(x1[j],y1[j],ga,gb,gc,gd);
d1=MAX(d1,fabs(fa-ga));
d1=MAX(d1,fabs(fb-gb));
d1=MAX(d1,fabs(fc-gc));
d1=MAX(d1,fabs(fd-gd));
}
pearsn(x1,y1,r1,dum,dumm);
sqen=sqrt(DP(n1));
rr=sqrt(1.0-r1*r1);
prob=probks(d1*sqen/(1.0+rr*(0.25-0.75/sqen)));
}