add numerical recipes library

lib/nr/k_and_r/recipes/kstwo.c

@@ -0,0 +1,25 @@
+
+#include <math.h>
+
+void kstwo(data1,n1,data2,n2,d,prob)
+float *d,*prob,data1[],data2[];
+unsigned long n1,n2;
+{
+	float probks();
+	void sort();
+	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));
+}