Initial commit

2016-02-03 18:52:05 +00:00
commit d40505e161
507 changed files with 91383 additions and 0 deletions
@@ -0,0 +1,18 @@
+      FUNCTION betai(a,b,x)
+      REAL betai,a,b,x
+CU    USES betacf,gammln
+      REAL bt,betacf,gammln
+      if(x.lt.0..or.x.gt.1.)pause 'bad argument x in betai'
+      if(x.eq.0..or.x.eq.1.)then
+        bt=0.
+      else
+        bt=exp(gammln(a+b)-gammln(a)-gammln(b)+a*log(x)+b*log(1.-x))
+      endif
+      if(x.lt.(a+1.)/(a+b+2.))then
+        betai=bt*betacf(a,b,x)/a
+        return
+      else
+        betai=1.-bt*betacf(b,a,1.-x)/b
+        return
+      endif
+      END