

















if y < -5.034200074427852e-17 or 1.056409627336283e-41 < y rm if -5.034200074427852e-17 < y < 1.056409627336283e-41rm rm Original test:
(lambda ((x default) (y default) (z default) (t default) (a default) (b default))
#:name "Numeric.SpecFunctions:incompleteBetaWorker from math-functions-0.1.5.2"
(/ (* x (exp (- (+ (* y (log z)) (* (- t 1.0) (log a))) b))) y))