add numerical recipes library

lib/nr/k_and_r/recipes/shell.c

@@ -0,0 +1,26 @@
+
+void shell(n,a)
+float a[];
+unsigned long n;
+{
+	unsigned long i,j,inc;
+	float v;
+	inc=1;
+	do {
+		inc *= 3;
+		inc++;
+	} while (inc <= n);
+	do {
+		inc /= 3;
+		for (i=inc+1;i<=n;i++) {
+			v=a[i];
+			j=i;
+			while (a[j-inc] > v) {
+				a[j]=a[j-inc];
+				j -= inc;
+				if (j <= inc) break;
+			}
+			a[j]=v;
+		}
+	} while (inc > 1);
+}