

















if (* (* (* 2 n) U) (- (- t (* 2 (/ (sqr l) Om))) (* (* n (sqr (/ l Om))) (- U U*)))) < 1.52885513648436e-309rm rm if 1.52885513648436e-309 < (* (* (* 2 n) U) (- (- t (* 2 (/ (sqr l) Om))) (* (* n (sqr (/ l Om))) (- U U*)))) < 9.887443511568835e+306rm if 9.887443511568835e+306 < (* (* (* 2 n) U) (- (- t (* 2 (/ (sqr l) Om))) (* (* n (sqr (/ l Om))) (- U U*)))) rm rm Original test:
(lambda ((n default) (U default) (t default) (l default) (Om default) (U* default))
#:name "Toniolo and Linder, Equation (13)"
(sqrt (* (* (* 2 n) U) (- (- t (* 2 (/ (sqr l) Om))) (* (* n (sqr (/ l Om))) (- U U*))))))