Henrywood and Agarwal, Equation (9a)

Time bar (total: 5.3s)

start0.0ms (0%)

Memory
0.1MiB live, 0.1MiB allocated; 0ms collecting garbage

analyze770.0ms (14.6%)

Memory
10.1MiB live, 810.3MiB allocated; 398ms collecting garbage
Algorithm
1×search
Search
ProbabilityValidUnknownPreconditionInfiniteDomainCan'tIter
0%0%99.7%0.3%0%0%0%0
0%0%99.7%0.3%0%0%0%1
0%0%99.7%0.3%0%0%0%2
0%0%99.7%0.3%0%0%0%3
0%0%99.7%0.3%0%0%0%4
0%0%99.7%0.3%0%0%0%5
0%0%99.7%0.3%0%0%0%6
12.5%12.5%87.2%0.3%0%0%0%7
12.5%12.5%87.2%0.3%0%0%0%8
12.5%12.5%87.2%0.3%0%0%0%9
12.5%12.5%87.2%0.3%0%0%0%10
12.5%12.5%87.2%0.3%0%0%0%11
18.8%18.7%81%0.3%0%0%0%12
Compiler

Compiled 20 to 19 computations (5% saved)

sample3.1s (58%)

Memory
-99.1MiB live, 2 865.2MiB allocated; 2.8s collecting garbage
Samples
1.9s8 256×0valid
294.0ms2 773×0invalid
Precisions
Click to see histograms. Total time spent on operations: 1.7s
ival-pow2: 1.0s (60% of total)
ival-mult!: 313.0ms (18.7% of total)
ival-div!: 159.0ms (9.5% of total)
ival-sqrt: 158.0ms (9.5% of total)
ival-sub!: 37.0ms (2.2% of total)
adjust: 2.0ms (0.1% of total)
Bogosity

preprocess61.0ms (1.1%)

Memory
1.4MiB live, 47.5MiB allocated; 10ms collecting garbage
Iterations

Useful iterations: 1 (0.0ms)

IterNodesCost
0168514
1535510
22311510
Stop Event
1×node-limit
Alt Table
Click to see full alt table
StatusAccuracyProgram
▶84.9%
(*.f64 w0 (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 (pow.f64 (/.f64 (*.f64 M D) (*.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) (/.f64 h l)))))
Symmetry

(abs M)

(abs D)

(abs d)

(negabs w0)

(sort M D)

Compiler

Compiled 36 to 34 computations (5.6% saved)

series480.0ms (9.1%)

Memory
21.0MiB live, 528.8MiB allocated; 259ms collecting garbage
Counts
17 → 100
Calls
Call 1
Inputs
(*.f64 w0 (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 (pow.f64 (/.f64 (*.f64 M D) (*.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) (/.f64 h l)))))
w0
(sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 (pow.f64 (/.f64 (*.f64 M D) (*.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) (/.f64 h l))))
(-.f64 #s(literal 1 binary64) (*.f64 (pow.f64 (/.f64 (*.f64 M D) (*.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) (/.f64 h l)))
#s(literal 1 binary64)
(*.f64 (pow.f64 (/.f64 (*.f64 M D) (*.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) (/.f64 h l))
(pow.f64 (/.f64 (*.f64 M D) (*.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64))
(/.f64 (*.f64 M D) (*.f64 #s(literal 2 binary64) d))
(*.f64 M D)
M
D
(*.f64 #s(literal 2 binary64) d)
#s(literal 2 binary64)
d
(/.f64 h l)
h
l
Outputs
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* w0 (sqrt (- 1 (* 1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))))))))
#s(approx w0 #s(hole binary64 w0))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 w0))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (+ w0 (* -1/8 (/ (* (pow D 2) (* (pow M 2) (* h w0))) (* (pow d 2) l))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (+ w0 (* (pow M 2) (+ (* -1/8 (/ (* (pow D 2) (* h w0)) (* (pow d 2) l))) (* -1/128 (/ (* (pow D 4) (* (pow M 2) (* (pow h 2) w0))) (* (pow d 4) (pow l 2)))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (+ w0 (* (pow M 2) (+ (* -1/8 (/ (* (pow D 2) (* h w0)) (* (pow d 2) l))) (* (pow M 2) (+ (* -1/128 (/ (* (pow D 4) (* (pow h 2) w0)) (* (pow d 4) (pow l 2)))) (* -1/1024 (/ (* (pow D 6) (* (pow M 2) (* (pow h 3) w0))) (* (pow d 6) (pow l 3)))))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 1))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (+ 1 (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (+ 1 (* (pow M 2) (+ (* -1/8 (/ (* (pow D 2) h) (* (pow d 2) l))) (* -1/128 (/ (* (pow D 4) (* (pow M 2) (pow h 2))) (* (pow d 4) (pow l 2)))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (+ 1 (* (pow M 2) (+ (* -1/8 (/ (* (pow D 2) h) (* (pow d 2) l))) (* (pow M 2) (+ (* -1/128 (/ (* (pow D 4) (pow h 2)) (* (pow d 4) (pow l 2)))) (* -1/1024 (/ (* (pow D 6) (* (pow M 2) (pow h 3))) (* (pow d 6) (pow l 3)))))))))))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(hole binary64 1))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(hole binary64 (+ 1 (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))))))
#s(approx (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)) #s(hole binary64 (* 1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l)))))
#s(approx (pow (/ (* M D) (* 2 d)) 2) #s(hole binary64 (* 1/4 (/ (* (pow D 2) (pow M 2)) (pow d 2)))))
#s(approx (/ (* M D) (* 2 d)) #s(hole binary64 (* 1/2 (/ (* D M) d))))
#s(approx (* M D) #s(hole binary64 (* D M)))
#s(approx M #s(hole binary64 M))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (/ h l)))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* M (+ (* 1/2 (* (/ (* d w0) (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (* w0 (sqrt -1/4))) d) (sqrt (/ h l)))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* M (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 4) (* (pow (sqrt -1/4) 2) (sqrt -1/4))))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ (* d w0) (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (* w0 (sqrt -1/4))) d) (sqrt (/ h l))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* M (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 4) (* (pow (sqrt -1/4) 2) (sqrt -1/4))))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 5) (* (pow M 6) (* (sqrt -1/4) (* (sqrt -1/4) (* (pow (sqrt -1/4) 2) (sqrt -1/4))))))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ (* d w0) (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (* w0 (sqrt -1/4))) d) (sqrt (/ h l)))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* (/ (* D (* M (sqrt -1/4))) d) (sqrt (/ h l)))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* M (+ (* 1/2 (* (/ d (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (sqrt -1/4)) d) (sqrt (/ h l)))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* M (+ (* -1/8 (* (/ (pow d 3) (* (pow D 3) (* (pow M 4) (* (sqrt -1/4) (pow (sqrt -1/4) 2))))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ d (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (sqrt -1/4)) d) (sqrt (/ h l))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* M (+ (* -1/8 (* (/ (pow d 3) (* (pow D 3) (* (pow M 4) (* (pow (sqrt -1/4) 2) (sqrt -1/4))))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (pow d 5) (* (pow D 5) (* (pow M 6) (* (sqrt -1/4) (* (pow (sqrt -1/4) 2) (* (sqrt -1/4) (sqrt -1/4))))))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ d (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (sqrt -1/4)) d) (sqrt (/ h l)))))))))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(hole binary64 (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l)))))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(hole binary64 (* (pow M 2) (- (/ 1 (pow M 2)) (* 1/4 (/ (* (pow D 2) h) (* (pow d 2) l)))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* -1 (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (/ h l))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* -1 (* M (+ (* 1/2 (* (/ (* d w0) (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (* w0 (sqrt -1/4))) d) (sqrt (/ h l))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* -1 (* M (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 4) (* (sqrt -1/4) (pow (sqrt -1/4) 2))))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ (* d w0) (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (* w0 (sqrt -1/4))) d) (sqrt (/ h l)))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* -1 (* M (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 4) (* (sqrt -1/4) (pow (sqrt -1/4) 2))))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 5) (* (pow M 6) (* (sqrt -1/4) (* (sqrt -1/4) (* (sqrt -1/4) (pow (sqrt -1/4) 2))))))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ (* d w0) (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (* w0 (sqrt -1/4))) d) (sqrt (/ h l))))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* -1 (* (/ (* D (* M (sqrt -1/4))) d) (sqrt (/ h l))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* -1 (* M (+ (* 1/2 (* (/ d (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (sqrt -1/4)) d) (sqrt (/ h l))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* -1 (* M (+ (* -1/8 (* (/ (pow d 3) (* (pow D 3) (* (pow M 4) (* (sqrt -1/4) (pow (sqrt -1/4) 2))))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ d (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (sqrt -1/4)) d) (sqrt (/ h l)))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* -1 (* M (+ (* -1/8 (* (/ (pow d 3) (* (pow D 3) (* (pow M 4) (* (pow (sqrt -1/4) 2) (sqrt -1/4))))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (pow d 5) (* (pow D 5) (* (pow M 6) (* (sqrt -1/4) (* (pow (sqrt -1/4) 2) (* (sqrt -1/4) (sqrt -1/4))))))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ d (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (sqrt -1/4)) d) (sqrt (/ h l))))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (+ w0 (* (pow D 2) (+ (* -1/8 (/ (* (pow M 2) (* h w0)) (* (pow d 2) l))) (* -1/128 (/ (* (pow D 2) (* (pow M 4) (* (pow h 2) w0))) (* (pow d 4) (pow l 2)))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (+ w0 (* (pow D 2) (+ (* -1/8 (/ (* (pow M 2) (* h w0)) (* (pow d 2) l))) (* (pow D 2) (+ (* -1/128 (/ (* (pow M 4) (* (pow h 2) w0)) (* (pow d 4) (pow l 2)))) (* -1/1024 (/ (* (pow D 2) (* (pow M 6) (* (pow h 3) w0))) (* (pow d 6) (pow l 3)))))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (+ 1 (* (pow D 2) (+ (* -1/8 (/ (* (pow M 2) h) (* (pow d 2) l))) (* -1/128 (/ (* (pow D 2) (* (pow M 4) (pow h 2))) (* (pow d 4) (pow l 2)))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (+ 1 (* (pow D 2) (+ (* -1/8 (/ (* (pow M 2) h) (* (pow d 2) l))) (* (pow D 2) (+ (* -1/128 (/ (* (pow M 4) (pow h 2)) (* (pow d 4) (pow l 2)))) (* -1/1024 (/ (* (pow D 2) (* (pow M 6) (pow h 3))) (* (pow d 6) (pow l 3)))))))))))
#s(approx D #s(hole binary64 D))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* D (+ (* 1/2 (* (/ (* d w0) (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (* w0 (sqrt -1/4))) d) (sqrt (/ h l)))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* D (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 4) (* (pow M 3) (* (pow (sqrt -1/4) 2) (sqrt -1/4))))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ (* d w0) (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (* w0 (sqrt -1/4))) d) (sqrt (/ h l))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* D (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 4) (* (pow M 3) (* (pow (sqrt -1/4) 2) (sqrt -1/4))))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 6) (* (pow M 5) (* (sqrt -1/4) (* (sqrt -1/4) (* (sqrt -1/4) (pow (sqrt -1/4) 2))))))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ (* d w0) (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (* w0 (sqrt -1/4))) d) (sqrt (/ h l)))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* D (+ (* 1/2 (* (/ d (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (sqrt -1/4)) d) (sqrt (/ h l)))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* D (+ (* -1/8 (* (/ (pow d 3) (* (pow D 4) (* (pow M 3) (* (pow (sqrt -1/4) 2) (sqrt -1/4))))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ d (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (sqrt -1/4)) d) (sqrt (/ h l))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* D (+ (* -1/8 (* (/ (pow d 3) (* (pow D 4) (* (pow M 3) (* (pow (sqrt -1/4) 2) (sqrt -1/4))))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (pow d 5) (* (pow D 6) (* (pow M 5) (* (sqrt -1/4) (* (pow (sqrt -1/4) 2) (* (sqrt -1/4) (sqrt -1/4))))))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ d (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (sqrt -1/4)) d) (sqrt (/ h l)))))))))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(hole binary64 (* (pow D 2) (- (/ 1 (pow D 2)) (* 1/4 (/ (* (pow M 2) h) (* (pow d 2) l)))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* -1 (* D (+ (* 1/2 (* (/ (* d w0) (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (* w0 (sqrt -1/4))) d) (sqrt (/ h l))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* -1 (* D (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 4) (* (pow M 3) (* (sqrt -1/4) (pow (sqrt -1/4) 2))))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ (* d w0) (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (* w0 (sqrt -1/4))) d) (sqrt (/ h l)))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* -1 (* D (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 4) (* (pow M 3) (* (pow (sqrt -1/4) 2) (sqrt -1/4))))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 6) (* (pow M 5) (* (sqrt -1/4) (* (sqrt -1/4) (* (pow (sqrt -1/4) 2) (sqrt -1/4))))))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ (* d w0) (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (* w0 (sqrt -1/4))) d) (sqrt (/ h l))))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* -1 (* D (+ (* 1/2 (* (/ d (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (sqrt -1/4)) d) (sqrt (/ h l))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* -1 (* D (+ (* -1/8 (* (/ (pow d 3) (* (pow D 4) (* (pow M 3) (* (sqrt -1/4) (pow (sqrt -1/4) 2))))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ d (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (sqrt -1/4)) d) (sqrt (/ h l)))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* -1 (* D (+ (* -1/8 (* (/ (pow d 3) (* (pow D 4) (* (pow M 3) (* (pow (sqrt -1/4) 2) (sqrt -1/4))))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (pow d 5) (* (pow D 6) (* (pow M 5) (* (sqrt -1/4) (* (pow (sqrt -1/4) 2) (* (sqrt -1/4) (sqrt -1/4))))))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ d (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (sqrt -1/4)) d) (sqrt (/ h l))))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (+ w0 (* h (+ (* -1/8 (/ (* (pow D 2) (* (pow M 2) w0)) (* (pow d 2) l))) (* -1/128 (/ (* (pow D 4) (* (pow M 4) (* h w0))) (* (pow d 4) (pow l 2)))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (+ w0 (* h (+ (* -1/8 (/ (* (pow D 2) (* (pow M 2) w0)) (* (pow d 2) l))) (* h (+ (* -1/128 (/ (* (pow D 4) (* (pow M 4) w0)) (* (pow d 4) (pow l 2)))) (* -1/1024 (/ (* (pow D 6) (* (pow M 6) (* h w0))) (* (pow d 6) (pow l 3)))))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (+ 1 (* h (+ (* -1/8 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (* -1/128 (/ (* (pow D 4) (* (pow M 4) h)) (* (pow d 4) (pow l 2)))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (+ 1 (* h (+ (* -1/8 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (* h (+ (* -1/128 (/ (* (pow D 4) (pow M 4)) (* (pow d 4) (pow l 2)))) (* -1/1024 (/ (* (pow D 6) (* (pow M 6) h)) (* (pow d 6) (pow l 3)))))))))))
#s(approx (/ h l) #s(hole binary64 (/ h l)))
#s(approx h #s(hole binary64 h))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* h (+ (* 1/2 (* (/ (* d w0) (* D (* M (sqrt -1/4)))) (sqrt (/ l (pow h 3))))) (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (/ 1 (* h l))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* h (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 3) (* (pow (sqrt -1/4) 2) (sqrt -1/4))))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/2 (* (/ (* d w0) (* D (* M (sqrt -1/4)))) (sqrt (/ l (pow h 3))))) (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (/ 1 (* h l)))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* h (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 3) (* (sqrt -1/4) (pow (sqrt -1/4) 2))))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 5) (* (pow M 5) (* (sqrt -1/4) (* (sqrt -1/4) (* (sqrt -1/4) (pow (sqrt -1/4) 2))))))) (sqrt (/ (pow l 5) (pow h 7))))) (+ (* 1/2 (* (/ (* d w0) (* D (* M (sqrt -1/4)))) (sqrt (/ l (pow h 3))))) (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (/ 1 (* h l))))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* h (+ (* 1/2 (* (/ d (* D (* M (sqrt -1/4)))) (sqrt (/ l (pow h 3))))) (* (/ (* D (* M (sqrt -1/4))) d) (sqrt (/ 1 (* h l))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* h (+ (* -1/8 (* (/ (pow d 3) (* (pow D 3) (* (pow M 3) (* (pow (sqrt -1/4) 2) (sqrt -1/4))))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/2 (* (/ d (* D (* M (sqrt -1/4)))) (sqrt (/ l (pow h 3))))) (* (/ (* D (* M (sqrt -1/4))) d) (sqrt (/ 1 (* h l)))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* h (+ (* -1/8 (* (/ (pow d 3) (* (pow D 3) (* (pow M 3) (* (pow (sqrt -1/4) 2) (sqrt -1/4))))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/16 (* (/ (pow d 5) (* (pow D 5) (* (pow M 5) (* (sqrt -1/4) (* (sqrt -1/4) (* (pow (sqrt -1/4) 2) (sqrt -1/4))))))) (sqrt (/ (pow l 5) (pow h 7))))) (+ (* 1/2 (* (/ d (* D (* M (sqrt -1/4)))) (sqrt (/ l (pow h 3))))) (* (/ (* D (* M (sqrt -1/4))) d) (sqrt (/ 1 (* h l))))))))))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(hole binary64 (* h (- (/ 1 h) (* 1/4 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l)))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* -1/2 (* (/ (* D (* M (* w0 (sqrt -1)))) d) (sqrt (/ h l))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* -1 (* h (+ (* 1/2 (* (/ (* D (* M (* w0 (sqrt -1)))) d) (sqrt (/ 1 (* h l))))) (* (/ (* d (* w0 (sqrt -1))) (* D M)) (sqrt (/ l (pow h 3)))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* -1 (* h (+ (* -1 (* (/ (* (pow d 3) (* w0 (sqrt -1))) (* (pow D 3) (pow M 3))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/2 (* (/ (* D (* M (* w0 (sqrt -1)))) d) (sqrt (/ 1 (* h l))))) (* (/ (* d (* w0 (sqrt -1))) (* D M)) (sqrt (/ l (pow h 3))))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* -1 (* h (+ (* -1 (* (/ (* (pow d 3) (* w0 (sqrt -1))) (* (pow D 3) (pow M 3))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/2 (* (/ (* D (* M (* w0 (sqrt -1)))) d) (sqrt (/ 1 (* h l))))) (+ (* 2 (* (/ (* (pow d 5) (* w0 (sqrt -1))) (* (pow D 5) (pow M 5))) (sqrt (/ (pow l 5) (pow h 7))))) (* (/ (* d (* w0 (sqrt -1))) (* D M)) (sqrt (/ l (pow h 3)))))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* -1/2 (* (/ (* D (* M (sqrt -1))) d) (sqrt (/ h l))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* -1 (* h (+ (* 1/2 (* (/ (* D (* M (sqrt -1))) d) (sqrt (/ 1 (* h l))))) (* (/ (* d (sqrt -1)) (* D M)) (sqrt (/ l (pow h 3)))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* -1 (* h (+ (* -1 (* (/ (* (pow d 3) (sqrt -1)) (* (pow D 3) (pow M 3))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/2 (* (/ (* D (* M (sqrt -1))) d) (sqrt (/ 1 (* h l))))) (* (/ (* d (sqrt -1)) (* D M)) (sqrt (/ l (pow h 3))))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* -1 (* h (+ (* -1 (* (/ (* (pow d 3) (sqrt -1)) (* (pow D 3) (pow M 3))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/2 (* (/ (* D (* M (sqrt -1))) d) (sqrt (/ 1 (* h l))))) (+ (* 2 (* (/ (* (pow d 5) (sqrt -1)) (* (pow D 5) (pow M 5))) (sqrt (/ (pow l 5) (pow h 7))))) (* (/ (* d (sqrt -1)) (* D M)) (sqrt (/ l (pow h 3)))))))))))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(hole binary64 (* h (+ (* -1/4 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (/ 1 h)))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (/ (+ (* 1/2 (* (/ (* d w0) (* D (* M (sqrt -1/4)))) (sqrt (/ (pow l 3) h)))) (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (* h l)))) l)))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (/ (+ (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (* h l))) (* (pow l 2) (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 3) (* (pow (sqrt -1/4) 2) (sqrt -1/4))))) (sqrt (/ l (pow h 3))))) (* 1/2 (* (/ (* d w0) (* D (* M (sqrt -1/4)))) (sqrt (/ 1 (* h l)))))))) l)))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (/ (+ (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (* h l))) (* (pow l 2) (+ (* 1/2 (* (/ (* d w0) (* D (* M (sqrt -1/4)))) (sqrt (/ 1 (* h l))))) (* (pow l 2) (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 3) (* (pow (sqrt -1/4) 2) (sqrt -1/4))))) (sqrt (/ 1 (* (pow h 3) (pow l 3)))))) (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 5) (* (pow M 5) (* (sqrt -1/4) (* (sqrt -1/4) (* (sqrt -1/4) (pow (sqrt -1/4) 2))))))) (sqrt (/ 1 (* (pow h 5) l)))))))))) l)))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (/ (+ (* 1/2 (* (/ d (* D (* M (sqrt -1/4)))) (sqrt (/ (pow l 3) h)))) (* (/ (* D (* M (sqrt -1/4))) d) (sqrt (* h l)))) l)))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (/ (+ (* (/ (* D (* M (sqrt -1/4))) d) (sqrt (* h l))) (* (pow l 2) (+ (* -1/8 (* (/ (pow d 3) (* (pow D 3) (* (pow M 3) (* (sqrt -1/4) (pow (sqrt -1/4) 2))))) (sqrt (/ l (pow h 3))))) (* 1/2 (* (/ d (* D (* M (sqrt -1/4)))) (sqrt (/ 1 (* h l)))))))) l)))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (/ (+ (* (/ (* D (* M (sqrt -1/4))) d) (sqrt (* h l))) (* (pow l 2) (+ (* 1/2 (* (/ d (* D (* M (sqrt -1/4)))) (sqrt (/ 1 (* h l))))) (* (pow l 2) (+ (* -1/8 (* (/ (pow d 3) (* (pow D 3) (* (pow M 3) (* (pow (sqrt -1/4) 2) (sqrt -1/4))))) (sqrt (/ 1 (* (pow h 3) (pow l 3)))))) (* 1/16 (* (/ (pow d 5) (* (pow D 5) (* (pow M 5) (* (sqrt -1/4) (* (sqrt -1/4) (* (pow (sqrt -1/4) 2) (sqrt -1/4))))))) (sqrt (/ 1 (* (pow h 5) l)))))))))) l)))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(hole binary64 (/ (- l (* 1/4 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l)))
#s(approx l #s(hole binary64 l))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (+ w0 (+ (* -1/8 (/ (* (pow D 2) (* (pow M 2) (* h w0))) (* (pow d 2) l))) (* -1/128 (/ (* (pow D 4) (* (pow M 4) (* (pow h 2) w0))) (* (pow d 4) (pow l 2))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (+ w0 (+ (* -1/8 (/ (* (pow D 2) (* (pow M 2) (* h w0))) (* (pow d 2) l))) (+ (* -1/128 (/ (* (pow D 4) (* (pow M 4) (* (pow h 2) w0))) (* (pow d 4) (pow l 2)))) (* -1/1024 (/ (* (pow D 6) (* (pow M 6) (* (pow h 3) w0))) (* (pow d 6) (pow l 3)))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (+ 1 (+ (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))) (* -1/128 (/ (* (pow D 4) (* (pow M 4) (pow h 2))) (* (pow d 4) (pow l 2))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (+ 1 (+ (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))) (+ (* -1/128 (/ (* (pow D 4) (* (pow M 4) (pow h 2))) (* (pow d 4) (pow l 2)))) (* -1/1024 (/ (* (pow D 6) (* (pow M 6) (pow h 3))) (* (pow d 6) (pow l 3)))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (+ w0 (* -1 (/ (+ (* 1/128 (/ (* (pow D 4) (* (pow M 4) (* (pow h 2) w0))) (* (pow d 4) l))) (* 1/8 (/ (* (pow D 2) (* (pow M 2) (* h w0))) (pow d 2)))) l)))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (+ w0 (* -1 (/ (+ (* -1 (/ (+ (* -1/128 (/ (* (pow D 4) (* (pow M 4) (* (pow h 2) w0))) (pow d 4))) (* -1/1024 (/ (* (pow D 6) (* (pow M 6) (* (pow h 3) w0))) (* (pow d 6) l)))) l)) (* 1/8 (/ (* (pow D 2) (* (pow M 2) (* h w0))) (pow d 2)))) l)))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (+ 1 (* -1 (/ (+ (* 1/128 (/ (* (pow D 4) (* (pow M 4) (pow h 2))) (* (pow d 4) l))) (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l)))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (+ 1 (* -1 (/ (+ (* -1 (/ (+ (* -1/128 (/ (* (pow D 4) (* (pow M 4) (pow h 2))) (pow d 4))) (* -1/1024 (/ (* (pow D 6) (* (pow M 6) (pow h 3))) (* (pow d 6) l)))) l)) (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l)))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (/ (+ (* 1/2 (* (/ (* (pow d 2) w0) (* D (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (* D (* M (* w0 (sqrt -1/4)))) (sqrt (/ h l)))) d)))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (/ (+ (* (* D (* M (* w0 (sqrt -1/4)))) (sqrt (/ h l))) (* (pow d 2) (+ (* -1/8 (* (/ (* (pow d 2) w0) (* (pow D 3) (* (pow M 3) (* (sqrt -1/4) (pow (sqrt -1/4) 2))))) (sqrt (/ (pow l 3) (pow h 3))))) (* 1/2 (* (/ w0 (* D (* M (sqrt -1/4)))) (sqrt (/ l h))))))) d)))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (/ (+ (* (* D (* M (* w0 (sqrt -1/4)))) (sqrt (/ h l))) (* (pow d 2) (+ (* 1/2 (* (/ w0 (* D (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (pow d 2) (+ (* -1/8 (* (/ w0 (* (pow D 3) (* (pow M 3) (* (pow (sqrt -1/4) 2) (sqrt -1/4))))) (sqrt (/ (pow l 3) (pow h 3))))) (* 1/16 (* (/ (* (pow d 2) w0) (* (pow D 5) (* (pow M 5) (* (sqrt -1/4) (* (pow (sqrt -1/4) 2) (* (sqrt -1/4) (sqrt -1/4))))))) (sqrt (/ (pow l 5) (pow h 5)))))))))) d)))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (/ (+ (* 1/2 (* (/ (pow d 2) (* D (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (* D (* M (sqrt -1/4))) (sqrt (/ h l)))) d)))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (/ (+ (* (* D (* M (sqrt -1/4))) (sqrt (/ h l))) (* (pow d 2) (+ (* -1/8 (* (/ (pow d 2) (* (pow D 3) (* (pow M 3) (* (pow (sqrt -1/4) 2) (sqrt -1/4))))) (sqrt (/ (pow l 3) (pow h 3))))) (* 1/2 (* (/ 1 (* D (* M (sqrt -1/4)))) (sqrt (/ l h))))))) d)))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (/ (+ (* (* D (* M (sqrt -1/4))) (sqrt (/ h l))) (* (pow d 2) (+ (* 1/2 (* (/ 1 (* D (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (pow d 2) (+ (* -1/8 (* (/ 1 (* (pow D 3) (* (pow M 3) (* (sqrt -1/4) (pow (sqrt -1/4) 2))))) (sqrt (/ (pow l 3) (pow h 3))))) (* 1/16 (* (/ (pow d 2) (* (pow D 5) (* (pow M 5) (* (pow (sqrt -1/4) 2) (* (sqrt -1/4) (* (sqrt -1/4) (sqrt -1/4))))))) (sqrt (/ (pow l 5) (pow h 5)))))))))) d)))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(hole binary64 (/ (- (pow d 2) (* 1/4 (/ (* (pow D 2) (* (pow M 2) h)) l))) (pow d 2))))
#s(approx (* 2 d) #s(hole binary64 (* 2 d)))
#s(approx d #s(hole binary64 d))
Calls

18 calls:

TimeVariablePointExpression
83.0ms
l
@0
((* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)) (pow (/ (* M D) (* 2 d)) 2) (/ (* M D) (* 2 d)) (* M D) M D (* 2 d) 2 d (/ h l) h l)
57.0ms
M
@-inf
((* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)) (pow (/ (* M D) (* 2 d)) 2) (/ (* M D) (* 2 d)) (* M D) M D (* 2 d) 2 d (/ h l) h l)
33.0ms
h
@inf
((* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)) (pow (/ (* M D) (* 2 d)) 2) (/ (* M D) (* 2 d)) (* M D) M D (* 2 d) 2 d (/ h l) h l)
33.0ms
D
@-inf
((* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)) (pow (/ (* M D) (* 2 d)) 2) (/ (* M D) (* 2 d)) (* M D) M D (* 2 d) 2 d (/ h l) h l)
32.0ms
M
@0
((* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)) (pow (/ (* M D) (* 2 d)) 2) (/ (* M D) (* 2 d)) (* M D) M D (* 2 d) 2 d (/ h l) h l)

rewrite79.0ms (1.5%)

Memory
21.0MiB live, 160.4MiB allocated; 19ms collecting garbage
Iterations

Useful iterations: 0 (0.0ms)

