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

24
lib/nr/ansi/recipes/kstwo.c Normal file
View File

@@ -0,0 +1,24 @@
#include <math.h>
void kstwo(float data1[], unsigned long n1, float data2[], unsigned long n2,
float *d, float *prob)
{
float probks(float alam);
void sort(unsigned long n, float arr[]);
unsigned long j1=1,j2=1;
float d1,d2,dt,en1,en2,en,fn1=0.0,fn2=0.0;
sort(n1,data1);
sort(n2,data2);
en1=n1;
en2=n2;
*d=0.0;
while (j1 <= n1 && j2 <= n2) {
if ((d1=data1[j1]) <= (d2=data2[j2])) fn1=j1++/en1;
if (d2 <= d1) fn2=j2++/en2;
if ((dt=fabs(fn2-fn1)) > *d) *d=dt;
}
en=sqrt(en1*en2/(en1+en2));
*prob=probks((en+0.12+0.11/en)*(*d));
}