




















if (/ (* z (sqrt (+ t a))) t) < -1.7637274423623795e+149 or 2.7152125976475634e+306 < (/ (* z (sqrt (+ t a))) t) rm if -1.7637274423623795e+149 < (/ (* z (sqrt (+ t a))) t) < 2.7152125976475634e+306rm Original test:
(lambda ((x default) (y default) (z default) (t default) (a default) (b default) (c default))
#:name "Numeric.SpecFunctions:invIncompleteBetaWorker from math-functions-0.1.5.2"
(/ x (+ x (* y (exp (* 2.0 (- (/ (* z (sqrt (+ t a))) t) (* (- b c) (- (+ a (/ 5.0 6.0)) (/ 2.0 (* t 3.0)))))))))))