IterNodesCost
08066469
08196342
Stop Event
1×iter-limit
1×iter-limit
1×unsound
1×iter-limit
Counts
117 → 117
Calls
Call 1
Inputs
(*.f64 w0 (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 (pow.f64 (/.f64 (*.f64 M D) (*.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) (/.f64 h l)))))
w0
(sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 (pow.f64 (/.f64 (*.f64 M D) (*.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) (/.f64 h l))))
(-.f64 #s(literal 1 binary64) (*.f64 (pow.f64 (/.f64 (*.f64 M D) (*.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) (/.f64 h l)))
#s(literal 1 binary64)
(*.f64 (pow.f64 (/.f64 (*.f64 M D) (*.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) (/.f64 h l))
(pow.f64 (/.f64 (*.f64 M D) (*.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64))
(/.f64 (*.f64 M D) (*.f64 #s(literal 2 binary64) d))
(*.f64 M D)
M
D
(*.f64 #s(literal 2 binary64) d)
#s(literal 2 binary64)
d
(/.f64 h l)
h
l
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* w0 (sqrt (- 1 (* 1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))))))))
#s(approx w0 #s(hole binary64 w0))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 w0))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (+ w0 (* -1/8 (/ (* (pow D 2) (* (pow M 2) (* h w0))) (* (pow d 2) l))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (+ w0 (* (pow M 2) (+ (* -1/8 (/ (* (pow D 2) (* h w0)) (* (pow d 2) l))) (* -1/128 (/ (* (pow D 4) (* (pow M 2) (* (pow h 2) w0))) (* (pow d 4) (pow l 2)))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (+ w0 (* (pow M 2) (+ (* -1/8 (/ (* (pow D 2) (* h w0)) (* (pow d 2) l))) (* (pow M 2) (+ (* -1/128 (/ (* (pow D 4) (* (pow h 2) w0)) (* (pow d 4) (pow l 2)))) (* -1/1024 (/ (* (pow D 6) (* (pow M 2) (* (pow h 3) w0))) (* (pow d 6) (pow l 3)))))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 1))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (+ 1 (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (+ 1 (* (pow M 2) (+ (* -1/8 (/ (* (pow D 2) h) (* (pow d 2) l))) (* -1/128 (/ (* (pow D 4) (* (pow M 2) (pow h 2))) (* (pow d 4) (pow l 2)))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (+ 1 (* (pow M 2) (+ (* -1/8 (/ (* (pow D 2) h) (* (pow d 2) l))) (* (pow M 2) (+ (* -1/128 (/ (* (pow D 4) (pow h 2)) (* (pow d 4) (pow l 2)))) (* -1/1024 (/ (* (pow D 6) (* (pow M 2) (pow h 3))) (* (pow d 6) (pow l 3)))))))))))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(hole binary64 1))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(hole binary64 (+ 1 (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))))))
#s(approx (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)) #s(hole binary64 (* 1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l)))))
#s(approx (pow (/ (* M D) (* 2 d)) 2) #s(hole binary64 (* 1/4 (/ (* (pow D 2) (pow M 2)) (pow d 2)))))
#s(approx (/ (* M D) (* 2 d)) #s(hole binary64 (* 1/2 (/ (* D M) d))))
#s(approx (* M D) #s(hole binary64 (* D M)))
#s(approx M #s(hole binary64 M))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (/ h l)))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* M (+ (* 1/2 (* (/ (* d w0) (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (* w0 (sqrt -1/4))) d) (sqrt (/ h l)))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* M (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 4) (* (pow (sqrt -1/4) 2) (sqrt -1/4))))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ (* d w0) (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (* w0 (sqrt -1/4))) d) (sqrt (/ h l))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* M (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 4) (* (pow (sqrt -1/4) 2) (sqrt -1/4))))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 5) (* (pow M 6) (* (sqrt -1/4) (* (sqrt -1/4) (* (pow (sqrt -1/4) 2) (sqrt -1/4))))))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ (* d w0) (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (* w0 (sqrt -1/4))) d) (sqrt (/ h l)))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* (/ (* D (* M (sqrt -1/4))) d) (sqrt (/ h l)))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* M (+ (* 1/2 (* (/ d (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (sqrt -1/4)) d) (sqrt (/ h l)))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* M (+ (* -1/8 (* (/ (pow d 3) (* (pow D 3) (* (pow M 4) (* (sqrt -1/4) (pow (sqrt -1/4) 2))))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ d (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (sqrt -1/4)) d) (sqrt (/ h l))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* M (+ (* -1/8 (* (/ (pow d 3) (* (pow D 3) (* (pow M 4) (* (pow (sqrt -1/4) 2) (sqrt -1/4))))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (pow d 5) (* (pow D 5) (* (pow M 6) (* (sqrt -1/4) (* (pow (sqrt -1/4) 2) (* (sqrt -1/4) (sqrt -1/4))))))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ d (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (sqrt -1/4)) d) (sqrt (/ h l)))))))))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(hole binary64 (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l)))))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(hole binary64 (* (pow M 2) (- (/ 1 (pow M 2)) (* 1/4 (/ (* (pow D 2) h) (* (pow d 2) l)))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* -1 (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (/ h l))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* -1 (* M (+ (* 1/2 (* (/ (* d w0) (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (* w0 (sqrt -1/4))) d) (sqrt (/ h l))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* -1 (* M (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 4) (* (sqrt -1/4) (pow (sqrt -1/4) 2))))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ (* d w0) (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (* w0 (sqrt -1/4))) d) (sqrt (/ h l)))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* -1 (* M (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 4) (* (sqrt -1/4) (pow (sqrt -1/4) 2))))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 5) (* (pow M 6) (* (sqrt -1/4) (* (sqrt -1/4) (* (sqrt -1/4) (pow (sqrt -1/4) 2))))))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ (* d w0) (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (* w0 (sqrt -1/4))) d) (sqrt (/ h l))))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* -1 (* (/ (* D (* M (sqrt -1/4))) d) (sqrt (/ h l))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* -1 (* M (+ (* 1/2 (* (/ d (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (sqrt -1/4)) d) (sqrt (/ h l))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* -1 (* M (+ (* -1/8 (* (/ (pow d 3) (* (pow D 3) (* (pow M 4) (* (sqrt -1/4) (pow (sqrt -1/4) 2))))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ d (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (sqrt -1/4)) d) (sqrt (/ h l)))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* -1 (* M (+ (* -1/8 (* (/ (pow d 3) (* (pow D 3) (* (pow M 4) (* (pow (sqrt -1/4) 2) (sqrt -1/4))))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (pow d 5) (* (pow D 5) (* (pow M 6) (* (sqrt -1/4) (* (pow (sqrt -1/4) 2) (* (sqrt -1/4) (sqrt -1/4))))))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ d (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (sqrt -1/4)) d) (sqrt (/ h l))))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (+ w0 (* (pow D 2) (+ (* -1/8 (/ (* (pow M 2) (* h w0)) (* (pow d 2) l))) (* -1/128 (/ (* (pow D 2) (* (pow M 4) (* (pow h 2) w0))) (* (pow d 4) (pow l 2)))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (+ w0 (* (pow D 2) (+ (* -1/8 (/ (* (pow M 2) (* h w0)) (* (pow d 2) l))) (* (pow D 2) (+ (* -1/128 (/ (* (pow M 4) (* (pow h 2) w0)) (* (pow d 4) (pow l 2)))) (* -1/1024 (/ (* (pow D 2) (* (pow M 6) (* (pow h 3) w0))) (* (pow d 6) (pow l 3)))))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (+ 1 (* (pow D 2) (+ (* -1/8 (/ (* (pow M 2) h) (* (pow d 2) l))) (* -1/128 (/ (* (pow D 2) (* (pow M 4) (pow h 2))) (* (pow d 4) (pow l 2)))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (+ 1 (* (pow D 2) (+ (* -1/8 (/ (* (pow M 2) h) (* (pow d 2) l))) (* (pow D 2) (+ (* -1/128 (/ (* (pow M 4) (pow h 2)) (* (pow d 4) (pow l 2)))) (* -1/1024 (/ (* (pow D 2) (* (pow M 6) (pow h 3))) (* (pow d 6) (pow l 3)))))))))))
#s(approx D #s(hole binary64 D))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* D (+ (* 1/2 (* (/ (* d w0) (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (* w0 (sqrt -1/4))) d) (sqrt (/ h l)))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* D (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 4) (* (pow M 3) (* (pow (sqrt -1/4) 2) (sqrt -1/4))))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ (* d w0) (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (* w0 (sqrt -1/4))) d) (sqrt (/ h l))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* D (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 4) (* (pow M 3) (* (pow (sqrt -1/4) 2) (sqrt -1/4))))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 6) (* (pow M 5) (* (sqrt -1/4) (* (sqrt -1/4) (* (sqrt -1/4) (pow (sqrt -1/4) 2))))))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ (* d w0) (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (* w0 (sqrt -1/4))) d) (sqrt (/ h l)))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* D (+ (* 1/2 (* (/ d (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (sqrt -1/4)) d) (sqrt (/ h l)))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* D (+ (* -1/8 (* (/ (pow d 3) (* (pow D 4) (* (pow M 3) (* (pow (sqrt -1/4) 2) (sqrt -1/4))))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ d (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (sqrt -1/4)) d) (sqrt (/ h l))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* D (+ (* -1/8 (* (/ (pow d 3) (* (pow D 4) (* (pow M 3) (* (pow (sqrt -1/4) 2) (sqrt -1/4))))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (pow d 5) (* (pow D 6) (* (pow M 5) (* (sqrt -1/4) (* (pow (sqrt -1/4) 2) (* (sqrt -1/4) (sqrt -1/4))))))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ d (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (sqrt -1/4)) d) (sqrt (/ h l)))))))))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(hole binary64 (* (pow D 2) (- (/ 1 (pow D 2)) (* 1/4 (/ (* (pow M 2) h) (* (pow d 2) l)))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* -1 (* D (+ (* 1/2 (* (/ (* d w0) (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (* w0 (sqrt -1/4))) d) (sqrt (/ h l))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* -1 (* D (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 4) (* (pow M 3) (* (sqrt -1/4) (pow (sqrt -1/4) 2))))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ (* d w0) (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (* w0 (sqrt -1/4))) d) (sqrt (/ h l)))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* -1 (* D (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 4) (* (pow M 3) (* (pow (sqrt -1/4) 2) (sqrt -1/4))))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 6) (* (pow M 5) (* (sqrt -1/4) (* (sqrt -1/4) (* (pow (sqrt -1/4) 2) (sqrt -1/4))))))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ (* d w0) (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (* w0 (sqrt -1/4))) d) (sqrt (/ h l))))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* -1 (* D (+ (* 1/2 (* (/ d (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (sqrt -1/4)) d) (sqrt (/ h l))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* -1 (* D (+ (* -1/8 (* (/ (pow d 3) (* (pow D 4) (* (pow M 3) (* (sqrt -1/4) (pow (sqrt -1/4) 2))))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ d (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (sqrt -1/4)) d) (sqrt (/ h l)))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* -1 (* D (+ (* -1/8 (* (/ (pow d 3) (* (pow D 4) (* (pow M 3) (* (pow (sqrt -1/4) 2) (sqrt -1/4))))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (pow d 5) (* (pow D 6) (* (pow M 5) (* (sqrt -1/4) (* (pow (sqrt -1/4) 2) (* (sqrt -1/4) (sqrt -1/4))))))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ d (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (sqrt -1/4)) d) (sqrt (/ h l))))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (+ w0 (* h (+ (* -1/8 (/ (* (pow D 2) (* (pow M 2) w0)) (* (pow d 2) l))) (* -1/128 (/ (* (pow D 4) (* (pow M 4) (* h w0))) (* (pow d 4) (pow l 2)))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (+ w0 (* h (+ (* -1/8 (/ (* (pow D 2) (* (pow M 2) w0)) (* (pow d 2) l))) (* h (+ (* -1/128 (/ (* (pow D 4) (* (pow M 4) w0)) (* (pow d 4) (pow l 2)))) (* -1/1024 (/ (* (pow D 6) (* (pow M 6) (* h w0))) (* (pow d 6) (pow l 3)))))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (+ 1 (* h (+ (* -1/8 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (* -1/128 (/ (* (pow D 4) (* (pow M 4) h)) (* (pow d 4) (pow l 2)))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (+ 1 (* h (+ (* -1/8 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (* h (+ (* -1/128 (/ (* (pow D 4) (pow M 4)) (* (pow d 4) (pow l 2)))) (* -1/1024 (/ (* (pow D 6) (* (pow M 6) h)) (* (pow d 6) (pow l 3)))))))))))
#s(approx (/ h l) #s(hole binary64 (/ h l)))
#s(approx h #s(hole binary64 h))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* h (+ (* 1/2 (* (/ (* d w0) (* D (* M (sqrt -1/4)))) (sqrt (/ l (pow h 3))))) (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (/ 1 (* h l))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* h (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 3) (* (pow (sqrt -1/4) 2) (sqrt -1/4))))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/2 (* (/ (* d w0) (* D (* M (sqrt -1/4)))) (sqrt (/ l (pow h 3))))) (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (/ 1 (* h l)))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* h (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 3) (* (sqrt -1/4) (pow (sqrt -1/4) 2))))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 5) (* (pow M 5) (* (sqrt -1/4) (* (sqrt -1/4) (* (sqrt -1/4) (pow (sqrt -1/4) 2))))))) (sqrt (/ (pow l 5) (pow h 7))))) (+ (* 1/2 (* (/ (* d w0) (* D (* M (sqrt -1/4)))) (sqrt (/ l (pow h 3))))) (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (/ 1 (* h l))))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* h (+ (* 1/2 (* (/ d (* D (* M (sqrt -1/4)))) (sqrt (/ l (pow h 3))))) (* (/ (* D (* M (sqrt -1/4))) d) (sqrt (/ 1 (* h l))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* h (+ (* -1/8 (* (/ (pow d 3) (* (pow D 3) (* (pow M 3) (* (pow (sqrt -1/4) 2) (sqrt -1/4))))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/2 (* (/ d (* D (* M (sqrt -1/4)))) (sqrt (/ l (pow h 3))))) (* (/ (* D (* M (sqrt -1/4))) d) (sqrt (/ 1 (* h l)))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* h (+ (* -1/8 (* (/ (pow d 3) (* (pow D 3) (* (pow M 3) (* (pow (sqrt -1/4) 2) (sqrt -1/4))))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/16 (* (/ (pow d 5) (* (pow D 5) (* (pow M 5) (* (sqrt -1/4) (* (sqrt -1/4) (* (pow (sqrt -1/4) 2) (sqrt -1/4))))))) (sqrt (/ (pow l 5) (pow h 7))))) (+ (* 1/2 (* (/ d (* D (* M (sqrt -1/4)))) (sqrt (/ l (pow h 3))))) (* (/ (* D (* M (sqrt -1/4))) d) (sqrt (/ 1 (* h l))))))))))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(hole binary64 (* h (- (/ 1 h) (* 1/4 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l)))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* -1/2 (* (/ (* D (* M (* w0 (sqrt -1)))) d) (sqrt (/ h l))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* -1 (* h (+ (* 1/2 (* (/ (* D (* M (* w0 (sqrt -1)))) d) (sqrt (/ 1 (* h l))))) (* (/ (* d (* w0 (sqrt -1))) (* D M)) (sqrt (/ l (pow h 3)))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* -1 (* h (+ (* -1 (* (/ (* (pow d 3) (* w0 (sqrt -1))) (* (pow D 3) (pow M 3))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/2 (* (/ (* D (* M (* w0 (sqrt -1)))) d) (sqrt (/ 1 (* h l))))) (* (/ (* d (* w0 (sqrt -1))) (* D M)) (sqrt (/ l (pow h 3))))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* -1 (* h (+ (* -1 (* (/ (* (pow d 3) (* w0 (sqrt -1))) (* (pow D 3) (pow M 3))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/2 (* (/ (* D (* M (* w0 (sqrt -1)))) d) (sqrt (/ 1 (* h l))))) (+ (* 2 (* (/ (* (pow d 5) (* w0 (sqrt -1))) (* (pow D 5) (pow M 5))) (sqrt (/ (pow l 5) (pow h 7))))) (* (/ (* d (* w0 (sqrt -1))) (* D M)) (sqrt (/ l (pow h 3)))))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* -1/2 (* (/ (* D (* M (sqrt -1))) d) (sqrt (/ h l))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* -1 (* h (+ (* 1/2 (* (/ (* D (* M (sqrt -1))) d) (sqrt (/ 1 (* h l))))) (* (/ (* d (sqrt -1)) (* D M)) (sqrt (/ l (pow h 3)))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* -1 (* h (+ (* -1 (* (/ (* (pow d 3) (sqrt -1)) (* (pow D 3) (pow M 3))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/2 (* (/ (* D (* M (sqrt -1))) d) (sqrt (/ 1 (* h l))))) (* (/ (* d (sqrt -1)) (* D M)) (sqrt (/ l (pow h 3))))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* -1 (* h (+ (* -1 (* (/ (* (pow d 3) (sqrt -1)) (* (pow D 3) (pow M 3))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/2 (* (/ (* D (* M (sqrt -1))) d) (sqrt (/ 1 (* h l))))) (+ (* 2 (* (/ (* (pow d 5) (sqrt -1)) (* (pow D 5) (pow M 5))) (sqrt (/ (pow l 5) (pow h 7))))) (* (/ (* d (sqrt -1)) (* D M)) (sqrt (/ l (pow h 3)))))))))))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(hole binary64 (* h (+ (* -1/4 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (/ 1 h)))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (/ (+ (* 1/2 (* (/ (* d w0) (* D (* M (sqrt -1/4)))) (sqrt (/ (pow l 3) h)))) (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (* h l)))) l)))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (/ (+ (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (* h l))) (* (pow l 2) (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 3) (* (pow (sqrt -1/4) 2) (sqrt -1/4))))) (sqrt (/ l (pow h 3))))) (* 1/2 (* (/ (* d w0) (* D (* M (sqrt -1/4)))) (sqrt (/ 1 (* h l)))))))) l)))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (/ (+ (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (* h l))) (* (pow l 2) (+ (* 1/2 (* (/ (* d w0) (* D (* M (sqrt -1/4)))) (sqrt (/ 1 (* h l))))) (* (pow l 2) (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 3) (* (pow (sqrt -1/4) 2) (sqrt -1/4))))) (sqrt (/ 1 (* (pow h 3) (pow l 3)))))) (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 5) (* (pow M 5) (* (sqrt -1/4) (* (sqrt -1/4) (* (sqrt -1/4) (pow (sqrt -1/4) 2))))))) (sqrt (/ 1 (* (pow h 5) l)))))))))) l)))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (/ (+ (* 1/2 (* (/ d (* D (* M (sqrt -1/4)))) (sqrt (/ (pow l 3) h)))) (* (/ (* D (* M (sqrt -1/4))) d) (sqrt (* h l)))) l)))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (/ (+ (* (/ (* D (* M (sqrt -1/4))) d) (sqrt (* h l))) (* (pow l 2) (+ (* -1/8 (* (/ (pow d 3) (* (pow D 3) (* (pow M 3) (* (sqrt -1/4) (pow (sqrt -1/4) 2))))) (sqrt (/ l (pow h 3))))) (* 1/2 (* (/ d (* D (* M (sqrt -1/4)))) (sqrt (/ 1 (* h l)))))))) l)))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (/ (+ (* (/ (* D (* M (sqrt -1/4))) d) (sqrt (* h l))) (* (pow l 2) (+ (* 1/2 (* (/ d (* D (* M (sqrt -1/4)))) (sqrt (/ 1 (* h l))))) (* (pow l 2) (+ (* -1/8 (* (/ (pow d 3) (* (pow D 3) (* (pow M 3) (* (pow (sqrt -1/4) 2) (sqrt -1/4))))) (sqrt (/ 1 (* (pow h 3) (pow l 3)))))) (* 1/16 (* (/ (pow d 5) (* (pow D 5) (* (pow M 5) (* (sqrt -1/4) (* (sqrt -1/4) (* (pow (sqrt -1/4) 2) (sqrt -1/4))))))) (sqrt (/ 1 (* (pow h 5) l)))))))))) l)))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(hole binary64 (/ (- l (* 1/4 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l)))
#s(approx l #s(hole binary64 l))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (+ w0 (+ (* -1/8 (/ (* (pow D 2) (* (pow M 2) (* h w0))) (* (pow d 2) l))) (* -1/128 (/ (* (pow D 4) (* (pow M 4) (* (pow h 2) w0))) (* (pow d 4) (pow l 2))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (+ w0 (+ (* -1/8 (/ (* (pow D 2) (* (pow M 2) (* h w0))) (* (pow d 2) l))) (+ (* -1/128 (/ (* (pow D 4) (* (pow M 4) (* (pow h 2) w0))) (* (pow d 4) (pow l 2)))) (* -1/1024 (/ (* (pow D 6) (* (pow M 6) (* (pow h 3) w0))) (* (pow d 6) (pow l 3)))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (+ 1 (+ (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))) (* -1/128 (/ (* (pow D 4) (* (pow M 4) (pow h 2))) (* (pow d 4) (pow l 2))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (+ 1 (+ (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))) (+ (* -1/128 (/ (* (pow D 4) (* (pow M 4) (pow h 2))) (* (pow d 4) (pow l 2)))) (* -1/1024 (/ (* (pow D 6) (* (pow M 6) (pow h 3))) (* (pow d 6) (pow l 3)))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (+ w0 (* -1 (/ (+ (* 1/128 (/ (* (pow D 4) (* (pow M 4) (* (pow h 2) w0))) (* (pow d 4) l))) (* 1/8 (/ (* (pow D 2) (* (pow M 2) (* h w0))) (pow d 2)))) l)))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (+ w0 (* -1 (/ (+ (* -1 (/ (+ (* -1/128 (/ (* (pow D 4) (* (pow M 4) (* (pow h 2) w0))) (pow d 4))) (* -1/1024 (/ (* (pow D 6) (* (pow M 6) (* (pow h 3) w0))) (* (pow d 6) l)))) l)) (* 1/8 (/ (* (pow D 2) (* (pow M 2) (* h w0))) (pow d 2)))) l)))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (+ 1 (* -1 (/ (+ (* 1/128 (/ (* (pow D 4) (* (pow M 4) (pow h 2))) (* (pow d 4) l))) (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l)))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (+ 1 (* -1 (/ (+ (* -1 (/ (+ (* -1/128 (/ (* (pow D 4) (* (pow M 4) (pow h 2))) (pow d 4))) (* -1/1024 (/ (* (pow D 6) (* (pow M 6) (pow h 3))) (* (pow d 6) l)))) l)) (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l)))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (/ (+ (* 1/2 (* (/ (* (pow d 2) w0) (* D (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (* D (* M (* w0 (sqrt -1/4)))) (sqrt (/ h l)))) d)))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (/ (+ (* (* D (* M (* w0 (sqrt -1/4)))) (sqrt (/ h l))) (* (pow d 2) (+ (* -1/8 (* (/ (* (pow d 2) w0) (* (pow D 3) (* (pow M 3) (* (sqrt -1/4) (pow (sqrt -1/4) 2))))) (sqrt (/ (pow l 3) (pow h 3))))) (* 1/2 (* (/ w0 (* D (* M (sqrt -1/4)))) (sqrt (/ l h))))))) d)))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (/ (+ (* (* D (* M (* w0 (sqrt -1/4)))) (sqrt (/ h l))) (* (pow d 2) (+ (* 1/2 (* (/ w0 (* D (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (pow d 2) (+ (* -1/8 (* (/ w0 (* (pow D 3) (* (pow M 3) (* (pow (sqrt -1/4) 2) (sqrt -1/4))))) (sqrt (/ (pow l 3) (pow h 3))))) (* 1/16 (* (/ (* (pow d 2) w0) (* (pow D 5) (* (pow M 5) (* (sqrt -1/4) (* (pow (sqrt -1/4) 2) (* (sqrt -1/4) (sqrt -1/4))))))) (sqrt (/ (pow l 5) (pow h 5)))))))))) d)))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (/ (+ (* 1/2 (* (/ (pow d 2) (* D (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (* D (* M (sqrt -1/4))) (sqrt (/ h l)))) d)))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (/ (+ (* (* D (* M (sqrt -1/4))) (sqrt (/ h l))) (* (pow d 2) (+ (* -1/8 (* (/ (pow d 2) (* (pow D 3) (* (pow M 3) (* (pow (sqrt -1/4) 2) (sqrt -1/4))))) (sqrt (/ (pow l 3) (pow h 3))))) (* 1/2 (* (/ 1 (* D (* M (sqrt -1/4)))) (sqrt (/ l h))))))) d)))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (/ (+ (* (* D (* M (sqrt -1/4))) (sqrt (/ h l))) (* (pow d 2) (+ (* 1/2 (* (/ 1 (* D (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (pow d 2) (+ (* -1/8 (* (/ 1 (* (pow D 3) (* (pow M 3) (* (sqrt -1/4) (pow (sqrt -1/4) 2))))) (sqrt (/ (pow l 3) (pow h 3))))) (* 1/16 (* (/ (pow d 2) (* (pow D 5) (* (pow M 5) (* (pow (sqrt -1/4) 2) (* (sqrt -1/4) (* (sqrt -1/4) (sqrt -1/4))))))) (sqrt (/ (pow l 5) (pow h 5)))))))))) d)))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(hole binary64 (/ (- (pow d 2) (* 1/4 (/ (* (pow D 2) (* (pow M 2) h)) l))) (pow d 2))))
#s(approx (* 2 d) #s(hole binary64 (* 2 d)))
#s(approx d #s(hole binary64 d))
Outputs
(*.f64 w0 (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 (pow.f64 (/.f64 (*.f64 M D) (*.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) (/.f64 h l)))))
w0
(sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 (pow.f64 (/.f64 (*.f64 M D) (*.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) (/.f64 h l))))
(-.f64 #s(literal 1 binary64) (*.f64 (pow.f64 (/.f64 (*.f64 M D) (*.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) (/.f64 h l)))
#s(literal 1 binary64)
(*.f64 (pow.f64 (/.f64 (*.f64 M D) (*.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) (/.f64 h l))
(pow.f64 (/.f64 (*.f64 M D) (*.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64))
(/.f64 (*.f64 M D) (*.f64 #s(literal 2 binary64) d))
(*.f64 M D)
M
D
(*.f64 #s(literal 2 binary64) d)
#s(literal 2 binary64)
d
(/.f64 h l)
h
l
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (*.f64 w0 (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 D #s(literal 2 binary64)) (*.f64 (pow.f64 M #s(literal 2 binary64)) h)) (*.f64 (pow.f64 d #s(literal 2 binary64)) l)))))))
#s(approx w0 w0)
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) w0)
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (+.f64 w0 (*.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 (pow.f64 D #s(literal 2 binary64)) (*.f64 (pow.f64 M #s(literal 2 binary64)) (*.f64 h w0))) (*.f64 (pow.f64 d #s(literal 2 binary64)) l)))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (+.f64 w0 (*.f64 (pow.f64 M #s(literal 2 binary64)) (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 (pow.f64 D #s(literal 2 binary64)) (*.f64 h w0)) (*.f64 (pow.f64 d #s(literal 2 binary64)) l)) (*.f64 #s(literal -1/128 binary64) (/.f64 (*.f64 (pow.f64 D #s(literal 4 binary64)) (*.f64 (pow.f64 M #s(literal 2 binary64)) (*.f64 (pow.f64 h #s(literal 2 binary64)) w0))) (*.f64 (pow.f64 d #s(literal 4 binary64)) (pow.f64 l #s(literal 2 binary64)))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (+.f64 w0 (*.f64 (pow.f64 M #s(literal 2 binary64)) (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 (pow.f64 D #s(literal 2 binary64)) (*.f64 h w0)) (*.f64 (pow.f64 d #s(literal 2 binary64)) l)) (*.f64 (pow.f64 M #s(literal 2 binary64)) (fma.f64 #s(literal -1/128 binary64) (/.f64 (*.f64 (pow.f64 D #s(literal 4 binary64)) (*.f64 (pow.f64 h #s(literal 2 binary64)) w0)) (*.f64 (pow.f64 d #s(literal 4 binary64)) (pow.f64 l #s(literal 2 binary64)))) (*.f64 #s(literal -1/1024 binary64) (/.f64 (*.f64 (pow.f64 D #s(literal 6 binary64)) (*.f64 (pow.f64 M #s(literal 2 binary64)) (*.f64 (pow.f64 h #s(literal 3 binary64)) w0))) (*.f64 (pow.f64 d #s(literal 6 binary64)) (pow.f64 l #s(literal 3 binary64)))))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(literal 1 binary64))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 (pow.f64 D #s(literal 2 binary64)) (*.f64 (pow.f64 M #s(literal 2 binary64)) h)) (*.f64 (pow.f64 d #s(literal 2 binary64)) l)))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (+.f64 #s(literal 1 binary64) (*.f64 (pow.f64 M #s(literal 2 binary64)) (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 (pow.f64 D #s(literal 2 binary64)) h) (*.f64 (pow.f64 d #s(literal 2 binary64)) l)) (*.f64 #s(literal -1/128 binary64) (/.f64 (*.f64 (pow.f64 D #s(literal 4 binary64)) (*.f64 (pow.f64 M #s(literal 2 binary64)) (pow.f64 h #s(literal 2 binary64)))) (*.f64 (pow.f64 d #s(literal 4 binary64)) (pow.f64 l #s(literal 2 binary64)))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (+.f64 #s(literal 1 binary64) (*.f64 (pow.f64 M #s(literal 2 binary64)) (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 (pow.f64 D #s(literal 2 binary64)) h) (*.f64 (pow.f64 d #s(literal 2 binary64)) l)) (*.f64 (pow.f64 M #s(literal 2 binary64)) (fma.f64 #s(literal -1/128 binary64) (/.f64 (*.f64 (pow.f64 D #s(literal 4 binary64)) (pow.f64 h #s(literal 2 binary64))) (*.f64 (pow.f64 d #s(literal 4 binary64)) (pow.f64 l #s(literal 2 binary64)))) (*.f64 #s(literal -1/1024 binary64) (/.f64 (*.f64 (pow.f64 D #s(literal 6 binary64)) (*.f64 (pow.f64 M #s(literal 2 binary64)) (pow.f64 h #s(literal 3 binary64)))) (*.f64 (pow.f64 d #s(literal 6 binary64)) (pow.f64 l #s(literal 3 binary64)))))))))))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(literal 1 binary64))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 (pow.f64 D #s(literal 2 binary64)) (*.f64 (pow.f64 M #s(literal 2 binary64)) h)) (*.f64 (pow.f64 d #s(literal 2 binary64)) l)))))
#s(approx (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 D #s(literal 2 binary64)) (*.f64 (pow.f64 M #s(literal 2 binary64)) h)) (*.f64 (pow.f64 d #s(literal 2 binary64)) l))))
#s(approx (pow (/ (* M D) (* 2 d)) 2) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) (pow.f64 d #s(literal 2 binary64)))))
#s(approx (/ (* M D) (* 2 d)) (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 D M) d)))
#s(approx (* M D) (*.f64 D M))
#s(approx M M)
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (*.f64 (/.f64 (*.f64 D (*.f64 M (*.f64 w0 (sqrt.f64 #s(literal -1/4 binary64))))) d) (sqrt.f64 (/.f64 h l))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (*.f64 M (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 d w0) (*.f64 D (*.f64 (pow.f64 M #s(literal 2 binary64)) (sqrt.f64 #s(literal -1/4 binary64))))) (sqrt.f64 (/.f64 l h))) (*.f64 (/.f64 (*.f64 D (*.f64 w0 (sqrt.f64 #s(literal -1/4 binary64)))) d) (sqrt.f64 (/.f64 h l))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (*.f64 M (fma.f64 #s(literal -1/8 binary64) (*.f64 (/.f64 (*.f64 (pow.f64 d #s(literal 3 binary64)) w0) (*.f64 (pow.f64 D #s(literal 3 binary64)) (*.f64 (pow.f64 M #s(literal 4 binary64)) (*.f64 (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 #s(literal -1/4 binary64)))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 h #s(literal 3 binary64))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 d w0) (*.f64 D (*.f64 (pow.f64 M #s(literal 2 binary64)) (sqrt.f64 #s(literal -1/4 binary64))))) (sqrt.f64 (/.f64 l h))) (*.f64 (/.f64 (*.f64 D (*.f64 w0 (sqrt.f64 #s(literal -1/4 binary64)))) d) (sqrt.f64 (/.f64 h l)))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (*.f64 M (fma.f64 #s(literal -1/8 binary64) (*.f64 (/.f64 (*.f64 (pow.f64 d #s(literal 3 binary64)) w0) (*.f64 (pow.f64 D #s(literal 3 binary64)) (*.f64 (pow.f64 M #s(literal 4 binary64)) (*.f64 (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 #s(literal -1/4 binary64)))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 h #s(literal 3 binary64))))) (fma.f64 #s(literal 1/16 binary64) (*.f64 (/.f64 (*.f64 (pow.f64 d #s(literal 5 binary64)) w0) (*.f64 (pow.f64 D #s(literal 5 binary64)) (*.f64 (pow.f64 M #s(literal 6 binary64)) (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) (*.f64 (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 #s(literal -1/4 binary64)))))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 5 binary64))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 d w0) (*.f64 D (*.f64 (pow.f64 M #s(literal 2 binary64)) (sqrt.f64 #s(literal -1/4 binary64))))) (sqrt.f64 (/.f64 l h))) (*.f64 (/.f64 (*.f64 D (*.f64 w0 (sqrt.f64 #s(literal -1/4 binary64)))) d) (sqrt.f64 (/.f64 h l))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (*.f64 (/.f64 (*.f64 D (*.f64 M (sqrt.f64 #s(literal -1/4 binary64)))) d) (sqrt.f64 (/.f64 h l))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (*.f64 M (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 d (*.f64 D (*.f64 (pow.f64 M #s(literal 2 binary64)) (sqrt.f64 #s(literal -1/4 binary64))))) (sqrt.f64 (/.f64 l h))) (*.f64 (/.f64 (*.f64 D (sqrt.f64 #s(literal -1/4 binary64))) d) (sqrt.f64 (/.f64 h l))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (*.f64 M (fma.f64 #s(literal -1/8 binary64) (*.f64 (/.f64 (pow.f64 d #s(literal 3 binary64)) (*.f64 (pow.f64 D #s(literal 3 binary64)) (*.f64 (pow.f64 M #s(literal 4 binary64)) (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 h #s(literal 3 binary64))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 d (*.f64 D (*.f64 (pow.f64 M #s(literal 2 binary64)) (sqrt.f64 #s(literal -1/4 binary64))))) (sqrt.f64 (/.f64 l h))) (*.f64 (/.f64 (*.f64 D (sqrt.f64 #s(literal -1/4 binary64))) d) (sqrt.f64 (/.f64 h l)))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (*.f64 M (fma.f64 #s(literal -1/8 binary64) (*.f64 (/.f64 (pow.f64 d #s(literal 3 binary64)) (*.f64 (pow.f64 D #s(literal 3 binary64)) (*.f64 (pow.f64 M #s(literal 4 binary64)) (*.f64 (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 #s(literal -1/4 binary64)))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 h #s(literal 3 binary64))))) (fma.f64 #s(literal 1/16 binary64) (*.f64 (/.f64 (pow.f64 d #s(literal 5 binary64)) (*.f64 (pow.f64 D #s(literal 5 binary64)) (*.f64 (pow.f64 M #s(literal 6 binary64)) (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) (*.f64 (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 2 binary64)) (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) (sqrt.f64 #s(literal -1/4 binary64)))))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 5 binary64))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 d (*.f64 D (*.f64 (pow.f64 M #s(literal 2 binary64)) (sqrt.f64 #s(literal -1/4 binary64))))) (sqrt.f64 (/.f64 l h))) (*.f64 (/.f64 (*.f64 D (sqrt.f64 #s(literal -1/4 binary64))) d) (sqrt.f64 (/.f64 h l))))))))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (*.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 (pow.f64 D #s(literal 2 binary64)) (*.f64 (pow.f64 M #s(literal 2 binary64)) h)) (*.f64 (pow.f64 d #s(literal 2 binary64)) l))))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (*.f64 (pow.f64 M #s(literal 2 binary64)) (-.f64 (/.f64 #s(literal 1 binary64) (pow.f64 M #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 D #s(literal 2 binary64)) h) (*.f64 (pow.f64 d #s(literal 2 binary64)) l))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 D (*.f64 M (*.f64 w0 (sqrt.f64 #s(literal -1/4 binary64))))) d) (sqrt.f64 (/.f64 h l)))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (*.f64 #s(literal -1 binary64) (*.f64 M (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 d w0) (*.f64 D (*.f64 (pow.f64 M #s(literal 2 binary64)) (sqrt.f64 #s(literal -1/4 binary64))))) (sqrt.f64 (/.f64 l h))) (*.f64 (/.f64 (*.f64 D (*.f64 w0 (sqrt.f64 #s(literal -1/4 binary64)))) d) (sqrt.f64 (/.f64 h l)))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (*.f64 #s(literal -1 binary64) (*.f64 M (fma.f64 #s(literal -1/8 binary64) (*.f64 (/.f64 (*.f64 (pow.f64 d #s(literal 3 binary64)) w0) (*.f64 (pow.f64 D #s(literal 3 binary64)) (*.f64 (pow.f64 M #s(literal 4 binary64)) (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 h #s(literal 3 binary64))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 d w0) (*.f64 D (*.f64 (pow.f64 M #s(literal 2 binary64)) (sqrt.f64 #s(literal -1/4 binary64))))) (sqrt.f64 (/.f64 l h))) (*.f64 (/.f64 (*.f64 D (*.f64 w0 (sqrt.f64 #s(literal -1/4 binary64)))) d) (sqrt.f64 (/.f64 h l))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (*.f64 #s(literal -1 binary64) (*.f64 M (fma.f64 #s(literal -1/8 binary64) (*.f64 (/.f64 (*.f64 (pow.f64 d #s(literal 3 binary64)) w0) (*.f64 (pow.f64 D #s(literal 3 binary64)) (*.f64 (pow.f64 M #s(literal 4 binary64)) (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 h #s(literal 3 binary64))))) (fma.f64 #s(literal 1/16 binary64) (*.f64 (/.f64 (*.f64 (pow.f64 d #s(literal 5 binary64)) w0) (*.f64 (pow.f64 D #s(literal 5 binary64)) (*.f64 (pow.f64 M #s(literal 6 binary64)) (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 2 binary64)))))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 5 binary64))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 d w0) (*.f64 D (*.f64 (pow.f64 M #s(literal 2 binary64)) (sqrt.f64 #s(literal -1/4 binary64))))) (sqrt.f64 (/.f64 l h))) (*.f64 (/.f64 (*.f64 D (*.f64 w0 (sqrt.f64 #s(literal -1/4 binary64)))) d) (sqrt.f64 (/.f64 h l)))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 D (*.f64 M (sqrt.f64 #s(literal -1/4 binary64)))) d) (sqrt.f64 (/.f64 h l)))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (*.f64 #s(literal -1 binary64) (*.f64 M (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 d (*.f64 D (*.f64 (pow.f64 M #s(literal 2 binary64)) (sqrt.f64 #s(literal -1/4 binary64))))) (sqrt.f64 (/.f64 l h))) (*.f64 (/.f64 (*.f64 D (sqrt.f64 #s(literal -1/4 binary64))) d) (sqrt.f64 (/.f64 h l)))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (*.f64 #s(literal -1 binary64) (*.f64 M (fma.f64 #s(literal -1/8 binary64) (*.f64 (/.f64 (pow.f64 d #s(literal 3 binary64)) (*.f64 (pow.f64 D #s(literal 3 binary64)) (*.f64 (pow.f64 M #s(literal 4 binary64)) (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 h #s(literal 3 binary64))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 d (*.f64 D (*.f64 (pow.f64 M #s(literal 2 binary64)) (sqrt.f64 #s(literal -1/4 binary64))))) (sqrt.f64 (/.f64 l h))) (*.f64 (/.f64 (*.f64 D (sqrt.f64 #s(literal -1/4 binary64))) d) (sqrt.f64 (/.f64 h l))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (*.f64 #s(literal -1 binary64) (*.f64 M (fma.f64 #s(literal -1/8 binary64) (*.f64 (/.f64 (pow.f64 d #s(literal 3 binary64)) (*.f64 (pow.f64 D #s(literal 3 binary64)) (*.f64 (pow.f64 M #s(literal 4 binary64)) (*.f64 (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 #s(literal -1/4 binary64)))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 h #s(literal 3 binary64))))) (fma.f64 #s(literal 1/16 binary64) (*.f64 (/.f64 (pow.f64 d #s(literal 5 binary64)) (*.f64 (pow.f64 D #s(literal 5 binary64)) (*.f64 (pow.f64 M #s(literal 6 binary64)) (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) (*.f64 (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 2 binary64)) (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) (sqrt.f64 #s(literal -1/4 binary64)))))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 5 binary64))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 d (*.f64 D (*.f64 (pow.f64 M #s(literal 2 binary64)) (sqrt.f64 #s(literal -1/4 binary64))))) (sqrt.f64 (/.f64 l h))) (*.f64 (/.f64 (*.f64 D (sqrt.f64 #s(literal -1/4 binary64))) d) (sqrt.f64 (/.f64 h l)))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (+.f64 w0 (*.f64 (pow.f64 D #s(literal 2 binary64)) (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 (pow.f64 M #s(literal 2 binary64)) (*.f64 h w0)) (*.f64 (pow.f64 d #s(literal 2 binary64)) l)) (*.f64 #s(literal -1/128 binary64) (/.f64 (*.f64 (pow.f64 D #s(literal 2 binary64)) (*.f64 (pow.f64 M #s(literal 4 binary64)) (*.f64 (pow.f64 h #s(literal 2 binary64)) w0))) (*.f64 (pow.f64 d #s(literal 4 binary64)) (pow.f64 l #s(literal 2 binary64)))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (+.f64 w0 (*.f64 (pow.f64 D #s(literal 2 binary64)) (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 (pow.f64 M #s(literal 2 binary64)) (*.f64 h w0)) (*.f64 (pow.f64 d #s(literal 2 binary64)) l)) (*.f64 (pow.f64 D #s(literal 2 binary64)) (fma.f64 #s(literal -1/128 binary64) (/.f64 (*.f64 (pow.f64 M #s(literal 4 binary64)) (*.f64 (pow.f64 h #s(literal 2 binary64)) w0)) (*.f64 (pow.f64 d #s(literal 4 binary64)) (pow.f64 l #s(literal 2 binary64)))) (*.f64 #s(literal -1/1024 binary64) (/.f64 (*.f64 (pow.f64 D #s(literal 2 binary64)) (*.f64 (pow.f64 M #s(literal 6 binary64)) (*.f64 (pow.f64 h #s(literal 3 binary64)) w0))) (*.f64 (pow.f64 d #s(literal 6 binary64)) (pow.f64 l #s(literal 3 binary64)))))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (+.f64 #s(literal 1 binary64) (*.f64 (pow.f64 D #s(literal 2 binary64)) (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 (pow.f64 M #s(literal 2 binary64)) h) (*.f64 (pow.f64 d #s(literal 2 binary64)) l)) (*.f64 #s(literal -1/128 binary64) (/.f64 (*.f64 (pow.f64 D #s(literal 2 binary64)) (*.f64 (pow.f64 M #s(literal 4 binary64)) (pow.f64 h #s(literal 2 binary64)))) (*.f64 (pow.f64 d #s(literal 4 binary64)) (pow.f64 l #s(literal 2 binary64)))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (+.f64 #s(literal 1 binary64) (*.f64 (pow.f64 D #s(literal 2 binary64)) (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 (pow.f64 M #s(literal 2 binary64)) h) (*.f64 (pow.f64 d #s(literal 2 binary64)) l)) (*.f64 (pow.f64 D #s(literal 2 binary64)) (fma.f64 #s(literal -1/128 binary64) (/.f64 (*.f64 (pow.f64 M #s(literal 4 binary64)) (pow.f64 h #s(literal 2 binary64))) (*.f64 (pow.f64 d #s(literal 4 binary64)) (pow.f64 l #s(literal 2 binary64)))) (*.f64 #s(literal -1/1024 binary64) (/.f64 (*.f64 (pow.f64 D #s(literal 2 binary64)) (*.f64 (pow.f64 M #s(literal 6 binary64)) (pow.f64 h #s(literal 3 binary64)))) (*.f64 (pow.f64 d #s(literal 6 binary64)) (pow.f64 l #s(literal 3 binary64)))))))))))
#s(approx D D)
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (*.f64 D (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 d w0) (*.f64 (pow.f64 D #s(literal 2 binary64)) (*.f64 M (sqrt.f64 #s(literal -1/4 binary64))))) (sqrt.f64 (/.f64 l h))) (*.f64 (/.f64 (*.f64 M (*.f64 w0 (sqrt.f64 #s(literal -1/4 binary64)))) d) (sqrt.f64 (/.f64 h l))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (*.f64 D (fma.f64 #s(literal -1/8 binary64) (*.f64 (/.f64 (*.f64 (pow.f64 d #s(literal 3 binary64)) w0) (*.f64 (pow.f64 D #s(literal 4 binary64)) (*.f64 (pow.f64 M #s(literal 3 binary64)) (*.f64 (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 #s(literal -1/4 binary64)))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 h #s(literal 3 binary64))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 d w0) (*.f64 (pow.f64 D #s(literal 2 binary64)) (*.f64 M (sqrt.f64 #s(literal -1/4 binary64))))) (sqrt.f64 (/.f64 l h))) (*.f64 (/.f64 (*.f64 M (*.f64 w0 (sqrt.f64 #s(literal -1/4 binary64)))) d) (sqrt.f64 (/.f64 h l)))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (*.f64 D (fma.f64 #s(literal -1/8 binary64) (*.f64 (/.f64 (*.f64 (pow.f64 d #s(literal 3 binary64)) w0) (*.f64 (pow.f64 D #s(literal 4 binary64)) (*.f64 (pow.f64 M #s(literal 3 binary64)) (*.f64 (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 #s(literal -1/4 binary64)))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 h #s(literal 3 binary64))))) (fma.f64 #s(literal 1/16 binary64) (*.f64 (/.f64 (*.f64 (pow.f64 d #s(literal 5 binary64)) w0) (*.f64 (pow.f64 D #s(literal 6 binary64)) (*.f64 (pow.f64 M #s(literal 5 binary64)) (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 2 binary64)))))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 5 binary64))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 d w0) (*.f64 (pow.f64 D #s(literal 2 binary64)) (*.f64 M (sqrt.f64 #s(literal -1/4 binary64))))) (sqrt.f64 (/.f64 l h))) (*.f64 (/.f64 (*.f64 M (*.f64 w0 (sqrt.f64 #s(literal -1/4 binary64)))) d) (sqrt.f64 (/.f64 h l))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (*.f64 D (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 d (*.f64 (pow.f64 D #s(literal 2 binary64)) (*.f64 M (sqrt.f64 #s(literal -1/4 binary64))))) (sqrt.f64 (/.f64 l h))) (*.f64 (/.f64 (*.f64 M (sqrt.f64 #s(literal -1/4 binary64))) d) (sqrt.f64 (/.f64 h l))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (*.f64 D (fma.f64 #s(literal -1/8 binary64) (*.f64 (/.f64 (pow.f64 d #s(literal 3 binary64)) (*.f64 (pow.f64 D #s(literal 4 binary64)) (*.f64 (pow.f64 M #s(literal 3 binary64)) (*.f64 (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 #s(literal -1/4 binary64)))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 h #s(literal 3 binary64))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 d (*.f64 (pow.f64 D #s(literal 2 binary64)) (*.f64 M (sqrt.f64 #s(literal -1/4 binary64))))) (sqrt.f64 (/.f64 l h))) (*.f64 (/.f64 (*.f64 M (sqrt.f64 #s(literal -1/4 binary64))) d) (sqrt.f64 (/.f64 h l)))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (*.f64 D (fma.f64 #s(literal -1/8 binary64) (*.f64 (/.f64 (pow.f64 d #s(literal 3 binary64)) (*.f64 (pow.f64 D #s(literal 4 binary64)) (*.f64 (pow.f64 M #s(literal 3 binary64)) (*.f64 (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 #s(literal -1/4 binary64)))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 h #s(literal 3 binary64))))) (fma.f64 #s(literal 1/16 binary64) (*.f64 (/.f64 (pow.f64 d #s(literal 5 binary64)) (*.f64 (pow.f64 D #s(literal 6 binary64)) (*.f64 (pow.f64 M #s(literal 5 binary64)) (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) (*.f64 (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 2 binary64)) (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) (sqrt.f64 #s(literal -1/4 binary64)))))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 5 binary64))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 d (*.f64 (pow.f64 D #s(literal 2 binary64)) (*.f64 M (sqrt.f64 #s(literal -1/4 binary64))))) (sqrt.f64 (/.f64 l h))) (*.f64 (/.f64 (*.f64 M (sqrt.f64 #s(literal -1/4 binary64))) d) (sqrt.f64 (/.f64 h l))))))))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (*.f64 (pow.f64 D #s(literal 2 binary64)) (-.f64 (/.f64 #s(literal 1 binary64) (pow.f64 D #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 M #s(literal 2 binary64)) h) (*.f64 (pow.f64 d #s(literal 2 binary64)) l))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (*.f64 #s(literal -1 binary64) (*.f64 D (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 d w0) (*.f64 (pow.f64 D #s(literal 2 binary64)) (*.f64 M (sqrt.f64 #s(literal -1/4 binary64))))) (sqrt.f64 (/.f64 l h))) (*.f64 (/.f64 (*.f64 M (*.f64 w0 (sqrt.f64 #s(literal -1/4 binary64)))) d) (sqrt.f64 (/.f64 h l)))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (*.f64 #s(literal -1 binary64) (*.f64 D (fma.f64 #s(literal -1/8 binary64) (*.f64 (/.f64 (*.f64 (pow.f64 d #s(literal 3 binary64)) w0) (*.f64 (pow.f64 D #s(literal 4 binary64)) (*.f64 (pow.f64 M #s(literal 3 binary64)) (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 h #s(literal 3 binary64))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 d w0) (*.f64 (pow.f64 D #s(literal 2 binary64)) (*.f64 M (sqrt.f64 #s(literal -1/4 binary64))))) (sqrt.f64 (/.f64 l h))) (*.f64 (/.f64 (*.f64 M (*.f64 w0 (sqrt.f64 #s(literal -1/4 binary64)))) d) (sqrt.f64 (/.f64 h l))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (*.f64 #s(literal -1 binary64) (*.f64 D (fma.f64 #s(literal -1/8 binary64) (*.f64 (/.f64 (*.f64 (pow.f64 d #s(literal 3 binary64)) w0) (*.f64 (pow.f64 D #s(literal 4 binary64)) (*.f64 (pow.f64 M #s(literal 3 binary64)) (*.f64 (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 #s(literal -1/4 binary64)))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 h #s(literal 3 binary64))))) (fma.f64 #s(literal 1/16 binary64) (*.f64 (/.f64 (*.f64 (pow.f64 d #s(literal 5 binary64)) w0) (*.f64 (pow.f64 D #s(literal 6 binary64)) (*.f64 (pow.f64 M #s(literal 5 binary64)) (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) (*.f64 (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 #s(literal -1/4 binary64)))))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 5 binary64))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 d w0) (*.f64 (pow.f64 D #s(literal 2 binary64)) (*.f64 M (sqrt.f64 #s(literal -1/4 binary64))))) (sqrt.f64 (/.f64 l h))) (*.f64 (/.f64 (*.f64 M (*.f64 w0 (sqrt.f64 #s(literal -1/4 binary64)))) d) (sqrt.f64 (/.f64 h l)))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (*.f64 #s(literal -1 binary64) (*.f64 D (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 d (*.f64 (pow.f64 D #s(literal 2 binary64)) (*.f64 M (sqrt.f64 #s(literal -1/4 binary64))))) (sqrt.f64 (/.f64 l h))) (*.f64 (/.f64 (*.f64 M (sqrt.f64 #s(literal -1/4 binary64))) d) (sqrt.f64 (/.f64 h l)))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (*.f64 #s(literal -1 binary64) (*.f64 D (fma.f64 #s(literal -1/8 binary64) (*.f64 (/.f64 (pow.f64 d #s(literal 3 binary64)) (*.f64 (pow.f64 D #s(literal 4 binary64)) (*.f64 (pow.f64 M #s(literal 3 binary64)) (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 h #s(literal 3 binary64))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 d (*.f64 (pow.f64 D #s(literal 2 binary64)) (*.f64 M (sqrt.f64 #s(literal -1/4 binary64))))) (sqrt.f64 (/.f64 l h))) (*.f64 (/.f64 (*.f64 M (sqrt.f64 #s(literal -1/4 binary64))) d) (sqrt.f64 (/.f64 h l))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (*.f64 #s(literal -1 binary64) (*.f64 D (fma.f64 #s(literal -1/8 binary64) (*.f64 (/.f64 (pow.f64 d #s(literal 3 binary64)) (*.f64 (pow.f64 D #s(literal 4 binary64)) (*.f64 (pow.f64 M #s(literal 3 binary64)) (*.f64 (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 #s(literal -1/4 binary64)))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 h #s(literal 3 binary64))))) (fma.f64 #s(literal 1/16 binary64) (*.f64 (/.f64 (pow.f64 d #s(literal 5 binary64)) (*.f64 (pow.f64 D #s(literal 6 binary64)) (*.f64 (pow.f64 M #s(literal 5 binary64)) (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) (*.f64 (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 2 binary64)) (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) (sqrt.f64 #s(literal -1/4 binary64)))))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 5 binary64))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 d (*.f64 (pow.f64 D #s(literal 2 binary64)) (*.f64 M (sqrt.f64 #s(literal -1/4 binary64))))) (sqrt.f64 (/.f64 l h))) (*.f64 (/.f64 (*.f64 M (sqrt.f64 #s(literal -1/4 binary64))) d) (sqrt.f64 (/.f64 h l)))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (+.f64 w0 (*.f64 h (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 (pow.f64 D #s(literal 2 binary64)) (*.f64 (pow.f64 M #s(literal 2 binary64)) w0)) (*.f64 (pow.f64 d #s(literal 2 binary64)) l)) (*.f64 #s(literal -1/128 binary64) (/.f64 (*.f64 (pow.f64 D #s(literal 4 binary64)) (*.f64 (pow.f64 M #s(literal 4 binary64)) (*.f64 h w0))) (*.f64 (pow.f64 d #s(literal 4 binary64)) (pow.f64 l #s(literal 2 binary64)))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (+.f64 w0 (*.f64 h (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 (pow.f64 D #s(literal 2 binary64)) (*.f64 (pow.f64 M #s(literal 2 binary64)) w0)) (*.f64 (pow.f64 d #s(literal 2 binary64)) l)) (*.f64 h (fma.f64 #s(literal -1/128 binary64) (/.f64 (*.f64 (pow.f64 D #s(literal 4 binary64)) (*.f64 (pow.f64 M #s(literal 4 binary64)) w0)) (*.f64 (pow.f64 d #s(literal 4 binary64)) (pow.f64 l #s(literal 2 binary64)))) (*.f64 #s(literal -1/1024 binary64) (/.f64 (*.f64 (pow.f64 D #s(literal 6 binary64)) (*.f64 (pow.f64 M #s(literal 6 binary64)) (*.f64 h w0))) (*.f64 (pow.f64 d #s(literal 6 binary64)) (pow.f64 l #s(literal 3 binary64)))))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (+.f64 #s(literal 1 binary64) (*.f64 h (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) (*.f64 (pow.f64 d #s(literal 2 binary64)) l)) (*.f64 #s(literal -1/128 binary64) (/.f64 (*.f64 (pow.f64 D #s(literal 4 binary64)) (*.f64 (pow.f64 M #s(literal 4 binary64)) h)) (*.f64 (pow.f64 d #s(literal 4 binary64)) (pow.f64 l #s(literal 2 binary64)))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (+.f64 #s(literal 1 binary64) (*.f64 h (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) (*.f64 (pow.f64 d #s(literal 2 binary64)) l)) (*.f64 h (fma.f64 #s(literal -1/128 binary64) (/.f64 (*.f64 (pow.f64 D #s(literal 4 binary64)) (pow.f64 M #s(literal 4 binary64))) (*.f64 (pow.f64 d #s(literal 4 binary64)) (pow.f64 l #s(literal 2 binary64)))) (*.f64 #s(literal -1/1024 binary64) (/.f64 (*.f64 (pow.f64 D #s(literal 6 binary64)) (*.f64 (pow.f64 M #s(literal 6 binary64)) h)) (*.f64 (pow.f64 d #s(literal 6 binary64)) (pow.f64 l #s(literal 3 binary64)))))))))))
#s(approx (/ h l) (/.f64 h l))
#s(approx h h)
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (*.f64 h (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 d w0) (*.f64 D (*.f64 M (sqrt.f64 #s(literal -1/4 binary64))))) (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64))))) (*.f64 (/.f64 (*.f64 D (*.f64 M (*.f64 w0 (sqrt.f64 #s(literal -1/4 binary64))))) d) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 h l)))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (*.f64 h (fma.f64 #s(literal -1/8 binary64) (*.f64 (/.f64 (*.f64 (pow.f64 d #s(literal 3 binary64)) w0) (*.f64 (pow.f64 D #s(literal 3 binary64)) (*.f64 (pow.f64 M #s(literal 3 binary64)) (*.f64 (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 #s(literal -1/4 binary64)))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 h #s(literal 5 binary64))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 d w0) (*.f64 D (*.f64 M (sqrt.f64 #s(literal -1/4 binary64))))) (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64))))) (*.f64 (/.f64 (*.f64 D (*.f64 M (*.f64 w0 (sqrt.f64 #s(literal -1/4 binary64))))) d) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 h l))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (*.f64 h (fma.f64 #s(literal -1/8 binary64) (*.f64 (/.f64 (*.f64 (pow.f64 d #s(literal 3 binary64)) w0) (*.f64 (pow.f64 D #s(literal 3 binary64)) (*.f64 (pow.f64 M #s(literal 3 binary64)) (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 h #s(literal 5 binary64))))) (fma.f64 #s(literal 1/16 binary64) (*.f64 (/.f64 (*.f64 (pow.f64 d #s(literal 5 binary64)) w0) (*.f64 (pow.f64 D #s(literal 5 binary64)) (*.f64 (pow.f64 M #s(literal 5 binary64)) (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 2 binary64)))))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 7 binary64))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 d w0) (*.f64 D (*.f64 M (sqrt.f64 #s(literal -1/4 binary64))))) (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64))))) (*.f64 (/.f64 (*.f64 D (*.f64 M (*.f64 w0 (sqrt.f64 #s(literal -1/4 binary64))))) d) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 h l)))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (*.f64 h (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 d (*.f64 D (*.f64 M (sqrt.f64 #s(literal -1/4 binary64))))) (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64))))) (*.f64 (/.f64 (*.f64 D (*.f64 M (sqrt.f64 #s(literal -1/4 binary64)))) d) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 h l)))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (*.f64 h (fma.f64 #s(literal -1/8 binary64) (*.f64 (/.f64 (pow.f64 d #s(literal 3 binary64)) (*.f64 (pow.f64 D #s(literal 3 binary64)) (*.f64 (pow.f64 M #s(literal 3 binary64)) (*.f64 (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 #s(literal -1/4 binary64)))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 h #s(literal 5 binary64))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 d (*.f64 D (*.f64 M (sqrt.f64 #s(literal -1/4 binary64))))) (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64))))) (*.f64 (/.f64 (*.f64 D (*.f64 M (sqrt.f64 #s(literal -1/4 binary64)))) d) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 h l))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (*.f64 h (fma.f64 #s(literal -1/8 binary64) (*.f64 (/.f64 (pow.f64 d #s(literal 3 binary64)) (*.f64 (pow.f64 D #s(literal 3 binary64)) (*.f64 (pow.f64 M #s(literal 3 binary64)) (*.f64 (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 #s(literal -1/4 binary64)))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 h #s(literal 5 binary64))))) (fma.f64 #s(literal 1/16 binary64) (*.f64 (/.f64 (pow.f64 d #s(literal 5 binary64)) (*.f64 (pow.f64 D #s(literal 5 binary64)) (*.f64 (pow.f64 M #s(literal 5 binary64)) (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) (*.f64 (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 #s(literal -1/4 binary64)))))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 7 binary64))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 d (*.f64 D (*.f64 M (sqrt.f64 #s(literal -1/4 binary64))))) (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64))))) (*.f64 (/.f64 (*.f64 D (*.f64 M (sqrt.f64 #s(literal -1/4 binary64)))) d) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 h l)))))))))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (*.f64 h (-.f64 (/.f64 #s(literal 1 binary64) h) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) (*.f64 (pow.f64 d #s(literal 2 binary64)) l))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 (*.f64 D (*.f64 M (*.f64 w0 (sqrt.f64 #s(literal -1 binary64))))) d) (sqrt.f64 (/.f64 h l)))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (*.f64 #s(literal -1 binary64) (*.f64 h (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 D (*.f64 M (*.f64 w0 (sqrt.f64 #s(literal -1 binary64))))) d) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 h l)))) (*.f64 (/.f64 (*.f64 d (*.f64 w0 (sqrt.f64 #s(literal -1 binary64)))) (*.f64 D M)) (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64)))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (*.f64 #s(literal -1 binary64) (*.f64 h (fma.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 (pow.f64 d #s(literal 3 binary64)) (*.f64 w0 (sqrt.f64 #s(literal -1 binary64)))) (*.f64 (pow.f64 D #s(literal 3 binary64)) (pow.f64 M #s(literal 3 binary64)))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 h #s(literal 5 binary64))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 D (*.f64 M (*.f64 w0 (sqrt.f64 #s(literal -1 binary64))))) d) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 h l)))) (*.f64 (/.f64 (*.f64 d (*.f64 w0 (sqrt.f64 #s(literal -1 binary64)))) (*.f64 D M)) (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64))))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (*.f64 #s(literal -1 binary64) (*.f64 h (fma.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 (pow.f64 d #s(literal 3 binary64)) (*.f64 w0 (sqrt.f64 #s(literal -1 binary64)))) (*.f64 (pow.f64 D #s(literal 3 binary64)) (pow.f64 M #s(literal 3 binary64)))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 h #s(literal 5 binary64))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 D (*.f64 M (*.f64 w0 (sqrt.f64 #s(literal -1 binary64))))) d) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 h l)))) (fma.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 (pow.f64 d #s(literal 5 binary64)) (*.f64 w0 (sqrt.f64 #s(literal -1 binary64)))) (*.f64 (pow.f64 D #s(literal 5 binary64)) (pow.f64 M #s(literal 5 binary64)))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 7 binary64))))) (*.f64 (/.f64 (*.f64 d (*.f64 w0 (sqrt.f64 #s(literal -1 binary64)))) (*.f64 D M)) (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64)))))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 (*.f64 D (*.f64 M (sqrt.f64 #s(literal -1 binary64)))) d) (sqrt.f64 (/.f64 h l)))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (*.f64 #s(literal -1 binary64) (*.f64 h (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 D (*.f64 M (sqrt.f64 #s(literal -1 binary64)))) d) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 h l)))) (*.f64 (/.f64 (*.f64 d (sqrt.f64 #s(literal -1 binary64))) (*.f64 D M)) (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64)))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (*.f64 #s(literal -1 binary64) (*.f64 h (fma.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 (pow.f64 d #s(literal 3 binary64)) (sqrt.f64 #s(literal -1 binary64))) (*.f64 (pow.f64 D #s(literal 3 binary64)) (pow.f64 M #s(literal 3 binary64)))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 h #s(literal 5 binary64))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 D (*.f64 M (sqrt.f64 #s(literal -1 binary64)))) d) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 h l)))) (*.f64 (/.f64 (*.f64 d (sqrt.f64 #s(literal -1 binary64))) (*.f64 D M)) (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64))))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (*.f64 #s(literal -1 binary64) (*.f64 h (fma.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 (pow.f64 d #s(literal 3 binary64)) (sqrt.f64 #s(literal -1 binary64))) (*.f64 (pow.f64 D #s(literal 3 binary64)) (pow.f64 M #s(literal 3 binary64)))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 h #s(literal 5 binary64))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 D (*.f64 M (sqrt.f64 #s(literal -1 binary64)))) d) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 h l)))) (fma.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 (pow.f64 d #s(literal 5 binary64)) (sqrt.f64 #s(literal -1 binary64))) (*.f64 (pow.f64 D #s(literal 5 binary64)) (pow.f64 M #s(literal 5 binary64)))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 7 binary64))))) (*.f64 (/.f64 (*.f64 d (sqrt.f64 #s(literal -1 binary64))) (*.f64 D M)) (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64)))))))))))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (*.f64 h (fma.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) (*.f64 (pow.f64 d #s(literal 2 binary64)) l)) (/.f64 #s(literal 1 binary64) h))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (/.f64 (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 d w0) (*.f64 D (*.f64 M (sqrt.f64 #s(literal -1/4 binary64))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) h))) (*.f64 (/.f64 (*.f64 D (*.f64 M (*.f64 w0 (sqrt.f64 #s(literal -1/4 binary64))))) d) (sqrt.f64 (*.f64 h l)))) l))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (/.f64 (fma.f64 (/.f64 (*.f64 D (*.f64 M (*.f64 w0 (sqrt.f64 #s(literal -1/4 binary64))))) d) (sqrt.f64 (*.f64 h l)) (*.f64 (pow.f64 l #s(literal 2 binary64)) (fma.f64 #s(literal -1/8 binary64) (*.f64 (/.f64 (*.f64 (pow.f64 d #s(literal 3 binary64)) w0) (*.f64 (pow.f64 D #s(literal 3 binary64)) (*.f64 (pow.f64 M #s(literal 3 binary64)) (*.f64 (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 #s(literal -1/4 binary64)))))) (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 d w0) (*.f64 D (*.f64 M (sqrt.f64 #s(literal -1/4 binary64))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 h l)))))))) l))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (/.f64 (fma.f64 (/.f64 (*.f64 D (*.f64 M (*.f64 w0 (sqrt.f64 #s(literal -1/4 binary64))))) d) (sqrt.f64 (*.f64 h l)) (*.f64 (pow.f64 l #s(literal 2 binary64)) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 d w0) (*.f64 D (*.f64 M (sqrt.f64 #s(literal -1/4 binary64))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 h l)))) (*.f64 (pow.f64 l #s(literal 2 binary64)) (fma.f64 #s(literal -1/8 binary64) (*.f64 (/.f64 (*.f64 (pow.f64 d #s(literal 3 binary64)) w0) (*.f64 (pow.f64 D #s(literal 3 binary64)) (*.f64 (pow.f64 M #s(literal 3 binary64)) (*.f64 (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 #s(literal -1/4 binary64)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (pow.f64 h #s(literal 3 binary64)) (pow.f64 l #s(literal 3 binary64)))))) (*.f64 #s(literal 1/16 binary64) (*.f64 (/.f64 (*.f64 (pow.f64 d #s(literal 5 binary64)) w0) (*.f64 (pow.f64 D #s(literal 5 binary64)) (*.f64 (pow.f64 M #s(literal 5 binary64)) (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 2 binary64)))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (pow.f64 h #s(literal 5 binary64)) l)))))))))) l))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (/.f64 (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 d (*.f64 D (*.f64 M (sqrt.f64 #s(literal -1/4 binary64))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) h))) (*.f64 (/.f64 (*.f64 D (*.f64 M (sqrt.f64 #s(literal -1/4 binary64)))) d) (sqrt.f64 (*.f64 h l)))) l))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (/.f64 (fma.f64 (/.f64 (*.f64 D (*.f64 M (sqrt.f64 #s(literal -1/4 binary64)))) d) (sqrt.f64 (*.f64 h l)) (*.f64 (pow.f64 l #s(literal 2 binary64)) (fma.f64 #s(literal -1/8 binary64) (*.f64 (/.f64 (pow.f64 d #s(literal 3 binary64)) (*.f64 (pow.f64 D #s(literal 3 binary64)) (*.f64 (pow.f64 M #s(literal 3 binary64)) (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 d (*.f64 D (*.f64 M (sqrt.f64 #s(literal -1/4 binary64))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 h l)))))))) l))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (/.f64 (fma.f64 (/.f64 (*.f64 D (*.f64 M (sqrt.f64 #s(literal -1/4 binary64)))) d) (sqrt.f64 (*.f64 h l)) (*.f64 (pow.f64 l #s(literal 2 binary64)) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 d (*.f64 D (*.f64 M (sqrt.f64 #s(literal -1/4 binary64))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 h l)))) (*.f64 (pow.f64 l #s(literal 2 binary64)) (fma.f64 #s(literal -1/8 binary64) (*.f64 (/.f64 (pow.f64 d #s(literal 3 binary64)) (*.f64 (pow.f64 D #s(literal 3 binary64)) (*.f64 (pow.f64 M #s(literal 3 binary64)) (*.f64 (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 #s(literal -1/4 binary64)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (pow.f64 h #s(literal 3 binary64)) (pow.f64 l #s(literal 3 binary64)))))) (*.f64 #s(literal 1/16 binary64) (*.f64 (/.f64 (pow.f64 d #s(literal 5 binary64)) (*.f64 (pow.f64 D #s(literal 5 binary64)) (*.f64 (pow.f64 M #s(literal 5 binary64)) (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) (*.f64 (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 #s(literal -1/4 binary64)))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (pow.f64 h #s(literal 5 binary64)) l)))))))))) l))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (/.f64 (-.f64 l (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 D #s(literal 2 binary64)) (*.f64 (pow.f64 M #s(literal 2 binary64)) h)) (pow.f64 d #s(literal 2 binary64))))) l))
#s(approx l l)
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (+.f64 w0 (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 (pow.f64 D #s(literal 2 binary64)) (*.f64 (pow.f64 M #s(literal 2 binary64)) (*.f64 h w0))) (*.f64 (pow.f64 d #s(literal 2 binary64)) l)) (*.f64 #s(literal -1/128 binary64) (/.f64 (*.f64 (pow.f64 D #s(literal 4 binary64)) (*.f64 (pow.f64 M #s(literal 4 binary64)) (*.f64 (pow.f64 h #s(literal 2 binary64)) w0))) (*.f64 (pow.f64 d #s(literal 4 binary64)) (pow.f64 l #s(literal 2 binary64))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (+.f64 w0 (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 (pow.f64 D #s(literal 2 binary64)) (*.f64 (pow.f64 M #s(literal 2 binary64)) (*.f64 h w0))) (*.f64 (pow.f64 d #s(literal 2 binary64)) l)) (fma.f64 #s(literal -1/128 binary64) (/.f64 (*.f64 (pow.f64 D #s(literal 4 binary64)) (*.f64 (pow.f64 M #s(literal 4 binary64)) (*.f64 (pow.f64 h #s(literal 2 binary64)) w0))) (*.f64 (pow.f64 d #s(literal 4 binary64)) (pow.f64 l #s(literal 2 binary64)))) (*.f64 #s(literal -1/1024 binary64) (/.f64 (*.f64 (pow.f64 D #s(literal 6 binary64)) (*.f64 (pow.f64 M #s(literal 6 binary64)) (*.f64 (pow.f64 h #s(literal 3 binary64)) w0))) (*.f64 (pow.f64 d #s(literal 6 binary64)) (pow.f64 l #s(literal 3 binary64)))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 (pow.f64 D #s(literal 2 binary64)) (*.f64 (pow.f64 M #s(literal 2 binary64)) h)) (*.f64 (pow.f64 d #s(literal 2 binary64)) l)) (*.f64 #s(literal -1/128 binary64) (/.f64 (*.f64 (pow.f64 D #s(literal 4 binary64)) (*.f64 (pow.f64 M #s(literal 4 binary64)) (pow.f64 h #s(literal 2 binary64)))) (*.f64 (pow.f64 d #s(literal 4 binary64)) (pow.f64 l #s(literal 2 binary64))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 (pow.f64 D #s(literal 2 binary64)) (*.f64 (pow.f64 M #s(literal 2 binary64)) h)) (*.f64 (pow.f64 d #s(literal 2 binary64)) l)) (fma.f64 #s(literal -1/128 binary64) (/.f64 (*.f64 (pow.f64 D #s(literal 4 binary64)) (*.f64 (pow.f64 M #s(literal 4 binary64)) (pow.f64 h #s(literal 2 binary64)))) (*.f64 (pow.f64 d #s(literal 4 binary64)) (pow.f64 l #s(literal 2 binary64)))) (*.f64 #s(literal -1/1024 binary64) (/.f64 (*.f64 (pow.f64 D #s(literal 6 binary64)) (*.f64 (pow.f64 M #s(literal 6 binary64)) (pow.f64 h #s(literal 3 binary64)))) (*.f64 (pow.f64 d #s(literal 6 binary64)) (pow.f64 l #s(literal 3 binary64)))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (+.f64 w0 (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/128 binary64) (/.f64 (*.f64 (pow.f64 D #s(literal 4 binary64)) (*.f64 (pow.f64 M #s(literal 4 binary64)) (*.f64 (pow.f64 h #s(literal 2 binary64)) w0))) (*.f64 (pow.f64 d #s(literal 4 binary64)) l)) (*.f64 #s(literal 1/8 binary64) (/.f64 (*.f64 (pow.f64 D #s(literal 2 binary64)) (*.f64 (pow.f64 M #s(literal 2 binary64)) (*.f64 h w0))) (pow.f64 d #s(literal 2 binary64))))) l))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (+.f64 w0 (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/128 binary64) (/.f64 (*.f64 (pow.f64 D #s(literal 4 binary64)) (*.f64 (pow.f64 M #s(literal 4 binary64)) (*.f64 (pow.f64 h #s(literal 2 binary64)) w0))) (pow.f64 d #s(literal 4 binary64))) (*.f64 #s(literal -1/1024 binary64) (/.f64 (*.f64 (pow.f64 D #s(literal 6 binary64)) (*.f64 (pow.f64 M #s(literal 6 binary64)) (*.f64 (pow.f64 h #s(literal 3 binary64)) w0))) (*.f64 (pow.f64 d #s(literal 6 binary64)) l)))) l) (*.f64 #s(literal 1/8 binary64) (/.f64 (*.f64 (pow.f64 D #s(literal 2 binary64)) (*.f64 (pow.f64 M #s(literal 2 binary64)) (*.f64 h w0))) (pow.f64 d #s(literal 2 binary64))))) l))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/128 binary64) (/.f64 (*.f64 (pow.f64 D #s(literal 4 binary64)) (*.f64 (pow.f64 M #s(literal 4 binary64)) (pow.f64 h #s(literal 2 binary64)))) (*.f64 (pow.f64 d #s(literal 4 binary64)) l)) (*.f64 #s(literal 1/8 binary64) (/.f64 (*.f64 (pow.f64 D #s(literal 2 binary64)) (*.f64 (pow.f64 M #s(literal 2 binary64)) h)) (pow.f64 d #s(literal 2 binary64))))) l))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/128 binary64) (/.f64 (*.f64 (pow.f64 D #s(literal 4 binary64)) (*.f64 (pow.f64 M #s(literal 4 binary64)) (pow.f64 h #s(literal 2 binary64)))) (pow.f64 d #s(literal 4 binary64))) (*.f64 #s(literal -1/1024 binary64) (/.f64 (*.f64 (pow.f64 D #s(literal 6 binary64)) (*.f64 (pow.f64 M #s(literal 6 binary64)) (pow.f64 h #s(literal 3 binary64)))) (*.f64 (pow.f64 d #s(literal 6 binary64)) l)))) l) (*.f64 #s(literal 1/8 binary64) (/.f64 (*.f64 (pow.f64 D #s(literal 2 binary64)) (*.f64 (pow.f64 M #s(literal 2 binary64)) h)) (pow.f64 d #s(literal 2 binary64))))) l))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (/.f64 (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (pow.f64 d #s(literal 2 binary64)) w0) (*.f64 D (*.f64 M (sqrt.f64 #s(literal -1/4 binary64))))) (sqrt.f64 (/.f64 l h))) (*.f64 (*.f64 D (*.f64 M (*.f64 w0 (sqrt.f64 #s(literal -1/4 binary64))))) (sqrt.f64 (/.f64 h l)))) d))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (/.f64 (fma.f64 (*.f64 D (*.f64 M (*.f64 w0 (sqrt.f64 #s(literal -1/4 binary64))))) (sqrt.f64 (/.f64 h l)) (*.f64 (pow.f64 d #s(literal 2 binary64)) (fma.f64 #s(literal -1/8 binary64) (*.f64 (/.f64 (*.f64 (pow.f64 d #s(literal 2 binary64)) w0) (*.f64 (pow.f64 D #s(literal 3 binary64)) (*.f64 (pow.f64 M #s(literal 3 binary64)) (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 h #s(literal 3 binary64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 w0 (*.f64 D (*.f64 M (sqrt.f64 #s(literal -1/4 binary64))))) (sqrt.f64 (/.f64 l h))))))) d))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (/.f64 (fma.f64 (*.f64 D (*.f64 M (*.f64 w0 (sqrt.f64 #s(literal -1/4 binary64))))) (sqrt.f64 (/.f64 h l)) (*.f64 (pow.f64 d #s(literal 2 binary64)) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 w0 (*.f64 D (*.f64 M (sqrt.f64 #s(literal -1/4 binary64))))) (sqrt.f64 (/.f64 l h))) (*.f64 (pow.f64 d #s(literal 2 binary64)) (fma.f64 #s(literal -1/8 binary64) (*.f64 (/.f64 w0 (*.f64 (pow.f64 D #s(literal 3 binary64)) (*.f64 (pow.f64 M #s(literal 3 binary64)) (*.f64 (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 #s(literal -1/4 binary64)))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 h #s(literal 3 binary64))))) (*.f64 #s(literal 1/16 binary64) (*.f64 (/.f64 (*.f64 (pow.f64 d #s(literal 2 binary64)) w0) (*.f64 (pow.f64 D #s(literal 5 binary64)) (*.f64 (pow.f64 M #s(literal 5 binary64)) (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) (*.f64 (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 2 binary64)) (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) (sqrt.f64 #s(literal -1/4 binary64)))))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 5 binary64))))))))))) d))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (/.f64 (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (pow.f64 d #s(literal 2 binary64)) (*.f64 D (*.f64 M (sqrt.f64 #s(literal -1/4 binary64))))) (sqrt.f64 (/.f64 l h))) (*.f64 (*.f64 D (*.f64 M (sqrt.f64 #s(literal -1/4 binary64)))) (sqrt.f64 (/.f64 h l)))) d))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (/.f64 (fma.f64 (*.f64 D (*.f64 M (sqrt.f64 #s(literal -1/4 binary64)))) (sqrt.f64 (/.f64 h l)) (*.f64 (pow.f64 d #s(literal 2 binary64)) (fma.f64 #s(literal -1/8 binary64) (*.f64 (/.f64 (pow.f64 d #s(literal 2 binary64)) (*.f64 (pow.f64 D #s(literal 3 binary64)) (*.f64 (pow.f64 M #s(literal 3 binary64)) (*.f64 (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 #s(literal -1/4 binary64)))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 h #s(literal 3 binary64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 D (*.f64 M (sqrt.f64 #s(literal -1/4 binary64))))) (sqrt.f64 (/.f64 l h))))))) d))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (/.f64 (fma.f64 (*.f64 D (*.f64 M (sqrt.f64 #s(literal -1/4 binary64)))) (sqrt.f64 (/.f64 h l)) (*.f64 (pow.f64 d #s(literal 2 binary64)) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 D (*.f64 M (sqrt.f64 #s(literal -1/4 binary64))))) (sqrt.f64 (/.f64 l h))) (*.f64 (pow.f64 d #s(literal 2 binary64)) (fma.f64 #s(literal -1/8 binary64) (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (pow.f64 D #s(literal 3 binary64)) (*.f64 (pow.f64 M #s(literal 3 binary64)) (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 h #s(literal 3 binary64))))) (*.f64 #s(literal 1/16 binary64) (*.f64 (/.f64 (pow.f64 d #s(literal 2 binary64)) (*.f64 (pow.f64 D #s(literal 5 binary64)) (*.f64 (pow.f64 M #s(literal 5 binary64)) (*.f64 (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 2 binary64)) (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) (sqrt.f64 #s(literal -1/4 binary64)))))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 5 binary64))))))))))) d))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (/.f64 (-.f64 (pow.f64 d #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 D #s(literal 2 binary64)) (*.f64 (pow.f64 M #s(literal 2 binary64)) h)) l))) (pow.f64 d #s(literal 2 binary64))))
#s(approx (* 2 d) (*.f64 #s(literal 2 binary64) d))
#s(approx d d)

eval25.0ms (0.5%)

Memory
1.3MiB live, 49.7MiB allocated; 17ms collecting garbage
Compiler

Compiled 3 387 to 862 computations (74.5% saved)

prune3.0ms (0.1%)

Memory
10.1MiB live, 10.1MiB allocated; 0ms collecting garbage
Pruning

3 alts after pruning (2 fresh and 1 done)

PrunedKeptTotal
New982100
Fresh000
Picked011
Done000
Total983101
Accuracy
90.8%
Counts
101 → 3
Alt Table
Click to see full alt table
StatusAccuracyProgram
✓84.9%
(*.f64 w0 (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 (pow.f64 (/.f64 (*.f64 M D) (*.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) (/.f64 h l)))))
▶12.7%
(*.f64 w0 (sqrt.f64 #s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (*.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 (pow.f64 D #s(literal 2 binary64)) (*.f64 (pow.f64 M #s(literal 2 binary64)) h)) (*.f64 (pow.f64 d #s(literal 2 binary64)) l))))))
▶73.0%
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) w0)
Compiler

Compiled 64 to 63 computations (1.6% saved)

series597.0ms (11.3%)

Memory
-2.8MiB live, 653.2MiB allocated; 565ms collecting garbage
Counts
20 → 110
Calls
Call 1
Inputs
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) w0)
w0
(*.f64 w0 (sqrt.f64 #s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (*.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 (pow.f64 D #s(literal 2 binary64)) (*.f64 (pow.f64 M #s(literal 2 binary64)) h)) (*.f64 (pow.f64 d #s(literal 2 binary64)) l))))))
(sqrt.f64 #s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (*.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 (pow.f64 D #s(literal 2 binary64)) (*.f64 (pow.f64 M #s(literal 2 binary64)) h)) (*.f64 (pow.f64 d #s(literal 2 binary64)) l)))))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (*.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 (pow.f64 D #s(literal 2 binary64)) (*.f64 (pow.f64 M #s(literal 2 binary64)) h)) (*.f64 (pow.f64 d #s(literal 2 binary64)) l))))
(*.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 (pow.f64 D #s(literal 2 binary64)) (*.f64 (pow.f64 M #s(literal 2 binary64)) h)) (*.f64 (pow.f64 d #s(literal 2 binary64)) l)))
#s(literal -1/4 binary64)
(/.f64 (*.f64 (pow.f64 D #s(literal 2 binary64)) (*.f64 (pow.f64 M #s(literal 2 binary64)) h)) (*.f64 (pow.f64 d #s(literal 2 binary64)) l))
(*.f64 (pow.f64 D #s(literal 2 binary64)) (*.f64 (pow.f64 M #s(literal 2 binary64)) h))
(pow.f64 D #s(literal 2 binary64))
D
#s(literal 2 binary64)
(*.f64 (pow.f64 M #s(literal 2 binary64)) h)
(pow.f64 M #s(literal 2 binary64))
M
h
(*.f64 (pow.f64 d #s(literal 2 binary64)) l)
(pow.f64 d #s(literal 2 binary64))
d
l
Outputs
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* w0 (sqrt (- 1 (* 1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))))))))
#s(approx w0 #s(hole binary64 w0))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 w0))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (+ w0 (* -1/8 (/ (* (pow D 2) (* (pow M 2) (* h w0))) (* (pow d 2) l))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (+ w0 (* (pow M 2) (+ (* -1/8 (/ (* (pow D 2) (* h w0)) (* (pow d 2) l))) (* -1/128 (/ (* (pow D 4) (* (pow M 2) (* (pow h 2) w0))) (* (pow d 4) (pow l 2)))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (+ w0 (* (pow M 2) (+ (* -1/8 (/ (* (pow D 2) (* h w0)) (* (pow d 2) l))) (* (pow M 2) (+ (* -1/128 (/ (* (pow D 4) (* (pow h 2) w0)) (* (pow d 4) (pow l 2)))) (* -1/1024 (/ (* (pow D 6) (* (pow M 2) (* (pow h 3) w0))) (* (pow d 6) (pow l 3)))))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 1))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (+ 1 (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (+ 1 (* (pow M 2) (+ (* -1/8 (/ (* (pow D 2) h) (* (pow d 2) l))) (* -1/128 (/ (* (pow D 4) (* (pow M 2) (pow h 2))) (* (pow d 4) (pow l 2)))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (+ 1 (* (pow M 2) (+ (* -1/8 (/ (* (pow D 2) h) (* (pow d 2) l))) (* (pow M 2) (+ (* -1/128 (/ (* (pow D 4) (pow h 2)) (* (pow d 4) (pow l 2)))) (* -1/1024 (/ (* (pow D 6) (* (pow M 2) (pow h 3))) (* (pow d 6) (pow l 3)))))))))))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(hole binary64 1))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(hole binary64 (+ 1 (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))))))
#s(approx (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))) #s(hole binary64 (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l)))))
#s(approx (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l)) #s(hole binary64 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))))
#s(approx (* (pow D 2) (* (pow M 2) h)) #s(hole binary64 (* (pow D 2) (* (pow M 2) h))))
#s(approx (* (pow M 2) h) #s(hole binary64 (* (pow M 2) h)))
#s(approx (pow M 2) #s(hole binary64 (pow M 2)))
#s(approx M #s(hole binary64 M))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (/ h l)))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* M (+ (* 1/2 (* (/ (* d w0) (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (* w0 (sqrt -1/4))) d) (sqrt (/ h l)))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* M (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 4) (* (sqrt -1/4) (pow (sqrt -1/4) 2))))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ (* d w0) (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (* w0 (sqrt -1/4))) d) (sqrt (/ h l))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* M (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 4) (* (pow (sqrt -1/4) 2) (sqrt -1/4))))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 5) (* (pow M 6) (* (sqrt -1/4) (* (sqrt -1/4) (* (sqrt -1/4) (pow (sqrt -1/4) 2))))))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ (* d w0) (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (* w0 (sqrt -1/4))) d) (sqrt (/ h l)))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* M (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 4) (* (pow (sqrt -1/4) 2) (sqrt -1/4))))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ (* d w0) (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (* w0 (sqrt -1/4))) d) (sqrt (/ h l))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* M (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 4) (* (pow (sqrt -1/4) 2) (sqrt -1/4))))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 5) (* (pow M 6) (* (sqrt -1/4) (* (sqrt -1/4) (* (pow (sqrt -1/4) 2) (sqrt -1/4))))))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ (* d w0) (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (* w0 (sqrt -1/4))) d) (sqrt (/ h l)))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* (/ (* D (* M (sqrt -1/4))) d) (sqrt (/ h l)))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* M (+ (* 1/2 (* (/ d (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (sqrt -1/4)) d) (sqrt (/ h l)))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* M (+ (* -1/8 (* (/ (pow d 3) (* (pow D 3) (* (pow M 4) (* (pow (sqrt -1/4) 2) (sqrt -1/4))))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ d (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (sqrt -1/4)) d) (sqrt (/ h l))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* M (+ (* -1/8 (* (/ (pow d 3) (* (pow D 3) (* (pow M 4) (* (pow (sqrt -1/4) 2) (sqrt -1/4))))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (pow d 5) (* (pow D 5) (* (pow M 6) (* (sqrt -1/4) (* (sqrt -1/4) (* (sqrt -1/4) (pow (sqrt -1/4) 2))))))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ d (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (sqrt -1/4)) d) (sqrt (/ h l)))))))))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(hole binary64 (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l)))))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(hole binary64 (* (pow M 2) (- (/ 1 (pow M 2)) (* 1/4 (/ (* (pow D 2) h) (* (pow d 2) l)))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* -1 (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (/ h l))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* -1 (* M (+ (* 1/2 (* (/ (* d w0) (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (* w0 (sqrt -1/4))) d) (sqrt (/ h l))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* -1 (* M (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 4) (* (sqrt -1/4) (pow (sqrt -1/4) 2))))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ (* d w0) (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (* w0 (sqrt -1/4))) d) (sqrt (/ h l)))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* -1 (* M (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 4) (* (sqrt -1/4) (pow (sqrt -1/4) 2))))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 5) (* (pow M 6) (* (sqrt -1/4) (* (sqrt -1/4) (* (sqrt -1/4) (pow (sqrt -1/4) 2))))))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ (* d w0) (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (* w0 (sqrt -1/4))) d) (sqrt (/ h l))))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* -1 (* M (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 4) (* (sqrt -1/4) (pow (sqrt -1/4) 2))))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 5) (* (pow M 6) (* (pow (sqrt -1/4) 2) (* (sqrt -1/4) (* (sqrt -1/4) (sqrt -1/4))))))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ (* d w0) (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (* w0 (sqrt -1/4))) d) (sqrt (/ h l))))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* -1 (* (/ (* D (* M (sqrt -1/4))) d) (sqrt (/ h l))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* -1 (* M (+ (* 1/2 (* (/ d (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (sqrt -1/4)) d) (sqrt (/ h l))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* -1 (* M (+ (* -1/8 (* (/ (pow d 3) (* (pow D 3) (* (pow M 4) (* (pow (sqrt -1/4) 2) (sqrt -1/4))))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ d (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (sqrt -1/4)) d) (sqrt (/ h l)))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* -1 (* M (+ (* -1/8 (* (/ (pow d 3) (* (pow D 3) (* (pow M 4) (* (pow (sqrt -1/4) 2) (sqrt -1/4))))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (pow d 5) (* (pow D 5) (* (pow M 6) (* (sqrt -1/4) (* (sqrt -1/4) (* (sqrt -1/4) (pow (sqrt -1/4) 2))))))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ d (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (sqrt -1/4)) d) (sqrt (/ h l))))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (+ w0 (* (pow D 2) (+ (* -1/8 (/ (* (pow M 2) (* h w0)) (* (pow d 2) l))) (* -1/128 (/ (* (pow D 2) (* (pow M 4) (* (pow h 2) w0))) (* (pow d 4) (pow l 2)))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (+ w0 (* (pow D 2) (+ (* -1/8 (/ (* (pow M 2) (* h w0)) (* (pow d 2) l))) (* (pow D 2) (+ (* -1/128 (/ (* (pow M 4) (* (pow h 2) w0)) (* (pow d 4) (pow l 2)))) (* -1/1024 (/ (* (pow D 2) (* (pow M 6) (* (pow h 3) w0))) (* (pow d 6) (pow l 3)))))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (+ 1 (* (pow D 2) (+ (* -1/8 (/ (* (pow M 2) h) (* (pow d 2) l))) (* -1/128 (/ (* (pow D 2) (* (pow M 4) (pow h 2))) (* (pow d 4) (pow l 2)))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (+ 1 (* (pow D 2) (+ (* -1/8 (/ (* (pow M 2) h) (* (pow d 2) l))) (* (pow D 2) (+ (* -1/128 (/ (* (pow M 4) (pow h 2)) (* (pow d 4) (pow l 2)))) (* -1/1024 (/ (* (pow D 2) (* (pow M 6) (pow h 3))) (* (pow d 6) (pow l 3)))))))))))
#s(approx (pow D 2) #s(hole binary64 (pow D 2)))
#s(approx D #s(hole binary64 D))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* D (+ (* 1/2 (* (/ (* d w0) (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (* w0 (sqrt -1/4))) d) (sqrt (/ h l)))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* D (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 4) (* (pow M 3) (* (sqrt -1/4) (pow (sqrt -1/4) 2))))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ (* d w0) (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (* w0 (sqrt -1/4))) d) (sqrt (/ h l))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* D (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 4) (* (pow M 3) (* (pow (sqrt -1/4) 2) (sqrt -1/4))))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 6) (* (pow M 5) (* (sqrt -1/4) (* (sqrt -1/4) (* (sqrt -1/4) (pow (sqrt -1/4) 2))))))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ (* d w0) (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (* w0 (sqrt -1/4))) d) (sqrt (/ h l)))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* D (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 4) (* (pow M 3) (* (pow (sqrt -1/4) 2) (sqrt -1/4))))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 6) (* (pow M 5) (* (sqrt -1/4) (* (pow (sqrt -1/4) 2) (* (sqrt -1/4) (sqrt -1/4))))))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ (* d w0) (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (* w0 (sqrt -1/4))) d) (sqrt (/ h l)))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* D (+ (* 1/2 (* (/ d (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (sqrt -1/4)) d) (sqrt (/ h l)))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* D (+ (* -1/8 (* (/ (pow d 3) (* (pow D 4) (* (pow M 3) (* (pow (sqrt -1/4) 2) (sqrt -1/4))))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ d (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (sqrt -1/4)) d) (sqrt (/ h l))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* D (+ (* -1/8 (* (/ (pow d 3) (* (pow D 4) (* (pow M 3) (* (pow (sqrt -1/4) 2) (sqrt -1/4))))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (pow d 5) (* (pow D 6) (* (pow M 5) (* (sqrt -1/4) (* (sqrt -1/4) (* (sqrt -1/4) (pow (sqrt -1/4) 2))))))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ d (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (sqrt -1/4)) d) (sqrt (/ h l)))))))))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(hole binary64 (* (pow D 2) (- (/ 1 (pow D 2)) (* 1/4 (/ (* (pow M 2) h) (* (pow d 2) l)))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* -1 (* D (+ (* 1/2 (* (/ (* d w0) (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (* w0 (sqrt -1/4))) d) (sqrt (/ h l))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* -1 (* D (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 4) (* (pow M 3) (* (pow (sqrt -1/4) 2) (sqrt -1/4))))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ (* d w0) (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (* w0 (sqrt -1/4))) d) (sqrt (/ h l)))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* -1 (* D (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 4) (* (pow M 3) (* (pow (sqrt -1/4) 2) (sqrt -1/4))))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 6) (* (pow M 5) (* (sqrt -1/4) (* (sqrt -1/4) (* (sqrt -1/4) (pow (sqrt -1/4) 2))))))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ (* d w0) (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (* w0 (sqrt -1/4))) d) (sqrt (/ h l))))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* -1 (* D (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 4) (* (pow M 3) (* (sqrt -1/4) (pow (sqrt -1/4) 2))))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 6) (* (pow M 5) (* (sqrt -1/4) (* (sqrt -1/4) (* (pow (sqrt -1/4) 2) (sqrt -1/4))))))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ (* d w0) (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (* w0 (sqrt -1/4))) d) (sqrt (/ h l))))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* -1 (* D (+ (* 1/2 (* (/ d (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (sqrt -1/4)) d) (sqrt (/ h l))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* -1 (* D (+ (* -1/8 (* (/ (pow d 3) (* (pow D 4) (* (pow M 3) (* (pow (sqrt -1/4) 2) (sqrt -1/4))))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ d (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (sqrt -1/4)) d) (sqrt (/ h l)))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* -1 (* D (+ (* -1/8 (* (/ (pow d 3) (* (pow D 4) (* (pow M 3) (* (pow (sqrt -1/4) 2) (sqrt -1/4))))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (pow d 5) (* (pow D 6) (* (pow M 5) (* (sqrt -1/4) (* (pow (sqrt -1/4) 2) (* (sqrt -1/4) (sqrt -1/4))))))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ d (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (sqrt -1/4)) d) (sqrt (/ h l))))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (+ w0 (* h (+ (* -1/8 (/ (* (pow D 2) (* (pow M 2) w0)) (* (pow d 2) l))) (* -1/128 (/ (* (pow D 4) (* (pow M 4) (* h w0))) (* (pow d 4) (pow l 2)))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (+ w0 (* h (+ (* -1/8 (/ (* (pow D 2) (* (pow M 2) w0)) (* (pow d 2) l))) (* h (+ (* -1/128 (/ (* (pow D 4) (* (pow M 4) w0)) (* (pow d 4) (pow l 2)))) (* -1/1024 (/ (* (pow D 6) (* (pow M 6) (* h w0))) (* (pow d 6) (pow l 3)))))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (+ 1 (* h (+ (* -1/8 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (* -1/128 (/ (* (pow D 4) (* (pow M 4) h)) (* (pow d 4) (pow l 2)))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (+ 1 (* h (+ (* -1/8 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (* h (+ (* -1/128 (/ (* (pow D 4) (pow M 4)) (* (pow d 4) (pow l 2)))) (* -1/1024 (/ (* (pow D 6) (* (pow M 6) h)) (* (pow d 6) (pow l 3)))))))))))
#s(approx h #s(hole binary64 h))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* h (+ (* 1/2 (* (/ (* d w0) (* D (* M (sqrt -1/4)))) (sqrt (/ l (pow h 3))))) (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (/ 1 (* h l))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* h (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 3) (* (sqrt -1/4) (pow (sqrt -1/4) 2))))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/2 (* (/ (* d w0) (* D (* M (sqrt -1/4)))) (sqrt (/ l (pow h 3))))) (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (/ 1 (* h l)))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* h (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 3) (* (pow (sqrt -1/4) 2) (sqrt -1/4))))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 5) (* (pow M 5) (* (sqrt -1/4) (* (sqrt -1/4) (* (sqrt -1/4) (pow (sqrt -1/4) 2))))))) (sqrt (/ (pow l 5) (pow h 7))))) (+ (* 1/2 (* (/ (* d w0) (* D (* M (sqrt -1/4)))) (sqrt (/ l (pow h 3))))) (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (/ 1 (* h l))))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* h (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 3) (* (pow (sqrt -1/4) 2) (sqrt -1/4))))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/2 (* (/ (* d w0) (* D (* M (sqrt -1/4)))) (sqrt (/ l (pow h 3))))) (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (/ 1 (* h l)))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* h (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 3) (* (pow (sqrt -1/4) 2) (sqrt -1/4))))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 5) (* (pow M 5) (* (sqrt -1/4) (* (sqrt -1/4) (* (pow (sqrt -1/4) 2) (sqrt -1/4))))))) (sqrt (/ (pow l 5) (pow h 7))))) (+ (* 1/2 (* (/ (* d w0) (* D (* M (sqrt -1/4)))) (sqrt (/ l (pow h 3))))) (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (/ 1 (* h l))))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* h (+ (* 1/2 (* (/ d (* D (* M (sqrt -1/4)))) (sqrt (/ l (pow h 3))))) (* (/ (* D (* M (sqrt -1/4))) d) (sqrt (/ 1 (* h l))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* h (+ (* -1/8 (* (/ (pow d 3) (* (pow D 3) (* (pow M 3) (* (sqrt -1/4) (pow (sqrt -1/4) 2))))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/2 (* (/ d (* D (* M (sqrt -1/4)))) (sqrt (/ l (pow h 3))))) (* (/ (* D (* M (sqrt -1/4))) d) (sqrt (/ 1 (* h l)))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* h (+ (* -1/8 (* (/ (pow d 3) (* (pow D 3) (* (pow M 3) (* (sqrt -1/4) (pow (sqrt -1/4) 2))))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/16 (* (/ (pow d 5) (* (pow D 5) (* (pow M 5) (* (sqrt -1/4) (* (sqrt -1/4) (* (sqrt -1/4) (pow (sqrt -1/4) 2))))))) (sqrt (/ (pow l 5) (pow h 7))))) (+ (* 1/2 (* (/ d (* D (* M (sqrt -1/4)))) (sqrt (/ l (pow h 3))))) (* (/ (* D (* M (sqrt -1/4))) d) (sqrt (/ 1 (* h l))))))))))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(hole binary64 (* h (- (/ 1 h) (* 1/4 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l)))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* -1/2 (* (/ (* D (* M (* w0 (sqrt -1)))) d) (sqrt (/ h l))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* -1 (* h (+ (* 1/2 (* (/ (* D (* M (* w0 (sqrt -1)))) d) (sqrt (/ 1 (* h l))))) (* (/ (* d (* w0 (sqrt -1))) (* D M)) (sqrt (/ l (pow h 3)))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* -1 (* h (+ (* -1 (* (/ (* (pow d 3) (* w0 (sqrt -1))) (* (pow D 3) (pow M 3))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/2 (* (/ (* D (* M (* w0 (sqrt -1)))) d) (sqrt (/ 1 (* h l))))) (* (/ (* d (* w0 (sqrt -1))) (* D M)) (sqrt (/ l (pow h 3))))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* -1 (* h (+ (* -1 (* (/ (* (pow d 3) (* w0 (sqrt -1))) (* (pow D 3) (pow M 3))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/2 (* (/ (* D (* M (* w0 (sqrt -1)))) d) (sqrt (/ 1 (* h l))))) (+ (* 2 (* (/ (* (pow d 5) (* w0 (sqrt -1))) (* (pow D 5) (pow M 5))) (sqrt (/ (pow l 5) (pow h 7))))) (* (/ (* d (* w0 (sqrt -1))) (* D M)) (sqrt (/ l (pow h 3)))))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* -1/2 (* (/ (* D (* M (sqrt -1))) d) (sqrt (/ h l))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* -1 (* h (+ (* 1/2 (* (/ (* D (* M (sqrt -1))) d) (sqrt (/ 1 (* h l))))) (* (/ (* d (sqrt -1)) (* D M)) (sqrt (/ l (pow h 3)))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* -1 (* h (+ (* -1 (* (/ (* (pow d 3) (sqrt -1)) (* (pow D 3) (pow M 3))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/2 (* (/ (* D (* M (sqrt -1))) d) (sqrt (/ 1 (* h l))))) (* (/ (* d (sqrt -1)) (* D M)) (sqrt (/ l (pow h 3))))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* -1 (* h (+ (* -1 (* (/ (* (pow d 3) (sqrt -1)) (* (pow D 3) (pow M 3))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/2 (* (/ (* D (* M (sqrt -1))) d) (sqrt (/ 1 (* h l))))) (+ (* 2 (* (/ (* (pow d 5) (sqrt -1)) (* (pow D 5) (pow M 5))) (sqrt (/ (pow l 5) (pow h 7))))) (* (/ (* d (sqrt -1)) (* D M)) (sqrt (/ l (pow h 3)))))))))))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(hole binary64 (* h (+ (* -1/4 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (/ 1 h)))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (/ (+ (* 1/2 (* (/ (* d w0) (* D (* M (sqrt -1/4)))) (sqrt (/ (pow l 3) h)))) (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (* h l)))) l)))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (/ (+ (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (* h l))) (* (pow l 2) (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 3) (* (pow (sqrt -1/4) 2) (sqrt -1/4))))) (sqrt (/ l (pow h 3))))) (* 1/2 (* (/ (* d w0) (* D (* M (sqrt -1/4)))) (sqrt (/ 1 (* h l)))))))) l)))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (/ (+ (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (* h l))) (* (pow l 2) (+ (* 1/2 (* (/ (* d w0) (* D (* M (sqrt -1/4)))) (sqrt (/ 1 (* h l))))) (* (pow l 2) (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 3) (* (pow (sqrt -1/4) 2) (sqrt -1/4))))) (sqrt (/ 1 (* (pow h 3) (pow l 3)))))) (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 5) (* (pow M 5) (* (sqrt -1/4) (* (sqrt -1/4) (* (sqrt -1/4) (pow (sqrt -1/4) 2))))))) (sqrt (/ 1 (* (pow h 5) l)))))))))) l)))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (/ (+ (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (* h l))) (* (pow l 2) (+ (* 1/2 (* (/ (* d w0) (* D (* M (sqrt -1/4)))) (sqrt (/ 1 (* h l))))) (* (pow l 2) (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 3) (* (pow (sqrt -1/4) 2) (sqrt -1/4))))) (sqrt (/ 1 (* (pow h 3) (pow l 3)))))) (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 5) (* (pow M 5) (* (sqrt -1/4) (* (pow (sqrt -1/4) 2) (* (sqrt -1/4) (sqrt -1/4))))))) (sqrt (/ 1 (* (pow h 5) l)))))))))) l)))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (/ (+ (* 1/2 (* (/ d (* D (* M (sqrt -1/4)))) (sqrt (/ (pow l 3) h)))) (* (/ (* D (* M (sqrt -1/4))) d) (sqrt (* h l)))) l)))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (/ (+ (* (/ (* D (* M (sqrt -1/4))) d) (sqrt (* h l))) (* (pow l 2) (+ (* -1/8 (* (/ (pow d 3) (* (pow D 3) (* (pow M 3) (* (pow (sqrt -1/4) 2) (sqrt -1/4))))) (sqrt (/ l (pow h 3))))) (* 1/2 (* (/ d (* D (* M (sqrt -1/4)))) (sqrt (/ 1 (* h l)))))))) l)))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (/ (+ (* (/ (* D (* M (sqrt -1/4))) d) (sqrt (* h l))) (* (pow l 2) (+ (* 1/2 (* (/ d (* D (* M (sqrt -1/4)))) (sqrt (/ 1 (* h l))))) (* (pow l 2) (+ (* -1/8 (* (/ (pow d 3) (* (pow D 3) (* (pow M 3) (* (pow (sqrt -1/4) 2) (sqrt -1/4))))) (sqrt (/ 1 (* (pow h 3) (pow l 3)))))) (* 1/16 (* (/ (pow d 5) (* (pow D 5) (* (pow M 5) (* (sqrt -1/4) (* (sqrt -1/4) (* (pow (sqrt -1/4) 2) (sqrt -1/4))))))) (sqrt (/ 1 (* (pow h 5) l)))))))))) l)))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(hole binary64 (/ (- l (* 1/4 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l)))
#s(approx (* (pow d 2) l) #s(hole binary64 (* (pow d 2) l)))
#s(approx l #s(hole binary64 l))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (+ w0 (+ (* -1/8 (/ (* (pow D 2) (* (pow M 2) (* h w0))) (* (pow d 2) l))) (* -1/128 (/ (* (pow D 4) (* (pow M 4) (* (pow h 2) w0))) (* (pow d 4) (pow l 2))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (+ w0 (+ (* -1/8 (/ (* (pow D 2) (* (pow M 2) (* h w0))) (* (pow d 2) l))) (+ (* -1/128 (/ (* (pow D 4) (* (pow M 4) (* (pow h 2) w0))) (* (pow d 4) (pow l 2)))) (* -1/1024 (/ (* (pow D 6) (* (pow M 6) (* (pow h 3) w0))) (* (pow d 6) (pow l 3)))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (+ 1 (+ (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))) (* -1/128 (/ (* (pow D 4) (* (pow M 4) (pow h 2))) (* (pow d 4) (pow l 2))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (+ 1 (+ (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))) (+ (* -1/128 (/ (* (pow D 4) (* (pow M 4) (pow h 2))) (* (pow d 4) (pow l 2)))) (* -1/1024 (/ (* (pow D 6) (* (pow M 6) (pow h 3))) (* (pow d 6) (pow l 3)))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (+ w0 (* -1 (/ (+ (* 1/128 (/ (* (pow D 4) (* (pow M 4) (* (pow h 2) w0))) (* (pow d 4) l))) (* 1/8 (/ (* (pow D 2) (* (pow M 2) (* h w0))) (pow d 2)))) l)))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (+ w0 (* -1 (/ (+ (* -1 (/ (+ (* -1/128 (/ (* (pow D 4) (* (pow M 4) (* (pow h 2) w0))) (pow d 4))) (* -1/1024 (/ (* (pow D 6) (* (pow M 6) (* (pow h 3) w0))) (* (pow d 6) l)))) l)) (* 1/8 (/ (* (pow D 2) (* (pow M 2) (* h w0))) (pow d 2)))) l)))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (+ 1 (* -1 (/ (+ (* 1/128 (/ (* (pow D 4) (* (pow M 4) (pow h 2))) (* (pow d 4) l))) (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l)))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (+ 1 (* -1 (/ (+ (* -1 (/ (+ (* -1/128 (/ (* (pow D 4) (* (pow M 4) (pow h 2))) (pow d 4))) (* -1/1024 (/ (* (pow D 6) (* (pow M 6) (pow h 3))) (* (pow d 6) l)))) l)) (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l)))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (/ (+ (* 1/2 (* (/ (* (pow d 2) w0) (* D (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (* D (* M (* w0 (sqrt -1/4)))) (sqrt (/ h l)))) d)))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (/ (+ (* (* D (* M (* w0 (sqrt -1/4)))) (sqrt (/ h l))) (* (pow d 2) (+ (* -1/8 (* (/ (* (pow d 2) w0) (* (pow D 3) (* (pow M 3) (* (pow (sqrt -1/4) 2) (sqrt -1/4))))) (sqrt (/ (pow l 3) (pow h 3))))) (* 1/2 (* (/ w0 (* D (* M (sqrt -1/4)))) (sqrt (/ l h))))))) d)))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (/ (+ (* (* D (* M (* w0 (sqrt -1/4)))) (sqrt (/ h l))) (* (pow d 2) (+ (* 1/2 (* (/ w0 (* D (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (pow d 2) (+ (* -1/8 (* (/ w0 (* (pow D 3) (* (pow M 3) (* (pow (sqrt -1/4) 2) (sqrt -1/4))))) (sqrt (/ (pow l 3) (pow h 3))))) (* 1/16 (* (/ (* (pow d 2) w0) (* (pow D 5) (* (pow M 5) (* (sqrt -1/4) (* (pow (sqrt -1/4) 2) (* (sqrt -1/4) (sqrt -1/4))))))) (sqrt (/ (pow l 5) (pow h 5)))))))))) d)))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (/ (+ (* 1/2 (* (/ (pow d 2) (* D (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (* D (* M (sqrt -1/4))) (sqrt (/ h l)))) d)))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (/ (+ (* (* D (* M (sqrt -1/4))) (sqrt (/ h l))) (* (pow d 2) (+ (* -1/8 (* (/ (pow d 2) (* (pow D 3) (* (pow M 3) (* (pow (sqrt -1/4) 2) (sqrt -1/4))))) (sqrt (/ (pow l 3) (pow h 3))))) (* 1/2 (* (/ 1 (* D (* M (sqrt -1/4)))) (sqrt (/ l h))))))) d)))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (/ (+ (* (* D (* M (sqrt -1/4))) (sqrt (/ h l))) (* (pow d 2) (+ (* 1/2 (* (/ 1 (* D (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (pow d 2) (+ (* -1/8 (* (/ 1 (* (pow D 3) (* (pow M 3) (* (sqrt -1/4) (pow (sqrt -1/4) 2))))) (sqrt (/ (pow l 3) (pow h 3))))) (* 1/16 (* (/ (pow d 2) (* (pow D 5) (* (pow M 5) (* (sqrt -1/4) (* (pow (sqrt -1/4) 2) (* (sqrt -1/4) (sqrt -1/4))))))) (sqrt (/ (pow l 5) (pow h 5)))))))))) d)))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(hole binary64 (/ (- (pow d 2) (* 1/4 (/ (* (pow D 2) (* (pow M 2) h)) l))) (pow d 2))))
#s(approx (pow d 2) #s(hole binary64 (pow d 2)))
#s(approx d #s(hole binary64 d))
Calls

18 calls:

TimeVariablePointExpression
242.0ms
h
@0
((* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) w0 (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))) -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l)) (* (pow D 2) (* (pow M 2) h)) (pow D 2) D 2 (* (pow M 2) h) (pow M 2) M h (* (pow d 2) l) (pow d 2) d l)
33.0ms
l
@-inf
((* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) w0 (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))) -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l)) (* (pow D 2) (* (pow M 2) h)) (pow D 2) D 2 (* (pow M 2) h) (pow M 2) M h (* (pow d 2) l) (pow d 2) d l)
32.0ms
h
@inf
((* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) w0 (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))) -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l)) (* (pow D 2) (* (pow M 2) h)) (pow D 2) D 2 (* (pow M 2) h) (pow M 2) M h (* (pow d 2) l) (pow d 2) d l)
31.0ms
M
@inf
((* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) w0 (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))) -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l)) (* (pow D 2) (* (pow M 2) h)) (pow D 2) D 2 (* (pow M 2) h) (pow M 2) M h (* (pow d 2) l) (pow d 2) d l)
30.0ms
d
@-inf
((* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) w0 (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))) -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l)) (* (pow D 2) (* (pow M 2) h)) (pow D 2) D 2 (* (pow M 2) h) (pow M 2) M h (* (pow d 2) l) (pow d 2) d l)

rewrite76.0ms (1.4%)

Memory
24.9MiB live, 123.7MiB allocated; 17ms collecting garbage
Iterations

Useful iterations: 0 (0.0ms)

IterNodesCost
08447557
08587408
Stop Event
1×iter-limit
1×iter-limit
1×unsound
1×iter-limit
Counts
130 → 130
Calls
Call 1
Inputs
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) w0)
w0
(*.f64 w0 (sqrt.f64 #s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (*.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 (pow.f64 D #s(literal 2 binary64)) (*.f64 (pow.f64 M #s(literal 2 binary64)) h)) (*.f64 (pow.f64 d #s(literal 2 binary64)) l))))))
(sqrt.f64 #s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (*.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 (pow.f64 D #s(literal 2 binary64)) (*.f64 (pow.f64 M #s(literal 2 binary64)) h)) (*.f64 (pow.f64 d #s(literal 2 binary64)) l)))))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (*.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 (pow.f64 D #s(literal 2 binary64)) (*.f64 (pow.f64 M #s(literal 2 binary64)) h)) (*.f64 (pow.f64 d #s(literal 2 binary64)) l))))
(*.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 (pow.f64 D #s(literal 2 binary64)) (*.f64 (pow.f64 M #s(literal 2 binary64)) h)) (*.f64 (pow.f64 d #s(literal 2 binary64)) l)))
#s(literal -1/4 binary64)
(/.f64 (*.f64 (pow.f64 D #s(literal 2 binary64)) (*.f64 (pow.f64 M #s(literal 2 binary64)) h)) (*.f64 (pow.f64 d #s(literal 2 binary64)) l))
(*.f64 (pow.f64 D #s(literal 2 binary64)) (*.f64 (pow.f64 M #s(literal 2 binary64)) h))
(pow.f64 D #s(literal 2 binary64))
D
#s(literal 2 binary64)
(*.f64 (pow.f64 M #s(literal 2 binary64)) h)
(pow.f64 M #s(literal 2 binary64))
M
h
(*.f64 (pow.f64 d #s(literal 2 binary64)) l)
(pow.f64 d #s(literal 2 binary64))
d
l
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* w0 (sqrt (- 1 (* 1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))))))))
#s(approx w0 #s(hole binary64 w0))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 w0))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (+ w0 (* -1/8 (/ (* (pow D 2) (* (pow M 2) (* h w0))) (* (pow d 2) l))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (+ w0 (* (pow M 2) (+ (* -1/8 (/ (* (pow D 2) (* h w0)) (* (pow d 2) l))) (* -1/128 (/ (* (pow D 4) (* (pow M 2) (* (pow h 2) w0))) (* (pow d 4) (pow l 2)))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (+ w0 (* (pow M 2) (+ (* -1/8 (/ (* (pow D 2) (* h w0)) (* (pow d 2) l))) (* (pow M 2) (+ (* -1/128 (/ (* (pow D 4) (* (pow h 2) w0)) (* (pow d 4) (pow l 2)))) (* -1/1024 (/ (* (pow D 6) (* (pow M 2) (* (pow h 3) w0))) (* (pow d 6) (pow l 3)))))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 1))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (+ 1 (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (+ 1 (* (pow M 2) (+ (* -1/8 (/ (* (pow D 2) h) (* (pow d 2) l))) (* -1/128 (/ (* (pow D 4) (* (pow M 2) (pow h 2))) (* (pow d 4) (pow l 2)))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (+ 1 (* (pow M 2) (+ (* -1/8 (/ (* (pow D 2) h) (* (pow d 2) l))) (* (pow M 2) (+ (* -1/128 (/ (* (pow D 4) (pow h 2)) (* (pow d 4) (pow l 2)))) (* -1/1024 (/ (* (pow D 6) (* (pow M 2) (pow h 3))) (* (pow d 6) (pow l 3)))))))))))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(hole binary64 1))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(hole binary64 (+ 1 (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))))))
#s(approx (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))) #s(hole binary64 (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l)))))
#s(approx (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l)) #s(hole binary64 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))))
#s(approx (* (pow D 2) (* (pow M 2) h)) #s(hole binary64 (* (pow D 2) (* (pow M 2) h))))
#s(approx (* (pow M 2) h) #s(hole binary64 (* (pow M 2) h)))
#s(approx (pow M 2) #s(hole binary64 (pow M 2)))
#s(approx M #s(hole binary64 M))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (/ h l)))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* M (+ (* 1/2 (* (/ (* d w0) (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (* w0 (sqrt -1/4))) d) (sqrt (/ h l)))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* M (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 4) (* (sqrt -1/4) (pow (sqrt -1/4) 2))))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ (* d w0) (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (* w0 (sqrt -1/4))) d) (sqrt (/ h l))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* M (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 4) (* (pow (sqrt -1/4) 2) (sqrt -1/4))))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 5) (* (pow M 6) (* (sqrt -1/4) (* (sqrt -1/4) (* (sqrt -1/4) (pow (sqrt -1/4) 2))))))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ (* d w0) (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (* w0 (sqrt -1/4))) d) (sqrt (/ h l)))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* M (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 4) (* (pow (sqrt -1/4) 2) (sqrt -1/4))))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ (* d w0) (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (* w0 (sqrt -1/4))) d) (sqrt (/ h l))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* M (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 4) (* (pow (sqrt -1/4) 2) (sqrt -1/4))))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 5) (* (pow M 6) (* (sqrt -1/4) (* (sqrt -1/4) (* (pow (sqrt -1/4) 2) (sqrt -1/4))))))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ (* d w0) (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (* w0 (sqrt -1/4))) d) (sqrt (/ h l)))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* (/ (* D (* M (sqrt -1/4))) d) (sqrt (/ h l)))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* M (+ (* 1/2 (* (/ d (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (sqrt -1/4)) d) (sqrt (/ h l)))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* M (+ (* -1/8 (* (/ (pow d 3) (* (pow D 3) (* (pow M 4) (* (pow (sqrt -1/4) 2) (sqrt -1/4))))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ d (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (sqrt -1/4)) d) (sqrt (/ h l))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* M (+ (* -1/8 (* (/ (pow d 3) (* (pow D 3) (* (pow M 4) (* (pow (sqrt -1/4) 2) (sqrt -1/4))))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (pow d 5) (* (pow D 5) (* (pow M 6) (* (sqrt -1/4) (* (sqrt -1/4) (* (sqrt -1/4) (pow (sqrt -1/4) 2))))))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ d (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (sqrt -1/4)) d) (sqrt (/ h l)))))))))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(hole binary64 (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l)))))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(hole binary64 (* (pow M 2) (- (/ 1 (pow M 2)) (* 1/4 (/ (* (pow D 2) h) (* (pow d 2) l)))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* -1 (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (/ h l))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* -1 (* M (+ (* 1/2 (* (/ (* d w0) (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (* w0 (sqrt -1/4))) d) (sqrt (/ h l))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* -1 (* M (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 4) (* (sqrt -1/4) (pow (sqrt -1/4) 2))))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ (* d w0) (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (* w0 (sqrt -1/4))) d) (sqrt (/ h l)))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* -1 (* M (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 4) (* (sqrt -1/4) (pow (sqrt -1/4) 2))))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 5) (* (pow M 6) (* (sqrt -1/4) (* (sqrt -1/4) (* (sqrt -1/4) (pow (sqrt -1/4) 2))))))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ (* d w0) (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (* w0 (sqrt -1/4))) d) (sqrt (/ h l))))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* -1 (* M (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 4) (* (sqrt -1/4) (pow (sqrt -1/4) 2))))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 5) (* (pow M 6) (* (pow (sqrt -1/4) 2) (* (sqrt -1/4) (* (sqrt -1/4) (sqrt -1/4))))))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ (* d w0) (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (* w0 (sqrt -1/4))) d) (sqrt (/ h l))))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* -1 (* (/ (* D (* M (sqrt -1/4))) d) (sqrt (/ h l))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* -1 (* M (+ (* 1/2 (* (/ d (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (sqrt -1/4)) d) (sqrt (/ h l))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* -1 (* M (+ (* -1/8 (* (/ (pow d 3) (* (pow D 3) (* (pow M 4) (* (pow (sqrt -1/4) 2) (sqrt -1/4))))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ d (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (sqrt -1/4)) d) (sqrt (/ h l)))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* -1 (* M (+ (* -1/8 (* (/ (pow d 3) (* (pow D 3) (* (pow M 4) (* (pow (sqrt -1/4) 2) (sqrt -1/4))))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (pow d 5) (* (pow D 5) (* (pow M 6) (* (sqrt -1/4) (* (sqrt -1/4) (* (sqrt -1/4) (pow (sqrt -1/4) 2))))))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ d (* D (* (pow M 2) (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* D (sqrt -1/4)) d) (sqrt (/ h l))))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (+ w0 (* (pow D 2) (+ (* -1/8 (/ (* (pow M 2) (* h w0)) (* (pow d 2) l))) (* -1/128 (/ (* (pow D 2) (* (pow M 4) (* (pow h 2) w0))) (* (pow d 4) (pow l 2)))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (+ w0 (* (pow D 2) (+ (* -1/8 (/ (* (pow M 2) (* h w0)) (* (pow d 2) l))) (* (pow D 2) (+ (* -1/128 (/ (* (pow M 4) (* (pow h 2) w0)) (* (pow d 4) (pow l 2)))) (* -1/1024 (/ (* (pow D 2) (* (pow M 6) (* (pow h 3) w0))) (* (pow d 6) (pow l 3)))))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (+ 1 (* (pow D 2) (+ (* -1/8 (/ (* (pow M 2) h) (* (pow d 2) l))) (* -1/128 (/ (* (pow D 2) (* (pow M 4) (pow h 2))) (* (pow d 4) (pow l 2)))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (+ 1 (* (pow D 2) (+ (* -1/8 (/ (* (pow M 2) h) (* (pow d 2) l))) (* (pow D 2) (+ (* -1/128 (/ (* (pow M 4) (pow h 2)) (* (pow d 4) (pow l 2)))) (* -1/1024 (/ (* (pow D 2) (* (pow M 6) (pow h 3))) (* (pow d 6) (pow l 3)))))))))))
#s(approx (pow D 2) #s(hole binary64 (pow D 2)))
#s(approx D #s(hole binary64 D))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* D (+ (* 1/2 (* (/ (* d w0) (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (* w0 (sqrt -1/4))) d) (sqrt (/ h l)))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* D (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 4) (* (pow M 3) (* (sqrt -1/4) (pow (sqrt -1/4) 2))))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ (* d w0) (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (* w0 (sqrt -1/4))) d) (sqrt (/ h l))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* D (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 4) (* (pow M 3) (* (pow (sqrt -1/4) 2) (sqrt -1/4))))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 6) (* (pow M 5) (* (sqrt -1/4) (* (sqrt -1/4) (* (sqrt -1/4) (pow (sqrt -1/4) 2))))))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ (* d w0) (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (* w0 (sqrt -1/4))) d) (sqrt (/ h l)))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* D (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 4) (* (pow M 3) (* (pow (sqrt -1/4) 2) (sqrt -1/4))))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 6) (* (pow M 5) (* (sqrt -1/4) (* (pow (sqrt -1/4) 2) (* (sqrt -1/4) (sqrt -1/4))))))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ (* d w0) (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (* w0 (sqrt -1/4))) d) (sqrt (/ h l)))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* D (+ (* 1/2 (* (/ d (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (sqrt -1/4)) d) (sqrt (/ h l)))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* D (+ (* -1/8 (* (/ (pow d 3) (* (pow D 4) (* (pow M 3) (* (pow (sqrt -1/4) 2) (sqrt -1/4))))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ d (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (sqrt -1/4)) d) (sqrt (/ h l))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* D (+ (* -1/8 (* (/ (pow d 3) (* (pow D 4) (* (pow M 3) (* (pow (sqrt -1/4) 2) (sqrt -1/4))))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (pow d 5) (* (pow D 6) (* (pow M 5) (* (sqrt -1/4) (* (sqrt -1/4) (* (sqrt -1/4) (pow (sqrt -1/4) 2))))))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ d (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (sqrt -1/4)) d) (sqrt (/ h l)))))))))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(hole binary64 (* (pow D 2) (- (/ 1 (pow D 2)) (* 1/4 (/ (* (pow M 2) h) (* (pow d 2) l)))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* -1 (* D (+ (* 1/2 (* (/ (* d w0) (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (* w0 (sqrt -1/4))) d) (sqrt (/ h l))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* -1 (* D (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 4) (* (pow M 3) (* (pow (sqrt -1/4) 2) (sqrt -1/4))))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ (* d w0) (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (* w0 (sqrt -1/4))) d) (sqrt (/ h l)))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* -1 (* D (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 4) (* (pow M 3) (* (pow (sqrt -1/4) 2) (sqrt -1/4))))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 6) (* (pow M 5) (* (sqrt -1/4) (* (sqrt -1/4) (* (sqrt -1/4) (pow (sqrt -1/4) 2))))))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ (* d w0) (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (* w0 (sqrt -1/4))) d) (sqrt (/ h l))))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* -1 (* D (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 4) (* (pow M 3) (* (sqrt -1/4) (pow (sqrt -1/4) 2))))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 6) (* (pow M 5) (* (sqrt -1/4) (* (sqrt -1/4) (* (pow (sqrt -1/4) 2) (sqrt -1/4))))))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ (* d w0) (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (* w0 (sqrt -1/4))) d) (sqrt (/ h l))))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* -1 (* D (+ (* 1/2 (* (/ d (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (sqrt -1/4)) d) (sqrt (/ h l))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* -1 (* D (+ (* -1/8 (* (/ (pow d 3) (* (pow D 4) (* (pow M 3) (* (pow (sqrt -1/4) 2) (sqrt -1/4))))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ d (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (sqrt -1/4)) d) (sqrt (/ h l)))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* -1 (* D (+ (* -1/8 (* (/ (pow d 3) (* (pow D 4) (* (pow M 3) (* (pow (sqrt -1/4) 2) (sqrt -1/4))))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (pow d 5) (* (pow D 6) (* (pow M 5) (* (sqrt -1/4) (* (pow (sqrt -1/4) 2) (* (sqrt -1/4) (sqrt -1/4))))))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* 1/2 (* (/ d (* (pow D 2) (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (/ (* M (sqrt -1/4)) d) (sqrt (/ h l))))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (+ w0 (* h (+ (* -1/8 (/ (* (pow D 2) (* (pow M 2) w0)) (* (pow d 2) l))) (* -1/128 (/ (* (pow D 4) (* (pow M 4) (* h w0))) (* (pow d 4) (pow l 2)))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (+ w0 (* h (+ (* -1/8 (/ (* (pow D 2) (* (pow M 2) w0)) (* (pow d 2) l))) (* h (+ (* -1/128 (/ (* (pow D 4) (* (pow M 4) w0)) (* (pow d 4) (pow l 2)))) (* -1/1024 (/ (* (pow D 6) (* (pow M 6) (* h w0))) (* (pow d 6) (pow l 3)))))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (+ 1 (* h (+ (* -1/8 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (* -1/128 (/ (* (pow D 4) (* (pow M 4) h)) (* (pow d 4) (pow l 2)))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (+ 1 (* h (+ (* -1/8 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (* h (+ (* -1/128 (/ (* (pow D 4) (pow M 4)) (* (pow d 4) (pow l 2)))) (* -1/1024 (/ (* (pow D 6) (* (pow M 6) h)) (* (pow d 6) (pow l 3)))))))))))
#s(approx h #s(hole binary64 h))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* h (+ (* 1/2 (* (/ (* d w0) (* D (* M (sqrt -1/4)))) (sqrt (/ l (pow h 3))))) (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (/ 1 (* h l))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* h (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 3) (* (sqrt -1/4) (pow (sqrt -1/4) 2))))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/2 (* (/ (* d w0) (* D (* M (sqrt -1/4)))) (sqrt (/ l (pow h 3))))) (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (/ 1 (* h l)))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* h (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 3) (* (pow (sqrt -1/4) 2) (sqrt -1/4))))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 5) (* (pow M 5) (* (sqrt -1/4) (* (sqrt -1/4) (* (sqrt -1/4) (pow (sqrt -1/4) 2))))))) (sqrt (/ (pow l 5) (pow h 7))))) (+ (* 1/2 (* (/ (* d w0) (* D (* M (sqrt -1/4)))) (sqrt (/ l (pow h 3))))) (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (/ 1 (* h l))))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* h (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 3) (* (pow (sqrt -1/4) 2) (sqrt -1/4))))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/2 (* (/ (* d w0) (* D (* M (sqrt -1/4)))) (sqrt (/ l (pow h 3))))) (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (/ 1 (* h l)))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* h (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 3) (* (pow (sqrt -1/4) 2) (sqrt -1/4))))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 5) (* (pow M 5) (* (sqrt -1/4) (* (sqrt -1/4) (* (pow (sqrt -1/4) 2) (sqrt -1/4))))))) (sqrt (/ (pow l 5) (pow h 7))))) (+ (* 1/2 (* (/ (* d w0) (* D (* M (sqrt -1/4)))) (sqrt (/ l (pow h 3))))) (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (/ 1 (* h l))))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* h (+ (* 1/2 (* (/ d (* D (* M (sqrt -1/4)))) (sqrt (/ l (pow h 3))))) (* (/ (* D (* M (sqrt -1/4))) d) (sqrt (/ 1 (* h l))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* h (+ (* -1/8 (* (/ (pow d 3) (* (pow D 3) (* (pow M 3) (* (sqrt -1/4) (pow (sqrt -1/4) 2))))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/2 (* (/ d (* D (* M (sqrt -1/4)))) (sqrt (/ l (pow h 3))))) (* (/ (* D (* M (sqrt -1/4))) d) (sqrt (/ 1 (* h l)))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* h (+ (* -1/8 (* (/ (pow d 3) (* (pow D 3) (* (pow M 3) (* (sqrt -1/4) (pow (sqrt -1/4) 2))))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/16 (* (/ (pow d 5) (* (pow D 5) (* (pow M 5) (* (sqrt -1/4) (* (sqrt -1/4) (* (sqrt -1/4) (pow (sqrt -1/4) 2))))))) (sqrt (/ (pow l 5) (pow h 7))))) (+ (* 1/2 (* (/ d (* D (* M (sqrt -1/4)))) (sqrt (/ l (pow h 3))))) (* (/ (* D (* M (sqrt -1/4))) d) (sqrt (/ 1 (* h l))))))))))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(hole binary64 (* h (- (/ 1 h) (* 1/4 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l)))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* -1/2 (* (/ (* D (* M (* w0 (sqrt -1)))) d) (sqrt (/ h l))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* -1 (* h (+ (* 1/2 (* (/ (* D (* M (* w0 (sqrt -1)))) d) (sqrt (/ 1 (* h l))))) (* (/ (* d (* w0 (sqrt -1))) (* D M)) (sqrt (/ l (pow h 3)))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* -1 (* h (+ (* -1 (* (/ (* (pow d 3) (* w0 (sqrt -1))) (* (pow D 3) (pow M 3))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/2 (* (/ (* D (* M (* w0 (sqrt -1)))) d) (sqrt (/ 1 (* h l))))) (* (/ (* d (* w0 (sqrt -1))) (* D M)) (sqrt (/ l (pow h 3))))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (* -1 (* h (+ (* -1 (* (/ (* (pow d 3) (* w0 (sqrt -1))) (* (pow D 3) (pow M 3))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/2 (* (/ (* D (* M (* w0 (sqrt -1)))) d) (sqrt (/ 1 (* h l))))) (+ (* 2 (* (/ (* (pow d 5) (* w0 (sqrt -1))) (* (pow D 5) (pow M 5))) (sqrt (/ (pow l 5) (pow h 7))))) (* (/ (* d (* w0 (sqrt -1))) (* D M)) (sqrt (/ l (pow h 3)))))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* -1/2 (* (/ (* D (* M (sqrt -1))) d) (sqrt (/ h l))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* -1 (* h (+ (* 1/2 (* (/ (* D (* M (sqrt -1))) d) (sqrt (/ 1 (* h l))))) (* (/ (* d (sqrt -1)) (* D M)) (sqrt (/ l (pow h 3)))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* -1 (* h (+ (* -1 (* (/ (* (pow d 3) (sqrt -1)) (* (pow D 3) (pow M 3))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/2 (* (/ (* D (* M (sqrt -1))) d) (sqrt (/ 1 (* h l))))) (* (/ (* d (sqrt -1)) (* D M)) (sqrt (/ l (pow h 3))))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (* -1 (* h (+ (* -1 (* (/ (* (pow d 3) (sqrt -1)) (* (pow D 3) (pow M 3))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/2 (* (/ (* D (* M (sqrt -1))) d) (sqrt (/ 1 (* h l))))) (+ (* 2 (* (/ (* (pow d 5) (sqrt -1)) (* (pow D 5) (pow M 5))) (sqrt (/ (pow l 5) (pow h 7))))) (* (/ (* d (sqrt -1)) (* D M)) (sqrt (/ l (pow h 3)))))))))))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(hole binary64 (* h (+ (* -1/4 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (/ 1 h)))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (/ (+ (* 1/2 (* (/ (* d w0) (* D (* M (sqrt -1/4)))) (sqrt (/ (pow l 3) h)))) (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (* h l)))) l)))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (/ (+ (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (* h l))) (* (pow l 2) (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 3) (* (pow (sqrt -1/4) 2) (sqrt -1/4))))) (sqrt (/ l (pow h 3))))) (* 1/2 (* (/ (* d w0) (* D (* M (sqrt -1/4)))) (sqrt (/ 1 (* h l)))))))) l)))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (/ (+ (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (* h l))) (* (pow l 2) (+ (* 1/2 (* (/ (* d w0) (* D (* M (sqrt -1/4)))) (sqrt (/ 1 (* h l))))) (* (pow l 2) (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 3) (* (pow (sqrt -1/4) 2) (sqrt -1/4))))) (sqrt (/ 1 (* (pow h 3) (pow l 3)))))) (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 5) (* (pow M 5) (* (sqrt -1/4) (* (sqrt -1/4) (* (sqrt -1/4) (pow (sqrt -1/4) 2))))))) (sqrt (/ 1 (* (pow h 5) l)))))))))) l)))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (/ (+ (* (/ (* D (* M (* w0 (sqrt -1/4)))) d) (sqrt (* h l))) (* (pow l 2) (+ (* 1/2 (* (/ (* d w0) (* D (* M (sqrt -1/4)))) (sqrt (/ 1 (* h l))))) (* (pow l 2) (+ (* -1/8 (* (/ (* (pow d 3) w0) (* (pow D 3) (* (pow M 3) (* (pow (sqrt -1/4) 2) (sqrt -1/4))))) (sqrt (/ 1 (* (pow h 3) (pow l 3)))))) (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 5) (* (pow M 5) (* (sqrt -1/4) (* (pow (sqrt -1/4) 2) (* (sqrt -1/4) (sqrt -1/4))))))) (sqrt (/ 1 (* (pow h 5) l)))))))))) l)))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (/ (+ (* 1/2 (* (/ d (* D (* M (sqrt -1/4)))) (sqrt (/ (pow l 3) h)))) (* (/ (* D (* M (sqrt -1/4))) d) (sqrt (* h l)))) l)))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (/ (+ (* (/ (* D (* M (sqrt -1/4))) d) (sqrt (* h l))) (* (pow l 2) (+ (* -1/8 (* (/ (pow d 3) (* (pow D 3) (* (pow M 3) (* (pow (sqrt -1/4) 2) (sqrt -1/4))))) (sqrt (/ l (pow h 3))))) (* 1/2 (* (/ d (* D (* M (sqrt -1/4)))) (sqrt (/ 1 (* h l)))))))) l)))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (/ (+ (* (/ (* D (* M (sqrt -1/4))) d) (sqrt (* h l))) (* (pow l 2) (+ (* 1/2 (* (/ d (* D (* M (sqrt -1/4)))) (sqrt (/ 1 (* h l))))) (* (pow l 2) (+ (* -1/8 (* (/ (pow d 3) (* (pow D 3) (* (pow M 3) (* (pow (sqrt -1/4) 2) (sqrt -1/4))))) (sqrt (/ 1 (* (pow h 3) (pow l 3)))))) (* 1/16 (* (/ (pow d 5) (* (pow D 5) (* (pow M 5) (* (sqrt -1/4) (* (sqrt -1/4) (* (pow (sqrt -1/4) 2) (sqrt -1/4))))))) (sqrt (/ 1 (* (pow h 5) l)))))))))) l)))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(hole binary64 (/ (- l (* 1/4 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l)))
#s(approx (* (pow d 2) l) #s(hole binary64 (* (pow d 2) l)))
#s(approx l #s(hole binary64 l))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (+ w0 (+ (* -1/8 (/ (* (pow D 2) (* (pow M 2) (* h w0))) (* (pow d 2) l))) (* -1/128 (/ (* (pow D 4) (* (pow M 4) (* (pow h 2) w0))) (* (pow d 4) (pow l 2))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (+ w0 (+ (* -1/8 (/ (* (pow D 2) (* (pow M 2) (* h w0))) (* (pow d 2) l))) (+ (* -1/128 (/ (* (pow D 4) (* (pow M 4) (* (pow h 2) w0))) (* (pow d 4) (pow l 2)))) (* -1/1024 (/ (* (pow D 6) (* (pow M 6) (* (pow h 3) w0))) (* (pow d 6) (pow l 3)))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (+ 1 (+ (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))) (* -1/128 (/ (* (pow D 4) (* (pow M 4) (pow h 2))) (* (pow d 4) (pow l 2))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (+ 1 (+ (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))) (+ (* -1/128 (/ (* (pow D 4) (* (pow M 4) (pow h 2))) (* (pow d 4) (pow l 2)))) (* -1/1024 (/ (* (pow D 6) (* (pow M 6) (pow h 3))) (* (pow d 6) (pow l 3)))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (+ w0 (* -1 (/ (+ (* 1/128 (/ (* (pow D 4) (* (pow M 4) (* (pow h 2) w0))) (* (pow d 4) l))) (* 1/8 (/ (* (pow D 2) (* (pow M 2) (* h w0))) (pow d 2)))) l)))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (+ w0 (* -1 (/ (+ (* -1 (/ (+ (* -1/128 (/ (* (pow D 4) (* (pow M 4) (* (pow h 2) w0))) (pow d 4))) (* -1/1024 (/ (* (pow D 6) (* (pow M 6) (* (pow h 3) w0))) (* (pow d 6) l)))) l)) (* 1/8 (/ (* (pow D 2) (* (pow M 2) (* h w0))) (pow d 2)))) l)))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (+ 1 (* -1 (/ (+ (* 1/128 (/ (* (pow D 4) (* (pow M 4) (pow h 2))) (* (pow d 4) l))) (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l)))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (+ 1 (* -1 (/ (+ (* -1 (/ (+ (* -1/128 (/ (* (pow D 4) (* (pow M 4) (pow h 2))) (pow d 4))) (* -1/1024 (/ (* (pow D 6) (* (pow M 6) (pow h 3))) (* (pow d 6) l)))) l)) (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l)))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (/ (+ (* 1/2 (* (/ (* (pow d 2) w0) (* D (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (* D (* M (* w0 (sqrt -1/4)))) (sqrt (/ h l)))) d)))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (/ (+ (* (* D (* M (* w0 (sqrt -1/4)))) (sqrt (/ h l))) (* (pow d 2) (+ (* -1/8 (* (/ (* (pow d 2) w0) (* (pow D 3) (* (pow M 3) (* (pow (sqrt -1/4) 2) (sqrt -1/4))))) (sqrt (/ (pow l 3) (pow h 3))))) (* 1/2 (* (/ w0 (* D (* M (sqrt -1/4)))) (sqrt (/ l h))))))) d)))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) #s(hole binary64 (/ (+ (* (* D (* M (* w0 (sqrt -1/4)))) (sqrt (/ h l))) (* (pow d 2) (+ (* 1/2 (* (/ w0 (* D (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (pow d 2) (+ (* -1/8 (* (/ w0 (* (pow D 3) (* (pow M 3) (* (pow (sqrt -1/4) 2) (sqrt -1/4))))) (sqrt (/ (pow l 3) (pow h 3))))) (* 1/16 (* (/ (* (pow d 2) w0) (* (pow D 5) (* (pow M 5) (* (sqrt -1/4) (* (pow (sqrt -1/4) 2) (* (sqrt -1/4) (sqrt -1/4))))))) (sqrt (/ (pow l 5) (pow h 5)))))))))) d)))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (/ (+ (* 1/2 (* (/ (pow d 2) (* D (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (* D (* M (sqrt -1/4))) (sqrt (/ h l)))) d)))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (/ (+ (* (* D (* M (sqrt -1/4))) (sqrt (/ h l))) (* (pow d 2) (+ (* -1/8 (* (/ (pow d 2) (* (pow D 3) (* (pow M 3) (* (pow (sqrt -1/4) 2) (sqrt -1/4))))) (sqrt (/ (pow l 3) (pow h 3))))) (* 1/2 (* (/ 1 (* D (* M (sqrt -1/4)))) (sqrt (/ l h))))))) d)))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(hole binary64 (/ (+ (* (* D (* M (sqrt -1/4))) (sqrt (/ h l))) (* (pow d 2) (+ (* 1/2 (* (/ 1 (* D (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (pow d 2) (+ (* -1/8 (* (/ 1 (* (pow D 3) (* (pow M 3) (* (sqrt -1/4) (pow (sqrt -1/4) 2))))) (sqrt (/ (pow l 3) (pow h 3))))) (* 1/16 (* (/ (pow d 2) (* (pow D 5) (* (pow M 5) (* (sqrt -1/4) (* (pow (sqrt -1/4) 2) (* (sqrt -1/4) (sqrt -1/4))))))) (sqrt (/ (pow l 5) (pow h 5)))))))))) d)))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(hole binary64 (/ (- (pow d 2) (* 1/4 (/ (* (pow D 2) (* (pow M 2) h)) l))) (pow d 2))))
#s(approx (pow d 2) #s(hole binary64 (pow d 2)))
#s(approx d #s(hole binary64 d))
Outputs
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) w0)
w0
(*.f64 w0 (sqrt.f64 #s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (*.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 (pow.f64 D #s(literal 2 binary64)) (*.f64 (pow.f64 M #s(literal 2 binary64)) h)) (*.f64 (pow.f64 d #s(literal 2 binary64)) l))))))
(sqrt.f64 #s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (*.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 (pow.f64 D #s(literal 2 binary64)) (*.f64 (pow.f64 M #s(literal 2 binary64)) h)) (*.f64 (pow.f64 d #s(literal 2 binary64)) l)))))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (*.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 (pow.f64 D #s(literal 2 binary64)) (*.f64 (pow.f64 M #s(literal 2 binary64)) h)) (*.f64 (pow.f64 d #s(literal 2 binary64)) l))))
(*.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 (pow.f64 D #s(literal 2 binary64)) (*.f64 (pow.f64 M #s(literal 2 binary64)) h)) (*.f64 (pow.f64 d #s(literal 2 binary64)) l)))
#s(literal -1/4 binary64)
(/.f64 (*.f64 (pow.f64 D #s(literal 2 binary64)) (*.f64 (pow.f64 M #s(literal 2 binary64)) h)) (*.f64 (pow.f64 d #s(literal 2 binary64)) l))
(*.f64 (pow.f64 D #s(literal 2 binary64)) (*.f64 (pow.f64 M #s(literal 2 binary64)) h))
(pow.f64 D #s(literal 2 binary64))
D
#s(literal 2 binary64)
(*.f64 (pow.f64 M #s(literal 2 binary64)) h)
(pow.f64 M #s(literal 2 binary64))
M
h
(*.f64 (pow.f64 d #s(literal 2 binary64)) l)
(pow.f64 d #s(literal 2 binary64))
d
l
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (*.f64 w0 (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 D #s(literal 2 binary64)) (*.f64 (pow.f64 M #s(literal 2 binary64)) h)) (*.f64 (pow.f64 d #s(literal 2 binary64)) l)))))))
#s(approx w0 w0)
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) w0)
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (+.f64 w0 (*.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 (pow.f64 D #s(literal 2 binary64)) (*.f64 (pow.f64 M #s(literal 2 binary64)) (*.f64 h w0))) (*.f64 (pow.f64 d #s(literal 2 binary64)) l)))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (+.f64 w0 (*.f64 (pow.f64 M #s(literal 2 binary64)) (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 (pow.f64 D #s(literal 2 binary64)) (*.f64 h w0)) (*.f64 (pow.f64 d #s(literal 2 binary64)) l)) (*.f64 #s(literal -1/128 binary64) (/.f64 (*.f64 (pow.f64 D #s(literal 4 binary64)) (*.f64 (pow.f64 M #s(literal 2 binary64)) (*.f64 (pow.f64 h #s(literal 2 binary64)) w0))) (*.f64 (pow.f64 d #s(literal 4 binary64)) (pow.f64 l #s(literal 2 binary64)))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (+.f64 w0 (*.f64 (pow.f64 M #s(literal 2 binary64)) (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 (pow.f64 D #s(literal 2 binary64)) (*.f64 h w0)) (*.f64 (pow.f64 d #s(literal 2 binary64)) l)) (*.f64 (pow.f64 M #s(literal 2 binary64)) (fma.f64 #s(literal -1/128 binary64) (/.f64 (*.f64 (pow.f64 D #s(literal 4 binary64)) (*.f64 (pow.f64 h #s(literal 2 binary64)) w0)) (*.f64 (pow.f64 d #s(literal 4 binary64)) (pow.f64 l #s(literal 2 binary64)))) (*.f64 #s(literal -1/1024 binary64) (/.f64 (*.f64 (pow.f64 D #s(literal 6 binary64)) (*.f64 (pow.f64 M #s(literal 2 binary64)) (*.f64 (pow.f64 h #s(literal 3 binary64)) w0))) (*.f64 (pow.f64 d #s(literal 6 binary64)) (pow.f64 l #s(literal 3 binary64)))))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(literal 1 binary64))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 (pow.f64 D #s(literal 2 binary64)) (*.f64 (pow.f64 M #s(literal 2 binary64)) h)) (*.f64 (pow.f64 d #s(literal 2 binary64)) l)))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (+.f64 #s(literal 1 binary64) (*.f64 (pow.f64 M #s(literal 2 binary64)) (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 (pow.f64 D #s(literal 2 binary64)) h) (*.f64 (pow.f64 d #s(literal 2 binary64)) l)) (*.f64 #s(literal -1/128 binary64) (/.f64 (*.f64 (pow.f64 D #s(literal 4 binary64)) (*.f64 (pow.f64 M #s(literal 2 binary64)) (pow.f64 h #s(literal 2 binary64)))) (*.f64 (pow.f64 d #s(literal 4 binary64)) (pow.f64 l #s(literal 2 binary64)))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (+.f64 #s(literal 1 binary64) (*.f64 (pow.f64 M #s(literal 2 binary64)) (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 (pow.f64 D #s(literal 2 binary64)) h) (*.f64 (pow.f64 d #s(literal 2 binary64)) l)) (*.f64 (pow.f64 M #s(literal 2 binary64)) (fma.f64 #s(literal -1/128 binary64) (/.f64 (*.f64 (pow.f64 D #s(literal 4 binary64)) (pow.f64 h #s(literal 2 binary64))) (*.f64 (pow.f64 d #s(literal 4 binary64)) (pow.f64 l #s(literal 2 binary64)))) (*.f64 #s(literal -1/1024 binary64) (/.f64 (*.f64 (pow.f64 D #s(literal 6 binary64)) (*.f64 (pow.f64 M #s(literal 2 binary64)) (pow.f64 h #s(literal 3 binary64)))) (*.f64 (pow.f64 d #s(literal 6 binary64)) (pow.f64 l #s(literal 3 binary64)))))))))))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) #s(literal 1 binary64))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 (pow.f64 D #s(literal 2 binary64)) (*.f64 (pow.f64 M #s(literal 2 binary64)) h)) (*.f64 (pow.f64 d #s(literal 2 binary64)) l)))))
#s(approx (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))) (*.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 (pow.f64 D #s(literal 2 binary64)) (*.f64 (pow.f64 M #s(literal 2 binary64)) h)) (*.f64 (pow.f64 d #s(literal 2 binary64)) l))))
#s(approx (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l)) (/.f64 (*.f64 (pow.f64 D #s(literal 2 binary64)) (*.f64 (pow.f64 M #s(literal 2 binary64)) h)) (*.f64 (pow.f64 d #s(literal 2 binary64)) l)))
#s(approx (* (pow D 2) (* (pow M 2) h)) (*.f64 (pow.f64 D #s(literal 2 binary64)) (*.f64 (pow.f64 M #s(literal 2 binary64)) h)))
#s(approx (* (pow M 2) h) (*.f64 (pow.f64 M #s(literal 2 binary64)) h))
#s(approx (pow M 2) (pow.f64 M #s(literal 2 binary64)))
#s(approx M M)
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (*.f64 (/.f64 (*.f64 D (*.f64 M (*.f64 w0 (sqrt.f64 #s(literal -1/4 binary64))))) d) (sqrt.f64 (/.f64 h l))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (*.f64 M (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 d w0) (*.f64 D (*.f64 (pow.f64 M #s(literal 2 binary64)) (sqrt.f64 #s(literal -1/4 binary64))))) (sqrt.f64 (/.f64 l h))) (*.f64 (/.f64 (*.f64 D (*.f64 w0 (sqrt.f64 #s(literal -1/4 binary64)))) d) (sqrt.f64 (/.f64 h l))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (*.f64 M (fma.f64 #s(literal -1/8 binary64) (*.f64 (/.f64 (*.f64 (pow.f64 d #s(literal 3 binary64)) w0) (*.f64 (pow.f64 D #s(literal 3 binary64)) (*.f64 (pow.f64 M #s(literal 4 binary64)) (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 h #s(literal 3 binary64))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 d w0) (*.f64 D (*.f64 (pow.f64 M #s(literal 2 binary64)) (sqrt.f64 #s(literal -1/4 binary64))))) (sqrt.f64 (/.f64 l h))) (*.f64 (/.f64 (*.f64 D (*.f64 w0 (sqrt.f64 #s(literal -1/4 binary64)))) d) (sqrt.f64 (/.f64 h l)))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (*.f64 M (fma.f64 #s(literal -1/8 binary64) (*.f64 (/.f64 (*.f64 (pow.f64 d #s(literal 3 binary64)) w0) (*.f64 (pow.f64 D #s(literal 3 binary64)) (*.f64 (pow.f64 M #s(literal 4 binary64)) (*.f64 (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 #s(literal -1/4 binary64)))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 h #s(literal 3 binary64))))) (fma.f64 #s(literal 1/16 binary64) (*.f64 (/.f64 (*.f64 (pow.f64 d #s(literal 5 binary64)) w0) (*.f64 (pow.f64 D #s(literal 5 binary64)) (*.f64 (pow.f64 M #s(literal 6 binary64)) (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 2 binary64)))))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 5 binary64))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 d w0) (*.f64 D (*.f64 (pow.f64 M #s(literal 2 binary64)) (sqrt.f64 #s(literal -1/4 binary64))))) (sqrt.f64 (/.f64 l h))) (*.f64 (/.f64 (*.f64 D (*.f64 w0 (sqrt.f64 #s(literal -1/4 binary64)))) d) (sqrt.f64 (/.f64 h l))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (*.f64 M (fma.f64 #s(literal -1/8 binary64) (*.f64 (/.f64 (*.f64 (pow.f64 d #s(literal 3 binary64)) w0) (*.f64 (pow.f64 D #s(literal 3 binary64)) (*.f64 (pow.f64 M #s(literal 4 binary64)) (*.f64 (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 #s(literal -1/4 binary64)))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 h #s(literal 3 binary64))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 d w0) (*.f64 D (*.f64 (pow.f64 M #s(literal 2 binary64)) (sqrt.f64 #s(literal -1/4 binary64))))) (sqrt.f64 (/.f64 l h))) (*.f64 (/.f64 (*.f64 D (*.f64 w0 (sqrt.f64 #s(literal -1/4 binary64)))) d) (sqrt.f64 (/.f64 h l)))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (*.f64 M (fma.f64 #s(literal -1/8 binary64) (*.f64 (/.f64 (*.f64 (pow.f64 d #s(literal 3 binary64)) w0) (*.f64 (pow.f64 D #s(literal 3 binary64)) (*.f64 (pow.f64 M #s(literal 4 binary64)) (*.f64 (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 #s(literal -1/4 binary64)))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 h #s(literal 3 binary64))))) (fma.f64 #s(literal 1/16 binary64) (*.f64 (/.f64 (*.f64 (pow.f64 d #s(literal 5 binary64)) w0) (*.f64 (pow.f64 D #s(literal 5 binary64)) (*.f64 (pow.f64 M #s(literal 6 binary64)) (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) (*.f64 (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 #s(literal -1/4 binary64)))))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 5 binary64))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 d w0) (*.f64 D (*.f64 (pow.f64 M #s(literal 2 binary64)) (sqrt.f64 #s(literal -1/4 binary64))))) (sqrt.f64 (/.f64 l h))) (*.f64 (/.f64 (*.f64 D (*.f64 w0 (sqrt.f64 #s(literal -1/4 binary64)))) d) (sqrt.f64 (/.f64 h l))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (*.f64 (/.f64 (*.f64 D (*.f64 M (sqrt.f64 #s(literal -1/4 binary64)))) d) (sqrt.f64 (/.f64 h l))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (*.f64 M (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 d (*.f64 D (*.f64 (pow.f64 M #s(literal 2 binary64)) (sqrt.f64 #s(literal -1/4 binary64))))) (sqrt.f64 (/.f64 l h))) (*.f64 (/.f64 (*.f64 D (sqrt.f64 #s(literal -1/4 binary64))) d) (sqrt.f64 (/.f64 h l))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (*.f64 M (fma.f64 #s(literal -1/8 binary64) (*.f64 (/.f64 (pow.f64 d #s(literal 3 binary64)) (*.f64 (pow.f64 D #s(literal 3 binary64)) (*.f64 (pow.f64 M #s(literal 4 binary64)) (*.f64 (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 #s(literal -1/4 binary64)))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 h #s(literal 3 binary64))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 d (*.f64 D (*.f64 (pow.f64 M #s(literal 2 binary64)) (sqrt.f64 #s(literal -1/4 binary64))))) (sqrt.f64 (/.f64 l h))) (*.f64 (/.f64 (*.f64 D (sqrt.f64 #s(literal -1/4 binary64))) d) (sqrt.f64 (/.f64 h l)))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (*.f64 M (fma.f64 #s(literal -1/8 binary64) (*.f64 (/.f64 (pow.f64 d #s(literal 3 binary64)) (*.f64 (pow.f64 D #s(literal 3 binary64)) (*.f64 (pow.f64 M #s(literal 4 binary64)) (*.f64 (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 #s(literal -1/4 binary64)))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 h #s(literal 3 binary64))))) (fma.f64 #s(literal 1/16 binary64) (*.f64 (/.f64 (pow.f64 d #s(literal 5 binary64)) (*.f64 (pow.f64 D #s(literal 5 binary64)) (*.f64 (pow.f64 M #s(literal 6 binary64)) (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 2 binary64)))))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 5 binary64))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 d (*.f64 D (*.f64 (pow.f64 M #s(literal 2 binary64)) (sqrt.f64 #s(literal -1/4 binary64))))) (sqrt.f64 (/.f64 l h))) (*.f64 (/.f64 (*.f64 D (sqrt.f64 #s(literal -1/4 binary64))) d) (sqrt.f64 (/.f64 h l))))))))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (*.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 (pow.f64 D #s(literal 2 binary64)) (*.f64 (pow.f64 M #s(literal 2 binary64)) h)) (*.f64 (pow.f64 d #s(literal 2 binary64)) l))))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (*.f64 (pow.f64 M #s(literal 2 binary64)) (-.f64 (/.f64 #s(literal 1 binary64) (pow.f64 M #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 D #s(literal 2 binary64)) h) (*.f64 (pow.f64 d #s(literal 2 binary64)) l))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 D (*.f64 M (*.f64 w0 (sqrt.f64 #s(literal -1/4 binary64))))) d) (sqrt.f64 (/.f64 h l)))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (*.f64 #s(literal -1 binary64) (*.f64 M (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 d w0) (*.f64 D (*.f64 (pow.f64 M #s(literal 2 binary64)) (sqrt.f64 #s(literal -1/4 binary64))))) (sqrt.f64 (/.f64 l h))) (*.f64 (/.f64 (*.f64 D (*.f64 w0 (sqrt.f64 #s(literal -1/4 binary64)))) d) (sqrt.f64 (/.f64 h l)))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (*.f64 #s(literal -1 binary64) (*.f64 M (fma.f64 #s(literal -1/8 binary64) (*.f64 (/.f64 (*.f64 (pow.f64 d #s(literal 3 binary64)) w0) (*.f64 (pow.f64 D #s(literal 3 binary64)) (*.f64 (pow.f64 M #s(literal 4 binary64)) (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 h #s(literal 3 binary64))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 d w0) (*.f64 D (*.f64 (pow.f64 M #s(literal 2 binary64)) (sqrt.f64 #s(literal -1/4 binary64))))) (sqrt.f64 (/.f64 l h))) (*.f64 (/.f64 (*.f64 D (*.f64 w0 (sqrt.f64 #s(literal -1/4 binary64)))) d) (sqrt.f64 (/.f64 h l))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (*.f64 #s(literal -1 binary64) (*.f64 M (fma.f64 #s(literal -1/8 binary64) (*.f64 (/.f64 (*.f64 (pow.f64 d #s(literal 3 binary64)) w0) (*.f64 (pow.f64 D #s(literal 3 binary64)) (*.f64 (pow.f64 M #s(literal 4 binary64)) (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 h #s(literal 3 binary64))))) (fma.f64 #s(literal 1/16 binary64) (*.f64 (/.f64 (*.f64 (pow.f64 d #s(literal 5 binary64)) w0) (*.f64 (pow.f64 D #s(literal 5 binary64)) (*.f64 (pow.f64 M #s(literal 6 binary64)) (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 2 binary64)))))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 5 binary64))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 d w0) (*.f64 D (*.f64 (pow.f64 M #s(literal 2 binary64)) (sqrt.f64 #s(literal -1/4 binary64))))) (sqrt.f64 (/.f64 l h))) (*.f64 (/.f64 (*.f64 D (*.f64 w0 (sqrt.f64 #s(literal -1/4 binary64)))) d) (sqrt.f64 (/.f64 h l)))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (*.f64 #s(literal -1 binary64) (*.f64 M (fma.f64 #s(literal -1/8 binary64) (*.f64 (/.f64 (*.f64 (pow.f64 d #s(literal 3 binary64)) w0) (*.f64 (pow.f64 D #s(literal 3 binary64)) (*.f64 (pow.f64 M #s(literal 4 binary64)) (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 h #s(literal 3 binary64))))) (fma.f64 #s(literal 1/16 binary64) (*.f64 (/.f64 (*.f64 (pow.f64 d #s(literal 5 binary64)) w0) (*.f64 (pow.f64 D #s(literal 5 binary64)) (*.f64 (pow.f64 M #s(literal 6 binary64)) (*.f64 (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 2 binary64)) (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) (sqrt.f64 #s(literal -1/4 binary64)))))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 5 binary64))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 d w0) (*.f64 D (*.f64 (pow.f64 M #s(literal 2 binary64)) (sqrt.f64 #s(literal -1/4 binary64))))) (sqrt.f64 (/.f64 l h))) (*.f64 (/.f64 (*.f64 D (*.f64 w0 (sqrt.f64 #s(literal -1/4 binary64)))) d) (sqrt.f64 (/.f64 h l)))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (*.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 D (*.f64 M (sqrt.f64 #s(literal -1/4 binary64)))) d) (sqrt.f64 (/.f64 h l)))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (*.f64 #s(literal -1 binary64) (*.f64 M (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 d (*.f64 D (*.f64 (pow.f64 M #s(literal 2 binary64)) (sqrt.f64 #s(literal -1/4 binary64))))) (sqrt.f64 (/.f64 l h))) (*.f64 (/.f64 (*.f64 D (sqrt.f64 #s(literal -1/4 binary64))) d) (sqrt.f64 (/.f64 h l)))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (*.f64 #s(literal -1 binary64) (*.f64 M (fma.f64 #s(literal -1/8 binary64) (*.f64 (/.f64 (pow.f64 d #s(literal 3 binary64)) (*.f64 (pow.f64 D #s(literal 3 binary64)) (*.f64 (pow.f64 M #s(literal 4 binary64)) (*.f64 (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 #s(literal -1/4 binary64)))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 h #s(literal 3 binary64))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 d (*.f64 D (*.f64 (pow.f64 M #s(literal 2 binary64)) (sqrt.f64 #s(literal -1/4 binary64))))) (sqrt.f64 (/.f64 l h))) (*.f64 (/.f64 (*.f64 D (sqrt.f64 #s(literal -1/4 binary64))) d) (sqrt.f64 (/.f64 h l))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (*.f64 #s(literal -1 binary64) (*.f64 M (fma.f64 #s(literal -1/8 binary64) (*.f64 (/.f64 (pow.f64 d #s(literal 3 binary64)) (*.f64 (pow.f64 D #s(literal 3 binary64)) (*.f64 (pow.f64 M #s(literal 4 binary64)) (*.f64 (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 #s(literal -1/4 binary64)))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 h #s(literal 3 binary64))))) (fma.f64 #s(literal 1/16 binary64) (*.f64 (/.f64 (pow.f64 d #s(literal 5 binary64)) (*.f64 (pow.f64 D #s(literal 5 binary64)) (*.f64 (pow.f64 M #s(literal 6 binary64)) (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 2 binary64)))))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 5 binary64))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 d (*.f64 D (*.f64 (pow.f64 M #s(literal 2 binary64)) (sqrt.f64 #s(literal -1/4 binary64))))) (sqrt.f64 (/.f64 l h))) (*.f64 (/.f64 (*.f64 D (sqrt.f64 #s(literal -1/4 binary64))) d) (sqrt.f64 (/.f64 h l)))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (+.f64 w0 (*.f64 (pow.f64 D #s(literal 2 binary64)) (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 (pow.f64 M #s(literal 2 binary64)) (*.f64 h w0)) (*.f64 (pow.f64 d #s(literal 2 binary64)) l)) (*.f64 #s(literal -1/128 binary64) (/.f64 (*.f64 (pow.f64 D #s(literal 2 binary64)) (*.f64 (pow.f64 M #s(literal 4 binary64)) (*.f64 (pow.f64 h #s(literal 2 binary64)) w0))) (*.f64 (pow.f64 d #s(literal 4 binary64)) (pow.f64 l #s(literal 2 binary64)))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (+.f64 w0 (*.f64 (pow.f64 D #s(literal 2 binary64)) (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 (pow.f64 M #s(literal 2 binary64)) (*.f64 h w0)) (*.f64 (pow.f64 d #s(literal 2 binary64)) l)) (*.f64 (pow.f64 D #s(literal 2 binary64)) (fma.f64 #s(literal -1/128 binary64) (/.f64 (*.f64 (pow.f64 M #s(literal 4 binary64)) (*.f64 (pow.f64 h #s(literal 2 binary64)) w0)) (*.f64 (pow.f64 d #s(literal 4 binary64)) (pow.f64 l #s(literal 2 binary64)))) (*.f64 #s(literal -1/1024 binary64) (/.f64 (*.f64 (pow.f64 D #s(literal 2 binary64)) (*.f64 (pow.f64 M #s(literal 6 binary64)) (*.f64 (pow.f64 h #s(literal 3 binary64)) w0))) (*.f64 (pow.f64 d #s(literal 6 binary64)) (pow.f64 l #s(literal 3 binary64)))))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (+.f64 #s(literal 1 binary64) (*.f64 (pow.f64 D #s(literal 2 binary64)) (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 (pow.f64 M #s(literal 2 binary64)) h) (*.f64 (pow.f64 d #s(literal 2 binary64)) l)) (*.f64 #s(literal -1/128 binary64) (/.f64 (*.f64 (pow.f64 D #s(literal 2 binary64)) (*.f64 (pow.f64 M #s(literal 4 binary64)) (pow.f64 h #s(literal 2 binary64)))) (*.f64 (pow.f64 d #s(literal 4 binary64)) (pow.f64 l #s(literal 2 binary64)))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (+.f64 #s(literal 1 binary64) (*.f64 (pow.f64 D #s(literal 2 binary64)) (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 (pow.f64 M #s(literal 2 binary64)) h) (*.f64 (pow.f64 d #s(literal 2 binary64)) l)) (*.f64 (pow.f64 D #s(literal 2 binary64)) (fma.f64 #s(literal -1/128 binary64) (/.f64 (*.f64 (pow.f64 M #s(literal 4 binary64)) (pow.f64 h #s(literal 2 binary64))) (*.f64 (pow.f64 d #s(literal 4 binary64)) (pow.f64 l #s(literal 2 binary64)))) (*.f64 #s(literal -1/1024 binary64) (/.f64 (*.f64 (pow.f64 D #s(literal 2 binary64)) (*.f64 (pow.f64 M #s(literal 6 binary64)) (pow.f64 h #s(literal 3 binary64)))) (*.f64 (pow.f64 d #s(literal 6 binary64)) (pow.f64 l #s(literal 3 binary64)))))))))))
#s(approx (pow D 2) (pow.f64 D #s(literal 2 binary64)))
#s(approx D D)
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (*.f64 D (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 d w0) (*.f64 (pow.f64 D #s(literal 2 binary64)) (*.f64 M (sqrt.f64 #s(literal -1/4 binary64))))) (sqrt.f64 (/.f64 l h))) (*.f64 (/.f64 (*.f64 M (*.f64 w0 (sqrt.f64 #s(literal -1/4 binary64)))) d) (sqrt.f64 (/.f64 h l))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (*.f64 D (fma.f64 #s(literal -1/8 binary64) (*.f64 (/.f64 (*.f64 (pow.f64 d #s(literal 3 binary64)) w0) (*.f64 (pow.f64 D #s(literal 4 binary64)) (*.f64 (pow.f64 M #s(literal 3 binary64)) (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 h #s(literal 3 binary64))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 d w0) (*.f64 (pow.f64 D #s(literal 2 binary64)) (*.f64 M (sqrt.f64 #s(literal -1/4 binary64))))) (sqrt.f64 (/.f64 l h))) (*.f64 (/.f64 (*.f64 M (*.f64 w0 (sqrt.f64 #s(literal -1/4 binary64)))) d) (sqrt.f64 (/.f64 h l)))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (*.f64 D (fma.f64 #s(literal -1/8 binary64) (*.f64 (/.f64 (*.f64 (pow.f64 d #s(literal 3 binary64)) w0) (*.f64 (pow.f64 D #s(literal 4 binary64)) (*.f64 (pow.f64 M #s(literal 3 binary64)) (*.f64 (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 #s(literal -1/4 binary64)))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 h #s(literal 3 binary64))))) (fma.f64 #s(literal 1/16 binary64) (*.f64 (/.f64 (*.f64 (pow.f64 d #s(literal 5 binary64)) w0) (*.f64 (pow.f64 D #s(literal 6 binary64)) (*.f64 (pow.f64 M #s(literal 5 binary64)) (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 2 binary64)))))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 5 binary64))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 d w0) (*.f64 (pow.f64 D #s(literal 2 binary64)) (*.f64 M (sqrt.f64 #s(literal -1/4 binary64))))) (sqrt.f64 (/.f64 l h))) (*.f64 (/.f64 (*.f64 M (*.f64 w0 (sqrt.f64 #s(literal -1/4 binary64)))) d) (sqrt.f64 (/.f64 h l))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (*.f64 D (fma.f64 #s(literal -1/8 binary64) (*.f64 (/.f64 (*.f64 (pow.f64 d #s(literal 3 binary64)) w0) (*.f64 (pow.f64 D #s(literal 4 binary64)) (*.f64 (pow.f64 M #s(literal 3 binary64)) (*.f64 (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 #s(literal -1/4 binary64)))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 h #s(literal 3 binary64))))) (fma.f64 #s(literal 1/16 binary64) (*.f64 (/.f64 (*.f64 (pow.f64 d #s(literal 5 binary64)) w0) (*.f64 (pow.f64 D #s(literal 6 binary64)) (*.f64 (pow.f64 M #s(literal 5 binary64)) (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) (*.f64 (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 2 binary64)) (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) (sqrt.f64 #s(literal -1/4 binary64)))))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 5 binary64))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 d w0) (*.f64 (pow.f64 D #s(literal 2 binary64)) (*.f64 M (sqrt.f64 #s(literal -1/4 binary64))))) (sqrt.f64 (/.f64 l h))) (*.f64 (/.f64 (*.f64 M (*.f64 w0 (sqrt.f64 #s(literal -1/4 binary64)))) d) (sqrt.f64 (/.f64 h l))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (*.f64 D (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 d (*.f64 (pow.f64 D #s(literal 2 binary64)) (*.f64 M (sqrt.f64 #s(literal -1/4 binary64))))) (sqrt.f64 (/.f64 l h))) (*.f64 (/.f64 (*.f64 M (sqrt.f64 #s(literal -1/4 binary64))) d) (sqrt.f64 (/.f64 h l))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (*.f64 D (fma.f64 #s(literal -1/8 binary64) (*.f64 (/.f64 (pow.f64 d #s(literal 3 binary64)) (*.f64 (pow.f64 D #s(literal 4 binary64)) (*.f64 (pow.f64 M #s(literal 3 binary64)) (*.f64 (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 #s(literal -1/4 binary64)))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 h #s(literal 3 binary64))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 d (*.f64 (pow.f64 D #s(literal 2 binary64)) (*.f64 M (sqrt.f64 #s(literal -1/4 binary64))))) (sqrt.f64 (/.f64 l h))) (*.f64 (/.f64 (*.f64 M (sqrt.f64 #s(literal -1/4 binary64))) d) (sqrt.f64 (/.f64 h l)))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (*.f64 D (fma.f64 #s(literal -1/8 binary64) (*.f64 (/.f64 (pow.f64 d #s(literal 3 binary64)) (*.f64 (pow.f64 D #s(literal 4 binary64)) (*.f64 (pow.f64 M #s(literal 3 binary64)) (*.f64 (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 #s(literal -1/4 binary64)))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 h #s(literal 3 binary64))))) (fma.f64 #s(literal 1/16 binary64) (*.f64 (/.f64 (pow.f64 d #s(literal 5 binary64)) (*.f64 (pow.f64 D #s(literal 6 binary64)) (*.f64 (pow.f64 M #s(literal 5 binary64)) (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 2 binary64)))))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 5 binary64))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 d (*.f64 (pow.f64 D #s(literal 2 binary64)) (*.f64 M (sqrt.f64 #s(literal -1/4 binary64))))) (sqrt.f64 (/.f64 l h))) (*.f64 (/.f64 (*.f64 M (sqrt.f64 #s(literal -1/4 binary64))) d) (sqrt.f64 (/.f64 h l))))))))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (*.f64 (pow.f64 D #s(literal 2 binary64)) (-.f64 (/.f64 #s(literal 1 binary64) (pow.f64 D #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 M #s(literal 2 binary64)) h) (*.f64 (pow.f64 d #s(literal 2 binary64)) l))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (*.f64 #s(literal -1 binary64) (*.f64 D (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 d w0) (*.f64 (pow.f64 D #s(literal 2 binary64)) (*.f64 M (sqrt.f64 #s(literal -1/4 binary64))))) (sqrt.f64 (/.f64 l h))) (*.f64 (/.f64 (*.f64 M (*.f64 w0 (sqrt.f64 #s(literal -1/4 binary64)))) d) (sqrt.f64 (/.f64 h l)))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (*.f64 #s(literal -1 binary64) (*.f64 D (fma.f64 #s(literal -1/8 binary64) (*.f64 (/.f64 (*.f64 (pow.f64 d #s(literal 3 binary64)) w0) (*.f64 (pow.f64 D #s(literal 4 binary64)) (*.f64 (pow.f64 M #s(literal 3 binary64)) (*.f64 (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 #s(literal -1/4 binary64)))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 h #s(literal 3 binary64))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 d w0) (*.f64 (pow.f64 D #s(literal 2 binary64)) (*.f64 M (sqrt.f64 #s(literal -1/4 binary64))))) (sqrt.f64 (/.f64 l h))) (*.f64 (/.f64 (*.f64 M (*.f64 w0 (sqrt.f64 #s(literal -1/4 binary64)))) d) (sqrt.f64 (/.f64 h l))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (*.f64 #s(literal -1 binary64) (*.f64 D (fma.f64 #s(literal -1/8 binary64) (*.f64 (/.f64 (*.f64 (pow.f64 d #s(literal 3 binary64)) w0) (*.f64 (pow.f64 D #s(literal 4 binary64)) (*.f64 (pow.f64 M #s(literal 3 binary64)) (*.f64 (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 #s(literal -1/4 binary64)))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 h #s(literal 3 binary64))))) (fma.f64 #s(literal 1/16 binary64) (*.f64 (/.f64 (*.f64 (pow.f64 d #s(literal 5 binary64)) w0) (*.f64 (pow.f64 D #s(literal 6 binary64)) (*.f64 (pow.f64 M #s(literal 5 binary64)) (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 2 binary64)))))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 5 binary64))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 d w0) (*.f64 (pow.f64 D #s(literal 2 binary64)) (*.f64 M (sqrt.f64 #s(literal -1/4 binary64))))) (sqrt.f64 (/.f64 l h))) (*.f64 (/.f64 (*.f64 M (*.f64 w0 (sqrt.f64 #s(literal -1/4 binary64)))) d) (sqrt.f64 (/.f64 h l)))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (*.f64 #s(literal -1 binary64) (*.f64 D (fma.f64 #s(literal -1/8 binary64) (*.f64 (/.f64 (*.f64 (pow.f64 d #s(literal 3 binary64)) w0) (*.f64 (pow.f64 D #s(literal 4 binary64)) (*.f64 (pow.f64 M #s(literal 3 binary64)) (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 h #s(literal 3 binary64))))) (fma.f64 #s(literal 1/16 binary64) (*.f64 (/.f64 (*.f64 (pow.f64 d #s(literal 5 binary64)) w0) (*.f64 (pow.f64 D #s(literal 6 binary64)) (*.f64 (pow.f64 M #s(literal 5 binary64)) (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) (*.f64 (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 #s(literal -1/4 binary64)))))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 5 binary64))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 d w0) (*.f64 (pow.f64 D #s(literal 2 binary64)) (*.f64 M (sqrt.f64 #s(literal -1/4 binary64))))) (sqrt.f64 (/.f64 l h))) (*.f64 (/.f64 (*.f64 M (*.f64 w0 (sqrt.f64 #s(literal -1/4 binary64)))) d) (sqrt.f64 (/.f64 h l)))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (*.f64 #s(literal -1 binary64) (*.f64 D (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 d (*.f64 (pow.f64 D #s(literal 2 binary64)) (*.f64 M (sqrt.f64 #s(literal -1/4 binary64))))) (sqrt.f64 (/.f64 l h))) (*.f64 (/.f64 (*.f64 M (sqrt.f64 #s(literal -1/4 binary64))) d) (sqrt.f64 (/.f64 h l)))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (*.f64 #s(literal -1 binary64) (*.f64 D (fma.f64 #s(literal -1/8 binary64) (*.f64 (/.f64 (pow.f64 d #s(literal 3 binary64)) (*.f64 (pow.f64 D #s(literal 4 binary64)) (*.f64 (pow.f64 M #s(literal 3 binary64)) (*.f64 (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 #s(literal -1/4 binary64)))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 h #s(literal 3 binary64))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 d (*.f64 (pow.f64 D #s(literal 2 binary64)) (*.f64 M (sqrt.f64 #s(literal -1/4 binary64))))) (sqrt.f64 (/.f64 l h))) (*.f64 (/.f64 (*.f64 M (sqrt.f64 #s(literal -1/4 binary64))) d) (sqrt.f64 (/.f64 h l))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (*.f64 #s(literal -1 binary64) (*.f64 D (fma.f64 #s(literal -1/8 binary64) (*.f64 (/.f64 (pow.f64 d #s(literal 3 binary64)) (*.f64 (pow.f64 D #s(literal 4 binary64)) (*.f64 (pow.f64 M #s(literal 3 binary64)) (*.f64 (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 #s(literal -1/4 binary64)))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 h #s(literal 3 binary64))))) (fma.f64 #s(literal 1/16 binary64) (*.f64 (/.f64 (pow.f64 d #s(literal 5 binary64)) (*.f64 (pow.f64 D #s(literal 6 binary64)) (*.f64 (pow.f64 M #s(literal 5 binary64)) (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) (*.f64 (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 2 binary64)) (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) (sqrt.f64 #s(literal -1/4 binary64)))))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 5 binary64))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 d (*.f64 (pow.f64 D #s(literal 2 binary64)) (*.f64 M (sqrt.f64 #s(literal -1/4 binary64))))) (sqrt.f64 (/.f64 l h))) (*.f64 (/.f64 (*.f64 M (sqrt.f64 #s(literal -1/4 binary64))) d) (sqrt.f64 (/.f64 h l)))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (+.f64 w0 (*.f64 h (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 (pow.f64 D #s(literal 2 binary64)) (*.f64 (pow.f64 M #s(literal 2 binary64)) w0)) (*.f64 (pow.f64 d #s(literal 2 binary64)) l)) (*.f64 #s(literal -1/128 binary64) (/.f64 (*.f64 (pow.f64 D #s(literal 4 binary64)) (*.f64 (pow.f64 M #s(literal 4 binary64)) (*.f64 h w0))) (*.f64 (pow.f64 d #s(literal 4 binary64)) (pow.f64 l #s(literal 2 binary64)))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (+.f64 w0 (*.f64 h (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 (pow.f64 D #s(literal 2 binary64)) (*.f64 (pow.f64 M #s(literal 2 binary64)) w0)) (*.f64 (pow.f64 d #s(literal 2 binary64)) l)) (*.f64 h (fma.f64 #s(literal -1/128 binary64) (/.f64 (*.f64 (pow.f64 D #s(literal 4 binary64)) (*.f64 (pow.f64 M #s(literal 4 binary64)) w0)) (*.f64 (pow.f64 d #s(literal 4 binary64)) (pow.f64 l #s(literal 2 binary64)))) (*.f64 #s(literal -1/1024 binary64) (/.f64 (*.f64 (pow.f64 D #s(literal 6 binary64)) (*.f64 (pow.f64 M #s(literal 6 binary64)) (*.f64 h w0))) (*.f64 (pow.f64 d #s(literal 6 binary64)) (pow.f64 l #s(literal 3 binary64)))))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (+.f64 #s(literal 1 binary64) (*.f64 h (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) (*.f64 (pow.f64 d #s(literal 2 binary64)) l)) (*.f64 #s(literal -1/128 binary64) (/.f64 (*.f64 (pow.f64 D #s(literal 4 binary64)) (*.f64 (pow.f64 M #s(literal 4 binary64)) h)) (*.f64 (pow.f64 d #s(literal 4 binary64)) (pow.f64 l #s(literal 2 binary64)))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (+.f64 #s(literal 1 binary64) (*.f64 h (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) (*.f64 (pow.f64 d #s(literal 2 binary64)) l)) (*.f64 h (fma.f64 #s(literal -1/128 binary64) (/.f64 (*.f64 (pow.f64 D #s(literal 4 binary64)) (pow.f64 M #s(literal 4 binary64))) (*.f64 (pow.f64 d #s(literal 4 binary64)) (pow.f64 l #s(literal 2 binary64)))) (*.f64 #s(literal -1/1024 binary64) (/.f64 (*.f64 (pow.f64 D #s(literal 6 binary64)) (*.f64 (pow.f64 M #s(literal 6 binary64)) h)) (*.f64 (pow.f64 d #s(literal 6 binary64)) (pow.f64 l #s(literal 3 binary64)))))))))))
#s(approx h h)
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (*.f64 h (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 d w0) (*.f64 D (*.f64 M (sqrt.f64 #s(literal -1/4 binary64))))) (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64))))) (*.f64 (/.f64 (*.f64 D (*.f64 M (*.f64 w0 (sqrt.f64 #s(literal -1/4 binary64))))) d) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 h l)))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (*.f64 h (fma.f64 #s(literal -1/8 binary64) (*.f64 (/.f64 (*.f64 (pow.f64 d #s(literal 3 binary64)) w0) (*.f64 (pow.f64 D #s(literal 3 binary64)) (*.f64 (pow.f64 M #s(literal 3 binary64)) (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 h #s(literal 5 binary64))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 d w0) (*.f64 D (*.f64 M (sqrt.f64 #s(literal -1/4 binary64))))) (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64))))) (*.f64 (/.f64 (*.f64 D (*.f64 M (*.f64 w0 (sqrt.f64 #s(literal -1/4 binary64))))) d) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 h l))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (*.f64 h (fma.f64 #s(literal -1/8 binary64) (*.f64 (/.f64 (*.f64 (pow.f64 d #s(literal 3 binary64)) w0) (*.f64 (pow.f64 D #s(literal 3 binary64)) (*.f64 (pow.f64 M #s(literal 3 binary64)) (*.f64 (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 #s(literal -1/4 binary64)))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 h #s(literal 5 binary64))))) (fma.f64 #s(literal 1/16 binary64) (*.f64 (/.f64 (*.f64 (pow.f64 d #s(literal 5 binary64)) w0) (*.f64 (pow.f64 D #s(literal 5 binary64)) (*.f64 (pow.f64 M #s(literal 5 binary64)) (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 2 binary64)))))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 7 binary64))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 d w0) (*.f64 D (*.f64 M (sqrt.f64 #s(literal -1/4 binary64))))) (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64))))) (*.f64 (/.f64 (*.f64 D (*.f64 M (*.f64 w0 (sqrt.f64 #s(literal -1/4 binary64))))) d) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 h l)))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (*.f64 h (fma.f64 #s(literal -1/8 binary64) (*.f64 (/.f64 (*.f64 (pow.f64 d #s(literal 3 binary64)) w0) (*.f64 (pow.f64 D #s(literal 3 binary64)) (*.f64 (pow.f64 M #s(literal 3 binary64)) (*.f64 (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 #s(literal -1/4 binary64)))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 h #s(literal 5 binary64))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 d w0) (*.f64 D (*.f64 M (sqrt.f64 #s(literal -1/4 binary64))))) (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64))))) (*.f64 (/.f64 (*.f64 D (*.f64 M (*.f64 w0 (sqrt.f64 #s(literal -1/4 binary64))))) d) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 h l))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (*.f64 h (fma.f64 #s(literal -1/8 binary64) (*.f64 (/.f64 (*.f64 (pow.f64 d #s(literal 3 binary64)) w0) (*.f64 (pow.f64 D #s(literal 3 binary64)) (*.f64 (pow.f64 M #s(literal 3 binary64)) (*.f64 (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 #s(literal -1/4 binary64)))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 h #s(literal 5 binary64))))) (fma.f64 #s(literal 1/16 binary64) (*.f64 (/.f64 (*.f64 (pow.f64 d #s(literal 5 binary64)) w0) (*.f64 (pow.f64 D #s(literal 5 binary64)) (*.f64 (pow.f64 M #s(literal 5 binary64)) (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) (*.f64 (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 #s(literal -1/4 binary64)))))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 7 binary64))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 d w0) (*.f64 D (*.f64 M (sqrt.f64 #s(literal -1/4 binary64))))) (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64))))) (*.f64 (/.f64 (*.f64 D (*.f64 M (*.f64 w0 (sqrt.f64 #s(literal -1/4 binary64))))) d) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 h l)))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (*.f64 h (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 d (*.f64 D (*.f64 M (sqrt.f64 #s(literal -1/4 binary64))))) (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64))))) (*.f64 (/.f64 (*.f64 D (*.f64 M (sqrt.f64 #s(literal -1/4 binary64)))) d) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 h l)))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (*.f64 h (fma.f64 #s(literal -1/8 binary64) (*.f64 (/.f64 (pow.f64 d #s(literal 3 binary64)) (*.f64 (pow.f64 D #s(literal 3 binary64)) (*.f64 (pow.f64 M #s(literal 3 binary64)) (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 h #s(literal 5 binary64))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 d (*.f64 D (*.f64 M (sqrt.f64 #s(literal -1/4 binary64))))) (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64))))) (*.f64 (/.f64 (*.f64 D (*.f64 M (sqrt.f64 #s(literal -1/4 binary64)))) d) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 h l))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (*.f64 h (fma.f64 #s(literal -1/8 binary64) (*.f64 (/.f64 (pow.f64 d #s(literal 3 binary64)) (*.f64 (pow.f64 D #s(literal 3 binary64)) (*.f64 (pow.f64 M #s(literal 3 binary64)) (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 h #s(literal 5 binary64))))) (fma.f64 #s(literal 1/16 binary64) (*.f64 (/.f64 (pow.f64 d #s(literal 5 binary64)) (*.f64 (pow.f64 D #s(literal 5 binary64)) (*.f64 (pow.f64 M #s(literal 5 binary64)) (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 2 binary64)))))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 7 binary64))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 d (*.f64 D (*.f64 M (sqrt.f64 #s(literal -1/4 binary64))))) (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64))))) (*.f64 (/.f64 (*.f64 D (*.f64 M (sqrt.f64 #s(literal -1/4 binary64)))) d) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 h l)))))))))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (*.f64 h (-.f64 (/.f64 #s(literal 1 binary64) h) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) (*.f64 (pow.f64 d #s(literal 2 binary64)) l))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 (*.f64 D (*.f64 M (*.f64 w0 (sqrt.f64 #s(literal -1 binary64))))) d) (sqrt.f64 (/.f64 h l)))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (*.f64 #s(literal -1 binary64) (*.f64 h (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 D (*.f64 M (*.f64 w0 (sqrt.f64 #s(literal -1 binary64))))) d) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 h l)))) (*.f64 (/.f64 (*.f64 d (*.f64 w0 (sqrt.f64 #s(literal -1 binary64)))) (*.f64 D M)) (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64)))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (*.f64 #s(literal -1 binary64) (*.f64 h (fma.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 (pow.f64 d #s(literal 3 binary64)) (*.f64 w0 (sqrt.f64 #s(literal -1 binary64)))) (*.f64 (pow.f64 D #s(literal 3 binary64)) (pow.f64 M #s(literal 3 binary64)))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 h #s(literal 5 binary64))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 D (*.f64 M (*.f64 w0 (sqrt.f64 #s(literal -1 binary64))))) d) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 h l)))) (*.f64 (/.f64 (*.f64 d (*.f64 w0 (sqrt.f64 #s(literal -1 binary64)))) (*.f64 D M)) (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64))))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (*.f64 #s(literal -1 binary64) (*.f64 h (fma.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 (pow.f64 d #s(literal 3 binary64)) (*.f64 w0 (sqrt.f64 #s(literal -1 binary64)))) (*.f64 (pow.f64 D #s(literal 3 binary64)) (pow.f64 M #s(literal 3 binary64)))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 h #s(literal 5 binary64))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 D (*.f64 M (*.f64 w0 (sqrt.f64 #s(literal -1 binary64))))) d) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 h l)))) (fma.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 (pow.f64 d #s(literal 5 binary64)) (*.f64 w0 (sqrt.f64 #s(literal -1 binary64)))) (*.f64 (pow.f64 D #s(literal 5 binary64)) (pow.f64 M #s(literal 5 binary64)))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 7 binary64))))) (*.f64 (/.f64 (*.f64 d (*.f64 w0 (sqrt.f64 #s(literal -1 binary64)))) (*.f64 D M)) (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64)))))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (*.f64 #s(literal -1/2 binary64) (*.f64 (/.f64 (*.f64 D (*.f64 M (sqrt.f64 #s(literal -1 binary64)))) d) (sqrt.f64 (/.f64 h l)))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (*.f64 #s(literal -1 binary64) (*.f64 h (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 D (*.f64 M (sqrt.f64 #s(literal -1 binary64)))) d) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 h l)))) (*.f64 (/.f64 (*.f64 d (sqrt.f64 #s(literal -1 binary64))) (*.f64 D M)) (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64)))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (*.f64 #s(literal -1 binary64) (*.f64 h (fma.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 (pow.f64 d #s(literal 3 binary64)) (sqrt.f64 #s(literal -1 binary64))) (*.f64 (pow.f64 D #s(literal 3 binary64)) (pow.f64 M #s(literal 3 binary64)))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 h #s(literal 5 binary64))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 D (*.f64 M (sqrt.f64 #s(literal -1 binary64)))) d) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 h l)))) (*.f64 (/.f64 (*.f64 d (sqrt.f64 #s(literal -1 binary64))) (*.f64 D M)) (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64))))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (*.f64 #s(literal -1 binary64) (*.f64 h (fma.f64 #s(literal -1 binary64) (*.f64 (/.f64 (*.f64 (pow.f64 d #s(literal 3 binary64)) (sqrt.f64 #s(literal -1 binary64))) (*.f64 (pow.f64 D #s(literal 3 binary64)) (pow.f64 M #s(literal 3 binary64)))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 h #s(literal 5 binary64))))) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 D (*.f64 M (sqrt.f64 #s(literal -1 binary64)))) d) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 h l)))) (fma.f64 #s(literal 2 binary64) (*.f64 (/.f64 (*.f64 (pow.f64 d #s(literal 5 binary64)) (sqrt.f64 #s(literal -1 binary64))) (*.f64 (pow.f64 D #s(literal 5 binary64)) (pow.f64 M #s(literal 5 binary64)))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 7 binary64))))) (*.f64 (/.f64 (*.f64 d (sqrt.f64 #s(literal -1 binary64))) (*.f64 D M)) (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64)))))))))))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (*.f64 h (fma.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 (pow.f64 D #s(literal 2 binary64)) (pow.f64 M #s(literal 2 binary64))) (*.f64 (pow.f64 d #s(literal 2 binary64)) l)) (/.f64 #s(literal 1 binary64) h))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (/.f64 (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 d w0) (*.f64 D (*.f64 M (sqrt.f64 #s(literal -1/4 binary64))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) h))) (*.f64 (/.f64 (*.f64 D (*.f64 M (*.f64 w0 (sqrt.f64 #s(literal -1/4 binary64))))) d) (sqrt.f64 (*.f64 h l)))) l))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (/.f64 (fma.f64 (/.f64 (*.f64 D (*.f64 M (*.f64 w0 (sqrt.f64 #s(literal -1/4 binary64))))) d) (sqrt.f64 (*.f64 h l)) (*.f64 (pow.f64 l #s(literal 2 binary64)) (fma.f64 #s(literal -1/8 binary64) (*.f64 (/.f64 (*.f64 (pow.f64 d #s(literal 3 binary64)) w0) (*.f64 (pow.f64 D #s(literal 3 binary64)) (*.f64 (pow.f64 M #s(literal 3 binary64)) (*.f64 (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 #s(literal -1/4 binary64)))))) (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 d w0) (*.f64 D (*.f64 M (sqrt.f64 #s(literal -1/4 binary64))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 h l)))))))) l))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (/.f64 (fma.f64 (/.f64 (*.f64 D (*.f64 M (*.f64 w0 (sqrt.f64 #s(literal -1/4 binary64))))) d) (sqrt.f64 (*.f64 h l)) (*.f64 (pow.f64 l #s(literal 2 binary64)) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 d w0) (*.f64 D (*.f64 M (sqrt.f64 #s(literal -1/4 binary64))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 h l)))) (*.f64 (pow.f64 l #s(literal 2 binary64)) (fma.f64 #s(literal -1/8 binary64) (*.f64 (/.f64 (*.f64 (pow.f64 d #s(literal 3 binary64)) w0) (*.f64 (pow.f64 D #s(literal 3 binary64)) (*.f64 (pow.f64 M #s(literal 3 binary64)) (*.f64 (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 #s(literal -1/4 binary64)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (pow.f64 h #s(literal 3 binary64)) (pow.f64 l #s(literal 3 binary64)))))) (*.f64 #s(literal 1/16 binary64) (*.f64 (/.f64 (*.f64 (pow.f64 d #s(literal 5 binary64)) w0) (*.f64 (pow.f64 D #s(literal 5 binary64)) (*.f64 (pow.f64 M #s(literal 5 binary64)) (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 2 binary64)))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (pow.f64 h #s(literal 5 binary64)) l)))))))))) l))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (/.f64 (fma.f64 (/.f64 (*.f64 D (*.f64 M (*.f64 w0 (sqrt.f64 #s(literal -1/4 binary64))))) d) (sqrt.f64 (*.f64 h l)) (*.f64 (pow.f64 l #s(literal 2 binary64)) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 d w0) (*.f64 D (*.f64 M (sqrt.f64 #s(literal -1/4 binary64))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 h l)))) (*.f64 (pow.f64 l #s(literal 2 binary64)) (fma.f64 #s(literal -1/8 binary64) (*.f64 (/.f64 (*.f64 (pow.f64 d #s(literal 3 binary64)) w0) (*.f64 (pow.f64 D #s(literal 3 binary64)) (*.f64 (pow.f64 M #s(literal 3 binary64)) (*.f64 (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 #s(literal -1/4 binary64)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (pow.f64 h #s(literal 3 binary64)) (pow.f64 l #s(literal 3 binary64)))))) (*.f64 #s(literal 1/16 binary64) (*.f64 (/.f64 (*.f64 (pow.f64 d #s(literal 5 binary64)) w0) (*.f64 (pow.f64 D #s(literal 5 binary64)) (*.f64 (pow.f64 M #s(literal 5 binary64)) (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) (*.f64 (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 2 binary64)) (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) (sqrt.f64 #s(literal -1/4 binary64)))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (pow.f64 h #s(literal 5 binary64)) l)))))))))) l))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (/.f64 (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 d (*.f64 D (*.f64 M (sqrt.f64 #s(literal -1/4 binary64))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) h))) (*.f64 (/.f64 (*.f64 D (*.f64 M (sqrt.f64 #s(literal -1/4 binary64)))) d) (sqrt.f64 (*.f64 h l)))) l))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (/.f64 (fma.f64 (/.f64 (*.f64 D (*.f64 M (sqrt.f64 #s(literal -1/4 binary64)))) d) (sqrt.f64 (*.f64 h l)) (*.f64 (pow.f64 l #s(literal 2 binary64)) (fma.f64 #s(literal -1/8 binary64) (*.f64 (/.f64 (pow.f64 d #s(literal 3 binary64)) (*.f64 (pow.f64 D #s(literal 3 binary64)) (*.f64 (pow.f64 M #s(literal 3 binary64)) (*.f64 (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 #s(literal -1/4 binary64)))))) (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 d (*.f64 D (*.f64 M (sqrt.f64 #s(literal -1/4 binary64))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 h l)))))))) l))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (/.f64 (fma.f64 (/.f64 (*.f64 D (*.f64 M (sqrt.f64 #s(literal -1/4 binary64)))) d) (sqrt.f64 (*.f64 h l)) (*.f64 (pow.f64 l #s(literal 2 binary64)) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 d (*.f64 D (*.f64 M (sqrt.f64 #s(literal -1/4 binary64))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 h l)))) (*.f64 (pow.f64 l #s(literal 2 binary64)) (fma.f64 #s(literal -1/8 binary64) (*.f64 (/.f64 (pow.f64 d #s(literal 3 binary64)) (*.f64 (pow.f64 D #s(literal 3 binary64)) (*.f64 (pow.f64 M #s(literal 3 binary64)) (*.f64 (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 #s(literal -1/4 binary64)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (pow.f64 h #s(literal 3 binary64)) (pow.f64 l #s(literal 3 binary64)))))) (*.f64 #s(literal 1/16 binary64) (*.f64 (/.f64 (pow.f64 d #s(literal 5 binary64)) (*.f64 (pow.f64 D #s(literal 5 binary64)) (*.f64 (pow.f64 M #s(literal 5 binary64)) (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) (*.f64 (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 #s(literal -1/4 binary64)))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 (pow.f64 h #s(literal 5 binary64)) l)))))))))) l))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (/.f64 (-.f64 l (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 D #s(literal 2 binary64)) (*.f64 (pow.f64 M #s(literal 2 binary64)) h)) (pow.f64 d #s(literal 2 binary64))))) l))
#s(approx (* (pow d 2) l) (*.f64 (pow.f64 d #s(literal 2 binary64)) l))
#s(approx l l)
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (+.f64 w0 (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 (pow.f64 D #s(literal 2 binary64)) (*.f64 (pow.f64 M #s(literal 2 binary64)) (*.f64 h w0))) (*.f64 (pow.f64 d #s(literal 2 binary64)) l)) (*.f64 #s(literal -1/128 binary64) (/.f64 (*.f64 (pow.f64 D #s(literal 4 binary64)) (*.f64 (pow.f64 M #s(literal 4 binary64)) (*.f64 (pow.f64 h #s(literal 2 binary64)) w0))) (*.f64 (pow.f64 d #s(literal 4 binary64)) (pow.f64 l #s(literal 2 binary64))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (+.f64 w0 (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 (pow.f64 D #s(literal 2 binary64)) (*.f64 (pow.f64 M #s(literal 2 binary64)) (*.f64 h w0))) (*.f64 (pow.f64 d #s(literal 2 binary64)) l)) (fma.f64 #s(literal -1/128 binary64) (/.f64 (*.f64 (pow.f64 D #s(literal 4 binary64)) (*.f64 (pow.f64 M #s(literal 4 binary64)) (*.f64 (pow.f64 h #s(literal 2 binary64)) w0))) (*.f64 (pow.f64 d #s(literal 4 binary64)) (pow.f64 l #s(literal 2 binary64)))) (*.f64 #s(literal -1/1024 binary64) (/.f64 (*.f64 (pow.f64 D #s(literal 6 binary64)) (*.f64 (pow.f64 M #s(literal 6 binary64)) (*.f64 (pow.f64 h #s(literal 3 binary64)) w0))) (*.f64 (pow.f64 d #s(literal 6 binary64)) (pow.f64 l #s(literal 3 binary64)))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 (pow.f64 D #s(literal 2 binary64)) (*.f64 (pow.f64 M #s(literal 2 binary64)) h)) (*.f64 (pow.f64 d #s(literal 2 binary64)) l)) (*.f64 #s(literal -1/128 binary64) (/.f64 (*.f64 (pow.f64 D #s(literal 4 binary64)) (*.f64 (pow.f64 M #s(literal 4 binary64)) (pow.f64 h #s(literal 2 binary64)))) (*.f64 (pow.f64 d #s(literal 4 binary64)) (pow.f64 l #s(literal 2 binary64))))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 (pow.f64 D #s(literal 2 binary64)) (*.f64 (pow.f64 M #s(literal 2 binary64)) h)) (*.f64 (pow.f64 d #s(literal 2 binary64)) l)) (fma.f64 #s(literal -1/128 binary64) (/.f64 (*.f64 (pow.f64 D #s(literal 4 binary64)) (*.f64 (pow.f64 M #s(literal 4 binary64)) (pow.f64 h #s(literal 2 binary64)))) (*.f64 (pow.f64 d #s(literal 4 binary64)) (pow.f64 l #s(literal 2 binary64)))) (*.f64 #s(literal -1/1024 binary64) (/.f64 (*.f64 (pow.f64 D #s(literal 6 binary64)) (*.f64 (pow.f64 M #s(literal 6 binary64)) (pow.f64 h #s(literal 3 binary64)))) (*.f64 (pow.f64 d #s(literal 6 binary64)) (pow.f64 l #s(literal 3 binary64)))))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (+.f64 w0 (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/128 binary64) (/.f64 (*.f64 (pow.f64 D #s(literal 4 binary64)) (*.f64 (pow.f64 M #s(literal 4 binary64)) (*.f64 (pow.f64 h #s(literal 2 binary64)) w0))) (*.f64 (pow.f64 d #s(literal 4 binary64)) l)) (*.f64 #s(literal 1/8 binary64) (/.f64 (*.f64 (pow.f64 D #s(literal 2 binary64)) (*.f64 (pow.f64 M #s(literal 2 binary64)) (*.f64 h w0))) (pow.f64 d #s(literal 2 binary64))))) l))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (+.f64 w0 (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/128 binary64) (/.f64 (*.f64 (pow.f64 D #s(literal 4 binary64)) (*.f64 (pow.f64 M #s(literal 4 binary64)) (*.f64 (pow.f64 h #s(literal 2 binary64)) w0))) (pow.f64 d #s(literal 4 binary64))) (*.f64 #s(literal -1/1024 binary64) (/.f64 (*.f64 (pow.f64 D #s(literal 6 binary64)) (*.f64 (pow.f64 M #s(literal 6 binary64)) (*.f64 (pow.f64 h #s(literal 3 binary64)) w0))) (*.f64 (pow.f64 d #s(literal 6 binary64)) l)))) l) (*.f64 #s(literal 1/8 binary64) (/.f64 (*.f64 (pow.f64 D #s(literal 2 binary64)) (*.f64 (pow.f64 M #s(literal 2 binary64)) (*.f64 h w0))) (pow.f64 d #s(literal 2 binary64))))) l))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/128 binary64) (/.f64 (*.f64 (pow.f64 D #s(literal 4 binary64)) (*.f64 (pow.f64 M #s(literal 4 binary64)) (pow.f64 h #s(literal 2 binary64)))) (*.f64 (pow.f64 d #s(literal 4 binary64)) l)) (*.f64 #s(literal 1/8 binary64) (/.f64 (*.f64 (pow.f64 D #s(literal 2 binary64)) (*.f64 (pow.f64 M #s(literal 2 binary64)) h)) (pow.f64 d #s(literal 2 binary64))))) l))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/128 binary64) (/.f64 (*.f64 (pow.f64 D #s(literal 4 binary64)) (*.f64 (pow.f64 M #s(literal 4 binary64)) (pow.f64 h #s(literal 2 binary64)))) (pow.f64 d #s(literal 4 binary64))) (*.f64 #s(literal -1/1024 binary64) (/.f64 (*.f64 (pow.f64 D #s(literal 6 binary64)) (*.f64 (pow.f64 M #s(literal 6 binary64)) (pow.f64 h #s(literal 3 binary64)))) (*.f64 (pow.f64 d #s(literal 6 binary64)) l)))) l) (*.f64 #s(literal 1/8 binary64) (/.f64 (*.f64 (pow.f64 D #s(literal 2 binary64)) (*.f64 (pow.f64 M #s(literal 2 binary64)) h)) (pow.f64 d #s(literal 2 binary64))))) l))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (/.f64 (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (*.f64 (pow.f64 d #s(literal 2 binary64)) w0) (*.f64 D (*.f64 M (sqrt.f64 #s(literal -1/4 binary64))))) (sqrt.f64 (/.f64 l h))) (*.f64 (*.f64 D (*.f64 M (*.f64 w0 (sqrt.f64 #s(literal -1/4 binary64))))) (sqrt.f64 (/.f64 h l)))) d))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (/.f64 (fma.f64 (*.f64 D (*.f64 M (*.f64 w0 (sqrt.f64 #s(literal -1/4 binary64))))) (sqrt.f64 (/.f64 h l)) (*.f64 (pow.f64 d #s(literal 2 binary64)) (fma.f64 #s(literal -1/8 binary64) (*.f64 (/.f64 (*.f64 (pow.f64 d #s(literal 2 binary64)) w0) (*.f64 (pow.f64 D #s(literal 3 binary64)) (*.f64 (pow.f64 M #s(literal 3 binary64)) (*.f64 (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 #s(literal -1/4 binary64)))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 h #s(literal 3 binary64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 w0 (*.f64 D (*.f64 M (sqrt.f64 #s(literal -1/4 binary64))))) (sqrt.f64 (/.f64 l h))))))) d))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (/.f64 (fma.f64 (*.f64 D (*.f64 M (*.f64 w0 (sqrt.f64 #s(literal -1/4 binary64))))) (sqrt.f64 (/.f64 h l)) (*.f64 (pow.f64 d #s(literal 2 binary64)) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 w0 (*.f64 D (*.f64 M (sqrt.f64 #s(literal -1/4 binary64))))) (sqrt.f64 (/.f64 l h))) (*.f64 (pow.f64 d #s(literal 2 binary64)) (fma.f64 #s(literal -1/8 binary64) (*.f64 (/.f64 w0 (*.f64 (pow.f64 D #s(literal 3 binary64)) (*.f64 (pow.f64 M #s(literal 3 binary64)) (*.f64 (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 #s(literal -1/4 binary64)))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 h #s(literal 3 binary64))))) (*.f64 #s(literal 1/16 binary64) (*.f64 (/.f64 (*.f64 (pow.f64 d #s(literal 2 binary64)) w0) (*.f64 (pow.f64 D #s(literal 5 binary64)) (*.f64 (pow.f64 M #s(literal 5 binary64)) (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) (*.f64 (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 2 binary64)) (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) (sqrt.f64 #s(literal -1/4 binary64)))))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 5 binary64))))))))))) d))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (/.f64 (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 (pow.f64 d #s(literal 2 binary64)) (*.f64 D (*.f64 M (sqrt.f64 #s(literal -1/4 binary64))))) (sqrt.f64 (/.f64 l h))) (*.f64 (*.f64 D (*.f64 M (sqrt.f64 #s(literal -1/4 binary64)))) (sqrt.f64 (/.f64 h l)))) d))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (/.f64 (fma.f64 (*.f64 D (*.f64 M (sqrt.f64 #s(literal -1/4 binary64)))) (sqrt.f64 (/.f64 h l)) (*.f64 (pow.f64 d #s(literal 2 binary64)) (fma.f64 #s(literal -1/8 binary64) (*.f64 (/.f64 (pow.f64 d #s(literal 2 binary64)) (*.f64 (pow.f64 D #s(literal 3 binary64)) (*.f64 (pow.f64 M #s(literal 3 binary64)) (*.f64 (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 2 binary64)) (sqrt.f64 #s(literal -1/4 binary64)))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 h #s(literal 3 binary64))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 D (*.f64 M (sqrt.f64 #s(literal -1/4 binary64))))) (sqrt.f64 (/.f64 l h))))))) d))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (/.f64 (fma.f64 (*.f64 D (*.f64 M (sqrt.f64 #s(literal -1/4 binary64)))) (sqrt.f64 (/.f64 h l)) (*.f64 (pow.f64 d #s(literal 2 binary64)) (fma.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 D (*.f64 M (sqrt.f64 #s(literal -1/4 binary64))))) (sqrt.f64 (/.f64 l h))) (*.f64 (pow.f64 d #s(literal 2 binary64)) (fma.f64 #s(literal -1/8 binary64) (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (pow.f64 D #s(literal 3 binary64)) (*.f64 (pow.f64 M #s(literal 3 binary64)) (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 2 binary64)))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 h #s(literal 3 binary64))))) (*.f64 #s(literal 1/16 binary64) (*.f64 (/.f64 (pow.f64 d #s(literal 2 binary64)) (*.f64 (pow.f64 D #s(literal 5 binary64)) (*.f64 (pow.f64 M #s(literal 5 binary64)) (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) (*.f64 (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 2 binary64)) (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) (sqrt.f64 #s(literal -1/4 binary64)))))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 5 binary64))))))))))) d))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (/.f64 (-.f64 (pow.f64 d #s(literal 2 binary64)) (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (pow.f64 D #s(literal 2 binary64)) (*.f64 (pow.f64 M #s(literal 2 binary64)) h)) l))) (pow.f64 d #s(literal 2 binary64))))
#s(approx (pow d 2) (pow.f64 d #s(literal 2 binary64)))
#s(approx d d)

eval15.0ms (0.3%)

Memory
-12.5MiB live, 32.5MiB allocated; 6ms collecting garbage
Compiler

Compiled 3 913 to 915 computations (76.6% saved)

prune4.0ms (0.1%)

Memory
10.2MiB live, 10.2MiB allocated; 0ms collecting garbage
Pruning

3 alts after pruning (0 fresh and 3 done)

PrunedKeptTotal
New1090109
Fresh000
Picked022
Done011
Total1093112
Accuracy
90.8%
Counts
112 → 3
Alt Table
Click to see full alt table
StatusAccuracyProgram
✓84.9%
(*.f64 w0 (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 (pow.f64 (/.f64 (*.f64 M D) (*.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) (/.f64 h l)))))
✓12.7%
(*.f64 w0 (sqrt.f64 #s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (*.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 (pow.f64 D #s(literal 2 binary64)) (*.f64 (pow.f64 M #s(literal 2 binary64)) h)) (*.f64 (pow.f64 d #s(literal 2 binary64)) l))))))
✓73.0%
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) w0)
Compiler

Compiled 113 to 104 computations (8% saved)

regimes27.0ms (0.5%)

Memory
-19.4MiB live, 73.8MiB allocated; 5ms collecting garbage
Counts
3 → 2
Calls
Call 1
Inputs
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) w0)
(*.f64 w0 (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 (pow.f64 (/.f64 (*.f64 M D) (*.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) (/.f64 h l)))))
(*.f64 w0 (sqrt.f64 #s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (*.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 (pow.f64 D #s(literal 2 binary64)) (*.f64 (pow.f64 M #s(literal 2 binary64)) h)) (*.f64 (pow.f64 d #s(literal 2 binary64)) l))))))
Outputs
(*.f64 w0 (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 (pow.f64 (/.f64 (*.f64 M D) (*.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) (/.f64 h l)))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) w0)
Calls

15 calls:

5.0ms
l
2.0ms
(/.f64 (*.f64 M D) (*.f64 #s(literal 2 binary64) d))
2.0ms
h
2.0ms
(*.f64 w0 (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 (pow.f64 (/.f64 (*.f64 M D) (*.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) (/.f64 h l)))))
2.0ms
(*.f64 #s(literal 2 binary64) d)
Results
AccuracySegmentsBranch
84.9%1(/.f64 h l)
84.9%1(*.f64 #s(literal 2 binary64) d)
86.9%2(*.f64 M D)
88.7%2(/.f64 (*.f64 M D) (*.f64 #s(literal 2 binary64) d))
88.7%2(pow.f64 (/.f64 (*.f64 M D) (*.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64))
89.6%2(*.f64 (pow.f64 (/.f64 (*.f64 M D) (*.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) (/.f64 h l))
89.6%2(-.f64 #s(literal 1 binary64) (*.f64 (pow.f64 (/.f64 (*.f64 M D) (*.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) (/.f64 h l)))
89.6%2(sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 (pow.f64 (/.f64 (*.f64 M D) (*.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) (/.f64 h l))))
89.6%2(*.f64 w0 (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 (pow.f64 (/.f64 (*.f64 M D) (*.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) (/.f64 h l)))))
84.9%1w0
84.9%1M
87.0%2D
84.9%1h
84.9%1l
84.9%1d
Compiler

Compiled 93 to 140 computations (-50.5% saved)

regimes17.0ms (0.3%)

Memory
-0.6MiB live, 50.7MiB allocated; 6ms collecting garbage
Accuracy

Total 0.0b remaining (0%)

Threshold costs 0b (0%)

Counts
1 → 1
Calls
Call 1
Inputs
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) w0)
Outputs
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) w0)
Calls

15 calls:

3.0ms
M
1.0ms
(*.f64 w0 (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 (pow.f64 (/.f64 (*.f64 M D) (*.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) (/.f64 h l)))))
1.0ms
h
1.0ms
(*.f64 #s(literal 2 binary64) d)
1.0ms
l
Results
AccuracySegmentsBranch
73.0%1(/.f64 h l)
73.0%1w0
73.0%1h
73.0%1l
73.0%1(*.f64 #s(literal 2 binary64) d)
73.0%1M
73.0%1d
73.0%1(*.f64 M D)
73.0%1D
73.0%1(/.f64 (*.f64 M D) (*.f64 #s(literal 2 binary64) d))
73.0%1(pow.f64 (/.f64 (*.f64 M D) (*.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64))
73.0%1(*.f64 (pow.f64 (/.f64 (*.f64 M D) (*.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) (/.f64 h l))
73.0%1(-.f64 #s(literal 1 binary64) (*.f64 (pow.f64 (/.f64 (*.f64 M D) (*.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) (/.f64 h l)))
73.0%1(sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 (pow.f64 (/.f64 (*.f64 M D) (*.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) (/.f64 h l))))
73.0%1(*.f64 w0 (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 (pow.f64 (/.f64 (*.f64 M D) (*.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) (/.f64 h l)))))
Compiler

Compiled 93 to 140 computations (-50.5% saved)

bsearch0.0ms (0%)

Memory
0.6MiB live, 0.6MiB allocated; 0ms collecting garbage
Algorithm
1×left-value
Steps
TimeLeftRight
0.0ms
+inf
NaN
Compiler

Compiled 21 to 26 computations (-23.8% saved)

derivations2.0ms (0%)

Memory
3.7MiB live, 3.7MiB allocated; 0ms collecting garbage
Stop Event
1×done
Compiler

Compiled 33 to 32 computations (3% saved)

preprocess65.0ms (1.2%)

Memory
-5.5MiB live, 132.7MiB allocated; 17ms collecting garbage
Remove

(sort M D)

(negabs w0)

(abs d)

(abs D)

(abs M)

Compiler

Compiled 561 to 549 computations (2.1% saved)

end0.0ms (0%)

Memory
0.0MiB live, 0.0MiB allocated; 0ms collecting garbage

Profiling

Loading profile data...