




















if (/ (* z (sqrt (+ t a))) t) < -2.7731225f-28 or 5.632792f-22 < (/ (* z (sqrt (+ t a))) t) if -2.7731225f-28 < (/ (* z (sqrt (+ t a))) t) < 5.632792f-22Original 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)))))))))))