Metrics for Henrywood and Agarwal, Equation (9a)

start0.0ms (0%)

Memory: 0.2MiB live, 0.2MiB allocated; 0ms collecting garbage

analyze719.0ms (7.9%)

Memory

-17.2MiB live, 815.6MiB allocated; 176ms collecting garbage

Algorithm

1×

Search

Probability	Valid	Unknown	Precondition	Infinite	Domain	Can't	Iter
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)

sample2.8s (30.9%)

Memory

-50.6MiB live, 2 895.6MiB allocated; 1.6s collecting garbage

Samples

1.7s	8 256×	0	valid
399.0ms	2 753×	0	invalid

Precisions

Click to see histograms. Total time spent on operations: 926.0ms

ival-mult: 394.0ms (42.6% of total)

ival-div: 197.0ms (21.3% of total)

ival-pow2: 140.0ms (15.1% of total)

ival-sqrt: 96.0ms (10.4% of total)

ival-sub: 71.0ms (7.7% of total)

exact: 12.0ms (1.3% of total)

ival-true: 8.0ms (0.9% of total)

ival-assert: 4.0ms (0.4% of total)

adjust: 3.0ms (0.3% of total)

Bogosity

explain228.0ms (2.5%)

Memory

-37.2MiB live, 296.6MiB allocated; 34ms collecting garbage

FPErrors

Click to see full error table

Ground Truth	Example	Underpredictions	Example	Subexpression
45	-	1	(-3233210073348305.0 -5.85364823776505e+142 -4.1730262042605374e-144 3.996264150693438e+115 -5.045852260321556e-150 1.3678376861872977e+157)	`(.f64 (pow.f64 (/.f64 (.f64 M D) (*.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) (/.f64 h l))`
32	-	4	(-2.740214317886812e+180 1.0697518144888116e-33 -1.5624667293180587e-288 1.3732214745848854e-128 6.66190224545913e+154 5.5887022951412374e-36)	`(/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d))`
25	-	0	-	`(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))))`
11	-	0	-	`(.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)))))`
0	-	0	-	`D`
0	-	0	-	`(*.f64 #s(literal 2 binary64) d)`
0	-	0	-	`(/.f64 h l)`
0	-	0	-	`(pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64))`
0	-	0	-	`d`
0	-	0	-	`#s(literal 1 binary64)`
0	-	0	-	`(*.f64 M D)`
0	-	0	-	`w0`
0	-	0	-	`(-.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)))`
0	-	0	-	`#s(literal 2 binary64)`
0	-	0	-	`l`
0	-	0	-	`M`
0	-	0	-	`h`

Explanations

Click to see full explanations table

Operator	Subexpression	Explanation	Count
`sqrt.f64`	`(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))))`	oflow-rescue	25	0
↳	`(pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64))`	overflow	51
↳	`(-.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)))`	overflow	54
↳	`(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))))`	overflow	29
↳	`(*.f64 M D)`	overflow	19
↳	`(/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d))`	overflow	21
↳	`(.f64 (pow.f64 (/.f64 (.f64 M D) (*.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) (/.f64 h l))`	overflow	54
↳	`(/.f64 h l)`	overflow	24
`/.f64`	`(/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d))`	o/n	11	0
↳	`(*.f64 M D)`	overflow	19
`*.f64`	`(.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)))))`	*no**	11	0
`*.f64`	`(.f64 (pow.f64 (/.f64 (.f64 M D) (*.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) (/.f64 h l))`	*no**	6	0
`*.f64`	`(.f64 (pow.f64 (/.f64 (.f64 M D) (*.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) (/.f64 h l))`	*ou**	1	0
↳	`(pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64))`	overflow	51
↳	`(*.f64 M D)`	overflow	19
↳	`(/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d))`	overflow	21
↳	`(/.f64 h l)`	underflow	42

Confusion

	Predicted +	Predicted -
+	36	15
-	13	192

Precision

0.7346938775510204

Recall

0.7058823529411765

Confusion?

	Predicted +	Predicted Maybe	Predicted -
+	36	0	15
-	13	0	192

Precision?

0.7346938775510204

Recall?

0.7058823529411765

Freqs

test

number	freq
0	207
1	44
2	5

Total Confusion?

	Predicted +	Predicted Maybe	Predicted -
+	1	0	0
-	0	0	0

Precision?

1.0

Recall?

1.0

Samples

88.0ms

512×

valid

Compiler

Compiled 212 to 55 computations (74.1% saved)

Precisions

Click to see histograms. Total time spent on operations: 57.0ms

ival-sub: 25.0ms (43.9% of total)

ival-mult: 12.0ms (21.1% of total)

ival-div: 8.0ms (14.1% of total)

ival-sqrt: 5.0ms (8.8% of total)

ival-pow2: 5.0ms (8.8% of total)

exact: 1.0ms (1.8% of total)

adjust: 0.0ms (0% of total)

ival-assert: 0.0ms (0% of total)

ival-true: 0.0ms (0% of total)

preprocess151.0ms (1.7%)

Memory

30.1MiB live, 216.2MiB allocated; 29ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	167	501
1	461	492
2	1474	492
3	4405	492
0	17	18
0	26	18
1	47	18
2	122	18
3	873	18
4	5428	18
0	8411	18

Stop Event

1×	iter limit
1×	node limit
1×	iter limit
1×	node limit

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)))))

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)))))

(*.f64 (sqrt.f64 (fma.f64 (/.f64 (neg.f64 h) l) (pow.f64 (*.f64 (/.f64 (/.f64 M d) #s(literal 2 binary64)) D) #s(literal 2 binary64)) #s(literal 1 binary64))) w0)

Symmetry

(abs d)

(abs D)

(abs M)

(negabs w0)

(sort M D)

Compiler

Compiled 18 to 17 computations (5.6% saved)

eval0.0ms (0%)

Memory: 0.0MiB live, 0.0MiB allocated; 0ms collecting garbage
Compiler: Compiled 0 to 6 computations (-∞% saved)

prune0.0ms (0%)

Memory

0.5MiB live, 0.5MiB allocated; 0ms collecting garbage

Alt Table

Click to see full alt table

Status	Accuracy	Program
▶	80.6%	(.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 18 to 17 computations (5.6% saved)

simplify92.0ms (1%)

Memory

-17.7MiB live, 118.1MiB allocated; 10ms collecting garbage

Localize:

Found 4 expressions of interest:

New	Metric	Score	Program
cost-diff	0	(.f64 (pow.f64 (/.f64 (.f64 M D) (*.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) (/.f64 h l))
cost-diff	0	(-.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)))
cost-diff	0	(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))))
cost-diff	0	(.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)))))

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	17	95
0	26	95
1	47	95
2	122	95
3	873	95
4	5428	95
0	8411	95

Stop Event

1×	iter limit
1×	node limit
1×	iter limit

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
(.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 (sqrt.f64 (fma.f64 (/.f64 (neg.f64 h) l) (pow.f64 (.f64 (/.f64 (/.f64 M d) #s(literal 2 binary64)) D) #s(literal 2 binary64)) #s(literal 1 binary64))) w0)
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))))
(sqrt.f64 (fma.f64 (/.f64 (neg.f64 h) l) (pow.f64 (*.f64 (/.f64 (/.f64 M d) #s(literal 2 binary64)) D) #s(literal 2 binary64)) #s(literal 1 binary64)))
(-.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)))
(fma.f64 (/.f64 (neg.f64 h) l) (pow.f64 (*.f64 (/.f64 (/.f64 M d) #s(literal 2 binary64)) D) #s(literal 2 binary64)) #s(literal 1 binary64))
#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 (/.f64 h l) (pow.f64 (.f64 (/.f64 (/.f64 M d) #s(literal 2 binary64)) D) #s(literal 2 binary64)))
(pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64))
(pow.f64 (*.f64 (/.f64 (/.f64 M d) #s(literal 2 binary64)) D) #s(literal 2 binary64))
(/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d))
(*.f64 (/.f64 (/.f64 M d) #s(literal 2 binary64)) D)
(*.f64 M D)
(*.f64 D M)
M
D
(*.f64 #s(literal 2 binary64) d)
(*.f64 d #s(literal 2 binary64))
#s(literal 2 binary64)
d
(/.f64 h l)
h
l

localize61.0ms (0.7%)

Memory

31.9MiB live, 88.6MiB allocated; 17ms collecting garbage

Localize:

Found 4 expressions of interest:

New	Metric	Score
accuracy	2.614689582928147	(.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)))))
accuracy	5.860770706292823	(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))))
accuracy	7.098739427432047	(/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d))
accuracy	10.606401138375288	(.f64 (pow.f64 (/.f64 (.f64 M D) (*.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) (/.f64 h l))

Samples

52.0ms

256×

valid

Compiler

Compiled 97 to 19 computations (80.4% saved)

Precisions

Click to see histograms. Total time spent on operations: 15.0ms

ival-mult: 6.0ms (39.3% of total)

ival-div: 3.0ms (19.6% of total)

ival-sqrt: 2.0ms (13.1% of total)

ival-pow2: 2.0ms (13.1% of total)

ival-sub: 1.0ms (6.5% of total)

adjust: 0.0ms (0% of total)

ival-assert: 0.0ms (0% of total)

ival-true: 0.0ms (0% of total)

exact: 0.0ms (0% of total)

series70.0ms (0.8%)

Memory

-13.1MiB live, 124.9MiB allocated; 15ms collecting garbage

Counts

5 → 90

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)))))
(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)))
(.f64 (pow.f64 (/.f64 (.f64 M D) (*.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) (/.f64 h l))
(/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d))

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 (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 (/ (* M D) (* 2 d)) #s(hole binary64 (* 1/2 (/ (* D M) d))))
#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) 3)))) (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) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 5) (* (pow M 6) (pow (sqrt -1/4) 5)))) (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) 3)))) (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) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (pow d 5) (* (pow D 5) (* (pow M 6) (pow (sqrt -1/4) 5)))) (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) (pow (sqrt -1/4) 3)))) (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) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 5) (* (pow M 6) (pow (sqrt -1/4) 5)))) (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) 3)))) (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) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (pow d 5) (* (pow D 5) (* (pow M 6) (pow (sqrt -1/4) 5)))) (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 (* 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) 3)))) (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) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 6) (* (pow M 5) (pow (sqrt -1/4) 5)))) (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) 3)))) (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) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (pow d 5) (* (pow D 6) (* (pow M 5) (pow (sqrt -1/4) 5)))) (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) 3)))) (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) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 6) (* (pow M 5) (pow (sqrt -1/4) 5)))) (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) 3)))) (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) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (pow d 5) (* (pow D 6) (* (pow M 5) (pow (sqrt -1/4) 5)))) (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 (* 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) 3)))) (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) 3)))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/4) 5)))) (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) 3)))) (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) 3)))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/16 (* (/ (pow d 5) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/4) 5)))) (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) 3)))) (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) 3)))) (sqrt (/ 1 (* (pow h 3) (pow l 3)))))) (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/4) 5)))) (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) 3)))) (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) 3)))) (sqrt (/ 1 (* (pow h 3) (pow l 3)))))) (* 1/16 (* (/ (pow d 5) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/4) 5)))) (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 (* 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) 3)))) (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) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (* 1/16 (* (/ (* (pow d 2) w0) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/4) 5)))) (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) 3)))) (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) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (* 1/16 (* (/ (pow d 2) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/4) 5)))) (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))))

Calls

18 calls:

Time	Variable		Point	Expression
7.0ms	w0	@	0	((* 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))) (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)) (/ (* M D) (* 2 d)))
7.0ms	h	@	inf	((* 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))) (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)) (/ (* M D) (* 2 d)))
5.0ms	M	@	inf	((* 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))) (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)) (/ (* M D) (* 2 d)))
5.0ms	D	@	0	((* 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))) (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)) (/ (* M D) (* 2 d)))
5.0ms	l	@	inf	((* 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))) (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)) (/ (* M D) (* 2 d)))

simplify180.0ms (2%)

Memory

8.0MiB live, 192.1MiB allocated; 22ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	724	5980
1	2526	5924
0	8599	5778

Stop Event

1×	iter limit
1×	node limit

Counts

90 → 90

Calls

Call 1

Inputs
#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 (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 (/ (* M D) (* 2 d)) #s(hole binary64 (* 1/2 (/ (* D M) d))))
#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) 3)))) (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) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 5) (* (pow M 6) (pow (sqrt -1/4) 5)))) (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) 3)))) (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) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (pow d 5) (* (pow D 5) (* (pow M 6) (pow (sqrt -1/4) 5)))) (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) (pow (sqrt -1/4) 3)))) (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) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 5) (* (pow M 6) (pow (sqrt -1/4) 5)))) (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) 3)))) (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) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (pow d 5) (* (pow D 5) (* (pow M 6) (pow (sqrt -1/4) 5)))) (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 (* 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) 3)))) (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) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 6) (* (pow M 5) (pow (sqrt -1/4) 5)))) (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) 3)))) (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) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (pow d 5) (* (pow D 6) (* (pow M 5) (pow (sqrt -1/4) 5)))) (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) 3)))) (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) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 6) (* (pow M 5) (pow (sqrt -1/4) 5)))) (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) 3)))) (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) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (pow d 5) (* (pow D 6) (* (pow M 5) (pow (sqrt -1/4) 5)))) (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 (* 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) 3)))) (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) 3)))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/4) 5)))) (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) 3)))) (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) 3)))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/16 (* (/ (pow d 5) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/4) 5)))) (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) 3)))) (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) 3)))) (sqrt (/ 1 (* (pow h 3) (pow l 3)))))) (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/4) 5)))) (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) 3)))) (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) 3)))) (sqrt (/ 1 (* (pow h 3) (pow l 3)))))) (* 1/16 (* (/ (pow d 5) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/4) 5)))) (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 (* 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) 3)))) (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) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (* 1/16 (* (/ (* (pow d 2) w0) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/4) 5)))) (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) 3)))) (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) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (* 1/16 (* (/ (pow d 2) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/4) 5)))) (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))))

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 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (.f64 (sqrt.f64 (fma.f64 (.f64 #s(literal -1/4 binary64) (.f64 D D)) (.f64 (/.f64 h (.f64 d d)) (/.f64 (.f64 M M) l)) #s(literal 1 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))))) 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))))) (fma.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) (.f64 (/.f64 (.f64 (.f64 M M) h) l) (/.f64 w0 (.f64 d d))) w0))
#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))))) (fma.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (.f64 (/.f64 w0 (.f64 d d)) (/.f64 h l)) (.f64 (.f64 #s(literal -1/128 binary64) (pow.f64 D #s(literal 4 binary64))) (.f64 (.f64 (/.f64 (.f64 h h) l) (/.f64 (.f64 M M) l)) (/.f64 w0 (pow.f64 d #s(literal 4 binary64)))))) (*.f64 M M) w0))
#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 (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/128 binary64) (pow.f64 D #s(literal 4 binary64))) (.f64 (/.f64 w0 (pow.f64 d #s(literal 4 binary64))) (.f64 (/.f64 h l) (/.f64 h l))) (.f64 (.f64 #s(literal -1/1024 binary64) (pow.f64 D #s(literal 6 binary64))) (.f64 (/.f64 (.f64 (.f64 (pow.f64 h #s(literal 3 binary64)) M) M) (pow.f64 l #s(literal 3 binary64))) (/.f64 w0 (pow.f64 d #s(literal 6 binary64)))))) (.f64 M M) (/.f64 (.f64 (.f64 #s(literal -1/8 binary64) (.f64 (.f64 D D) h)) w0) (.f64 (.f64 d d) l))) (.f64 M M) w0))
#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(literal 1 binary64))
#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)))) (fma.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) (.f64 (/.f64 h (.f64 d d)) (/.f64 (*.f64 M M) l)) #s(literal 1 binary64)))
#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)))) (fma.f64 (fma.f64 (.f64 #s(literal -1/128 binary64) (pow.f64 D #s(literal 4 binary64))) (/.f64 (.f64 (.f64 (.f64 M M) h) h) (.f64 (.f64 (pow.f64 d #s(literal 4 binary64)) l) l)) (.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (/.f64 h (.f64 (.f64 d d) l)))) (.f64 M M) #s(literal 1 binary64)))
#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 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/128 binary64) (pow.f64 D #s(literal 4 binary64))) (.f64 (/.f64 h (pow.f64 d #s(literal 4 binary64))) (/.f64 h (.f64 l l))) (.f64 (.f64 #s(literal -1/1024 binary64) (pow.f64 D #s(literal 6 binary64))) (/.f64 (.f64 (.f64 (pow.f64 h #s(literal 3 binary64)) M) M) (.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 d #s(literal 6 binary64)))))) (.f64 M M) (.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (/.f64 h (.f64 (.f64 d d) l)))) (*.f64 M M) #s(literal 1 binary64)))
#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(literal 1 binary64))
#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 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 #s(literal -1/4 binary64) (.f64 D D)) (.f64 (/.f64 h (.f64 d d)) (/.f64 (*.f64 M M) l)) #s(literal 1 binary64)))
#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) (/ h l)) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 D D)) (.f64 (/.f64 h (.f64 d d)) (/.f64 (.f64 M M) l))))
#s(approx (/ (* M D) (* 2 d)) #s(hole binary64 (* 1/2 (/ (* D M) d))))
#s(approx (/ (* M D) (* 2 d)) (.f64 (/.f64 (.f64 D M) d) #s(literal 1/2 binary64)))
#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))))) (.f64 (sqrt.f64 (/.f64 h l)) (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) M) D) d)))
#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))))) (.f64 (fma.f64 (.f64 (/.f64 (.f64 d w0) (.f64 (.f64 D M) M)) (/.f64 (sqrt.f64 (/.f64 l h)) (sqrt.f64 #s(literal -1/4 binary64)))) #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) D) d) (sqrt.f64 (/.f64 h l)))) M))
#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) 3)))) (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))))) (.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64)))) (.f64 (/.f64 w0 (.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) #s(literal -1/4 binary64)) (sqrt.f64 #s(literal -1/4 binary64)))) (pow.f64 (/.f64 d D) #s(literal 3 binary64))) (fma.f64 (.f64 (/.f64 (.f64 d w0) (.f64 (.f64 D M) M)) (/.f64 (sqrt.f64 (/.f64 l h)) (sqrt.f64 #s(literal -1/4 binary64)))) #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) D) d) (sqrt.f64 (/.f64 h l))))) M))
#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) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 5) (* (pow M 6) (pow (sqrt -1/4) 5)))) (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))))) (.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64)))) (.f64 (/.f64 w0 (.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) #s(literal -1/4 binary64)) (sqrt.f64 #s(literal -1/4 binary64)))) (pow.f64 (/.f64 d D) #s(literal 3 binary64))) (fma.f64 (.f64 #s(literal 1/16 binary64) (/.f64 (.f64 (pow.f64 d #s(literal 5 binary64)) w0) (.f64 (.f64 (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 5 binary64)) (pow.f64 M #s(literal 6 binary64))) (pow.f64 D #s(literal 5 binary64))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 5 binary64)))) (fma.f64 (.f64 (/.f64 (.f64 d w0) (.f64 (.f64 D M) M)) (/.f64 (sqrt.f64 (/.f64 l h)) (sqrt.f64 #s(literal -1/4 binary64)))) #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) D) d) (sqrt.f64 (/.f64 h l)))))) M))
#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)))) (.f64 (/.f64 (.f64 (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) d) (sqrt.f64 (/.f64 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)))) (.f64 (fma.f64 (.f64 (/.f64 d (.f64 (.f64 D M) M)) (/.f64 (sqrt.f64 (/.f64 l h)) (sqrt.f64 #s(literal -1/4 binary64)))) #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) D) d) (sqrt.f64 (/.f64 h l)))) M))
#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) 3)))) (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)))) (.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64)))) (/.f64 (pow.f64 (/.f64 d D) #s(literal 3 binary64)) (.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) #s(literal -1/4 binary64)) (sqrt.f64 #s(literal -1/4 binary64)))) (fma.f64 (.f64 (/.f64 d (.f64 (.f64 D M) M)) (/.f64 (sqrt.f64 (/.f64 l h)) (sqrt.f64 #s(literal -1/4 binary64)))) #s(literal 1/2 binary64) (.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) D) d) (sqrt.f64 (/.f64 h l))))) M))
#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) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (pow d 5) (* (pow D 5) (* (pow M 6) (pow (sqrt -1/4) 5)))) (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 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64)))) (/.f64 (pow.f64 (/.f64 d D) #s(literal 3 binary64)) (.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) #s(literal -1/4 binary64)) (sqrt.f64 #s(literal -1/4 binary64)))) (fma.f64 (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 d #s(literal 5 binary64)) (.f64 (.f64 (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 5 binary64)) (pow.f64 M #s(literal 6 binary64))) (pow.f64 D #s(literal 5 binary64))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 5 binary64)))) (fma.f64 (.f64 (/.f64 d (.f64 (.f64 D M) M)) (/.f64 (sqrt.f64 (/.f64 l h)) (sqrt.f64 #s(literal -1/4 binary64)))) #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) D) d) (sqrt.f64 (/.f64 h l)))))) M))
#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))) (.f64 (.f64 #s(literal -1/4 binary64) (.f64 D D)) (.f64 (/.f64 h (.f64 d d)) (/.f64 (.f64 M M) 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 (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (.f64 (-.f64 (/.f64 #s(literal 1 binary64) (.f64 M M)) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 D D)) (/.f64 h (.f64 (.f64 d d) l)))) (.f64 M M)))
#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))))) (.f64 (.f64 (neg.f64 D) (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) M) d)) (sqrt.f64 (/.f64 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))))) (.f64 (neg.f64 M) (fma.f64 (.f64 (/.f64 (.f64 d w0) (.f64 (.f64 D M) M)) (/.f64 (sqrt.f64 (/.f64 l h)) (sqrt.f64 #s(literal -1/4 binary64)))) #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) D) d) (sqrt.f64 (/.f64 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) (pow (sqrt -1/4) 3)))) (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))))) (.f64 (neg.f64 M) (fma.f64 (.f64 #s(literal -1/8 binary64) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64)))) (.f64 (/.f64 w0 (.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) #s(literal -1/4 binary64)) (sqrt.f64 #s(literal -1/4 binary64)))) (pow.f64 (/.f64 d D) #s(literal 3 binary64))) (fma.f64 (.f64 (/.f64 (.f64 d w0) (.f64 (.f64 D M) M)) (/.f64 (sqrt.f64 (/.f64 l h)) (sqrt.f64 #s(literal -1/4 binary64)))) #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) D) d) (sqrt.f64 (/.f64 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) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 5) (* (pow M 6) (pow (sqrt -1/4) 5)))) (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))))) (.f64 (neg.f64 M) (fma.f64 (.f64 #s(literal -1/8 binary64) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64)))) (.f64 (/.f64 w0 (.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) #s(literal -1/4 binary64)) (sqrt.f64 #s(literal -1/4 binary64)))) (pow.f64 (/.f64 d D) #s(literal 3 binary64))) (fma.f64 (.f64 #s(literal 1/16 binary64) (/.f64 (.f64 (pow.f64 d #s(literal 5 binary64)) w0) (.f64 (.f64 (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 5 binary64)) (pow.f64 M #s(literal 6 binary64))) (pow.f64 D #s(literal 5 binary64))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 5 binary64)))) (fma.f64 (.f64 (/.f64 (.f64 d w0) (.f64 (.f64 D M) M)) (/.f64 (sqrt.f64 (/.f64 l h)) (sqrt.f64 #s(literal -1/4 binary64)))) #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) D) d) (sqrt.f64 (/.f64 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)))) (.f64 (.f64 (neg.f64 D) (/.f64 (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) d)) (sqrt.f64 (/.f64 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)))) (.f64 (neg.f64 M) (fma.f64 (.f64 (/.f64 d (.f64 (.f64 D M) M)) (/.f64 (sqrt.f64 (/.f64 l h)) (sqrt.f64 #s(literal -1/4 binary64)))) #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) D) d) (sqrt.f64 (/.f64 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) 3)))) (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)))) (.f64 (neg.f64 M) (fma.f64 (.f64 #s(literal -1/8 binary64) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64)))) (/.f64 (pow.f64 (/.f64 d D) #s(literal 3 binary64)) (.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) #s(literal -1/4 binary64)) (sqrt.f64 #s(literal -1/4 binary64)))) (fma.f64 (.f64 (/.f64 d (.f64 (.f64 D M) M)) (/.f64 (sqrt.f64 (/.f64 l h)) (sqrt.f64 #s(literal -1/4 binary64)))) #s(literal 1/2 binary64) (.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) D) d) (sqrt.f64 (/.f64 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) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (pow d 5) (* (pow D 5) (* (pow M 6) (pow (sqrt -1/4) 5)))) (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 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (.f64 (neg.f64 M) (fma.f64 (.f64 #s(literal -1/8 binary64) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64)))) (/.f64 (pow.f64 (/.f64 d D) #s(literal 3 binary64)) (.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) #s(literal -1/4 binary64)) (sqrt.f64 #s(literal -1/4 binary64)))) (fma.f64 (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 d #s(literal 5 binary64)) (.f64 (.f64 (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 5 binary64)) (pow.f64 M #s(literal 6 binary64))) (pow.f64 D #s(literal 5 binary64))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 5 binary64)))) (fma.f64 (.f64 (/.f64 d (.f64 (.f64 D M) M)) (/.f64 (sqrt.f64 (/.f64 l h)) (sqrt.f64 #s(literal -1/4 binary64)))) #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) D) d) (sqrt.f64 (/.f64 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))))) (fma.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 M M)) (.f64 (/.f64 w0 (.f64 d d)) (/.f64 h l)) (.f64 (/.f64 #s(literal -1/128 binary64) (.f64 l l)) (/.f64 (.f64 (.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) w0) (.f64 h h)) (.f64 D D)) (pow.f64 d #s(literal 4 binary64))))) (.f64 D D) w0))
#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 (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/128 binary64) (pow.f64 M #s(literal 4 binary64))) (.f64 (/.f64 w0 (pow.f64 d #s(literal 4 binary64))) (.f64 (/.f64 h l) (/.f64 h l))) (.f64 (.f64 #s(literal -1/1024 binary64) (.f64 D D)) (.f64 (/.f64 (.f64 (pow.f64 M #s(literal 6 binary64)) (pow.f64 h #s(literal 3 binary64))) (pow.f64 l #s(literal 3 binary64))) (/.f64 w0 (pow.f64 d #s(literal 6 binary64)))))) (.f64 D D) (.f64 (/.f64 #s(literal -1/8 binary64) (.f64 d d)) (/.f64 (.f64 (.f64 (.f64 M M) h) w0) l))) (*.f64 D D) w0))
#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)))) (fma.f64 (fma.f64 (/.f64 #s(literal -1/128 binary64) (.f64 l l)) (/.f64 (.f64 (.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) h) h) (.f64 D D)) (pow.f64 d #s(literal 4 binary64))) (.f64 (.f64 #s(literal -1/8 binary64) (.f64 M M)) (/.f64 h (.f64 (.f64 d d) l)))) (*.f64 D D) #s(literal 1 binary64)))
#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 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/128 binary64) (pow.f64 M #s(literal 4 binary64))) (.f64 (/.f64 h (pow.f64 d #s(literal 4 binary64))) (/.f64 h (.f64 l l))) (.f64 (/.f64 #s(literal -1/1024 binary64) (pow.f64 l #s(literal 3 binary64))) (/.f64 (.f64 (.f64 (pow.f64 M #s(literal 6 binary64)) (pow.f64 h #s(literal 3 binary64))) (.f64 D D)) (pow.f64 d #s(literal 6 binary64))))) (.f64 D D) (.f64 (.f64 #s(literal -1/8 binary64) (.f64 M M)) (/.f64 h (.f64 (.f64 d d) l)))) (.f64 D D) #s(literal 1 binary64)))
#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))))) (.f64 (fma.f64 (.f64 (.f64 #s(literal 1/2 binary64) (/.f64 d (.f64 D D))) (/.f64 w0 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M))) (sqrt.f64 (/.f64 l h)) (.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) M) d) (sqrt.f64 (/.f64 h l)))) D))
#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) 3)))) (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))))) (.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64)))) (/.f64 (.f64 (pow.f64 d #s(literal 3 binary64)) w0) (.f64 (pow.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) #s(literal 3 binary64)) (pow.f64 D #s(literal 4 binary64)))) (fma.f64 (.f64 (.f64 #s(literal 1/2 binary64) (/.f64 d (.f64 D D))) (/.f64 w0 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M))) (sqrt.f64 (/.f64 l h)) (.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) M) d) (sqrt.f64 (/.f64 h l))))) D))
#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) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 6) (* (pow M 5) (pow (sqrt -1/4) 5)))) (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))))) (.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64)))) (/.f64 (.f64 (pow.f64 d #s(literal 3 binary64)) w0) (.f64 (pow.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) #s(literal 3 binary64)) (pow.f64 D #s(literal 4 binary64)))) (fma.f64 (.f64 #s(literal 1/16 binary64) (/.f64 (.f64 (pow.f64 d #s(literal 5 binary64)) w0) (.f64 (.f64 (pow.f64 M #s(literal 5 binary64)) (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 5 binary64))) (pow.f64 D #s(literal 6 binary64))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 5 binary64)))) (fma.f64 (.f64 (.f64 #s(literal 1/2 binary64) (/.f64 d (.f64 D D))) (/.f64 w0 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M))) (sqrt.f64 (/.f64 l h)) (.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) M) d) (sqrt.f64 (/.f64 h l)))))) D))
#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)))) (.f64 (fma.f64 (.f64 #s(literal 1/2 binary64) (/.f64 d (.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) D))) (sqrt.f64 (/.f64 l h)) (.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) d) (sqrt.f64 (/.f64 h l)))) D))
#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) 3)))) (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)))) (.f64 (fma.f64 (.f64 (/.f64 (pow.f64 d #s(literal 3 binary64)) (pow.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) #s(literal 3 binary64))) (/.f64 (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))) (pow.f64 D #s(literal 4 binary64)))) #s(literal -1/8 binary64) (fma.f64 (.f64 #s(literal 1/2 binary64) (/.f64 d (.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) D))) (sqrt.f64 (/.f64 l h)) (.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) d) (sqrt.f64 (/.f64 h l))))) D))
#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) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (pow d 5) (* (pow D 6) (* (pow M 5) (pow (sqrt -1/4) 5)))) (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 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64)))) (/.f64 (pow.f64 d #s(literal 3 binary64)) (.f64 (pow.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) #s(literal 3 binary64)) (pow.f64 D #s(literal 4 binary64)))) (fma.f64 (.f64 (/.f64 (pow.f64 d #s(literal 5 binary64)) (.f64 (.f64 (pow.f64 M #s(literal 5 binary64)) (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 5 binary64))) (pow.f64 D #s(literal 6 binary64)))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 5 binary64))))) #s(literal 1/16 binary64) (fma.f64 (.f64 #s(literal 1/2 binary64) (/.f64 d (.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) D))) (sqrt.f64 (/.f64 l h)) (.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) d) (sqrt.f64 (/.f64 h l)))))) D))
#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 (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (.f64 (-.f64 (/.f64 #s(literal 1 binary64) (.f64 D D)) (.f64 (.f64 #s(literal 1/4 binary64) (.f64 M M)) (/.f64 h (.f64 (.f64 d d) l)))) (.f64 D D)))
#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))))) (.f64 (neg.f64 D) (fma.f64 (.f64 (.f64 #s(literal 1/2 binary64) (/.f64 d (.f64 D D))) (/.f64 w0 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M))) (sqrt.f64 (/.f64 l h)) (.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) M) d) (sqrt.f64 (/.f64 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) 3)))) (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))))) (.f64 (neg.f64 D) (fma.f64 (.f64 #s(literal -1/8 binary64) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64)))) (/.f64 (.f64 (pow.f64 d #s(literal 3 binary64)) w0) (.f64 (pow.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) #s(literal 3 binary64)) (pow.f64 D #s(literal 4 binary64)))) (fma.f64 (.f64 (.f64 #s(literal 1/2 binary64) (/.f64 d (.f64 D D))) (/.f64 w0 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M))) (sqrt.f64 (/.f64 l h)) (.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) M) d) (sqrt.f64 (/.f64 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) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 6) (* (pow M 5) (pow (sqrt -1/4) 5)))) (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))))) (.f64 (neg.f64 D) (fma.f64 (.f64 #s(literal -1/8 binary64) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64)))) (/.f64 (.f64 (pow.f64 d #s(literal 3 binary64)) w0) (.f64 (pow.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) #s(literal 3 binary64)) (pow.f64 D #s(literal 4 binary64)))) (fma.f64 (.f64 #s(literal 1/16 binary64) (/.f64 (.f64 (pow.f64 d #s(literal 5 binary64)) w0) (.f64 (.f64 (pow.f64 M #s(literal 5 binary64)) (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 5 binary64))) (pow.f64 D #s(literal 6 binary64))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 5 binary64)))) (fma.f64 (.f64 (.f64 #s(literal 1/2 binary64) (/.f64 d (.f64 D D))) (/.f64 w0 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M))) (sqrt.f64 (/.f64 l h)) (.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) M) d) (sqrt.f64 (/.f64 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)))) (.f64 (neg.f64 D) (fma.f64 (.f64 #s(literal 1/2 binary64) (/.f64 d (.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) D))) (sqrt.f64 (/.f64 l h)) (.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) d) (sqrt.f64 (/.f64 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) 3)))) (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)))) (.f64 (neg.f64 D) (fma.f64 (.f64 (/.f64 (pow.f64 d #s(literal 3 binary64)) (pow.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) #s(literal 3 binary64))) (/.f64 (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))) (pow.f64 D #s(literal 4 binary64)))) #s(literal -1/8 binary64) (fma.f64 (.f64 #s(literal 1/2 binary64) (/.f64 d (.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) D))) (sqrt.f64 (/.f64 l h)) (.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) d) (sqrt.f64 (/.f64 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) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (pow d 5) (* (pow D 6) (* (pow M 5) (pow (sqrt -1/4) 5)))) (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 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (.f64 (neg.f64 D) (fma.f64 (.f64 #s(literal -1/8 binary64) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64)))) (/.f64 (pow.f64 d #s(literal 3 binary64)) (.f64 (pow.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) #s(literal 3 binary64)) (pow.f64 D #s(literal 4 binary64)))) (fma.f64 (.f64 (/.f64 (pow.f64 d #s(literal 5 binary64)) (.f64 (.f64 (pow.f64 M #s(literal 5 binary64)) (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 5 binary64))) (pow.f64 D #s(literal 6 binary64)))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 5 binary64))))) #s(literal 1/16 binary64) (fma.f64 (.f64 #s(literal 1/2 binary64) (/.f64 d (.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) D))) (sqrt.f64 (/.f64 l h)) (.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) d) (sqrt.f64 (/.f64 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))))) (fma.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (.f64 (/.f64 w0 (.f64 d d)) (/.f64 (.f64 M M) l)) (.f64 (.f64 #s(literal -1/128 binary64) (pow.f64 D #s(literal 4 binary64))) (.f64 (*.f64 (/.f64 (pow.f64 M #s(literal 4 binary64)) l) (/.f64 h l)) (/.f64 w0 (pow.f64 d #s(literal 4 binary64)))))) h w0))
#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 (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (fma.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 D d) (/.f64 D d))) (/.f64 (.f64 (.f64 M M) w0) l) (.f64 (fma.f64 (.f64 #s(literal -1/128 binary64) (pow.f64 D #s(literal 4 binary64))) (.f64 (/.f64 w0 (pow.f64 d #s(literal 4 binary64))) (/.f64 (pow.f64 M #s(literal 4 binary64)) (.f64 l l))) (.f64 (.f64 #s(literal -1/1024 binary64) (pow.f64 D #s(literal 6 binary64))) (.f64 (/.f64 (.f64 (pow.f64 M #s(literal 6 binary64)) h) (pow.f64 l #s(literal 3 binary64))) (/.f64 w0 (pow.f64 d #s(literal 6 binary64)))))) h)) h w0))
#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)))) (fma.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (.f64 (/.f64 M (.f64 d d)) (/.f64 M l)) (.f64 (.f64 #s(literal -1/128 binary64) (pow.f64 D #s(literal 4 binary64))) (.f64 (/.f64 h (pow.f64 d #s(literal 4 binary64))) (/.f64 (pow.f64 M #s(literal 4 binary64)) (.f64 l l))))) h #s(literal 1 binary64)))
#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 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 D d) (/.f64 D d))) (/.f64 (.f64 M M) l) (.f64 (fma.f64 (.f64 #s(literal -1/128 binary64) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 M #s(literal 4 binary64)) (.f64 (.f64 (pow.f64 d #s(literal 4 binary64)) l) l)) (.f64 (.f64 #s(literal -1/1024 binary64) (pow.f64 D #s(literal 6 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 6 binary64)) h) (*.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 d #s(literal 6 binary64)))))) h)) h #s(literal 1 binary64)))
#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))))) (.f64 (fma.f64 (.f64 (.f64 #s(literal 1/2 binary64) (/.f64 d D)) (/.f64 w0 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M))) (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64)))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 l h))) (/.f64 (.f64 (.f64 (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) M) D) d))) h))
#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) 3)))) (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))))) (.f64 (fma.f64 (.f64 (.f64 #s(literal -1/8 binary64) (pow.f64 d #s(literal 3 binary64))) (/.f64 w0 (pow.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) #s(literal 3 binary64)))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 h #s(literal 5 binary64)))) (fma.f64 (.f64 (.f64 #s(literal 1/2 binary64) (/.f64 d D)) (/.f64 w0 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M))) (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64)))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 l h))) (/.f64 (.f64 (.f64 (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) M) D) d)))) h))
#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) 3)))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/4) 5)))) (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))))) (.f64 (fma.f64 (.f64 #s(literal 1/16 binary64) (/.f64 (.f64 (pow.f64 d #s(literal 5 binary64)) w0) (.f64 (.f64 (pow.f64 M #s(literal 5 binary64)) (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 5 binary64))) (pow.f64 D #s(literal 5 binary64))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 7 binary64)))) (fma.f64 (.f64 (.f64 #s(literal -1/8 binary64) (pow.f64 d #s(literal 3 binary64))) (/.f64 w0 (pow.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) #s(literal 3 binary64)))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 h #s(literal 5 binary64)))) (fma.f64 (.f64 (.f64 #s(literal 1/2 binary64) (/.f64 d D)) (/.f64 w0 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M))) (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64)))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 l h))) (/.f64 (.f64 (.f64 (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) M) D) d))))) h))
#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)))) (.f64 (fma.f64 (.f64 #s(literal 1/2 binary64) (/.f64 d (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D))) (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64)))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 l h))) (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) d))) h))
#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) 3)))) (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)))) (.f64 (fma.f64 (.f64 (/.f64 (pow.f64 d #s(literal 3 binary64)) (pow.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) #s(literal 3 binary64))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 h #s(literal 5 binary64))))) #s(literal -1/8 binary64) (fma.f64 (.f64 #s(literal 1/2 binary64) (/.f64 d (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D))) (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64)))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 l h))) (/.f64 (.f64 (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) d)))) h))
#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) 3)))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/16 (* (/ (pow d 5) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/4) 5)))) (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 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (.f64 (fma.f64 (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 d #s(literal 5 binary64)) (.f64 (.f64 (pow.f64 M #s(literal 5 binary64)) (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 5 binary64))) (pow.f64 D #s(literal 5 binary64))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 7 binary64)))) (fma.f64 (.f64 (/.f64 (pow.f64 d #s(literal 3 binary64)) (pow.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) #s(literal 3 binary64))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 h #s(literal 5 binary64))))) #s(literal -1/8 binary64) (fma.f64 (.f64 #s(literal 1/2 binary64) (/.f64 d (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D))) (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64)))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 l h))) (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) d))))) h))
#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 (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 h #s(literal -1/4 binary64)) (/.f64 (.f64 (.f64 (.f64 M M) D) D) (.f64 (.f64 d d) l)) #s(literal 1 binary64)))
#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))))) (.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) w0) M) D) d)) (sqrt.f64 (/.f64 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))))) (.f64 (neg.f64 h) (fma.f64 (.f64 (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64)))) (/.f64 d D)) (/.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) w0) M) (.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) w0) M) D) d)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 l h)))))))
#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))))) (.f64 (neg.f64 h) (fma.f64 (neg.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) w0) (pow.f64 d #s(literal 3 binary64))) (pow.f64 (.f64 D M) #s(literal 3 binary64)))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 h #s(literal 5 binary64)))) (fma.f64 (.f64 (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64)))) (/.f64 d D)) (/.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) w0) M) (.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) w0) M) D) d)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 l h))))))))
#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 (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (.f64 (neg.f64 h) (fma.f64 (neg.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) w0) (pow.f64 d #s(literal 3 binary64))) (pow.f64 (.f64 D M) #s(literal 3 binary64)))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 h #s(literal 5 binary64)))) (fma.f64 (.f64 (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64)))) (/.f64 d D)) (/.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) w0) M) (fma.f64 (.f64 (.f64 #s(literal 2 binary64) (pow.f64 d #s(literal 5 binary64))) (.f64 (/.f64 w0 (pow.f64 D #s(literal 5 binary64))) (/.f64 (sqrt.f64 #s(literal -1 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 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) w0) M) D) d)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 l h)))))))))
#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)))) (.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) M) D) d)) (sqrt.f64 (/.f64 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)))) (.f64 (neg.f64 h) (fma.f64 (.f64 (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64)))) (/.f64 d D)) (/.f64 (sqrt.f64 #s(literal -1 binary64)) M) (.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) M) D) d)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 l h)))))))
#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)))) (.f64 (neg.f64 h) (fma.f64 (neg.f64 (/.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) (pow.f64 d #s(literal 3 binary64))) (pow.f64 (.f64 D M) #s(literal 3 binary64)))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 h #s(literal 5 binary64)))) (fma.f64 (.f64 (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64)))) (/.f64 d D)) (/.f64 (sqrt.f64 #s(literal -1 binary64)) M) (.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) M) D) d)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 l h))))))))
#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 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (.f64 (neg.f64 h) (fma.f64 (neg.f64 (/.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) (pow.f64 d #s(literal 3 binary64))) (pow.f64 (.f64 D M) #s(literal 3 binary64)))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 h #s(literal 5 binary64)))) (fma.f64 (.f64 (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64)))) (/.f64 d D)) (/.f64 (sqrt.f64 #s(literal -1 binary64)) M) (fma.f64 (.f64 (.f64 #s(literal 2 binary64) (pow.f64 d #s(literal 5 binary64))) (/.f64 (sqrt.f64 #s(literal -1 binary64)) (.f64 (pow.f64 M #s(literal 5 binary64)) (pow.f64 D #s(literal 5 binary64))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 7 binary64)))) (.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) M) D) d)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 l h)))))))))
#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 (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 h #s(literal -1/4 binary64)) (/.f64 (.f64 (.f64 (.f64 M M) D) D) (.f64 (.f64 d d) l)) #s(literal 1 binary64)))
#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))))) (/.f64 (fma.f64 (.f64 (.f64 #s(literal 1/2 binary64) (/.f64 d D)) (/.f64 w0 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) h)) (.f64 (sqrt.f64 (.f64 l h)) (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) M) D) d))) 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) 3)))) (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))))) (/.f64 (fma.f64 (fma.f64 (.f64 (.f64 #s(literal 1/2 binary64) (/.f64 d D)) (/.f64 w0 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 l h))) (.f64 (.f64 (.f64 #s(literal -1/8 binary64) (pow.f64 d #s(literal 3 binary64))) (/.f64 w0 (pow.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) #s(literal 3 binary64)))) (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64)))))) (.f64 l l) (.f64 (sqrt.f64 (.f64 l h)) (/.f64 (.f64 (.f64 (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) M) D) d))) 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) 3)))) (sqrt (/ 1 (* (pow h 3) (pow l 3)))))) (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ 1 (* (pow h 5) l)))))))))) l)))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (/.f64 (fma.f64 (.f64 (sqrt.f64 (.f64 l h)) D) (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) M) d) (.f64 (fma.f64 (fma.f64 (.f64 #s(literal 1/16 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (pow.f64 h #s(literal 5 binary64)) l)))) (/.f64 (.f64 (pow.f64 d #s(literal 5 binary64)) w0) (.f64 (.f64 (pow.f64 M #s(literal 5 binary64)) (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 5 binary64))) (pow.f64 D #s(literal 5 binary64)))) (.f64 (.f64 (.f64 #s(literal -1/8 binary64) (pow.f64 d #s(literal 3 binary64))) (/.f64 w0 (pow.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) #s(literal 3 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (.f64 l h) #s(literal 3 binary64)))))) (.f64 l l) (.f64 (.f64 (.f64 #s(literal 1/2 binary64) (/.f64 d D)) (/.f64 w0 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 l h))))) (*.f64 l 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)))) (/.f64 (fma.f64 (.f64 #s(literal 1/2 binary64) (/.f64 d (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) h)) (.f64 (sqrt.f64 (.f64 l h)) (/.f64 (.f64 (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) d))) 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) 3)))) (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)))) (/.f64 (fma.f64 (fma.f64 (.f64 (pow.f64 (/.f64 d D) #s(literal 3 binary64)) (/.f64 (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64)))) (pow.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) #s(literal 3 binary64)))) #s(literal -1/8 binary64) (.f64 (.f64 #s(literal 1/2 binary64) (/.f64 d (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 l h))))) (.f64 l l) (.f64 (sqrt.f64 (.f64 l h)) (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) d))) 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) 3)))) (sqrt (/ 1 (* (pow h 3) (pow l 3)))))) (* 1/16 (* (/ (pow d 5) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ 1 (* (pow h 5) l)))))))))) l)))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (/.f64 (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal 1/16 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (pow.f64 h #s(literal 5 binary64)) l)))) (/.f64 (pow.f64 d #s(literal 5 binary64)) (.f64 (.f64 (pow.f64 M #s(literal 5 binary64)) (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 5 binary64))) (pow.f64 D #s(literal 5 binary64)))) (.f64 (.f64 #s(literal -1/8 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (.f64 l h) #s(literal 3 binary64))))) (/.f64 (pow.f64 d #s(literal 3 binary64)) (pow.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) #s(literal 3 binary64))))) (.f64 l l) (.f64 (.f64 #s(literal 1/2 binary64) (/.f64 d (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 l h))))) (.f64 l l) (.f64 (sqrt.f64 (.f64 l h)) (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) d))) 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 (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (/.f64 (-.f64 l (.f64 (.f64 #s(literal 1/4 binary64) (.f64 D D)) (.f64 (/.f64 (*.f64 M M) d) (/.f64 h d)))) 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))))) (fma.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) (.f64 (/.f64 (.f64 (.f64 M M) h) l) (/.f64 w0 (.f64 d d))) (fma.f64 (/.f64 #s(literal -1/128 binary64) (.f64 l l)) (/.f64 (.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (pow.f64 D #s(literal 4 binary64))) (.f64 (*.f64 h h) w0)) (pow.f64 d #s(literal 4 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))) (+ (* -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 (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (+.f64 (fma.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) (.f64 (/.f64 (.f64 (.f64 M M) h) l) (/.f64 w0 (.f64 d d))) (.f64 (/.f64 #s(literal -1/128 binary64) (.f64 l l)) (/.f64 (.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (pow.f64 D #s(literal 4 binary64))) (.f64 (.f64 h h) w0)) (pow.f64 d #s(literal 4 binary64))))) (fma.f64 (.f64 #s(literal -1/1024 binary64) (pow.f64 D #s(literal 6 binary64))) (.f64 (/.f64 (*.f64 (pow.f64 M #s(literal 6 binary64)) (pow.f64 h #s(literal 3 binary64))) (pow.f64 l #s(literal 3 binary64))) (/.f64 w0 (pow.f64 d #s(literal 6 binary64)))) w0)))
#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)))) (fma.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) (.f64 (/.f64 h (.f64 d d)) (/.f64 (.f64 M M) l)) (fma.f64 (/.f64 #s(literal -1/128 binary64) (.f64 l l)) (/.f64 (.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (pow.f64 D #s(literal 4 binary64))) (*.f64 h h)) (pow.f64 d #s(literal 4 binary64))) #s(literal 1 binary64))))
#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 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (+.f64 (fma.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) (.f64 (/.f64 h (.f64 d d)) (/.f64 (.f64 M M) l)) (.f64 (/.f64 #s(literal -1/128 binary64) (.f64 l l)) (/.f64 (.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (pow.f64 D #s(literal 4 binary64))) (.f64 h h)) (pow.f64 d #s(literal 4 binary64))))) (fma.f64 (/.f64 #s(literal -1/1024 binary64) (pow.f64 l #s(literal 3 binary64))) (/.f64 (.f64 (.f64 (pow.f64 M #s(literal 6 binary64)) (pow.f64 h #s(literal 3 binary64))) (pow.f64 D #s(literal 6 binary64))) (pow.f64 d #s(literal 6 binary64))) #s(literal 1 binary64))))
#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))))) (-.f64 w0 (/.f64 (fma.f64 (.f64 #s(literal 1/8 binary64) (.f64 D D)) (.f64 (/.f64 (.f64 (.f64 M M) h) d) (/.f64 w0 d)) (.f64 (.f64 #s(literal 1/128 binary64) (pow.f64 D #s(literal 4 binary64))) (.f64 (/.f64 (.f64 (.f64 h h) w0) l) (/.f64 (pow.f64 M #s(literal 4 binary64)) (pow.f64 d #s(literal 4 binary64)))))) 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 (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (-.f64 w0 (/.f64 (fma.f64 (/.f64 #s(literal 1/8 binary64) d) (/.f64 (.f64 (.f64 (.f64 (.f64 (.f64 M M) h) w0) D) D) d) (/.f64 (fma.f64 (.f64 #s(literal -1/128 binary64) (pow.f64 D #s(literal 4 binary64))) (/.f64 (.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) w0) (.f64 h h)) (pow.f64 d #s(literal 4 binary64))) (.f64 (.f64 #s(literal -1/1024 binary64) (pow.f64 D #s(literal 6 binary64))) (/.f64 (.f64 (.f64 (pow.f64 M #s(literal 6 binary64)) w0) (pow.f64 h #s(literal 3 binary64))) (.f64 (pow.f64 d #s(literal 6 binary64)) l)))) (neg.f64 l))) 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)))) (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (.f64 #s(literal 1/8 binary64) (.f64 D D)) (.f64 (/.f64 (.f64 M M) d) (/.f64 h d)) (.f64 (.f64 #s(literal 1/128 binary64) (pow.f64 D #s(literal 4 binary64))) (.f64 (/.f64 (.f64 h h) l) (/.f64 (pow.f64 M #s(literal 4 binary64)) (pow.f64 d #s(literal 4 binary64)))))) 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 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (-.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (/.f64 #s(literal 1/8 binary64) d) (/.f64 (.f64 (.f64 (.f64 (.f64 M M) h) D) D) d) (/.f64 (fma.f64 (.f64 #s(literal -1/128 binary64) (pow.f64 D #s(literal 4 binary64))) (/.f64 (.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) h) h) (pow.f64 d #s(literal 4 binary64))) (.f64 (.f64 #s(literal -1/1024 binary64) (pow.f64 D #s(literal 6 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 6 binary64)) (pow.f64 h #s(literal 3 binary64))) (*.f64 (pow.f64 d #s(literal 6 binary64)) l)))) (neg.f64 l))) 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))))) (/.f64 (fma.f64 (.f64 (sqrt.f64 (/.f64 h l)) (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) M)) D (.f64 (.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 d d) D)) (/.f64 w0 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M))) (sqrt.f64 (/.f64 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/8 (* (/ (* (pow d 2) w0) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (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))))) (/.f64 (fma.f64 (fma.f64 (.f64 (.f64 #s(literal -1/8 binary64) (.f64 d d)) (/.f64 w0 (pow.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) #s(literal 3 binary64)))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))) (.f64 (.f64 #s(literal 1/2 binary64) (/.f64 w0 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D))) (sqrt.f64 (/.f64 l h)))) (.f64 d d) (.f64 (sqrt.f64 (/.f64 h l)) (.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) M) D))) 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) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (* 1/16 (* (/ (* (pow d 2) w0) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5)))))))))) d)))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (/.f64 (fma.f64 (fma.f64 (fma.f64 (.f64 (/.f64 (.f64 (.f64 d w0) d) (.f64 (.f64 (pow.f64 M #s(literal 5 binary64)) (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 5 binary64))) (pow.f64 D #s(literal 5 binary64)))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 5 binary64))))) #s(literal 1/16 binary64) (.f64 (.f64 #s(literal -1/8 binary64) (/.f64 w0 (pow.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) #s(literal 3 binary64)))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))))) (.f64 d d) (.f64 (.f64 #s(literal 1/2 binary64) (/.f64 w0 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D))) (sqrt.f64 (/.f64 l h)))) (.f64 d d) (.f64 (sqrt.f64 (/.f64 h l)) (.f64 (.f64 (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) M) D))) 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)))) (/.f64 (fma.f64 (.f64 (/.f64 (.f64 d d) (.f64 D M)) (/.f64 (sqrt.f64 (/.f64 l h)) (sqrt.f64 #s(literal -1/4 binary64)))) #s(literal 1/2 binary64) (.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) (sqrt.f64 (/.f64 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) 3)))) (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)))) (/.f64 (fma.f64 (fma.f64 (.f64 (/.f64 (.f64 d d) (pow.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) #s(literal 3 binary64))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64)))) #s(literal -1/8 binary64) (.f64 (/.f64 (sqrt.f64 (/.f64 l h)) (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D)) #s(literal 1/2 binary64))) (.f64 d d) (.f64 (.f64 (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) (sqrt.f64 (/.f64 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/2 (* (/ 1 (* D (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (pow d 2) (+ (* -1/8 (* (/ 1 (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (* 1/16 (* (/ (pow d 2) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5)))))))))) d)))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (/.f64 (fma.f64 (fma.f64 (fma.f64 (.f64 (/.f64 (.f64 d d) (.f64 (.f64 (pow.f64 M #s(literal 5 binary64)) (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 5 binary64))) (pow.f64 D #s(literal 5 binary64)))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 5 binary64))))) #s(literal 1/16 binary64) (.f64 (/.f64 (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))) (pow.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) #s(literal 3 binary64))) #s(literal -1/8 binary64))) (.f64 d d) (.f64 (/.f64 (sqrt.f64 (/.f64 l h)) (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D)) #s(literal 1/2 binary64))) (.f64 d d) (.f64 (.f64 (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) (sqrt.f64 (/.f64 h l)))) 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 (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 #s(literal 1/4 binary64) (.f64 D D)) (/.f64 (.f64 (.f64 M M) h) l)) (.f64 d d))))

rewrite61.0ms (0.7%)

Memory

4.9MiB live, 61.5MiB allocated; 5ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	17	69
0	26	69
1	75	69
0	470	69

Stop Event

1×	iter limit
1×	iter limit
1×	iter limit
1×	unsound
1×	iter limit

Counts

5 → 60

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)))))
(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)))
(.f64 (pow.f64 (/.f64 (.f64 M D) (*.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) (/.f64 h l))
(/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d))

Outputs
(.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (.f64 (/.f64 h l) (pow.f64 (*.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d)) #s(literal 2 binary64))))) w0)
(.f64 w0 (sqrt.f64 (-.f64 #s(literal 1 binary64) (.f64 (/.f64 h l) (pow.f64 (*.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d)) #s(literal 2 binary64))))))
(.f64 (pow.f64 (-.f64 #s(literal 1 binary64) (.f64 (/.f64 h l) (pow.f64 (.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d)) #s(literal 2 binary64)))) #s(literal 1/4 binary64)) (pow.f64 (-.f64 #s(literal 1 binary64) (.f64 (/.f64 h l) (pow.f64 (*.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d)) #s(literal 2 binary64)))) #s(literal 1/4 binary64)))
(pow.f64 (-.f64 #s(literal 1 binary64) (.f64 (/.f64 h l) (pow.f64 (.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d)) #s(literal 2 binary64)))) #s(literal 1/2 binary64))
(/.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (.f64 (/.f64 h l) (pow.f64 (.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d)) #s(literal 2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (fma.f64 (/.f64 h l) (pow.f64 (*.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d)) #s(literal 2 binary64)) #s(literal 1 binary64))))
(/.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (.f64 (/.f64 h l) (pow.f64 (.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d)) #s(literal 2 binary64))) #s(literal 3 binary64)))) (sqrt.f64 (fma.f64 (.f64 (/.f64 h l) (pow.f64 (.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d)) #s(literal 2 binary64))) (fma.f64 (/.f64 h l) (pow.f64 (*.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d)) #s(literal 2 binary64)) #s(literal 1 binary64)) #s(literal 1 binary64))))
(sqrt.f64 (-.f64 #s(literal 1 binary64) (.f64 (/.f64 h l) (pow.f64 (.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d)) #s(literal 2 binary64)))))
(exp.f64 (.f64 (log1p.f64 (.f64 (neg.f64 (/.f64 h l)) (pow.f64 (*.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d)) #s(literal 2 binary64)))) #s(literal 1/2 binary64)))
(/.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (neg.f64 (.f64 (/.f64 h l) (pow.f64 (.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d)) #s(literal 2 binary64)))) #s(literal 3 binary64))) (+.f64 #s(literal 1 binary64) (-.f64 (pow.f64 (.f64 (/.f64 h l) (pow.f64 (.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d)) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(literal 1 binary64) (neg.f64 (.f64 (/.f64 h l) (pow.f64 (*.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d)) #s(literal 2 binary64))))))))
(/.f64 (neg.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (.f64 (/.f64 h l) (pow.f64 (.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d)) #s(literal 2 binary64))) #s(literal 2 binary64)))) (neg.f64 (fma.f64 (/.f64 h l) (pow.f64 (*.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d)) #s(literal 2 binary64)) #s(literal 1 binary64))))
(/.f64 (neg.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (.f64 (/.f64 h l) (pow.f64 (.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d)) #s(literal 2 binary64))) #s(literal 3 binary64)))) (neg.f64 (fma.f64 (.f64 (/.f64 h l) (pow.f64 (.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d)) #s(literal 2 binary64))) (fma.f64 (/.f64 h l) (pow.f64 (*.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d)) #s(literal 2 binary64)) #s(literal 1 binary64)) #s(literal 1 binary64))))
(/.f64 (-.f64 (.f64 #s(literal 2 binary64) l) (.f64 #s(literal 2 binary64) (.f64 h (pow.f64 (.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d)) #s(literal 2 binary64))))) (*.f64 #s(literal 2 binary64) l))
(/.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (.f64 (/.f64 h l) (pow.f64 (.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d)) #s(literal 2 binary64))) #s(literal 2 binary64))) (fma.f64 (/.f64 h l) (pow.f64 (*.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d)) #s(literal 2 binary64)) #s(literal 1 binary64)))
(/.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (.f64 (/.f64 h l) (pow.f64 (.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d)) #s(literal 2 binary64))) #s(literal 3 binary64))) (fma.f64 (.f64 (/.f64 h l) (pow.f64 (.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d)) #s(literal 2 binary64))) (fma.f64 (/.f64 h l) (pow.f64 (*.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d)) #s(literal 2 binary64)) #s(literal 1 binary64)) #s(literal 1 binary64)))
(fma.f64 (neg.f64 (pow.f64 (*.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d)) #s(literal 2 binary64))) (/.f64 h l) #s(literal 1 binary64))
(fma.f64 (/.f64 h l) (neg.f64 (pow.f64 (*.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d)) #s(literal 2 binary64))) #s(literal 1 binary64))
(-.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (/.f64 h l) (pow.f64 (.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d)) #s(literal 2 binary64)) #s(literal 1 binary64))) (/.f64 (pow.f64 (.f64 (/.f64 h l) (pow.f64 (.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d)) #s(literal 2 binary64))) #s(literal 2 binary64)) (fma.f64 (/.f64 h l) (pow.f64 (.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d)) #s(literal 2 binary64)) #s(literal 1 binary64))))
(-.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (/.f64 h l) (pow.f64 (.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d)) #s(literal 2 binary64))) (fma.f64 (/.f64 h l) (pow.f64 (.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d)) #s(literal 2 binary64)) #s(literal 1 binary64)) #s(literal 1 binary64))) (/.f64 (pow.f64 (.f64 (/.f64 h l) (pow.f64 (.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d)) #s(literal 2 binary64))) #s(literal 3 binary64)) (fma.f64 (.f64 (/.f64 h l) (pow.f64 (.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d)) #s(literal 2 binary64))) (fma.f64 (/.f64 h l) (pow.f64 (.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d)) #s(literal 2 binary64)) #s(literal 1 binary64)) #s(literal 1 binary64))))
(-.f64 #s(literal 1 binary64) (.f64 (neg.f64 (neg.f64 (pow.f64 (.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d)) #s(literal 2 binary64)))) (/.f64 h l)))
(-.f64 #s(literal 1 binary64) (.f64 (/.f64 h l) (pow.f64 (.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d)) #s(literal 2 binary64))))
(+.f64 (neg.f64 (.f64 (/.f64 h l) (pow.f64 (.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d)) #s(literal 2 binary64)))) #s(literal 1 binary64))
(+.f64 #s(literal 1 binary64) (.f64 (neg.f64 (/.f64 h l)) (pow.f64 (.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d)) #s(literal 2 binary64))))
(+.f64 #s(literal 1 binary64) (neg.f64 (.f64 (/.f64 h l) (pow.f64 (.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d)) #s(literal 2 binary64)))))
(.f64 (.f64 #s(literal 1 binary64) (/.f64 h l)) (pow.f64 (*.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d)) #s(literal 2 binary64)))
(.f64 (.f64 #s(literal 1 binary64) (pow.f64 (*.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d)) #s(literal 2 binary64))) (/.f64 h l))
(.f64 (.f64 (/.f64 h l) (.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d))) (.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d)))
(.f64 (.f64 (/.f64 h l) (pow.f64 (*.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d)) #s(literal 2 binary64))) #s(literal 1 binary64))
(.f64 (/.f64 h l) (pow.f64 (.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d)) #s(literal 2 binary64)))
(.f64 (pow.f64 (.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d)) #s(literal 2 binary64)) (/.f64 h l))
(.f64 (.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d)) (.f64 (.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d)) (/.f64 h l)))
(.f64 #s(literal 1 binary64) (.f64 (/.f64 h l) (pow.f64 (*.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d)) #s(literal 2 binary64))))
(/.f64 (.f64 #s(literal 2 binary64) (.f64 (/.f64 h l) (pow.f64 (*.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d)) #s(literal 2 binary64)))) #s(literal 2 binary64))
(/.f64 (.f64 (neg.f64 h) (pow.f64 (.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d)) #s(literal 2 binary64))) (neg.f64 l))
(/.f64 (.f64 #s(literal 1 binary64) (.f64 h (pow.f64 (*.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d)) #s(literal 2 binary64)))) l)
(/.f64 (.f64 (pow.f64 (.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d)) #s(literal 2 binary64)) (neg.f64 h)) (neg.f64 l))
(/.f64 (neg.f64 (.f64 h (pow.f64 (.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d)) #s(literal 2 binary64)))) (neg.f64 l))
(/.f64 (.f64 #s(literal 2 binary64) (.f64 h (pow.f64 (.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d)) #s(literal 2 binary64)))) (.f64 #s(literal 2 binary64) l))
(/.f64 (.f64 h (pow.f64 (.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d)) #s(literal 2 binary64))) l)
(.f64 (pow.f64 (.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d)) #s(literal 1/2 binary64)) (pow.f64 (*.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d)) #s(literal 1/2 binary64)))
(*.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d))
(*.f64 (/.f64 M d) (/.f64 D #s(literal 2 binary64)))
(*.f64 (pow.f64 (/.f64 M #s(literal 2 binary64)) #s(literal 1 binary64)) (pow.f64 (/.f64 D d) #s(literal 1 binary64)))
(*.f64 (pow.f64 M #s(literal 1 binary64)) (pow.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) #s(literal 1 binary64)))
(*.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M)
(*.f64 (/.f64 D d) (/.f64 M #s(literal 2 binary64)))
(*.f64 (/.f64 M #s(literal 2 binary64)) (/.f64 D d))
(.f64 D (/.f64 M (.f64 d #s(literal 2 binary64))))
(*.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64)))
(pow.f64 (*.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d)) #s(literal 1 binary64))
(/.f64 (/.f64 (*.f64 D M) d) #s(literal 2 binary64))
(/.f64 (*.f64 M (/.f64 D d)) #s(literal 2 binary64))
(/.f64 (*.f64 (/.f64 M #s(literal 2 binary64)) D) d)
(/.f64 (neg.f64 (*.f64 D (/.f64 M #s(literal 2 binary64)))) (neg.f64 d))
(/.f64 (neg.f64 (.f64 (neg.f64 M) D)) (neg.f64 (.f64 #s(literal -2 binary64) d)))
(/.f64 (*.f64 D (/.f64 M #s(literal 2 binary64))) d)
(/.f64 (.f64 (neg.f64 M) D) (.f64 #s(literal -2 binary64) d))
(/.f64 (.f64 D M) (.f64 d #s(literal 2 binary64)))
(neg.f64 (/.f64 (.f64 (neg.f64 M) D) (.f64 d #s(literal 2 binary64))))
(neg.f64 (/.f64 (.f64 D M) (.f64 #s(literal -2 binary64) d)))
(exp.f64 (.f64 (log.f64 (.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d))) #s(literal 1 binary64)))

eval25.0ms (0.3%)

Memory: -8.4MiB live, 36.6MiB allocated; 3ms collecting garbage
Compiler: Compiled 7 331 to 1 033 computations (85.9% saved)

prune7.0ms (0.1%)

Memory

11.2MiB live, 11.2MiB allocated; 0ms collecting garbage

Pruning

7 alts after pruning (6 fresh and 1 done)

	Pruned	Kept	Total
New	143	6	149
Fresh	0	0	0
Picked	0	1	1
Done	0	0	0
Total	143	7	150

Accuracy

90.7%

Counts

150 → 7

Alt Table

Click to see full alt table

Status	Accuracy	Program
▶	86.0%	(.f64 w0 (sqrt.f64 (/.f64 (-.f64 (.f64 #s(literal 2 binary64) l) (.f64 #s(literal 2 binary64) (.f64 h (pow.f64 (.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d)) #s(literal 2 binary64))))) (.f64 #s(literal 2 binary64) l))))
✓	80.6%	(.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.1%	(.f64 w0 (sqrt.f64 (-.f64 #s(literal 1 binary64) (.f64 (.f64 (/.f64 h l) (.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d))) (*.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d))))))
▶	65.3%	(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 h #s(literal -1/4 binary64)) (/.f64 (.f64 (.f64 (.f64 M M) D) D) (.f64 (.f64 d d) l)) #s(literal 1 binary64)))))
▶	61.5%	(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (/.f64 (-.f64 l (.f64 (.f64 #s(literal 1/4 binary64) (.f64 D D)) (.f64 (/.f64 (*.f64 M M) d) (/.f64 h d)))) l))))
▶	52.9%	(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) (.f64 (/.f64 h (.f64 d d)) (/.f64 (*.f64 M M) l)) #s(literal 1 binary64))))
▶	70.1%	#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) w0)

Compiler

Compiled 378 to 291 computations (23% saved)

simplify154.0ms (1.7%)

Memory

-2.1MiB live, 140.3MiB allocated; 31ms collecting garbage

Localize:

Found 17 expressions of interest:

New	Metric	Score
cost-diff	0	#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (/.f64 (-.f64 l (.f64 (.f64 #s(literal 1/4 binary64) (.f64 D D)) (.f64 (/.f64 (*.f64 M M) d) (/.f64 h d)))) l))
cost-diff	0	(sqrt.f64 #s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (/.f64 (-.f64 l (.f64 (.f64 #s(literal 1/4 binary64) (.f64 D D)) (.f64 (/.f64 (*.f64 M M) d) (/.f64 h d)))) l)))
cost-diff	0	(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (/.f64 (-.f64 l (.f64 (.f64 #s(literal 1/4 binary64) (.f64 D D)) (.f64 (/.f64 (*.f64 M M) d) (/.f64 h d)))) l))))
cost-diff	1	(-.f64 l (.f64 (.f64 #s(literal 1/4 binary64) (.f64 D D)) (.f64 (/.f64 (*.f64 M M) d) (/.f64 h d))))
cost-diff	0	(fma.f64 (.f64 h #s(literal -1/4 binary64)) (/.f64 (.f64 (.f64 (.f64 M M) D) D) (.f64 (.f64 d d) l)) #s(literal 1 binary64))
cost-diff	0	#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 h #s(literal -1/4 binary64)) (/.f64 (.f64 (.f64 (.f64 M M) D) D) (.f64 (.f64 d d) l)) #s(literal 1 binary64)))
cost-diff	0	(sqrt.f64 #s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 h #s(literal -1/4 binary64)) (/.f64 (.f64 (.f64 (.f64 M M) D) D) (.f64 (.f64 d d) l)) #s(literal 1 binary64))))
cost-diff	0	(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 h #s(literal -1/4 binary64)) (/.f64 (.f64 (.f64 (.f64 M M) D) D) (.f64 (.f64 d d) l)) #s(literal 1 binary64)))))
cost-diff	0	(.f64 (.f64 D D) #s(literal -1/8 binary64))
cost-diff	0	(fma.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) (.f64 (/.f64 h (.f64 d d)) (/.f64 (*.f64 M M) l)) #s(literal 1 binary64))
cost-diff	0	#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) (.f64 (/.f64 h (.f64 d d)) (/.f64 (*.f64 M M) l)) #s(literal 1 binary64)))
cost-diff	0	(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) (.f64 (/.f64 h (.f64 d d)) (/.f64 (*.f64 M M) l)) #s(literal 1 binary64))))
cost-diff	0	#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) w0)
cost-diff	0	(sqrt.f64 (/.f64 (-.f64 (.f64 #s(literal 2 binary64) l) (.f64 #s(literal 2 binary64) (.f64 h (pow.f64 (.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d)) #s(literal 2 binary64))))) (*.f64 #s(literal 2 binary64) l)))
cost-diff	0	(.f64 w0 (sqrt.f64 (/.f64 (-.f64 (.f64 #s(literal 2 binary64) l) (.f64 #s(literal 2 binary64) (.f64 h (pow.f64 (.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d)) #s(literal 2 binary64))))) (.f64 #s(literal 2 binary64) l))))
cost-diff	2	(-.f64 (.f64 #s(literal 2 binary64) l) (.f64 #s(literal 2 binary64) (.f64 h (pow.f64 (.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d)) #s(literal 2 binary64)))))
cost-diff	4	(/.f64 (-.f64 (.f64 #s(literal 2 binary64) l) (.f64 #s(literal 2 binary64) (.f64 h (pow.f64 (.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d)) #s(literal 2 binary64))))) (*.f64 #s(literal 2 binary64) l))

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	61	660
0	100	652
1	219	646
2	919	640
3	6106	640
0	8217	635

Stop Event

1×	iter limit
1×	node limit
1×	iter limit

Calls

Call 1

Inputs
(.f64 w0 (sqrt.f64 (/.f64 (-.f64 (.f64 #s(literal 2 binary64) l) (.f64 #s(literal 2 binary64) (.f64 h (pow.f64 (.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d)) #s(literal 2 binary64))))) (.f64 #s(literal 2 binary64) l))))
w0
(sqrt.f64 (/.f64 (-.f64 (.f64 #s(literal 2 binary64) l) (.f64 #s(literal 2 binary64) (.f64 h (pow.f64 (.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d)) #s(literal 2 binary64))))) (*.f64 #s(literal 2 binary64) l)))
(/.f64 (-.f64 (.f64 #s(literal 2 binary64) l) (.f64 #s(literal 2 binary64) (.f64 h (pow.f64 (.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d)) #s(literal 2 binary64))))) (*.f64 #s(literal 2 binary64) l))
(-.f64 (.f64 #s(literal 2 binary64) l) (.f64 #s(literal 2 binary64) (.f64 h (pow.f64 (.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d)) #s(literal 2 binary64)))))
(*.f64 #s(literal 2 binary64) l)
#s(literal 2 binary64)
l
(.f64 #s(literal 2 binary64) (.f64 h (pow.f64 (*.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d)) #s(literal 2 binary64))))
(.f64 h (pow.f64 (.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d)) #s(literal 2 binary64)))
h
(pow.f64 (*.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d)) #s(literal 2 binary64))
(*.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d))
(/.f64 D #s(literal 2 binary64))
D
(/.f64 M d)
M
d
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) w0)
w0
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) (.f64 (/.f64 h (.f64 d d)) (/.f64 (*.f64 M M) l)) #s(literal 1 binary64))))
w0
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) (.f64 (/.f64 h (.f64 d d)) (/.f64 (*.f64 M M) l)) #s(literal 1 binary64)))
(fma.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) (.f64 (/.f64 h (.f64 d d)) (/.f64 (*.f64 M M) l)) #s(literal 1 binary64))
(.f64 (.f64 D D) #s(literal -1/8 binary64))
(*.f64 D D)
D
#s(literal -1/8 binary64)
(.f64 (/.f64 h (.f64 d d)) (/.f64 (*.f64 M M) l))
(/.f64 h (*.f64 d d))
h
(*.f64 d d)
d
(/.f64 (*.f64 M M) l)
(*.f64 M M)
M
l
#s(literal 1 binary64)
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 h #s(literal -1/4 binary64)) (/.f64 (.f64 (.f64 (.f64 M M) D) D) (.f64 (.f64 d d) l)) #s(literal 1 binary64)))))
w0
(sqrt.f64 #s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 h #s(literal -1/4 binary64)) (/.f64 (.f64 (.f64 (.f64 M M) D) D) (.f64 (.f64 d d) l)) #s(literal 1 binary64))))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 h #s(literal -1/4 binary64)) (/.f64 (.f64 (.f64 (.f64 M M) D) D) (.f64 (.f64 d d) l)) #s(literal 1 binary64)))
(fma.f64 (.f64 h #s(literal -1/4 binary64)) (/.f64 (.f64 (.f64 (.f64 M M) D) D) (.f64 (.f64 d d) l)) #s(literal 1 binary64))
(*.f64 h #s(literal -1/4 binary64))
h
#s(literal -1/4 binary64)
(/.f64 (.f64 (.f64 (.f64 M M) D) D) (.f64 (*.f64 d d) l))
(.f64 (.f64 (*.f64 M M) D) D)
(.f64 (.f64 M M) D)
(*.f64 M M)
M
D
(.f64 (.f64 d d) l)
(*.f64 d d)
d
l
#s(literal 1 binary64)
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (/.f64 (-.f64 l (.f64 (.f64 #s(literal 1/4 binary64) (.f64 D D)) (.f64 (/.f64 (*.f64 M M) d) (/.f64 h d)))) l))))
w0
(sqrt.f64 #s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (/.f64 (-.f64 l (.f64 (.f64 #s(literal 1/4 binary64) (.f64 D D)) (.f64 (/.f64 (*.f64 M M) d) (/.f64 h d)))) l)))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (/.f64 (-.f64 l (.f64 (.f64 #s(literal 1/4 binary64) (.f64 D D)) (.f64 (/.f64 (*.f64 M M) d) (/.f64 h d)))) l))
(/.f64 (-.f64 l (.f64 (.f64 #s(literal 1/4 binary64) (.f64 D D)) (.f64 (/.f64 (*.f64 M M) d) (/.f64 h d)))) l)
(-.f64 l (.f64 (.f64 #s(literal 1/4 binary64) (.f64 D D)) (.f64 (/.f64 (*.f64 M M) d) (/.f64 h d))))
l
(.f64 (.f64 #s(literal 1/4 binary64) (.f64 D D)) (.f64 (/.f64 (*.f64 M M) d) (/.f64 h d)))
(.f64 #s(literal 1/4 binary64) (.f64 D D))
#s(literal 1/4 binary64)
(*.f64 D D)
D
(.f64 (/.f64 (.f64 M M) d) (/.f64 h d))
(/.f64 (*.f64 M M) d)
(*.f64 M M)
M
d
(/.f64 h d)
h

Outputs
(.f64 w0 (sqrt.f64 (/.f64 (-.f64 (.f64 #s(literal 2 binary64) l) (.f64 #s(literal 2 binary64) (.f64 h (pow.f64 (.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d)) #s(literal 2 binary64))))) (.f64 #s(literal 2 binary64) l))))
(.f64 (sqrt.f64 (fma.f64 (/.f64 (neg.f64 h) l) (pow.f64 (.f64 (/.f64 (/.f64 M #s(literal 2 binary64)) d) D) #s(literal 2 binary64)) #s(literal 1 binary64))) w0)
w0
(sqrt.f64 (/.f64 (-.f64 (.f64 #s(literal 2 binary64) l) (.f64 #s(literal 2 binary64) (.f64 h (pow.f64 (.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d)) #s(literal 2 binary64))))) (*.f64 #s(literal 2 binary64) l)))
(sqrt.f64 (fma.f64 (/.f64 (neg.f64 h) l) (pow.f64 (*.f64 (/.f64 (/.f64 M #s(literal 2 binary64)) d) D) #s(literal 2 binary64)) #s(literal 1 binary64)))
(/.f64 (-.f64 (.f64 #s(literal 2 binary64) l) (.f64 #s(literal 2 binary64) (.f64 h (pow.f64 (.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d)) #s(literal 2 binary64))))) (*.f64 #s(literal 2 binary64) l))
(fma.f64 (/.f64 (neg.f64 h) l) (pow.f64 (*.f64 (/.f64 (/.f64 M #s(literal 2 binary64)) d) D) #s(literal 2 binary64)) #s(literal 1 binary64))
(-.f64 (.f64 #s(literal 2 binary64) l) (.f64 #s(literal 2 binary64) (.f64 h (pow.f64 (.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d)) #s(literal 2 binary64)))))
(.f64 (fma.f64 (neg.f64 h) (pow.f64 (.f64 (/.f64 (/.f64 M #s(literal 2 binary64)) d) D) #s(literal 2 binary64)) l) #s(literal 2 binary64))
(*.f64 #s(literal 2 binary64) l)
(*.f64 l #s(literal 2 binary64))
#s(literal 2 binary64)
l
(.f64 #s(literal 2 binary64) (.f64 h (pow.f64 (*.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d)) #s(literal 2 binary64))))
(.f64 (.f64 h #s(literal 2 binary64)) (pow.f64 (*.f64 (/.f64 (/.f64 M #s(literal 2 binary64)) d) D) #s(literal 2 binary64)))
(.f64 h (pow.f64 (.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d)) #s(literal 2 binary64)))
(.f64 (pow.f64 (.f64 (/.f64 (/.f64 M #s(literal 2 binary64)) d) D) #s(literal 2 binary64)) h)
h
(pow.f64 (*.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d)) #s(literal 2 binary64))
(pow.f64 (*.f64 (/.f64 (/.f64 M #s(literal 2 binary64)) d) D) #s(literal 2 binary64))
(*.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d))
(*.f64 (/.f64 (/.f64 M #s(literal 2 binary64)) d) D)
(/.f64 D #s(literal 2 binary64))
D
(/.f64 M d)
M
d
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) w0)
w0
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) (.f64 (/.f64 h (.f64 d d)) (/.f64 (*.f64 M M) l)) #s(literal 1 binary64))))
(.f64 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (/.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) d) (.f64 h (/.f64 (/.f64 (.f64 M M) l) d)) #s(literal 1 binary64))) w0)
w0
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) (.f64 (/.f64 h (.f64 d d)) (/.f64 (*.f64 M M) l)) #s(literal 1 binary64)))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (/.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) d) (.f64 h (/.f64 (/.f64 (.f64 M M) l) d)) #s(literal 1 binary64)))
(fma.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) (.f64 (/.f64 h (.f64 d d)) (/.f64 (*.f64 M M) l)) #s(literal 1 binary64))
(fma.f64 (/.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) d) (.f64 h (/.f64 (/.f64 (.f64 M M) l) d)) #s(literal 1 binary64))
(.f64 (.f64 D D) #s(literal -1/8 binary64))
(.f64 #s(literal -1/8 binary64) (.f64 D D))
(*.f64 D D)
D
#s(literal -1/8 binary64)
(.f64 (/.f64 h (.f64 d d)) (/.f64 (*.f64 M M) l))
(.f64 (/.f64 (/.f64 (/.f64 (.f64 M M) l) d) d) h)
(/.f64 h (*.f64 d d))
h
(*.f64 d d)
d
(/.f64 (*.f64 M M) l)
(*.f64 M M)
M
l
#s(literal 1 binary64)
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 h #s(literal -1/4 binary64)) (/.f64 (.f64 (.f64 (.f64 M M) D) D) (.f64 (.f64 d d) l)) #s(literal 1 binary64)))))
(.f64 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (/.f64 (fma.f64 (.f64 #s(literal -1/4 binary64) (/.f64 h (.f64 d d))) (.f64 (.f64 (*.f64 M M) D) D) l) l))) w0)
w0
(sqrt.f64 #s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 h #s(literal -1/4 binary64)) (/.f64 (.f64 (.f64 (.f64 M M) D) D) (.f64 (.f64 d d) l)) #s(literal 1 binary64))))
(sqrt.f64 #s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (/.f64 (fma.f64 (.f64 #s(literal -1/4 binary64) (/.f64 h (.f64 d d))) (.f64 (.f64 (*.f64 M M) D) D) l) l)))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 h #s(literal -1/4 binary64)) (/.f64 (.f64 (.f64 (.f64 M M) D) D) (.f64 (.f64 d d) l)) #s(literal 1 binary64)))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (/.f64 (fma.f64 (.f64 #s(literal -1/4 binary64) (/.f64 h (.f64 d d))) (.f64 (.f64 (*.f64 M M) D) D) l) l))
(fma.f64 (.f64 h #s(literal -1/4 binary64)) (/.f64 (.f64 (.f64 (.f64 M M) D) D) (.f64 (.f64 d d) l)) #s(literal 1 binary64))
(/.f64 (fma.f64 (.f64 #s(literal -1/4 binary64) (/.f64 h (.f64 d d))) (.f64 (.f64 (*.f64 M M) D) D) l) l)
(*.f64 h #s(literal -1/4 binary64))
(*.f64 #s(literal -1/4 binary64) h)
h
#s(literal -1/4 binary64)
(/.f64 (.f64 (.f64 (.f64 M M) D) D) (.f64 (*.f64 d d) l))
(.f64 (/.f64 M (.f64 d l)) (/.f64 (.f64 (.f64 M D) D) d))
(.f64 (.f64 (*.f64 M M) D) D)
(.f64 (.f64 M M) D)
(*.f64 M M)
M
D
(.f64 (.f64 d d) l)
(*.f64 d d)
d
l
#s(literal 1 binary64)
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (/.f64 (-.f64 l (.f64 (.f64 #s(literal 1/4 binary64) (.f64 D D)) (.f64 (/.f64 (*.f64 M M) d) (/.f64 h d)))) l))))
(.f64 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 #s(literal -1/4 binary64) (.f64 D D)) (.f64 (/.f64 (/.f64 (/.f64 (.f64 M M) l) d) d) h) #s(literal 1 binary64)))) w0)
w0
(sqrt.f64 #s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (/.f64 (-.f64 l (.f64 (.f64 #s(literal 1/4 binary64) (.f64 D D)) (.f64 (/.f64 (*.f64 M M) d) (/.f64 h d)))) l)))
(sqrt.f64 #s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 #s(literal -1/4 binary64) (.f64 D D)) (.f64 (/.f64 (/.f64 (/.f64 (.f64 M M) l) d) d) h) #s(literal 1 binary64))))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (/.f64 (-.f64 l (.f64 (.f64 #s(literal 1/4 binary64) (.f64 D D)) (.f64 (/.f64 (*.f64 M M) d) (/.f64 h d)))) l))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 #s(literal -1/4 binary64) (.f64 D D)) (.f64 (/.f64 (/.f64 (/.f64 (.f64 M M) l) d) d) h) #s(literal 1 binary64)))
(/.f64 (-.f64 l (.f64 (.f64 #s(literal 1/4 binary64) (.f64 D D)) (.f64 (/.f64 (*.f64 M M) d) (/.f64 h d)))) l)
(fma.f64 (.f64 #s(literal -1/4 binary64) (.f64 D D)) (.f64 (/.f64 (/.f64 (/.f64 (.f64 M M) l) d) d) h) #s(literal 1 binary64))
(-.f64 l (.f64 (.f64 #s(literal 1/4 binary64) (.f64 D D)) (.f64 (/.f64 (*.f64 M M) d) (/.f64 h d))))
(fma.f64 (.f64 #s(literal -1/4 binary64) (.f64 D D)) (.f64 (.f64 (/.f64 h d) M) (/.f64 M d)) l)
l
(.f64 (.f64 #s(literal 1/4 binary64) (.f64 D D)) (.f64 (/.f64 (*.f64 M M) d) (/.f64 h d)))
(.f64 (.f64 (.f64 (/.f64 M d) M) h) (/.f64 (.f64 #s(literal 1/4 binary64) (*.f64 D D)) d))
(.f64 #s(literal 1/4 binary64) (.f64 D D))
#s(literal 1/4 binary64)
(*.f64 D D)
D
(.f64 (/.f64 (.f64 M M) d) (/.f64 h d))
(.f64 (.f64 (/.f64 h d) M) (/.f64 M d))
(/.f64 (*.f64 M M) d)
(*.f64 (/.f64 M d) M)
(*.f64 M M)
M
d
(/.f64 h d)
h

localize215.0ms (2.3%)

Memory

-29.3MiB live, 214.9MiB allocated; 29ms collecting garbage

Localize:

Found 17 expressions of interest:

New	Metric	Score
accuracy	5.860770706292823	(sqrt.f64 #s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (/.f64 (-.f64 l (.f64 (.f64 #s(literal 1/4 binary64) (.f64 D D)) (.f64 (/.f64 (*.f64 M M) d) (/.f64 h d)))) l)))
accuracy	6.116264637486173	(/.f64 (*.f64 M M) d)
accuracy	7.910075256620667	(.f64 (/.f64 (.f64 M M) d) (/.f64 h d))
accuracy	17.582919137390146	(.f64 (.f64 #s(literal 1/4 binary64) (.f64 D D)) (.f64 (/.f64 (*.f64 M M) d) (/.f64 h d)))
accuracy	5.860770706292823	(sqrt.f64 #s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 h #s(literal -1/4 binary64)) (/.f64 (.f64 (.f64 (.f64 M M) D) D) (.f64 (.f64 d d) l)) #s(literal 1 binary64))))
accuracy	6.233555505547666	(.f64 (.f64 M M) D)
accuracy	7.0941372732092995	(.f64 (.f64 d d) l)
accuracy	15.903143031054922	(/.f64 (.f64 (.f64 (.f64 M M) D) D) (.f64 (*.f64 d d) l))
accuracy	9.400826092867899	(/.f64 h (*.f64 d d))
accuracy	11.996290279822626	#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) (.f64 (/.f64 h (.f64 d d)) (/.f64 (*.f64 M M) l)) #s(literal 1 binary64)))
accuracy	14.262705496797338	(.f64 (/.f64 h (.f64 d d)) (/.f64 (*.f64 M M) l))
accuracy	14.474916672867947	(fma.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) (.f64 (/.f64 h (.f64 d d)) (/.f64 (*.f64 M M) l)) #s(literal 1 binary64))
accuracy	19.1296249242521	#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) w0)
accuracy	2.614689582928147	(.f64 w0 (sqrt.f64 (/.f64 (-.f64 (.f64 #s(literal 2 binary64) l) (.f64 #s(literal 2 binary64) (.f64 h (pow.f64 (.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d)) #s(literal 2 binary64))))) (.f64 #s(literal 2 binary64) l))))
accuracy	5.203358078301366	(.f64 h (pow.f64 (.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d)) #s(literal 2 binary64)))
accuracy	5.860770706292823	(sqrt.f64 (/.f64 (-.f64 (.f64 #s(literal 2 binary64) l) (.f64 #s(literal 2 binary64) (.f64 h (pow.f64 (.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d)) #s(literal 2 binary64))))) (*.f64 #s(literal 2 binary64) l)))
accuracy	7.841646768205248	(*.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d))

Samples

142.0ms

256×

valid

Compiler

Compiled 507 to 56 computations (89% saved)

Precisions

Click to see histograms. Total time spent on operations: 88.0ms

ival-mult: 39.0ms (44.5% of total)

ival-div: 35.0ms (39.9% of total)

ival-pow2: 5.0ms (5.7% of total)

ival-sub: 3.0ms (3.4% of total)

ival-sqrt: 3.0ms (3.4% of total)

ival-add: 2.0ms (2.3% of total)

exact: 1.0ms (1.1% of total)

adjust: 0.0ms (0% of total)

ival-assert: 0.0ms (0% of total)

ival-true: 0.0ms (0% of total)

series171.0ms (1.9%)

Memory

22.9MiB live, 212.1MiB allocated; 18ms collecting garbage

Counts

27 → 227

Calls

Call 1

Inputs
(/.f64 (-.f64 (.f64 #s(literal 2 binary64) l) (.f64 #s(literal 2 binary64) (.f64 h (pow.f64 (.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d)) #s(literal 2 binary64))))) (*.f64 #s(literal 2 binary64) l))
(-.f64 (.f64 #s(literal 2 binary64) l) (.f64 #s(literal 2 binary64) (.f64 h (pow.f64 (.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d)) #s(literal 2 binary64)))))
(.f64 w0 (sqrt.f64 (/.f64 (-.f64 (.f64 #s(literal 2 binary64) l) (.f64 #s(literal 2 binary64) (.f64 h (pow.f64 (.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d)) #s(literal 2 binary64))))) (.f64 #s(literal 2 binary64) l))))
(sqrt.f64 (/.f64 (-.f64 (.f64 #s(literal 2 binary64) l) (.f64 #s(literal 2 binary64) (.f64 h (pow.f64 (.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d)) #s(literal 2 binary64))))) (*.f64 #s(literal 2 binary64) l)))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) w0)
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) (.f64 (/.f64 h (.f64 d d)) (/.f64 (*.f64 M M) l)) #s(literal 1 binary64))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) (.f64 (/.f64 h (.f64 d d)) (/.f64 (*.f64 M M) l)) #s(literal 1 binary64)))
(fma.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) (.f64 (/.f64 h (.f64 d d)) (/.f64 (*.f64 M M) l)) #s(literal 1 binary64))
(.f64 (.f64 D D) #s(literal -1/8 binary64))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 h #s(literal -1/4 binary64)) (/.f64 (.f64 (.f64 (.f64 M M) D) D) (.f64 (.f64 d d) l)) #s(literal 1 binary64)))))
(sqrt.f64 #s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 h #s(literal -1/4 binary64)) (/.f64 (.f64 (.f64 (.f64 M M) D) D) (.f64 (.f64 d d) l)) #s(literal 1 binary64))))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 h #s(literal -1/4 binary64)) (/.f64 (.f64 (.f64 (.f64 M M) D) D) (.f64 (.f64 d d) l)) #s(literal 1 binary64)))
(fma.f64 (.f64 h #s(literal -1/4 binary64)) (/.f64 (.f64 (.f64 (.f64 M M) D) D) (.f64 (.f64 d d) l)) #s(literal 1 binary64))
(-.f64 l (.f64 (.f64 #s(literal 1/4 binary64) (.f64 D D)) (.f64 (/.f64 (*.f64 M M) d) (/.f64 h d))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (/.f64 (-.f64 l (.f64 (.f64 #s(literal 1/4 binary64) (.f64 D D)) (.f64 (/.f64 (*.f64 M M) d) (/.f64 h d)))) l))))
(sqrt.f64 #s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (/.f64 (-.f64 l (.f64 (.f64 #s(literal 1/4 binary64) (.f64 D D)) (.f64 (/.f64 (*.f64 M M) d) (/.f64 h d)))) l)))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (/.f64 (-.f64 l (.f64 (.f64 #s(literal 1/4 binary64) (.f64 D D)) (.f64 (/.f64 (*.f64 M M) d) (/.f64 h d)))) l))
(*.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d))
(.f64 h (pow.f64 (.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d)) #s(literal 2 binary64)))
(.f64 (/.f64 h (.f64 d d)) (/.f64 (*.f64 M M) l))
(/.f64 h (*.f64 d d))
(/.f64 (.f64 (.f64 (.f64 M M) D) D) (.f64 (*.f64 d d) l))
(.f64 (.f64 d d) l)
(.f64 (.f64 M M) D)
(.f64 (.f64 #s(literal 1/4 binary64) (.f64 D D)) (.f64 (/.f64 (*.f64 M M) d) (/.f64 h d)))
(.f64 (/.f64 (.f64 M M) d) (/.f64 h d))
(/.f64 (*.f64 M M) d)

Outputs
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (* (sqrt (/ (- (* 2 l) (* 1/2 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l)) (* w0 (sqrt 1/2)))))
#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 (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)) #s(hole binary64 1))
#s(approx (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)) #s(hole binary64 (+ 1 (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))))))
#s(approx (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) #s(hole binary64 (* 2 l)))
#s(approx (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) #s(hole binary64 (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2))) (* 2 l))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (* w0 (* (sqrt 1/2) (sqrt 2)))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (* h (* w0 (sqrt 1/2))))) (* (pow d 2) (* l (sqrt 2))))) (* w0 (* (sqrt 1/2) (sqrt 2))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (+ (* w0 (* (sqrt 1/2) (sqrt 2))) (* (pow M 2) (+ (* -1/4 (/ (* (pow D 2) (* h (* w0 (sqrt 1/2)))) (* (pow d 2) (* l (sqrt 2))))) (* -1/32 (/ (* (pow D 4) (* (pow M 2) (* (pow h 2) (* w0 (sqrt 1/2))))) (* (pow d 4) (* (pow l 2) (pow (sqrt 2) 3))))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (+ (* w0 (* (sqrt 1/2) (sqrt 2))) (* (pow M 2) (+ (* -1/4 (/ (* (pow D 2) (* h (* w0 (sqrt 1/2)))) (* (pow d 2) (* l (sqrt 2))))) (* (pow M 2) (+ (* -1/32 (/ (* (pow D 4) (* (pow h 2) (* w0 (sqrt 1/2)))) (* (pow d 4) (* (pow l 2) (pow (sqrt 2) 3))))) (* -1/128 (/ (* (pow D 6) (* (pow M 2) (* (pow h 3) (* w0 (sqrt 1/2))))) (* (pow d 6) (* (pow l 3) (pow (sqrt 2) 5))))))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (* (sqrt 1/2) (sqrt 2))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (* h (sqrt 1/2)))) (* (pow d 2) (* l (sqrt 2))))) (* (sqrt 1/2) (sqrt 2)))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (+ (* (sqrt 1/2) (sqrt 2)) (* (pow M 2) (+ (* -1/4 (/ (* (pow D 2) (* h (sqrt 1/2))) (* (pow d 2) (* l (sqrt 2))))) (* -1/32 (/ (* (pow D 4) (* (pow M 2) (* (pow h 2) (sqrt 1/2)))) (* (pow d 4) (* (pow l 2) (pow (sqrt 2) 3))))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (+ (* (sqrt 1/2) (sqrt 2)) (* (pow M 2) (+ (* -1/4 (/ (* (pow D 2) (* h (sqrt 1/2))) (* (pow d 2) (* l (sqrt 2))))) (* (pow M 2) (+ (* -1/32 (/ (* (pow D 4) (* (pow h 2) (sqrt 1/2))) (* (pow d 4) (* (pow l 2) (pow (sqrt 2) 3))))) (* -1/128 (/ (* (pow D 6) (* (pow M 2) (* (pow h 3) (sqrt 1/2)))) (* (pow d 6) (* (pow l 3) (pow (sqrt 2) 5))))))))))))
#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 (+ (* (* (* D D) -1/8) (* (/ h (* d d)) (/ (* M M) l))) 1) #s(hole binary64 1))
#s(approx (+ (* (* (* D D) -1/8) (* (/ h (* d d)) (/ (* M M) l))) 1) #s(hole binary64 (+ 1 (* -1/8 (/ (* (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 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 (+ (* (* h -1/4) (/ (* (* (* M M) D) D) (* (* d d) l))) 1) #s(hole binary64 1))
#s(approx (+ (* (* h -1/4) (/ (* (* (* M M) D) D) (* (* d d) l))) 1) #s(hole binary64 (+ 1 (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))))))
#s(approx (- l (* (* 1/4 (* D D)) (* (/ (* M M) d) (/ h d)))) #s(hole binary64 l))
#s(approx (- l (* (* 1/4 (* D D)) (* (/ (* M M) d) (/ h d)))) #s(hole binary64 (+ l (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2))))))
#s(approx (* (/ D 2) (/ M d)) #s(hole binary64 (* 1/2 (/ (* D M) d))))
#s(approx (* h (pow (* (/ D 2) (/ M d)) 2)) #s(hole binary64 (* 1/4 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))))
#s(approx (* (/ h (* d d)) (/ (* M M) l)) #s(hole binary64 (/ (* (pow M 2) h) (* (pow d 2) l))))
#s(approx (/ (* (* (* M M) D) D) (* (* d d) l)) #s(hole binary64 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))))
#s(approx (* (* M M) D) #s(hole binary64 (* D (pow M 2))))
#s(approx (* (* 1/4 (* D D)) (* (/ (* M M) d) (/ h d))) #s(hole binary64 (* 1/4 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))))
#s(approx (* (/ (* M M) d) (/ h d)) #s(hole binary64 (/ (* (pow M 2) h) (pow d 2))))
#s(approx (/ (* M M) d) #s(hole binary64 (/ (pow M 2) d)))
#s(approx (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)) #s(hole binary64 (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l)))))
#s(approx (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)) #s(hole binary64 (* (pow M 2) (+ (* -1/4 (/ (* (pow D 2) h) (* (pow d 2) l))) (/ 1 (pow M 2))))))
#s(approx (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) #s(hole binary64 (* -1/2 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))))
#s(approx (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) #s(hole binary64 (* (pow M 2) (- (* 2 (/ l (pow M 2))) (* 1/2 (/ (* (pow D 2) h) (pow d 2)))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (* (/ (* D (* M (* w0 (* (sqrt -1/2) (sqrt 1/2))))) d) (sqrt (/ h l)))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (* M (+ (* (/ (* D (* w0 (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (/ h l))) (* (/ (* d (* w0 (sqrt 1/2))) (* D (* (pow M 2) (sqrt -1/2)))) (sqrt (/ l h)))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (* M (+ (* -1/2 (* (/ (* (pow d 3) (* w0 (sqrt 1/2))) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* (/ (* D (* w0 (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (/ h l))) (* (/ (* d (* w0 (sqrt 1/2))) (* D (* (pow M 2) (sqrt -1/2)))) (sqrt (/ l h))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (* M (+ (* -1/2 (* (/ (* (pow d 3) (* w0 (sqrt 1/2))) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ (* (pow d 5) (* w0 (sqrt 1/2))) (* (pow D 5) (* (pow M 6) (pow (sqrt -1/2) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* (/ (* D (* w0 (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (/ h l))) (* (/ (* d (* w0 (sqrt 1/2))) (* D (* (pow M 2) (sqrt -1/2)))) (sqrt (/ l h)))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (* (/ (* D (* M (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (/ h l)))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (* M (+ (* (/ (* D (* (sqrt -1/2) (sqrt 1/2))) d) (sqrt (/ h l))) (* (/ (* d (sqrt 1/2)) (* D (* (pow M 2) (sqrt -1/2)))) (sqrt (/ l h)))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (* M (+ (* -1/2 (* (/ (* (pow d 3) (sqrt 1/2)) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* (/ (* D (* (sqrt -1/2) (sqrt 1/2))) d) (sqrt (/ h l))) (* (/ (* d (sqrt 1/2)) (* D (* (pow M 2) (sqrt -1/2)))) (sqrt (/ l h))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (* M (+ (* -1/2 (* (/ (* (pow d 3) (sqrt 1/2)) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ (* (pow d 5) (sqrt 1/2)) (* (pow D 5) (* (pow M 6) (pow (sqrt -1/2) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* (/ (* D (* (sqrt -1/2) (sqrt 1/2))) d) (sqrt (/ h l))) (* (/ (* d (sqrt 1/2)) (* D (* (pow M 2) (sqrt -1/2)))) (sqrt (/ l h)))))))))
#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) 3)))) (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) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 5) (* (pow M 6) (pow (sqrt -1/4) 5)))) (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) 3)))) (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) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (pow d 5) (* (pow D 5) (* (pow M 6) (pow (sqrt -1/4) 5)))) (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 (+ (* (* (* D D) -1/8) (* (/ h (* d d)) (/ (* M M) l))) 1) #s(hole binary64 (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l)))))
#s(approx (+ (* (* (* D D) -1/8) (* (/ h (* d d)) (/ (* M M) l))) 1) #s(hole binary64 (* (pow M 2) (+ (* -1/8 (/ (* (pow D 2) h) (* (pow d 2) l))) (/ 1 (pow M 2))))))
#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 (+ (* (* h -1/4) (/ (* (* (* M M) D) D) (* (* d d) l))) 1) #s(hole binary64 (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l)))))
#s(approx (+ (* (* h -1/4) (/ (* (* (* M M) D) D) (* (* d d) l))) 1) #s(hole binary64 (* (pow M 2) (+ (* -1/4 (/ (* (pow D 2) h) (* (pow d 2) l))) (/ 1 (pow M 2))))))
#s(approx (- l (* (* 1/4 (* D D)) (* (/ (* M M) d) (/ h d)))) #s(hole binary64 (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))))
#s(approx (- l (* (* 1/4 (* D D)) (* (/ (* M M) d) (/ h d)))) #s(hole binary64 (* (pow M 2) (- (/ l (pow M 2)) (* 1/4 (/ (* (pow D 2) h) (pow d 2)))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (* -1 (* (/ (* D (* M (* w0 (* (sqrt -1/2) (sqrt 1/2))))) d) (sqrt (/ h l))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (* -1 (* M (+ (* (/ (* D (* w0 (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (/ h l))) (* (/ (* d (* w0 (sqrt 1/2))) (* D (* (pow M 2) (sqrt -1/2)))) (sqrt (/ l h))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (* -1 (* M (+ (* -1/2 (* (/ (* (pow d 3) (* w0 (sqrt 1/2))) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* (/ (* D (* w0 (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (/ h l))) (* (/ (* d (* w0 (sqrt 1/2))) (* D (* (pow M 2) (sqrt -1/2)))) (sqrt (/ l h)))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (* -1 (* M (+ (* -1/2 (* (/ (* (pow d 3) (* w0 (sqrt 1/2))) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ (* (pow d 5) (* w0 (sqrt 1/2))) (* (pow D 5) (* (pow M 6) (pow (sqrt -1/2) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* (/ (* D (* w0 (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (/ h l))) (* (/ (* d (* w0 (sqrt 1/2))) (* D (* (pow M 2) (sqrt -1/2)))) (sqrt (/ l h))))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (* -1 (* (/ (* D (* M (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (/ h l))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (* -1 (* M (+ (* (/ (* D (* (sqrt -1/2) (sqrt 1/2))) d) (sqrt (/ h l))) (* (/ (* d (sqrt 1/2)) (* D (* (pow M 2) (sqrt -1/2)))) (sqrt (/ l h))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (* -1 (* M (+ (* -1/2 (* (/ (* (pow d 3) (sqrt 1/2)) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* (/ (* D (* (sqrt -1/2) (sqrt 1/2))) d) (sqrt (/ h l))) (* (/ (* d (sqrt 1/2)) (* D (* (pow M 2) (sqrt -1/2)))) (sqrt (/ l h)))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (* -1 (* M (+ (* -1/2 (* (/ (* (pow d 3) (sqrt 1/2)) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ (* (pow d 5) (sqrt 1/2)) (* (pow D 5) (* (pow M 6) (pow (sqrt -1/2) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* (/ (* D (* (sqrt -1/2) (sqrt 1/2))) d) (sqrt (/ h l))) (* (/ (* d (sqrt 1/2)) (* D (* (pow M 2) (sqrt -1/2)))) (sqrt (/ l h))))))))))
#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) (pow (sqrt -1/4) 3)))) (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) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 5) (* (pow M 6) (pow (sqrt -1/4) 5)))) (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) 3)))) (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) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (pow d 5) (* (pow D 5) (* (pow M 6) (pow (sqrt -1/4) 5)))) (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 (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (+ (* w0 (* (sqrt 1/2) (sqrt 2))) (* (pow D 2) (+ (* -1/4 (/ (* (pow M 2) (* h (* w0 (sqrt 1/2)))) (* (pow d 2) (* l (sqrt 2))))) (* -1/32 (/ (* (pow D 2) (* (pow M 4) (* (pow h 2) (* w0 (sqrt 1/2))))) (* (pow d 4) (* (pow l 2) (pow (sqrt 2) 3))))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (+ (* w0 (* (sqrt 1/2) (sqrt 2))) (* (pow D 2) (+ (* -1/4 (/ (* (pow M 2) (* h (* w0 (sqrt 1/2)))) (* (pow d 2) (* l (sqrt 2))))) (* (pow D 2) (+ (* -1/32 (/ (* (pow M 4) (* (pow h 2) (* w0 (sqrt 1/2)))) (* (pow d 4) (* (pow l 2) (pow (sqrt 2) 3))))) (* -1/128 (/ (* (pow D 2) (* (pow M 6) (* (pow h 3) (* w0 (sqrt 1/2))))) (* (pow d 6) (* (pow l 3) (pow (sqrt 2) 5))))))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (+ (* (sqrt 1/2) (sqrt 2)) (* (pow D 2) (+ (* -1/4 (/ (* (pow M 2) (* h (sqrt 1/2))) (* (pow d 2) (* l (sqrt 2))))) (* -1/32 (/ (* (pow D 2) (* (pow M 4) (* (pow h 2) (sqrt 1/2)))) (* (pow d 4) (* (pow l 2) (pow (sqrt 2) 3))))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (+ (* (sqrt 1/2) (sqrt 2)) (* (pow D 2) (+ (* -1/4 (/ (* (pow M 2) (* h (sqrt 1/2))) (* (pow d 2) (* l (sqrt 2))))) (* (pow D 2) (+ (* -1/32 (/ (* (pow M 4) (* (pow h 2) (sqrt 1/2))) (* (pow d 4) (* (pow l 2) (pow (sqrt 2) 3))))) (* -1/128 (/ (* (pow D 2) (* (pow M 6) (* (pow h 3) (sqrt 1/2)))) (* (pow d 6) (* (pow l 3) (pow (sqrt 2) 5))))))))))))
#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 D) -1/8) #s(hole binary64 (* -1/8 (pow D 2))))
#s(approx (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)) #s(hole binary64 (* (pow D 2) (+ (* -1/4 (/ (* (pow M 2) h) (* (pow d 2) l))) (/ 1 (pow D 2))))))
#s(approx (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) #s(hole binary64 (* (pow D 2) (- (* 2 (/ l (pow D 2))) (* 1/2 (/ (* (pow M 2) h) (pow d 2)))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (* D (+ (* (/ (* M (* w0 (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (/ h l))) (* (/ (* d (* w0 (sqrt 1/2))) (* (pow D 2) (* M (sqrt -1/2)))) (sqrt (/ l h)))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (* D (+ (* -1/2 (* (/ (* (pow d 3) (* w0 (sqrt 1/2))) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* (/ (* M (* w0 (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (/ h l))) (* (/ (* d (* w0 (sqrt 1/2))) (* (pow D 2) (* M (sqrt -1/2)))) (sqrt (/ l h))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (* D (+ (* -1/2 (* (/ (* (pow d 3) (* w0 (sqrt 1/2))) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ (* (pow d 5) (* w0 (sqrt 1/2))) (* (pow D 6) (* (pow M 5) (pow (sqrt -1/2) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* (/ (* M (* w0 (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (/ h l))) (* (/ (* d (* w0 (sqrt 1/2))) (* (pow D 2) (* M (sqrt -1/2)))) (sqrt (/ l h)))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (* D (+ (* (/ (* M (* (sqrt -1/2) (sqrt 1/2))) d) (sqrt (/ h l))) (* (/ (* d (sqrt 1/2)) (* (pow D 2) (* M (sqrt -1/2)))) (sqrt (/ l h)))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (* D (+ (* -1/2 (* (/ (* (pow d 3) (sqrt 1/2)) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* (/ (* M (* (sqrt -1/2) (sqrt 1/2))) d) (sqrt (/ h l))) (* (/ (* d (sqrt 1/2)) (* (pow D 2) (* M (sqrt -1/2)))) (sqrt (/ l h))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (* D (+ (* -1/2 (* (/ (* (pow d 3) (sqrt 1/2)) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ (* (pow d 5) (sqrt 1/2)) (* (pow D 6) (* (pow M 5) (pow (sqrt -1/2) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* (/ (* M (* (sqrt -1/2) (sqrt 1/2))) d) (sqrt (/ h l))) (* (/ (* d (sqrt 1/2)) (* (pow D 2) (* M (sqrt -1/2)))) (sqrt (/ l h)))))))))
#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) 3)))) (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) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 6) (* (pow M 5) (pow (sqrt -1/4) 5)))) (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) 3)))) (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) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (pow d 5) (* (pow D 6) (* (pow M 5) (pow (sqrt -1/4) 5)))) (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 (+ (* (* (* D D) -1/8) (* (/ h (* d d)) (/ (* M M) l))) 1) #s(hole binary64 (* (pow D 2) (+ (* -1/8 (/ (* (pow M 2) h) (* (pow d 2) l))) (/ 1 (pow D 2))))))
#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 (+ (* (* h -1/4) (/ (* (* (* M M) D) D) (* (* d d) l))) 1) #s(hole binary64 (* (pow D 2) (+ (* -1/4 (/ (* (pow M 2) h) (* (pow d 2) l))) (/ 1 (pow D 2))))))
#s(approx (- l (* (* 1/4 (* D D)) (* (/ (* M M) d) (/ h d)))) #s(hole binary64 (* (pow D 2) (- (/ l (pow D 2)) (* 1/4 (/ (* (pow M 2) h) (pow d 2)))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (* -1 (* D (+ (* (/ (* M (* w0 (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (/ h l))) (* (/ (* d (* w0 (sqrt 1/2))) (* (pow D 2) (* M (sqrt -1/2)))) (sqrt (/ l h))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (* -1 (* D (+ (* -1/2 (* (/ (* (pow d 3) (* w0 (sqrt 1/2))) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* (/ (* M (* w0 (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (/ h l))) (* (/ (* d (* w0 (sqrt 1/2))) (* (pow D 2) (* M (sqrt -1/2)))) (sqrt (/ l h)))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (* -1 (* D (+ (* -1/2 (* (/ (* (pow d 3) (* w0 (sqrt 1/2))) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ (* (pow d 5) (* w0 (sqrt 1/2))) (* (pow D 6) (* (pow M 5) (pow (sqrt -1/2) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* (/ (* M (* w0 (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (/ h l))) (* (/ (* d (* w0 (sqrt 1/2))) (* (pow D 2) (* M (sqrt -1/2)))) (sqrt (/ l h))))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (* -1 (* D (+ (* (/ (* M (* (sqrt -1/2) (sqrt 1/2))) d) (sqrt (/ h l))) (* (/ (* d (sqrt 1/2)) (* (pow D 2) (* M (sqrt -1/2)))) (sqrt (/ l h))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (* -1 (* D (+ (* -1/2 (* (/ (* (pow d 3) (sqrt 1/2)) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* (/ (* M (* (sqrt -1/2) (sqrt 1/2))) d) (sqrt (/ h l))) (* (/ (* d (sqrt 1/2)) (* (pow D 2) (* M (sqrt -1/2)))) (sqrt (/ l h)))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (* -1 (* D (+ (* -1/2 (* (/ (* (pow d 3) (sqrt 1/2)) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ (* (pow d 5) (sqrt 1/2)) (* (pow D 6) (* (pow M 5) (pow (sqrt -1/2) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* (/ (* M (* (sqrt -1/2) (sqrt 1/2))) d) (sqrt (/ h l))) (* (/ (* d (sqrt 1/2)) (* (pow D 2) (* M (sqrt -1/2)))) (sqrt (/ l h))))))))))
#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) 3)))) (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) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 6) (* (pow M 5) (pow (sqrt -1/4) 5)))) (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) 3)))) (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) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (pow d 5) (* (pow D 6) (* (pow M 5) (pow (sqrt -1/4) 5)))) (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 (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (+ (* h (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (* w0 (sqrt 1/2)))) (* (pow d 2) (* l (sqrt 2))))) (* -1/32 (/ (* (pow D 4) (* (pow M 4) (* h (* w0 (sqrt 1/2))))) (* (pow d 4) (* (pow l 2) (pow (sqrt 2) 3))))))) (* w0 (* (sqrt 1/2) (sqrt 2))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (+ (* h (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (* w0 (sqrt 1/2)))) (* (pow d 2) (* l (sqrt 2))))) (* h (+ (* -1/32 (/ (* (pow D 4) (* (pow M 4) (* w0 (sqrt 1/2)))) (* (pow d 4) (* (pow l 2) (pow (sqrt 2) 3))))) (* -1/128 (/ (* (pow D 6) (* (pow M 6) (* h (* w0 (sqrt 1/2))))) (* (pow d 6) (* (pow l 3) (pow (sqrt 2) 5))))))))) (* w0 (* (sqrt 1/2) (sqrt 2))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (+ (* h (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (sqrt 1/2))) (* (pow d 2) (* l (sqrt 2))))) (* -1/32 (/ (* (pow D 4) (* (pow M 4) (* h (sqrt 1/2)))) (* (pow d 4) (* (pow l 2) (pow (sqrt 2) 3))))))) (* (sqrt 1/2) (sqrt 2)))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (+ (* h (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (sqrt 1/2))) (* (pow d 2) (* l (sqrt 2))))) (* h (+ (* -1/32 (/ (* (pow D 4) (* (pow M 4) (sqrt 1/2))) (* (pow d 4) (* (pow l 2) (pow (sqrt 2) 3))))) (* -1/128 (/ (* (pow D 6) (* (pow M 6) (* h (sqrt 1/2)))) (* (pow d 6) (* (pow l 3) (pow (sqrt 2) 5))))))))) (* (sqrt 1/2) (sqrt 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))) (* -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 (* d d)) #s(hole binary64 (/ h (pow d 2))))
#s(approx (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)) #s(hole binary64 (* h (+ (* -1/4 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (/ 1 h)))))
#s(approx (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) #s(hole binary64 (* h (- (* 2 (/ l h)) (* 1/2 (/ (* (pow D 2) (pow M 2)) (pow d 2)))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (* h (+ (* (/ (* D (* M (* w0 (* (sqrt -1/2) (sqrt 1/2))))) d) (sqrt (/ 1 (* h l)))) (* (/ (* d (* w0 (sqrt 1/2))) (* D (* M (sqrt -1/2)))) (sqrt (/ l (pow h 3))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (* h (+ (* -1/2 (* (/ (* (pow d 3) (* w0 (sqrt 1/2))) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* (/ (* D (* M (* w0 (* (sqrt -1/2) (sqrt 1/2))))) d) (sqrt (/ 1 (* h l)))) (* (/ (* d (* w0 (sqrt 1/2))) (* D (* M (sqrt -1/2)))) (sqrt (/ l (pow h 3)))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (* h (+ (* -1/2 (* (/ (* (pow d 3) (* w0 (sqrt 1/2))) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/2 (* (/ (* (pow d 5) (* w0 (sqrt 1/2))) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/2) 5)))) (sqrt (/ (pow l 5) (pow h 7))))) (+ (* (/ (* D (* M (* w0 (* (sqrt -1/2) (sqrt 1/2))))) d) (sqrt (/ 1 (* h l)))) (* (/ (* d (* w0 (sqrt 1/2))) (* D (* M (sqrt -1/2)))) (sqrt (/ l (pow h 3))))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (* h (+ (* (/ (* D (* M (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (/ 1 (* h l)))) (* (/ (* d (sqrt 1/2)) (* D (* M (sqrt -1/2)))) (sqrt (/ l (pow h 3))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (* h (+ (* -1/2 (* (/ (* (pow d 3) (sqrt 1/2)) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* (/ (* D (* M (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (/ 1 (* h l)))) (* (/ (* d (sqrt 1/2)) (* D (* M (sqrt -1/2)))) (sqrt (/ l (pow h 3)))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (* h (+ (* -1/2 (* (/ (* (pow d 3) (sqrt 1/2)) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/2 (* (/ (* (pow d 5) (sqrt 1/2)) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/2) 5)))) (sqrt (/ (pow l 5) (pow h 7))))) (+ (* (/ (* D (* M (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (/ 1 (* h l)))) (* (/ (* d (sqrt 1/2)) (* D (* M (sqrt -1/2)))) (sqrt (/ l (pow h 3))))))))))
#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) 3)))) (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) 3)))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/4) 5)))) (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) 3)))) (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) 3)))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/16 (* (/ (pow d 5) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/4) 5)))) (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 (+ (* (* (* D D) -1/8) (* (/ h (* d d)) (/ (* M M) l))) 1) #s(hole binary64 (* h (+ (* -1/8 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (/ 1 h)))))
#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 (+ (* (* h -1/4) (/ (* (* (* M M) D) D) (* (* d d) l))) 1) #s(hole binary64 (* h (+ (* -1/4 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (/ 1 h)))))
#s(approx (- l (* (* 1/4 (* D D)) (* (/ (* M M) d) (/ h d)))) #s(hole binary64 (* h (- (/ l h) (* 1/4 (/ (* (pow D 2) (pow M 2)) (pow d 2)))))))
#s(approx (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)) #s(hole binary64 (* -1 (* h (- (* 1/4 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (/ 1 h))))))
#s(approx (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) #s(hole binary64 (* -1 (* h (- (* -2 (/ l h)) (* -1/2 (/ (* (pow D 2) (pow M 2)) (pow d 2))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (* -1 (* (/ (* D (* M (* w0 (* (sqrt -1) (pow (sqrt 1/2) 2))))) d) (sqrt (/ h l))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (* -1 (* h (+ (* (/ (* D (* M (* w0 (* (sqrt -1) (pow (sqrt 1/2) 2))))) d) (sqrt (/ 1 (* h l)))) (* (/ (* d (* w0 (sqrt -1))) (* D M)) (sqrt (/ l (pow h 3)))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (* -1 (* h (+ (* -1/2 (* (/ (* (pow d 3) (* w0 (sqrt -1))) (* (pow D 3) (* (pow M 3) (pow (sqrt 1/2) 2)))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* (/ (* D (* M (* w0 (* (sqrt -1) (pow (sqrt 1/2) 2))))) d) (sqrt (/ 1 (* h l)))) (* (/ (* d (* w0 (sqrt -1))) (* D M)) (sqrt (/ l (pow h 3))))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (* -1 (* h (+ (* -1/2 (* (/ (* (pow d 3) (* w0 (sqrt -1))) (* (pow D 3) (* (pow M 3) (pow (sqrt 1/2) 2)))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/2 (* (/ (* (pow d 5) (* w0 (sqrt -1))) (* (pow D 5) (* (pow M 5) (pow (sqrt 1/2) 4)))) (sqrt (/ (pow l 5) (pow h 7))))) (+ (* (/ (* D (* M (* w0 (* (sqrt -1) (pow (sqrt 1/2) 2))))) d) (sqrt (/ 1 (* h l)))) (* (/ (* d (* w0 (sqrt -1))) (* D M)) (sqrt (/ l (pow h 3)))))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (* -1 (* (/ (* D (* M (* (sqrt -1) (pow (sqrt 1/2) 2)))) d) (sqrt (/ h l))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (* -1 (* h (+ (* (/ (* D (* M (* (sqrt -1) (pow (sqrt 1/2) 2)))) d) (sqrt (/ 1 (* h l)))) (* (/ (* d (sqrt -1)) (* D M)) (sqrt (/ l (pow h 3)))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (* -1 (* h (+ (* -1/2 (* (/ (* (pow d 3) (sqrt -1)) (* (pow D 3) (* (pow M 3) (pow (sqrt 1/2) 2)))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* (/ (* D (* M (* (sqrt -1) (pow (sqrt 1/2) 2)))) d) (sqrt (/ 1 (* h l)))) (* (/ (* d (sqrt -1)) (* D M)) (sqrt (/ l (pow h 3))))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (* -1 (* h (+ (* -1/2 (* (/ (* (pow d 3) (sqrt -1)) (* (pow D 3) (* (pow M 3) (pow (sqrt 1/2) 2)))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/2 (* (/ (* (pow d 5) (sqrt -1)) (* (pow D 5) (* (pow M 5) (pow (sqrt 1/2) 4)))) (sqrt (/ (pow l 5) (pow h 7))))) (+ (* (/ (* D (* M (* (sqrt -1) (pow (sqrt 1/2) 2)))) d) (sqrt (/ 1 (* h l)))) (* (/ (* d (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/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 (+ (* (* (* D D) -1/8) (* (/ h (* d d)) (/ (* M M) l))) 1) #s(hole binary64 (* -1 (* h (- (* 1/8 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (/ 1 h))))))
#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 (+ (* (* h -1/4) (/ (* (* (* M M) D) D) (* (* d d) l))) 1) #s(hole binary64 (* -1 (* h (- (* 1/4 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (/ 1 h))))))
#s(approx (- l (* (* 1/4 (* D D)) (* (/ (* M M) d) (/ h d)))) #s(hole binary64 (* -1 (* h (- (* -1 (/ l h)) (* -1/4 (/ (* (pow D 2) (pow M 2)) (pow d 2))))))))
#s(approx (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)) #s(hole binary64 (/ (+ l (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l)))
#s(approx (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) #s(hole binary64 (- (* 2 l) (* 1/2 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (/ (+ (* (/ (* D (* M (* w0 (* (sqrt -1/2) (sqrt 1/2))))) d) (sqrt (* h l))) (* (/ (* d (* w0 (sqrt 1/2))) (* D (* M (sqrt -1/2)))) (sqrt (/ (pow l 3) h)))) l)))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (/ (+ (* (/ (* D (* M (* w0 (* (sqrt -1/2) (sqrt 1/2))))) d) (sqrt (* h l))) (* (pow l 2) (+ (* -1/2 (* (/ (* (pow d 3) (* w0 (sqrt 1/2))) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ l (pow h 3))))) (* (/ (* d (* w0 (sqrt 1/2))) (* D (* M (sqrt -1/2)))) (sqrt (/ 1 (* h l))))))) l)))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (/ (+ (* (/ (* D (* M (* w0 (* (sqrt -1/2) (sqrt 1/2))))) d) (sqrt (* h l))) (* (pow l 2) (+ (* (/ (* d (* w0 (sqrt 1/2))) (* D (* M (sqrt -1/2)))) (sqrt (/ 1 (* h l)))) (* (pow l 2) (+ (* -1/2 (* (/ (* (pow d 3) (* w0 (sqrt 1/2))) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ 1 (* (pow h 3) (pow l 3)))))) (* 1/2 (* (/ (* (pow d 5) (* w0 (sqrt 1/2))) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/2) 5)))) (sqrt (/ 1 (* (pow h 5) l)))))))))) l)))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (/ (+ (* (/ (* D (* M (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (* h l))) (* (/ (* d (sqrt 1/2)) (* D (* M (sqrt -1/2)))) (sqrt (/ (pow l 3) h)))) l)))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (/ (+ (* (/ (* D (* M (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (* h l))) (* (pow l 2) (+ (* -1/2 (* (/ (* (pow d 3) (sqrt 1/2)) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ l (pow h 3))))) (* (/ (* d (sqrt 1/2)) (* D (* M (sqrt -1/2)))) (sqrt (/ 1 (* h l))))))) l)))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (/ (+ (* (/ (* D (* M (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (* h l))) (* (pow l 2) (+ (* (/ (* d (sqrt 1/2)) (* D (* M (sqrt -1/2)))) (sqrt (/ 1 (* h l)))) (* (pow l 2) (+ (* -1/2 (* (/ (* (pow d 3) (sqrt 1/2)) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ 1 (* (pow h 3) (pow l 3)))))) (* 1/2 (* (/ (* (pow d 5) (sqrt 1/2)) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/2) 5)))) (sqrt (/ 1 (* (pow h 5) l)))))))))) l)))
#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) 3)))) (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) 3)))) (sqrt (/ 1 (* (pow h 3) (pow l 3)))))) (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/4) 5)))) (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) 3)))) (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) 3)))) (sqrt (/ 1 (* (pow h 3) (pow l 3)))))) (* 1/16 (* (/ (pow d 5) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ 1 (* (pow h 5) l)))))))))) l)))
#s(approx (+ (* (* (* D D) -1/8) (* (/ h (* d d)) (/ (* M M) l))) 1) #s(hole binary64 (/ (+ l (* -1/8 (/ (* (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 (/ (- l (* 1/4 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l)))
#s(approx (+ (* (* h -1/4) (/ (* (* (* M M) D) D) (* (* d d) l))) 1) #s(hole binary64 (/ (+ l (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l)))
#s(approx (- l (* (* 1/4 (* D D)) (* (/ (* M M) d) (/ h d)))) #s(hole binary64 (- l (* 1/4 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2))))))
#s(approx (* (* d d) l) #s(hole binary64 (* (pow d 2) l)))
#s(approx (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) #s(hole binary64 (* l (+ 2 (* -1/2 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l)))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (* h (* w0 (sqrt 1/2))))) (* (pow d 2) (* l (sqrt 2))))) (+ (* -1/32 (/ (* (pow D 4) (* (pow M 4) (* (pow h 2) (* w0 (sqrt 1/2))))) (* (pow d 4) (* (pow l 2) (pow (sqrt 2) 3))))) (* w0 (* (sqrt 1/2) (sqrt 2)))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (* h (* w0 (sqrt 1/2))))) (* (pow d 2) (* l (sqrt 2))))) (+ (* -1/32 (/ (* (pow D 4) (* (pow M 4) (* (pow h 2) (* w0 (sqrt 1/2))))) (* (pow d 4) (* (pow l 2) (pow (sqrt 2) 3))))) (+ (* -1/128 (/ (* (pow D 6) (* (pow M 6) (* (pow h 3) (* w0 (sqrt 1/2))))) (* (pow d 6) (* (pow l 3) (pow (sqrt 2) 5))))) (* w0 (* (sqrt 1/2) (sqrt 2))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (* h (sqrt 1/2)))) (* (pow d 2) (* l (sqrt 2))))) (+ (* -1/32 (/ (* (pow D 4) (* (pow M 4) (* (pow h 2) (sqrt 1/2)))) (* (pow d 4) (* (pow l 2) (pow (sqrt 2) 3))))) (* (sqrt 1/2) (sqrt 2))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (* h (sqrt 1/2)))) (* (pow d 2) (* l (sqrt 2))))) (+ (* -1/32 (/ (* (pow D 4) (* (pow M 4) (* (pow h 2) (sqrt 1/2)))) (* (pow d 4) (* (pow l 2) (pow (sqrt 2) 3))))) (+ (* -1/128 (/ (* (pow D 6) (* (pow M 6) (* (pow h 3) (sqrt 1/2)))) (* (pow d 6) (* (pow l 3) (pow (sqrt 2) 5))))) (* (sqrt 1/2) (sqrt 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))))))))
#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 (- l (* (* 1/4 (* D D)) (* (/ (* M M) d) (/ h d)))) #s(hole binary64 (* l (+ 1 (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l)))))))
#s(approx (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) #s(hole binary64 (* -1 (* l (- (* 1/2 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))) 2)))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (+ (* -1 (/ (+ (* 1/32 (/ (* (pow D 4) (* (pow M 4) (* (pow h 2) (* w0 (sqrt 1/2))))) (* (pow d 4) (* l (pow (sqrt 2) 3))))) (* 1/4 (/ (* (pow D 2) (* (pow M 2) (* h (* w0 (sqrt 1/2))))) (* (pow d 2) (sqrt 2))))) l)) (* w0 (* (sqrt 1/2) (sqrt 2))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1 (/ (+ (* -1/32 (/ (* (pow D 4) (* (pow M 4) (* (pow h 2) (* w0 (sqrt 1/2))))) (* (pow d 4) (pow (sqrt 2) 3)))) (* -1/128 (/ (* (pow D 6) (* (pow M 6) (* (pow h 3) (* w0 (sqrt 1/2))))) (* (pow d 6) (* l (pow (sqrt 2) 5)))))) l)) (* 1/4 (/ (* (pow D 2) (* (pow M 2) (* h (* w0 (sqrt 1/2))))) (* (pow d 2) (sqrt 2))))) l)) (* w0 (* (sqrt 1/2) (sqrt 2))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (+ (* -1 (/ (+ (* 1/32 (/ (* (pow D 4) (* (pow M 4) (* (pow h 2) (sqrt 1/2)))) (* (pow d 4) (* l (pow (sqrt 2) 3))))) (* 1/4 (/ (* (pow D 2) (* (pow M 2) (* h (sqrt 1/2)))) (* (pow d 2) (sqrt 2))))) l)) (* (sqrt 1/2) (sqrt 2)))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (+ (* -1 (/ (+ (* -1 (/ (+ (* -1/32 (/ (* (pow D 4) (* (pow M 4) (* (pow h 2) (sqrt 1/2)))) (* (pow d 4) (pow (sqrt 2) 3)))) (* -1/128 (/ (* (pow D 6) (* (pow M 6) (* (pow h 3) (sqrt 1/2)))) (* (pow d 6) (* l (pow (sqrt 2) 5)))))) l)) (* 1/4 (/ (* (pow D 2) (* (pow M 2) (* h (sqrt 1/2)))) (* (pow d 2) (sqrt 2))))) l)) (* (sqrt 1/2) (sqrt 2)))))
#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 (- l (* (* 1/4 (* D D)) (* (/ (* M M) d) (/ h d)))) #s(hole binary64 (* -1 (* l (- (* 1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))) 1)))))
#s(approx (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)) #s(hole binary64 (/ (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) l)) (pow d 2)) (pow d 2))))
#s(approx (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) #s(hole binary64 (/ (- (* 2 (* (pow d 2) l)) (* 1/2 (* (pow D 2) (* (pow M 2) h)))) (pow d 2))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (/ (+ (* (* D (* M (* w0 (* (sqrt -1/2) (sqrt 1/2))))) (sqrt (/ h l))) (* (/ (* (pow d 2) (* w0 (sqrt 1/2))) (* D (* M (sqrt -1/2)))) (sqrt (/ l h)))) d)))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (/ (+ (* (* D (* M (* w0 (* (sqrt -1/2) (sqrt 1/2))))) (sqrt (/ h l))) (* (pow d 2) (+ (* -1/2 (* (/ (* (pow d 2) (* w0 (sqrt 1/2))) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (* (/ (* w0 (sqrt 1/2)) (* D (* M (sqrt -1/2)))) (sqrt (/ l h)))))) d)))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (/ (+ (* (* D (* M (* w0 (* (sqrt -1/2) (sqrt 1/2))))) (sqrt (/ h l))) (* (pow d 2) (+ (* (/ (* w0 (sqrt 1/2)) (* D (* M (sqrt -1/2)))) (sqrt (/ l h))) (* (pow d 2) (+ (* -1/2 (* (/ (* w0 (sqrt 1/2)) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (* 1/2 (* (/ (* (pow d 2) (* w0 (sqrt 1/2))) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/2) 5)))) (sqrt (/ (pow l 5) (pow h 5)))))))))) d)))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (/ (+ (* (* D (* M (* (sqrt -1/2) (sqrt 1/2)))) (sqrt (/ h l))) (* (/ (* (pow d 2) (sqrt 1/2)) (* D (* M (sqrt -1/2)))) (sqrt (/ l h)))) d)))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (/ (+ (* (* D (* M (* (sqrt -1/2) (sqrt 1/2)))) (sqrt (/ h l))) (* (pow d 2) (+ (* -1/2 (* (/ (* (pow d 2) (sqrt 1/2)) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (* (/ (sqrt 1/2) (* D (* M (sqrt -1/2)))) (sqrt (/ l h)))))) d)))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (/ (+ (* (* D (* M (* (sqrt -1/2) (sqrt 1/2)))) (sqrt (/ h l))) (* (pow d 2) (+ (* (/ (sqrt 1/2) (* D (* M (sqrt -1/2)))) (sqrt (/ l h))) (* (pow d 2) (+ (* -1/2 (* (/ (sqrt 1/2) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (* 1/2 (* (/ (* (pow d 2) (sqrt 1/2)) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/2) 5)))) (sqrt (/ (pow l 5) (pow h 5)))))))))) d)))
#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) 3)))) (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) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (* 1/16 (* (/ (* (pow d 2) w0) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/4) 5)))) (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) 3)))) (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) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (* 1/16 (* (/ (pow d 2) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5)))))))))) d)))
#s(approx (+ (* (* (* D D) -1/8) (* (/ h (* d d)) (/ (* M M) l))) 1) #s(hole binary64 (/ (+ (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) l)) (pow d 2)) (pow d 2))))
#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 (+ (* (* h -1/4) (/ (* (* (* M M) D) D) (* (* d d) l))) 1) #s(hole binary64 (/ (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) l)) (pow d 2)) (pow d 2))))
#s(approx (- l (* (* 1/4 (* D D)) (* (/ (* M M) d) (/ h d)))) #s(hole binary64 (/ (- (* (pow d 2) l) (* 1/4 (* (pow D 2) (* (pow M 2) h)))) (pow d 2))))

Calls

18 calls:

Time	Variable		Point	Expression
17.0ms	l	@	0	((/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)) (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (+ (* (* (* D D) -1/8) (* (/ h (* d d)) (/ (* M M) l))) 1) (* (* D D) -1/8) (* 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))) (+ (* (* h -1/4) (/ (* (* (* M M) D) D) (* (* d d) l))) 1) (- l (* (* 1/4 (* D D)) (* (/ (* M M) d) (/ h d)))) (* 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))) (* (/ D 2) (/ M d)) (* h (pow (* (/ D 2) (/ M d)) 2)) (* (/ h (* d d)) (/ (* M M) l)) (/ h (* d d)) (/ (* (* (* M M) D) D) (* (* d d) l)) (* (* d d) l) (* (* M M) D) (* (* 1/4 (* D D)) (* (/ (* M M) d) (/ h d))) (* (/ (* M M) d) (/ h d)) (/ (* M M) d))
17.0ms	d	@	inf	((/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)) (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (+ (* (* (* D D) -1/8) (* (/ h (* d d)) (/ (* M M) l))) 1) (* (* D D) -1/8) (* 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))) (+ (* (* h -1/4) (/ (* (* (* M M) D) D) (* (* d d) l))) 1) (- l (* (* 1/4 (* D D)) (* (/ (* M M) d) (/ h d)))) (* 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))) (* (/ D 2) (/ M d)) (* h (pow (* (/ D 2) (/ M d)) 2)) (* (/ h (* d d)) (/ (* M M) l)) (/ h (* d d)) (/ (* (* (* M M) D) D) (* (* d d) l)) (* (* d d) l) (* (* M M) D) (* (* 1/4 (* D D)) (* (/ (* M M) d) (/ h d))) (* (/ (* M M) d) (/ h d)) (/ (* M M) d))
15.0ms	M	@	inf	((/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)) (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (+ (* (* (* D D) -1/8) (* (/ h (* d d)) (/ (* M M) l))) 1) (* (* D D) -1/8) (* 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))) (+ (* (* h -1/4) (/ (* (* (* M M) D) D) (* (* d d) l))) 1) (- l (* (* 1/4 (* D D)) (* (/ (* M M) d) (/ h d)))) (* 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))) (* (/ D 2) (/ M d)) (* h (pow (* (/ D 2) (/ M d)) 2)) (* (/ h (* d d)) (/ (* M M) l)) (/ h (* d d)) (/ (* (* (* M M) D) D) (* (* d d) l)) (* (* d d) l) (* (* M M) D) (* (* 1/4 (* D D)) (* (/ (* M M) d) (/ h d))) (* (/ (* M M) d) (/ h d)) (/ (* M M) d))
14.0ms	M	@	0	((/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)) (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (+ (* (* (* D D) -1/8) (* (/ h (* d d)) (/ (* M M) l))) 1) (* (* D D) -1/8) (* 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))) (+ (* (* h -1/4) (/ (* (* (* M M) D) D) (* (* d d) l))) 1) (- l (* (* 1/4 (* D D)) (* (/ (* M M) d) (/ h d)))) (* 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))) (* (/ D 2) (/ M d)) (* h (pow (* (/ D 2) (/ M d)) 2)) (* (/ h (* d d)) (/ (* M M) l)) (/ h (* d d)) (/ (* (* (* M M) D) D) (* (* d d) l)) (* (* d d) l) (* (* M M) D) (* (* 1/4 (* D D)) (* (/ (* M M) d) (/ h d))) (* (/ (* M M) d) (/ h d)) (/ (* M M) d))
9.0ms	h	@	inf	((/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)) (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (+ (* (* (* D D) -1/8) (* (/ h (* d d)) (/ (* M M) l))) 1) (* (* D D) -1/8) (* 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))) (+ (* (* h -1/4) (/ (* (* (* M M) D) D) (* (* d d) l))) 1) (- l (* (* 1/4 (* D D)) (* (/ (* M M) d) (/ h d)))) (* 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))) (* (/ D 2) (/ M d)) (* h (pow (* (/ D 2) (/ M d)) 2)) (* (/ h (* d d)) (/ (* M M) l)) (/ h (* d d)) (/ (* (* (* M M) D) D) (* (* d d) l)) (* (* d d) l) (* (* M M) D) (* (* 1/4 (* D D)) (* (/ (* M M) d) (/ h d))) (* (/ (* M M) d) (/ h d)) (/ (* M M) d))

simplify362.0ms (4%)

Memory

33.5MiB live, 348.5MiB allocated; 95ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	1518	14748
1	5305	14632
0	8597	14287

Stop Event

1×	iter limit
1×	node limit

Counts

227 → 227

Calls

Call 1

Inputs
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (* (sqrt (/ (- (* 2 l) (* 1/2 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l)) (* w0 (sqrt 1/2)))))
#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 (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)) #s(hole binary64 1))
#s(approx (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)) #s(hole binary64 (+ 1 (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))))))
#s(approx (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) #s(hole binary64 (* 2 l)))
#s(approx (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) #s(hole binary64 (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2))) (* 2 l))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (* w0 (* (sqrt 1/2) (sqrt 2)))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (* h (* w0 (sqrt 1/2))))) (* (pow d 2) (* l (sqrt 2))))) (* w0 (* (sqrt 1/2) (sqrt 2))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (+ (* w0 (* (sqrt 1/2) (sqrt 2))) (* (pow M 2) (+ (* -1/4 (/ (* (pow D 2) (* h (* w0 (sqrt 1/2)))) (* (pow d 2) (* l (sqrt 2))))) (* -1/32 (/ (* (pow D 4) (* (pow M 2) (* (pow h 2) (* w0 (sqrt 1/2))))) (* (pow d 4) (* (pow l 2) (pow (sqrt 2) 3))))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (+ (* w0 (* (sqrt 1/2) (sqrt 2))) (* (pow M 2) (+ (* -1/4 (/ (* (pow D 2) (* h (* w0 (sqrt 1/2)))) (* (pow d 2) (* l (sqrt 2))))) (* (pow M 2) (+ (* -1/32 (/ (* (pow D 4) (* (pow h 2) (* w0 (sqrt 1/2)))) (* (pow d 4) (* (pow l 2) (pow (sqrt 2) 3))))) (* -1/128 (/ (* (pow D 6) (* (pow M 2) (* (pow h 3) (* w0 (sqrt 1/2))))) (* (pow d 6) (* (pow l 3) (pow (sqrt 2) 5))))))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (* (sqrt 1/2) (sqrt 2))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (* h (sqrt 1/2)))) (* (pow d 2) (* l (sqrt 2))))) (* (sqrt 1/2) (sqrt 2)))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (+ (* (sqrt 1/2) (sqrt 2)) (* (pow M 2) (+ (* -1/4 (/ (* (pow D 2) (* h (sqrt 1/2))) (* (pow d 2) (* l (sqrt 2))))) (* -1/32 (/ (* (pow D 4) (* (pow M 2) (* (pow h 2) (sqrt 1/2)))) (* (pow d 4) (* (pow l 2) (pow (sqrt 2) 3))))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (+ (* (sqrt 1/2) (sqrt 2)) (* (pow M 2) (+ (* -1/4 (/ (* (pow D 2) (* h (sqrt 1/2))) (* (pow d 2) (* l (sqrt 2))))) (* (pow M 2) (+ (* -1/32 (/ (* (pow D 4) (* (pow h 2) (sqrt 1/2))) (* (pow d 4) (* (pow l 2) (pow (sqrt 2) 3))))) (* -1/128 (/ (* (pow D 6) (* (pow M 2) (* (pow h 3) (sqrt 1/2)))) (* (pow d 6) (* (pow l 3) (pow (sqrt 2) 5))))))))))))
#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 (+ (* (* (* D D) -1/8) (* (/ h (* d d)) (/ (* M M) l))) 1) #s(hole binary64 1))
#s(approx (+ (* (* (* D D) -1/8) (* (/ h (* d d)) (/ (* M M) l))) 1) #s(hole binary64 (+ 1 (* -1/8 (/ (* (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 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 (+ (* (* h -1/4) (/ (* (* (* M M) D) D) (* (* d d) l))) 1) #s(hole binary64 1))
#s(approx (+ (* (* h -1/4) (/ (* (* (* M M) D) D) (* (* d d) l))) 1) #s(hole binary64 (+ 1 (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))))))
#s(approx (- l (* (* 1/4 (* D D)) (* (/ (* M M) d) (/ h d)))) #s(hole binary64 l))
#s(approx (- l (* (* 1/4 (* D D)) (* (/ (* M M) d) (/ h d)))) #s(hole binary64 (+ l (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2))))))
#s(approx (* (/ D 2) (/ M d)) #s(hole binary64 (* 1/2 (/ (* D M) d))))
#s(approx (* h (pow (* (/ D 2) (/ M d)) 2)) #s(hole binary64 (* 1/4 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))))
#s(approx (* (/ h (* d d)) (/ (* M M) l)) #s(hole binary64 (/ (* (pow M 2) h) (* (pow d 2) l))))
#s(approx (/ (* (* (* M M) D) D) (* (* d d) l)) #s(hole binary64 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))))
#s(approx (* (* M M) D) #s(hole binary64 (* D (pow M 2))))
#s(approx (* (* 1/4 (* D D)) (* (/ (* M M) d) (/ h d))) #s(hole binary64 (* 1/4 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))))
#s(approx (* (/ (* M M) d) (/ h d)) #s(hole binary64 (/ (* (pow M 2) h) (pow d 2))))
#s(approx (/ (* M M) d) #s(hole binary64 (/ (pow M 2) d)))
#s(approx (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)) #s(hole binary64 (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l)))))
#s(approx (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)) #s(hole binary64 (* (pow M 2) (+ (* -1/4 (/ (* (pow D 2) h) (* (pow d 2) l))) (/ 1 (pow M 2))))))
#s(approx (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) #s(hole binary64 (* -1/2 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))))
#s(approx (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) #s(hole binary64 (* (pow M 2) (- (* 2 (/ l (pow M 2))) (* 1/2 (/ (* (pow D 2) h) (pow d 2)))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (* (/ (* D (* M (* w0 (* (sqrt -1/2) (sqrt 1/2))))) d) (sqrt (/ h l)))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (* M (+ (* (/ (* D (* w0 (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (/ h l))) (* (/ (* d (* w0 (sqrt 1/2))) (* D (* (pow M 2) (sqrt -1/2)))) (sqrt (/ l h)))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (* M (+ (* -1/2 (* (/ (* (pow d 3) (* w0 (sqrt 1/2))) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* (/ (* D (* w0 (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (/ h l))) (* (/ (* d (* w0 (sqrt 1/2))) (* D (* (pow M 2) (sqrt -1/2)))) (sqrt (/ l h))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (* M (+ (* -1/2 (* (/ (* (pow d 3) (* w0 (sqrt 1/2))) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ (* (pow d 5) (* w0 (sqrt 1/2))) (* (pow D 5) (* (pow M 6) (pow (sqrt -1/2) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* (/ (* D (* w0 (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (/ h l))) (* (/ (* d (* w0 (sqrt 1/2))) (* D (* (pow M 2) (sqrt -1/2)))) (sqrt (/ l h)))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (* (/ (* D (* M (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (/ h l)))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (* M (+ (* (/ (* D (* (sqrt -1/2) (sqrt 1/2))) d) (sqrt (/ h l))) (* (/ (* d (sqrt 1/2)) (* D (* (pow M 2) (sqrt -1/2)))) (sqrt (/ l h)))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (* M (+ (* -1/2 (* (/ (* (pow d 3) (sqrt 1/2)) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* (/ (* D (* (sqrt -1/2) (sqrt 1/2))) d) (sqrt (/ h l))) (* (/ (* d (sqrt 1/2)) (* D (* (pow M 2) (sqrt -1/2)))) (sqrt (/ l h))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (* M (+ (* -1/2 (* (/ (* (pow d 3) (sqrt 1/2)) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ (* (pow d 5) (sqrt 1/2)) (* (pow D 5) (* (pow M 6) (pow (sqrt -1/2) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* (/ (* D (* (sqrt -1/2) (sqrt 1/2))) d) (sqrt (/ h l))) (* (/ (* d (sqrt 1/2)) (* D (* (pow M 2) (sqrt -1/2)))) (sqrt (/ l h)))))))))
#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) 3)))) (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) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 5) (* (pow M 6) (pow (sqrt -1/4) 5)))) (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) 3)))) (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) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (pow d 5) (* (pow D 5) (* (pow M 6) (pow (sqrt -1/4) 5)))) (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 (+ (* (* (* D D) -1/8) (* (/ h (* d d)) (/ (* M M) l))) 1) #s(hole binary64 (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l)))))
#s(approx (+ (* (* (* D D) -1/8) (* (/ h (* d d)) (/ (* M M) l))) 1) #s(hole binary64 (* (pow M 2) (+ (* -1/8 (/ (* (pow D 2) h) (* (pow d 2) l))) (/ 1 (pow M 2))))))
#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 (+ (* (* h -1/4) (/ (* (* (* M M) D) D) (* (* d d) l))) 1) #s(hole binary64 (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l)))))
#s(approx (+ (* (* h -1/4) (/ (* (* (* M M) D) D) (* (* d d) l))) 1) #s(hole binary64 (* (pow M 2) (+ (* -1/4 (/ (* (pow D 2) h) (* (pow d 2) l))) (/ 1 (pow M 2))))))
#s(approx (- l (* (* 1/4 (* D D)) (* (/ (* M M) d) (/ h d)))) #s(hole binary64 (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))))
#s(approx (- l (* (* 1/4 (* D D)) (* (/ (* M M) d) (/ h d)))) #s(hole binary64 (* (pow M 2) (- (/ l (pow M 2)) (* 1/4 (/ (* (pow D 2) h) (pow d 2)))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (* -1 (* (/ (* D (* M (* w0 (* (sqrt -1/2) (sqrt 1/2))))) d) (sqrt (/ h l))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (* -1 (* M (+ (* (/ (* D (* w0 (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (/ h l))) (* (/ (* d (* w0 (sqrt 1/2))) (* D (* (pow M 2) (sqrt -1/2)))) (sqrt (/ l h))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (* -1 (* M (+ (* -1/2 (* (/ (* (pow d 3) (* w0 (sqrt 1/2))) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* (/ (* D (* w0 (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (/ h l))) (* (/ (* d (* w0 (sqrt 1/2))) (* D (* (pow M 2) (sqrt -1/2)))) (sqrt (/ l h)))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (* -1 (* M (+ (* -1/2 (* (/ (* (pow d 3) (* w0 (sqrt 1/2))) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ (* (pow d 5) (* w0 (sqrt 1/2))) (* (pow D 5) (* (pow M 6) (pow (sqrt -1/2) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* (/ (* D (* w0 (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (/ h l))) (* (/ (* d (* w0 (sqrt 1/2))) (* D (* (pow M 2) (sqrt -1/2)))) (sqrt (/ l h))))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (* -1 (* (/ (* D (* M (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (/ h l))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (* -1 (* M (+ (* (/ (* D (* (sqrt -1/2) (sqrt 1/2))) d) (sqrt (/ h l))) (* (/ (* d (sqrt 1/2)) (* D (* (pow M 2) (sqrt -1/2)))) (sqrt (/ l h))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (* -1 (* M (+ (* -1/2 (* (/ (* (pow d 3) (sqrt 1/2)) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* (/ (* D (* (sqrt -1/2) (sqrt 1/2))) d) (sqrt (/ h l))) (* (/ (* d (sqrt 1/2)) (* D (* (pow M 2) (sqrt -1/2)))) (sqrt (/ l h)))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (* -1 (* M (+ (* -1/2 (* (/ (* (pow d 3) (sqrt 1/2)) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ (* (pow d 5) (sqrt 1/2)) (* (pow D 5) (* (pow M 6) (pow (sqrt -1/2) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* (/ (* D (* (sqrt -1/2) (sqrt 1/2))) d) (sqrt (/ h l))) (* (/ (* d (sqrt 1/2)) (* D (* (pow M 2) (sqrt -1/2)))) (sqrt (/ l h))))))))))
#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) (pow (sqrt -1/4) 3)))) (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) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 5) (* (pow M 6) (pow (sqrt -1/4) 5)))) (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) 3)))) (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) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (pow d 5) (* (pow D 5) (* (pow M 6) (pow (sqrt -1/4) 5)))) (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 (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (+ (* w0 (* (sqrt 1/2) (sqrt 2))) (* (pow D 2) (+ (* -1/4 (/ (* (pow M 2) (* h (* w0 (sqrt 1/2)))) (* (pow d 2) (* l (sqrt 2))))) (* -1/32 (/ (* (pow D 2) (* (pow M 4) (* (pow h 2) (* w0 (sqrt 1/2))))) (* (pow d 4) (* (pow l 2) (pow (sqrt 2) 3))))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (+ (* w0 (* (sqrt 1/2) (sqrt 2))) (* (pow D 2) (+ (* -1/4 (/ (* (pow M 2) (* h (* w0 (sqrt 1/2)))) (* (pow d 2) (* l (sqrt 2))))) (* (pow D 2) (+ (* -1/32 (/ (* (pow M 4) (* (pow h 2) (* w0 (sqrt 1/2)))) (* (pow d 4) (* (pow l 2) (pow (sqrt 2) 3))))) (* -1/128 (/ (* (pow D 2) (* (pow M 6) (* (pow h 3) (* w0 (sqrt 1/2))))) (* (pow d 6) (* (pow l 3) (pow (sqrt 2) 5))))))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (+ (* (sqrt 1/2) (sqrt 2)) (* (pow D 2) (+ (* -1/4 (/ (* (pow M 2) (* h (sqrt 1/2))) (* (pow d 2) (* l (sqrt 2))))) (* -1/32 (/ (* (pow D 2) (* (pow M 4) (* (pow h 2) (sqrt 1/2)))) (* (pow d 4) (* (pow l 2) (pow (sqrt 2) 3))))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (+ (* (sqrt 1/2) (sqrt 2)) (* (pow D 2) (+ (* -1/4 (/ (* (pow M 2) (* h (sqrt 1/2))) (* (pow d 2) (* l (sqrt 2))))) (* (pow D 2) (+ (* -1/32 (/ (* (pow M 4) (* (pow h 2) (sqrt 1/2))) (* (pow d 4) (* (pow l 2) (pow (sqrt 2) 3))))) (* -1/128 (/ (* (pow D 2) (* (pow M 6) (* (pow h 3) (sqrt 1/2)))) (* (pow d 6) (* (pow l 3) (pow (sqrt 2) 5))))))))))))
#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 D) -1/8) #s(hole binary64 (* -1/8 (pow D 2))))
#s(approx (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)) #s(hole binary64 (* (pow D 2) (+ (* -1/4 (/ (* (pow M 2) h) (* (pow d 2) l))) (/ 1 (pow D 2))))))
#s(approx (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) #s(hole binary64 (* (pow D 2) (- (* 2 (/ l (pow D 2))) (* 1/2 (/ (* (pow M 2) h) (pow d 2)))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (* D (+ (* (/ (* M (* w0 (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (/ h l))) (* (/ (* d (* w0 (sqrt 1/2))) (* (pow D 2) (* M (sqrt -1/2)))) (sqrt (/ l h)))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (* D (+ (* -1/2 (* (/ (* (pow d 3) (* w0 (sqrt 1/2))) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* (/ (* M (* w0 (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (/ h l))) (* (/ (* d (* w0 (sqrt 1/2))) (* (pow D 2) (* M (sqrt -1/2)))) (sqrt (/ l h))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (* D (+ (* -1/2 (* (/ (* (pow d 3) (* w0 (sqrt 1/2))) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ (* (pow d 5) (* w0 (sqrt 1/2))) (* (pow D 6) (* (pow M 5) (pow (sqrt -1/2) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* (/ (* M (* w0 (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (/ h l))) (* (/ (* d (* w0 (sqrt 1/2))) (* (pow D 2) (* M (sqrt -1/2)))) (sqrt (/ l h)))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (* D (+ (* (/ (* M (* (sqrt -1/2) (sqrt 1/2))) d) (sqrt (/ h l))) (* (/ (* d (sqrt 1/2)) (* (pow D 2) (* M (sqrt -1/2)))) (sqrt (/ l h)))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (* D (+ (* -1/2 (* (/ (* (pow d 3) (sqrt 1/2)) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* (/ (* M (* (sqrt -1/2) (sqrt 1/2))) d) (sqrt (/ h l))) (* (/ (* d (sqrt 1/2)) (* (pow D 2) (* M (sqrt -1/2)))) (sqrt (/ l h))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (* D (+ (* -1/2 (* (/ (* (pow d 3) (sqrt 1/2)) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ (* (pow d 5) (sqrt 1/2)) (* (pow D 6) (* (pow M 5) (pow (sqrt -1/2) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* (/ (* M (* (sqrt -1/2) (sqrt 1/2))) d) (sqrt (/ h l))) (* (/ (* d (sqrt 1/2)) (* (pow D 2) (* M (sqrt -1/2)))) (sqrt (/ l h)))))))))
#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) 3)))) (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) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 6) (* (pow M 5) (pow (sqrt -1/4) 5)))) (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) 3)))) (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) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (pow d 5) (* (pow D 6) (* (pow M 5) (pow (sqrt -1/4) 5)))) (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 (+ (* (* (* D D) -1/8) (* (/ h (* d d)) (/ (* M M) l))) 1) #s(hole binary64 (* (pow D 2) (+ (* -1/8 (/ (* (pow M 2) h) (* (pow d 2) l))) (/ 1 (pow D 2))))))
#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 (+ (* (* h -1/4) (/ (* (* (* M M) D) D) (* (* d d) l))) 1) #s(hole binary64 (* (pow D 2) (+ (* -1/4 (/ (* (pow M 2) h) (* (pow d 2) l))) (/ 1 (pow D 2))))))
#s(approx (- l (* (* 1/4 (* D D)) (* (/ (* M M) d) (/ h d)))) #s(hole binary64 (* (pow D 2) (- (/ l (pow D 2)) (* 1/4 (/ (* (pow M 2) h) (pow d 2)))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (* -1 (* D (+ (* (/ (* M (* w0 (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (/ h l))) (* (/ (* d (* w0 (sqrt 1/2))) (* (pow D 2) (* M (sqrt -1/2)))) (sqrt (/ l h))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (* -1 (* D (+ (* -1/2 (* (/ (* (pow d 3) (* w0 (sqrt 1/2))) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* (/ (* M (* w0 (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (/ h l))) (* (/ (* d (* w0 (sqrt 1/2))) (* (pow D 2) (* M (sqrt -1/2)))) (sqrt (/ l h)))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (* -1 (* D (+ (* -1/2 (* (/ (* (pow d 3) (* w0 (sqrt 1/2))) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ (* (pow d 5) (* w0 (sqrt 1/2))) (* (pow D 6) (* (pow M 5) (pow (sqrt -1/2) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* (/ (* M (* w0 (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (/ h l))) (* (/ (* d (* w0 (sqrt 1/2))) (* (pow D 2) (* M (sqrt -1/2)))) (sqrt (/ l h))))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (* -1 (* D (+ (* (/ (* M (* (sqrt -1/2) (sqrt 1/2))) d) (sqrt (/ h l))) (* (/ (* d (sqrt 1/2)) (* (pow D 2) (* M (sqrt -1/2)))) (sqrt (/ l h))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (* -1 (* D (+ (* -1/2 (* (/ (* (pow d 3) (sqrt 1/2)) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* (/ (* M (* (sqrt -1/2) (sqrt 1/2))) d) (sqrt (/ h l))) (* (/ (* d (sqrt 1/2)) (* (pow D 2) (* M (sqrt -1/2)))) (sqrt (/ l h)))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (* -1 (* D (+ (* -1/2 (* (/ (* (pow d 3) (sqrt 1/2)) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ (* (pow d 5) (sqrt 1/2)) (* (pow D 6) (* (pow M 5) (pow (sqrt -1/2) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* (/ (* M (* (sqrt -1/2) (sqrt 1/2))) d) (sqrt (/ h l))) (* (/ (* d (sqrt 1/2)) (* (pow D 2) (* M (sqrt -1/2)))) (sqrt (/ l h))))))))))
#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) 3)))) (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) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 6) (* (pow M 5) (pow (sqrt -1/4) 5)))) (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) 3)))) (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) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (pow d 5) (* (pow D 6) (* (pow M 5) (pow (sqrt -1/4) 5)))) (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 (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (+ (* h (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (* w0 (sqrt 1/2)))) (* (pow d 2) (* l (sqrt 2))))) (* -1/32 (/ (* (pow D 4) (* (pow M 4) (* h (* w0 (sqrt 1/2))))) (* (pow d 4) (* (pow l 2) (pow (sqrt 2) 3))))))) (* w0 (* (sqrt 1/2) (sqrt 2))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (+ (* h (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (* w0 (sqrt 1/2)))) (* (pow d 2) (* l (sqrt 2))))) (* h (+ (* -1/32 (/ (* (pow D 4) (* (pow M 4) (* w0 (sqrt 1/2)))) (* (pow d 4) (* (pow l 2) (pow (sqrt 2) 3))))) (* -1/128 (/ (* (pow D 6) (* (pow M 6) (* h (* w0 (sqrt 1/2))))) (* (pow d 6) (* (pow l 3) (pow (sqrt 2) 5))))))))) (* w0 (* (sqrt 1/2) (sqrt 2))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (+ (* h (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (sqrt 1/2))) (* (pow d 2) (* l (sqrt 2))))) (* -1/32 (/ (* (pow D 4) (* (pow M 4) (* h (sqrt 1/2)))) (* (pow d 4) (* (pow l 2) (pow (sqrt 2) 3))))))) (* (sqrt 1/2) (sqrt 2)))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (+ (* h (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (sqrt 1/2))) (* (pow d 2) (* l (sqrt 2))))) (* h (+ (* -1/32 (/ (* (pow D 4) (* (pow M 4) (sqrt 1/2))) (* (pow d 4) (* (pow l 2) (pow (sqrt 2) 3))))) (* -1/128 (/ (* (pow D 6) (* (pow M 6) (* h (sqrt 1/2)))) (* (pow d 6) (* (pow l 3) (pow (sqrt 2) 5))))))))) (* (sqrt 1/2) (sqrt 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))) (* -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 (* d d)) #s(hole binary64 (/ h (pow d 2))))
#s(approx (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)) #s(hole binary64 (* h (+ (* -1/4 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (/ 1 h)))))
#s(approx (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) #s(hole binary64 (* h (- (* 2 (/ l h)) (* 1/2 (/ (* (pow D 2) (pow M 2)) (pow d 2)))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (* h (+ (* (/ (* D (* M (* w0 (* (sqrt -1/2) (sqrt 1/2))))) d) (sqrt (/ 1 (* h l)))) (* (/ (* d (* w0 (sqrt 1/2))) (* D (* M (sqrt -1/2)))) (sqrt (/ l (pow h 3))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (* h (+ (* -1/2 (* (/ (* (pow d 3) (* w0 (sqrt 1/2))) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* (/ (* D (* M (* w0 (* (sqrt -1/2) (sqrt 1/2))))) d) (sqrt (/ 1 (* h l)))) (* (/ (* d (* w0 (sqrt 1/2))) (* D (* M (sqrt -1/2)))) (sqrt (/ l (pow h 3)))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (* h (+ (* -1/2 (* (/ (* (pow d 3) (* w0 (sqrt 1/2))) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/2 (* (/ (* (pow d 5) (* w0 (sqrt 1/2))) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/2) 5)))) (sqrt (/ (pow l 5) (pow h 7))))) (+ (* (/ (* D (* M (* w0 (* (sqrt -1/2) (sqrt 1/2))))) d) (sqrt (/ 1 (* h l)))) (* (/ (* d (* w0 (sqrt 1/2))) (* D (* M (sqrt -1/2)))) (sqrt (/ l (pow h 3))))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (* h (+ (* (/ (* D (* M (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (/ 1 (* h l)))) (* (/ (* d (sqrt 1/2)) (* D (* M (sqrt -1/2)))) (sqrt (/ l (pow h 3))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (* h (+ (* -1/2 (* (/ (* (pow d 3) (sqrt 1/2)) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* (/ (* D (* M (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (/ 1 (* h l)))) (* (/ (* d (sqrt 1/2)) (* D (* M (sqrt -1/2)))) (sqrt (/ l (pow h 3)))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (* h (+ (* -1/2 (* (/ (* (pow d 3) (sqrt 1/2)) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/2 (* (/ (* (pow d 5) (sqrt 1/2)) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/2) 5)))) (sqrt (/ (pow l 5) (pow h 7))))) (+ (* (/ (* D (* M (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (/ 1 (* h l)))) (* (/ (* d (sqrt 1/2)) (* D (* M (sqrt -1/2)))) (sqrt (/ l (pow h 3))))))))))
#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) 3)))) (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) 3)))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/4) 5)))) (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) 3)))) (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) 3)))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/16 (* (/ (pow d 5) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/4) 5)))) (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 (+ (* (* (* D D) -1/8) (* (/ h (* d d)) (/ (* M M) l))) 1) #s(hole binary64 (* h (+ (* -1/8 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (/ 1 h)))))
#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 (+ (* (* h -1/4) (/ (* (* (* M M) D) D) (* (* d d) l))) 1) #s(hole binary64 (* h (+ (* -1/4 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (/ 1 h)))))
#s(approx (- l (* (* 1/4 (* D D)) (* (/ (* M M) d) (/ h d)))) #s(hole binary64 (* h (- (/ l h) (* 1/4 (/ (* (pow D 2) (pow M 2)) (pow d 2)))))))
#s(approx (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)) #s(hole binary64 (* -1 (* h (- (* 1/4 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (/ 1 h))))))
#s(approx (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) #s(hole binary64 (* -1 (* h (- (* -2 (/ l h)) (* -1/2 (/ (* (pow D 2) (pow M 2)) (pow d 2))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (* -1 (* (/ (* D (* M (* w0 (* (sqrt -1) (pow (sqrt 1/2) 2))))) d) (sqrt (/ h l))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (* -1 (* h (+ (* (/ (* D (* M (* w0 (* (sqrt -1) (pow (sqrt 1/2) 2))))) d) (sqrt (/ 1 (* h l)))) (* (/ (* d (* w0 (sqrt -1))) (* D M)) (sqrt (/ l (pow h 3)))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (* -1 (* h (+ (* -1/2 (* (/ (* (pow d 3) (* w0 (sqrt -1))) (* (pow D 3) (* (pow M 3) (pow (sqrt 1/2) 2)))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* (/ (* D (* M (* w0 (* (sqrt -1) (pow (sqrt 1/2) 2))))) d) (sqrt (/ 1 (* h l)))) (* (/ (* d (* w0 (sqrt -1))) (* D M)) (sqrt (/ l (pow h 3))))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (* -1 (* h (+ (* -1/2 (* (/ (* (pow d 3) (* w0 (sqrt -1))) (* (pow D 3) (* (pow M 3) (pow (sqrt 1/2) 2)))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/2 (* (/ (* (pow d 5) (* w0 (sqrt -1))) (* (pow D 5) (* (pow M 5) (pow (sqrt 1/2) 4)))) (sqrt (/ (pow l 5) (pow h 7))))) (+ (* (/ (* D (* M (* w0 (* (sqrt -1) (pow (sqrt 1/2) 2))))) d) (sqrt (/ 1 (* h l)))) (* (/ (* d (* w0 (sqrt -1))) (* D M)) (sqrt (/ l (pow h 3)))))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (* -1 (* (/ (* D (* M (* (sqrt -1) (pow (sqrt 1/2) 2)))) d) (sqrt (/ h l))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (* -1 (* h (+ (* (/ (* D (* M (* (sqrt -1) (pow (sqrt 1/2) 2)))) d) (sqrt (/ 1 (* h l)))) (* (/ (* d (sqrt -1)) (* D M)) (sqrt (/ l (pow h 3)))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (* -1 (* h (+ (* -1/2 (* (/ (* (pow d 3) (sqrt -1)) (* (pow D 3) (* (pow M 3) (pow (sqrt 1/2) 2)))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* (/ (* D (* M (* (sqrt -1) (pow (sqrt 1/2) 2)))) d) (sqrt (/ 1 (* h l)))) (* (/ (* d (sqrt -1)) (* D M)) (sqrt (/ l (pow h 3))))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (* -1 (* h (+ (* -1/2 (* (/ (* (pow d 3) (sqrt -1)) (* (pow D 3) (* (pow M 3) (pow (sqrt 1/2) 2)))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/2 (* (/ (* (pow d 5) (sqrt -1)) (* (pow D 5) (* (pow M 5) (pow (sqrt 1/2) 4)))) (sqrt (/ (pow l 5) (pow h 7))))) (+ (* (/ (* D (* M (* (sqrt -1) (pow (sqrt 1/2) 2)))) d) (sqrt (/ 1 (* h l)))) (* (/ (* d (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/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 (+ (* (* (* D D) -1/8) (* (/ h (* d d)) (/ (* M M) l))) 1) #s(hole binary64 (* -1 (* h (- (* 1/8 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (/ 1 h))))))
#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 (+ (* (* h -1/4) (/ (* (* (* M M) D) D) (* (* d d) l))) 1) #s(hole binary64 (* -1 (* h (- (* 1/4 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (/ 1 h))))))
#s(approx (- l (* (* 1/4 (* D D)) (* (/ (* M M) d) (/ h d)))) #s(hole binary64 (* -1 (* h (- (* -1 (/ l h)) (* -1/4 (/ (* (pow D 2) (pow M 2)) (pow d 2))))))))
#s(approx (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)) #s(hole binary64 (/ (+ l (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l)))
#s(approx (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) #s(hole binary64 (- (* 2 l) (* 1/2 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (/ (+ (* (/ (* D (* M (* w0 (* (sqrt -1/2) (sqrt 1/2))))) d) (sqrt (* h l))) (* (/ (* d (* w0 (sqrt 1/2))) (* D (* M (sqrt -1/2)))) (sqrt (/ (pow l 3) h)))) l)))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (/ (+ (* (/ (* D (* M (* w0 (* (sqrt -1/2) (sqrt 1/2))))) d) (sqrt (* h l))) (* (pow l 2) (+ (* -1/2 (* (/ (* (pow d 3) (* w0 (sqrt 1/2))) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ l (pow h 3))))) (* (/ (* d (* w0 (sqrt 1/2))) (* D (* M (sqrt -1/2)))) (sqrt (/ 1 (* h l))))))) l)))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (/ (+ (* (/ (* D (* M (* w0 (* (sqrt -1/2) (sqrt 1/2))))) d) (sqrt (* h l))) (* (pow l 2) (+ (* (/ (* d (* w0 (sqrt 1/2))) (* D (* M (sqrt -1/2)))) (sqrt (/ 1 (* h l)))) (* (pow l 2) (+ (* -1/2 (* (/ (* (pow d 3) (* w0 (sqrt 1/2))) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ 1 (* (pow h 3) (pow l 3)))))) (* 1/2 (* (/ (* (pow d 5) (* w0 (sqrt 1/2))) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/2) 5)))) (sqrt (/ 1 (* (pow h 5) l)))))))))) l)))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (/ (+ (* (/ (* D (* M (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (* h l))) (* (/ (* d (sqrt 1/2)) (* D (* M (sqrt -1/2)))) (sqrt (/ (pow l 3) h)))) l)))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (/ (+ (* (/ (* D (* M (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (* h l))) (* (pow l 2) (+ (* -1/2 (* (/ (* (pow d 3) (sqrt 1/2)) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ l (pow h 3))))) (* (/ (* d (sqrt 1/2)) (* D (* M (sqrt -1/2)))) (sqrt (/ 1 (* h l))))))) l)))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (/ (+ (* (/ (* D (* M (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (* h l))) (* (pow l 2) (+ (* (/ (* d (sqrt 1/2)) (* D (* M (sqrt -1/2)))) (sqrt (/ 1 (* h l)))) (* (pow l 2) (+ (* -1/2 (* (/ (* (pow d 3) (sqrt 1/2)) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ 1 (* (pow h 3) (pow l 3)))))) (* 1/2 (* (/ (* (pow d 5) (sqrt 1/2)) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/2) 5)))) (sqrt (/ 1 (* (pow h 5) l)))))))))) l)))
#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) 3)))) (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) 3)))) (sqrt (/ 1 (* (pow h 3) (pow l 3)))))) (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/4) 5)))) (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) 3)))) (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) 3)))) (sqrt (/ 1 (* (pow h 3) (pow l 3)))))) (* 1/16 (* (/ (pow d 5) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ 1 (* (pow h 5) l)))))))))) l)))
#s(approx (+ (* (* (* D D) -1/8) (* (/ h (* d d)) (/ (* M M) l))) 1) #s(hole binary64 (/ (+ l (* -1/8 (/ (* (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 (/ (- l (* 1/4 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l)))
#s(approx (+ (* (* h -1/4) (/ (* (* (* M M) D) D) (* (* d d) l))) 1) #s(hole binary64 (/ (+ l (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l)))
#s(approx (- l (* (* 1/4 (* D D)) (* (/ (* M M) d) (/ h d)))) #s(hole binary64 (- l (* 1/4 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2))))))
#s(approx (* (* d d) l) #s(hole binary64 (* (pow d 2) l)))
#s(approx (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) #s(hole binary64 (* l (+ 2 (* -1/2 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l)))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (* h (* w0 (sqrt 1/2))))) (* (pow d 2) (* l (sqrt 2))))) (+ (* -1/32 (/ (* (pow D 4) (* (pow M 4) (* (pow h 2) (* w0 (sqrt 1/2))))) (* (pow d 4) (* (pow l 2) (pow (sqrt 2) 3))))) (* w0 (* (sqrt 1/2) (sqrt 2)))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (* h (* w0 (sqrt 1/2))))) (* (pow d 2) (* l (sqrt 2))))) (+ (* -1/32 (/ (* (pow D 4) (* (pow M 4) (* (pow h 2) (* w0 (sqrt 1/2))))) (* (pow d 4) (* (pow l 2) (pow (sqrt 2) 3))))) (+ (* -1/128 (/ (* (pow D 6) (* (pow M 6) (* (pow h 3) (* w0 (sqrt 1/2))))) (* (pow d 6) (* (pow l 3) (pow (sqrt 2) 5))))) (* w0 (* (sqrt 1/2) (sqrt 2))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (* h (sqrt 1/2)))) (* (pow d 2) (* l (sqrt 2))))) (+ (* -1/32 (/ (* (pow D 4) (* (pow M 4) (* (pow h 2) (sqrt 1/2)))) (* (pow d 4) (* (pow l 2) (pow (sqrt 2) 3))))) (* (sqrt 1/2) (sqrt 2))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (* h (sqrt 1/2)))) (* (pow d 2) (* l (sqrt 2))))) (+ (* -1/32 (/ (* (pow D 4) (* (pow M 4) (* (pow h 2) (sqrt 1/2)))) (* (pow d 4) (* (pow l 2) (pow (sqrt 2) 3))))) (+ (* -1/128 (/ (* (pow D 6) (* (pow M 6) (* (pow h 3) (sqrt 1/2)))) (* (pow d 6) (* (pow l 3) (pow (sqrt 2) 5))))) (* (sqrt 1/2) (sqrt 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))))))))
#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 (- l (* (* 1/4 (* D D)) (* (/ (* M M) d) (/ h d)))) #s(hole binary64 (* l (+ 1 (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l)))))))
#s(approx (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) #s(hole binary64 (* -1 (* l (- (* 1/2 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))) 2)))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (+ (* -1 (/ (+ (* 1/32 (/ (* (pow D 4) (* (pow M 4) (* (pow h 2) (* w0 (sqrt 1/2))))) (* (pow d 4) (* l (pow (sqrt 2) 3))))) (* 1/4 (/ (* (pow D 2) (* (pow M 2) (* h (* w0 (sqrt 1/2))))) (* (pow d 2) (sqrt 2))))) l)) (* w0 (* (sqrt 1/2) (sqrt 2))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1 (/ (+ (* -1/32 (/ (* (pow D 4) (* (pow M 4) (* (pow h 2) (* w0 (sqrt 1/2))))) (* (pow d 4) (pow (sqrt 2) 3)))) (* -1/128 (/ (* (pow D 6) (* (pow M 6) (* (pow h 3) (* w0 (sqrt 1/2))))) (* (pow d 6) (* l (pow (sqrt 2) 5)))))) l)) (* 1/4 (/ (* (pow D 2) (* (pow M 2) (* h (* w0 (sqrt 1/2))))) (* (pow d 2) (sqrt 2))))) l)) (* w0 (* (sqrt 1/2) (sqrt 2))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (+ (* -1 (/ (+ (* 1/32 (/ (* (pow D 4) (* (pow M 4) (* (pow h 2) (sqrt 1/2)))) (* (pow d 4) (* l (pow (sqrt 2) 3))))) (* 1/4 (/ (* (pow D 2) (* (pow M 2) (* h (sqrt 1/2)))) (* (pow d 2) (sqrt 2))))) l)) (* (sqrt 1/2) (sqrt 2)))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (+ (* -1 (/ (+ (* -1 (/ (+ (* -1/32 (/ (* (pow D 4) (* (pow M 4) (* (pow h 2) (sqrt 1/2)))) (* (pow d 4) (pow (sqrt 2) 3)))) (* -1/128 (/ (* (pow D 6) (* (pow M 6) (* (pow h 3) (sqrt 1/2)))) (* (pow d 6) (* l (pow (sqrt 2) 5)))))) l)) (* 1/4 (/ (* (pow D 2) (* (pow M 2) (* h (sqrt 1/2)))) (* (pow d 2) (sqrt 2))))) l)) (* (sqrt 1/2) (sqrt 2)))))
#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 (- l (* (* 1/4 (* D D)) (* (/ (* M M) d) (/ h d)))) #s(hole binary64 (* -1 (* l (- (* 1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))) 1)))))
#s(approx (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)) #s(hole binary64 (/ (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) l)) (pow d 2)) (pow d 2))))
#s(approx (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) #s(hole binary64 (/ (- (* 2 (* (pow d 2) l)) (* 1/2 (* (pow D 2) (* (pow M 2) h)))) (pow d 2))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (/ (+ (* (* D (* M (* w0 (* (sqrt -1/2) (sqrt 1/2))))) (sqrt (/ h l))) (* (/ (* (pow d 2) (* w0 (sqrt 1/2))) (* D (* M (sqrt -1/2)))) (sqrt (/ l h)))) d)))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (/ (+ (* (* D (* M (* w0 (* (sqrt -1/2) (sqrt 1/2))))) (sqrt (/ h l))) (* (pow d 2) (+ (* -1/2 (* (/ (* (pow d 2) (* w0 (sqrt 1/2))) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (* (/ (* w0 (sqrt 1/2)) (* D (* M (sqrt -1/2)))) (sqrt (/ l h)))))) d)))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (/ (+ (* (* D (* M (* w0 (* (sqrt -1/2) (sqrt 1/2))))) (sqrt (/ h l))) (* (pow d 2) (+ (* (/ (* w0 (sqrt 1/2)) (* D (* M (sqrt -1/2)))) (sqrt (/ l h))) (* (pow d 2) (+ (* -1/2 (* (/ (* w0 (sqrt 1/2)) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (* 1/2 (* (/ (* (pow d 2) (* w0 (sqrt 1/2))) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/2) 5)))) (sqrt (/ (pow l 5) (pow h 5)))))))))) d)))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (/ (+ (* (* D (* M (* (sqrt -1/2) (sqrt 1/2)))) (sqrt (/ h l))) (* (/ (* (pow d 2) (sqrt 1/2)) (* D (* M (sqrt -1/2)))) (sqrt (/ l h)))) d)))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (/ (+ (* (* D (* M (* (sqrt -1/2) (sqrt 1/2)))) (sqrt (/ h l))) (* (pow d 2) (+ (* -1/2 (* (/ (* (pow d 2) (sqrt 1/2)) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (* (/ (sqrt 1/2) (* D (* M (sqrt -1/2)))) (sqrt (/ l h)))))) d)))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (/ (+ (* (* D (* M (* (sqrt -1/2) (sqrt 1/2)))) (sqrt (/ h l))) (* (pow d 2) (+ (* (/ (sqrt 1/2) (* D (* M (sqrt -1/2)))) (sqrt (/ l h))) (* (pow d 2) (+ (* -1/2 (* (/ (sqrt 1/2) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (* 1/2 (* (/ (* (pow d 2) (sqrt 1/2)) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/2) 5)))) (sqrt (/ (pow l 5) (pow h 5)))))))))) d)))
#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) 3)))) (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) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (* 1/16 (* (/ (* (pow d 2) w0) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/4) 5)))) (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) 3)))) (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) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (* 1/16 (* (/ (pow d 2) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5)))))))))) d)))
#s(approx (+ (* (* (* D D) -1/8) (* (/ h (* d d)) (/ (* M M) l))) 1) #s(hole binary64 (/ (+ (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) l)) (pow d 2)) (pow d 2))))
#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 (+ (* (* h -1/4) (/ (* (* (* M M) D) D) (* (* d d) l))) 1) #s(hole binary64 (/ (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) l)) (pow d 2)) (pow d 2))))
#s(approx (- l (* (* 1/4 (* D D)) (* (/ (* M M) d) (/ h d)))) #s(hole binary64 (/ (- (* (pow d 2) l) (* 1/4 (* (pow D 2) (* (pow M 2) h)))) (pow d 2))))

Outputs
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (* (sqrt (/ (- (* 2 l) (* 1/2 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l)) (* w0 (sqrt 1/2)))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) (.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) (sqrt.f64 (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 (.f64 (.f64 M M) D) D) h) (.f64 d d)) (.f64 #s(literal 2 binary64) l)) 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 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (.f64 (sqrt.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 (.f64 (.f64 M M) D) D) h) (.f64 (*.f64 d d) l)) #s(literal 1 binary64))) w0))
#s(approx (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)) #s(hole binary64 1))
#s(approx (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)) #s(literal 1 binary64))
#s(approx (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)) #s(hole binary64 (+ 1 (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))))))
#s(approx (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 (.f64 (.f64 M M) D) D) h) (.f64 (.f64 d d) l)) #s(literal 1 binary64)))
#s(approx (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) #s(hole binary64 (* 2 l)))
#s(approx (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (*.f64 #s(literal 2 binary64) l))
#s(approx (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) #s(hole binary64 (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2))) (* 2 l))))
#s(approx (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 (.f64 (.f64 M M) D) D) h) (.f64 d d)) (.f64 #s(literal 2 binary64) l)))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (* w0 (* (sqrt 1/2) (sqrt 2)))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) (.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (* h (* w0 (sqrt 1/2))))) (* (pow d 2) (* l (sqrt 2))))) (* w0 (* (sqrt 1/2) (sqrt 2))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) (fma.f64 (.f64 (/.f64 (.f64 D D) (.f64 d d)) (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) h) (.f64 M M)) (.f64 (sqrt.f64 #s(literal 2 binary64)) l))) #s(literal -1/4 binary64) (.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (+ (* w0 (* (sqrt 1/2) (sqrt 2))) (* (pow M 2) (+ (* -1/4 (/ (* (pow D 2) (* h (* w0 (sqrt 1/2)))) (* (pow d 2) (* l (sqrt 2))))) (* -1/32 (/ (* (pow D 4) (* (pow M 2) (* (pow h 2) (* w0 (sqrt 1/2))))) (* (pow d 4) (* (pow l 2) (pow (sqrt 2) 3))))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) (fma.f64 (fma.f64 (/.f64 (/.f64 (.f64 (.f64 (.f64 (.f64 (.f64 h h) w0) (sqrt.f64 #s(literal 1/2 binary64))) (.f64 M M)) (pow.f64 D #s(literal 4 binary64))) (pow.f64 d #s(literal 4 binary64))) (.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 l l))) #s(literal -1/32 binary64) (.f64 (.f64 (/.f64 (.f64 D D) (.f64 d d)) (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) h) (.f64 (sqrt.f64 #s(literal 2 binary64)) l))) #s(literal -1/4 binary64))) (.f64 M M) (.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (+ (* w0 (* (sqrt 1/2) (sqrt 2))) (* (pow M 2) (+ (* -1/4 (/ (* (pow D 2) (* h (* w0 (sqrt 1/2)))) (* (pow d 2) (* l (sqrt 2))))) (* (pow M 2) (+ (* -1/32 (/ (* (pow D 4) (* (pow h 2) (* w0 (sqrt 1/2)))) (* (pow d 4) (* (pow l 2) (pow (sqrt 2) 3))))) (* -1/128 (/ (* (pow D 6) (* (pow M 2) (* (pow h 3) (* w0 (sqrt 1/2))))) (* (pow d 6) (* (pow l 3) (pow (sqrt 2) 5))))))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) (fma.f64 (fma.f64 (fma.f64 (/.f64 (/.f64 (.f64 (.f64 (.f64 (.f64 (pow.f64 h #s(literal 3 binary64)) w0) (sqrt.f64 #s(literal 1/2 binary64))) (.f64 M M)) (pow.f64 D #s(literal 6 binary64))) (pow.f64 d #s(literal 6 binary64))) (.f64 (pow.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 5 binary64)) (pow.f64 l #s(literal 3 binary64)))) #s(literal -1/128 binary64) (.f64 (/.f64 (/.f64 (.f64 (.f64 (.f64 (.f64 h h) w0) (sqrt.f64 #s(literal 1/2 binary64))) (pow.f64 D #s(literal 4 binary64))) (pow.f64 d #s(literal 4 binary64))) (.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 l l))) #s(literal -1/32 binary64))) (.f64 M M) (.f64 (.f64 (/.f64 (.f64 D D) (.f64 d d)) (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) h) (.f64 (sqrt.f64 #s(literal 2 binary64)) l))) #s(literal -1/4 binary64))) (.f64 M M) (.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (* (sqrt 1/2) (sqrt 2))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(literal 1/2 binary64))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (* h (sqrt 1/2)))) (* (pow d 2) (* l (sqrt 2))))) (* (sqrt 1/2) (sqrt 2)))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) (fma.f64 (.f64 (/.f64 (.f64 D D) (.f64 d d)) (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) h) (.f64 M M)) (.f64 (sqrt.f64 #s(literal 2 binary64)) l))) #s(literal -1/4 binary64) (.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(literal 1/2 binary64)))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (+ (* (sqrt 1/2) (sqrt 2)) (* (pow M 2) (+ (* -1/4 (/ (* (pow D 2) (* h (sqrt 1/2))) (* (pow d 2) (* l (sqrt 2))))) (* -1/32 (/ (* (pow D 4) (* (pow M 2) (* (pow h 2) (sqrt 1/2)))) (* (pow d 4) (* (pow l 2) (pow (sqrt 2) 3))))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) (fma.f64 (fma.f64 (/.f64 (/.f64 (.f64 (.f64 (.f64 (.f64 h h) (sqrt.f64 #s(literal 1/2 binary64))) (.f64 M M)) (pow.f64 D #s(literal 4 binary64))) (pow.f64 d #s(literal 4 binary64))) (.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 l l))) #s(literal -1/32 binary64) (.f64 (.f64 (/.f64 (.f64 D D) (.f64 d d)) (/.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) h) (.f64 (sqrt.f64 #s(literal 2 binary64)) l))) #s(literal -1/4 binary64))) (.f64 M M) (.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(literal 1/2 binary64)))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (+ (* (sqrt 1/2) (sqrt 2)) (* (pow M 2) (+ (* -1/4 (/ (* (pow D 2) (* h (sqrt 1/2))) (* (pow d 2) (* l (sqrt 2))))) (* (pow M 2) (+ (* -1/32 (/ (* (pow D 4) (* (pow h 2) (sqrt 1/2))) (* (pow d 4) (* (pow l 2) (pow (sqrt 2) 3))))) (* -1/128 (/ (* (pow D 6) (* (pow M 2) (* (pow h 3) (sqrt 1/2)))) (* (pow d 6) (* (pow l 3) (pow (sqrt 2) 5))))))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) (fma.f64 (fma.f64 (fma.f64 (/.f64 (/.f64 (.f64 (.f64 (.f64 (pow.f64 h #s(literal 3 binary64)) (sqrt.f64 #s(literal 1/2 binary64))) (.f64 M M)) (pow.f64 D #s(literal 6 binary64))) (pow.f64 d #s(literal 6 binary64))) (.f64 (pow.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 5 binary64)) (pow.f64 l #s(literal 3 binary64)))) #s(literal -1/128 binary64) (.f64 (/.f64 (/.f64 (.f64 (.f64 (.f64 h h) (sqrt.f64 #s(literal 1/2 binary64))) (pow.f64 D #s(literal 4 binary64))) (pow.f64 d #s(literal 4 binary64))) (.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 l l))) #s(literal -1/32 binary64))) (.f64 M M) (.f64 (.f64 (/.f64 (.f64 D D) (.f64 d d)) (/.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) h) (.f64 (sqrt.f64 #s(literal 2 binary64)) l))) #s(literal -1/4 binary64))) (.f64 M M) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(literal 1/2 binary64)))))
#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))))) 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))))) (fma.f64 (/.f64 (.f64 (.f64 (.f64 (.f64 M M) D) D) (.f64 w0 h)) (.f64 (*.f64 d d) l)) #s(literal -1/8 binary64) w0))
#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))))) (fma.f64 (fma.f64 (.f64 (/.f64 (pow.f64 D #s(literal 4 binary64)) (pow.f64 d #s(literal 4 binary64))) (/.f64 (.f64 (.f64 (.f64 h h) w0) (.f64 M M)) (.f64 l l))) #s(literal -1/128 binary64) (.f64 (/.f64 (.f64 (.f64 (.f64 D D) h) w0) (.f64 (.f64 d d) l)) #s(literal -1/8 binary64))) (*.f64 M M) w0))
#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 (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (fma.f64 (fma.f64 (fma.f64 (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (pow.f64 d #s(literal 6 binary64))) (/.f64 (.f64 (.f64 (pow.f64 h #s(literal 3 binary64)) w0) (.f64 M M)) (pow.f64 l #s(literal 3 binary64)))) #s(literal -1/1024 binary64) (.f64 (.f64 (/.f64 (pow.f64 D #s(literal 4 binary64)) (pow.f64 d #s(literal 4 binary64))) (/.f64 (.f64 (.f64 h h) w0) (.f64 l l))) #s(literal -1/128 binary64))) (.f64 M M) (.f64 (/.f64 (.f64 (.f64 (.f64 D D) h) w0) (.f64 (.f64 d d) l)) #s(literal -1/8 binary64))) (*.f64 M M) w0))
#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(literal 1 binary64))
#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)))) (fma.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (.f64 (.f64 (.f64 M M) D) D) h) (.f64 (.f64 d d) l)) #s(literal 1 binary64)))
#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)))) (fma.f64 (fma.f64 (.f64 (/.f64 (pow.f64 D #s(literal 4 binary64)) (pow.f64 d #s(literal 4 binary64))) (/.f64 (.f64 (.f64 h M) (.f64 h M)) (.f64 l l))) #s(literal -1/128 binary64) (/.f64 (.f64 #s(literal -1/8 binary64) (.f64 (.f64 D D) h)) (.f64 (.f64 d d) l))) (*.f64 M M) #s(literal 1 binary64)))
#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 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (fma.f64 (fma.f64 (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (pow.f64 d #s(literal 6 binary64))) (/.f64 (.f64 (pow.f64 h #s(literal 3 binary64)) (.f64 M M)) (pow.f64 l #s(literal 3 binary64)))) #s(literal -1/1024 binary64) (.f64 (.f64 (/.f64 (pow.f64 D #s(literal 4 binary64)) (pow.f64 d #s(literal 4 binary64))) (/.f64 (.f64 h h) (.f64 l l))) #s(literal -1/128 binary64))) (.f64 M M) (/.f64 (.f64 #s(literal -1/8 binary64) (.f64 (.f64 D D) h)) (.f64 (.f64 d d) l))) (.f64 M M) #s(literal 1 binary64)))
#s(approx (+ (* (* (* D D) -1/8) (* (/ h (* d d)) (/ (* M M) l))) 1) #s(hole binary64 1))
#s(approx (+ (* (* (* D D) -1/8) (* (/ h (* d d)) (/ (* M M) l))) 1) #s(literal 1 binary64))
#s(approx (+ (* (* (* D D) -1/8) (* (/ h (* d d)) (/ (* M M) l))) 1) #s(hole binary64 (+ 1 (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))))))
#s(approx (+ (* (* (* D D) -1/8) (* (/ h (* d d)) (/ (* M M) l))) 1) (fma.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (.f64 (.f64 (.f64 M M) D) D) h) (.f64 (.f64 d d) l)) #s(literal 1 binary64)))
#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(literal 1 binary64))
#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 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 (.f64 (.f64 M M) D) D) h) (.f64 (.f64 d d) l)) #s(literal 1 binary64)))
#s(approx (+ (* (* h -1/4) (/ (* (* (* M M) D) D) (* (* d d) l))) 1) #s(hole binary64 1))
#s(approx (+ (* (* h -1/4) (/ (* (* (* M M) D) D) (* (* d d) l))) 1) #s(literal 1 binary64))
#s(approx (+ (* (* h -1/4) (/ (* (* (* M M) D) D) (* (* d d) l))) 1) #s(hole binary64 (+ 1 (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))))))
#s(approx (+ (* (* h -1/4) (/ (* (* (* M M) D) D) (* (* d d) l))) 1) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 (.f64 (.f64 M M) D) D) h) (.f64 (.f64 d d) l)) #s(literal 1 binary64)))
#s(approx (- l (* (* 1/4 (* D D)) (* (/ (* M M) d) (/ h d)))) #s(hole binary64 l))
#s(approx (- l (* (* 1/4 (* D D)) (* (/ (* M M) d) (/ h d)))) l)
#s(approx (- l (* (* 1/4 (* D D)) (* (/ (* M M) d) (/ h d)))) #s(hole binary64 (+ l (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2))))))
#s(approx (- l (* (* 1/4 (* D D)) (* (/ (* M M) d) (/ h d)))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 (.f64 (.f64 M M) D) D) h) (*.f64 d d)) l))
#s(approx (* (/ D 2) (/ M d)) #s(hole binary64 (* 1/2 (/ (* D M) d))))
#s(approx (* (/ D 2) (/ M d)) (.f64 (.f64 D (/.f64 M d)) #s(literal 1/2 binary64)))
#s(approx (* h (pow (* (/ D 2) (/ M d)) 2)) #s(hole binary64 (* 1/4 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))))
#s(approx (* h (pow (* (/ D 2) (/ M d)) 2)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (.f64 (.f64 (.f64 M M) D) D) h) (.f64 d d))))
#s(approx (* (/ h (* d d)) (/ (* M M) l)) #s(hole binary64 (/ (* (pow M 2) h) (* (pow d 2) l))))
#s(approx (* (/ h (* d d)) (/ (* M M) l)) (.f64 (.f64 M M) (/.f64 h (.f64 (.f64 d d) l))))
#s(approx (/ (* (* (* M M) D) D) (* (* d d) l)) #s(hole binary64 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))))
#s(approx (/ (* (* (* M M) D) D) (* (* d d) l)) (.f64 (.f64 (.f64 M M) D) (/.f64 D (.f64 (*.f64 d d) l))))
#s(approx (* (* M M) D) #s(hole binary64 (* D (pow M 2))))
#s(approx (* (* M M) D) (.f64 (.f64 M M) D))
#s(approx (* (* 1/4 (* D D)) (* (/ (* M M) d) (/ h d))) #s(hole binary64 (* 1/4 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))))
#s(approx (* (* 1/4 (* D D)) (* (/ (* M M) d) (/ h d))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (.f64 (.f64 (.f64 M M) D) D) h) (.f64 d d))))
#s(approx (* (/ (* M M) d) (/ h d)) #s(hole binary64 (/ (* (pow M 2) h) (pow d 2))))
#s(approx (* (/ (* M M) d) (/ h d)) (.f64 (.f64 M M) (/.f64 h (*.f64 d d))))
#s(approx (/ (* M M) d) #s(hole binary64 (/ (pow M 2) d)))
#s(approx (/ (* M M) d) (*.f64 M (/.f64 M d)))
#s(approx (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)) #s(hole binary64 (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l)))))
#s(approx (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 (.f64 (.f64 M M) D) D) h) (.f64 (*.f64 d d) l))))
#s(approx (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)) #s(hole binary64 (* (pow M 2) (+ (* -1/4 (/ (* (pow D 2) h) (* (pow d 2) l))) (/ 1 (pow M 2))))))
#s(approx (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)) (.f64 (fma.f64 (.f64 (.f64 D D) (/.f64 h (.f64 (.f64 d d) l))) #s(literal -1/4 binary64) (/.f64 #s(literal 1 binary64) (.f64 M M))) (*.f64 M M)))
#s(approx (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) #s(hole binary64 (* -1/2 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))))
#s(approx (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 (.f64 (.f64 M M) D) D) h) (.f64 d d))))
#s(approx (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) #s(hole binary64 (* (pow M 2) (- (* 2 (/ l (pow M 2))) (* 1/2 (/ (* (pow D 2) h) (pow d 2)))))))
#s(approx (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (.f64 (fma.f64 (/.f64 l (.f64 M M)) #s(literal 2 binary64) (.f64 #s(literal -1/2 binary64) (.f64 (.f64 D D) (/.f64 h (.f64 d d))))) (*.f64 M M)))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (* (/ (* D (* M (* w0 (* (sqrt -1/2) (sqrt 1/2))))) d) (sqrt (/ h l)))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) (.f64 (sqrt.f64 (/.f64 h l)) (/.f64 (.f64 (.f64 M D) (.f64 (*.f64 w0 (sqrt.f64 #s(literal -1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))) d)))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (* M (+ (* (/ (* D (* w0 (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (/ h l))) (* (/ (* d (* w0 (sqrt 1/2))) (* D (* (pow M 2) (sqrt -1/2)))) (sqrt (/ l h)))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) (.f64 (fma.f64 (sqrt.f64 (/.f64 l h)) (/.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) d) D) (.f64 (sqrt.f64 #s(literal -1/2 binary64)) (.f64 M M))) (.f64 (/.f64 (.f64 (.f64 D w0) (*.f64 (sqrt.f64 #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 1/2 binary64)))) d) (sqrt.f64 (/.f64 h l)))) M))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (* M (+ (* -1/2 (* (/ (* (pow d 3) (* w0 (sqrt 1/2))) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* (/ (* D (* w0 (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (/ h l))) (* (/ (* d (* w0 (sqrt 1/2))) (* D (* (pow M 2) (sqrt -1/2)))) (sqrt (/ l h))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) (.f64 (fma.f64 (.f64 (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))) (.f64 (pow.f64 (/.f64 d D) #s(literal 3 binary64)) (/.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) (.f64 (.f64 (sqrt.f64 #s(literal -1/2 binary64)) #s(literal -1/2 binary64)) (pow.f64 M #s(literal 4 binary64)))))) #s(literal -1/2 binary64) (fma.f64 (sqrt.f64 (/.f64 l h)) (/.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) d) D) (.f64 (sqrt.f64 #s(literal -1/2 binary64)) (.f64 M M))) (.f64 (/.f64 (.f64 (.f64 D w0) (.f64 (sqrt.f64 #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 1/2 binary64)))) d) (sqrt.f64 (/.f64 h l))))) M))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (* M (+ (* -1/2 (* (/ (* (pow d 3) (* w0 (sqrt 1/2))) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ (* (pow d 5) (* w0 (sqrt 1/2))) (* (pow D 5) (* (pow M 6) (pow (sqrt -1/2) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* (/ (* D (* w0 (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (/ h l))) (* (/ (* d (* w0 (sqrt 1/2))) (* D (* (pow M 2) (sqrt -1/2)))) (sqrt (/ l h)))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) (.f64 (fma.f64 (.f64 (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))) (.f64 (pow.f64 (/.f64 d D) #s(literal 3 binary64)) (/.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) (.f64 (.f64 (sqrt.f64 #s(literal -1/2 binary64)) #s(literal -1/2 binary64)) (pow.f64 M #s(literal 4 binary64)))))) #s(literal -1/2 binary64) (fma.f64 (.f64 (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 5 binary64)))) (.f64 (/.f64 (pow.f64 d #s(literal 5 binary64)) (pow.f64 D #s(literal 5 binary64))) (/.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) (.f64 (pow.f64 (sqrt.f64 #s(literal -1/2 binary64)) #s(literal 5 binary64)) (pow.f64 M #s(literal 6 binary64)))))) #s(literal 1/2 binary64) (fma.f64 (sqrt.f64 (/.f64 l h)) (/.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) d) D) (.f64 (sqrt.f64 #s(literal -1/2 binary64)) (.f64 M M))) (.f64 (/.f64 (.f64 (.f64 D w0) (.f64 (sqrt.f64 #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 1/2 binary64)))) d) (sqrt.f64 (/.f64 h l)))))) M))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (* (/ (* D (* M (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (/ h l)))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) (.f64 (/.f64 (.f64 (.f64 M D) (.f64 (sqrt.f64 #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 1/2 binary64)))) d) (sqrt.f64 (/.f64 h l))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (* M (+ (* (/ (* D (* (sqrt -1/2) (sqrt 1/2))) d) (sqrt (/ h l))) (* (/ (* d (sqrt 1/2)) (* D (* (pow M 2) (sqrt -1/2)))) (sqrt (/ l h)))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) (.f64 (fma.f64 (/.f64 (/.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) d) D) (.f64 (sqrt.f64 #s(literal -1/2 binary64)) (.f64 M M))) (sqrt.f64 (/.f64 l h)) (.f64 (/.f64 (.f64 (*.f64 D (sqrt.f64 #s(literal -1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) d) (sqrt.f64 (/.f64 h l)))) M))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (* M (+ (* -1/2 (* (/ (* (pow d 3) (sqrt 1/2)) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* (/ (* D (* (sqrt -1/2) (sqrt 1/2))) d) (sqrt (/ h l))) (* (/ (* d (sqrt 1/2)) (* D (* (pow M 2) (sqrt -1/2)))) (sqrt (/ l h))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) (.f64 (fma.f64 (.f64 (.f64 (pow.f64 (/.f64 d D) #s(literal 3 binary64)) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (.f64 (.f64 (sqrt.f64 #s(literal -1/2 binary64)) #s(literal -1/2 binary64)) (pow.f64 M #s(literal 4 binary64))))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64)))) #s(literal -1/2 binary64) (fma.f64 (/.f64 (/.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) d) D) (.f64 (sqrt.f64 #s(literal -1/2 binary64)) (.f64 M M))) (sqrt.f64 (/.f64 l h)) (.f64 (/.f64 (.f64 (*.f64 D (sqrt.f64 #s(literal -1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) d) (sqrt.f64 (/.f64 h l))))) M))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (* M (+ (* -1/2 (* (/ (* (pow d 3) (sqrt 1/2)) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ (* (pow d 5) (sqrt 1/2)) (* (pow D 5) (* (pow M 6) (pow (sqrt -1/2) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* (/ (* D (* (sqrt -1/2) (sqrt 1/2))) d) (sqrt (/ h l))) (* (/ (* d (sqrt 1/2)) (* D (* (pow M 2) (sqrt -1/2)))) (sqrt (/ l h)))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) (.f64 (fma.f64 (.f64 (.f64 (pow.f64 (/.f64 d D) #s(literal 3 binary64)) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (.f64 (.f64 (sqrt.f64 #s(literal -1/2 binary64)) #s(literal -1/2 binary64)) (pow.f64 M #s(literal 4 binary64))))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64)))) #s(literal -1/2 binary64) (fma.f64 (.f64 (.f64 (/.f64 (pow.f64 d #s(literal 5 binary64)) (pow.f64 D #s(literal 5 binary64))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (.f64 (pow.f64 (sqrt.f64 #s(literal -1/2 binary64)) #s(literal 5 binary64)) (pow.f64 M #s(literal 6 binary64))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 5 binary64))))) #s(literal 1/2 binary64) (fma.f64 (/.f64 (/.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) d) D) (.f64 (sqrt.f64 #s(literal -1/2 binary64)) (.f64 M M))) (sqrt.f64 (/.f64 l h)) (.f64 (/.f64 (.f64 (.f64 D (sqrt.f64 #s(literal -1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) d) (sqrt.f64 (/.f64 h l)))))) 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))))) (.f64 (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) M) D) d) (sqrt.f64 (/.f64 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))))) (.f64 (fma.f64 (.f64 (/.f64 (/.f64 (.f64 w0 d) D) (.f64 (sqrt.f64 #s(literal -1/4 binary64)) (.f64 M M))) (sqrt.f64 (/.f64 l h))) #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) D) d) (sqrt.f64 (/.f64 h l)))) M))
#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) 3)))) (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))))) (.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 (pow.f64 (/.f64 d D) #s(literal 3 binary64)) (/.f64 w0 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal -1/4 binary64)) (pow.f64 M #s(literal 4 binary64)))))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))) (fma.f64 (.f64 (/.f64 (/.f64 (.f64 w0 d) D) (.f64 (sqrt.f64 #s(literal -1/4 binary64)) (.f64 M M))) (sqrt.f64 (/.f64 l h))) #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) D) d) (sqrt.f64 (/.f64 h l))))) M))
#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) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 5) (* (pow M 6) (pow (sqrt -1/4) 5)))) (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))))) (.f64 (fma.f64 (.f64 (.f64 (pow.f64 (/.f64 d D) #s(literal 3 binary64)) (/.f64 w0 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal -1/4 binary64)) (pow.f64 M #s(literal 4 binary64))))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64)))) #s(literal -1/8 binary64) (fma.f64 (.f64 #s(literal 1/16 binary64) (/.f64 (.f64 (pow.f64 d #s(literal 5 binary64)) w0) (.f64 (.f64 (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 5 binary64)) (pow.f64 M #s(literal 6 binary64))) (pow.f64 D #s(literal 5 binary64))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 5 binary64)))) (fma.f64 (.f64 (/.f64 (/.f64 (.f64 w0 d) D) (.f64 (sqrt.f64 #s(literal -1/4 binary64)) (.f64 M M))) (sqrt.f64 (/.f64 l h))) #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) D) d) (sqrt.f64 (/.f64 h l)))))) M))
#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)))) (.f64 (/.f64 (.f64 (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) d) (sqrt.f64 (/.f64 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)))) (.f64 (fma.f64 (.f64 (/.f64 (/.f64 d D) (.f64 (sqrt.f64 #s(literal -1/4 binary64)) (.f64 M M))) (sqrt.f64 (/.f64 l h))) #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) D) d) (sqrt.f64 (/.f64 h l)))) M))
#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) 3)))) (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)))) (.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 (/.f64 d D) #s(literal 3 binary64)) (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal -1/4 binary64)) (pow.f64 M #s(literal 4 binary64))))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))) (fma.f64 (.f64 (/.f64 (/.f64 d D) (.f64 (sqrt.f64 #s(literal -1/4 binary64)) (.f64 M M))) (sqrt.f64 (/.f64 l h))) #s(literal 1/2 binary64) (.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) D) d) (sqrt.f64 (/.f64 h l))))) M))
#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) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (pow d 5) (* (pow D 5) (* (pow M 6) (pow (sqrt -1/4) 5)))) (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 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 (/.f64 d D) #s(literal 3 binary64)) (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal -1/4 binary64)) (pow.f64 M #s(literal 4 binary64))))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))) (fma.f64 (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 d #s(literal 5 binary64)) (.f64 (.f64 (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 5 binary64)) (pow.f64 M #s(literal 6 binary64))) (pow.f64 D #s(literal 5 binary64))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 5 binary64)))) (fma.f64 (.f64 (/.f64 (/.f64 d D) (.f64 (sqrt.f64 #s(literal -1/4 binary64)) (.f64 M M))) (sqrt.f64 (/.f64 l h))) #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) D) d) (sqrt.f64 (/.f64 h l)))))) M))
#s(approx (+ (* (* (* D D) -1/8) (* (/ h (* d d)) (/ (* M M) l))) 1) #s(hole binary64 (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l)))))
#s(approx (+ (* (* (* D D) -1/8) (* (/ h (* d d)) (/ (* M M) l))) 1) (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (.f64 (.f64 (.f64 M M) D) D) h) (.f64 (*.f64 d d) l))))
#s(approx (+ (* (* (* D D) -1/8) (* (/ h (* d d)) (/ (* M M) l))) 1) #s(hole binary64 (* (pow M 2) (+ (* -1/8 (/ (* (pow D 2) h) (* (pow d 2) l))) (/ 1 (pow M 2))))))
#s(approx (+ (* (* (* D D) -1/8) (* (/ h (* d d)) (/ (* M M) l))) 1) (.f64 (fma.f64 (.f64 (.f64 D D) (/.f64 h (.f64 (.f64 d d) l))) #s(literal -1/8 binary64) (/.f64 #s(literal 1 binary64) (.f64 M M))) (*.f64 M M)))
#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))) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 (.f64 (.f64 M M) D) D) h) (.f64 (*.f64 d d) 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 (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (.f64 (fma.f64 (.f64 (.f64 D D) (/.f64 h (.f64 (.f64 d d) l))) #s(literal -1/4 binary64) (/.f64 #s(literal 1 binary64) (.f64 M M))) (*.f64 M M)))
#s(approx (+ (* (* h -1/4) (/ (* (* (* M M) D) D) (* (* d d) l))) 1) #s(hole binary64 (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l)))))
#s(approx (+ (* (* h -1/4) (/ (* (* (* M M) D) D) (* (* d d) l))) 1) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 (.f64 (.f64 M M) D) D) h) (.f64 (*.f64 d d) l))))
#s(approx (+ (* (* h -1/4) (/ (* (* (* M M) D) D) (* (* d d) l))) 1) #s(hole binary64 (* (pow M 2) (+ (* -1/4 (/ (* (pow D 2) h) (* (pow d 2) l))) (/ 1 (pow M 2))))))
#s(approx (+ (* (* h -1/4) (/ (* (* (* M M) D) D) (* (* d d) l))) 1) (.f64 (fma.f64 (.f64 (.f64 D D) (/.f64 h (.f64 (.f64 d d) l))) #s(literal -1/4 binary64) (/.f64 #s(literal 1 binary64) (.f64 M M))) (*.f64 M M)))
#s(approx (- l (* (* 1/4 (* D D)) (* (/ (* M M) d) (/ h d)))) #s(hole binary64 (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))))
#s(approx (- l (* (* 1/4 (* D D)) (* (/ (* M M) d) (/ h d)))) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 (.f64 (.f64 M M) D) D) h) (.f64 d d))))
#s(approx (- l (* (* 1/4 (* D D)) (* (/ (* M M) d) (/ h d)))) #s(hole binary64 (* (pow M 2) (- (/ l (pow M 2)) (* 1/4 (/ (* (pow D 2) h) (pow d 2)))))))
#s(approx (- l (* (* 1/4 (* D D)) (* (/ (* M M) d) (/ h d)))) (.f64 (-.f64 (/.f64 l (.f64 M M)) (/.f64 (.f64 #s(literal 1/4 binary64) (.f64 (.f64 D D) h)) (.f64 d d))) (*.f64 M M)))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (* -1 (* (/ (* D (* M (* w0 (* (sqrt -1/2) (sqrt 1/2))))) d) (sqrt (/ h l))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) (.f64 (neg.f64 (sqrt.f64 (/.f64 h l))) (/.f64 (.f64 (.f64 M D) (.f64 (*.f64 w0 (sqrt.f64 #s(literal -1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))) d)))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (* -1 (* M (+ (* (/ (* D (* w0 (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (/ h l))) (* (/ (* d (* w0 (sqrt 1/2))) (* D (* (pow M 2) (sqrt -1/2)))) (sqrt (/ l h))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) (.f64 (neg.f64 M) (fma.f64 (sqrt.f64 (/.f64 l h)) (/.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) d) D) (.f64 (sqrt.f64 #s(literal -1/2 binary64)) (.f64 M M))) (.f64 (/.f64 (.f64 (.f64 D w0) (*.f64 (sqrt.f64 #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 1/2 binary64)))) d) (sqrt.f64 (/.f64 h l))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (* -1 (* M (+ (* -1/2 (* (/ (* (pow d 3) (* w0 (sqrt 1/2))) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* (/ (* D (* w0 (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (/ h l))) (* (/ (* d (* w0 (sqrt 1/2))) (* D (* (pow M 2) (sqrt -1/2)))) (sqrt (/ l h)))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) (.f64 (neg.f64 M) (fma.f64 (.f64 (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))) (.f64 (pow.f64 (/.f64 d D) #s(literal 3 binary64)) (/.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) (.f64 (.f64 (sqrt.f64 #s(literal -1/2 binary64)) #s(literal -1/2 binary64)) (pow.f64 M #s(literal 4 binary64)))))) #s(literal -1/2 binary64) (fma.f64 (sqrt.f64 (/.f64 l h)) (/.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) d) D) (.f64 (sqrt.f64 #s(literal -1/2 binary64)) (.f64 M M))) (.f64 (/.f64 (.f64 (.f64 D w0) (.f64 (sqrt.f64 #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 1/2 binary64)))) d) (sqrt.f64 (/.f64 h l)))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (* -1 (* M (+ (* -1/2 (* (/ (* (pow d 3) (* w0 (sqrt 1/2))) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ (* (pow d 5) (* w0 (sqrt 1/2))) (* (pow D 5) (* (pow M 6) (pow (sqrt -1/2) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* (/ (* D (* w0 (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (/ h l))) (* (/ (* d (* w0 (sqrt 1/2))) (* D (* (pow M 2) (sqrt -1/2)))) (sqrt (/ l h))))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) (.f64 (neg.f64 M) (fma.f64 (.f64 (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))) (.f64 (pow.f64 (/.f64 d D) #s(literal 3 binary64)) (/.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) (.f64 (.f64 (sqrt.f64 #s(literal -1/2 binary64)) #s(literal -1/2 binary64)) (pow.f64 M #s(literal 4 binary64)))))) #s(literal -1/2 binary64) (fma.f64 (.f64 (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 5 binary64)))) (.f64 (/.f64 (pow.f64 d #s(literal 5 binary64)) (pow.f64 D #s(literal 5 binary64))) (/.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) (.f64 (pow.f64 (sqrt.f64 #s(literal -1/2 binary64)) #s(literal 5 binary64)) (pow.f64 M #s(literal 6 binary64)))))) #s(literal 1/2 binary64) (fma.f64 (sqrt.f64 (/.f64 l h)) (/.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) d) D) (.f64 (sqrt.f64 #s(literal -1/2 binary64)) (.f64 M M))) (.f64 (/.f64 (.f64 (.f64 D w0) (.f64 (sqrt.f64 #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 1/2 binary64)))) d) (sqrt.f64 (/.f64 h l))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (* -1 (* (/ (* D (* M (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (/ h l))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) (.f64 (neg.f64 (sqrt.f64 (/.f64 h l))) (/.f64 (.f64 (.f64 M D) (.f64 (sqrt.f64 #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 1/2 binary64)))) d)))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (* -1 (* M (+ (* (/ (* D (* (sqrt -1/2) (sqrt 1/2))) d) (sqrt (/ h l))) (* (/ (* d (sqrt 1/2)) (* D (* (pow M 2) (sqrt -1/2)))) (sqrt (/ l h))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) (.f64 (neg.f64 M) (fma.f64 (/.f64 (/.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) d) D) (.f64 (sqrt.f64 #s(literal -1/2 binary64)) (.f64 M M))) (sqrt.f64 (/.f64 l h)) (.f64 (/.f64 (.f64 (*.f64 D (sqrt.f64 #s(literal -1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) d) (sqrt.f64 (/.f64 h l))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (* -1 (* M (+ (* -1/2 (* (/ (* (pow d 3) (sqrt 1/2)) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* (/ (* D (* (sqrt -1/2) (sqrt 1/2))) d) (sqrt (/ h l))) (* (/ (* d (sqrt 1/2)) (* D (* (pow M 2) (sqrt -1/2)))) (sqrt (/ l h)))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) (.f64 (neg.f64 M) (fma.f64 (.f64 (.f64 (pow.f64 (/.f64 d D) #s(literal 3 binary64)) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (.f64 (.f64 (sqrt.f64 #s(literal -1/2 binary64)) #s(literal -1/2 binary64)) (pow.f64 M #s(literal 4 binary64))))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64)))) #s(literal -1/2 binary64) (fma.f64 (/.f64 (/.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) d) D) (.f64 (sqrt.f64 #s(literal -1/2 binary64)) (.f64 M M))) (sqrt.f64 (/.f64 l h)) (.f64 (/.f64 (.f64 (*.f64 D (sqrt.f64 #s(literal -1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) d) (sqrt.f64 (/.f64 h l)))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (* -1 (* M (+ (* -1/2 (* (/ (* (pow d 3) (sqrt 1/2)) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ (* (pow d 5) (sqrt 1/2)) (* (pow D 5) (* (pow M 6) (pow (sqrt -1/2) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* (/ (* D (* (sqrt -1/2) (sqrt 1/2))) d) (sqrt (/ h l))) (* (/ (* d (sqrt 1/2)) (* D (* (pow M 2) (sqrt -1/2)))) (sqrt (/ l h))))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) (.f64 (neg.f64 M) (fma.f64 (.f64 (.f64 (pow.f64 (/.f64 d D) #s(literal 3 binary64)) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (.f64 (.f64 (sqrt.f64 #s(literal -1/2 binary64)) #s(literal -1/2 binary64)) (pow.f64 M #s(literal 4 binary64))))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64)))) #s(literal -1/2 binary64) (fma.f64 (.f64 (.f64 (/.f64 (pow.f64 d #s(literal 5 binary64)) (pow.f64 D #s(literal 5 binary64))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (.f64 (pow.f64 (sqrt.f64 #s(literal -1/2 binary64)) #s(literal 5 binary64)) (pow.f64 M #s(literal 6 binary64))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 5 binary64))))) #s(literal 1/2 binary64) (fma.f64 (/.f64 (/.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) d) D) (.f64 (sqrt.f64 #s(literal -1/2 binary64)) (.f64 M M))) (sqrt.f64 (/.f64 l h)) (.f64 (/.f64 (.f64 (.f64 D (sqrt.f64 #s(literal -1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) d) (sqrt.f64 (/.f64 h 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))))) (.f64 (.f64 (neg.f64 D) (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) M) d)) (sqrt.f64 (/.f64 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))))) (.f64 (neg.f64 M) (fma.f64 (.f64 (/.f64 (/.f64 (.f64 w0 d) D) (.f64 (sqrt.f64 #s(literal -1/4 binary64)) (.f64 M M))) (sqrt.f64 (/.f64 l h))) #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) D) d) (sqrt.f64 (/.f64 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) (pow (sqrt -1/4) 3)))) (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))))) (.f64 (neg.f64 M) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 (pow.f64 (/.f64 d D) #s(literal 3 binary64)) (/.f64 w0 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal -1/4 binary64)) (pow.f64 M #s(literal 4 binary64)))))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))) (fma.f64 (.f64 (/.f64 (/.f64 (.f64 w0 d) D) (.f64 (sqrt.f64 #s(literal -1/4 binary64)) (.f64 M M))) (sqrt.f64 (/.f64 l h))) #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) D) d) (sqrt.f64 (/.f64 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) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 5) (* (pow M 6) (pow (sqrt -1/4) 5)))) (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))))) (.f64 (neg.f64 M) (fma.f64 (.f64 (.f64 (pow.f64 (/.f64 d D) #s(literal 3 binary64)) (/.f64 w0 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal -1/4 binary64)) (pow.f64 M #s(literal 4 binary64))))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64)))) #s(literal -1/8 binary64) (fma.f64 (.f64 #s(literal 1/16 binary64) (/.f64 (.f64 (pow.f64 d #s(literal 5 binary64)) w0) (.f64 (.f64 (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 5 binary64)) (pow.f64 M #s(literal 6 binary64))) (pow.f64 D #s(literal 5 binary64))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 5 binary64)))) (fma.f64 (.f64 (/.f64 (/.f64 (.f64 w0 d) D) (.f64 (sqrt.f64 #s(literal -1/4 binary64)) (.f64 M M))) (sqrt.f64 (/.f64 l h))) #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) D) d) (sqrt.f64 (/.f64 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)))) (.f64 (.f64 (neg.f64 D) (/.f64 (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) d)) (sqrt.f64 (/.f64 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)))) (.f64 (neg.f64 M) (fma.f64 (.f64 (/.f64 (/.f64 d D) (.f64 (sqrt.f64 #s(literal -1/4 binary64)) (.f64 M M))) (sqrt.f64 (/.f64 l h))) #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) D) d) (sqrt.f64 (/.f64 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) 3)))) (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)))) (.f64 (neg.f64 M) (fma.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 (/.f64 d D) #s(literal 3 binary64)) (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal -1/4 binary64)) (pow.f64 M #s(literal 4 binary64))))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))) (fma.f64 (.f64 (/.f64 (/.f64 d D) (.f64 (sqrt.f64 #s(literal -1/4 binary64)) (.f64 M M))) (sqrt.f64 (/.f64 l h))) #s(literal 1/2 binary64) (.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) D) d) (sqrt.f64 (/.f64 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) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (pow d 5) (* (pow D 5) (* (pow M 6) (pow (sqrt -1/4) 5)))) (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 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (.f64 (neg.f64 M) (fma.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 (/.f64 d D) #s(literal 3 binary64)) (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal -1/4 binary64)) (pow.f64 M #s(literal 4 binary64))))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))) (fma.f64 (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 d #s(literal 5 binary64)) (.f64 (.f64 (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 5 binary64)) (pow.f64 M #s(literal 6 binary64))) (pow.f64 D #s(literal 5 binary64))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 5 binary64)))) (fma.f64 (.f64 (/.f64 (/.f64 d D) (.f64 (sqrt.f64 #s(literal -1/4 binary64)) (.f64 M M))) (sqrt.f64 (/.f64 l h))) #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) D) d) (sqrt.f64 (/.f64 h l))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (+ (* w0 (* (sqrt 1/2) (sqrt 2))) (* (pow D 2) (+ (* -1/4 (/ (* (pow M 2) (* h (* w0 (sqrt 1/2)))) (* (pow d 2) (* l (sqrt 2))))) (* -1/32 (/ (* (pow D 2) (* (pow M 4) (* (pow h 2) (* w0 (sqrt 1/2))))) (* (pow d 4) (* (pow l 2) (pow (sqrt 2) 3))))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) (fma.f64 (fma.f64 (/.f64 (/.f64 (.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (.f64 (.f64 (.f64 h h) w0) (sqrt.f64 #s(literal 1/2 binary64)))) (.f64 D D)) (pow.f64 d #s(literal 4 binary64))) (.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 l l))) #s(literal -1/32 binary64) (.f64 (.f64 (/.f64 (.f64 M M) (.f64 d d)) (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) h) (.f64 (sqrt.f64 #s(literal 2 binary64)) l))) #s(literal -1/4 binary64))) (.f64 D D) (.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (+ (* w0 (* (sqrt 1/2) (sqrt 2))) (* (pow D 2) (+ (* -1/4 (/ (* (pow M 2) (* h (* w0 (sqrt 1/2)))) (* (pow d 2) (* l (sqrt 2))))) (* (pow D 2) (+ (* -1/32 (/ (* (pow M 4) (* (pow h 2) (* w0 (sqrt 1/2)))) (* (pow d 4) (* (pow l 2) (pow (sqrt 2) 3))))) (* -1/128 (/ (* (pow D 2) (* (pow M 6) (* (pow h 3) (* w0 (sqrt 1/2))))) (* (pow d 6) (* (pow l 3) (pow (sqrt 2) 5))))))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) (fma.f64 (fma.f64 (fma.f64 (/.f64 (/.f64 (.f64 (.f64 (pow.f64 M #s(literal 6 binary64)) (.f64 (.f64 (pow.f64 h #s(literal 3 binary64)) w0) (sqrt.f64 #s(literal 1/2 binary64)))) (.f64 D D)) (pow.f64 d #s(literal 6 binary64))) (.f64 (pow.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 5 binary64)) (pow.f64 l #s(literal 3 binary64)))) #s(literal -1/128 binary64) (.f64 (/.f64 (/.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (.f64 (.f64 (.f64 h h) w0) (sqrt.f64 #s(literal 1/2 binary64)))) (pow.f64 d #s(literal 4 binary64))) (.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 l l))) #s(literal -1/32 binary64))) (.f64 D D) (.f64 (.f64 (/.f64 (.f64 M M) (.f64 d d)) (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) h) (.f64 (sqrt.f64 #s(literal 2 binary64)) l))) #s(literal -1/4 binary64))) (.f64 D D) (.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (+ (* (sqrt 1/2) (sqrt 2)) (* (pow D 2) (+ (* -1/4 (/ (* (pow M 2) (* h (sqrt 1/2))) (* (pow d 2) (* l (sqrt 2))))) (* -1/32 (/ (* (pow D 2) (* (pow M 4) (* (pow h 2) (sqrt 1/2)))) (* (pow d 4) (* (pow l 2) (pow (sqrt 2) 3))))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) (fma.f64 (fma.f64 (/.f64 (/.f64 (.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (.f64 (.f64 h h) (sqrt.f64 #s(literal 1/2 binary64)))) (.f64 D D)) (pow.f64 d #s(literal 4 binary64))) (.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 l l))) #s(literal -1/32 binary64) (.f64 (.f64 (/.f64 (.f64 M M) (.f64 d d)) (/.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) h) (.f64 (sqrt.f64 #s(literal 2 binary64)) l))) #s(literal -1/4 binary64))) (.f64 D D) (.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(literal 1/2 binary64)))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (+ (* (sqrt 1/2) (sqrt 2)) (* (pow D 2) (+ (* -1/4 (/ (* (pow M 2) (* h (sqrt 1/2))) (* (pow d 2) (* l (sqrt 2))))) (* (pow D 2) (+ (* -1/32 (/ (* (pow M 4) (* (pow h 2) (sqrt 1/2))) (* (pow d 4) (* (pow l 2) (pow (sqrt 2) 3))))) (* -1/128 (/ (* (pow D 2) (* (pow M 6) (* (pow h 3) (sqrt 1/2)))) (* (pow d 6) (* (pow l 3) (pow (sqrt 2) 5))))))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) (fma.f64 (fma.f64 (fma.f64 (/.f64 (/.f64 (.f64 (.f64 (pow.f64 M #s(literal 6 binary64)) (.f64 (pow.f64 h #s(literal 3 binary64)) (sqrt.f64 #s(literal 1/2 binary64)))) (.f64 D D)) (pow.f64 d #s(literal 6 binary64))) (.f64 (pow.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 5 binary64)) (pow.f64 l #s(literal 3 binary64)))) #s(literal -1/128 binary64) (.f64 (/.f64 (/.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (.f64 (.f64 h h) (sqrt.f64 #s(literal 1/2 binary64)))) (pow.f64 d #s(literal 4 binary64))) (.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 l l))) #s(literal -1/32 binary64))) (.f64 D D) (.f64 (.f64 (/.f64 (.f64 M M) (.f64 d d)) (/.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) h) (.f64 (sqrt.f64 #s(literal 2 binary64)) l))) #s(literal -1/4 binary64))) (.f64 D D) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(literal 1/2 binary64)))))
#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))))) (fma.f64 (fma.f64 (.f64 (/.f64 (.f64 D D) (pow.f64 d #s(literal 4 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (.f64 (.f64 h h) w0)) (.f64 l l))) #s(literal -1/128 binary64) (/.f64 (.f64 #s(literal -1/8 binary64) (.f64 (.f64 (.f64 M M) h) w0)) (.f64 (.f64 d d) l))) (*.f64 D D) w0))
#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 (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (fma.f64 (fma.f64 (fma.f64 (.f64 (/.f64 (.f64 D D) (pow.f64 d #s(literal 6 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 6 binary64)) (.f64 (pow.f64 h #s(literal 3 binary64)) w0)) (pow.f64 l #s(literal 3 binary64)))) #s(literal -1/1024 binary64) (.f64 (.f64 (/.f64 (pow.f64 M #s(literal 4 binary64)) (pow.f64 d #s(literal 4 binary64))) (/.f64 (.f64 (.f64 h h) w0) (.f64 l l))) #s(literal -1/128 binary64))) (.f64 D D) (/.f64 (.f64 #s(literal -1/8 binary64) (.f64 (.f64 (.f64 M M) h) w0)) (.f64 (.f64 d d) l))) (*.f64 D D) w0))
#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)))) (fma.f64 (fma.f64 (.f64 (/.f64 (.f64 D D) (pow.f64 d #s(literal 4 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (.f64 h h)) (.f64 l l))) #s(literal -1/128 binary64) (/.f64 (.f64 #s(literal -1/8 binary64) (.f64 (.f64 M M) h)) (.f64 (.f64 d d) l))) (*.f64 D D) #s(literal 1 binary64)))
#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 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (fma.f64 (fma.f64 (.f64 (/.f64 (.f64 D D) (pow.f64 d #s(literal 6 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 6 binary64)) (pow.f64 h #s(literal 3 binary64))) (pow.f64 l #s(literal 3 binary64)))) #s(literal -1/1024 binary64) (.f64 (.f64 (/.f64 (pow.f64 M #s(literal 4 binary64)) (pow.f64 d #s(literal 4 binary64))) (/.f64 (.f64 h h) (.f64 l l))) #s(literal -1/128 binary64))) (.f64 D D) (/.f64 (.f64 #s(literal -1/8 binary64) (.f64 (.f64 M M) h)) (.f64 (.f64 d d) l))) (.f64 D D) #s(literal 1 binary64)))
#s(approx (* (* D D) -1/8) #s(hole binary64 (* -1/8 (pow D 2))))
#s(approx (* (* D D) -1/8) (.f64 #s(literal -1/8 binary64) (.f64 D D)))
#s(approx (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)) #s(hole binary64 (* (pow D 2) (+ (* -1/4 (/ (* (pow M 2) h) (* (pow d 2) l))) (/ 1 (pow D 2))))))
#s(approx (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)) (.f64 (fma.f64 (.f64 (.f64 M M) (/.f64 h (.f64 (.f64 d d) l))) #s(literal -1/4 binary64) (/.f64 #s(literal 1 binary64) (.f64 D D))) (*.f64 D D)))
#s(approx (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) #s(hole binary64 (* (pow D 2) (- (* 2 (/ l (pow D 2))) (* 1/2 (/ (* (pow M 2) h) (pow d 2)))))))
#s(approx (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (.f64 (fma.f64 (/.f64 l (.f64 D D)) #s(literal 2 binary64) (.f64 #s(literal -1/2 binary64) (.f64 (.f64 M M) (/.f64 h (.f64 d d))))) (*.f64 D D)))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (* D (+ (* (/ (* M (* w0 (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (/ h l))) (* (/ (* d (* w0 (sqrt 1/2))) (* (pow D 2) (* M (sqrt -1/2)))) (sqrt (/ l h)))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) (.f64 (fma.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) d) (.f64 (.f64 (.f64 D D) M) (sqrt.f64 #s(literal -1/2 binary64)))) (sqrt.f64 (/.f64 l h)) (.f64 (/.f64 (.f64 (.f64 M w0) (.f64 (sqrt.f64 #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 1/2 binary64)))) d) (sqrt.f64 (/.f64 h l)))) D))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (* D (+ (* -1/2 (* (/ (* (pow d 3) (* w0 (sqrt 1/2))) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* (/ (* M (* w0 (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (/ h l))) (* (/ (* d (* w0 (sqrt 1/2))) (* (pow D 2) (* M (sqrt -1/2)))) (sqrt (/ l h))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) (.f64 (fma.f64 (.f64 (.f64 (/.f64 (pow.f64 d #s(literal 3 binary64)) (pow.f64 D #s(literal 4 binary64))) (/.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) (pow.f64 (.f64 (sqrt.f64 #s(literal -1/2 binary64)) M) #s(literal 3 binary64)))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64)))) #s(literal -1/2 binary64) (fma.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) d) (.f64 (.f64 (.f64 D D) M) (sqrt.f64 #s(literal -1/2 binary64)))) (sqrt.f64 (/.f64 l h)) (.f64 (/.f64 (.f64 (.f64 M w0) (.f64 (sqrt.f64 #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 1/2 binary64)))) d) (sqrt.f64 (/.f64 h l))))) D))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (* D (+ (* -1/2 (* (/ (* (pow d 3) (* w0 (sqrt 1/2))) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ (* (pow d 5) (* w0 (sqrt 1/2))) (* (pow D 6) (* (pow M 5) (pow (sqrt -1/2) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* (/ (* M (* w0 (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (/ h l))) (* (/ (* d (* w0 (sqrt 1/2))) (* (pow D 2) (* M (sqrt -1/2)))) (sqrt (/ l h)))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) (.f64 (fma.f64 (.f64 (.f64 (/.f64 (pow.f64 d #s(literal 3 binary64)) (pow.f64 D #s(literal 4 binary64))) (/.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) (pow.f64 (.f64 (sqrt.f64 #s(literal -1/2 binary64)) M) #s(literal 3 binary64)))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64)))) #s(literal -1/2 binary64) (fma.f64 (.f64 (.f64 (/.f64 (pow.f64 d #s(literal 5 binary64)) (pow.f64 D #s(literal 6 binary64))) (/.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) (.f64 (pow.f64 M #s(literal 5 binary64)) (pow.f64 (sqrt.f64 #s(literal -1/2 binary64)) #s(literal 5 binary64))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 5 binary64))))) #s(literal 1/2 binary64) (fma.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) d) (.f64 (.f64 (.f64 D D) M) (sqrt.f64 #s(literal -1/2 binary64)))) (sqrt.f64 (/.f64 l h)) (.f64 (/.f64 (.f64 (.f64 M w0) (.f64 (sqrt.f64 #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 1/2 binary64)))) d) (sqrt.f64 (/.f64 h l)))))) D))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (* D (+ (* (/ (* M (* (sqrt -1/2) (sqrt 1/2))) d) (sqrt (/ h l))) (* (/ (* d (sqrt 1/2)) (* (pow D 2) (* M (sqrt -1/2)))) (sqrt (/ l h)))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) (.f64 (fma.f64 (/.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) d) (.f64 (.f64 (.f64 D D) M) (sqrt.f64 #s(literal -1/2 binary64)))) (sqrt.f64 (/.f64 l h)) (.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/2 binary64)) M) (sqrt.f64 #s(literal 1/2 binary64))) d) (sqrt.f64 (/.f64 h l)))) D))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (* D (+ (* -1/2 (* (/ (* (pow d 3) (sqrt 1/2)) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* (/ (* M (* (sqrt -1/2) (sqrt 1/2))) d) (sqrt (/ h l))) (* (/ (* d (sqrt 1/2)) (* (pow D 2) (* M (sqrt -1/2)))) (sqrt (/ l h))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) (.f64 (fma.f64 (.f64 (.f64 (/.f64 (pow.f64 d #s(literal 3 binary64)) (pow.f64 D #s(literal 4 binary64))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (pow.f64 (.f64 (sqrt.f64 #s(literal -1/2 binary64)) M) #s(literal 3 binary64)))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64)))) #s(literal -1/2 binary64) (fma.f64 (/.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) d) (.f64 (.f64 (.f64 D D) M) (sqrt.f64 #s(literal -1/2 binary64)))) (sqrt.f64 (/.f64 l h)) (.f64 (/.f64 (.f64 (*.f64 (sqrt.f64 #s(literal -1/2 binary64)) M) (sqrt.f64 #s(literal 1/2 binary64))) d) (sqrt.f64 (/.f64 h l))))) D))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (* D (+ (* -1/2 (* (/ (* (pow d 3) (sqrt 1/2)) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ (* (pow d 5) (sqrt 1/2)) (* (pow D 6) (* (pow M 5) (pow (sqrt -1/2) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* (/ (* M (* (sqrt -1/2) (sqrt 1/2))) d) (sqrt (/ h l))) (* (/ (* d (sqrt 1/2)) (* (pow D 2) (* M (sqrt -1/2)))) (sqrt (/ l h)))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) (.f64 (fma.f64 (.f64 (.f64 (/.f64 (pow.f64 d #s(literal 3 binary64)) (pow.f64 D #s(literal 4 binary64))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (pow.f64 (.f64 (sqrt.f64 #s(literal -1/2 binary64)) M) #s(literal 3 binary64)))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64)))) #s(literal -1/2 binary64) (fma.f64 (.f64 (.f64 (/.f64 (pow.f64 d #s(literal 5 binary64)) (pow.f64 D #s(literal 6 binary64))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (.f64 (pow.f64 M #s(literal 5 binary64)) (pow.f64 (sqrt.f64 #s(literal -1/2 binary64)) #s(literal 5 binary64))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 5 binary64))))) #s(literal 1/2 binary64) (fma.f64 (/.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) d) (.f64 (.f64 (.f64 D D) M) (sqrt.f64 #s(literal -1/2 binary64)))) (sqrt.f64 (/.f64 l h)) (.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/2 binary64)) M) (sqrt.f64 #s(literal 1/2 binary64))) d) (sqrt.f64 (/.f64 h l)))))) 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))))) (.f64 (fma.f64 (.f64 (.f64 (/.f64 d (.f64 D D)) (/.f64 w0 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M))) (sqrt.f64 (/.f64 l h))) #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) M) d) (sqrt.f64 (/.f64 h l)))) D))
#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) 3)))) (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))))) (.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (pow.f64 d #s(literal 3 binary64)) w0) (.f64 (pow.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) #s(literal 3 binary64)) (pow.f64 D #s(literal 4 binary64))))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))) (fma.f64 (.f64 (.f64 (/.f64 d (.f64 D D)) (/.f64 w0 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M))) (sqrt.f64 (/.f64 l h))) #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) M) d) (sqrt.f64 (/.f64 h l))))) D))
#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) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 6) (* (pow M 5) (pow (sqrt -1/4) 5)))) (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))))) (.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (pow.f64 d #s(literal 3 binary64)) w0) (.f64 (pow.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) #s(literal 3 binary64)) (pow.f64 D #s(literal 4 binary64))))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))) (fma.f64 (.f64 #s(literal 1/16 binary64) (/.f64 (.f64 (pow.f64 d #s(literal 5 binary64)) w0) (.f64 (.f64 (pow.f64 M #s(literal 5 binary64)) (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 5 binary64))) (pow.f64 D #s(literal 6 binary64))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 5 binary64)))) (fma.f64 (.f64 (.f64 (/.f64 d (.f64 D D)) (/.f64 w0 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M))) (sqrt.f64 (/.f64 l h))) #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) M) d) (sqrt.f64 (/.f64 h l)))))) D))
#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)))) (.f64 (fma.f64 (.f64 (/.f64 (/.f64 d (.f64 D D)) (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M)) (sqrt.f64 (/.f64 l h))) #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) d) (sqrt.f64 (/.f64 h l)))) D))
#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) 3)))) (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)))) (.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 d #s(literal 3 binary64)) (.f64 (pow.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) #s(literal 3 binary64)) (pow.f64 D #s(literal 4 binary64))))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))) (fma.f64 (.f64 (/.f64 (/.f64 d (.f64 D D)) (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M)) (sqrt.f64 (/.f64 l h))) #s(literal 1/2 binary64) (.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) d) (sqrt.f64 (/.f64 h l))))) D))
#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) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (pow d 5) (* (pow D 6) (* (pow M 5) (pow (sqrt -1/4) 5)))) (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 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 d #s(literal 3 binary64)) (.f64 (pow.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) #s(literal 3 binary64)) (pow.f64 D #s(literal 4 binary64))))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))) (fma.f64 (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 d #s(literal 5 binary64)) (.f64 (.f64 (pow.f64 M #s(literal 5 binary64)) (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 5 binary64))) (pow.f64 D #s(literal 6 binary64))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 5 binary64)))) (fma.f64 (.f64 (/.f64 (/.f64 d (.f64 D D)) (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M)) (sqrt.f64 (/.f64 l h))) #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) d) (sqrt.f64 (/.f64 h l)))))) D))
#s(approx (+ (* (* (* D D) -1/8) (* (/ h (* d d)) (/ (* M M) l))) 1) #s(hole binary64 (* (pow D 2) (+ (* -1/8 (/ (* (pow M 2) h) (* (pow d 2) l))) (/ 1 (pow D 2))))))
#s(approx (+ (* (* (* D D) -1/8) (* (/ h (* d d)) (/ (* M M) l))) 1) (.f64 (fma.f64 (.f64 (.f64 M M) (/.f64 h (.f64 (.f64 d d) l))) #s(literal -1/8 binary64) (/.f64 #s(literal 1 binary64) (.f64 D D))) (*.f64 D D)))
#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 (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (.f64 (fma.f64 (.f64 (.f64 M M) (/.f64 h (.f64 (.f64 d d) l))) #s(literal -1/4 binary64) (/.f64 #s(literal 1 binary64) (.f64 D D))) (*.f64 D D)))
#s(approx (+ (* (* h -1/4) (/ (* (* (* M M) D) D) (* (* d d) l))) 1) #s(hole binary64 (* (pow D 2) (+ (* -1/4 (/ (* (pow M 2) h) (* (pow d 2) l))) (/ 1 (pow D 2))))))
#s(approx (+ (* (* h -1/4) (/ (* (* (* M M) D) D) (* (* d d) l))) 1) (.f64 (fma.f64 (.f64 (.f64 M M) (/.f64 h (.f64 (.f64 d d) l))) #s(literal -1/4 binary64) (/.f64 #s(literal 1 binary64) (.f64 D D))) (*.f64 D D)))
#s(approx (- l (* (* 1/4 (* D D)) (* (/ (* M M) d) (/ h d)))) #s(hole binary64 (* (pow D 2) (- (/ l (pow D 2)) (* 1/4 (/ (* (pow M 2) h) (pow d 2)))))))
#s(approx (- l (* (* 1/4 (* D D)) (* (/ (* M M) d) (/ h d)))) (.f64 (-.f64 (/.f64 l (.f64 D D)) (/.f64 (.f64 #s(literal 1/4 binary64) (.f64 (.f64 M M) h)) (.f64 d d))) (*.f64 D D)))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (* -1 (* D (+ (* (/ (* M (* w0 (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (/ h l))) (* (/ (* d (* w0 (sqrt 1/2))) (* (pow D 2) (* M (sqrt -1/2)))) (sqrt (/ l h))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) (.f64 (neg.f64 D) (fma.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) d) (.f64 (.f64 (.f64 D D) M) (sqrt.f64 #s(literal -1/2 binary64)))) (sqrt.f64 (/.f64 l h)) (.f64 (/.f64 (.f64 (.f64 M w0) (.f64 (sqrt.f64 #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 1/2 binary64)))) d) (sqrt.f64 (/.f64 h l))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (* -1 (* D (+ (* -1/2 (* (/ (* (pow d 3) (* w0 (sqrt 1/2))) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* (/ (* M (* w0 (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (/ h l))) (* (/ (* d (* w0 (sqrt 1/2))) (* (pow D 2) (* M (sqrt -1/2)))) (sqrt (/ l h)))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) (.f64 (neg.f64 D) (fma.f64 (.f64 (.f64 (/.f64 (pow.f64 d #s(literal 3 binary64)) (pow.f64 D #s(literal 4 binary64))) (/.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) (pow.f64 (.f64 (sqrt.f64 #s(literal -1/2 binary64)) M) #s(literal 3 binary64)))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64)))) #s(literal -1/2 binary64) (fma.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) d) (.f64 (.f64 (.f64 D D) M) (sqrt.f64 #s(literal -1/2 binary64)))) (sqrt.f64 (/.f64 l h)) (.f64 (/.f64 (.f64 (.f64 M w0) (.f64 (sqrt.f64 #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 1/2 binary64)))) d) (sqrt.f64 (/.f64 h l)))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (* -1 (* D (+ (* -1/2 (* (/ (* (pow d 3) (* w0 (sqrt 1/2))) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ (* (pow d 5) (* w0 (sqrt 1/2))) (* (pow D 6) (* (pow M 5) (pow (sqrt -1/2) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* (/ (* M (* w0 (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (/ h l))) (* (/ (* d (* w0 (sqrt 1/2))) (* (pow D 2) (* M (sqrt -1/2)))) (sqrt (/ l h))))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) (.f64 (neg.f64 D) (fma.f64 (.f64 (.f64 (/.f64 (pow.f64 d #s(literal 3 binary64)) (pow.f64 D #s(literal 4 binary64))) (/.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) (pow.f64 (.f64 (sqrt.f64 #s(literal -1/2 binary64)) M) #s(literal 3 binary64)))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64)))) #s(literal -1/2 binary64) (fma.f64 (.f64 (.f64 (/.f64 (pow.f64 d #s(literal 5 binary64)) (pow.f64 D #s(literal 6 binary64))) (/.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) (.f64 (pow.f64 M #s(literal 5 binary64)) (pow.f64 (sqrt.f64 #s(literal -1/2 binary64)) #s(literal 5 binary64))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 5 binary64))))) #s(literal 1/2 binary64) (fma.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) d) (.f64 (.f64 (.f64 D D) M) (sqrt.f64 #s(literal -1/2 binary64)))) (sqrt.f64 (/.f64 l h)) (.f64 (/.f64 (.f64 (.f64 M w0) (.f64 (sqrt.f64 #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 1/2 binary64)))) d) (sqrt.f64 (/.f64 h l))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (* -1 (* D (+ (* (/ (* M (* (sqrt -1/2) (sqrt 1/2))) d) (sqrt (/ h l))) (* (/ (* d (sqrt 1/2)) (* (pow D 2) (* M (sqrt -1/2)))) (sqrt (/ l h))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) (.f64 (neg.f64 D) (fma.f64 (/.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) d) (.f64 (.f64 (.f64 D D) M) (sqrt.f64 #s(literal -1/2 binary64)))) (sqrt.f64 (/.f64 l h)) (.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/2 binary64)) M) (sqrt.f64 #s(literal 1/2 binary64))) d) (sqrt.f64 (/.f64 h l))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (* -1 (* D (+ (* -1/2 (* (/ (* (pow d 3) (sqrt 1/2)) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* (/ (* M (* (sqrt -1/2) (sqrt 1/2))) d) (sqrt (/ h l))) (* (/ (* d (sqrt 1/2)) (* (pow D 2) (* M (sqrt -1/2)))) (sqrt (/ l h)))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) (.f64 (neg.f64 D) (fma.f64 (.f64 (.f64 (/.f64 (pow.f64 d #s(literal 3 binary64)) (pow.f64 D #s(literal 4 binary64))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (pow.f64 (.f64 (sqrt.f64 #s(literal -1/2 binary64)) M) #s(literal 3 binary64)))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64)))) #s(literal -1/2 binary64) (fma.f64 (/.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) d) (.f64 (.f64 (.f64 D D) M) (sqrt.f64 #s(literal -1/2 binary64)))) (sqrt.f64 (/.f64 l h)) (.f64 (/.f64 (.f64 (*.f64 (sqrt.f64 #s(literal -1/2 binary64)) M) (sqrt.f64 #s(literal 1/2 binary64))) d) (sqrt.f64 (/.f64 h l)))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (* -1 (* D (+ (* -1/2 (* (/ (* (pow d 3) (sqrt 1/2)) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ (* (pow d 5) (sqrt 1/2)) (* (pow D 6) (* (pow M 5) (pow (sqrt -1/2) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* (/ (* M (* (sqrt -1/2) (sqrt 1/2))) d) (sqrt (/ h l))) (* (/ (* d (sqrt 1/2)) (* (pow D 2) (* M (sqrt -1/2)))) (sqrt (/ l h))))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) (.f64 (neg.f64 D) (fma.f64 (.f64 (.f64 (/.f64 (pow.f64 d #s(literal 3 binary64)) (pow.f64 D #s(literal 4 binary64))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (pow.f64 (.f64 (sqrt.f64 #s(literal -1/2 binary64)) M) #s(literal 3 binary64)))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64)))) #s(literal -1/2 binary64) (fma.f64 (.f64 (.f64 (/.f64 (pow.f64 d #s(literal 5 binary64)) (pow.f64 D #s(literal 6 binary64))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (.f64 (pow.f64 M #s(literal 5 binary64)) (pow.f64 (sqrt.f64 #s(literal -1/2 binary64)) #s(literal 5 binary64))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 5 binary64))))) #s(literal 1/2 binary64) (fma.f64 (/.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) d) (.f64 (.f64 (.f64 D D) M) (sqrt.f64 #s(literal -1/2 binary64)))) (sqrt.f64 (/.f64 l h)) (.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/2 binary64)) M) (sqrt.f64 #s(literal 1/2 binary64))) d) (sqrt.f64 (/.f64 h 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))))) (.f64 (neg.f64 D) (fma.f64 (.f64 (.f64 (/.f64 d (.f64 D D)) (/.f64 w0 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M))) (sqrt.f64 (/.f64 l h))) #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) M) d) (sqrt.f64 (/.f64 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) 3)))) (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))))) (.f64 (neg.f64 D) (fma.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (pow.f64 d #s(literal 3 binary64)) w0) (.f64 (pow.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) #s(literal 3 binary64)) (pow.f64 D #s(literal 4 binary64))))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))) (fma.f64 (.f64 (.f64 (/.f64 d (.f64 D D)) (/.f64 w0 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M))) (sqrt.f64 (/.f64 l h))) #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) M) d) (sqrt.f64 (/.f64 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) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 6) (* (pow M 5) (pow (sqrt -1/4) 5)))) (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))))) (.f64 (neg.f64 D) (fma.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (pow.f64 d #s(literal 3 binary64)) w0) (.f64 (pow.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) #s(literal 3 binary64)) (pow.f64 D #s(literal 4 binary64))))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))) (fma.f64 (.f64 #s(literal 1/16 binary64) (/.f64 (.f64 (pow.f64 d #s(literal 5 binary64)) w0) (.f64 (.f64 (pow.f64 M #s(literal 5 binary64)) (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 5 binary64))) (pow.f64 D #s(literal 6 binary64))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 5 binary64)))) (fma.f64 (.f64 (.f64 (/.f64 d (.f64 D D)) (/.f64 w0 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M))) (sqrt.f64 (/.f64 l h))) #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) M) d) (sqrt.f64 (/.f64 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)))) (.f64 (neg.f64 D) (fma.f64 (.f64 (/.f64 (/.f64 d (.f64 D D)) (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M)) (sqrt.f64 (/.f64 l h))) #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) d) (sqrt.f64 (/.f64 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) 3)))) (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)))) (.f64 (neg.f64 D) (fma.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 d #s(literal 3 binary64)) (.f64 (pow.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) #s(literal 3 binary64)) (pow.f64 D #s(literal 4 binary64))))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))) (fma.f64 (.f64 (/.f64 (/.f64 d (.f64 D D)) (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M)) (sqrt.f64 (/.f64 l h))) #s(literal 1/2 binary64) (.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) d) (sqrt.f64 (/.f64 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) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (pow d 5) (* (pow D 6) (* (pow M 5) (pow (sqrt -1/4) 5)))) (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 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (.f64 (neg.f64 D) (fma.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 d #s(literal 3 binary64)) (.f64 (pow.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) #s(literal 3 binary64)) (pow.f64 D #s(literal 4 binary64))))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))) (fma.f64 (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 d #s(literal 5 binary64)) (.f64 (.f64 (pow.f64 M #s(literal 5 binary64)) (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 5 binary64))) (pow.f64 D #s(literal 6 binary64))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 5 binary64)))) (fma.f64 (.f64 (/.f64 (/.f64 d (.f64 D D)) (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M)) (sqrt.f64 (/.f64 l h))) #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) d) (sqrt.f64 (/.f64 h l))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (+ (* h (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (* w0 (sqrt 1/2)))) (* (pow d 2) (* l (sqrt 2))))) (* -1/32 (/ (* (pow D 4) (* (pow M 4) (* h (* w0 (sqrt 1/2))))) (* (pow d 4) (* (pow l 2) (pow (sqrt 2) 3))))))) (* w0 (* (sqrt 1/2) (sqrt 2))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) (fma.f64 (fma.f64 (/.f64 (/.f64 (.f64 (.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) h) (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0)) (pow.f64 D #s(literal 4 binary64))) (pow.f64 d #s(literal 4 binary64))) (.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 l l))) #s(literal -1/32 binary64) (.f64 (.f64 (/.f64 (.f64 D D) (.f64 d d)) (/.f64 (.f64 (.f64 (.f64 M M) w0) (sqrt.f64 #s(literal 1/2 binary64))) (.f64 (sqrt.f64 #s(literal 2 binary64)) l))) #s(literal -1/4 binary64))) h (.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (+ (* h (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (* w0 (sqrt 1/2)))) (* (pow d 2) (* l (sqrt 2))))) (* h (+ (* -1/32 (/ (* (pow D 4) (* (pow M 4) (* w0 (sqrt 1/2)))) (* (pow d 4) (* (pow l 2) (pow (sqrt 2) 3))))) (* -1/128 (/ (* (pow D 6) (* (pow M 6) (* h (* w0 (sqrt 1/2))))) (* (pow d 6) (* (pow l 3) (pow (sqrt 2) 5))))))))) (* w0 (* (sqrt 1/2) (sqrt 2))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) (fma.f64 (fma.f64 (fma.f64 (/.f64 (/.f64 (.f64 (.f64 (.f64 (pow.f64 M #s(literal 6 binary64)) h) (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0)) (pow.f64 D #s(literal 6 binary64))) (pow.f64 d #s(literal 6 binary64))) (.f64 (pow.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 5 binary64)) (pow.f64 l #s(literal 3 binary64)))) #s(literal -1/128 binary64) (.f64 (/.f64 (/.f64 (.f64 (.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) w0) (sqrt.f64 #s(literal 1/2 binary64))) (pow.f64 D #s(literal 4 binary64))) (pow.f64 d #s(literal 4 binary64))) (.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 l l))) #s(literal -1/32 binary64))) h (.f64 (.f64 (/.f64 (.f64 D D) (.f64 d d)) (/.f64 (.f64 (.f64 (.f64 M M) w0) (sqrt.f64 #s(literal 1/2 binary64))) (.f64 (sqrt.f64 #s(literal 2 binary64)) l))) #s(literal -1/4 binary64))) h (.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (+ (* h (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (sqrt 1/2))) (* (pow d 2) (* l (sqrt 2))))) (* -1/32 (/ (* (pow D 4) (* (pow M 4) (* h (sqrt 1/2)))) (* (pow d 4) (* (pow l 2) (pow (sqrt 2) 3))))))) (* (sqrt 1/2) (sqrt 2)))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) (fma.f64 (fma.f64 (/.f64 (/.f64 (.f64 (.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) h) (sqrt.f64 #s(literal 1/2 binary64))) (pow.f64 D #s(literal 4 binary64))) (pow.f64 d #s(literal 4 binary64))) (.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 l l))) #s(literal -1/32 binary64) (.f64 (.f64 (/.f64 (.f64 D D) (.f64 d d)) (/.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (.f64 M M)) (.f64 (sqrt.f64 #s(literal 2 binary64)) l))) #s(literal -1/4 binary64))) h (.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(literal 1/2 binary64)))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (+ (* h (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (sqrt 1/2))) (* (pow d 2) (* l (sqrt 2))))) (* h (+ (* -1/32 (/ (* (pow D 4) (* (pow M 4) (sqrt 1/2))) (* (pow d 4) (* (pow l 2) (pow (sqrt 2) 3))))) (* -1/128 (/ (* (pow D 6) (* (pow M 6) (* h (sqrt 1/2)))) (* (pow d 6) (* (pow l 3) (pow (sqrt 2) 5))))))))) (* (sqrt 1/2) (sqrt 2)))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) (fma.f64 (fma.f64 (fma.f64 (/.f64 (/.f64 (.f64 (.f64 (.f64 (pow.f64 M #s(literal 6 binary64)) h) (sqrt.f64 #s(literal 1/2 binary64))) (pow.f64 D #s(literal 6 binary64))) (pow.f64 d #s(literal 6 binary64))) (.f64 (pow.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 5 binary64)) (pow.f64 l #s(literal 3 binary64)))) #s(literal -1/128 binary64) (.f64 (/.f64 (/.f64 (.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (sqrt.f64 #s(literal 1/2 binary64))) (pow.f64 D #s(literal 4 binary64))) (pow.f64 d #s(literal 4 binary64))) (.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 l l))) #s(literal -1/32 binary64))) h (.f64 (.f64 (/.f64 (.f64 D D) (.f64 d d)) (/.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (.f64 M M)) (.f64 (sqrt.f64 #s(literal 2 binary64)) l))) #s(literal -1/4 binary64))) h (.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(literal 1/2 binary64)))))
#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))))) (fma.f64 (fma.f64 (.f64 (/.f64 (pow.f64 D #s(literal 4 binary64)) (pow.f64 d #s(literal 4 binary64))) (/.f64 (.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) h) w0) (.f64 l l))) #s(literal -1/128 binary64) (/.f64 (.f64 #s(literal -1/8 binary64) (.f64 (.f64 (.f64 (.f64 M M) D) D) w0)) (.f64 (*.f64 d d) l))) h w0))
#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 (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (fma.f64 (fma.f64 (fma.f64 (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (pow.f64 d #s(literal 6 binary64))) (/.f64 (.f64 (.f64 (pow.f64 M #s(literal 6 binary64)) h) w0) (pow.f64 l #s(literal 3 binary64)))) #s(literal -1/1024 binary64) (.f64 (.f64 (/.f64 (pow.f64 D #s(literal 4 binary64)) (pow.f64 d #s(literal 4 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) w0) (.f64 l l))) #s(literal -1/128 binary64))) h (/.f64 (.f64 #s(literal -1/8 binary64) (.f64 (.f64 (.f64 (.f64 M M) D) D) w0)) (.f64 (.f64 d d) l))) h w0))
#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)))) (fma.f64 (fma.f64 (.f64 (/.f64 (pow.f64 D #s(literal 4 binary64)) (pow.f64 d #s(literal 4 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) h) (.f64 l l))) #s(literal -1/128 binary64) (/.f64 (.f64 #s(literal -1/8 binary64) (.f64 (.f64 (.f64 M M) D) D)) (.f64 (*.f64 d d) l))) h #s(literal 1 binary64)))
#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 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (fma.f64 (fma.f64 (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (pow.f64 d #s(literal 6 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 6 binary64)) h) (pow.f64 l #s(literal 3 binary64)))) #s(literal -1/1024 binary64) (.f64 (.f64 (/.f64 (pow.f64 D #s(literal 4 binary64)) (pow.f64 d #s(literal 4 binary64))) (/.f64 (pow.f64 M #s(literal 4 binary64)) (.f64 l l))) #s(literal -1/128 binary64))) h (/.f64 (.f64 #s(literal -1/8 binary64) (.f64 (.f64 (.f64 M M) D) D)) (.f64 (*.f64 d d) l))) h #s(literal 1 binary64)))
#s(approx (/ h (* d d)) #s(hole binary64 (/ h (pow d 2))))
#s(approx (/ h (* d d)) (/.f64 h (*.f64 d d)))
#s(approx (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)) #s(hole binary64 (* h (+ (* -1/4 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (/ 1 h)))))
#s(approx (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)) (.f64 (fma.f64 (.f64 (.f64 (.f64 M M) D) (/.f64 D (.f64 (.f64 d d) l))) #s(literal -1/4 binary64) (/.f64 #s(literal 1 binary64) h)) h))
#s(approx (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) #s(hole binary64 (* h (- (* 2 (/ l h)) (* 1/2 (/ (* (pow D 2) (pow M 2)) (pow d 2)))))))
#s(approx (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (.f64 (fma.f64 (/.f64 l h) #s(literal 2 binary64) (/.f64 (.f64 #s(literal -1/2 binary64) (.f64 (.f64 (.f64 M M) D) D)) (.f64 d d))) h))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (* h (+ (* (/ (* D (* M (* w0 (* (sqrt -1/2) (sqrt 1/2))))) d) (sqrt (/ 1 (* h l)))) (* (/ (* d (* w0 (sqrt 1/2))) (* D (* M (sqrt -1/2)))) (sqrt (/ l (pow h 3))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) (.f64 (fma.f64 (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64)))) (/.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) d) D) (.f64 (sqrt.f64 #s(literal -1/2 binary64)) M)) (.f64 (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) h) l)) (/.f64 (.f64 (.f64 M D) (.f64 (*.f64 w0 (sqrt.f64 #s(literal -1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))) d))) h))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (* h (+ (* -1/2 (* (/ (* (pow d 3) (* w0 (sqrt 1/2))) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* (/ (* D (* M (* w0 (* (sqrt -1/2) (sqrt 1/2))))) d) (sqrt (/ 1 (* h l)))) (* (/ (* d (* w0 (sqrt 1/2))) (* D (* M (sqrt -1/2)))) (sqrt (/ l (pow h 3)))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) (.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 (pow.f64 d #s(literal 3 binary64)) w0) (sqrt.f64 #s(literal 1/2 binary64))) (pow.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/2 binary64)) M) D) #s(literal 3 binary64)))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 h #s(literal 5 binary64)))) (fma.f64 (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64)))) (/.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) d) D) (.f64 (sqrt.f64 #s(literal -1/2 binary64)) M)) (.f64 (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) h) l)) (/.f64 (.f64 (.f64 M D) (.f64 (.f64 w0 (sqrt.f64 #s(literal -1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))) d)))) h))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (* h (+ (* -1/2 (* (/ (* (pow d 3) (* w0 (sqrt 1/2))) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/2 (* (/ (* (pow d 5) (* w0 (sqrt 1/2))) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/2) 5)))) (sqrt (/ (pow l 5) (pow h 7))))) (+ (* (/ (* D (* M (* w0 (* (sqrt -1/2) (sqrt 1/2))))) d) (sqrt (/ 1 (* h l)))) (* (/ (* d (* w0 (sqrt 1/2))) (* D (* M (sqrt -1/2)))) (sqrt (/ l (pow h 3))))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) (.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 (pow.f64 d #s(literal 3 binary64)) w0) (sqrt.f64 #s(literal 1/2 binary64))) (pow.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/2 binary64)) M) D) #s(literal 3 binary64)))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 h #s(literal 5 binary64)))) (fma.f64 (.f64 (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 7 binary64)))) (.f64 (/.f64 (pow.f64 d #s(literal 5 binary64)) (pow.f64 D #s(literal 5 binary64))) (/.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) (.f64 (pow.f64 M #s(literal 5 binary64)) (pow.f64 (sqrt.f64 #s(literal -1/2 binary64)) #s(literal 5 binary64)))))) #s(literal 1/2 binary64) (fma.f64 (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64)))) (/.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) d) D) (.f64 (sqrt.f64 #s(literal -1/2 binary64)) M)) (.f64 (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) h) l)) (/.f64 (.f64 (.f64 M D) (.f64 (.f64 w0 (sqrt.f64 #s(literal -1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))) d))))) h))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (* h (+ (* (/ (* D (* M (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (/ 1 (* h l)))) (* (/ (* d (sqrt 1/2)) (* D (* M (sqrt -1/2)))) (sqrt (/ l (pow h 3))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) (.f64 (fma.f64 (/.f64 (/.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) d) D) (.f64 (sqrt.f64 #s(literal -1/2 binary64)) M)) (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64)))) (.f64 (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) h) l)) (/.f64 (.f64 (.f64 M D) (*.f64 (sqrt.f64 #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 1/2 binary64)))) d))) h))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (* h (+ (* -1/2 (* (/ (* (pow d 3) (sqrt 1/2)) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* (/ (* D (* M (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (/ 1 (* h l)))) (* (/ (* d (sqrt 1/2)) (* D (* M (sqrt -1/2)))) (sqrt (/ l (pow h 3)))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) (.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (pow.f64 d #s(literal 3 binary64)) (sqrt.f64 #s(literal 1/2 binary64))) (pow.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/2 binary64)) M) D) #s(literal 3 binary64)))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 h #s(literal 5 binary64)))) (fma.f64 (/.f64 (/.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) d) D) (.f64 (sqrt.f64 #s(literal -1/2 binary64)) M)) (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64)))) (.f64 (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) h) l)) (/.f64 (.f64 (.f64 M D) (*.f64 (sqrt.f64 #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 1/2 binary64)))) d)))) h))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (* h (+ (* -1/2 (* (/ (* (pow d 3) (sqrt 1/2)) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/2 (* (/ (* (pow d 5) (sqrt 1/2)) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/2) 5)))) (sqrt (/ (pow l 5) (pow h 7))))) (+ (* (/ (* D (* M (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (/ 1 (* h l)))) (* (/ (* d (sqrt 1/2)) (* D (* M (sqrt -1/2)))) (sqrt (/ l (pow h 3))))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) (.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (pow.f64 d #s(literal 3 binary64)) (sqrt.f64 #s(literal 1/2 binary64))) (pow.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/2 binary64)) M) D) #s(literal 3 binary64)))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 h #s(literal 5 binary64)))) (fma.f64 (.f64 (.f64 (/.f64 (pow.f64 d #s(literal 5 binary64)) (pow.f64 D #s(literal 5 binary64))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (.f64 (pow.f64 M #s(literal 5 binary64)) (pow.f64 (sqrt.f64 #s(literal -1/2 binary64)) #s(literal 5 binary64))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 7 binary64))))) #s(literal 1/2 binary64) (fma.f64 (/.f64 (/.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) d) D) (.f64 (sqrt.f64 #s(literal -1/2 binary64)) M)) (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64)))) (.f64 (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) h) l)) (/.f64 (.f64 (.f64 M D) (.f64 (sqrt.f64 #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 1/2 binary64)))) d))))) 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))))) (.f64 (fma.f64 (.f64 (.f64 (/.f64 d D) (/.f64 w0 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M))) (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64))))) #s(literal 1/2 binary64) (.f64 (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) h) l)) (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) M) D) d))) h))
#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) 3)))) (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))))) (.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 (pow.f64 (/.f64 d D) #s(literal 3 binary64)) (/.f64 w0 (pow.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) #s(literal 3 binary64))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 h #s(literal 5 binary64)))) (fma.f64 (.f64 (.f64 (/.f64 d D) (/.f64 w0 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M))) (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64))))) #s(literal 1/2 binary64) (.f64 (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) h) l)) (/.f64 (.f64 (.f64 (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) M) D) d)))) h))
#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) 3)))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/4) 5)))) (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))))) (.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 (pow.f64 (/.f64 d D) #s(literal 3 binary64)) (/.f64 w0 (pow.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) #s(literal 3 binary64))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 h #s(literal 5 binary64)))) (fma.f64 (.f64 #s(literal 1/16 binary64) (/.f64 (.f64 (pow.f64 d #s(literal 5 binary64)) w0) (.f64 (.f64 (pow.f64 M #s(literal 5 binary64)) (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 5 binary64))) (pow.f64 D #s(literal 5 binary64))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 7 binary64)))) (fma.f64 (.f64 (.f64 (/.f64 d D) (/.f64 w0 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M))) (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64))))) #s(literal 1/2 binary64) (.f64 (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) h) l)) (/.f64 (.f64 (.f64 (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) M) D) d))))) h))
#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)))) (.f64 (fma.f64 (.f64 #s(literal 1/2 binary64) (/.f64 d (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D))) (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64)))) (.f64 (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) h) l)) (/.f64 (.f64 (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) d))) h))
#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) 3)))) (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)))) (.f64 (fma.f64 (.f64 (/.f64 (pow.f64 (/.f64 d D) #s(literal 3 binary64)) (pow.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) #s(literal 3 binary64))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 h #s(literal 5 binary64))))) #s(literal -1/8 binary64) (fma.f64 (.f64 #s(literal 1/2 binary64) (/.f64 d (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D))) (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64)))) (.f64 (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) h) l)) (/.f64 (.f64 (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) d)))) h))
#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) 3)))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/16 (* (/ (pow d 5) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/4) 5)))) (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 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 (/.f64 d D) #s(literal 3 binary64)) (pow.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) #s(literal 3 binary64)))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 h #s(literal 5 binary64)))) (fma.f64 (.f64 (/.f64 (pow.f64 d #s(literal 5 binary64)) (.f64 (.f64 (pow.f64 M #s(literal 5 binary64)) (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 5 binary64))) (pow.f64 D #s(literal 5 binary64)))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 7 binary64))))) #s(literal 1/16 binary64) (fma.f64 (.f64 #s(literal 1/2 binary64) (/.f64 d (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D))) (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64)))) (.f64 (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) h) l)) (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) d))))) h))
#s(approx (+ (* (* (* D D) -1/8) (* (/ h (* d d)) (/ (* M M) l))) 1) #s(hole binary64 (* h (+ (* -1/8 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (/ 1 h)))))
#s(approx (+ (* (* (* D D) -1/8) (* (/ h (* d d)) (/ (* M M) l))) 1) (.f64 (fma.f64 (.f64 (.f64 (.f64 M M) D) (/.f64 D (.f64 (.f64 d d) l))) #s(literal -1/8 binary64) (/.f64 #s(literal 1 binary64) h)) h))
#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 (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (.f64 (fma.f64 (.f64 (.f64 (.f64 M M) D) (/.f64 D (.f64 (.f64 d d) l))) #s(literal -1/4 binary64) (/.f64 #s(literal 1 binary64) h)) h))
#s(approx (+ (* (* h -1/4) (/ (* (* (* M M) D) D) (* (* d d) l))) 1) #s(hole binary64 (* h (+ (* -1/4 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (/ 1 h)))))
#s(approx (+ (* (* h -1/4) (/ (* (* (* M M) D) D) (* (* d d) l))) 1) (.f64 (fma.f64 (.f64 (.f64 (.f64 M M) D) (/.f64 D (.f64 (.f64 d d) l))) #s(literal -1/4 binary64) (/.f64 #s(literal 1 binary64) h)) h))
#s(approx (- l (* (* 1/4 (* D D)) (* (/ (* M M) d) (/ h d)))) #s(hole binary64 (* h (- (/ l h) (* 1/4 (/ (* (pow D 2) (pow M 2)) (pow d 2)))))))
#s(approx (- l (* (* 1/4 (* D D)) (* (/ (* M M) d) (/ h d)))) (.f64 (-.f64 (/.f64 l h) (/.f64 (.f64 #s(literal 1/4 binary64) (.f64 (.f64 (.f64 M M) D) D)) (.f64 d d))) h))
#s(approx (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)) #s(hole binary64 (* -1 (* h (- (* 1/4 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (/ 1 h))))))
#s(approx (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)) (.f64 (neg.f64 h) (-.f64 (/.f64 (.f64 #s(literal 1/4 binary64) (.f64 (.f64 (.f64 M M) D) D)) (.f64 (*.f64 d d) l)) (/.f64 #s(literal 1 binary64) h))))
#s(approx (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) #s(hole binary64 (* -1 (* h (- (* -2 (/ l h)) (* -1/2 (/ (* (pow D 2) (pow M 2)) (pow d 2))))))))
#s(approx (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (.f64 (neg.f64 h) (fma.f64 #s(literal -2 binary64) (/.f64 l h) (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (.f64 M M) D) D)) (.f64 d d)))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (* -1 (* (/ (* D (* M (* w0 (* (sqrt -1) (pow (sqrt 1/2) 2))))) d) (sqrt (/ h l))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) (.f64 (neg.f64 (/.f64 (.f64 (.f64 (.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1/2 binary64)) w0) M) D) d)) (sqrt.f64 (/.f64 h l))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (* -1 (* h (+ (* (/ (* D (* M (* w0 (* (sqrt -1) (pow (sqrt 1/2) 2))))) d) (sqrt (/ 1 (* h l)))) (* (/ (* d (* w0 (sqrt -1))) (* D M)) (sqrt (/ l (pow h 3)))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) (.f64 (neg.f64 h) (fma.f64 (.f64 (/.f64 d D) (/.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) w0) M)) (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64)))) (.f64 (/.f64 (.f64 (.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1/2 binary64)) w0) M) D) d) (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) h) l))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (* -1 (* h (+ (* -1/2 (* (/ (* (pow d 3) (* w0 (sqrt -1))) (* (pow D 3) (* (pow M 3) (pow (sqrt 1/2) 2)))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* (/ (* D (* M (* w0 (* (sqrt -1) (pow (sqrt 1/2) 2))))) d) (sqrt (/ 1 (* h l)))) (* (/ (* d (* w0 (sqrt -1))) (* D M)) (sqrt (/ l (pow h 3))))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) (.f64 (neg.f64 h) (fma.f64 (.f64 (.f64 (pow.f64 (/.f64 d D) #s(literal 3 binary64)) (/.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) w0) (.f64 (pow.f64 M #s(literal 3 binary64)) #s(literal 1/2 binary64)))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 h #s(literal 5 binary64))))) #s(literal -1/2 binary64) (fma.f64 (.f64 (/.f64 d D) (/.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) w0) M)) (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64)))) (.f64 (/.f64 (.f64 (.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1/2 binary64)) w0) M) D) d) (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) h) l)))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (* -1 (* h (+ (* -1/2 (* (/ (* (pow d 3) (* w0 (sqrt -1))) (* (pow D 3) (* (pow M 3) (pow (sqrt 1/2) 2)))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/2 (* (/ (* (pow d 5) (* w0 (sqrt -1))) (* (pow D 5) (* (pow M 5) (pow (sqrt 1/2) 4)))) (sqrt (/ (pow l 5) (pow h 7))))) (+ (* (/ (* D (* M (* w0 (* (sqrt -1) (pow (sqrt 1/2) 2))))) d) (sqrt (/ 1 (* h l)))) (* (/ (* d (* w0 (sqrt -1))) (* D M)) (sqrt (/ l (pow h 3)))))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) (.f64 (neg.f64 h) (fma.f64 (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 (/.f64 d D) #s(literal 3 binary64)) (/.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) w0) (.f64 (pow.f64 M #s(literal 3 binary64)) #s(literal 1/2 binary64))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 h #s(literal 5 binary64)))) (fma.f64 (.f64 (.f64 (/.f64 (pow.f64 d #s(literal 5 binary64)) (pow.f64 D #s(literal 5 binary64))) (/.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) w0) (.f64 (pow.f64 (sqrt.f64 #s(literal 1/2 binary64)) #s(literal 4 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))))) #s(literal 1/2 binary64) (fma.f64 (.f64 (/.f64 d D) (/.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) w0) M)) (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64)))) (.f64 (/.f64 (.f64 (.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1/2 binary64)) w0) M) D) d) (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) h) l))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (* -1 (* (/ (* D (* M (* (sqrt -1) (pow (sqrt 1/2) 2)))) d) (sqrt (/ h l))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) (.f64 (neg.f64 (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1/2 binary64)) M) D) d)) (sqrt.f64 (/.f64 h l))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (* -1 (* h (+ (* (/ (* D (* M (* (sqrt -1) (pow (sqrt 1/2) 2)))) d) (sqrt (/ 1 (* h l)))) (* (/ (* d (sqrt -1)) (* D M)) (sqrt (/ l (pow h 3)))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) (.f64 (neg.f64 h) (fma.f64 (.f64 (/.f64 d D) (/.f64 (sqrt.f64 #s(literal -1 binary64)) M)) (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64)))) (.f64 (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1/2 binary64)) M) D) d) (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) h) l))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (* -1 (* h (+ (* -1/2 (* (/ (* (pow d 3) (sqrt -1)) (* (pow D 3) (* (pow M 3) (pow (sqrt 1/2) 2)))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* (/ (* D (* M (* (sqrt -1) (pow (sqrt 1/2) 2)))) d) (sqrt (/ 1 (* h l)))) (* (/ (* d (sqrt -1)) (* D M)) (sqrt (/ l (pow h 3))))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) (.f64 (neg.f64 h) (fma.f64 (.f64 (.f64 (pow.f64 (/.f64 d D) #s(literal 3 binary64)) (/.f64 (sqrt.f64 #s(literal -1 binary64)) (.f64 (pow.f64 M #s(literal 3 binary64)) #s(literal 1/2 binary64)))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 h #s(literal 5 binary64))))) #s(literal -1/2 binary64) (fma.f64 (.f64 (/.f64 d D) (/.f64 (sqrt.f64 #s(literal -1 binary64)) M)) (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64)))) (.f64 (/.f64 (.f64 (.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1/2 binary64)) M) D) d) (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) h) l)))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (* -1 (* h (+ (* -1/2 (* (/ (* (pow d 3) (sqrt -1)) (* (pow D 3) (* (pow M 3) (pow (sqrt 1/2) 2)))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/2 (* (/ (* (pow d 5) (sqrt -1)) (* (pow D 5) (* (pow M 5) (pow (sqrt 1/2) 4)))) (sqrt (/ (pow l 5) (pow h 7))))) (+ (* (/ (* D (* M (* (sqrt -1) (pow (sqrt 1/2) 2)))) d) (sqrt (/ 1 (* h l)))) (* (/ (* d (sqrt -1)) (* D M)) (sqrt (/ l (pow h 3)))))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) (.f64 (neg.f64 h) (fma.f64 (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 (/.f64 d D) #s(literal 3 binary64)) (/.f64 (sqrt.f64 #s(literal -1 binary64)) (.f64 (pow.f64 M #s(literal 3 binary64)) #s(literal 1/2 binary64))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 h #s(literal 5 binary64)))) (fma.f64 (.f64 (.f64 (/.f64 (pow.f64 d #s(literal 5 binary64)) (pow.f64 D #s(literal 5 binary64))) (/.f64 (sqrt.f64 #s(literal -1 binary64)) (.f64 (pow.f64 (sqrt.f64 #s(literal 1/2 binary64)) #s(literal 4 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))))) #s(literal 1/2 binary64) (fma.f64 (.f64 (/.f64 d D) (/.f64 (sqrt.f64 #s(literal -1 binary64)) M)) (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64)))) (.f64 (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1/2 binary64)) M) D) d) (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) h) 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))))) (.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) w0) M) D) d)) (sqrt.f64 (/.f64 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))))) (.f64 (neg.f64 h) (fma.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) w0) M) D) d)) (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) h) l)) (.f64 (.f64 (/.f64 d D) (/.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) w0) 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))))) #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))))) (.f64 (neg.f64 h) (fma.f64 (neg.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) w0) (pow.f64 d #s(literal 3 binary64))) (pow.f64 (.f64 M D) #s(literal 3 binary64)))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 h #s(literal 5 binary64)))) (fma.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) w0) M) D) d)) (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) h) l)) (.f64 (.f64 (/.f64 d D) (/.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) w0) 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))))) #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 (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (.f64 (neg.f64 h) (fma.f64 (neg.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) w0) (pow.f64 d #s(literal 3 binary64))) (pow.f64 (.f64 M D) #s(literal 3 binary64)))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 h #s(literal 5 binary64)))) (fma.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) w0) M) D) d)) (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) h) l)) (fma.f64 (.f64 (.f64 (/.f64 (pow.f64 d #s(literal 5 binary64)) (pow.f64 D #s(literal 5 binary64))) (/.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) w0) (pow.f64 M #s(literal 5 binary64)))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 7 binary64))))) #s(literal 2 binary64) (.f64 (.f64 (/.f64 d D) (/.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) w0) M)) (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64))))))))))
#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)))) (.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) M) D) d)) (sqrt.f64 (/.f64 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)))) (.f64 (neg.f64 h) (fma.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) M) D) d)) (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) h) l)) (.f64 (.f64 (/.f64 d D) (/.f64 (sqrt.f64 #s(literal -1 binary64)) M)) (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64))))))))
#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)))) (.f64 (neg.f64 h) (fma.f64 (neg.f64 (/.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) (pow.f64 d #s(literal 3 binary64))) (pow.f64 (.f64 M D) #s(literal 3 binary64)))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 h #s(literal 5 binary64)))) (fma.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) M) D) d)) (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) h) l)) (.f64 (.f64 (/.f64 d D) (/.f64 (sqrt.f64 #s(literal -1 binary64)) M)) (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64)))))))))
#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 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (.f64 (neg.f64 h) (fma.f64 (neg.f64 (/.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) (pow.f64 d #s(literal 3 binary64))) (pow.f64 (.f64 M D) #s(literal 3 binary64)))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 h #s(literal 5 binary64)))) (fma.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) M) D) d)) (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) h) l)) (fma.f64 (.f64 (.f64 (/.f64 (pow.f64 d #s(literal 5 binary64)) (pow.f64 D #s(literal 5 binary64))) (/.f64 (sqrt.f64 #s(literal -1 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))))) #s(literal 2 binary64) (.f64 (.f64 (/.f64 d D) (/.f64 (sqrt.f64 #s(literal -1 binary64)) M)) (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64))))))))))
#s(approx (+ (* (* (* D D) -1/8) (* (/ h (* d d)) (/ (* M M) l))) 1) #s(hole binary64 (* -1 (* h (- (* 1/8 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (/ 1 h))))))
#s(approx (+ (* (* (* D D) -1/8) (* (/ h (* d d)) (/ (* M M) l))) 1) (.f64 (neg.f64 h) (-.f64 (/.f64 (.f64 #s(literal 1/8 binary64) (.f64 (.f64 (.f64 M M) D) D)) (.f64 (*.f64 d d) l)) (/.f64 #s(literal 1 binary64) h))))
#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 (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (.f64 (fma.f64 (.f64 (.f64 (.f64 M M) D) (/.f64 D (.f64 (.f64 d d) l))) #s(literal -1/4 binary64) (/.f64 #s(literal 1 binary64) h)) h))
#s(approx (+ (* (* h -1/4) (/ (* (* (* M M) D) D) (* (* d d) l))) 1) #s(hole binary64 (* -1 (* h (- (* 1/4 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (/ 1 h))))))
#s(approx (+ (* (* h -1/4) (/ (* (* (* M M) D) D) (* (* d d) l))) 1) (.f64 (neg.f64 h) (-.f64 (/.f64 (.f64 #s(literal 1/4 binary64) (.f64 (.f64 (.f64 M M) D) D)) (.f64 (*.f64 d d) l)) (/.f64 #s(literal 1 binary64) h))))
#s(approx (- l (* (* 1/4 (* D D)) (* (/ (* M M) d) (/ h d)))) #s(hole binary64 (* -1 (* h (- (* -1 (/ l h)) (* -1/4 (/ (* (pow D 2) (pow M 2)) (pow d 2))))))))
#s(approx (- l (* (* 1/4 (* D D)) (* (/ (* M M) d) (/ h d)))) (.f64 (neg.f64 h) (fma.f64 #s(literal -1 binary64) (/.f64 l h) (/.f64 (.f64 #s(literal 1/4 binary64) (.f64 (.f64 (.f64 M M) D) D)) (.f64 d d)))))
#s(approx (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)) #s(hole binary64 (/ (+ l (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l)))
#s(approx (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)) (/.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 (.f64 (.f64 M M) D) D) h) (*.f64 d d)) l) l))
#s(approx (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) #s(hole binary64 (- (* 2 l) (* 1/2 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2))))))
#s(approx (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 (.f64 (.f64 M M) D) D) h) (.f64 d d)) (.f64 #s(literal 2 binary64) l)))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (/ (+ (* (/ (* D (* M (* w0 (* (sqrt -1/2) (sqrt 1/2))))) d) (sqrt (* h l))) (* (/ (* d (* w0 (sqrt 1/2))) (* D (* M (sqrt -1/2)))) (sqrt (/ (pow l 3) h)))) l)))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) (/.f64 (fma.f64 (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) h)) (/.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) d) D) (.f64 (sqrt.f64 #s(literal -1/2 binary64)) M)) (.f64 (sqrt.f64 (.f64 h l)) (/.f64 (.f64 (.f64 M D) (.f64 (*.f64 w0 (sqrt.f64 #s(literal -1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))) d))) l))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (/ (+ (* (/ (* D (* M (* w0 (* (sqrt -1/2) (sqrt 1/2))))) d) (sqrt (* h l))) (* (pow l 2) (+ (* -1/2 (* (/ (* (pow d 3) (* w0 (sqrt 1/2))) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ l (pow h 3))))) (* (/ (* d (* w0 (sqrt 1/2))) (* D (* M (sqrt -1/2)))) (sqrt (/ 1 (* h l))))))) l)))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) (/.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 (pow.f64 d #s(literal 3 binary64)) w0) (sqrt.f64 #s(literal 1/2 binary64))) (pow.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/2 binary64)) M) D) #s(literal 3 binary64)))) (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64)))) (.f64 (/.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) d) D) (.f64 (sqrt.f64 #s(literal -1/2 binary64)) M)) (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) h) l)))) (.f64 l l) (.f64 (sqrt.f64 (.f64 h l)) (/.f64 (.f64 (.f64 M D) (.f64 (.f64 w0 (sqrt.f64 #s(literal -1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))) d))) l))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (/ (+ (* (/ (* D (* M (* w0 (* (sqrt -1/2) (sqrt 1/2))))) d) (sqrt (* h l))) (* (pow l 2) (+ (* (/ (* d (* w0 (sqrt 1/2))) (* D (* M (sqrt -1/2)))) (sqrt (/ 1 (* h l)))) (* (pow l 2) (+ (* -1/2 (* (/ (* (pow d 3) (* w0 (sqrt 1/2))) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ 1 (* (pow h 3) (pow l 3)))))) (* 1/2 (* (/ (* (pow d 5) (* w0 (sqrt 1/2))) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/2) 5)))) (sqrt (/ 1 (* (pow h 5) l)))))))))) l)))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) (/.f64 (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 (pow.f64 d #s(literal 3 binary64)) w0) (sqrt.f64 #s(literal 1/2 binary64))) (pow.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/2 binary64)) M) D) #s(literal 3 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (.f64 h l) #s(literal 3 binary64)))) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (pow.f64 h #s(literal 5 binary64)) l))) (.f64 (/.f64 (pow.f64 d #s(literal 5 binary64)) (pow.f64 D #s(literal 5 binary64))) (/.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) (.f64 (pow.f64 M #s(literal 5 binary64)) (pow.f64 (sqrt.f64 #s(literal -1/2 binary64)) #s(literal 5 binary64)))))) #s(literal 1/2 binary64))) (.f64 l l) (.f64 (/.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) d) D) (.f64 (sqrt.f64 #s(literal -1/2 binary64)) M)) (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) h) l)))) (.f64 l l) (.f64 (sqrt.f64 (.f64 h l)) (/.f64 (.f64 (.f64 M D) (.f64 (.f64 w0 (sqrt.f64 #s(literal -1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))) d))) l))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (/ (+ (* (/ (* D (* M (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (* h l))) (* (/ (* d (sqrt 1/2)) (* D (* M (sqrt -1/2)))) (sqrt (/ (pow l 3) h)))) l)))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) (/.f64 (fma.f64 (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) h)) (/.f64 (/.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) d) D) (.f64 (sqrt.f64 #s(literal -1/2 binary64)) M)) (.f64 (sqrt.f64 (.f64 h l)) (/.f64 (.f64 (.f64 M D) (*.f64 (sqrt.f64 #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 1/2 binary64)))) d))) l))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (/ (+ (* (/ (* D (* M (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (* h l))) (* (pow l 2) (+ (* -1/2 (* (/ (* (pow d 3) (sqrt 1/2)) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ l (pow h 3))))) (* (/ (* d (sqrt 1/2)) (* D (* M (sqrt -1/2)))) (sqrt (/ 1 (* h l))))))) l)))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) (/.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (pow.f64 d #s(literal 3 binary64)) (sqrt.f64 #s(literal 1/2 binary64))) (pow.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/2 binary64)) M) D) #s(literal 3 binary64)))) (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64)))) (.f64 (/.f64 (/.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) d) D) (.f64 (sqrt.f64 #s(literal -1/2 binary64)) M)) (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) h) l)))) (.f64 l l) (.f64 (sqrt.f64 (.f64 h l)) (/.f64 (.f64 (.f64 M D) (*.f64 (sqrt.f64 #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 1/2 binary64)))) d))) l))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (/ (+ (* (/ (* D (* M (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (* h l))) (* (pow l 2) (+ (* (/ (* d (sqrt 1/2)) (* D (* M (sqrt -1/2)))) (sqrt (/ 1 (* h l)))) (* (pow l 2) (+ (* -1/2 (* (/ (* (pow d 3) (sqrt 1/2)) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ 1 (* (pow h 3) (pow l 3)))))) (* 1/2 (* (/ (* (pow d 5) (sqrt 1/2)) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/2) 5)))) (sqrt (/ 1 (* (pow h 5) l)))))))))) l)))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) (/.f64 (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (pow.f64 d #s(literal 3 binary64)) (sqrt.f64 #s(literal 1/2 binary64))) (pow.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/2 binary64)) M) D) #s(literal 3 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (.f64 h l) #s(literal 3 binary64)))) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (pow.f64 h #s(literal 5 binary64)) l))) (.f64 (/.f64 (pow.f64 d #s(literal 5 binary64)) (pow.f64 D #s(literal 5 binary64))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (.f64 (pow.f64 M #s(literal 5 binary64)) (pow.f64 (sqrt.f64 #s(literal -1/2 binary64)) #s(literal 5 binary64)))))) #s(literal 1/2 binary64))) (.f64 l l) (.f64 (/.f64 (/.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) d) D) (.f64 (sqrt.f64 #s(literal -1/2 binary64)) M)) (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) h) l)))) (.f64 l l) (.f64 (sqrt.f64 (.f64 h l)) (/.f64 (.f64 (.f64 M D) (.f64 (sqrt.f64 #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 1/2 binary64)))) d))) l))
#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))))) (/.f64 (fma.f64 (.f64 (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) h)) (.f64 (/.f64 d D) (/.f64 w0 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M)))) #s(literal 1/2 binary64) (.f64 (sqrt.f64 (.f64 h l)) (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) M) D) d))) 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) 3)))) (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))))) (/.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 (pow.f64 (/.f64 d D) #s(literal 3 binary64)) (/.f64 w0 (pow.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) #s(literal 3 binary64))))) (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64)))) (.f64 (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 d D) (/.f64 w0 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M)))) (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) h) l)))) (.f64 l l) (.f64 (sqrt.f64 (.f64 h l)) (/.f64 (.f64 (.f64 (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) M) D) d))) 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) 3)))) (sqrt (/ 1 (* (pow h 3) (pow l 3)))))) (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ 1 (* (pow h 5) l)))))))))) l)))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (/.f64 (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal 1/16 binary64) (/.f64 (.f64 (pow.f64 d #s(literal 5 binary64)) w0) (.f64 (.f64 (pow.f64 M #s(literal 5 binary64)) (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 5 binary64))) (pow.f64 D #s(literal 5 binary64))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (pow.f64 h #s(literal 5 binary64)) l))) (.f64 (.f64 #s(literal -1/8 binary64) (.f64 (pow.f64 (/.f64 d D) #s(literal 3 binary64)) (/.f64 w0 (pow.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) #s(literal 3 binary64))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (.f64 h l) #s(literal 3 binary64)))))) (.f64 l l) (.f64 (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 d D) (/.f64 w0 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M)))) (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) h) l)))) (.f64 l l) (.f64 (sqrt.f64 (.f64 h l)) (/.f64 (.f64 (.f64 (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) M) D) d))) 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)))) (/.f64 (fma.f64 (.f64 #s(literal 1/2 binary64) (/.f64 d (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) h)) (.f64 (sqrt.f64 (.f64 h l)) (/.f64 (.f64 (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) d))) 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) 3)))) (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)))) (/.f64 (fma.f64 (fma.f64 (.f64 (/.f64 (pow.f64 (/.f64 d D) #s(literal 3 binary64)) (pow.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) #s(literal 3 binary64))) (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64))))) #s(literal -1/8 binary64) (.f64 (.f64 #s(literal 1/2 binary64) (/.f64 d (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D))) (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) h) l)))) (.f64 l l) (.f64 (sqrt.f64 (.f64 h l)) (/.f64 (.f64 (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) d))) 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) 3)))) (sqrt (/ 1 (* (pow h 3) (pow l 3)))))) (* 1/16 (* (/ (pow d 5) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ 1 (* (pow h 5) l)))))))))) l)))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (/.f64 (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 d #s(literal 5 binary64)) (.f64 (.f64 (pow.f64 M #s(literal 5 binary64)) (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 5 binary64))) (pow.f64 D #s(literal 5 binary64))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (pow.f64 h #s(literal 5 binary64)) l))) (.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 (/.f64 d D) #s(literal 3 binary64)) (pow.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) #s(literal 3 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (.f64 h l) #s(literal 3 binary64)))))) (.f64 l l) (.f64 (.f64 #s(literal 1/2 binary64) (/.f64 d (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D))) (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) h) l)))) (.f64 l l) (.f64 (sqrt.f64 (.f64 h l)) (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) d))) l))
#s(approx (+ (* (* (* D D) -1/8) (* (/ h (* d d)) (/ (* M M) l))) 1) #s(hole binary64 (/ (+ l (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l)))
#s(approx (+ (* (* (* D D) -1/8) (* (/ h (* d d)) (/ (* M M) l))) 1) (/.f64 (fma.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (.f64 (.f64 (.f64 M M) D) D) h) (*.f64 d d)) 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 (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (/.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 (.f64 (.f64 M M) D) D) h) (*.f64 d d)) l) l))
#s(approx (+ (* (* h -1/4) (/ (* (* (* M M) D) D) (* (* d d) l))) 1) #s(hole binary64 (/ (+ l (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l)))
#s(approx (+ (* (* h -1/4) (/ (* (* (* M M) D) D) (* (* d d) l))) 1) (/.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 (.f64 (.f64 M M) D) D) h) (*.f64 d d)) l) l))
#s(approx (- l (* (* 1/4 (* D D)) (* (/ (* M M) d) (/ h d)))) #s(hole binary64 (- l (* 1/4 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2))))))
#s(approx (- l (* (* 1/4 (* D D)) (* (/ (* M M) d) (/ h d)))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 (.f64 (.f64 M M) D) D) h) (*.f64 d d)) l))
#s(approx (* (* d d) l) #s(hole binary64 (* (pow d 2) l)))
#s(approx (* (* d d) l) (.f64 (.f64 d d) l))
#s(approx (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) #s(hole binary64 (* l (+ 2 (* -1/2 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l)))))))
#s(approx (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 (.f64 (.f64 M M) D) D) h) (.f64 (*.f64 d d) l)) #s(literal 2 binary64)) l))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (* h (* w0 (sqrt 1/2))))) (* (pow d 2) (* l (sqrt 2))))) (+ (* -1/32 (/ (* (pow D 4) (* (pow M 4) (* (pow h 2) (* w0 (sqrt 1/2))))) (* (pow d 4) (* (pow l 2) (pow (sqrt 2) 3))))) (* w0 (* (sqrt 1/2) (sqrt 2)))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) (fma.f64 (.f64 (/.f64 (.f64 D D) (.f64 d d)) (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) h) (.f64 M M)) (.f64 (sqrt.f64 #s(literal 2 binary64)) l))) #s(literal -1/4 binary64) (fma.f64 (/.f64 (/.f64 (.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (.f64 (.f64 (.f64 h h) w0) (sqrt.f64 #s(literal 1/2 binary64)))) (pow.f64 D #s(literal 4 binary64))) (pow.f64 d #s(literal 4 binary64))) (.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 l l))) #s(literal -1/32 binary64) (.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (* h (* w0 (sqrt 1/2))))) (* (pow d 2) (* l (sqrt 2))))) (+ (* -1/32 (/ (* (pow D 4) (* (pow M 4) (* (pow h 2) (* w0 (sqrt 1/2))))) (* (pow d 4) (* (pow l 2) (pow (sqrt 2) 3))))) (+ (* -1/128 (/ (* (pow D 6) (* (pow M 6) (* (pow h 3) (* w0 (sqrt 1/2))))) (* (pow d 6) (* (pow l 3) (pow (sqrt 2) 5))))) (* w0 (* (sqrt 1/2) (sqrt 2))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) (fma.f64 (.f64 (/.f64 (.f64 D D) (.f64 d d)) (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) h) (.f64 M M)) (.f64 (sqrt.f64 #s(literal 2 binary64)) l))) #s(literal -1/4 binary64) (fma.f64 (/.f64 (/.f64 (.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (.f64 (.f64 (.f64 h h) w0) (sqrt.f64 #s(literal 1/2 binary64)))) (pow.f64 D #s(literal 4 binary64))) (pow.f64 d #s(literal 4 binary64))) (.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 l l))) #s(literal -1/32 binary64) (fma.f64 (/.f64 (/.f64 (.f64 (.f64 (pow.f64 M #s(literal 6 binary64)) (.f64 (.f64 (pow.f64 h #s(literal 3 binary64)) w0) (sqrt.f64 #s(literal 1/2 binary64)))) (pow.f64 D #s(literal 6 binary64))) (pow.f64 d #s(literal 6 binary64))) (.f64 (pow.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 5 binary64)) (pow.f64 l #s(literal 3 binary64)))) #s(literal -1/128 binary64) (.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) (sqrt.f64 #s(literal 2 binary64)))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (* h (sqrt 1/2)))) (* (pow d 2) (* l (sqrt 2))))) (+ (* -1/32 (/ (* (pow D 4) (* (pow M 4) (* (pow h 2) (sqrt 1/2)))) (* (pow d 4) (* (pow l 2) (pow (sqrt 2) 3))))) (* (sqrt 1/2) (sqrt 2))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) (fma.f64 (.f64 (/.f64 (.f64 D D) (.f64 d d)) (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) h) (.f64 M M)) (.f64 (sqrt.f64 #s(literal 2 binary64)) l))) #s(literal -1/4 binary64) (fma.f64 (/.f64 (/.f64 (.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (.f64 (.f64 h h) (sqrt.f64 #s(literal 1/2 binary64)))) (pow.f64 D #s(literal 4 binary64))) (pow.f64 d #s(literal 4 binary64))) (.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 l l))) #s(literal -1/32 binary64) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(literal 1/2 binary64))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (* h (sqrt 1/2)))) (* (pow d 2) (* l (sqrt 2))))) (+ (* -1/32 (/ (* (pow D 4) (* (pow M 4) (* (pow h 2) (sqrt 1/2)))) (* (pow d 4) (* (pow l 2) (pow (sqrt 2) 3))))) (+ (* -1/128 (/ (* (pow D 6) (* (pow M 6) (* (pow h 3) (sqrt 1/2)))) (* (pow d 6) (* (pow l 3) (pow (sqrt 2) 5))))) (* (sqrt 1/2) (sqrt 2)))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) (fma.f64 (.f64 (/.f64 (.f64 D D) (.f64 d d)) (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) h) (.f64 M M)) (.f64 (sqrt.f64 #s(literal 2 binary64)) l))) #s(literal -1/4 binary64) (fma.f64 (/.f64 (/.f64 (.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (.f64 (.f64 h h) (sqrt.f64 #s(literal 1/2 binary64)))) (pow.f64 D #s(literal 4 binary64))) (pow.f64 d #s(literal 4 binary64))) (.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 l l))) #s(literal -1/32 binary64) (fma.f64 (/.f64 (/.f64 (.f64 (.f64 (pow.f64 M #s(literal 6 binary64)) (.f64 (pow.f64 h #s(literal 3 binary64)) (sqrt.f64 #s(literal 1/2 binary64)))) (pow.f64 D #s(literal 6 binary64))) (pow.f64 d #s(literal 6 binary64))) (.f64 (pow.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 5 binary64)) (pow.f64 l #s(literal 3 binary64)))) #s(literal -1/128 binary64) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(literal 1/2 binary64)))))))
#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))))) (+.f64 (fma.f64 (/.f64 (.f64 (.f64 (.f64 (.f64 M M) D) D) (.f64 w0 h)) (.f64 (.f64 d d) l)) #s(literal -1/8 binary64) w0) (.f64 (.f64 (/.f64 (pow.f64 D #s(literal 4 binary64)) (pow.f64 d #s(literal 4 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (.f64 (.f64 h h) w0)) (*.f64 l l))) #s(literal -1/128 binary64))))
#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 (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (+.f64 (fma.f64 (/.f64 (.f64 (.f64 (.f64 (.f64 M M) D) D) (.f64 w0 h)) (.f64 (.f64 d d) l)) #s(literal -1/8 binary64) w0) (fma.f64 (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (pow.f64 d #s(literal 6 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 6 binary64)) (.f64 (pow.f64 h #s(literal 3 binary64)) w0)) (pow.f64 l #s(literal 3 binary64)))) #s(literal -1/1024 binary64) (.f64 (.f64 (/.f64 (pow.f64 D #s(literal 4 binary64)) (pow.f64 d #s(literal 4 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (.f64 (.f64 h h) w0)) (.f64 l l))) #s(literal -1/128 binary64)))))
#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)))) (+.f64 (fma.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (.f64 (.f64 (.f64 M M) D) D) h) (.f64 (.f64 d d) l)) #s(literal 1 binary64)) (.f64 (.f64 (/.f64 (pow.f64 D #s(literal 4 binary64)) (pow.f64 d #s(literal 4 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (.f64 h h)) (*.f64 l l))) #s(literal -1/128 binary64))))
#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 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (+.f64 (fma.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (.f64 (.f64 (.f64 M M) D) D) h) (.f64 (.f64 d d) l)) #s(literal 1 binary64)) (fma.f64 (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (pow.f64 d #s(literal 6 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 6 binary64)) (pow.f64 h #s(literal 3 binary64))) (pow.f64 l #s(literal 3 binary64)))) #s(literal -1/1024 binary64) (.f64 (.f64 (/.f64 (pow.f64 D #s(literal 4 binary64)) (pow.f64 d #s(literal 4 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (.f64 h h)) (*.f64 l l))) #s(literal -1/128 binary64)))))
#s(approx (- l (* (* 1/4 (* D D)) (* (/ (* M M) d) (/ h d)))) #s(hole binary64 (* l (+ 1 (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l)))))))
#s(approx (- l (* (* 1/4 (* D D)) (* (/ (* M M) d) (/ h d)))) (.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 (.f64 (.f64 M M) D) D) h) (.f64 (*.f64 d d) l)) #s(literal 1 binary64)) l))
#s(approx (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) #s(hole binary64 (* -1 (* l (- (* 1/2 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))) 2)))))
#s(approx (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (.f64 (neg.f64 l) (-.f64 (.f64 (/.f64 (.f64 (.f64 (.f64 (.f64 M M) D) D) h) (.f64 (.f64 d d) l)) #s(literal 1/2 binary64)) #s(literal 2 binary64))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (+ (* -1 (/ (+ (* 1/32 (/ (* (pow D 4) (* (pow M 4) (* (pow h 2) (* w0 (sqrt 1/2))))) (* (pow d 4) (* l (pow (sqrt 2) 3))))) (* 1/4 (/ (* (pow D 2) (* (pow M 2) (* h (* w0 (sqrt 1/2))))) (* (pow d 2) (sqrt 2))))) l)) (* w0 (* (sqrt 1/2) (sqrt 2))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) (fma.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(literal 1/2 binary64))) w0 (/.f64 (fma.f64 (.f64 (/.f64 (.f64 D D) (.f64 d d)) (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) h) (.f64 M M)) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 1/4 binary64) (.f64 (.f64 (/.f64 (pow.f64 D #s(literal 4 binary64)) (pow.f64 d #s(literal 4 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (.f64 (.f64 (.f64 h h) w0) (sqrt.f64 #s(literal 1/2 binary64)))) (.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)) l))) #s(literal 1/32 binary64))) (neg.f64 l))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1 (/ (+ (* -1/32 (/ (* (pow D 4) (* (pow M 4) (* (pow h 2) (* w0 (sqrt 1/2))))) (* (pow d 4) (pow (sqrt 2) 3)))) (* -1/128 (/ (* (pow D 6) (* (pow M 6) (* (pow h 3) (* w0 (sqrt 1/2))))) (* (pow d 6) (* l (pow (sqrt 2) 5)))))) l)) (* 1/4 (/ (* (pow D 2) (* (pow M 2) (* h (* w0 (sqrt 1/2))))) (* (pow d 2) (sqrt 2))))) l)) (* w0 (* (sqrt 1/2) (sqrt 2))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) (fma.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(literal 1/2 binary64))) w0 (/.f64 (fma.f64 (.f64 (/.f64 (.f64 D D) (.f64 d d)) (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) h) (.f64 M M)) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 1/4 binary64) (/.f64 (fma.f64 (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (pow.f64 d #s(literal 6 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 6 binary64)) (.f64 (.f64 (pow.f64 h #s(literal 3 binary64)) w0) (sqrt.f64 #s(literal 1/2 binary64)))) (.f64 (pow.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 5 binary64)) l))) #s(literal -1/128 binary64) (.f64 (.f64 (/.f64 (pow.f64 D #s(literal 4 binary64)) (pow.f64 d #s(literal 4 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (.f64 (.f64 (.f64 h h) w0) (sqrt.f64 #s(literal 1/2 binary64)))) (.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)))) #s(literal -1/32 binary64))) (neg.f64 l))) (neg.f64 l))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (+ (* -1 (/ (+ (* 1/32 (/ (* (pow D 4) (* (pow M 4) (* (pow h 2) (sqrt 1/2)))) (* (pow d 4) (* l (pow (sqrt 2) 3))))) (* 1/4 (/ (* (pow D 2) (* (pow M 2) (* h (sqrt 1/2)))) (* (pow d 2) (sqrt 2))))) l)) (* (sqrt 1/2) (sqrt 2)))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) (fma.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(literal 1/2 binary64)) (/.f64 (fma.f64 (.f64 (/.f64 (.f64 D D) (.f64 d d)) (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) h) (.f64 M M)) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 1/4 binary64) (.f64 (.f64 (/.f64 (pow.f64 D #s(literal 4 binary64)) (pow.f64 d #s(literal 4 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (.f64 (.f64 h h) (sqrt.f64 #s(literal 1/2 binary64)))) (.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)) l))) #s(literal 1/32 binary64))) (neg.f64 l))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (+ (* -1 (/ (+ (* -1 (/ (+ (* -1/32 (/ (* (pow D 4) (* (pow M 4) (* (pow h 2) (sqrt 1/2)))) (* (pow d 4) (pow (sqrt 2) 3)))) (* -1/128 (/ (* (pow D 6) (* (pow M 6) (* (pow h 3) (sqrt 1/2)))) (* (pow d 6) (* l (pow (sqrt 2) 5)))))) l)) (* 1/4 (/ (* (pow D 2) (* (pow M 2) (* h (sqrt 1/2)))) (* (pow d 2) (sqrt 2))))) l)) (* (sqrt 1/2) (sqrt 2)))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) (fma.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(literal 1/2 binary64)) (/.f64 (fma.f64 (.f64 (/.f64 (.f64 D D) (.f64 d d)) (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) h) (.f64 M M)) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 1/4 binary64) (/.f64 (fma.f64 (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (pow.f64 d #s(literal 6 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 6 binary64)) (.f64 (pow.f64 h #s(literal 3 binary64)) (sqrt.f64 #s(literal 1/2 binary64)))) (.f64 (pow.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 5 binary64)) l))) #s(literal -1/128 binary64) (.f64 (.f64 (/.f64 (pow.f64 D #s(literal 4 binary64)) (pow.f64 d #s(literal 4 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (.f64 (.f64 h h) (sqrt.f64 #s(literal 1/2 binary64)))) (.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)))) #s(literal -1/32 binary64))) (neg.f64 l))) (neg.f64 l))))
#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))))) (fma.f64 (/.f64 (fma.f64 (/.f64 (.f64 (.f64 (.f64 (.f64 M M) D) D) (.f64 w0 h)) (.f64 d d)) #s(literal 1/8 binary64) (.f64 (/.f64 (.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (pow.f64 D #s(literal 4 binary64))) (.f64 (.f64 h h) w0)) (.f64 (pow.f64 d #s(literal 4 binary64)) l)) #s(literal 1/128 binary64))) l) #s(literal -1 binary64) w0))
#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 (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (fma.f64 (/.f64 (fma.f64 (/.f64 (.f64 (.f64 (.f64 (.f64 M M) D) D) (.f64 w0 h)) (.f64 d d)) #s(literal 1/8 binary64) (/.f64 (fma.f64 (/.f64 (.f64 (.f64 (pow.f64 M #s(literal 6 binary64)) (.f64 (pow.f64 h #s(literal 3 binary64)) w0)) (pow.f64 D #s(literal 6 binary64))) (.f64 (pow.f64 d #s(literal 6 binary64)) l)) #s(literal -1/1024 binary64) (.f64 (/.f64 (.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (pow.f64 D #s(literal 4 binary64))) (.f64 (*.f64 h h) w0)) (pow.f64 d #s(literal 4 binary64))) #s(literal -1/128 binary64))) (neg.f64 l))) l) #s(literal -1 binary64) w0))
#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)))) (fma.f64 (/.f64 (fma.f64 (/.f64 (.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (pow.f64 D #s(literal 4 binary64))) (.f64 h h)) (.f64 (pow.f64 d #s(literal 4 binary64)) l)) #s(literal 1/128 binary64) (.f64 #s(literal 1/8 binary64) (/.f64 (.f64 (.f64 (.f64 (.f64 M M) D) D) h) (.f64 d d)))) l) #s(literal -1 binary64) #s(literal 1 binary64)))
#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 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (/.f64 (fma.f64 #s(literal 1/8 binary64) (/.f64 (.f64 (.f64 (.f64 (.f64 M M) D) D) h) (.f64 d d)) (/.f64 (fma.f64 (/.f64 (.f64 (.f64 (pow.f64 M #s(literal 6 binary64)) (pow.f64 h #s(literal 3 binary64))) (pow.f64 D #s(literal 6 binary64))) (.f64 (pow.f64 d #s(literal 6 binary64)) l)) #s(literal -1/1024 binary64) (.f64 (/.f64 (.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (pow.f64 D #s(literal 4 binary64))) (.f64 h h)) (pow.f64 d #s(literal 4 binary64))) #s(literal -1/128 binary64))) (neg.f64 l))) l) #s(literal -1 binary64) #s(literal 1 binary64)))
#s(approx (- l (* (* 1/4 (* D D)) (* (/ (* M M) d) (/ h d)))) #s(hole binary64 (* -1 (* l (- (* 1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))) 1)))))
#s(approx (- l (* (* 1/4 (* D D)) (* (/ (* M M) d) (/ h d)))) (.f64 (neg.f64 l) (-.f64 (.f64 (/.f64 (.f64 (.f64 (.f64 (.f64 M M) D) D) h) (.f64 (.f64 d d) l)) #s(literal 1/4 binary64)) #s(literal 1 binary64))))
#s(approx (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)) #s(hole binary64 (/ (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) l)) (pow d 2)) (pow d 2))))
#s(approx (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)) (/.f64 (fma.f64 (.f64 (.f64 D D) (/.f64 (.f64 (.f64 M M) h) l)) #s(literal -1/4 binary64) (.f64 d d)) (.f64 d d)))
#s(approx (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) #s(hole binary64 (/ (- (* 2 (* (pow d 2) l)) (* 1/2 (* (pow D 2) (* (pow M 2) h)))) (pow d 2))))
#s(approx (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (/.f64 (fma.f64 (.f64 #s(literal 2 binary64) (.f64 d d)) l (.f64 #s(literal -1/2 binary64) (.f64 (.f64 (.f64 (.f64 M M) D) D) h))) (.f64 d d)))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (/ (+ (* (* D (* M (* w0 (* (sqrt -1/2) (sqrt 1/2))))) (sqrt (/ h l))) (* (/ (* (pow d 2) (* w0 (sqrt 1/2))) (* D (* M (sqrt -1/2)))) (sqrt (/ l h)))) d)))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) (/.f64 (fma.f64 (/.f64 (.f64 (.f64 (.f64 d d) w0) (sqrt.f64 #s(literal 1/2 binary64))) (.f64 (.f64 (sqrt.f64 #s(literal -1/2 binary64)) M) D)) (sqrt.f64 (/.f64 l h)) (.f64 (sqrt.f64 (/.f64 h l)) (.f64 (.f64 M D) (.f64 (.f64 w0 (sqrt.f64 #s(literal -1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))))) d))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (/ (+ (* (* D (* M (* w0 (* (sqrt -1/2) (sqrt 1/2))))) (sqrt (/ h l))) (* (pow d 2) (+ (* -1/2 (* (/ (* (pow d 2) (* w0 (sqrt 1/2))) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (* (/ (* w0 (sqrt 1/2)) (* D (* M (sqrt -1/2)))) (sqrt (/ l h)))))) d)))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) (/.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 (.f64 d d) w0) (sqrt.f64 #s(literal 1/2 binary64))) (pow.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/2 binary64)) M) D) #s(literal 3 binary64)))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))) (.f64 (/.f64 (/.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) D) (.f64 (sqrt.f64 #s(literal -1/2 binary64)) M)) (sqrt.f64 (/.f64 l h)))) (.f64 d d) (.f64 (sqrt.f64 (/.f64 h l)) (.f64 (.f64 M D) (.f64 (*.f64 w0 (sqrt.f64 #s(literal -1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))))) d))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (/ (+ (* (* D (* M (* w0 (* (sqrt -1/2) (sqrt 1/2))))) (sqrt (/ h l))) (* (pow d 2) (+ (* (/ (* w0 (sqrt 1/2)) (* D (* M (sqrt -1/2)))) (sqrt (/ l h))) (* (pow d 2) (+ (* -1/2 (* (/ (* w0 (sqrt 1/2)) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (* 1/2 (* (/ (* (pow d 2) (* w0 (sqrt 1/2))) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/2) 5)))) (sqrt (/ (pow l 5) (pow h 5)))))))))) d)))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) (/.f64 (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 d d) (pow.f64 D #s(literal 5 binary64))) (/.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) (.f64 (pow.f64 M #s(literal 5 binary64)) (pow.f64 (sqrt.f64 #s(literal -1/2 binary64)) #s(literal 5 binary64)))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 5 binary64)))) (.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) (pow.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/2 binary64)) M) D) #s(literal 3 binary64)))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))))) (.f64 d d) (.f64 (/.f64 (/.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) D) (.f64 (sqrt.f64 #s(literal -1/2 binary64)) M)) (sqrt.f64 (/.f64 l h)))) (.f64 d d) (.f64 (sqrt.f64 (/.f64 h l)) (.f64 (.f64 M D) (.f64 (.f64 w0 (sqrt.f64 #s(literal -1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))))) d))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (/ (+ (* (* D (* M (* (sqrt -1/2) (sqrt 1/2)))) (sqrt (/ h l))) (* (/ (* (pow d 2) (sqrt 1/2)) (* D (* M (sqrt -1/2)))) (sqrt (/ l h)))) d)))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) (/.f64 (fma.f64 (/.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (.f64 d d)) (.f64 (.f64 (sqrt.f64 #s(literal -1/2 binary64)) M) D)) (sqrt.f64 (/.f64 l h)) (.f64 (.f64 (.f64 M D) (.f64 (sqrt.f64 #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 1/2 binary64)))) (sqrt.f64 (/.f64 h l)))) d))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (/ (+ (* (* D (* M (* (sqrt -1/2) (sqrt 1/2)))) (sqrt (/ h l))) (* (pow d 2) (+ (* -1/2 (* (/ (* (pow d 2) (sqrt 1/2)) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (* (/ (sqrt 1/2) (* D (* M (sqrt -1/2)))) (sqrt (/ l h)))))) d)))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) (/.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (.f64 d d)) (pow.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/2 binary64)) M) D) #s(literal 3 binary64)))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))) (.f64 (/.f64 (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) D) (.f64 (sqrt.f64 #s(literal -1/2 binary64)) M)) (sqrt.f64 (/.f64 l h)))) (.f64 d d) (.f64 (.f64 (.f64 M D) (.f64 (sqrt.f64 #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 1/2 binary64)))) (sqrt.f64 (/.f64 h l)))) d))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (/ (+ (* (* D (* M (* (sqrt -1/2) (sqrt 1/2)))) (sqrt (/ h l))) (* (pow d 2) (+ (* (/ (sqrt 1/2) (* D (* M (sqrt -1/2)))) (sqrt (/ l h))) (* (pow d 2) (+ (* -1/2 (* (/ (sqrt 1/2) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (* 1/2 (* (/ (* (pow d 2) (sqrt 1/2)) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/2) 5)))) (sqrt (/ (pow l 5) (pow h 5)))))))))) d)))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) (/.f64 (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 d d) (pow.f64 D #s(literal 5 binary64))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (.f64 (pow.f64 M #s(literal 5 binary64)) (pow.f64 (sqrt.f64 #s(literal -1/2 binary64)) #s(literal 5 binary64)))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 5 binary64)))) (.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (pow.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/2 binary64)) M) D) #s(literal 3 binary64)))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))))) (.f64 d d) (.f64 (/.f64 (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) D) (.f64 (sqrt.f64 #s(literal -1/2 binary64)) M)) (sqrt.f64 (/.f64 l h)))) (.f64 d d) (.f64 (.f64 (.f64 M D) (.f64 (sqrt.f64 #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 1/2 binary64)))) (sqrt.f64 (/.f64 h l)))) d))
#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))))) (/.f64 (fma.f64 (.f64 (.f64 (/.f64 (.f64 d d) D) (/.f64 w0 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M))) (sqrt.f64 (/.f64 l h))) #s(literal 1/2 binary64) (.f64 (.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) M) D) (sqrt.f64 (/.f64 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) 3)))) (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))))) (/.f64 (fma.f64 (fma.f64 (.f64 (.f64 (.f64 d d) (/.f64 w0 (pow.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) #s(literal 3 binary64)))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64)))) #s(literal -1/8 binary64) (.f64 (.f64 #s(literal 1/2 binary64) (/.f64 w0 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D))) (sqrt.f64 (/.f64 l h)))) (.f64 d d) (.f64 (.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) M) D) (sqrt.f64 (/.f64 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/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) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (* 1/16 (* (/ (* (pow d 2) w0) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5)))))))))) d)))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (/.f64 (fma.f64 (fma.f64 (fma.f64 (.f64 (/.f64 (.f64 (.f64 d d) w0) (.f64 (.f64 (pow.f64 M #s(literal 5 binary64)) (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 5 binary64))) (pow.f64 D #s(literal 5 binary64)))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 5 binary64))))) #s(literal 1/16 binary64) (.f64 (.f64 #s(literal -1/8 binary64) (/.f64 w0 (pow.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) #s(literal 3 binary64)))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))))) (.f64 d d) (.f64 (.f64 #s(literal 1/2 binary64) (/.f64 w0 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D))) (sqrt.f64 (/.f64 l h)))) (.f64 d d) (.f64 (.f64 (.f64 (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) M) D) (sqrt.f64 (/.f64 h l)))) 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)))) (/.f64 (fma.f64 (.f64 (/.f64 (/.f64 (.f64 d d) D) (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M)) (sqrt.f64 (/.f64 l h))) #s(literal 1/2 binary64) (.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) (sqrt.f64 (/.f64 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) 3)))) (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)))) (/.f64 (fma.f64 (fma.f64 (.f64 (/.f64 (.f64 d d) (pow.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) #s(literal 3 binary64))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64)))) #s(literal -1/8 binary64) (.f64 (.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D))) (sqrt.f64 (/.f64 l h)))) (.f64 d d) (.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) (sqrt.f64 (/.f64 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/2 (* (/ 1 (* D (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (pow d 2) (+ (* -1/8 (* (/ 1 (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (* 1/16 (* (/ (pow d 2) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5)))))))))) d)))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (/.f64 (fma.f64 (fma.f64 (fma.f64 (.f64 (/.f64 (.f64 d d) (.f64 (.f64 (pow.f64 M #s(literal 5 binary64)) (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 5 binary64))) (pow.f64 D #s(literal 5 binary64)))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 5 binary64))))) #s(literal 1/16 binary64) (.f64 (.f64 #s(literal -1/8 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) #s(literal 3 binary64)))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))))) (.f64 d d) (.f64 (.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D))) (sqrt.f64 (/.f64 l h)))) (.f64 d d) (.f64 (.f64 (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) (sqrt.f64 (/.f64 h l)))) d))
#s(approx (+ (* (* (* D D) -1/8) (* (/ h (* d d)) (/ (* M M) l))) 1) #s(hole binary64 (/ (+ (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) l)) (pow d 2)) (pow d 2))))
#s(approx (+ (* (* (* D D) -1/8) (* (/ h (* d d)) (/ (* M M) l))) 1) (/.f64 (fma.f64 (.f64 (.f64 D D) (/.f64 (.f64 (.f64 M M) h) l)) #s(literal -1/8 binary64) (.f64 d d)) (.f64 d 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 (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (/.f64 (fma.f64 (.f64 (.f64 D D) (/.f64 (.f64 (.f64 M M) h) l)) #s(literal -1/4 binary64) (.f64 d d)) (.f64 d d)))
#s(approx (+ (* (* h -1/4) (/ (* (* (* M M) D) D) (* (* d d) l))) 1) #s(hole binary64 (/ (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) l)) (pow d 2)) (pow d 2))))
#s(approx (+ (* (* h -1/4) (/ (* (* (* M M) D) D) (* (* d d) l))) 1) (/.f64 (fma.f64 (.f64 (.f64 D D) (/.f64 (.f64 (.f64 M M) h) l)) #s(literal -1/4 binary64) (.f64 d d)) (.f64 d d)))
#s(approx (- l (* (* 1/4 (* D D)) (* (/ (* M M) d) (/ h d)))) #s(hole binary64 (/ (- (* (pow d 2) l) (* 1/4 (* (pow D 2) (* (pow M 2) h)))) (pow d 2))))
#s(approx (- l (* (* 1/4 (* D D)) (* (/ (* M M) d) (/ h d)))) (/.f64 (fma.f64 (.f64 d d) l (.f64 (.f64 #s(literal -1/4 binary64) (.f64 D D)) (.f64 (.f64 M M) h))) (*.f64 d d)))

rewrite125.0ms (1.4%)

Memory

-15.6MiB live, 177.1MiB allocated; 57ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	61	535
0	100	527
1	333	505
0	2378	501

Stop Event

1×	iter limit
1×	iter limit
1×	node limit
1×	iter limit

Counts

27 → 365

Calls

Call 1

Inputs
(/.f64 (-.f64 (.f64 #s(literal 2 binary64) l) (.f64 #s(literal 2 binary64) (.f64 h (pow.f64 (.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d)) #s(literal 2 binary64))))) (*.f64 #s(literal 2 binary64) l))
(-.f64 (.f64 #s(literal 2 binary64) l) (.f64 #s(literal 2 binary64) (.f64 h (pow.f64 (.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d)) #s(literal 2 binary64)))))
(.f64 w0 (sqrt.f64 (/.f64 (-.f64 (.f64 #s(literal 2 binary64) l) (.f64 #s(literal 2 binary64) (.f64 h (pow.f64 (.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d)) #s(literal 2 binary64))))) (.f64 #s(literal 2 binary64) l))))
(sqrt.f64 (/.f64 (-.f64 (.f64 #s(literal 2 binary64) l) (.f64 #s(literal 2 binary64) (.f64 h (pow.f64 (.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d)) #s(literal 2 binary64))))) (*.f64 #s(literal 2 binary64) l)))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) w0)
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) (.f64 (/.f64 h (.f64 d d)) (/.f64 (*.f64 M M) l)) #s(literal 1 binary64))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) (.f64 (/.f64 h (.f64 d d)) (/.f64 (*.f64 M M) l)) #s(literal 1 binary64)))
(fma.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) (.f64 (/.f64 h (.f64 d d)) (/.f64 (*.f64 M M) l)) #s(literal 1 binary64))
(.f64 (.f64 D D) #s(literal -1/8 binary64))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 h #s(literal -1/4 binary64)) (/.f64 (.f64 (.f64 (.f64 M M) D) D) (.f64 (.f64 d d) l)) #s(literal 1 binary64)))))
(sqrt.f64 #s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 h #s(literal -1/4 binary64)) (/.f64 (.f64 (.f64 (.f64 M M) D) D) (.f64 (.f64 d d) l)) #s(literal 1 binary64))))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 h #s(literal -1/4 binary64)) (/.f64 (.f64 (.f64 (.f64 M M) D) D) (.f64 (.f64 d d) l)) #s(literal 1 binary64)))
(fma.f64 (.f64 h #s(literal -1/4 binary64)) (/.f64 (.f64 (.f64 (.f64 M M) D) D) (.f64 (.f64 d d) l)) #s(literal 1 binary64))
(-.f64 l (.f64 (.f64 #s(literal 1/4 binary64) (.f64 D D)) (.f64 (/.f64 (*.f64 M M) d) (/.f64 h d))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (/.f64 (-.f64 l (.f64 (.f64 #s(literal 1/4 binary64) (.f64 D D)) (.f64 (/.f64 (*.f64 M M) d) (/.f64 h d)))) l))))
(sqrt.f64 #s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (/.f64 (-.f64 l (.f64 (.f64 #s(literal 1/4 binary64) (.f64 D D)) (.f64 (/.f64 (*.f64 M M) d) (/.f64 h d)))) l)))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (/.f64 (-.f64 l (.f64 (.f64 #s(literal 1/4 binary64) (.f64 D D)) (.f64 (/.f64 (*.f64 M M) d) (/.f64 h d)))) l))
(*.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d))
(.f64 h (pow.f64 (.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d)) #s(literal 2 binary64)))
(.f64 (/.f64 h (.f64 d d)) (/.f64 (*.f64 M M) l))
(/.f64 h (*.f64 d d))
(/.f64 (.f64 (.f64 (.f64 M M) D) D) (.f64 (*.f64 d d) l))
(.f64 (.f64 d d) l)
(.f64 (.f64 M M) D)
(.f64 (.f64 #s(literal 1/4 binary64) (.f64 D D)) (.f64 (/.f64 (*.f64 M M) d) (/.f64 h d)))
(.f64 (/.f64 (.f64 M M) d) (/.f64 h d))
(/.f64 (*.f64 M M) d)

Outputs
(.f64 (/.f64 #s(literal 2 binary64) l) (/.f64 (-.f64 l (.f64 (pow.f64 (*.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64)) h)) #s(literal 2 binary64)))
(.f64 #s(literal 1 binary64) (/.f64 (-.f64 l (.f64 (pow.f64 (*.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64)) h)) l))
(.f64 #s(literal 2 binary64) (/.f64 (-.f64 l (.f64 (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64)) h)) (.f64 l #s(literal 2 binary64))))
(/.f64 (/.f64 (.f64 (-.f64 l (.f64 (pow.f64 (*.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64)) h)) #s(literal 2 binary64)) l) #s(literal 2 binary64))
(/.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (neg.f64 (.f64 (/.f64 h l) (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64)))) #s(literal 3 binary64))) (+.f64 #s(literal 1 binary64) (-.f64 (pow.f64 (.f64 (/.f64 h l) (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(literal 1 binary64) (neg.f64 (.f64 (/.f64 h l) (pow.f64 (*.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64))))))))
(/.f64 (neg.f64 (/.f64 (.f64 #s(literal -2 binary64) (-.f64 l (.f64 (pow.f64 (*.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64)) h))) #s(literal -2 binary64))) (neg.f64 l))
(/.f64 (neg.f64 (.f64 #s(literal -2 binary64) (-.f64 l (.f64 (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64)) h)))) (neg.f64 (.f64 #s(literal -2 binary64) l)))
(/.f64 (neg.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (.f64 (/.f64 h l) (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64))) #s(literal 2 binary64)))) (neg.f64 (fma.f64 (/.f64 h l) (pow.f64 (*.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64)) #s(literal 1 binary64))))
(/.f64 (neg.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (.f64 (/.f64 h l) (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64))) #s(literal 3 binary64)))) (neg.f64 (fma.f64 (.f64 (/.f64 h l) (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (fma.f64 (/.f64 h l) (pow.f64 (*.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64)) #s(literal 1 binary64)) #s(literal 1 binary64))))
(/.f64 (-.f64 (.f64 #s(literal 4 binary64) (.f64 l l)) (.f64 (.f64 (.f64 l #s(literal 2 binary64)) (.f64 h #s(literal 2 binary64))) (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64)))) (.f64 #s(literal 4 binary64) (*.f64 l l)))
(/.f64 (/.f64 (.f64 #s(literal -2 binary64) (-.f64 l (.f64 (pow.f64 (*.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64)) h))) #s(literal -2 binary64)) l)
(/.f64 (-.f64 (.f64 #s(literal 4 binary64) (.f64 l l)) (pow.f64 (.f64 (.f64 h #s(literal 2 binary64)) (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64))) #s(literal 2 binary64))) (.f64 (.f64 #s(literal 2 binary64) (+.f64 l (.f64 (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64)) h))) (.f64 l #s(literal 2 binary64))))
(/.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (.f64 (/.f64 h l) (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64))) #s(literal 2 binary64))) (fma.f64 (/.f64 h l) (pow.f64 (*.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64)) #s(literal 1 binary64)))
(/.f64 (-.f64 (.f64 #s(literal 8 binary64) (pow.f64 l #s(literal 3 binary64))) (pow.f64 (.f64 (.f64 h #s(literal 2 binary64)) (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64))) #s(literal 3 binary64))) (.f64 (fma.f64 #s(literal 4 binary64) (.f64 l l) (.f64 (.f64 (.f64 h #s(literal 2 binary64)) (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (+.f64 l (.f64 (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64)) h))))) (.f64 l #s(literal 2 binary64))))
(/.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (.f64 (/.f64 h l) (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64))) #s(literal 3 binary64))) (fma.f64 (.f64 (/.f64 h l) (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (fma.f64 (/.f64 h l) (pow.f64 (*.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64)) #s(literal 1 binary64)) #s(literal 1 binary64)))
(/.f64 (.f64 #s(literal -2 binary64) (-.f64 l (.f64 (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64)) h))) (.f64 #s(literal -2 binary64) l))
(/.f64 (.f64 (-.f64 l (.f64 (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64)) h)) #s(literal 2 binary64)) (.f64 l #s(literal 2 binary64)))
(neg.f64 (/.f64 (.f64 #s(literal -2 binary64) (-.f64 l (.f64 (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64)) h))) (.f64 l #s(literal 2 binary64))))
(neg.f64 (/.f64 (.f64 (-.f64 l (.f64 (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64)) h)) #s(literal 2 binary64)) (.f64 #s(literal -2 binary64) l)))
(fma.f64 (neg.f64 (pow.f64 (*.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (/.f64 h l) #s(literal 1 binary64))
(fma.f64 (/.f64 h l) (neg.f64 (pow.f64 (*.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64))) #s(literal 1 binary64))
(-.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (/.f64 h l) (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64)) #s(literal 1 binary64))) (/.f64 (pow.f64 (.f64 (/.f64 h l) (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64))) #s(literal 2 binary64)) (fma.f64 (/.f64 h l) (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64)) #s(literal 1 binary64))))
(-.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (/.f64 h l) (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (fma.f64 (/.f64 h l) (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64)) #s(literal 1 binary64)) #s(literal 1 binary64))) (/.f64 (pow.f64 (.f64 (/.f64 h l) (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64))) #s(literal 3 binary64)) (fma.f64 (.f64 (/.f64 h l) (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (fma.f64 (/.f64 h l) (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64)) #s(literal 1 binary64)) #s(literal 1 binary64))))
(-.f64 #s(literal 1 binary64) (.f64 (neg.f64 (neg.f64 (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64)))) (/.f64 h l)))
(-.f64 #s(literal 1 binary64) (.f64 (/.f64 h l) (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64))))
(+.f64 (neg.f64 (.f64 (/.f64 h l) (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64)))) #s(literal 1 binary64))
(+.f64 #s(literal 1 binary64) (.f64 (neg.f64 (/.f64 h l)) (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64))))
(+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 #s(literal -2 binary64) h) (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (.f64 l #s(literal 2 binary64))))
(+.f64 #s(literal 1 binary64) (neg.f64 (.f64 (/.f64 h l) (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64)))))
(.f64 (-.f64 l (.f64 (pow.f64 (*.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64)) h)) #s(literal 2 binary64))
(.f64 #s(literal 2 binary64) (-.f64 l (.f64 (pow.f64 (*.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64)) h)))
(/.f64 (fma.f64 #s(literal 8 binary64) (pow.f64 l #s(literal 3 binary64)) (pow.f64 (.f64 (.f64 #s(literal -2 binary64) h) (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64))) #s(literal 3 binary64))) (fma.f64 #s(literal 4 binary64) (.f64 l l) (-.f64 (pow.f64 (.f64 (.f64 h #s(literal 2 binary64)) (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 (.f64 l #s(literal 2 binary64)) (.f64 (.f64 #s(literal -2 binary64) h) (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64)))))))
(/.f64 (neg.f64 (-.f64 (.f64 #s(literal 4 binary64) (.f64 l l)) (pow.f64 (.f64 (.f64 h #s(literal 2 binary64)) (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64))) #s(literal 2 binary64)))) (neg.f64 (.f64 #s(literal 2 binary64) (+.f64 l (.f64 (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64)) h)))))
(/.f64 (neg.f64 (-.f64 (.f64 #s(literal 8 binary64) (pow.f64 l #s(literal 3 binary64))) (pow.f64 (.f64 (.f64 h #s(literal 2 binary64)) (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64))) #s(literal 3 binary64)))) (neg.f64 (fma.f64 #s(literal 4 binary64) (.f64 l l) (.f64 (.f64 (.f64 h #s(literal 2 binary64)) (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (+.f64 l (.f64 (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64)) h)))))))
(/.f64 (-.f64 (.f64 #s(literal 4 binary64) (.f64 l l)) (pow.f64 (.f64 (.f64 h #s(literal 2 binary64)) (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64))) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (+.f64 l (.f64 (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64)) h))))
(/.f64 (-.f64 (.f64 #s(literal 8 binary64) (pow.f64 l #s(literal 3 binary64))) (pow.f64 (.f64 (.f64 h #s(literal 2 binary64)) (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64))) #s(literal 3 binary64))) (fma.f64 #s(literal 4 binary64) (.f64 l l) (.f64 (.f64 (.f64 h #s(literal 2 binary64)) (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (+.f64 l (.f64 (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64)) h))))))
(fma.f64 (.f64 #s(literal -2 binary64) (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64))) h (*.f64 l #s(literal 2 binary64)))
(fma.f64 (.f64 #s(literal -2 binary64) h) (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64)) (*.f64 l #s(literal 2 binary64)))
(fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64)) h) (*.f64 l #s(literal 2 binary64)))
(fma.f64 (.f64 (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64)) h) #s(literal -2 binary64) (*.f64 l #s(literal 2 binary64)))
(fma.f64 l #s(literal 2 binary64) (.f64 (neg.f64 (.f64 h #s(literal 2 binary64))) (pow.f64 (*.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64))))
(fma.f64 l #s(literal 2 binary64) (.f64 (neg.f64 (.f64 (pow.f64 (*.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64)) h)) #s(literal 2 binary64)))
(fma.f64 l #s(literal 2 binary64) (.f64 (.f64 #s(literal -2 binary64) h) (pow.f64 (*.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64))))
(fma.f64 #s(literal 2 binary64) l (.f64 (neg.f64 (.f64 h #s(literal 2 binary64))) (pow.f64 (*.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64))))
(fma.f64 #s(literal 2 binary64) l (.f64 (neg.f64 (.f64 (pow.f64 (*.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64)) h)) #s(literal 2 binary64)))
(fma.f64 #s(literal 2 binary64) l (.f64 (.f64 #s(literal -2 binary64) h) (pow.f64 (*.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64))))
(-.f64 (-.f64 (.f64 l #s(literal 2 binary64)) (.f64 (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64)) h)) (.f64 (pow.f64 (*.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64)) h))
(-.f64 (/.f64 (.f64 #s(literal 4 binary64) (.f64 l l)) (.f64 #s(literal 2 binary64) (+.f64 l (.f64 (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64)) h)))) (/.f64 (pow.f64 (.f64 (.f64 h #s(literal 2 binary64)) (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (+.f64 l (.f64 (pow.f64 (*.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64)) h)))))
(-.f64 (/.f64 (.f64 #s(literal 8 binary64) (pow.f64 l #s(literal 3 binary64))) (fma.f64 #s(literal 4 binary64) (.f64 l l) (.f64 (.f64 (.f64 h #s(literal 2 binary64)) (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (+.f64 l (.f64 (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64)) h)))))) (/.f64 (pow.f64 (.f64 (.f64 h #s(literal 2 binary64)) (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64))) #s(literal 3 binary64)) (fma.f64 #s(literal 4 binary64) (.f64 l l) (.f64 (.f64 (.f64 h #s(literal 2 binary64)) (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (+.f64 l (.f64 (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64)) h)))))))
(-.f64 (.f64 l #s(literal 2 binary64)) (.f64 (.f64 h #s(literal 2 binary64)) (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64))))
(+.f64 (-.f64 l (.f64 (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64)) h)) (-.f64 l (.f64 (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64)) h)))
(+.f64 (.f64 (.f64 #s(literal -2 binary64) h) (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (.f64 l #s(literal 2 binary64)))
(+.f64 (.f64 l #s(literal 2 binary64)) (.f64 (neg.f64 (.f64 h #s(literal 2 binary64))) (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64))))
(+.f64 (.f64 l #s(literal 2 binary64)) (.f64 (neg.f64 (.f64 (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64)) h)) #s(literal 2 binary64)))
(+.f64 (.f64 l #s(literal 2 binary64)) (.f64 (.f64 #s(literal -2 binary64) h) (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64))))
(+.f64 l (-.f64 l (.f64 (.f64 h #s(literal 2 binary64)) (pow.f64 (*.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64)))))
(+.f64 l (+.f64 l (.f64 (.f64 #s(literal -2 binary64) h) (pow.f64 (*.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64)))))
(.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (.f64 (/.f64 h l) (pow.f64 (*.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64))))) w0)
(.f64 w0 (sqrt.f64 (-.f64 #s(literal 1 binary64) (.f64 (/.f64 h l) (pow.f64 (*.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64))))))
(/.f64 (.f64 (sqrt.f64 (.f64 (-.f64 l (.f64 (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64)) h)) #s(literal 2 binary64))) w0) (sqrt.f64 (*.f64 l #s(literal 2 binary64))))
(/.f64 (.f64 w0 (sqrt.f64 (.f64 (-.f64 l (.f64 (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64)) h)) #s(literal 2 binary64)))) (sqrt.f64 (*.f64 l #s(literal 2 binary64))))
(.f64 (pow.f64 (-.f64 #s(literal 1 binary64) (.f64 (/.f64 h l) (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64)))) #s(literal 1/4 binary64)) (pow.f64 (-.f64 #s(literal 1 binary64) (.f64 (/.f64 h l) (pow.f64 (*.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64)))) #s(literal 1/4 binary64)))
(pow.f64 (-.f64 #s(literal 1 binary64) (.f64 (/.f64 h l) (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64)))) #s(literal 1/2 binary64))
(/.f64 (neg.f64 (sqrt.f64 (.f64 (-.f64 l (.f64 (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64)) h)) #s(literal 2 binary64)))) (neg.f64 (sqrt.f64 (.f64 l #s(literal 2 binary64)))))
(/.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (.f64 (/.f64 h l) (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (fma.f64 (/.f64 h l) (pow.f64 (*.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64)) #s(literal 1 binary64))))
(/.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (.f64 (/.f64 h l) (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64))) #s(literal 3 binary64)))) (sqrt.f64 (fma.f64 (.f64 (/.f64 h l) (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (fma.f64 (/.f64 h l) (pow.f64 (*.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64)) #s(literal 1 binary64)) #s(literal 1 binary64))))
(/.f64 (sqrt.f64 (/.f64 (.f64 #s(literal -2 binary64) (-.f64 l (.f64 (pow.f64 (*.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64)) h))) #s(literal -2 binary64))) (sqrt.f64 l))
(/.f64 (sqrt.f64 (.f64 #s(literal -2 binary64) (-.f64 l (.f64 (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64)) h)))) (sqrt.f64 (.f64 #s(literal -2 binary64) l)))
(/.f64 (sqrt.f64 (.f64 (-.f64 l (.f64 (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64)) h)) #s(literal 2 binary64))) (sqrt.f64 (.f64 l #s(literal 2 binary64))))
(sqrt.f64 (-.f64 #s(literal 1 binary64) (.f64 (/.f64 h l) (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64)))))
(exp.f64 (.f64 (log1p.f64 (.f64 (neg.f64 (/.f64 h l)) (pow.f64 (*.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64)))) #s(literal 1/2 binary64)))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) w0)
(.f64 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 (/.f64 h (.f64 d d)) M) (/.f64 M l)) (.f64 #s(literal -1/8 binary64) (*.f64 D D)) #s(literal 1 binary64))) w0)
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 (/.f64 h (.f64 d d)) M) (/.f64 M l)) (.f64 #s(literal -1/8 binary64) (*.f64 D D)) #s(literal 1 binary64))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 (/.f64 h (.f64 d d)) M) (/.f64 M l)) (.f64 #s(literal -1/8 binary64) (*.f64 D D)) #s(literal 1 binary64)))
(/.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (.f64 (.f64 (.f64 (/.f64 h (.f64 d d)) M) (/.f64 M l)) (.f64 #s(literal -1/8 binary64) (.f64 D D))) #s(literal 2 binary64))) (-.f64 #s(literal 1 binary64) (.f64 (.f64 (.f64 (/.f64 h (.f64 d d)) M) (/.f64 M l)) (.f64 #s(literal -1/8 binary64) (.f64 D D)))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (.f64 (.f64 (.f64 (/.f64 h (.f64 d d)) M) (/.f64 M l)) (.f64 #s(literal -1/8 binary64) (.f64 D D))) #s(literal 2 binary64)) #s(literal 1 binary64))) (neg.f64 (fma.f64 (.f64 (.f64 (/.f64 h (.f64 d d)) M) (/.f64 M l)) (.f64 #s(literal -1/8 binary64) (*.f64 D D)) #s(literal -1 binary64))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (.f64 (.f64 (.f64 (/.f64 h (.f64 d d)) M) (/.f64 M l)) (.f64 #s(literal -1/8 binary64) (.f64 D D))) #s(literal 3 binary64)) #s(literal -1 binary64))) (neg.f64 (+.f64 (-.f64 #s(literal 1 binary64) (.f64 (.f64 (.f64 (/.f64 h (.f64 d d)) M) (/.f64 M l)) (.f64 #s(literal -1/8 binary64) (.f64 D D)))) (pow.f64 (.f64 (.f64 (.f64 (/.f64 h (.f64 d d)) M) (/.f64 M l)) (.f64 #s(literal -1/8 binary64) (.f64 D D))) #s(literal 2 binary64)))))
(/.f64 (-.f64 (pow.f64 (.f64 (.f64 (.f64 (/.f64 h (.f64 d d)) M) (/.f64 M l)) (.f64 #s(literal -1/8 binary64) (.f64 D D))) #s(literal 2 binary64)) #s(literal 1 binary64)) (fma.f64 (.f64 (.f64 (/.f64 h (.f64 d d)) M) (/.f64 M l)) (.f64 #s(literal -1/8 binary64) (*.f64 D D)) #s(literal -1 binary64)))
(/.f64 (-.f64 (pow.f64 (.f64 (.f64 (.f64 (/.f64 h (.f64 d d)) M) (/.f64 M l)) (.f64 #s(literal -1/8 binary64) (.f64 D D))) #s(literal 3 binary64)) #s(literal -1 binary64)) (+.f64 #s(literal 1 binary64) (-.f64 (pow.f64 (.f64 (.f64 (.f64 (/.f64 h (.f64 d d)) M) (/.f64 M l)) (.f64 #s(literal -1/8 binary64) (.f64 D D))) #s(literal 2 binary64)) (.f64 (.f64 (.f64 (/.f64 h (.f64 d d)) M) (/.f64 M l)) (.f64 #s(literal -1/8 binary64) (.f64 D D))))))
(/.f64 (-.f64 (pow.f64 (.f64 (.f64 (.f64 (/.f64 h (.f64 d d)) M) (/.f64 M l)) (.f64 #s(literal -1/8 binary64) (.f64 D D))) #s(literal 3 binary64)) #s(literal -1 binary64)) (+.f64 (-.f64 #s(literal 1 binary64) (.f64 (.f64 (.f64 (/.f64 h (.f64 d d)) M) (/.f64 M l)) (.f64 #s(literal -1/8 binary64) (.f64 D D)))) (pow.f64 (.f64 (.f64 (.f64 (/.f64 h (.f64 d d)) M) (/.f64 M l)) (.f64 #s(literal -1/8 binary64) (.f64 D D))) #s(literal 2 binary64))))
(fma.f64 (.f64 (.f64 (/.f64 h (.f64 d d)) (.f64 #s(literal -1/8 binary64) (*.f64 D D))) M) (/.f64 M l) #s(literal 1 binary64))
(fma.f64 (.f64 (.f64 (.f64 (/.f64 h (.f64 d d)) M) (/.f64 M l)) (*.f64 D D)) #s(literal -1/8 binary64) #s(literal 1 binary64))
(fma.f64 (.f64 (.f64 (.f64 (/.f64 h (.f64 d d)) M) (/.f64 M l)) D) (*.f64 #s(literal -1/8 binary64) D) #s(literal 1 binary64))
(fma.f64 (.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (/.f64 (.f64 M M) l)) (/.f64 h (*.f64 d d)) #s(literal 1 binary64))
(fma.f64 (.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 M M) l)) (/.f64 h (.f64 d d))) (*.f64 D D) #s(literal 1 binary64))
(fma.f64 (.f64 (/.f64 h (.f64 d d)) (.f64 #s(literal -1/8 binary64) (.f64 D D))) (.f64 (/.f64 (.f64 M M) l) #s(literal 1 binary64)) #s(literal 1 binary64))
(fma.f64 (.f64 (/.f64 h (.f64 d d)) (.f64 #s(literal -1/8 binary64) (.f64 D D))) (/.f64 (*.f64 M M) l) #s(literal 1 binary64))
(fma.f64 (neg.f64 D) (.f64 (neg.f64 D) (.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 M M) l)) (/.f64 h (*.f64 d d)))) #s(literal 1 binary64))
(fma.f64 (fabs.f64 D) (.f64 (fabs.f64 D) (.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 M M) l)) (/.f64 h (*.f64 d d)))) #s(literal 1 binary64))
(fma.f64 (.f64 (.f64 (.f64 (/.f64 h (.f64 d d)) M) (/.f64 M l)) (.f64 #s(literal -1/8 binary64) (.f64 D D))) #s(literal 1 binary64) #s(literal 1 binary64))
(fma.f64 (.f64 (.f64 (/.f64 h (.f64 d d)) M) (/.f64 M l)) (.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) #s(literal 1 binary64)) #s(literal 1 binary64))
(fma.f64 (.f64 (.f64 (/.f64 h (.f64 d d)) M) (/.f64 M l)) (.f64 #s(literal -1/8 binary64) (*.f64 D D)) #s(literal 1 binary64))
(fma.f64 (/.f64 (.f64 M M) l) (.f64 (/.f64 h (.f64 d d)) (.f64 #s(literal -1/8 binary64) (*.f64 D D))) #s(literal 1 binary64))
(fma.f64 (/.f64 h (.f64 d d)) (.f64 (/.f64 (.f64 M M) l) (.f64 #s(literal -1/8 binary64) (*.f64 D D))) #s(literal 1 binary64))
(fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (.f64 (.f64 (.f64 (/.f64 h (.f64 d d)) M) (/.f64 M l)) #s(literal 1 binary64)) #s(literal 1 binary64))
(fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (.f64 (.f64 (/.f64 h (*.f64 d d)) M) (/.f64 M l)) #s(literal 1 binary64))
(fma.f64 #s(literal -1/8 binary64) (.f64 (.f64 D D) (.f64 (.f64 (/.f64 h (*.f64 d d)) M) (/.f64 M l))) #s(literal 1 binary64))
(fma.f64 (.f64 D D) (.f64 (.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 M M) l)) (/.f64 h (.f64 d d))) #s(literal 1 binary64)) #s(literal 1 binary64))
(fma.f64 (.f64 D D) (.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 M M) l)) (/.f64 h (*.f64 d d))) #s(literal 1 binary64))
(fma.f64 #s(literal 1 binary64) (.f64 (.f64 (.f64 (/.f64 h (.f64 d d)) M) (/.f64 M l)) (.f64 #s(literal -1/8 binary64) (.f64 D D))) #s(literal 1 binary64))
(fma.f64 D (.f64 (.f64 #s(literal -1/8 binary64) D) (.f64 (.f64 (/.f64 h (*.f64 d d)) M) (/.f64 M l))) #s(literal 1 binary64))
(fma.f64 D (.f64 D (.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 M M) l)) (/.f64 h (*.f64 d d)))) #s(literal 1 binary64))
(-.f64 (/.f64 (pow.f64 (.f64 (.f64 (.f64 (/.f64 h (.f64 d d)) M) (/.f64 M l)) (.f64 #s(literal -1/8 binary64) (.f64 D D))) #s(literal 2 binary64)) (fma.f64 (.f64 (.f64 (/.f64 h (.f64 d d)) M) (/.f64 M l)) (.f64 #s(literal -1/8 binary64) (.f64 D D)) #s(literal -1 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (.f64 (/.f64 h (.f64 d d)) M) (/.f64 M l)) (.f64 #s(literal -1/8 binary64) (.f64 D D)) #s(literal -1 binary64))))
(-.f64 (.f64 (.f64 (.f64 (/.f64 h (.f64 d d)) M) (/.f64 M l)) (.f64 #s(literal -1/8 binary64) (.f64 D D))) #s(literal -1 binary64))
(-.f64 #s(literal 1 binary64) (.f64 (neg.f64 (.f64 (/.f64 h (.f64 d d)) (.f64 #s(literal -1/8 binary64) (.f64 D D)))) (/.f64 (.f64 M M) l)))
(-.f64 #s(literal 1 binary64) (.f64 (neg.f64 (.f64 (.f64 (/.f64 h (.f64 d d)) M) (/.f64 M l))) (.f64 #s(literal -1/8 binary64) (.f64 D D))))
(-.f64 #s(literal 1 binary64) (.f64 (neg.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D))) (.f64 (.f64 (/.f64 h (.f64 d d)) M) (/.f64 M l))))
(-.f64 #s(literal 1 binary64) (.f64 (neg.f64 (.f64 D D)) (.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 M M) l)) (/.f64 h (.f64 d d)))))
(+.f64 (/.f64 (pow.f64 (.f64 (.f64 (.f64 (/.f64 h (.f64 d d)) M) (/.f64 M l)) (.f64 #s(literal -1/8 binary64) (.f64 D D))) #s(literal 3 binary64)) (+.f64 (-.f64 #s(literal 1 binary64) (.f64 (.f64 (.f64 (/.f64 h (.f64 d d)) M) (/.f64 M l)) (.f64 #s(literal -1/8 binary64) (.f64 D D)))) (pow.f64 (.f64 (.f64 (.f64 (/.f64 h (.f64 d d)) M) (/.f64 M l)) (.f64 #s(literal -1/8 binary64) (.f64 D D))) #s(literal 2 binary64)))) (/.f64 #s(literal 1 binary64) (+.f64 (-.f64 #s(literal 1 binary64) (.f64 (.f64 (.f64 (/.f64 h (.f64 d d)) M) (/.f64 M l)) (.f64 #s(literal -1/8 binary64) (.f64 D D)))) (pow.f64 (.f64 (.f64 (.f64 (/.f64 h (.f64 d d)) M) (/.f64 M l)) (.f64 #s(literal -1/8 binary64) (.f64 D D))) #s(literal 2 binary64)))))
(+.f64 (.f64 (.f64 (.f64 (/.f64 h (.f64 d d)) M) (/.f64 M l)) (.f64 #s(literal -1/8 binary64) (.f64 D D))) #s(literal 1 binary64))
(+.f64 #s(literal 1 binary64) (.f64 (.f64 (.f64 (/.f64 h (.f64 d d)) M) (/.f64 M l)) (.f64 #s(literal -1/8 binary64) (.f64 D D))))
(.f64 (.f64 #s(literal -1/8 binary64) (neg.f64 D)) (neg.f64 D))
(.f64 (.f64 #s(literal -1/8 binary64) (fabs.f64 D)) (fabs.f64 D))
(.f64 (.f64 #s(literal -1/8 binary64) D) D)
(.f64 (neg.f64 D) (.f64 (neg.f64 D) #s(literal -1/8 binary64)))
(.f64 (fabs.f64 D) (.f64 (fabs.f64 D) #s(literal -1/8 binary64)))
(.f64 #s(literal -1/8 binary64) (.f64 D D))
(.f64 (.f64 D D) #s(literal -1/8 binary64))
(.f64 D (.f64 #s(literal -1/8 binary64) D))
(.f64 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (/.f64 (/.f64 (pow.f64 (.f64 M D) #s(literal 2 binary64)) d) (.f64 d l)) (*.f64 #s(literal -1/4 binary64) h) #s(literal 1 binary64)))) w0)
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (/.f64 (/.f64 (pow.f64 (.f64 M D) #s(literal 2 binary64)) d) (.f64 d l)) (*.f64 #s(literal -1/4 binary64) h) #s(literal 1 binary64)))))
(.f64 (pow.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (/.f64 (/.f64 (pow.f64 (.f64 M D) #s(literal 2 binary64)) d) (.f64 d l)) (.f64 #s(literal -1/4 binary64) h) #s(literal 1 binary64))) #s(literal 1/4 binary64)) (pow.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (/.f64 (/.f64 (pow.f64 (.f64 M D) #s(literal 2 binary64)) d) (.f64 d l)) (*.f64 #s(literal -1/4 binary64) h) #s(literal 1 binary64))) #s(literal 1/4 binary64)))
(pow.f64 #s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (/.f64 (/.f64 (pow.f64 (.f64 M D) #s(literal 2 binary64)) d) (.f64 d l)) (*.f64 #s(literal -1/4 binary64) h) #s(literal 1 binary64))) #s(literal 1/2 binary64))
(sqrt.f64 #s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (/.f64 (/.f64 (pow.f64 (.f64 M D) #s(literal 2 binary64)) d) (.f64 d l)) (*.f64 #s(literal -1/4 binary64) h) #s(literal 1 binary64))))
(exp.f64 (.f64 (log.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (/.f64 (/.f64 (pow.f64 (.f64 M D) #s(literal 2 binary64)) d) (.f64 d l)) (*.f64 #s(literal -1/4 binary64) h) #s(literal 1 binary64)))) #s(literal 1/2 binary64)))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (/.f64 (/.f64 (pow.f64 (.f64 M D) #s(literal 2 binary64)) d) (.f64 d l)) (*.f64 #s(literal -1/4 binary64) h) #s(literal 1 binary64)))
(/.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (.f64 (/.f64 (/.f64 (pow.f64 (.f64 M D) #s(literal 2 binary64)) d) (.f64 d l)) (.f64 #s(literal -1/4 binary64) h)) #s(literal 2 binary64))) (-.f64 #s(literal 1 binary64) (.f64 (/.f64 (/.f64 (pow.f64 (.f64 M D) #s(literal 2 binary64)) d) (.f64 d l)) (.f64 #s(literal -1/4 binary64) h))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (.f64 (/.f64 (/.f64 (pow.f64 (.f64 M D) #s(literal 2 binary64)) d) (.f64 d l)) (.f64 #s(literal -1/4 binary64) h)) #s(literal 2 binary64)) #s(literal 1 binary64))) (neg.f64 (fma.f64 (/.f64 (/.f64 (pow.f64 (.f64 M D) #s(literal 2 binary64)) d) (.f64 d l)) (*.f64 #s(literal -1/4 binary64) h) #s(literal -1 binary64))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (.f64 (/.f64 (/.f64 (pow.f64 (.f64 M D) #s(literal 2 binary64)) d) (.f64 d l)) (.f64 #s(literal -1/4 binary64) h)) #s(literal 3 binary64)) #s(literal -1 binary64))) (neg.f64 (+.f64 (-.f64 #s(literal 1 binary64) (.f64 (/.f64 (/.f64 (pow.f64 (.f64 M D) #s(literal 2 binary64)) d) (.f64 d l)) (.f64 #s(literal -1/4 binary64) h))) (pow.f64 (.f64 (/.f64 (/.f64 (pow.f64 (.f64 M D) #s(literal 2 binary64)) d) (.f64 d l)) (.f64 #s(literal -1/4 binary64) h)) #s(literal 2 binary64)))))
(/.f64 (fma.f64 (.f64 (pow.f64 (.f64 M D) #s(literal 2 binary64)) (.f64 #s(literal -1/4 binary64) h)) #s(literal 2 binary64) (.f64 (.f64 (.f64 d d) l) #s(literal 2 binary64))) (.f64 (.f64 (*.f64 d d) l) #s(literal 2 binary64)))
(/.f64 (fma.f64 #s(literal 2 binary64) (.f64 (.f64 d d) l) (.f64 #s(literal 2 binary64) (.f64 (pow.f64 (.f64 M D) #s(literal 2 binary64)) (.f64 #s(literal -1/4 binary64) h)))) (.f64 #s(literal 2 binary64) (.f64 (*.f64 d d) l)))
(/.f64 (-.f64 (pow.f64 (.f64 (/.f64 (/.f64 (pow.f64 (.f64 M D) #s(literal 2 binary64)) d) (.f64 d l)) (.f64 #s(literal -1/4 binary64) h)) #s(literal 2 binary64)) #s(literal 1 binary64)) (fma.f64 (/.f64 (/.f64 (pow.f64 (.f64 M D) #s(literal 2 binary64)) d) (.f64 d l)) (*.f64 #s(literal -1/4 binary64) h) #s(literal -1 binary64)))
(/.f64 (-.f64 (pow.f64 (.f64 (/.f64 (/.f64 (pow.f64 (.f64 M D) #s(literal 2 binary64)) d) (.f64 d l)) (.f64 #s(literal -1/4 binary64) h)) #s(literal 3 binary64)) #s(literal -1 binary64)) (+.f64 #s(literal 1 binary64) (-.f64 (pow.f64 (.f64 (/.f64 (/.f64 (pow.f64 (.f64 M D) #s(literal 2 binary64)) d) (.f64 d l)) (.f64 #s(literal -1/4 binary64) h)) #s(literal 2 binary64)) (.f64 (/.f64 (/.f64 (pow.f64 (.f64 M D) #s(literal 2 binary64)) d) (.f64 d l)) (.f64 #s(literal -1/4 binary64) h)))))
(/.f64 (-.f64 (pow.f64 (.f64 (/.f64 (/.f64 (pow.f64 (.f64 M D) #s(literal 2 binary64)) d) (.f64 d l)) (.f64 #s(literal -1/4 binary64) h)) #s(literal 3 binary64)) #s(literal -1 binary64)) (+.f64 (-.f64 #s(literal 1 binary64) (.f64 (/.f64 (/.f64 (pow.f64 (.f64 M D) #s(literal 2 binary64)) d) (.f64 d l)) (.f64 #s(literal -1/4 binary64) h))) (pow.f64 (.f64 (/.f64 (/.f64 (pow.f64 (.f64 M D) #s(literal 2 binary64)) d) (.f64 d l)) (.f64 #s(literal -1/4 binary64) h)) #s(literal 2 binary64))))
(fma.f64 (.f64 (/.f64 (/.f64 (pow.f64 (.f64 M D) #s(literal 2 binary64)) d) (*.f64 d l)) h) #s(literal -1/4 binary64) #s(literal 1 binary64))
(fma.f64 (.f64 (.f64 #s(literal -1/4 binary64) h) (.f64 (/.f64 D d) (.f64 (/.f64 M d) M))) (/.f64 D l) #s(literal 1 binary64))
(fma.f64 (.f64 (.f64 #s(literal -1/4 binary64) h) (.f64 (.f64 M M) D)) (/.f64 D (.f64 (.f64 d d) l)) #s(literal 1 binary64))
(fma.f64 (/.f64 (.f64 #s(literal -1/4 binary64) h) (.f64 d d)) (/.f64 (pow.f64 (*.f64 M D) #s(literal 2 binary64)) l) #s(literal 1 binary64))
(fma.f64 (/.f64 (.f64 #s(literal -1/4 binary64) h) d) (/.f64 (pow.f64 (.f64 M D) #s(literal 2 binary64)) (*.f64 d l)) #s(literal 1 binary64))
(fma.f64 (/.f64 (.f64 #s(literal -1/4 binary64) h) l) (/.f64 (/.f64 (pow.f64 (.f64 M D) #s(literal 2 binary64)) d) d) #s(literal 1 binary64))
(fma.f64 (/.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 (.f64 M D) #s(literal 2 binary64))) (.f64 (.f64 d d) l)) h #s(literal 1 binary64))
(fma.f64 (.f64 (/.f64 D d) (.f64 (/.f64 M d) M)) (.f64 (/.f64 D l) (.f64 #s(literal -1/4 binary64) h)) #s(literal 1 binary64))
(fma.f64 (.f64 (/.f64 (/.f64 (pow.f64 (.f64 M D) #s(literal 2 binary64)) d) (.f64 d l)) (.f64 #s(literal -1/4 binary64) h)) #s(literal 1 binary64) #s(literal 1 binary64))
(fma.f64 (/.f64 (/.f64 (pow.f64 (.f64 M D) #s(literal 2 binary64)) d) (.f64 d l)) (.f64 (.f64 #s(literal -1/4 binary64) h) #s(literal 1 binary64)) #s(literal 1 binary64))
(fma.f64 (/.f64 (/.f64 (pow.f64 (.f64 M D) #s(literal 2 binary64)) d) (.f64 d l)) (*.f64 #s(literal -1/4 binary64) h) #s(literal 1 binary64))
(fma.f64 (.f64 (.f64 M M) D) (.f64 (/.f64 D (.f64 (.f64 d d) l)) (.f64 #s(literal -1/4 binary64) h)) #s(literal 1 binary64))
(fma.f64 (.f64 #s(literal -1/4 binary64) h) (.f64 (/.f64 (/.f64 (pow.f64 (.f64 M D) #s(literal 2 binary64)) d) (.f64 d l)) #s(literal 1 binary64)) #s(literal 1 binary64))
(fma.f64 (.f64 #s(literal -1/4 binary64) h) (/.f64 (/.f64 (pow.f64 (.f64 M D) #s(literal 2 binary64)) d) (*.f64 d l)) #s(literal 1 binary64))
(fma.f64 #s(literal -1/4 binary64) (.f64 h (/.f64 (/.f64 (pow.f64 (.f64 M D) #s(literal 2 binary64)) d) (*.f64 d l))) #s(literal 1 binary64))
(fma.f64 #s(literal 1 binary64) (.f64 (/.f64 (/.f64 (pow.f64 (.f64 M D) #s(literal 2 binary64)) d) (.f64 d l)) (.f64 #s(literal -1/4 binary64) h)) #s(literal 1 binary64))
(fma.f64 h (.f64 (/.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 (.f64 M D) #s(literal 2 binary64))) (.f64 (*.f64 d d) l)) #s(literal 1 binary64)) #s(literal 1 binary64))
(fma.f64 h (/.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 (.f64 M D) #s(literal 2 binary64))) (.f64 (.f64 d d) l)) #s(literal 1 binary64))
(-.f64 (/.f64 (pow.f64 (.f64 (/.f64 (/.f64 (pow.f64 (.f64 M D) #s(literal 2 binary64)) d) (.f64 d l)) (.f64 #s(literal -1/4 binary64) h)) #s(literal 2 binary64)) (fma.f64 (/.f64 (/.f64 (pow.f64 (.f64 M D) #s(literal 2 binary64)) d) (.f64 d l)) (.f64 #s(literal -1/4 binary64) h) #s(literal -1 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 (/.f64 (/.f64 (pow.f64 (.f64 M D) #s(literal 2 binary64)) d) (.f64 d l)) (.f64 #s(literal -1/4 binary64) h) #s(literal -1 binary64))))
(-.f64 (.f64 (/.f64 (/.f64 (pow.f64 (.f64 M D) #s(literal 2 binary64)) d) (.f64 d l)) (.f64 #s(literal -1/4 binary64) h)) #s(literal -1 binary64))
(-.f64 #s(literal 1 binary64) (.f64 (neg.f64 (/.f64 (/.f64 (pow.f64 (.f64 M D) #s(literal 2 binary64)) d) (.f64 d l))) (.f64 #s(literal -1/4 binary64) h)))
(-.f64 #s(literal 1 binary64) (.f64 (neg.f64 (.f64 #s(literal -1/4 binary64) h)) (/.f64 (/.f64 (pow.f64 (.f64 M D) #s(literal 2 binary64)) d) (.f64 d l))))
(-.f64 #s(literal 1 binary64) (.f64 (neg.f64 h) (/.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 (.f64 M D) #s(literal 2 binary64))) (.f64 (*.f64 d d) l))))
(+.f64 (/.f64 (pow.f64 (.f64 (/.f64 (/.f64 (pow.f64 (.f64 M D) #s(literal 2 binary64)) d) (.f64 d l)) (.f64 #s(literal -1/4 binary64) h)) #s(literal 3 binary64)) (+.f64 (-.f64 #s(literal 1 binary64) (.f64 (/.f64 (/.f64 (pow.f64 (.f64 M D) #s(literal 2 binary64)) d) (.f64 d l)) (.f64 #s(literal -1/4 binary64) h))) (pow.f64 (.f64 (/.f64 (/.f64 (pow.f64 (.f64 M D) #s(literal 2 binary64)) d) (.f64 d l)) (.f64 #s(literal -1/4 binary64) h)) #s(literal 2 binary64)))) (/.f64 #s(literal 1 binary64) (+.f64 (-.f64 #s(literal 1 binary64) (.f64 (/.f64 (/.f64 (pow.f64 (.f64 M D) #s(literal 2 binary64)) d) (.f64 d l)) (.f64 #s(literal -1/4 binary64) h))) (pow.f64 (.f64 (/.f64 (/.f64 (pow.f64 (.f64 M D) #s(literal 2 binary64)) d) (.f64 d l)) (.f64 #s(literal -1/4 binary64) h)) #s(literal 2 binary64)))))
(+.f64 (.f64 (/.f64 (/.f64 (pow.f64 (.f64 M D) #s(literal 2 binary64)) d) (.f64 d l)) (.f64 #s(literal -1/4 binary64) h)) #s(literal 1 binary64))
(+.f64 #s(literal 1 binary64) (.f64 (/.f64 (/.f64 (pow.f64 (.f64 M D) #s(literal 2 binary64)) d) (.f64 d l)) (.f64 #s(literal -1/4 binary64) h)))
(/.f64 (+.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 (.f64 (.f64 #s(literal -1/4 binary64) (.f64 D D)) (.f64 (.f64 (/.f64 h (.f64 d d)) M) M)) #s(literal 3 binary64))) (fma.f64 l l (-.f64 (pow.f64 (.f64 (.f64 (.f64 (/.f64 h (.f64 d d)) M) M) (.f64 #s(literal 1/4 binary64) (.f64 D D))) #s(literal 2 binary64)) (.f64 l (.f64 (.f64 #s(literal -1/4 binary64) (.f64 D D)) (.f64 (.f64 (/.f64 h (*.f64 d d)) M) M))))))
(/.f64 (neg.f64 (-.f64 (.f64 l l) (pow.f64 (.f64 (.f64 (.f64 (/.f64 h (.f64 d d)) M) M) (.f64 #s(literal 1/4 binary64) (.f64 D D))) #s(literal 2 binary64)))) (neg.f64 (fma.f64 (.f64 (.f64 (/.f64 h (.f64 d d)) M) M) (.f64 #s(literal 1/4 binary64) (.f64 D D)) l)))
(/.f64 (neg.f64 (-.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 (.f64 (.f64 (.f64 (/.f64 h (.f64 d d)) M) M) (.f64 #s(literal 1/4 binary64) (.f64 D D))) #s(literal 3 binary64)))) (neg.f64 (fma.f64 (.f64 (.f64 (.f64 (/.f64 h (.f64 d d)) M) M) (.f64 #s(literal 1/4 binary64) (.f64 D D))) (fma.f64 (.f64 (.f64 (/.f64 h (.f64 d d)) M) M) (.f64 #s(literal 1/4 binary64) (.f64 D D)) l) (.f64 l l))))
(/.f64 (-.f64 (.f64 l l) (pow.f64 (.f64 (.f64 (.f64 (/.f64 h (.f64 d d)) M) M) (.f64 #s(literal 1/4 binary64) (.f64 D D))) #s(literal 2 binary64))) (fma.f64 (.f64 (.f64 (/.f64 h (.f64 d d)) M) M) (.f64 #s(literal 1/4 binary64) (.f64 D D)) l))
(/.f64 (-.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 (.f64 (.f64 (.f64 (/.f64 h (.f64 d d)) M) M) (.f64 #s(literal 1/4 binary64) (.f64 D D))) #s(literal 3 binary64))) (fma.f64 (.f64 (.f64 (.f64 (/.f64 h (.f64 d d)) M) M) (.f64 #s(literal 1/4 binary64) (.f64 D D))) (fma.f64 (.f64 (.f64 (/.f64 h (.f64 d d)) M) M) (.f64 #s(literal 1/4 binary64) (.f64 D D)) l) (.f64 l l)))
(fma.f64 (.f64 (.f64 #s(literal -1/4 binary64) (.f64 D D)) (/.f64 h d)) (.f64 (/.f64 M d) M) l)
(fma.f64 (.f64 (.f64 #s(literal -1/4 binary64) (.f64 D D)) (.f64 (/.f64 M d) M)) (/.f64 h d) l)
(fma.f64 (.f64 #s(literal -1/4 binary64) (.f64 D D)) (.f64 (.f64 (/.f64 h (*.f64 d d)) M) M) l)
(fma.f64 (.f64 (.f64 (/.f64 h (.f64 d d)) M) M) (.f64 #s(literal -1/4 binary64) (*.f64 D D)) l)
(-.f64 (/.f64 (.f64 l l) (fma.f64 (.f64 (.f64 (/.f64 h (.f64 d d)) M) M) (.f64 #s(literal 1/4 binary64) (.f64 D D)) l)) (/.f64 (pow.f64 (.f64 (.f64 (.f64 (/.f64 h (.f64 d d)) M) M) (.f64 #s(literal 1/4 binary64) (.f64 D D))) #s(literal 2 binary64)) (fma.f64 (.f64 (.f64 (/.f64 h (.f64 d d)) M) M) (.f64 #s(literal 1/4 binary64) (*.f64 D D)) l)))
(-.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) (fma.f64 (.f64 (.f64 (.f64 (/.f64 h (.f64 d d)) M) M) (.f64 #s(literal 1/4 binary64) (.f64 D D))) (fma.f64 (.f64 (.f64 (/.f64 h (.f64 d d)) M) M) (.f64 #s(literal 1/4 binary64) (.f64 D D)) l) (.f64 l l))) (/.f64 (pow.f64 (.f64 (.f64 (.f64 (/.f64 h (.f64 d d)) M) M) (.f64 #s(literal 1/4 binary64) (.f64 D D))) #s(literal 3 binary64)) (fma.f64 (.f64 (.f64 (.f64 (/.f64 h (.f64 d d)) M) M) (.f64 #s(literal 1/4 binary64) (.f64 D D))) (fma.f64 (.f64 (.f64 (/.f64 h (.f64 d d)) M) M) (.f64 #s(literal 1/4 binary64) (.f64 D D)) l) (.f64 l l))))
(-.f64 l (.f64 (neg.f64 (.f64 #s(literal -1/4 binary64) (.f64 D D))) (.f64 (.f64 (/.f64 h (.f64 d d)) M) M)))
(-.f64 l (.f64 (.f64 (.f64 (/.f64 h (.f64 d d)) M) M) (.f64 #s(literal 1/4 binary64) (.f64 D D))))
(+.f64 (.f64 (.f64 #s(literal -1/4 binary64) (.f64 D D)) (.f64 (.f64 (/.f64 h (.f64 d d)) M) M)) l)
(+.f64 l (.f64 (neg.f64 (.f64 (.f64 (.f64 #s(literal 1/4 binary64) (*.f64 D D)) M) (/.f64 M d))) (/.f64 h d)))
(+.f64 l (.f64 (neg.f64 (.f64 (.f64 (/.f64 h (.f64 d d)) M) M)) (.f64 #s(literal 1/4 binary64) (.f64 D D))))
(+.f64 l (.f64 #s(literal -1/4 binary64) (.f64 (.f64 (.f64 (/.f64 h (.f64 d d)) M) M) (.f64 D D))))
(+.f64 l (.f64 (.f64 #s(literal -1/4 binary64) (.f64 D D)) (.f64 (.f64 (/.f64 h (.f64 d d)) M) M)))
(.f64 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (/.f64 (fma.f64 (.f64 #s(literal -1/4 binary64) (.f64 D D)) (.f64 (.f64 (/.f64 h (*.f64 d d)) M) M) l) l))) w0)
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (/.f64 (fma.f64 (.f64 #s(literal -1/4 binary64) (.f64 D D)) (.f64 (.f64 (/.f64 h (*.f64 d d)) M) M) l) l))))
(.f64 (pow.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (/.f64 (fma.f64 (.f64 #s(literal -1/4 binary64) (.f64 D D)) (.f64 (.f64 (/.f64 h (.f64 d d)) M) M) l) l)) #s(literal 1/4 binary64)) (pow.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (/.f64 (fma.f64 (.f64 #s(literal -1/4 binary64) (.f64 D D)) (.f64 (.f64 (/.f64 h (*.f64 d d)) M) M) l) l)) #s(literal 1/4 binary64)))
(pow.f64 #s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (/.f64 (fma.f64 (.f64 #s(literal -1/4 binary64) (.f64 D D)) (.f64 (.f64 (/.f64 h (*.f64 d d)) M) M) l) l)) #s(literal 1/2 binary64))
(sqrt.f64 #s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (/.f64 (fma.f64 (.f64 #s(literal -1/4 binary64) (.f64 D D)) (.f64 (.f64 (/.f64 h (*.f64 d d)) M) M) l) l)))
(exp.f64 (.f64 (log.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (/.f64 (fma.f64 (.f64 #s(literal -1/4 binary64) (.f64 D D)) (.f64 (.f64 (/.f64 h (*.f64 d d)) M) M) l) l))) #s(literal 1/2 binary64)))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (/.f64 (fma.f64 (.f64 #s(literal -1/4 binary64) (.f64 D D)) (.f64 (.f64 (/.f64 h (*.f64 d d)) M) M) l) l))
(.f64 (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 1/2 binary64)) (pow.f64 (*.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 1/2 binary64)))
(*.f64 (pow.f64 (/.f64 M #s(literal 2 binary64)) #s(literal 1 binary64)) (pow.f64 (/.f64 D d) #s(literal 1 binary64)))
(*.f64 (pow.f64 (/.f64 D #s(literal 2 binary64)) #s(literal 1 binary64)) (pow.f64 (/.f64 M d) #s(literal 1 binary64)))
(*.f64 (pow.f64 M #s(literal 1 binary64)) (pow.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) #s(literal 1 binary64)))
(*.f64 (pow.f64 (/.f64 M d) #s(literal 1 binary64)) (pow.f64 (/.f64 D #s(literal 2 binary64)) #s(literal 1 binary64)))
(*.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M)
(*.f64 (/.f64 D d) (/.f64 M #s(literal 2 binary64)))
(*.f64 (/.f64 M #s(literal 2 binary64)) (/.f64 D d))
(*.f64 (/.f64 M d) (/.f64 D #s(literal 2 binary64)))
(*.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64)))
(*.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d))
(*.f64 D (/.f64 (/.f64 M d) #s(literal 2 binary64)))
(.f64 D (/.f64 M (.f64 d #s(literal 2 binary64))))
(pow.f64 (*.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 1 binary64))
(/.f64 (*.f64 M (/.f64 D d)) #s(literal 2 binary64))
(/.f64 (*.f64 (neg.f64 M) (/.f64 D #s(literal 2 binary64))) (neg.f64 d))
(/.f64 (*.f64 (neg.f64 D) (/.f64 M d)) #s(literal -2 binary64))
(/.f64 (*.f64 (/.f64 M #s(literal 2 binary64)) D) d)
(/.f64 (*.f64 (/.f64 M d) (neg.f64 D)) #s(literal -2 binary64))
(/.f64 (*.f64 (/.f64 D #s(literal 2 binary64)) (neg.f64 M)) (neg.f64 d))
(/.f64 (neg.f64 (*.f64 (/.f64 M d) D)) #s(literal -2 binary64))
(/.f64 (neg.f64 (*.f64 M (/.f64 D #s(literal 2 binary64)))) (neg.f64 d))
(/.f64 (neg.f64 (.f64 (neg.f64 M) D)) (neg.f64 (.f64 #s(literal -2 binary64) d)))
(/.f64 (.f64 (neg.f64 M) (neg.f64 D)) (.f64 (neg.f64 d) #s(literal -2 binary64)))
(/.f64 (.f64 (neg.f64 D) (neg.f64 M)) (.f64 #s(literal -2 binary64) (neg.f64 d)))
(/.f64 (*.f64 (/.f64 M d) D) #s(literal 2 binary64))
(/.f64 (*.f64 M (/.f64 D #s(literal 2 binary64))) d)
(/.f64 (.f64 (neg.f64 M) D) (.f64 #s(literal -2 binary64) d))
(/.f64 (.f64 M D) (.f64 d #s(literal 2 binary64)))
(neg.f64 (/.f64 (.f64 (neg.f64 M) D) (.f64 d #s(literal 2 binary64))))
(neg.f64 (/.f64 (.f64 M D) (.f64 #s(literal -2 binary64) d)))
(exp.f64 (.f64 (log.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M)) #s(literal 1 binary64)))
(.f64 (.f64 h (pow.f64 (/.f64 D #s(literal 2 binary64)) #s(literal 2 binary64))) (pow.f64 (/.f64 M d) #s(literal 2 binary64)))
(.f64 (.f64 h (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M)) (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M))
(.f64 (pow.f64 (/.f64 D #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 (pow.f64 (/.f64 M d) #s(literal 2 binary64)) h))
(.f64 (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64)) h)
(.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) (.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) h))
(.f64 h (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64)))
(.f64 (.f64 (/.f64 h (*.f64 d d)) M) (/.f64 M l))
(.f64 (/.f64 h (neg.f64 d)) (/.f64 (/.f64 (.f64 M M) l) (neg.f64 d)))
(.f64 (/.f64 h (fabs.f64 d)) (/.f64 (/.f64 (.f64 M M) l) (fabs.f64 d)))
(.f64 (/.f64 h d) (/.f64 (/.f64 (.f64 M M) l) d))
(.f64 (/.f64 h d) (/.f64 (.f64 M M) (*.f64 d l)))
(.f64 (/.f64 (.f64 M M) l) (/.f64 h (*.f64 d d)))
(.f64 (/.f64 h (.f64 d d)) (/.f64 (*.f64 M M) l))
(.f64 (/.f64 h l) (/.f64 (.f64 M M) (*.f64 d d)))
(.f64 M (.f64 (/.f64 M l) (/.f64 h (*.f64 d d))))
(.f64 h (/.f64 (/.f64 (.f64 M M) l) (*.f64 d d)))
(.f64 h (/.f64 (.f64 M M) (.f64 (.f64 d d) l)))
(/.f64 (/.f64 (.f64 (/.f64 (.f64 M M) l) h) (neg.f64 d)) (neg.f64 d))
(/.f64 (/.f64 (.f64 (/.f64 (.f64 M M) l) h) (fabs.f64 d)) (fabs.f64 d))
(/.f64 (/.f64 (.f64 (/.f64 (.f64 M M) l) h) d) d)
(/.f64 (.f64 (.f64 (neg.f64 M) M) (/.f64 h (*.f64 d d))) (neg.f64 l))
(/.f64 (.f64 (neg.f64 h) (/.f64 (.f64 M M) l)) (*.f64 (neg.f64 d) d))
(/.f64 (.f64 (/.f64 h d) (/.f64 (.f64 M M) l)) d)
(/.f64 (.f64 (/.f64 (.f64 M M) l) (neg.f64 h)) (*.f64 (neg.f64 d) d))
(/.f64 (.f64 (/.f64 (.f64 M M) l) (/.f64 h d)) d)
(/.f64 (.f64 (/.f64 h (.f64 d d)) (*.f64 (neg.f64 M) M)) (neg.f64 l))
(/.f64 (neg.f64 (.f64 (.f64 (/.f64 h (*.f64 d d)) M) M)) (neg.f64 l))
(/.f64 (neg.f64 (.f64 (/.f64 (.f64 M M) l) h)) (*.f64 (neg.f64 d) d))
(/.f64 (neg.f64 (.f64 (.f64 M M) h)) (.f64 (.f64 (neg.f64 d) d) l))
(/.f64 (.f64 (.f64 (neg.f64 M) M) (/.f64 h d)) (*.f64 (neg.f64 l) d))
(/.f64 (.f64 (/.f64 h d) (.f64 (neg.f64 M) M)) (*.f64 d (neg.f64 l)))
(/.f64 (.f64 (neg.f64 h) (.f64 (neg.f64 M) M)) (.f64 (.f64 (neg.f64 d) d) (neg.f64 l)))
(/.f64 (.f64 (neg.f64 h) (.f64 M M)) (.f64 (.f64 (neg.f64 d) d) l))
(/.f64 (.f64 h (.f64 (neg.f64 M) M)) (.f64 (.f64 (neg.f64 d) d) l))
(/.f64 (.f64 (.f64 (neg.f64 M) M) (neg.f64 h)) (.f64 (neg.f64 l) (.f64 (neg.f64 d) d)))
(/.f64 (.f64 (.f64 (neg.f64 M) M) h) (.f64 (.f64 (neg.f64 d) d) l))
(/.f64 (.f64 (.f64 M M) (neg.f64 h)) (.f64 (.f64 (neg.f64 d) d) l))
(/.f64 (.f64 (/.f64 (.f64 M M) l) h) (*.f64 d d))
(/.f64 (.f64 (.f64 (/.f64 M d) M) h) (*.f64 d l))
(/.f64 (.f64 (.f64 M M) h) (.f64 (.f64 d d) l))
(/.f64 (.f64 (.f64 (/.f64 h (*.f64 d d)) M) M) l)
(/.f64 (/.f64 h (neg.f64 d)) (neg.f64 d))
(/.f64 (/.f64 h (fabs.f64 d)) (fabs.f64 d))
(/.f64 (neg.f64 (/.f64 h d)) (neg.f64 d))
(/.f64 (neg.f64 (neg.f64 h)) (*.f64 d d))
(/.f64 (neg.f64 h) (*.f64 (neg.f64 d) d))
(/.f64 (/.f64 h d) d)
(/.f64 h (*.f64 d d))
(neg.f64 (/.f64 (neg.f64 h) (*.f64 d d)))
(neg.f64 (/.f64 h (*.f64 (neg.f64 d) d)))
(.f64 (/.f64 (.f64 M M) (.f64 d d)) (/.f64 (.f64 D D) l))
(.f64 (/.f64 (.f64 (.f64 M M) D) l) (/.f64 D (.f64 d d)))
(.f64 (/.f64 D (.f64 d d)) (/.f64 (.f64 (.f64 M M) D) l))
(.f64 (/.f64 (.f64 (.f64 M M) D) d) (/.f64 D (.f64 d l)))
(.f64 (/.f64 D (.f64 (.f64 d d) l)) (.f64 (*.f64 M M) D))
(.f64 (/.f64 D d) (/.f64 (.f64 (.f64 M M) D) (.f64 d l)))
(.f64 (/.f64 D l) (.f64 (/.f64 D d) (*.f64 (/.f64 M d) M)))
(.f64 (.f64 (/.f64 D d) (*.f64 (/.f64 M d) M)) (/.f64 D l))
(.f64 (.f64 (/.f64 M d) M) (/.f64 (.f64 D D) (.f64 d l)))
(.f64 (.f64 (.f64 M M) D) (/.f64 D (.f64 (*.f64 d d) l)))
(.f64 (/.f64 (.f64 M M) l) (/.f64 (.f64 D D) (.f64 d d)))
(.f64 (.f64 M M) (/.f64 (.f64 D D) (.f64 (*.f64 d d) l)))
(.f64 (.f64 M M) (.f64 D (/.f64 D (.f64 (*.f64 d d) l))))
(.f64 M (.f64 (.f64 M D) (/.f64 D (.f64 (*.f64 d d) l))))
(.f64 D (/.f64 (.f64 (.f64 M M) D) (.f64 (*.f64 d d) l)))
(.f64 D (.f64 (.f64 M M) (/.f64 D (.f64 (*.f64 d d) l))))
(/.f64 (/.f64 (pow.f64 (.f64 M D) #s(literal 2 binary64)) d) (.f64 d l))
(/.f64 (.f64 (.f64 (.f64 M M) D) (/.f64 D l)) (.f64 d d))
(/.f64 (.f64 (.f64 (/.f64 D d) (*.f64 (/.f64 M d) M)) D) l)
(/.f64 (/.f64 (pow.f64 (.f64 M D) #s(literal 2 binary64)) l) (.f64 d d))
(/.f64 (neg.f64 (/.f64 (/.f64 (pow.f64 (*.f64 M D) #s(literal 2 binary64)) d) d)) (neg.f64 l))
(/.f64 (neg.f64 (neg.f64 (pow.f64 (.f64 M D) #s(literal 2 binary64)))) (neg.f64 (.f64 (*.f64 (neg.f64 d) d) l)))
(/.f64 (/.f64 (/.f64 (pow.f64 (*.f64 M D) #s(literal 2 binary64)) d) d) l)
(/.f64 (neg.f64 (pow.f64 (.f64 M D) #s(literal 2 binary64))) (.f64 (*.f64 (neg.f64 d) d) l))
(/.f64 (pow.f64 (.f64 M D) #s(literal 2 binary64)) (.f64 (*.f64 d d) l))
(neg.f64 (/.f64 (neg.f64 (pow.f64 (.f64 M D) #s(literal 2 binary64))) (.f64 (*.f64 d d) l)))
(neg.f64 (/.f64 (pow.f64 (.f64 M D) #s(literal 2 binary64)) (.f64 (*.f64 (neg.f64 d) d) l)))
(.f64 (.f64 l (neg.f64 d)) (neg.f64 d))
(.f64 (.f64 l (fabs.f64 d)) (fabs.f64 d))
(.f64 (.f64 d l) d)
(.f64 (neg.f64 d) (.f64 (neg.f64 d) l))
(.f64 (fabs.f64 d) (.f64 (fabs.f64 d) l))
(.f64 (.f64 d d) l)
(.f64 d (.f64 d l))
(.f64 l (.f64 d d))
(.f64 (.f64 D (fabs.f64 M)) (fabs.f64 M))
(.f64 (.f64 (neg.f64 M) D) (neg.f64 M))
(.f64 (neg.f64 M) (.f64 (neg.f64 M) D))
(.f64 (fabs.f64 M) (.f64 (fabs.f64 M) D))
(.f64 (.f64 M M) D)
(.f64 (.f64 M D) M)
(.f64 M (.f64 M D))
(.f64 D (.f64 M M))
(.f64 (.f64 (.f64 (.f64 (/.f64 h (.f64 d d)) M) M) (.f64 #s(literal 1/4 binary64) D)) D)
(.f64 (.f64 (.f64 (.f64 (/.f64 h (.f64 d d)) M) M) #s(literal 1/4 binary64)) (.f64 D D))
(.f64 (.f64 (.f64 #s(literal 1/4 binary64) (.f64 D D)) (/.f64 h d)) (*.f64 (/.f64 M d) M))
(.f64 (.f64 (.f64 (.f64 (/.f64 h (.f64 d d)) M) M) (.f64 D D)) #s(literal 1/4 binary64))
(.f64 (.f64 #s(literal 1/4 binary64) D) (.f64 D (.f64 (.f64 (/.f64 h (.f64 d d)) M) M)))
(.f64 (.f64 (.f64 (.f64 #s(literal 1/4 binary64) (*.f64 D D)) M) (/.f64 M d)) (/.f64 h d))
(.f64 (.f64 (.f64 (/.f64 h (.f64 d d)) M) M) (.f64 #s(literal 1/4 binary64) (.f64 D D)))
(.f64 (/.f64 h d) (.f64 (.f64 (.f64 #s(literal 1/4 binary64) (*.f64 D D)) M) (/.f64 M d)))
(.f64 (.f64 (/.f64 M d) M) (.f64 (/.f64 h d) (.f64 #s(literal 1/4 binary64) (*.f64 D D))))
(.f64 (.f64 #s(literal 1/4 binary64) (.f64 D D)) (.f64 (.f64 (/.f64 h (.f64 d d)) M) M))
(.f64 #s(literal 1/4 binary64) (.f64 (.f64 (.f64 (/.f64 h (.f64 d d)) M) M) (.f64 D D)))
(.f64 (.f64 D D) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 (/.f64 h (.f64 d d)) M) M)))
(/.f64 (.f64 (.f64 (.f64 (/.f64 M d) M) h) (.f64 #s(literal 1/4 binary64) (*.f64 D D))) d)
(/.f64 (.f64 (.f64 (.f64 M M) h) (.f64 #s(literal 1/4 binary64) (.f64 D D))) (.f64 d d))
(/.f64 (.f64 (.f64 (.f64 (.f64 #s(literal 1/4 binary64) (*.f64 D D)) M) (/.f64 M d)) (neg.f64 h)) (neg.f64 d))
(/.f64 (.f64 (.f64 (.f64 (.f64 #s(literal 1/4 binary64) (*.f64 D D)) M) (/.f64 M d)) h) d)
(/.f64 (.f64 (.f64 #s(literal 1/4 binary64) (.f64 D D)) (.f64 (*.f64 (/.f64 M d) M) h)) d)
(/.f64 (.f64 (.f64 #s(literal 1/4 binary64) (.f64 D D)) (.f64 (.f64 M M) h)) (.f64 d d))
(.f64 (.f64 (/.f64 h (*.f64 d d)) (neg.f64 M)) (neg.f64 M))
(.f64 (.f64 (/.f64 h (*.f64 d d)) (fabs.f64 M)) (fabs.f64 M))
(.f64 (.f64 (/.f64 h (*.f64 d d)) M) M)
(.f64 (.f64 (/.f64 h d) M) (/.f64 M d))
(.f64 (/.f64 (.f64 M M) (neg.f64 d)) (/.f64 h (neg.f64 d)))
(.f64 (/.f64 (.f64 M M) (fabs.f64 d)) (/.f64 h (fabs.f64 d)))
(.f64 (/.f64 h d) (.f64 (/.f64 M d) M))
(.f64 (.f64 (/.f64 M d) M) (/.f64 h d))
(.f64 (.f64 M M) (/.f64 h (*.f64 d d)))
(.f64 (/.f64 h (.f64 d d)) (*.f64 M M))
(.f64 M (.f64 (/.f64 M d) (/.f64 h d)))
(/.f64 (/.f64 (.f64 (.f64 M M) h) (neg.f64 d)) (neg.f64 d))
(/.f64 (/.f64 (.f64 (.f64 M M) h) (fabs.f64 d)) (fabs.f64 d))
(/.f64 (.f64 (neg.f64 h) (.f64 (/.f64 M d) M)) (neg.f64 d))
(/.f64 (.f64 (.f64 (/.f64 M d) M) (neg.f64 h)) (neg.f64 d))
(/.f64 (neg.f64 (.f64 (.f64 (/.f64 M d) M) h)) (neg.f64 d))
(/.f64 (neg.f64 (.f64 (.f64 M M) h)) (*.f64 (neg.f64 d) d))
(/.f64 (.f64 (.f64 (neg.f64 M) M) (/.f64 h d)) (neg.f64 d))
(/.f64 (.f64 (/.f64 h d) (.f64 (neg.f64 M) M)) (neg.f64 d))
(/.f64 (.f64 (neg.f64 h) (.f64 (neg.f64 M) M)) (*.f64 d d))
(/.f64 (.f64 (neg.f64 h) (.f64 M M)) (*.f64 (neg.f64 d) d))
(/.f64 (.f64 h (.f64 (neg.f64 M) M)) (*.f64 (neg.f64 d) d))
(/.f64 (.f64 (.f64 (neg.f64 M) M) (neg.f64 h)) (*.f64 d d))
(/.f64 (.f64 (.f64 (neg.f64 M) M) h) (*.f64 (neg.f64 d) d))
(/.f64 (.f64 (.f64 M M) (neg.f64 h)) (*.f64 (neg.f64 d) d))
(/.f64 (.f64 (.f64 (/.f64 M d) M) h) d)
(/.f64 (.f64 (.f64 M M) h) (*.f64 d d))
(*.f64 (neg.f64 M) (/.f64 (neg.f64 M) d))
(*.f64 (fabs.f64 M) (/.f64 (fabs.f64 M) d))
(*.f64 (/.f64 M d) M)
(*.f64 M (/.f64 M d))
(/.f64 (*.f64 (neg.f64 M) M) (neg.f64 d))
(/.f64 (*.f64 M M) (neg.f64 (neg.f64 d)))
(/.f64 (*.f64 M M) d)
(neg.f64 (/.f64 (*.f64 (neg.f64 M) M) d))
(neg.f64 (/.f64 (*.f64 M M) (neg.f64 d)))

eval82.0ms (0.9%)

Memory: 5.6MiB live, 194.1MiB allocated; 26ms collecting garbage
Compiler: Compiled 29 321 to 3 663 computations (87.5% saved)

prune26.0ms (0.3%)

Memory

-16.9MiB live, 77.0MiB allocated; 4ms collecting garbage

Pruning

21 alts after pruning (19 fresh and 2 done)

	Pruned	Kept	Total
New	570	18	588
Fresh	0	1	1
Picked	4	1	5
Done	0	1	1
Total	574	21	595

Accuracy

92.2%

Counts

595 → 21

Alt Table

Click to see full alt table

Status	Accuracy	Program
	45.0%	(/.f64 (.f64 (sqrt.f64 (.f64 (-.f64 l (.f64 (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64)) h)) #s(literal 2 binary64))) w0) (sqrt.f64 (*.f64 l #s(literal 2 binary64))))
	48.3%	(.f64 w0 (/.f64 (sqrt.f64 (/.f64 (.f64 #s(literal -2 binary64) (-.f64 l (.f64 (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64)) h))) #s(literal -2 binary64))) (sqrt.f64 l)))
	38.5%	(.f64 w0 (/.f64 (sqrt.f64 (.f64 #s(literal -2 binary64) (-.f64 l (.f64 (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64)) h)))) (sqrt.f64 (*.f64 #s(literal -2 binary64) l))))
▶	86.9%	(.f64 w0 (sqrt.f64 (/.f64 (-.f64 (.f64 #s(literal 2 binary64) l) (.f64 #s(literal 2 binary64) (.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) (.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) h)))) (.f64 #s(literal 2 binary64) l))))
✓	80.6%	(.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.1%	(.f64 w0 (sqrt.f64 (-.f64 #s(literal 1 binary64) (.f64 (.f64 (/.f64 h l) (.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d))) (*.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d))))))
	13.7%	(.f64 w0 (sqrt.f64 #s(approx (/ (- ( 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 (.f64 (.f64 M M) D) D) h) (.f64 (*.f64 d d) l))))))
▶	79.3%	(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 (.f64 #s(literal -1/4 binary64) h) (.f64 (/.f64 D d) (.f64 (/.f64 M d) M))) (/.f64 D l) #s(literal 1 binary64)))))
▶	68.6%	(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 h #s(literal -1/4 binary64)) (/.f64 (.f64 (.f64 (.f64 M M) D) D) (.f64 (.f64 d l) d)) #s(literal 1 binary64)))))
	81.9%	(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 h #s(literal -1/4 binary64)) (.f64 (/.f64 (.f64 (.f64 M M) D) d) (/.f64 D (*.f64 d l))) #s(literal 1 binary64)))))
	63.8%	(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 h #s(literal -1/4 binary64)) (.f64 (.f64 (/.f64 M d) M) (/.f64 (.f64 D D) (*.f64 d l))) #s(literal 1 binary64)))))
	71.9%	(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 h #s(literal -1/4 binary64)) (.f64 M (.f64 (.f64 M D) (/.f64 D (.f64 (.f64 d d) l)))) #s(literal 1 binary64)))))
	66.7%	(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (/.f64 (-.f64 l (/.f64 (.f64 (.f64 (.f64 (.f64 #s(literal 1/4 binary64) (*.f64 D D)) M) (/.f64 M d)) h) d)) l))))
	72.3%	(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (/.f64 (-.f64 l (.f64 (.f64 (.f64 (.f64 (/.f64 h (.f64 d d)) M) M) (.f64 #s(literal 1/4 binary64) D)) D)) l))))
▶	68.8%	(.f64 w0 #s(approx (sqrt (/ (- ( 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(literal 1/2 binary64)))))
	70.4%	(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 (.f64 (/.f64 h (.f64 d d)) M) (/.f64 M l)) D) (*.f64 #s(literal -1/8 binary64) D) #s(literal 1 binary64))))
▶	63.0%	(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) (/.f64 (.f64 (.f64 (/.f64 M d) M) h) (*.f64 d l)) #s(literal 1 binary64))))
	52.7%	(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) (/.f64 (.f64 (.f64 M M) h) (.f64 (.f64 d d) l)) #s(literal 1 binary64))))
	11.9%	(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(approx (+ (* (* (* D D) -1/8) (* (/ h (* d d)) (/ (* M M) l))) 1) (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (.f64 (.f64 (.f64 M M) D) D) h) (.f64 (*.f64 d d) l))))))
	57.0%	#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (fma.f64 (/.f64 (.f64 (.f64 (.f64 (.f64 M M) D) D) (.f64 w0 h)) (.f64 (*.f64 d d) l)) #s(literal -1/8 binary64) w0))
✓	70.1%	#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) w0)

Compiler

Compiled 1 362 to 1 019 computations (25.2% saved)

simplify136.0ms (1.5%)

Memory

38.3MiB live, 222.5MiB allocated; 22ms collecting garbage

Localize:

Found 20 expressions of interest:

New	Metric	Score
cost-diff	0	(fma.f64 (.f64 (.f64 #s(literal -1/4 binary64) h) (.f64 (/.f64 D d) (.f64 (/.f64 M d) M))) (/.f64 D l) #s(literal 1 binary64))
cost-diff	0	#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 (.f64 #s(literal -1/4 binary64) h) (.f64 (/.f64 D d) (.f64 (/.f64 M d) M))) (/.f64 D l) #s(literal 1 binary64)))
cost-diff	0	(sqrt.f64 #s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 (.f64 #s(literal -1/4 binary64) h) (.f64 (/.f64 D d) (.f64 (/.f64 M d) M))) (/.f64 D l) #s(literal 1 binary64))))
cost-diff	0	(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 (.f64 #s(literal -1/4 binary64) h) (.f64 (/.f64 D d) (.f64 (/.f64 M d) M))) (/.f64 D l) #s(literal 1 binary64)))))
cost-diff	0	(fma.f64 (.f64 h #s(literal -1/4 binary64)) (/.f64 (.f64 (.f64 (.f64 M M) D) D) (.f64 (.f64 d l) d)) #s(literal 1 binary64))
cost-diff	0	#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 h #s(literal -1/4 binary64)) (/.f64 (.f64 (.f64 (.f64 M M) D) D) (.f64 (.f64 d l) d)) #s(literal 1 binary64)))
cost-diff	0	(sqrt.f64 #s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 h #s(literal -1/4 binary64)) (/.f64 (.f64 (.f64 (.f64 M M) D) D) (.f64 (.f64 d l) d)) #s(literal 1 binary64))))
cost-diff	0	(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 h #s(literal -1/4 binary64)) (/.f64 (.f64 (.f64 (.f64 M M) D) D) (.f64 (.f64 d l) d)) #s(literal 1 binary64)))))
cost-diff	0	(.f64 (.f64 D D) #s(literal -1/8 binary64))
cost-diff	0	(fma.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) (/.f64 (.f64 (.f64 (/.f64 M d) M) h) (*.f64 d l)) #s(literal 1 binary64))
cost-diff	0	#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) (/.f64 (.f64 (.f64 (/.f64 M d) M) h) (*.f64 d l)) #s(literal 1 binary64)))
cost-diff	0	(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) (/.f64 (.f64 (.f64 (/.f64 M d) M) h) (*.f64 d l)) #s(literal 1 binary64))))
cost-diff	0	(sqrt.f64 #s(literal 2 binary64))
cost-diff	0	(*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(literal 1/2 binary64)))
cost-diff	0	#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(literal 1/2 binary64))))
cost-diff	0	(.f64 w0 #s(approx (sqrt (/ (- ( 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(literal 1/2 binary64)))))
cost-diff	0	(.f64 w0 (sqrt.f64 (/.f64 (-.f64 (.f64 #s(literal 2 binary64) l) (.f64 #s(literal 2 binary64) (.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) (.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) h)))) (.f64 #s(literal 2 binary64) l))))
cost-diff	2	(-.f64 (.f64 #s(literal 2 binary64) l) (.f64 #s(literal 2 binary64) (.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) (.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) h))))
cost-diff	4	(/.f64 (-.f64 (.f64 #s(literal 2 binary64) l) (.f64 #s(literal 2 binary64) (.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) (.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) h)))) (*.f64 #s(literal 2 binary64) l))
cost-diff	6	(.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) (.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) h))

Iterations

Useful iterations: 2 (0.0ms)

Iter	Nodes	Cost
0	73	725
0	117	677
1	257	667
2	1068	657
3	6477	657
0	8122	657

Stop Event

1×	iter limit
1×	node limit
1×	iter limit

Calls

Call 1

Inputs
(.f64 w0 (sqrt.f64 (/.f64 (-.f64 (.f64 #s(literal 2 binary64) l) (.f64 #s(literal 2 binary64) (.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) (.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) h)))) (.f64 #s(literal 2 binary64) l))))
w0
(sqrt.f64 (/.f64 (-.f64 (.f64 #s(literal 2 binary64) l) (.f64 #s(literal 2 binary64) (.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) (.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) h)))) (*.f64 #s(literal 2 binary64) l)))
(/.f64 (-.f64 (.f64 #s(literal 2 binary64) l) (.f64 #s(literal 2 binary64) (.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) (.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) h)))) (*.f64 #s(literal 2 binary64) l))
(-.f64 (.f64 #s(literal 2 binary64) l) (.f64 #s(literal 2 binary64) (.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) (.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) h))))
(*.f64 #s(literal 2 binary64) l)
#s(literal 2 binary64)
l
(.f64 #s(literal 2 binary64) (.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) (.f64 (*.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) h)))
(.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) (.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) h))
(*.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M)
(/.f64 (/.f64 D d) #s(literal 2 binary64))
(/.f64 D d)
D
d
M
(.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) h)
h
(.f64 w0 #s(approx (sqrt (/ (- ( 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(literal 1/2 binary64)))))
w0
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(literal 1/2 binary64))))
(*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(literal 1/2 binary64)))
(sqrt.f64 #s(literal 2 binary64))
#s(literal 2 binary64)
(sqrt.f64 #s(literal 1/2 binary64))
#s(literal 1/2 binary64)
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) (/.f64 (.f64 (.f64 (/.f64 M d) M) h) (*.f64 d l)) #s(literal 1 binary64))))
w0
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) (/.f64 (.f64 (.f64 (/.f64 M d) M) h) (*.f64 d l)) #s(literal 1 binary64)))
(fma.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) (/.f64 (.f64 (.f64 (/.f64 M d) M) h) (*.f64 d l)) #s(literal 1 binary64))
(.f64 (.f64 D D) #s(literal -1/8 binary64))
(*.f64 D D)
D
#s(literal -1/8 binary64)
(/.f64 (.f64 (.f64 (/.f64 M d) M) h) (*.f64 d l))
(.f64 (.f64 (/.f64 M d) M) h)
(*.f64 (/.f64 M d) M)
(/.f64 M d)
M
d
h
(*.f64 d l)
l
#s(literal 1 binary64)
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 h #s(literal -1/4 binary64)) (/.f64 (.f64 (.f64 (.f64 M M) D) D) (.f64 (.f64 d l) d)) #s(literal 1 binary64)))))
w0
(sqrt.f64 #s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 h #s(literal -1/4 binary64)) (/.f64 (.f64 (.f64 (.f64 M M) D) D) (.f64 (.f64 d l) d)) #s(literal 1 binary64))))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 h #s(literal -1/4 binary64)) (/.f64 (.f64 (.f64 (.f64 M M) D) D) (.f64 (.f64 d l) d)) #s(literal 1 binary64)))
(fma.f64 (.f64 h #s(literal -1/4 binary64)) (/.f64 (.f64 (.f64 (.f64 M M) D) D) (.f64 (.f64 d l) d)) #s(literal 1 binary64))
(*.f64 h #s(literal -1/4 binary64))
h
#s(literal -1/4 binary64)
(/.f64 (.f64 (.f64 (.f64 M M) D) D) (.f64 (*.f64 d l) d))
(.f64 (.f64 (*.f64 M M) D) D)
(.f64 (.f64 M M) D)
(*.f64 M M)
M
D
(.f64 (.f64 d l) d)
(*.f64 d l)
d
l
#s(literal 1 binary64)
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 (.f64 #s(literal -1/4 binary64) h) (.f64 (/.f64 D d) (.f64 (/.f64 M d) M))) (/.f64 D l) #s(literal 1 binary64)))))
w0
(sqrt.f64 #s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 (.f64 #s(literal -1/4 binary64) h) (.f64 (/.f64 D d) (.f64 (/.f64 M d) M))) (/.f64 D l) #s(literal 1 binary64))))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 (.f64 #s(literal -1/4 binary64) h) (.f64 (/.f64 D d) (.f64 (/.f64 M d) M))) (/.f64 D l) #s(literal 1 binary64)))
(fma.f64 (.f64 (.f64 #s(literal -1/4 binary64) h) (.f64 (/.f64 D d) (.f64 (/.f64 M d) M))) (/.f64 D l) #s(literal 1 binary64))
(.f64 (.f64 #s(literal -1/4 binary64) h) (.f64 (/.f64 D d) (.f64 (/.f64 M d) M)))
(*.f64 #s(literal -1/4 binary64) h)
#s(literal -1/4 binary64)
h
(.f64 (/.f64 D d) (.f64 (/.f64 M d) M))
(/.f64 D d)
D
d
(*.f64 (/.f64 M d) M)
(/.f64 M d)
M
(/.f64 D l)
l
#s(literal 1 binary64)

Outputs
(.f64 w0 (sqrt.f64 (/.f64 (-.f64 (.f64 #s(literal 2 binary64) l) (.f64 #s(literal 2 binary64) (.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) (.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) h)))) (.f64 #s(literal 2 binary64) l))))
(.f64 (sqrt.f64 (fma.f64 (/.f64 (neg.f64 h) l) (pow.f64 (.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(literal 1 binary64))) w0)
w0
(sqrt.f64 (/.f64 (-.f64 (.f64 #s(literal 2 binary64) l) (.f64 #s(literal 2 binary64) (.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) (.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) h)))) (*.f64 #s(literal 2 binary64) l)))
(sqrt.f64 (fma.f64 (/.f64 (neg.f64 h) l) (pow.f64 (*.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(literal 1 binary64)))
(/.f64 (-.f64 (.f64 #s(literal 2 binary64) l) (.f64 #s(literal 2 binary64) (.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) (.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) h)))) (*.f64 #s(literal 2 binary64) l))
(fma.f64 (/.f64 (neg.f64 h) l) (pow.f64 (*.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(literal 1 binary64))
(-.f64 (.f64 #s(literal 2 binary64) l) (.f64 #s(literal 2 binary64) (.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) (.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) h))))
(.f64 (fma.f64 (neg.f64 h) (pow.f64 (.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64))) #s(literal 2 binary64)) l) #s(literal 2 binary64))
(*.f64 #s(literal 2 binary64) l)
(*.f64 l #s(literal 2 binary64))
#s(literal 2 binary64)
l
(.f64 #s(literal 2 binary64) (.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) (.f64 (*.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) h)))
(.f64 (.f64 (pow.f64 (*.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(literal 2 binary64)) h)
(.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) (.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) h))
(.f64 (pow.f64 (.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64))) #s(literal 2 binary64)) h)
(*.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M)
(*.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64)))
(/.f64 (/.f64 D d) #s(literal 2 binary64))
(/.f64 D d)
D
d
M
(.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) h)
(.f64 h (.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64))))
h
(.f64 w0 #s(approx (sqrt (/ (- ( 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(literal 1/2 binary64)))))
(.f64 #s(approx (sqrt (/ (- ( 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64)))) w0)
w0
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(literal 1/2 binary64))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))))
(*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(literal 1/2 binary64)))
(*.f64 (sqrt.f64 #s(literal 1/2 binary64)) (sqrt.f64 #s(literal 2 binary64)))
(sqrt.f64 #s(literal 2 binary64))
#s(literal 2 binary64)
(sqrt.f64 #s(literal 1/2 binary64))
#s(literal 1/2 binary64)
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) (/.f64 (.f64 (.f64 (/.f64 M d) M) h) (*.f64 d l)) #s(literal 1 binary64))))
(.f64 #s(approx (sqrt (/ (- ( 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) (/.f64 (fma.f64 (.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) h) (/.f64 (.f64 (/.f64 M d) M) d) l) l)) w0)
w0
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) (/.f64 (.f64 (.f64 (/.f64 M d) M) h) (*.f64 d l)) #s(literal 1 binary64)))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) (/.f64 (fma.f64 (.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) h) (/.f64 (.f64 (/.f64 M d) M) d) l) l))
(fma.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) (/.f64 (.f64 (.f64 (/.f64 M d) M) h) (*.f64 d l)) #s(literal 1 binary64))
(/.f64 (fma.f64 (.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) h) (/.f64 (.f64 (/.f64 M d) M) d) l) l)
(.f64 (.f64 D D) #s(literal -1/8 binary64))
(.f64 #s(literal -1/8 binary64) (.f64 D D))
(*.f64 D D)
D
#s(literal -1/8 binary64)
(/.f64 (.f64 (.f64 (/.f64 M d) M) h) (*.f64 d l))
(.f64 (/.f64 (.f64 (/.f64 M d) h) d) (/.f64 M l))
(.f64 (.f64 (/.f64 M d) M) h)
(*.f64 (/.f64 M d) M)
(/.f64 M d)
M
d
h
(*.f64 d l)
l
#s(literal 1 binary64)
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 h #s(literal -1/4 binary64)) (/.f64 (.f64 (.f64 (.f64 M M) D) D) (.f64 (.f64 d l) d)) #s(literal 1 binary64)))))
(.f64 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (/.f64 #s(literal -1/4 binary64) (.f64 d d)) (/.f64 (.f64 (.f64 (.f64 (*.f64 M M) D) D) h) l) #s(literal 1 binary64)))) w0)
w0
(sqrt.f64 #s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 h #s(literal -1/4 binary64)) (/.f64 (.f64 (.f64 (.f64 M M) D) D) (.f64 (.f64 d l) d)) #s(literal 1 binary64))))
(sqrt.f64 #s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (/.f64 #s(literal -1/4 binary64) (.f64 d d)) (/.f64 (.f64 (.f64 (.f64 (*.f64 M M) D) D) h) l) #s(literal 1 binary64))))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 h #s(literal -1/4 binary64)) (/.f64 (.f64 (.f64 (.f64 M M) D) D) (.f64 (.f64 d l) d)) #s(literal 1 binary64)))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (/.f64 #s(literal -1/4 binary64) (.f64 d d)) (/.f64 (.f64 (.f64 (.f64 (*.f64 M M) D) D) h) l) #s(literal 1 binary64)))
(fma.f64 (.f64 h #s(literal -1/4 binary64)) (/.f64 (.f64 (.f64 (.f64 M M) D) D) (.f64 (.f64 d l) d)) #s(literal 1 binary64))
(fma.f64 (/.f64 #s(literal -1/4 binary64) (.f64 d d)) (/.f64 (.f64 (.f64 (.f64 (*.f64 M M) D) D) h) l) #s(literal 1 binary64))
(*.f64 h #s(literal -1/4 binary64))
(*.f64 #s(literal -1/4 binary64) h)
h
#s(literal -1/4 binary64)
(/.f64 (.f64 (.f64 (.f64 M M) D) D) (.f64 (*.f64 d l) d))
(.f64 (/.f64 D (.f64 d d)) (/.f64 (.f64 (.f64 M M) D) l))
(.f64 (.f64 (*.f64 M M) D) D)
(.f64 (.f64 M M) D)
(*.f64 M M)
M
D
(.f64 (.f64 d l) d)
(*.f64 d l)
d
l
#s(literal 1 binary64)
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 (.f64 #s(literal -1/4 binary64) h) (.f64 (/.f64 D d) (.f64 (/.f64 M d) M))) (/.f64 D l) #s(literal 1 binary64)))))
(.f64 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (/.f64 #s(literal -1/4 binary64) (.f64 d d)) (/.f64 (.f64 (.f64 (.f64 (*.f64 M M) D) D) h) l) #s(literal 1 binary64)))) w0)
w0
(sqrt.f64 #s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 (.f64 #s(literal -1/4 binary64) h) (.f64 (/.f64 D d) (.f64 (/.f64 M d) M))) (/.f64 D l) #s(literal 1 binary64))))
(sqrt.f64 #s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (/.f64 #s(literal -1/4 binary64) (.f64 d d)) (/.f64 (.f64 (.f64 (.f64 (*.f64 M M) D) D) h) l) #s(literal 1 binary64))))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 (.f64 #s(literal -1/4 binary64) h) (.f64 (/.f64 D d) (.f64 (/.f64 M d) M))) (/.f64 D l) #s(literal 1 binary64)))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (/.f64 #s(literal -1/4 binary64) (.f64 d d)) (/.f64 (.f64 (.f64 (.f64 (*.f64 M M) D) D) h) l) #s(literal 1 binary64)))
(fma.f64 (.f64 (.f64 #s(literal -1/4 binary64) h) (.f64 (/.f64 D d) (.f64 (/.f64 M d) M))) (/.f64 D l) #s(literal 1 binary64))
(fma.f64 (/.f64 #s(literal -1/4 binary64) (.f64 d d)) (/.f64 (.f64 (.f64 (.f64 (*.f64 M M) D) D) h) l) #s(literal 1 binary64))
(.f64 (.f64 #s(literal -1/4 binary64) h) (.f64 (/.f64 D d) (.f64 (/.f64 M d) M)))
(.f64 (.f64 (.f64 (/.f64 M d) D) M) (.f64 #s(literal -1/4 binary64) (/.f64 h d)))
(*.f64 #s(literal -1/4 binary64) h)
#s(literal -1/4 binary64)
h
(.f64 (/.f64 D d) (.f64 (/.f64 M d) M))
(.f64 (.f64 (/.f64 M d) D) (/.f64 M d))
(/.f64 D d)
D
d
(*.f64 (/.f64 M d) M)
(/.f64 M d)
M
(/.f64 D l)
l
#s(literal 1 binary64)

localize254.0ms (2.8%)

Memory

-15.0MiB live, 333.5MiB allocated; 139ms collecting garbage

Localize:

Found 20 expressions of interest:

New	Metric	Score
accuracy	4.580096984380893	(fma.f64 (.f64 (.f64 #s(literal -1/4 binary64) h) (.f64 (/.f64 D d) (.f64 (/.f64 M d) M))) (/.f64 D l) #s(literal 1 binary64))
accuracy	5.317749939093225	(.f64 (.f64 #s(literal -1/4 binary64) h) (.f64 (/.f64 D d) (.f64 (/.f64 M d) M)))
accuracy	5.860770706292823	(sqrt.f64 #s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 (.f64 #s(literal -1/4 binary64) h) (.f64 (/.f64 D d) (.f64 (/.f64 M d) M))) (/.f64 D l) #s(literal 1 binary64))))
accuracy	6.667935589777013	(.f64 (/.f64 D d) (.f64 (/.f64 M d) M))
accuracy	4.93710707583727	(.f64 (.f64 (*.f64 M M) D) D)
accuracy	5.860770706292823	(sqrt.f64 #s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 h #s(literal -1/4 binary64)) (/.f64 (.f64 (.f64 (.f64 M M) D) D) (.f64 (.f64 d l) d)) #s(literal 1 binary64))))
accuracy	6.233555505547666	(.f64 (.f64 M M) D)
accuracy	15.903143031054922	(/.f64 (.f64 (.f64 (.f64 M M) D) D) (.f64 (*.f64 d l) d))
accuracy	5.936067086787061	(.f64 (.f64 (/.f64 M d) M) h)
accuracy	7.446671966112151	(/.f64 (.f64 (.f64 (/.f64 M d) M) h) (*.f64 d l))
accuracy	11.996290279822626	#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) (/.f64 (.f64 (.f64 (/.f64 M d) M) h) (*.f64 d l)) #s(literal 1 binary64)))
accuracy	14.474916672867947	(fma.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) (/.f64 (.f64 (.f64 (/.f64 M d) M) h) (*.f64 d l)) #s(literal 1 binary64))
accuracy	0.0	(sqrt.f64 #s(literal 1/2 binary64))
accuracy	1.0	(*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(literal 1/2 binary64)))
accuracy	2.614689582928147	(.f64 w0 #s(approx (sqrt (/ (- ( 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(literal 1/2 binary64)))))
accuracy	19.34295497021385	#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(literal 1/2 binary64))))
accuracy	2.614689582928147	(.f64 w0 (sqrt.f64 (/.f64 (-.f64 (.f64 #s(literal 2 binary64) l) (.f64 #s(literal 2 binary64) (.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) (.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) h)))) (.f64 #s(literal 2 binary64) l))))
accuracy	3.6727564500181575	(*.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M)
accuracy	5.361824406032334	(.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) h)
accuracy	5.860770706292823	(sqrt.f64 (/.f64 (-.f64 (.f64 #s(literal 2 binary64) l) (.f64 #s(literal 2 binary64) (.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) (.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) h)))) (*.f64 #s(literal 2 binary64) l)))

Samples

203.0ms

256×

valid

Compiler

Compiled 566 to 68 computations (88% saved)

Precisions

Click to see histograms. Total time spent on operations: 131.0ms

ival-mult: 82.0ms (62.4% of total)

ival-div: 17.0ms (12.9% of total)

ival-add: 12.0ms (9.1% of total)

ival-sqrt: 12.0ms (9.1% of total)

ival-pow2: 5.0ms (3.8% of total)

ival-sub: 4.0ms (3% of total)

exact: 1.0ms (0.8% of total)

adjust: 0.0ms (0% of total)

ival-assert: 0.0ms (0% of total)

ival-true: 0.0ms (0% of total)

series263.0ms (2.9%)

Memory

-28.6MiB live, 305.0MiB allocated; 50ms collecting garbage

Counts

31 → 304

Calls

Call 1

Inputs
(.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) (.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) h))
(/.f64 (-.f64 (.f64 #s(literal 2 binary64) l) (.f64 #s(literal 2 binary64) (.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) (.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) h)))) (*.f64 #s(literal 2 binary64) l))
(-.f64 (.f64 #s(literal 2 binary64) l) (.f64 #s(literal 2 binary64) (.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) (.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) h))))
(.f64 w0 (sqrt.f64 (/.f64 (-.f64 (.f64 #s(literal 2 binary64) l) (.f64 #s(literal 2 binary64) (.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) (.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) h)))) (.f64 #s(literal 2 binary64) l))))
(.f64 w0 #s(approx (sqrt (/ (- ( 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(literal 1/2 binary64)))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(literal 1/2 binary64))))
(*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(literal 1/2 binary64)))
(sqrt.f64 #s(literal 2 binary64))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) (/.f64 (.f64 (.f64 (/.f64 M d) M) h) (*.f64 d l)) #s(literal 1 binary64))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) (/.f64 (.f64 (.f64 (/.f64 M d) M) h) (*.f64 d l)) #s(literal 1 binary64)))
(fma.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) (/.f64 (.f64 (.f64 (/.f64 M d) M) h) (*.f64 d l)) #s(literal 1 binary64))
(.f64 (.f64 D D) #s(literal -1/8 binary64))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 h #s(literal -1/4 binary64)) (/.f64 (.f64 (.f64 (.f64 M M) D) D) (.f64 (.f64 d l) d)) #s(literal 1 binary64)))))
(sqrt.f64 #s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 h #s(literal -1/4 binary64)) (/.f64 (.f64 (.f64 (.f64 M M) D) D) (.f64 (.f64 d l) d)) #s(literal 1 binary64))))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 h #s(literal -1/4 binary64)) (/.f64 (.f64 (.f64 (.f64 M M) D) D) (.f64 (.f64 d l) d)) #s(literal 1 binary64)))
(fma.f64 (.f64 h #s(literal -1/4 binary64)) (/.f64 (.f64 (.f64 (.f64 M M) D) D) (.f64 (.f64 d l) d)) #s(literal 1 binary64))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 (.f64 #s(literal -1/4 binary64) h) (.f64 (/.f64 D d) (.f64 (/.f64 M d) M))) (/.f64 D l) #s(literal 1 binary64)))))
(sqrt.f64 #s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 (.f64 #s(literal -1/4 binary64) h) (.f64 (/.f64 D d) (.f64 (/.f64 M d) M))) (/.f64 D l) #s(literal 1 binary64))))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 (.f64 #s(literal -1/4 binary64) h) (.f64 (/.f64 D d) (.f64 (/.f64 M d) M))) (/.f64 D l) #s(literal 1 binary64)))
(fma.f64 (.f64 (.f64 #s(literal -1/4 binary64) h) (.f64 (/.f64 D d) (.f64 (/.f64 M d) M))) (/.f64 D l) #s(literal 1 binary64))
(sqrt.f64 (/.f64 (-.f64 (.f64 #s(literal 2 binary64) l) (.f64 #s(literal 2 binary64) (.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) (.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) h)))) (*.f64 #s(literal 2 binary64) l)))
(.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) h)
(*.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M)
(sqrt.f64 #s(literal 1/2 binary64))
(/.f64 (.f64 (.f64 (/.f64 M d) M) h) (*.f64 d l))
(.f64 (.f64 (/.f64 M d) M) h)
(/.f64 (.f64 (.f64 (.f64 M M) D) D) (.f64 (*.f64 d l) d))
(.f64 (.f64 M M) D)
(.f64 (.f64 (*.f64 M M) D) D)
(.f64 (/.f64 D d) (.f64 (/.f64 M d) M))
(.f64 (.f64 #s(literal -1/4 binary64) h) (.f64 (/.f64 D d) (.f64 (/.f64 M d) M)))

Outputs
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)))) #s(hole binary64 (* (sqrt (/ (- (* 2 l) (* 1/2 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l)) (* w0 (sqrt 1/2)))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (* (sqrt (/ (- (* 2 l) (* 1/2 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l)) (* w0 (sqrt 1/2)))))
#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 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)) #s(hole binary64 (* 1/4 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))))
#s(approx (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)) #s(hole binary64 1))
#s(approx (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)) #s(hole binary64 (+ 1 (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))))))
#s(approx (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) #s(hole binary64 (* 2 l)))
#s(approx (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) #s(hole binary64 (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2))) (* 2 l))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)))) #s(hole binary64 (* w0 (* (sqrt 1/2) (sqrt 2)))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)))) #s(hole binary64 (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (* h (* w0 (sqrt 1/2))))) (* (pow d 2) (* l (sqrt 2))))) (* w0 (* (sqrt 1/2) (sqrt 2))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)))) #s(hole binary64 (+ (* w0 (* (sqrt 1/2) (sqrt 2))) (* (pow M 2) (+ (* -1/4 (/ (* (pow D 2) (* h (* w0 (sqrt 1/2)))) (* (pow d 2) (* l (sqrt 2))))) (* -1/32 (/ (* (pow D 4) (* (pow M 2) (* (pow h 2) (* w0 (sqrt 1/2))))) (* (pow d 4) (* (pow l 2) (pow (sqrt 2) 3))))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)))) #s(hole binary64 (+ (* w0 (* (sqrt 1/2) (sqrt 2))) (* (pow M 2) (+ (* -1/4 (/ (* (pow D 2) (* h (* w0 (sqrt 1/2)))) (* (pow d 2) (* l (sqrt 2))))) (* (pow M 2) (+ (* -1/32 (/ (* (pow D 4) (* (pow h 2) (* w0 (sqrt 1/2)))) (* (pow d 4) (* (pow l 2) (pow (sqrt 2) 3))))) (* -1/128 (/ (* (pow D 6) (* (pow M 2) (* (pow h 3) (* w0 (sqrt 1/2))))) (* (pow d 6) (* (pow l 3) (pow (sqrt 2) 5))))))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (* w0 (* (sqrt 1/2) (sqrt 2)))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (* h (* w0 (sqrt 1/2))))) (* (pow d 2) (* l (sqrt 2))))) (* w0 (* (sqrt 1/2) (sqrt 2))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (+ (* w0 (* (sqrt 1/2) (sqrt 2))) (* (pow M 2) (+ (* -1/4 (/ (* (pow D 2) (* h (* w0 (sqrt 1/2)))) (* (pow d 2) (* l (sqrt 2))))) (* -1/32 (/ (* (pow D 4) (* (pow M 2) (* (pow h 2) (* w0 (sqrt 1/2))))) (* (pow d 4) (* (pow l 2) (pow (sqrt 2) 3))))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (+ (* w0 (* (sqrt 1/2) (sqrt 2))) (* (pow M 2) (+ (* -1/4 (/ (* (pow D 2) (* h (* w0 (sqrt 1/2)))) (* (pow d 2) (* l (sqrt 2))))) (* (pow M 2) (+ (* -1/32 (/ (* (pow D 4) (* (pow h 2) (* w0 (sqrt 1/2)))) (* (pow d 4) (* (pow l 2) (pow (sqrt 2) 3))))) (* -1/128 (/ (* (pow D 6) (* (pow M 2) (* (pow h 3) (* w0 (sqrt 1/2))))) (* (pow d 6) (* (pow l 3) (pow (sqrt 2) 5))))))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (* (sqrt 1/2) (sqrt 2))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (* h (sqrt 1/2)))) (* (pow d 2) (* l (sqrt 2))))) (* (sqrt 1/2) (sqrt 2)))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (+ (* (sqrt 1/2) (sqrt 2)) (* (pow M 2) (+ (* -1/4 (/ (* (pow D 2) (* h (sqrt 1/2))) (* (pow d 2) (* l (sqrt 2))))) (* -1/32 (/ (* (pow D 4) (* (pow M 2) (* (pow h 2) (sqrt 1/2)))) (* (pow d 4) (* (pow l 2) (pow (sqrt 2) 3))))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (+ (* (sqrt 1/2) (sqrt 2)) (* (pow M 2) (+ (* -1/4 (/ (* (pow D 2) (* h (sqrt 1/2))) (* (pow d 2) (* l (sqrt 2))))) (* (pow M 2) (+ (* -1/32 (/ (* (pow D 4) (* (pow h 2) (sqrt 1/2))) (* (pow d 4) (* (pow l 2) (pow (sqrt 2) 3))))) (* -1/128 (/ (* (pow D 6) (* (pow M 2) (* (pow h 3) (sqrt 1/2)))) (* (pow d 6) (* (pow l 3) (pow (sqrt 2) 5))))))))))))
#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 (+ (* (* (* D D) -1/8) (/ (* (* (/ M d) M) h) (* d l))) 1) #s(hole binary64 1))
#s(approx (+ (* (* (* D D) -1/8) (/ (* (* (/ M d) M) h) (* d l))) 1) #s(hole binary64 (+ 1 (* -1/8 (/ (* (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 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 (+ (* (* h -1/4) (/ (* (* (* M M) D) D) (* (* d l) d))) 1) #s(hole binary64 1))
#s(approx (+ (* (* h -1/4) (/ (* (* (* M M) D) D) (* (* d l) d))) 1) #s(hole binary64 (+ 1 (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))))))
#s(approx (+ (* (* (* -1/4 h) (* (/ D d) (* (/ M d) M))) (/ D l)) 1) #s(hole binary64 1))
#s(approx (+ (* (* (* -1/4 h) (* (/ D d) (* (/ M d) M))) (/ D l)) 1) #s(hole binary64 (+ 1 (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l))) #s(hole binary64 (* (sqrt 1/2) (sqrt 2))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l))) #s(hole binary64 (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (* h (sqrt 1/2)))) (* (pow d 2) (* l (sqrt 2))))) (* (sqrt 1/2) (sqrt 2)))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l))) #s(hole binary64 (+ (* (sqrt 1/2) (sqrt 2)) (* (pow M 2) (+ (* -1/4 (/ (* (pow D 2) (* h (sqrt 1/2))) (* (pow d 2) (* l (sqrt 2))))) (* -1/32 (/ (* (pow D 4) (* (pow M 2) (* (pow h 2) (sqrt 1/2)))) (* (pow d 4) (* (pow l 2) (pow (sqrt 2) 3))))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l))) #s(hole binary64 (+ (* (sqrt 1/2) (sqrt 2)) (* (pow M 2) (+ (* -1/4 (/ (* (pow D 2) (* h (sqrt 1/2))) (* (pow d 2) (* l (sqrt 2))))) (* (pow M 2) (+ (* -1/32 (/ (* (pow D 4) (* (pow h 2) (sqrt 1/2))) (* (pow d 4) (* (pow l 2) (pow (sqrt 2) 3))))) (* -1/128 (/ (* (pow D 6) (* (pow M 2) (* (pow h 3) (sqrt 1/2)))) (* (pow d 6) (* (pow l 3) (pow (sqrt 2) 5))))))))))))
#s(approx (* (* (/ (/ D d) 2) M) h) #s(hole binary64 (* 1/2 (/ (* D (* M h)) d))))
#s(approx (* (/ (/ D d) 2) M) #s(hole binary64 (* 1/2 (/ (* D M) d))))
#s(approx (/ (* (* (/ M d) M) h) (* d l)) #s(hole binary64 (/ (* (pow M 2) h) (* (pow d 2) l))))
#s(approx (* (* (/ M d) M) h) #s(hole binary64 (/ (* (pow M 2) h) d)))
#s(approx (/ (* (* (* M M) D) D) (* (* d l) d)) #s(hole binary64 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))))
#s(approx (* (* M M) D) #s(hole binary64 (* D (pow M 2))))
#s(approx (* (* (* M M) D) D) #s(hole binary64 (* (pow D 2) (pow M 2))))
#s(approx (* (/ D d) (* (/ M d) M)) #s(hole binary64 (/ (* D (pow M 2)) (pow d 2))))
#s(approx (* (* -1/4 h) (* (/ D d) (* (/ M d) M))) #s(hole binary64 (* -1/4 (/ (* D (* (pow M 2) h)) (pow d 2)))))
#s(approx (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)) #s(hole binary64 (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l)))))
#s(approx (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)) #s(hole binary64 (* (pow M 2) (+ (* -1/4 (/ (* (pow D 2) h) (* (pow d 2) l))) (/ 1 (pow M 2))))))
#s(approx (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) #s(hole binary64 (* -1/2 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))))
#s(approx (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) #s(hole binary64 (* (pow M 2) (- (* 2 (/ l (pow M 2))) (* 1/2 (/ (* (pow D 2) h) (pow d 2)))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)))) #s(hole binary64 (* (/ (* D (* M (* w0 (* (sqrt -1/2) (sqrt 1/2))))) d) (sqrt (/ h l)))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)))) #s(hole binary64 (* M (+ (* (/ (* D (* w0 (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (/ h l))) (* (/ (* d (* w0 (sqrt 1/2))) (* D (* (pow M 2) (sqrt -1/2)))) (sqrt (/ l h)))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)))) #s(hole binary64 (* M (+ (* -1/2 (* (/ (* (pow d 3) (* w0 (sqrt 1/2))) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* (/ (* D (* w0 (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (/ h l))) (* (/ (* d (* w0 (sqrt 1/2))) (* D (* (pow M 2) (sqrt -1/2)))) (sqrt (/ l h))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)))) #s(hole binary64 (* M (+ (* -1/2 (* (/ (* (pow d 3) (* w0 (sqrt 1/2))) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ (* (pow d 5) (* w0 (sqrt 1/2))) (* (pow D 5) (* (pow M 6) (pow (sqrt -1/2) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* (/ (* D (* w0 (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (/ h l))) (* (/ (* d (* w0 (sqrt 1/2))) (* D (* (pow M 2) (sqrt -1/2)))) (sqrt (/ l h)))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (* (/ (* D (* M (* w0 (* (sqrt -1/2) (sqrt 1/2))))) d) (sqrt (/ h l)))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (* M (+ (* (/ (* D (* w0 (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (/ h l))) (* (/ (* d (* w0 (sqrt 1/2))) (* D (* (pow M 2) (sqrt -1/2)))) (sqrt (/ l h)))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (* M (+ (* -1/2 (* (/ (* (pow d 3) (* w0 (sqrt 1/2))) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* (/ (* D (* w0 (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (/ h l))) (* (/ (* d (* w0 (sqrt 1/2))) (* D (* (pow M 2) (sqrt -1/2)))) (sqrt (/ l h))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (* M (+ (* -1/2 (* (/ (* (pow d 3) (* w0 (sqrt 1/2))) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ (* (pow d 5) (* w0 (sqrt 1/2))) (* (pow D 5) (* (pow M 6) (pow (sqrt -1/2) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* (/ (* D (* w0 (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (/ h l))) (* (/ (* d (* w0 (sqrt 1/2))) (* D (* (pow M 2) (sqrt -1/2)))) (sqrt (/ l h)))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (* (/ (* D (* M (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (/ h l)))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (* M (+ (* (/ (* D (* (sqrt -1/2) (sqrt 1/2))) d) (sqrt (/ h l))) (* (/ (* d (sqrt 1/2)) (* D (* (pow M 2) (sqrt -1/2)))) (sqrt (/ l h)))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (* M (+ (* -1/2 (* (/ (* (pow d 3) (sqrt 1/2)) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* (/ (* D (* (sqrt -1/2) (sqrt 1/2))) d) (sqrt (/ h l))) (* (/ (* d (sqrt 1/2)) (* D (* (pow M 2) (sqrt -1/2)))) (sqrt (/ l h))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (* M (+ (* -1/2 (* (/ (* (pow d 3) (sqrt 1/2)) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ (* (pow d 5) (sqrt 1/2)) (* (pow D 5) (* (pow M 6) (pow (sqrt -1/2) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* (/ (* D (* (sqrt -1/2) (sqrt 1/2))) d) (sqrt (/ h l))) (* (/ (* d (sqrt 1/2)) (* D (* (pow M 2) (sqrt -1/2)))) (sqrt (/ l h)))))))))
#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) 3)))) (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) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 5) (* (pow M 6) (pow (sqrt -1/4) 5)))) (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) 3)))) (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) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (pow d 5) (* (pow D 5) (* (pow M 6) (pow (sqrt -1/4) 5)))) (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 (+ (* (* (* D D) -1/8) (/ (* (* (/ M d) M) h) (* d l))) 1) #s(hole binary64 (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l)))))
#s(approx (+ (* (* (* D D) -1/8) (/ (* (* (/ M d) M) h) (* d l))) 1) #s(hole binary64 (* (pow M 2) (+ (* -1/8 (/ (* (pow D 2) h) (* (pow d 2) l))) (/ 1 (pow M 2))))))
#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 (+ (* (* h -1/4) (/ (* (* (* M M) D) D) (* (* d l) d))) 1) #s(hole binary64 (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l)))))
#s(approx (+ (* (* h -1/4) (/ (* (* (* M M) D) D) (* (* d l) d))) 1) #s(hole binary64 (* (pow M 2) (+ (* -1/4 (/ (* (pow D 2) h) (* (pow d 2) l))) (/ 1 (pow M 2))))))
#s(approx (+ (* (* (* -1/4 h) (* (/ D d) (* (/ M d) M))) (/ D l)) 1) #s(hole binary64 (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l)))))
#s(approx (+ (* (* (* -1/4 h) (* (/ D d) (* (/ M d) M))) (/ D l)) 1) #s(hole binary64 (* (pow M 2) (+ (* -1/4 (/ (* (pow D 2) h) (* (pow d 2) l))) (/ 1 (pow M 2))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l))) #s(hole binary64 (* (/ (* D (* M (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (/ h l)))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l))) #s(hole binary64 (* M (+ (* (/ (* D (* (sqrt -1/2) (sqrt 1/2))) d) (sqrt (/ h l))) (* (/ (* d (sqrt 1/2)) (* D (* (pow M 2) (sqrt -1/2)))) (sqrt (/ l h)))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l))) #s(hole binary64 (* M (+ (* -1/2 (* (/ (* (pow d 3) (sqrt 1/2)) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* (/ (* D (* (sqrt -1/2) (sqrt 1/2))) d) (sqrt (/ h l))) (* (/ (* d (sqrt 1/2)) (* D (* (pow M 2) (sqrt -1/2)))) (sqrt (/ l h))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l))) #s(hole binary64 (* M (+ (* -1/2 (* (/ (* (pow d 3) (sqrt 1/2)) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ (* (pow d 5) (sqrt 1/2)) (* (pow D 5) (* (pow M 6) (pow (sqrt -1/2) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* (/ (* D (* (sqrt -1/2) (sqrt 1/2))) d) (sqrt (/ h l))) (* (/ (* d (sqrt 1/2)) (* D (* (pow M 2) (sqrt -1/2)))) (sqrt (/ l h)))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)))) #s(hole binary64 (* -1 (* (/ (* D (* M (* w0 (* (sqrt -1/2) (sqrt 1/2))))) d) (sqrt (/ h l))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)))) #s(hole binary64 (* -1 (* M (+ (* (/ (* D (* w0 (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (/ h l))) (* (/ (* d (* w0 (sqrt 1/2))) (* D (* (pow M 2) (sqrt -1/2)))) (sqrt (/ l h))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)))) #s(hole binary64 (* -1 (* M (+ (* -1/2 (* (/ (* (pow d 3) (* w0 (sqrt 1/2))) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* (/ (* D (* w0 (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (/ h l))) (* (/ (* d (* w0 (sqrt 1/2))) (* D (* (pow M 2) (sqrt -1/2)))) (sqrt (/ l h)))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)))) #s(hole binary64 (* -1 (* M (+ (* -1/2 (* (/ (* (pow d 3) (* w0 (sqrt 1/2))) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ (* (pow d 5) (* w0 (sqrt 1/2))) (* (pow D 5) (* (pow M 6) (pow (sqrt -1/2) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* (/ (* D (* w0 (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (/ h l))) (* (/ (* d (* w0 (sqrt 1/2))) (* D (* (pow M 2) (sqrt -1/2)))) (sqrt (/ l h))))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (* -1 (* (/ (* D (* M (* w0 (* (sqrt -1/2) (sqrt 1/2))))) d) (sqrt (/ h l))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (* -1 (* M (+ (* (/ (* D (* w0 (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (/ h l))) (* (/ (* d (* w0 (sqrt 1/2))) (* D (* (pow M 2) (sqrt -1/2)))) (sqrt (/ l h))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (* -1 (* M (+ (* -1/2 (* (/ (* (pow d 3) (* w0 (sqrt 1/2))) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* (/ (* D (* w0 (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (/ h l))) (* (/ (* d (* w0 (sqrt 1/2))) (* D (* (pow M 2) (sqrt -1/2)))) (sqrt (/ l h)))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (* -1 (* M (+ (* -1/2 (* (/ (* (pow d 3) (* w0 (sqrt 1/2))) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ (* (pow d 5) (* w0 (sqrt 1/2))) (* (pow D 5) (* (pow M 6) (pow (sqrt -1/2) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* (/ (* D (* w0 (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (/ h l))) (* (/ (* d (* w0 (sqrt 1/2))) (* D (* (pow M 2) (sqrt -1/2)))) (sqrt (/ l h))))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (* -1 (* (/ (* D (* M (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (/ h l))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (* -1 (* M (+ (* (/ (* D (* (sqrt -1/2) (sqrt 1/2))) d) (sqrt (/ h l))) (* (/ (* d (sqrt 1/2)) (* D (* (pow M 2) (sqrt -1/2)))) (sqrt (/ l h))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (* -1 (* M (+ (* -1/2 (* (/ (* (pow d 3) (sqrt 1/2)) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* (/ (* D (* (sqrt -1/2) (sqrt 1/2))) d) (sqrt (/ h l))) (* (/ (* d (sqrt 1/2)) (* D (* (pow M 2) (sqrt -1/2)))) (sqrt (/ l h)))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (* -1 (* M (+ (* -1/2 (* (/ (* (pow d 3) (sqrt 1/2)) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ (* (pow d 5) (sqrt 1/2)) (* (pow D 5) (* (pow M 6) (pow (sqrt -1/2) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* (/ (* D (* (sqrt -1/2) (sqrt 1/2))) d) (sqrt (/ h l))) (* (/ (* d (sqrt 1/2)) (* D (* (pow M 2) (sqrt -1/2)))) (sqrt (/ l h))))))))))
#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) (pow (sqrt -1/4) 3)))) (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) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 5) (* (pow M 6) (pow (sqrt -1/4) 5)))) (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) 3)))) (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) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (pow d 5) (* (pow D 5) (* (pow M 6) (pow (sqrt -1/4) 5)))) (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 (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l))) #s(hole binary64 (* -1 (* (/ (* D (* M (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (/ h l))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l))) #s(hole binary64 (* -1 (* M (+ (* (/ (* D (* (sqrt -1/2) (sqrt 1/2))) d) (sqrt (/ h l))) (* (/ (* d (sqrt 1/2)) (* D (* (pow M 2) (sqrt -1/2)))) (sqrt (/ l h))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l))) #s(hole binary64 (* -1 (* M (+ (* -1/2 (* (/ (* (pow d 3) (sqrt 1/2)) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* (/ (* D (* (sqrt -1/2) (sqrt 1/2))) d) (sqrt (/ h l))) (* (/ (* d (sqrt 1/2)) (* D (* (pow M 2) (sqrt -1/2)))) (sqrt (/ l h)))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l))) #s(hole binary64 (* -1 (* M (+ (* -1/2 (* (/ (* (pow d 3) (sqrt 1/2)) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ (* (pow d 5) (sqrt 1/2)) (* (pow D 5) (* (pow M 6) (pow (sqrt -1/2) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* (/ (* D (* (sqrt -1/2) (sqrt 1/2))) d) (sqrt (/ h l))) (* (/ (* d (sqrt 1/2)) (* D (* (pow M 2) (sqrt -1/2)))) (sqrt (/ l h))))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)))) #s(hole binary64 (+ (* w0 (* (sqrt 1/2) (sqrt 2))) (* (pow D 2) (+ (* -1/4 (/ (* (pow M 2) (* h (* w0 (sqrt 1/2)))) (* (pow d 2) (* l (sqrt 2))))) (* -1/32 (/ (* (pow D 2) (* (pow M 4) (* (pow h 2) (* w0 (sqrt 1/2))))) (* (pow d 4) (* (pow l 2) (pow (sqrt 2) 3))))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)))) #s(hole binary64 (+ (* w0 (* (sqrt 1/2) (sqrt 2))) (* (pow D 2) (+ (* -1/4 (/ (* (pow M 2) (* h (* w0 (sqrt 1/2)))) (* (pow d 2) (* l (sqrt 2))))) (* (pow D 2) (+ (* -1/32 (/ (* (pow M 4) (* (pow h 2) (* w0 (sqrt 1/2)))) (* (pow d 4) (* (pow l 2) (pow (sqrt 2) 3))))) (* -1/128 (/ (* (pow D 2) (* (pow M 6) (* (pow h 3) (* w0 (sqrt 1/2))))) (* (pow d 6) (* (pow l 3) (pow (sqrt 2) 5))))))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (+ (* w0 (* (sqrt 1/2) (sqrt 2))) (* (pow D 2) (+ (* -1/4 (/ (* (pow M 2) (* h (* w0 (sqrt 1/2)))) (* (pow d 2) (* l (sqrt 2))))) (* -1/32 (/ (* (pow D 2) (* (pow M 4) (* (pow h 2) (* w0 (sqrt 1/2))))) (* (pow d 4) (* (pow l 2) (pow (sqrt 2) 3))))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (+ (* w0 (* (sqrt 1/2) (sqrt 2))) (* (pow D 2) (+ (* -1/4 (/ (* (pow M 2) (* h (* w0 (sqrt 1/2)))) (* (pow d 2) (* l (sqrt 2))))) (* (pow D 2) (+ (* -1/32 (/ (* (pow M 4) (* (pow h 2) (* w0 (sqrt 1/2)))) (* (pow d 4) (* (pow l 2) (pow (sqrt 2) 3))))) (* -1/128 (/ (* (pow D 2) (* (pow M 6) (* (pow h 3) (* w0 (sqrt 1/2))))) (* (pow d 6) (* (pow l 3) (pow (sqrt 2) 5))))))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (+ (* (sqrt 1/2) (sqrt 2)) (* (pow D 2) (+ (* -1/4 (/ (* (pow M 2) (* h (sqrt 1/2))) (* (pow d 2) (* l (sqrt 2))))) (* -1/32 (/ (* (pow D 2) (* (pow M 4) (* (pow h 2) (sqrt 1/2)))) (* (pow d 4) (* (pow l 2) (pow (sqrt 2) 3))))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (+ (* (sqrt 1/2) (sqrt 2)) (* (pow D 2) (+ (* -1/4 (/ (* (pow M 2) (* h (sqrt 1/2))) (* (pow d 2) (* l (sqrt 2))))) (* (pow D 2) (+ (* -1/32 (/ (* (pow M 4) (* (pow h 2) (sqrt 1/2))) (* (pow d 4) (* (pow l 2) (pow (sqrt 2) 3))))) (* -1/128 (/ (* (pow D 2) (* (pow M 6) (* (pow h 3) (sqrt 1/2)))) (* (pow d 6) (* (pow l 3) (pow (sqrt 2) 5))))))))))))
#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 D) -1/8) #s(hole binary64 (* -1/8 (pow D 2))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l))) #s(hole binary64 (+ (* (sqrt 1/2) (sqrt 2)) (* (pow D 2) (+ (* -1/4 (/ (* (pow M 2) (* h (sqrt 1/2))) (* (pow d 2) (* l (sqrt 2))))) (* -1/32 (/ (* (pow D 2) (* (pow M 4) (* (pow h 2) (sqrt 1/2)))) (* (pow d 4) (* (pow l 2) (pow (sqrt 2) 3))))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l))) #s(hole binary64 (+ (* (sqrt 1/2) (sqrt 2)) (* (pow D 2) (+ (* -1/4 (/ (* (pow M 2) (* h (sqrt 1/2))) (* (pow d 2) (* l (sqrt 2))))) (* (pow D 2) (+ (* -1/32 (/ (* (pow M 4) (* (pow h 2) (sqrt 1/2))) (* (pow d 4) (* (pow l 2) (pow (sqrt 2) 3))))) (* -1/128 (/ (* (pow D 2) (* (pow M 6) (* (pow h 3) (sqrt 1/2)))) (* (pow d 6) (* (pow l 3) (pow (sqrt 2) 5))))))))))))
#s(approx (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)) #s(hole binary64 (* (pow D 2) (+ (* -1/4 (/ (* (pow M 2) h) (* (pow d 2) l))) (/ 1 (pow D 2))))))
#s(approx (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) #s(hole binary64 (* (pow D 2) (- (* 2 (/ l (pow D 2))) (* 1/2 (/ (* (pow M 2) h) (pow d 2)))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)))) #s(hole binary64 (* D (+ (* (/ (* M (* w0 (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (/ h l))) (* (/ (* d (* w0 (sqrt 1/2))) (* (pow D 2) (* M (sqrt -1/2)))) (sqrt (/ l h)))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)))) #s(hole binary64 (* D (+ (* -1/2 (* (/ (* (pow d 3) (* w0 (sqrt 1/2))) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* (/ (* M (* w0 (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (/ h l))) (* (/ (* d (* w0 (sqrt 1/2))) (* (pow D 2) (* M (sqrt -1/2)))) (sqrt (/ l h))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)))) #s(hole binary64 (* D (+ (* -1/2 (* (/ (* (pow d 3) (* w0 (sqrt 1/2))) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ (* (pow d 5) (* w0 (sqrt 1/2))) (* (pow D 6) (* (pow M 5) (pow (sqrt -1/2) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* (/ (* M (* w0 (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (/ h l))) (* (/ (* d (* w0 (sqrt 1/2))) (* (pow D 2) (* M (sqrt -1/2)))) (sqrt (/ l h)))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (* D (+ (* (/ (* M (* w0 (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (/ h l))) (* (/ (* d (* w0 (sqrt 1/2))) (* (pow D 2) (* M (sqrt -1/2)))) (sqrt (/ l h)))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (* D (+ (* -1/2 (* (/ (* (pow d 3) (* w0 (sqrt 1/2))) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* (/ (* M (* w0 (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (/ h l))) (* (/ (* d (* w0 (sqrt 1/2))) (* (pow D 2) (* M (sqrt -1/2)))) (sqrt (/ l h))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (* D (+ (* -1/2 (* (/ (* (pow d 3) (* w0 (sqrt 1/2))) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ (* (pow d 5) (* w0 (sqrt 1/2))) (* (pow D 6) (* (pow M 5) (pow (sqrt -1/2) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* (/ (* M (* w0 (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (/ h l))) (* (/ (* d (* w0 (sqrt 1/2))) (* (pow D 2) (* M (sqrt -1/2)))) (sqrt (/ l h)))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (* D (+ (* (/ (* M (* (sqrt -1/2) (sqrt 1/2))) d) (sqrt (/ h l))) (* (/ (* d (sqrt 1/2)) (* (pow D 2) (* M (sqrt -1/2)))) (sqrt (/ l h)))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (* D (+ (* -1/2 (* (/ (* (pow d 3) (sqrt 1/2)) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* (/ (* M (* (sqrt -1/2) (sqrt 1/2))) d) (sqrt (/ h l))) (* (/ (* d (sqrt 1/2)) (* (pow D 2) (* M (sqrt -1/2)))) (sqrt (/ l h))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (* D (+ (* -1/2 (* (/ (* (pow d 3) (sqrt 1/2)) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ (* (pow d 5) (sqrt 1/2)) (* (pow D 6) (* (pow M 5) (pow (sqrt -1/2) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* (/ (* M (* (sqrt -1/2) (sqrt 1/2))) d) (sqrt (/ h l))) (* (/ (* d (sqrt 1/2)) (* (pow D 2) (* M (sqrt -1/2)))) (sqrt (/ l h)))))))))
#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) 3)))) (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) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 6) (* (pow M 5) (pow (sqrt -1/4) 5)))) (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) 3)))) (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) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (pow d 5) (* (pow D 6) (* (pow M 5) (pow (sqrt -1/4) 5)))) (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 (+ (* (* (* D D) -1/8) (/ (* (* (/ M d) M) h) (* d l))) 1) #s(hole binary64 (* (pow D 2) (+ (* -1/8 (/ (* (pow M 2) h) (* (pow d 2) l))) (/ 1 (pow D 2))))))
#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 (+ (* (* h -1/4) (/ (* (* (* M M) D) D) (* (* d l) d))) 1) #s(hole binary64 (* (pow D 2) (+ (* -1/4 (/ (* (pow M 2) h) (* (pow d 2) l))) (/ 1 (pow D 2))))))
#s(approx (+ (* (* (* -1/4 h) (* (/ D d) (* (/ M d) M))) (/ D l)) 1) #s(hole binary64 (* (pow D 2) (+ (* -1/4 (/ (* (pow M 2) h) (* (pow d 2) l))) (/ 1 (pow D 2))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l))) #s(hole binary64 (* D (+ (* (/ (* M (* (sqrt -1/2) (sqrt 1/2))) d) (sqrt (/ h l))) (* (/ (* d (sqrt 1/2)) (* (pow D 2) (* M (sqrt -1/2)))) (sqrt (/ l h)))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l))) #s(hole binary64 (* D (+ (* -1/2 (* (/ (* (pow d 3) (sqrt 1/2)) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* (/ (* M (* (sqrt -1/2) (sqrt 1/2))) d) (sqrt (/ h l))) (* (/ (* d (sqrt 1/2)) (* (pow D 2) (* M (sqrt -1/2)))) (sqrt (/ l h))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l))) #s(hole binary64 (* D (+ (* -1/2 (* (/ (* (pow d 3) (sqrt 1/2)) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ (* (pow d 5) (sqrt 1/2)) (* (pow D 6) (* (pow M 5) (pow (sqrt -1/2) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* (/ (* M (* (sqrt -1/2) (sqrt 1/2))) d) (sqrt (/ h l))) (* (/ (* d (sqrt 1/2)) (* (pow D 2) (* M (sqrt -1/2)))) (sqrt (/ l h)))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)))) #s(hole binary64 (* -1 (* D (+ (* (/ (* M (* w0 (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (/ h l))) (* (/ (* d (* w0 (sqrt 1/2))) (* (pow D 2) (* M (sqrt -1/2)))) (sqrt (/ l h))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)))) #s(hole binary64 (* -1 (* D (+ (* -1/2 (* (/ (* (pow d 3) (* w0 (sqrt 1/2))) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* (/ (* M (* w0 (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (/ h l))) (* (/ (* d (* w0 (sqrt 1/2))) (* (pow D 2) (* M (sqrt -1/2)))) (sqrt (/ l h)))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)))) #s(hole binary64 (* -1 (* D (+ (* -1/2 (* (/ (* (pow d 3) (* w0 (sqrt 1/2))) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ (* (pow d 5) (* w0 (sqrt 1/2))) (* (pow D 6) (* (pow M 5) (pow (sqrt -1/2) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* (/ (* M (* w0 (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (/ h l))) (* (/ (* d (* w0 (sqrt 1/2))) (* (pow D 2) (* M (sqrt -1/2)))) (sqrt (/ l h))))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (* -1 (* D (+ (* (/ (* M (* w0 (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (/ h l))) (* (/ (* d (* w0 (sqrt 1/2))) (* (pow D 2) (* M (sqrt -1/2)))) (sqrt (/ l h))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (* -1 (* D (+ (* -1/2 (* (/ (* (pow d 3) (* w0 (sqrt 1/2))) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* (/ (* M (* w0 (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (/ h l))) (* (/ (* d (* w0 (sqrt 1/2))) (* (pow D 2) (* M (sqrt -1/2)))) (sqrt (/ l h)))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (* -1 (* D (+ (* -1/2 (* (/ (* (pow d 3) (* w0 (sqrt 1/2))) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ (* (pow d 5) (* w0 (sqrt 1/2))) (* (pow D 6) (* (pow M 5) (pow (sqrt -1/2) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* (/ (* M (* w0 (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (/ h l))) (* (/ (* d (* w0 (sqrt 1/2))) (* (pow D 2) (* M (sqrt -1/2)))) (sqrt (/ l h))))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (* -1 (* D (+ (* (/ (* M (* (sqrt -1/2) (sqrt 1/2))) d) (sqrt (/ h l))) (* (/ (* d (sqrt 1/2)) (* (pow D 2) (* M (sqrt -1/2)))) (sqrt (/ l h))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (* -1 (* D (+ (* -1/2 (* (/ (* (pow d 3) (sqrt 1/2)) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* (/ (* M (* (sqrt -1/2) (sqrt 1/2))) d) (sqrt (/ h l))) (* (/ (* d (sqrt 1/2)) (* (pow D 2) (* M (sqrt -1/2)))) (sqrt (/ l h)))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (* -1 (* D (+ (* -1/2 (* (/ (* (pow d 3) (sqrt 1/2)) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ (* (pow d 5) (sqrt 1/2)) (* (pow D 6) (* (pow M 5) (pow (sqrt -1/2) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* (/ (* M (* (sqrt -1/2) (sqrt 1/2))) d) (sqrt (/ h l))) (* (/ (* d (sqrt 1/2)) (* (pow D 2) (* M (sqrt -1/2)))) (sqrt (/ l h))))))))))
#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) 3)))) (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) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 6) (* (pow M 5) (pow (sqrt -1/4) 5)))) (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) 3)))) (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) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (pow d 5) (* (pow D 6) (* (pow M 5) (pow (sqrt -1/4) 5)))) (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 (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l))) #s(hole binary64 (* -1 (* D (+ (* (/ (* M (* (sqrt -1/2) (sqrt 1/2))) d) (sqrt (/ h l))) (* (/ (* d (sqrt 1/2)) (* (pow D 2) (* M (sqrt -1/2)))) (sqrt (/ l h))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l))) #s(hole binary64 (* -1 (* D (+ (* -1/2 (* (/ (* (pow d 3) (sqrt 1/2)) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* (/ (* M (* (sqrt -1/2) (sqrt 1/2))) d) (sqrt (/ h l))) (* (/ (* d (sqrt 1/2)) (* (pow D 2) (* M (sqrt -1/2)))) (sqrt (/ l h)))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l))) #s(hole binary64 (* -1 (* D (+ (* -1/2 (* (/ (* (pow d 3) (sqrt 1/2)) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ (* (pow d 5) (sqrt 1/2)) (* (pow D 6) (* (pow M 5) (pow (sqrt -1/2) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* (/ (* M (* (sqrt -1/2) (sqrt 1/2))) d) (sqrt (/ h l))) (* (/ (* d (sqrt 1/2)) (* (pow D 2) (* M (sqrt -1/2)))) (sqrt (/ l h))))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)))) #s(hole binary64 (+ (* h (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (* w0 (sqrt 1/2)))) (* (pow d 2) (* l (sqrt 2))))) (* -1/32 (/ (* (pow D 4) (* (pow M 4) (* h (* w0 (sqrt 1/2))))) (* (pow d 4) (* (pow l 2) (pow (sqrt 2) 3))))))) (* w0 (* (sqrt 1/2) (sqrt 2))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)))) #s(hole binary64 (+ (* h (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (* w0 (sqrt 1/2)))) (* (pow d 2) (* l (sqrt 2))))) (* h (+ (* -1/32 (/ (* (pow D 4) (* (pow M 4) (* w0 (sqrt 1/2)))) (* (pow d 4) (* (pow l 2) (pow (sqrt 2) 3))))) (* -1/128 (/ (* (pow D 6) (* (pow M 6) (* h (* w0 (sqrt 1/2))))) (* (pow d 6) (* (pow l 3) (pow (sqrt 2) 5))))))))) (* w0 (* (sqrt 1/2) (sqrt 2))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (+ (* h (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (* w0 (sqrt 1/2)))) (* (pow d 2) (* l (sqrt 2))))) (* -1/32 (/ (* (pow D 4) (* (pow M 4) (* h (* w0 (sqrt 1/2))))) (* (pow d 4) (* (pow l 2) (pow (sqrt 2) 3))))))) (* w0 (* (sqrt 1/2) (sqrt 2))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (+ (* h (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (* w0 (sqrt 1/2)))) (* (pow d 2) (* l (sqrt 2))))) (* h (+ (* -1/32 (/ (* (pow D 4) (* (pow M 4) (* w0 (sqrt 1/2)))) (* (pow d 4) (* (pow l 2) (pow (sqrt 2) 3))))) (* -1/128 (/ (* (pow D 6) (* (pow M 6) (* h (* w0 (sqrt 1/2))))) (* (pow d 6) (* (pow l 3) (pow (sqrt 2) 5))))))))) (* w0 (* (sqrt 1/2) (sqrt 2))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (+ (* h (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (sqrt 1/2))) (* (pow d 2) (* l (sqrt 2))))) (* -1/32 (/ (* (pow D 4) (* (pow M 4) (* h (sqrt 1/2)))) (* (pow d 4) (* (pow l 2) (pow (sqrt 2) 3))))))) (* (sqrt 1/2) (sqrt 2)))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (+ (* h (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (sqrt 1/2))) (* (pow d 2) (* l (sqrt 2))))) (* h (+ (* -1/32 (/ (* (pow D 4) (* (pow M 4) (sqrt 1/2))) (* (pow d 4) (* (pow l 2) (pow (sqrt 2) 3))))) (* -1/128 (/ (* (pow D 6) (* (pow M 6) (* h (sqrt 1/2)))) (* (pow d 6) (* (pow l 3) (pow (sqrt 2) 5))))))))) (* (sqrt 1/2) (sqrt 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))) (* -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 (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l))) #s(hole binary64 (+ (* h (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (sqrt 1/2))) (* (pow d 2) (* l (sqrt 2))))) (* -1/32 (/ (* (pow D 4) (* (pow M 4) (* h (sqrt 1/2)))) (* (pow d 4) (* (pow l 2) (pow (sqrt 2) 3))))))) (* (sqrt 1/2) (sqrt 2)))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l))) #s(hole binary64 (+ (* h (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (sqrt 1/2))) (* (pow d 2) (* l (sqrt 2))))) (* h (+ (* -1/32 (/ (* (pow D 4) (* (pow M 4) (sqrt 1/2))) (* (pow d 4) (* (pow l 2) (pow (sqrt 2) 3))))) (* -1/128 (/ (* (pow D 6) (* (pow M 6) (* h (sqrt 1/2)))) (* (pow d 6) (* (pow l 3) (pow (sqrt 2) 5))))))))) (* (sqrt 1/2) (sqrt 2)))))
#s(approx (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)) #s(hole binary64 (* h (+ (* -1/4 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (/ 1 h)))))
#s(approx (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) #s(hole binary64 (* h (- (* 2 (/ l h)) (* 1/2 (/ (* (pow D 2) (pow M 2)) (pow d 2)))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)))) #s(hole binary64 (* h (+ (* (/ (* D (* M (* w0 (* (sqrt -1/2) (sqrt 1/2))))) d) (sqrt (/ 1 (* h l)))) (* (/ (* d (* w0 (sqrt 1/2))) (* D (* M (sqrt -1/2)))) (sqrt (/ l (pow h 3))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)))) #s(hole binary64 (* h (+ (* -1/2 (* (/ (* (pow d 3) (* w0 (sqrt 1/2))) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* (/ (* D (* M (* w0 (* (sqrt -1/2) (sqrt 1/2))))) d) (sqrt (/ 1 (* h l)))) (* (/ (* d (* w0 (sqrt 1/2))) (* D (* M (sqrt -1/2)))) (sqrt (/ l (pow h 3)))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)))) #s(hole binary64 (* h (+ (* -1/2 (* (/ (* (pow d 3) (* w0 (sqrt 1/2))) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/2 (* (/ (* (pow d 5) (* w0 (sqrt 1/2))) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/2) 5)))) (sqrt (/ (pow l 5) (pow h 7))))) (+ (* (/ (* D (* M (* w0 (* (sqrt -1/2) (sqrt 1/2))))) d) (sqrt (/ 1 (* h l)))) (* (/ (* d (* w0 (sqrt 1/2))) (* D (* M (sqrt -1/2)))) (sqrt (/ l (pow h 3))))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (* h (+ (* (/ (* D (* M (* w0 (* (sqrt -1/2) (sqrt 1/2))))) d) (sqrt (/ 1 (* h l)))) (* (/ (* d (* w0 (sqrt 1/2))) (* D (* M (sqrt -1/2)))) (sqrt (/ l (pow h 3))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (* h (+ (* -1/2 (* (/ (* (pow d 3) (* w0 (sqrt 1/2))) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* (/ (* D (* M (* w0 (* (sqrt -1/2) (sqrt 1/2))))) d) (sqrt (/ 1 (* h l)))) (* (/ (* d (* w0 (sqrt 1/2))) (* D (* M (sqrt -1/2)))) (sqrt (/ l (pow h 3)))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (* h (+ (* -1/2 (* (/ (* (pow d 3) (* w0 (sqrt 1/2))) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/2 (* (/ (* (pow d 5) (* w0 (sqrt 1/2))) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/2) 5)))) (sqrt (/ (pow l 5) (pow h 7))))) (+ (* (/ (* D (* M (* w0 (* (sqrt -1/2) (sqrt 1/2))))) d) (sqrt (/ 1 (* h l)))) (* (/ (* d (* w0 (sqrt 1/2))) (* D (* M (sqrt -1/2)))) (sqrt (/ l (pow h 3))))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (* h (+ (* (/ (* D (* M (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (/ 1 (* h l)))) (* (/ (* d (sqrt 1/2)) (* D (* M (sqrt -1/2)))) (sqrt (/ l (pow h 3))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (* h (+ (* -1/2 (* (/ (* (pow d 3) (sqrt 1/2)) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* (/ (* D (* M (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (/ 1 (* h l)))) (* (/ (* d (sqrt 1/2)) (* D (* M (sqrt -1/2)))) (sqrt (/ l (pow h 3)))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (* h (+ (* -1/2 (* (/ (* (pow d 3) (sqrt 1/2)) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/2 (* (/ (* (pow d 5) (sqrt 1/2)) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/2) 5)))) (sqrt (/ (pow l 5) (pow h 7))))) (+ (* (/ (* D (* M (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (/ 1 (* h l)))) (* (/ (* d (sqrt 1/2)) (* D (* M (sqrt -1/2)))) (sqrt (/ l (pow h 3))))))))))
#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) 3)))) (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) 3)))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/4) 5)))) (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) 3)))) (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) 3)))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/16 (* (/ (pow d 5) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/4) 5)))) (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 (+ (* (* (* D D) -1/8) (/ (* (* (/ M d) M) h) (* d l))) 1) #s(hole binary64 (* h (+ (* -1/8 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (/ 1 h)))))
#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 (+ (* (* h -1/4) (/ (* (* (* M M) D) D) (* (* d l) d))) 1) #s(hole binary64 (* h (+ (* -1/4 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (/ 1 h)))))
#s(approx (+ (* (* (* -1/4 h) (* (/ D d) (* (/ M d) M))) (/ D l)) 1) #s(hole binary64 (* h (+ (* -1/4 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (/ 1 h)))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l))) #s(hole binary64 (* h (+ (* (/ (* D (* M (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (/ 1 (* h l)))) (* (/ (* d (sqrt 1/2)) (* D (* M (sqrt -1/2)))) (sqrt (/ l (pow h 3))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l))) #s(hole binary64 (* h (+ (* -1/2 (* (/ (* (pow d 3) (sqrt 1/2)) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* (/ (* D (* M (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (/ 1 (* h l)))) (* (/ (* d (sqrt 1/2)) (* D (* M (sqrt -1/2)))) (sqrt (/ l (pow h 3)))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l))) #s(hole binary64 (* h (+ (* -1/2 (* (/ (* (pow d 3) (sqrt 1/2)) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/2 (* (/ (* (pow d 5) (sqrt 1/2)) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/2) 5)))) (sqrt (/ (pow l 5) (pow h 7))))) (+ (* (/ (* D (* M (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (/ 1 (* h l)))) (* (/ (* d (sqrt 1/2)) (* D (* M (sqrt -1/2)))) (sqrt (/ l (pow h 3))))))))))
#s(approx (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)) #s(hole binary64 (* -1 (* h (- (* 1/4 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (/ 1 h))))))
#s(approx (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) #s(hole binary64 (* -1 (* h (- (* -2 (/ l h)) (* -1/2 (/ (* (pow D 2) (pow M 2)) (pow d 2))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)))) #s(hole binary64 (* -1 (* (/ (* D (* M (* w0 (* (sqrt -1) (pow (sqrt 1/2) 2))))) d) (sqrt (/ h l))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)))) #s(hole binary64 (* -1 (* h (+ (* (/ (* D (* M (* w0 (* (sqrt -1) (pow (sqrt 1/2) 2))))) d) (sqrt (/ 1 (* h l)))) (* (/ (* d (* w0 (sqrt -1))) (* D M)) (sqrt (/ l (pow h 3)))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)))) #s(hole binary64 (* -1 (* h (+ (* -1/2 (* (/ (* (pow d 3) (* w0 (sqrt -1))) (* (pow D 3) (* (pow M 3) (pow (sqrt 1/2) 2)))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* (/ (* D (* M (* w0 (* (sqrt -1) (pow (sqrt 1/2) 2))))) d) (sqrt (/ 1 (* h l)))) (* (/ (* d (* w0 (sqrt -1))) (* D M)) (sqrt (/ l (pow h 3))))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)))) #s(hole binary64 (* -1 (* h (+ (* -1/2 (* (/ (* (pow d 3) (* w0 (sqrt -1))) (* (pow D 3) (* (pow M 3) (pow (sqrt 1/2) 2)))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/2 (* (/ (* (pow d 5) (* w0 (sqrt -1))) (* (pow D 5) (* (pow M 5) (pow (sqrt 1/2) 4)))) (sqrt (/ (pow l 5) (pow h 7))))) (+ (* (/ (* D (* M (* w0 (* (sqrt -1) (pow (sqrt 1/2) 2))))) d) (sqrt (/ 1 (* h l)))) (* (/ (* d (* w0 (sqrt -1))) (* D M)) (sqrt (/ l (pow h 3)))))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (* -1 (* (/ (* D (* M (* w0 (* (sqrt -1) (pow (sqrt 1/2) 2))))) d) (sqrt (/ h l))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (* -1 (* h (+ (* (/ (* D (* M (* w0 (* (sqrt -1) (pow (sqrt 1/2) 2))))) d) (sqrt (/ 1 (* h l)))) (* (/ (* d (* w0 (sqrt -1))) (* D M)) (sqrt (/ l (pow h 3)))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (* -1 (* h (+ (* -1/2 (* (/ (* (pow d 3) (* w0 (sqrt -1))) (* (pow D 3) (* (pow M 3) (pow (sqrt 1/2) 2)))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* (/ (* D (* M (* w0 (* (sqrt -1) (pow (sqrt 1/2) 2))))) d) (sqrt (/ 1 (* h l)))) (* (/ (* d (* w0 (sqrt -1))) (* D M)) (sqrt (/ l (pow h 3))))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (* -1 (* h (+ (* -1/2 (* (/ (* (pow d 3) (* w0 (sqrt -1))) (* (pow D 3) (* (pow M 3) (pow (sqrt 1/2) 2)))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/2 (* (/ (* (pow d 5) (* w0 (sqrt -1))) (* (pow D 5) (* (pow M 5) (pow (sqrt 1/2) 4)))) (sqrt (/ (pow l 5) (pow h 7))))) (+ (* (/ (* D (* M (* w0 (* (sqrt -1) (pow (sqrt 1/2) 2))))) d) (sqrt (/ 1 (* h l)))) (* (/ (* d (* w0 (sqrt -1))) (* D M)) (sqrt (/ l (pow h 3)))))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (* -1 (* (/ (* D (* M (* (sqrt -1) (pow (sqrt 1/2) 2)))) d) (sqrt (/ h l))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (* -1 (* h (+ (* (/ (* D (* M (* (sqrt -1) (pow (sqrt 1/2) 2)))) d) (sqrt (/ 1 (* h l)))) (* (/ (* d (sqrt -1)) (* D M)) (sqrt (/ l (pow h 3)))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (* -1 (* h (+ (* -1/2 (* (/ (* (pow d 3) (sqrt -1)) (* (pow D 3) (* (pow M 3) (pow (sqrt 1/2) 2)))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* (/ (* D (* M (* (sqrt -1) (pow (sqrt 1/2) 2)))) d) (sqrt (/ 1 (* h l)))) (* (/ (* d (sqrt -1)) (* D M)) (sqrt (/ l (pow h 3))))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (* -1 (* h (+ (* -1/2 (* (/ (* (pow d 3) (sqrt -1)) (* (pow D 3) (* (pow M 3) (pow (sqrt 1/2) 2)))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/2 (* (/ (* (pow d 5) (sqrt -1)) (* (pow D 5) (* (pow M 5) (pow (sqrt 1/2) 4)))) (sqrt (/ (pow l 5) (pow h 7))))) (+ (* (/ (* D (* M (* (sqrt -1) (pow (sqrt 1/2) 2)))) d) (sqrt (/ 1 (* h l)))) (* (/ (* d (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/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 (+ (* (* (* D D) -1/8) (/ (* (* (/ M d) M) h) (* d l))) 1) #s(hole binary64 (* -1 (* h (- (* 1/8 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (/ 1 h))))))
#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 (+ (* (* h -1/4) (/ (* (* (* M M) D) D) (* (* d l) d))) 1) #s(hole binary64 (* -1 (* h (- (* 1/4 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (/ 1 h))))))
#s(approx (+ (* (* (* -1/4 h) (* (/ D d) (* (/ M d) M))) (/ D l)) 1) #s(hole binary64 (* -1 (* h (- (* 1/4 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (/ 1 h))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l))) #s(hole binary64 (* -1 (* (/ (* D (* M (* (sqrt -1) (pow (sqrt 1/2) 2)))) d) (sqrt (/ h l))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l))) #s(hole binary64 (* -1 (* h (+ (* (/ (* D (* M (* (sqrt -1) (pow (sqrt 1/2) 2)))) d) (sqrt (/ 1 (* h l)))) (* (/ (* d (sqrt -1)) (* D M)) (sqrt (/ l (pow h 3)))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l))) #s(hole binary64 (* -1 (* h (+ (* -1/2 (* (/ (* (pow d 3) (sqrt -1)) (* (pow D 3) (* (pow M 3) (pow (sqrt 1/2) 2)))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* (/ (* D (* M (* (sqrt -1) (pow (sqrt 1/2) 2)))) d) (sqrt (/ 1 (* h l)))) (* (/ (* d (sqrt -1)) (* D M)) (sqrt (/ l (pow h 3))))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l))) #s(hole binary64 (* -1 (* h (+ (* -1/2 (* (/ (* (pow d 3) (sqrt -1)) (* (pow D 3) (* (pow M 3) (pow (sqrt 1/2) 2)))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/2 (* (/ (* (pow d 5) (sqrt -1)) (* (pow D 5) (* (pow M 5) (pow (sqrt 1/2) 4)))) (sqrt (/ (pow l 5) (pow h 7))))) (+ (* (/ (* D (* M (* (sqrt -1) (pow (sqrt 1/2) 2)))) d) (sqrt (/ 1 (* h l)))) (* (/ (* d (sqrt -1)) (* D M)) (sqrt (/ l (pow h 3)))))))))))
#s(approx (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)) #s(hole binary64 (/ (+ l (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l)))
#s(approx (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) #s(hole binary64 (- (* 2 l) (* 1/2 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)))) #s(hole binary64 (/ (+ (* (/ (* D (* M (* w0 (* (sqrt -1/2) (sqrt 1/2))))) d) (sqrt (* h l))) (* (/ (* d (* w0 (sqrt 1/2))) (* D (* M (sqrt -1/2)))) (sqrt (/ (pow l 3) h)))) l)))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)))) #s(hole binary64 (/ (+ (* (/ (* D (* M (* w0 (* (sqrt -1/2) (sqrt 1/2))))) d) (sqrt (* h l))) (* (pow l 2) (+ (* -1/2 (* (/ (* (pow d 3) (* w0 (sqrt 1/2))) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ l (pow h 3))))) (* (/ (* d (* w0 (sqrt 1/2))) (* D (* M (sqrt -1/2)))) (sqrt (/ 1 (* h l))))))) l)))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)))) #s(hole binary64 (/ (+ (* (/ (* D (* M (* w0 (* (sqrt -1/2) (sqrt 1/2))))) d) (sqrt (* h l))) (* (pow l 2) (+ (* (/ (* d (* w0 (sqrt 1/2))) (* D (* M (sqrt -1/2)))) (sqrt (/ 1 (* h l)))) (* (pow l 2) (+ (* -1/2 (* (/ (* (pow d 3) (* w0 (sqrt 1/2))) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ 1 (* (pow h 3) (pow l 3)))))) (* 1/2 (* (/ (* (pow d 5) (* w0 (sqrt 1/2))) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/2) 5)))) (sqrt (/ 1 (* (pow h 5) l)))))))))) l)))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (/ (+ (* (/ (* D (* M (* w0 (* (sqrt -1/2) (sqrt 1/2))))) d) (sqrt (* h l))) (* (/ (* d (* w0 (sqrt 1/2))) (* D (* M (sqrt -1/2)))) (sqrt (/ (pow l 3) h)))) l)))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (/ (+ (* (/ (* D (* M (* w0 (* (sqrt -1/2) (sqrt 1/2))))) d) (sqrt (* h l))) (* (pow l 2) (+ (* -1/2 (* (/ (* (pow d 3) (* w0 (sqrt 1/2))) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ l (pow h 3))))) (* (/ (* d (* w0 (sqrt 1/2))) (* D (* M (sqrt -1/2)))) (sqrt (/ 1 (* h l))))))) l)))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (/ (+ (* (/ (* D (* M (* w0 (* (sqrt -1/2) (sqrt 1/2))))) d) (sqrt (* h l))) (* (pow l 2) (+ (* (/ (* d (* w0 (sqrt 1/2))) (* D (* M (sqrt -1/2)))) (sqrt (/ 1 (* h l)))) (* (pow l 2) (+ (* -1/2 (* (/ (* (pow d 3) (* w0 (sqrt 1/2))) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ 1 (* (pow h 3) (pow l 3)))))) (* 1/2 (* (/ (* (pow d 5) (* w0 (sqrt 1/2))) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/2) 5)))) (sqrt (/ 1 (* (pow h 5) l)))))))))) l)))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (/ (+ (* (/ (* D (* M (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (* h l))) (* (/ (* d (sqrt 1/2)) (* D (* M (sqrt -1/2)))) (sqrt (/ (pow l 3) h)))) l)))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (/ (+ (* (/ (* D (* M (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (* h l))) (* (pow l 2) (+ (* -1/2 (* (/ (* (pow d 3) (sqrt 1/2)) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ l (pow h 3))))) (* (/ (* d (sqrt 1/2)) (* D (* M (sqrt -1/2)))) (sqrt (/ 1 (* h l))))))) l)))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (/ (+ (* (/ (* D (* M (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (* h l))) (* (pow l 2) (+ (* (/ (* d (sqrt 1/2)) (* D (* M (sqrt -1/2)))) (sqrt (/ 1 (* h l)))) (* (pow l 2) (+ (* -1/2 (* (/ (* (pow d 3) (sqrt 1/2)) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ 1 (* (pow h 3) (pow l 3)))))) (* 1/2 (* (/ (* (pow d 5) (sqrt 1/2)) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/2) 5)))) (sqrt (/ 1 (* (pow h 5) l)))))))))) l)))
#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) 3)))) (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) 3)))) (sqrt (/ 1 (* (pow h 3) (pow l 3)))))) (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/4) 5)))) (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) 3)))) (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) 3)))) (sqrt (/ 1 (* (pow h 3) (pow l 3)))))) (* 1/16 (* (/ (pow d 5) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ 1 (* (pow h 5) l)))))))))) l)))
#s(approx (+ (* (* (* D D) -1/8) (/ (* (* (/ M d) M) h) (* d l))) 1) #s(hole binary64 (/ (+ l (* -1/8 (/ (* (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 (/ (- l (* 1/4 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l)))
#s(approx (+ (* (* h -1/4) (/ (* (* (* M M) D) D) (* (* d l) d))) 1) #s(hole binary64 (/ (+ l (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l)))
#s(approx (+ (* (* (* -1/4 h) (* (/ D d) (* (/ M d) M))) (/ D l)) 1) #s(hole binary64 (/ (+ l (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l)))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l))) #s(hole binary64 (/ (+ (* (/ (* D (* M (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (* h l))) (* (/ (* d (sqrt 1/2)) (* D (* M (sqrt -1/2)))) (sqrt (/ (pow l 3) h)))) l)))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l))) #s(hole binary64 (/ (+ (* (/ (* D (* M (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (* h l))) (* (pow l 2) (+ (* -1/2 (* (/ (* (pow d 3) (sqrt 1/2)) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ l (pow h 3))))) (* (/ (* d (sqrt 1/2)) (* D (* M (sqrt -1/2)))) (sqrt (/ 1 (* h l))))))) l)))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l))) #s(hole binary64 (/ (+ (* (/ (* D (* M (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (* h l))) (* (pow l 2) (+ (* (/ (* d (sqrt 1/2)) (* D (* M (sqrt -1/2)))) (sqrt (/ 1 (* h l)))) (* (pow l 2) (+ (* -1/2 (* (/ (* (pow d 3) (sqrt 1/2)) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ 1 (* (pow h 3) (pow l 3)))))) (* 1/2 (* (/ (* (pow d 5) (sqrt 1/2)) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/2) 5)))) (sqrt (/ 1 (* (pow h 5) l)))))))))) l)))
#s(approx (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) #s(hole binary64 (* l (+ 2 (* -1/2 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l)))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)))) #s(hole binary64 (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (* h (* w0 (sqrt 1/2))))) (* (pow d 2) (* l (sqrt 2))))) (+ (* -1/32 (/ (* (pow D 4) (* (pow M 4) (* (pow h 2) (* w0 (sqrt 1/2))))) (* (pow d 4) (* (pow l 2) (pow (sqrt 2) 3))))) (* w0 (* (sqrt 1/2) (sqrt 2)))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)))) #s(hole binary64 (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (* h (* w0 (sqrt 1/2))))) (* (pow d 2) (* l (sqrt 2))))) (+ (* -1/32 (/ (* (pow D 4) (* (pow M 4) (* (pow h 2) (* w0 (sqrt 1/2))))) (* (pow d 4) (* (pow l 2) (pow (sqrt 2) 3))))) (+ (* -1/128 (/ (* (pow D 6) (* (pow M 6) (* (pow h 3) (* w0 (sqrt 1/2))))) (* (pow d 6) (* (pow l 3) (pow (sqrt 2) 5))))) (* w0 (* (sqrt 1/2) (sqrt 2))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (* h (* w0 (sqrt 1/2))))) (* (pow d 2) (* l (sqrt 2))))) (+ (* -1/32 (/ (* (pow D 4) (* (pow M 4) (* (pow h 2) (* w0 (sqrt 1/2))))) (* (pow d 4) (* (pow l 2) (pow (sqrt 2) 3))))) (* w0 (* (sqrt 1/2) (sqrt 2)))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (* h (* w0 (sqrt 1/2))))) (* (pow d 2) (* l (sqrt 2))))) (+ (* -1/32 (/ (* (pow D 4) (* (pow M 4) (* (pow h 2) (* w0 (sqrt 1/2))))) (* (pow d 4) (* (pow l 2) (pow (sqrt 2) 3))))) (+ (* -1/128 (/ (* (pow D 6) (* (pow M 6) (* (pow h 3) (* w0 (sqrt 1/2))))) (* (pow d 6) (* (pow l 3) (pow (sqrt 2) 5))))) (* w0 (* (sqrt 1/2) (sqrt 2))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (* h (sqrt 1/2)))) (* (pow d 2) (* l (sqrt 2))))) (+ (* -1/32 (/ (* (pow D 4) (* (pow M 4) (* (pow h 2) (sqrt 1/2)))) (* (pow d 4) (* (pow l 2) (pow (sqrt 2) 3))))) (* (sqrt 1/2) (sqrt 2))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (* h (sqrt 1/2)))) (* (pow d 2) (* l (sqrt 2))))) (+ (* -1/32 (/ (* (pow D 4) (* (pow M 4) (* (pow h 2) (sqrt 1/2)))) (* (pow d 4) (* (pow l 2) (pow (sqrt 2) 3))))) (+ (* -1/128 (/ (* (pow D 6) (* (pow M 6) (* (pow h 3) (sqrt 1/2)))) (* (pow d 6) (* (pow l 3) (pow (sqrt 2) 5))))) (* (sqrt 1/2) (sqrt 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))))))))
#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 (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l))) #s(hole binary64 (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (* h (sqrt 1/2)))) (* (pow d 2) (* l (sqrt 2))))) (+ (* -1/32 (/ (* (pow D 4) (* (pow M 4) (* (pow h 2) (sqrt 1/2)))) (* (pow d 4) (* (pow l 2) (pow (sqrt 2) 3))))) (* (sqrt 1/2) (sqrt 2))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l))) #s(hole binary64 (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (* h (sqrt 1/2)))) (* (pow d 2) (* l (sqrt 2))))) (+ (* -1/32 (/ (* (pow D 4) (* (pow M 4) (* (pow h 2) (sqrt 1/2)))) (* (pow d 4) (* (pow l 2) (pow (sqrt 2) 3))))) (+ (* -1/128 (/ (* (pow D 6) (* (pow M 6) (* (pow h 3) (sqrt 1/2)))) (* (pow d 6) (* (pow l 3) (pow (sqrt 2) 5))))) (* (sqrt 1/2) (sqrt 2)))))))
#s(approx (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) #s(hole binary64 (* -1 (* l (- (* 1/2 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))) 2)))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)))) #s(hole binary64 (+ (* -1 (/ (+ (* 1/32 (/ (* (pow D 4) (* (pow M 4) (* (pow h 2) (* w0 (sqrt 1/2))))) (* (pow d 4) (* l (pow (sqrt 2) 3))))) (* 1/4 (/ (* (pow D 2) (* (pow M 2) (* h (* w0 (sqrt 1/2))))) (* (pow d 2) (sqrt 2))))) l)) (* w0 (* (sqrt 1/2) (sqrt 2))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1 (/ (+ (* -1/32 (/ (* (pow D 4) (* (pow M 4) (* (pow h 2) (* w0 (sqrt 1/2))))) (* (pow d 4) (pow (sqrt 2) 3)))) (* -1/128 (/ (* (pow D 6) (* (pow M 6) (* (pow h 3) (* w0 (sqrt 1/2))))) (* (pow d 6) (* l (pow (sqrt 2) 5)))))) l)) (* 1/4 (/ (* (pow D 2) (* (pow M 2) (* h (* w0 (sqrt 1/2))))) (* (pow d 2) (sqrt 2))))) l)) (* w0 (* (sqrt 1/2) (sqrt 2))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (+ (* -1 (/ (+ (* 1/32 (/ (* (pow D 4) (* (pow M 4) (* (pow h 2) (* w0 (sqrt 1/2))))) (* (pow d 4) (* l (pow (sqrt 2) 3))))) (* 1/4 (/ (* (pow D 2) (* (pow M 2) (* h (* w0 (sqrt 1/2))))) (* (pow d 2) (sqrt 2))))) l)) (* w0 (* (sqrt 1/2) (sqrt 2))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1 (/ (+ (* -1/32 (/ (* (pow D 4) (* (pow M 4) (* (pow h 2) (* w0 (sqrt 1/2))))) (* (pow d 4) (pow (sqrt 2) 3)))) (* -1/128 (/ (* (pow D 6) (* (pow M 6) (* (pow h 3) (* w0 (sqrt 1/2))))) (* (pow d 6) (* l (pow (sqrt 2) 5)))))) l)) (* 1/4 (/ (* (pow D 2) (* (pow M 2) (* h (* w0 (sqrt 1/2))))) (* (pow d 2) (sqrt 2))))) l)) (* w0 (* (sqrt 1/2) (sqrt 2))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (+ (* -1 (/ (+ (* 1/32 (/ (* (pow D 4) (* (pow M 4) (* (pow h 2) (sqrt 1/2)))) (* (pow d 4) (* l (pow (sqrt 2) 3))))) (* 1/4 (/ (* (pow D 2) (* (pow M 2) (* h (sqrt 1/2)))) (* (pow d 2) (sqrt 2))))) l)) (* (sqrt 1/2) (sqrt 2)))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (+ (* -1 (/ (+ (* -1 (/ (+ (* -1/32 (/ (* (pow D 4) (* (pow M 4) (* (pow h 2) (sqrt 1/2)))) (* (pow d 4) (pow (sqrt 2) 3)))) (* -1/128 (/ (* (pow D 6) (* (pow M 6) (* (pow h 3) (sqrt 1/2)))) (* (pow d 6) (* l (pow (sqrt 2) 5)))))) l)) (* 1/4 (/ (* (pow D 2) (* (pow M 2) (* h (sqrt 1/2)))) (* (pow d 2) (sqrt 2))))) l)) (* (sqrt 1/2) (sqrt 2)))))
#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 (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l))) #s(hole binary64 (+ (* -1 (/ (+ (* 1/32 (/ (* (pow D 4) (* (pow M 4) (* (pow h 2) (sqrt 1/2)))) (* (pow d 4) (* l (pow (sqrt 2) 3))))) (* 1/4 (/ (* (pow D 2) (* (pow M 2) (* h (sqrt 1/2)))) (* (pow d 2) (sqrt 2))))) l)) (* (sqrt 1/2) (sqrt 2)))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l))) #s(hole binary64 (+ (* -1 (/ (+ (* -1 (/ (+ (* -1/32 (/ (* (pow D 4) (* (pow M 4) (* (pow h 2) (sqrt 1/2)))) (* (pow d 4) (pow (sqrt 2) 3)))) (* -1/128 (/ (* (pow D 6) (* (pow M 6) (* (pow h 3) (sqrt 1/2)))) (* (pow d 6) (* l (pow (sqrt 2) 5)))))) l)) (* 1/4 (/ (* (pow D 2) (* (pow M 2) (* h (sqrt 1/2)))) (* (pow d 2) (sqrt 2))))) l)) (* (sqrt 1/2) (sqrt 2)))))
#s(approx (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)) #s(hole binary64 (/ (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) l)) (pow d 2)) (pow d 2))))
#s(approx (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) #s(hole binary64 (/ (- (* 2 (* (pow d 2) l)) (* 1/2 (* (pow D 2) (* (pow M 2) h)))) (pow d 2))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)))) #s(hole binary64 (/ (+ (* (* D (* M (* w0 (* (sqrt -1/2) (sqrt 1/2))))) (sqrt (/ h l))) (* (/ (* (pow d 2) (* w0 (sqrt 1/2))) (* D (* M (sqrt -1/2)))) (sqrt (/ l h)))) d)))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)))) #s(hole binary64 (/ (+ (* (* D (* M (* w0 (* (sqrt -1/2) (sqrt 1/2))))) (sqrt (/ h l))) (* (pow d 2) (+ (* -1/2 (* (/ (* (pow d 2) (* w0 (sqrt 1/2))) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (* (/ (* w0 (sqrt 1/2)) (* D (* M (sqrt -1/2)))) (sqrt (/ l h)))))) d)))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)))) #s(hole binary64 (/ (+ (* (* D (* M (* w0 (* (sqrt -1/2) (sqrt 1/2))))) (sqrt (/ h l))) (* (pow d 2) (+ (* (/ (* w0 (sqrt 1/2)) (* D (* M (sqrt -1/2)))) (sqrt (/ l h))) (* (pow d 2) (+ (* -1/2 (* (/ (* w0 (sqrt 1/2)) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (* 1/2 (* (/ (* (pow d 2) (* w0 (sqrt 1/2))) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/2) 5)))) (sqrt (/ (pow l 5) (pow h 5)))))))))) d)))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (/ (+ (* (* D (* M (* w0 (* (sqrt -1/2) (sqrt 1/2))))) (sqrt (/ h l))) (* (/ (* (pow d 2) (* w0 (sqrt 1/2))) (* D (* M (sqrt -1/2)))) (sqrt (/ l h)))) d)))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (/ (+ (* (* D (* M (* w0 (* (sqrt -1/2) (sqrt 1/2))))) (sqrt (/ h l))) (* (pow d 2) (+ (* -1/2 (* (/ (* (pow d 2) (* w0 (sqrt 1/2))) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (* (/ (* w0 (sqrt 1/2)) (* D (* M (sqrt -1/2)))) (sqrt (/ l h)))))) d)))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (/ (+ (* (* D (* M (* w0 (* (sqrt -1/2) (sqrt 1/2))))) (sqrt (/ h l))) (* (pow d 2) (+ (* (/ (* w0 (sqrt 1/2)) (* D (* M (sqrt -1/2)))) (sqrt (/ l h))) (* (pow d 2) (+ (* -1/2 (* (/ (* w0 (sqrt 1/2)) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (* 1/2 (* (/ (* (pow d 2) (* w0 (sqrt 1/2))) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/2) 5)))) (sqrt (/ (pow l 5) (pow h 5)))))))))) d)))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (/ (+ (* (* D (* M (* (sqrt -1/2) (sqrt 1/2)))) (sqrt (/ h l))) (* (/ (* (pow d 2) (sqrt 1/2)) (* D (* M (sqrt -1/2)))) (sqrt (/ l h)))) d)))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (/ (+ (* (* D (* M (* (sqrt -1/2) (sqrt 1/2)))) (sqrt (/ h l))) (* (pow d 2) (+ (* -1/2 (* (/ (* (pow d 2) (sqrt 1/2)) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (* (/ (sqrt 1/2) (* D (* M (sqrt -1/2)))) (sqrt (/ l h)))))) d)))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (/ (+ (* (* D (* M (* (sqrt -1/2) (sqrt 1/2)))) (sqrt (/ h l))) (* (pow d 2) (+ (* (/ (sqrt 1/2) (* D (* M (sqrt -1/2)))) (sqrt (/ l h))) (* (pow d 2) (+ (* -1/2 (* (/ (sqrt 1/2) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (* 1/2 (* (/ (* (pow d 2) (sqrt 1/2)) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/2) 5)))) (sqrt (/ (pow l 5) (pow h 5)))))))))) d)))
#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) 3)))) (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) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (* 1/16 (* (/ (* (pow d 2) w0) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/4) 5)))) (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) 3)))) (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) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (* 1/16 (* (/ (pow d 2) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5)))))))))) d)))
#s(approx (+ (* (* (* D D) -1/8) (/ (* (* (/ M d) M) h) (* d l))) 1) #s(hole binary64 (/ (+ (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) l)) (pow d 2)) (pow d 2))))
#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 (+ (* (* h -1/4) (/ (* (* (* M M) D) D) (* (* d l) d))) 1) #s(hole binary64 (/ (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) l)) (pow d 2)) (pow d 2))))
#s(approx (+ (* (* (* -1/4 h) (* (/ D d) (* (/ M d) M))) (/ D l)) 1) #s(hole binary64 (/ (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) l)) (pow d 2)) (pow d 2))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l))) #s(hole binary64 (/ (+ (* (* D (* M (* (sqrt -1/2) (sqrt 1/2)))) (sqrt (/ h l))) (* (/ (* (pow d 2) (sqrt 1/2)) (* D (* M (sqrt -1/2)))) (sqrt (/ l h)))) d)))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l))) #s(hole binary64 (/ (+ (* (* D (* M (* (sqrt -1/2) (sqrt 1/2)))) (sqrt (/ h l))) (* (pow d 2) (+ (* -1/2 (* (/ (* (pow d 2) (sqrt 1/2)) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (* (/ (sqrt 1/2) (* D (* M (sqrt -1/2)))) (sqrt (/ l h)))))) d)))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l))) #s(hole binary64 (/ (+ (* (* D (* M (* (sqrt -1/2) (sqrt 1/2)))) (sqrt (/ h l))) (* (pow d 2) (+ (* (/ (sqrt 1/2) (* D (* M (sqrt -1/2)))) (sqrt (/ l h))) (* (pow d 2) (+ (* -1/2 (* (/ (sqrt 1/2) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (* 1/2 (* (/ (* (pow d 2) (sqrt 1/2)) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/2) 5)))) (sqrt (/ (pow l 5) (pow h 5)))))))))) d)))

Calls

18 calls:

Time	Variable		Point	Expression
126.0ms	M	@	-inf	((* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)) (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)) (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* w0 (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)))) (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) (* (sqrt 2) (sqrt 1/2)) (sqrt 2) (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (+ (* (* (* D D) -1/8) (/ (* (* (/ M d) M) h) (* d l))) 1) (* (* D D) -1/8) (* 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))) (+ (* (* h -1/4) (/ (* (* (* M M) D) D) (* (* d l) d))) 1) (* 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 h) (* (/ D d) (* (/ M d) M))) (/ D l)) 1) (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l))) (* (* (/ (/ D d) 2) M) h) (* (/ (/ D d) 2) M) (sqrt 1/2) (/ (* (* (/ M d) M) h) (* d l)) (* (* (/ M d) M) h) (/ (* (* (* M M) D) D) (* (* d l) d)) (* (* M M) D) (* (* (* M M) D) D) (* (/ D d) (* (/ M d) M)) (* (* -1/4 h) (* (/ D d) (* (/ M d) M))))
23.0ms	M	@	0	((* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)) (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)) (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* w0 (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)))) (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) (* (sqrt 2) (sqrt 1/2)) (sqrt 2) (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (+ (* (* (* D D) -1/8) (/ (* (* (/ M d) M) h) (* d l))) 1) (* (* D D) -1/8) (* 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))) (+ (* (* h -1/4) (/ (* (* (* M M) D) D) (* (* d l) d))) 1) (* 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 h) (* (/ D d) (* (/ M d) M))) (/ D l)) 1) (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l))) (* (* (/ (/ D d) 2) M) h) (* (/ (/ D d) 2) M) (sqrt 1/2) (/ (* (* (/ M d) M) h) (* d l)) (* (* (/ M d) M) h) (/ (* (* (* M M) D) D) (* (* d l) d)) (* (* M M) D) (* (* (* M M) D) D) (* (/ D d) (* (/ M d) M)) (* (* -1/4 h) (* (/ D d) (* (/ M d) M))))
9.0ms	d	@	0	((* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)) (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)) (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* w0 (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)))) (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) (* (sqrt 2) (sqrt 1/2)) (sqrt 2) (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (+ (* (* (* D D) -1/8) (/ (* (* (/ M d) M) h) (* d l))) 1) (* (* D D) -1/8) (* 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))) (+ (* (* h -1/4) (/ (* (* (* M M) D) D) (* (* d l) d))) 1) (* 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 h) (* (/ D d) (* (/ M d) M))) (/ D l)) 1) (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l))) (* (* (/ (/ D d) 2) M) h) (* (/ (/ D d) 2) M) (sqrt 1/2) (/ (* (* (/ M d) M) h) (* d l)) (* (* (/ M d) M) h) (/ (* (* (* M M) D) D) (* (* d l) d)) (* (* M M) D) (* (* (* M M) D) D) (* (/ D d) (* (/ M d) M)) (* (* -1/4 h) (* (/ D d) (* (/ M d) M))))
9.0ms	w0	@	0	((* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)) (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)) (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* w0 (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)))) (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) (* (sqrt 2) (sqrt 1/2)) (sqrt 2) (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (+ (* (* (* D D) -1/8) (/ (* (* (/ M d) M) h) (* d l))) 1) (* (* D D) -1/8) (* 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))) (+ (* (* h -1/4) (/ (* (* (* M M) D) D) (* (* d l) d))) 1) (* 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 h) (* (/ D d) (* (/ M d) M))) (/ D l)) 1) (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l))) (* (* (/ (/ D d) 2) M) h) (* (/ (/ D d) 2) M) (sqrt 1/2) (/ (* (* (/ M d) M) h) (* d l)) (* (* (/ M d) M) h) (/ (* (* (* M M) D) D) (* (* d l) d)) (* (* M M) D) (* (* (* M M) D) D) (* (/ D d) (* (/ M d) M)) (* (* -1/4 h) (* (/ D d) (* (/ M d) M))))
9.0ms	D	@	-inf	((* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)) (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)) (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* w0 (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)))) (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) (* (sqrt 2) (sqrt 1/2)) (sqrt 2) (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (+ (* (* (* D D) -1/8) (/ (* (* (/ M d) M) h) (* d l))) 1) (* (* D D) -1/8) (* 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))) (+ (* (* h -1/4) (/ (* (* (* M M) D) D) (* (* d l) d))) 1) (* 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 h) (* (/ D d) (* (/ M d) M))) (/ D l)) 1) (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l))) (* (* (/ (/ D d) 2) M) h) (* (/ (/ D d) 2) M) (sqrt 1/2) (/ (* (* (/ M d) M) h) (* d l)) (* (* (/ M d) M) h) (/ (* (* (* M M) D) D) (* (* d l) d)) (* (* M M) D) (* (* (* M M) D) D) (* (/ D d) (* (/ M d) M)) (* (* -1/4 h) (* (/ D d) (* (/ M d) M))))

simplify238.0ms (2.6%)

Memory

13.5MiB live, 400.2MiB allocated; 53ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	1591	21510
1	5364	21318
0	8609	20813

Stop Event

1×	iter limit
1×	node limit

Counts

304 → 304

Calls

Call 1

Inputs
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)))) #s(hole binary64 (* (sqrt (/ (- (* 2 l) (* 1/2 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l)) (* w0 (sqrt 1/2)))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (* (sqrt (/ (- (* 2 l) (* 1/2 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l)) (* w0 (sqrt 1/2)))))
#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 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)) #s(hole binary64 (* 1/4 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))))
#s(approx (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)) #s(hole binary64 1))
#s(approx (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)) #s(hole binary64 (+ 1 (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))))))
#s(approx (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) #s(hole binary64 (* 2 l)))
#s(approx (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) #s(hole binary64 (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2))) (* 2 l))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)))) #s(hole binary64 (* w0 (* (sqrt 1/2) (sqrt 2)))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)))) #s(hole binary64 (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (* h (* w0 (sqrt 1/2))))) (* (pow d 2) (* l (sqrt 2))))) (* w0 (* (sqrt 1/2) (sqrt 2))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)))) #s(hole binary64 (+ (* w0 (* (sqrt 1/2) (sqrt 2))) (* (pow M 2) (+ (* -1/4 (/ (* (pow D 2) (* h (* w0 (sqrt 1/2)))) (* (pow d 2) (* l (sqrt 2))))) (* -1/32 (/ (* (pow D 4) (* (pow M 2) (* (pow h 2) (* w0 (sqrt 1/2))))) (* (pow d 4) (* (pow l 2) (pow (sqrt 2) 3))))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)))) #s(hole binary64 (+ (* w0 (* (sqrt 1/2) (sqrt 2))) (* (pow M 2) (+ (* -1/4 (/ (* (pow D 2) (* h (* w0 (sqrt 1/2)))) (* (pow d 2) (* l (sqrt 2))))) (* (pow M 2) (+ (* -1/32 (/ (* (pow D 4) (* (pow h 2) (* w0 (sqrt 1/2)))) (* (pow d 4) (* (pow l 2) (pow (sqrt 2) 3))))) (* -1/128 (/ (* (pow D 6) (* (pow M 2) (* (pow h 3) (* w0 (sqrt 1/2))))) (* (pow d 6) (* (pow l 3) (pow (sqrt 2) 5))))))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (* w0 (* (sqrt 1/2) (sqrt 2)))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (* h (* w0 (sqrt 1/2))))) (* (pow d 2) (* l (sqrt 2))))) (* w0 (* (sqrt 1/2) (sqrt 2))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (+ (* w0 (* (sqrt 1/2) (sqrt 2))) (* (pow M 2) (+ (* -1/4 (/ (* (pow D 2) (* h (* w0 (sqrt 1/2)))) (* (pow d 2) (* l (sqrt 2))))) (* -1/32 (/ (* (pow D 4) (* (pow M 2) (* (pow h 2) (* w0 (sqrt 1/2))))) (* (pow d 4) (* (pow l 2) (pow (sqrt 2) 3))))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (+ (* w0 (* (sqrt 1/2) (sqrt 2))) (* (pow M 2) (+ (* -1/4 (/ (* (pow D 2) (* h (* w0 (sqrt 1/2)))) (* (pow d 2) (* l (sqrt 2))))) (* (pow M 2) (+ (* -1/32 (/ (* (pow D 4) (* (pow h 2) (* w0 (sqrt 1/2)))) (* (pow d 4) (* (pow l 2) (pow (sqrt 2) 3))))) (* -1/128 (/ (* (pow D 6) (* (pow M 2) (* (pow h 3) (* w0 (sqrt 1/2))))) (* (pow d 6) (* (pow l 3) (pow (sqrt 2) 5))))))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (* (sqrt 1/2) (sqrt 2))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (* h (sqrt 1/2)))) (* (pow d 2) (* l (sqrt 2))))) (* (sqrt 1/2) (sqrt 2)))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (+ (* (sqrt 1/2) (sqrt 2)) (* (pow M 2) (+ (* -1/4 (/ (* (pow D 2) (* h (sqrt 1/2))) (* (pow d 2) (* l (sqrt 2))))) (* -1/32 (/ (* (pow D 4) (* (pow M 2) (* (pow h 2) (sqrt 1/2)))) (* (pow d 4) (* (pow l 2) (pow (sqrt 2) 3))))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (+ (* (sqrt 1/2) (sqrt 2)) (* (pow M 2) (+ (* -1/4 (/ (* (pow D 2) (* h (sqrt 1/2))) (* (pow d 2) (* l (sqrt 2))))) (* (pow M 2) (+ (* -1/32 (/ (* (pow D 4) (* (pow h 2) (sqrt 1/2))) (* (pow d 4) (* (pow l 2) (pow (sqrt 2) 3))))) (* -1/128 (/ (* (pow D 6) (* (pow M 2) (* (pow h 3) (sqrt 1/2)))) (* (pow d 6) (* (pow l 3) (pow (sqrt 2) 5))))))))))))
#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 (+ (* (* (* D D) -1/8) (/ (* (* (/ M d) M) h) (* d l))) 1) #s(hole binary64 1))
#s(approx (+ (* (* (* D D) -1/8) (/ (* (* (/ M d) M) h) (* d l))) 1) #s(hole binary64 (+ 1 (* -1/8 (/ (* (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 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 (+ (* (* h -1/4) (/ (* (* (* M M) D) D) (* (* d l) d))) 1) #s(hole binary64 1))
#s(approx (+ (* (* h -1/4) (/ (* (* (* M M) D) D) (* (* d l) d))) 1) #s(hole binary64 (+ 1 (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))))))
#s(approx (+ (* (* (* -1/4 h) (* (/ D d) (* (/ M d) M))) (/ D l)) 1) #s(hole binary64 1))
#s(approx (+ (* (* (* -1/4 h) (* (/ D d) (* (/ M d) M))) (/ D l)) 1) #s(hole binary64 (+ 1 (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l))) #s(hole binary64 (* (sqrt 1/2) (sqrt 2))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l))) #s(hole binary64 (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (* h (sqrt 1/2)))) (* (pow d 2) (* l (sqrt 2))))) (* (sqrt 1/2) (sqrt 2)))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l))) #s(hole binary64 (+ (* (sqrt 1/2) (sqrt 2)) (* (pow M 2) (+ (* -1/4 (/ (* (pow D 2) (* h (sqrt 1/2))) (* (pow d 2) (* l (sqrt 2))))) (* -1/32 (/ (* (pow D 4) (* (pow M 2) (* (pow h 2) (sqrt 1/2)))) (* (pow d 4) (* (pow l 2) (pow (sqrt 2) 3))))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l))) #s(hole binary64 (+ (* (sqrt 1/2) (sqrt 2)) (* (pow M 2) (+ (* -1/4 (/ (* (pow D 2) (* h (sqrt 1/2))) (* (pow d 2) (* l (sqrt 2))))) (* (pow M 2) (+ (* -1/32 (/ (* (pow D 4) (* (pow h 2) (sqrt 1/2))) (* (pow d 4) (* (pow l 2) (pow (sqrt 2) 3))))) (* -1/128 (/ (* (pow D 6) (* (pow M 2) (* (pow h 3) (sqrt 1/2)))) (* (pow d 6) (* (pow l 3) (pow (sqrt 2) 5))))))))))))
#s(approx (* (* (/ (/ D d) 2) M) h) #s(hole binary64 (* 1/2 (/ (* D (* M h)) d))))
#s(approx (* (/ (/ D d) 2) M) #s(hole binary64 (* 1/2 (/ (* D M) d))))
#s(approx (/ (* (* (/ M d) M) h) (* d l)) #s(hole binary64 (/ (* (pow M 2) h) (* (pow d 2) l))))
#s(approx (* (* (/ M d) M) h) #s(hole binary64 (/ (* (pow M 2) h) d)))
#s(approx (/ (* (* (* M M) D) D) (* (* d l) d)) #s(hole binary64 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))))
#s(approx (* (* M M) D) #s(hole binary64 (* D (pow M 2))))
#s(approx (* (* (* M M) D) D) #s(hole binary64 (* (pow D 2) (pow M 2))))
#s(approx (* (/ D d) (* (/ M d) M)) #s(hole binary64 (/ (* D (pow M 2)) (pow d 2))))
#s(approx (* (* -1/4 h) (* (/ D d) (* (/ M d) M))) #s(hole binary64 (* -1/4 (/ (* D (* (pow M 2) h)) (pow d 2)))))
#s(approx (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)) #s(hole binary64 (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l)))))
#s(approx (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)) #s(hole binary64 (* (pow M 2) (+ (* -1/4 (/ (* (pow D 2) h) (* (pow d 2) l))) (/ 1 (pow M 2))))))
#s(approx (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) #s(hole binary64 (* -1/2 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))))
#s(approx (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) #s(hole binary64 (* (pow M 2) (- (* 2 (/ l (pow M 2))) (* 1/2 (/ (* (pow D 2) h) (pow d 2)))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)))) #s(hole binary64 (* (/ (* D (* M (* w0 (* (sqrt -1/2) (sqrt 1/2))))) d) (sqrt (/ h l)))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)))) #s(hole binary64 (* M (+ (* (/ (* D (* w0 (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (/ h l))) (* (/ (* d (* w0 (sqrt 1/2))) (* D (* (pow M 2) (sqrt -1/2)))) (sqrt (/ l h)))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)))) #s(hole binary64 (* M (+ (* -1/2 (* (/ (* (pow d 3) (* w0 (sqrt 1/2))) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* (/ (* D (* w0 (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (/ h l))) (* (/ (* d (* w0 (sqrt 1/2))) (* D (* (pow M 2) (sqrt -1/2)))) (sqrt (/ l h))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)))) #s(hole binary64 (* M (+ (* -1/2 (* (/ (* (pow d 3) (* w0 (sqrt 1/2))) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ (* (pow d 5) (* w0 (sqrt 1/2))) (* (pow D 5) (* (pow M 6) (pow (sqrt -1/2) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* (/ (* D (* w0 (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (/ h l))) (* (/ (* d (* w0 (sqrt 1/2))) (* D (* (pow M 2) (sqrt -1/2)))) (sqrt (/ l h)))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (* (/ (* D (* M (* w0 (* (sqrt -1/2) (sqrt 1/2))))) d) (sqrt (/ h l)))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (* M (+ (* (/ (* D (* w0 (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (/ h l))) (* (/ (* d (* w0 (sqrt 1/2))) (* D (* (pow M 2) (sqrt -1/2)))) (sqrt (/ l h)))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (* M (+ (* -1/2 (* (/ (* (pow d 3) (* w0 (sqrt 1/2))) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* (/ (* D (* w0 (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (/ h l))) (* (/ (* d (* w0 (sqrt 1/2))) (* D (* (pow M 2) (sqrt -1/2)))) (sqrt (/ l h))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (* M (+ (* -1/2 (* (/ (* (pow d 3) (* w0 (sqrt 1/2))) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ (* (pow d 5) (* w0 (sqrt 1/2))) (* (pow D 5) (* (pow M 6) (pow (sqrt -1/2) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* (/ (* D (* w0 (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (/ h l))) (* (/ (* d (* w0 (sqrt 1/2))) (* D (* (pow M 2) (sqrt -1/2)))) (sqrt (/ l h)))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (* (/ (* D (* M (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (/ h l)))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (* M (+ (* (/ (* D (* (sqrt -1/2) (sqrt 1/2))) d) (sqrt (/ h l))) (* (/ (* d (sqrt 1/2)) (* D (* (pow M 2) (sqrt -1/2)))) (sqrt (/ l h)))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (* M (+ (* -1/2 (* (/ (* (pow d 3) (sqrt 1/2)) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* (/ (* D (* (sqrt -1/2) (sqrt 1/2))) d) (sqrt (/ h l))) (* (/ (* d (sqrt 1/2)) (* D (* (pow M 2) (sqrt -1/2)))) (sqrt (/ l h))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (* M (+ (* -1/2 (* (/ (* (pow d 3) (sqrt 1/2)) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ (* (pow d 5) (sqrt 1/2)) (* (pow D 5) (* (pow M 6) (pow (sqrt -1/2) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* (/ (* D (* (sqrt -1/2) (sqrt 1/2))) d) (sqrt (/ h l))) (* (/ (* d (sqrt 1/2)) (* D (* (pow M 2) (sqrt -1/2)))) (sqrt (/ l h)))))))))
#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) 3)))) (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) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 5) (* (pow M 6) (pow (sqrt -1/4) 5)))) (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) 3)))) (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) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (pow d 5) (* (pow D 5) (* (pow M 6) (pow (sqrt -1/4) 5)))) (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 (+ (* (* (* D D) -1/8) (/ (* (* (/ M d) M) h) (* d l))) 1) #s(hole binary64 (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l)))))
#s(approx (+ (* (* (* D D) -1/8) (/ (* (* (/ M d) M) h) (* d l))) 1) #s(hole binary64 (* (pow M 2) (+ (* -1/8 (/ (* (pow D 2) h) (* (pow d 2) l))) (/ 1 (pow M 2))))))
#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 (+ (* (* h -1/4) (/ (* (* (* M M) D) D) (* (* d l) d))) 1) #s(hole binary64 (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l)))))
#s(approx (+ (* (* h -1/4) (/ (* (* (* M M) D) D) (* (* d l) d))) 1) #s(hole binary64 (* (pow M 2) (+ (* -1/4 (/ (* (pow D 2) h) (* (pow d 2) l))) (/ 1 (pow M 2))))))
#s(approx (+ (* (* (* -1/4 h) (* (/ D d) (* (/ M d) M))) (/ D l)) 1) #s(hole binary64 (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l)))))
#s(approx (+ (* (* (* -1/4 h) (* (/ D d) (* (/ M d) M))) (/ D l)) 1) #s(hole binary64 (* (pow M 2) (+ (* -1/4 (/ (* (pow D 2) h) (* (pow d 2) l))) (/ 1 (pow M 2))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l))) #s(hole binary64 (* (/ (* D (* M (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (/ h l)))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l))) #s(hole binary64 (* M (+ (* (/ (* D (* (sqrt -1/2) (sqrt 1/2))) d) (sqrt (/ h l))) (* (/ (* d (sqrt 1/2)) (* D (* (pow M 2) (sqrt -1/2)))) (sqrt (/ l h)))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l))) #s(hole binary64 (* M (+ (* -1/2 (* (/ (* (pow d 3) (sqrt 1/2)) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* (/ (* D (* (sqrt -1/2) (sqrt 1/2))) d) (sqrt (/ h l))) (* (/ (* d (sqrt 1/2)) (* D (* (pow M 2) (sqrt -1/2)))) (sqrt (/ l h))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l))) #s(hole binary64 (* M (+ (* -1/2 (* (/ (* (pow d 3) (sqrt 1/2)) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ (* (pow d 5) (sqrt 1/2)) (* (pow D 5) (* (pow M 6) (pow (sqrt -1/2) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* (/ (* D (* (sqrt -1/2) (sqrt 1/2))) d) (sqrt (/ h l))) (* (/ (* d (sqrt 1/2)) (* D (* (pow M 2) (sqrt -1/2)))) (sqrt (/ l h)))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)))) #s(hole binary64 (* -1 (* (/ (* D (* M (* w0 (* (sqrt -1/2) (sqrt 1/2))))) d) (sqrt (/ h l))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)))) #s(hole binary64 (* -1 (* M (+ (* (/ (* D (* w0 (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (/ h l))) (* (/ (* d (* w0 (sqrt 1/2))) (* D (* (pow M 2) (sqrt -1/2)))) (sqrt (/ l h))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)))) #s(hole binary64 (* -1 (* M (+ (* -1/2 (* (/ (* (pow d 3) (* w0 (sqrt 1/2))) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* (/ (* D (* w0 (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (/ h l))) (* (/ (* d (* w0 (sqrt 1/2))) (* D (* (pow M 2) (sqrt -1/2)))) (sqrt (/ l h)))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)))) #s(hole binary64 (* -1 (* M (+ (* -1/2 (* (/ (* (pow d 3) (* w0 (sqrt 1/2))) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ (* (pow d 5) (* w0 (sqrt 1/2))) (* (pow D 5) (* (pow M 6) (pow (sqrt -1/2) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* (/ (* D (* w0 (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (/ h l))) (* (/ (* d (* w0 (sqrt 1/2))) (* D (* (pow M 2) (sqrt -1/2)))) (sqrt (/ l h))))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (* -1 (* (/ (* D (* M (* w0 (* (sqrt -1/2) (sqrt 1/2))))) d) (sqrt (/ h l))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (* -1 (* M (+ (* (/ (* D (* w0 (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (/ h l))) (* (/ (* d (* w0 (sqrt 1/2))) (* D (* (pow M 2) (sqrt -1/2)))) (sqrt (/ l h))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (* -1 (* M (+ (* -1/2 (* (/ (* (pow d 3) (* w0 (sqrt 1/2))) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* (/ (* D (* w0 (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (/ h l))) (* (/ (* d (* w0 (sqrt 1/2))) (* D (* (pow M 2) (sqrt -1/2)))) (sqrt (/ l h)))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (* -1 (* M (+ (* -1/2 (* (/ (* (pow d 3) (* w0 (sqrt 1/2))) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ (* (pow d 5) (* w0 (sqrt 1/2))) (* (pow D 5) (* (pow M 6) (pow (sqrt -1/2) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* (/ (* D (* w0 (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (/ h l))) (* (/ (* d (* w0 (sqrt 1/2))) (* D (* (pow M 2) (sqrt -1/2)))) (sqrt (/ l h))))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (* -1 (* (/ (* D (* M (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (/ h l))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (* -1 (* M (+ (* (/ (* D (* (sqrt -1/2) (sqrt 1/2))) d) (sqrt (/ h l))) (* (/ (* d (sqrt 1/2)) (* D (* (pow M 2) (sqrt -1/2)))) (sqrt (/ l h))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (* -1 (* M (+ (* -1/2 (* (/ (* (pow d 3) (sqrt 1/2)) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* (/ (* D (* (sqrt -1/2) (sqrt 1/2))) d) (sqrt (/ h l))) (* (/ (* d (sqrt 1/2)) (* D (* (pow M 2) (sqrt -1/2)))) (sqrt (/ l h)))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (* -1 (* M (+ (* -1/2 (* (/ (* (pow d 3) (sqrt 1/2)) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ (* (pow d 5) (sqrt 1/2)) (* (pow D 5) (* (pow M 6) (pow (sqrt -1/2) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* (/ (* D (* (sqrt -1/2) (sqrt 1/2))) d) (sqrt (/ h l))) (* (/ (* d (sqrt 1/2)) (* D (* (pow M 2) (sqrt -1/2)))) (sqrt (/ l h))))))))))
#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) (pow (sqrt -1/4) 3)))) (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) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 5) (* (pow M 6) (pow (sqrt -1/4) 5)))) (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) 3)))) (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) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (pow d 5) (* (pow D 5) (* (pow M 6) (pow (sqrt -1/4) 5)))) (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 (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l))) #s(hole binary64 (* -1 (* (/ (* D (* M (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (/ h l))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l))) #s(hole binary64 (* -1 (* M (+ (* (/ (* D (* (sqrt -1/2) (sqrt 1/2))) d) (sqrt (/ h l))) (* (/ (* d (sqrt 1/2)) (* D (* (pow M 2) (sqrt -1/2)))) (sqrt (/ l h))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l))) #s(hole binary64 (* -1 (* M (+ (* -1/2 (* (/ (* (pow d 3) (sqrt 1/2)) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* (/ (* D (* (sqrt -1/2) (sqrt 1/2))) d) (sqrt (/ h l))) (* (/ (* d (sqrt 1/2)) (* D (* (pow M 2) (sqrt -1/2)))) (sqrt (/ l h)))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l))) #s(hole binary64 (* -1 (* M (+ (* -1/2 (* (/ (* (pow d 3) (sqrt 1/2)) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ (* (pow d 5) (sqrt 1/2)) (* (pow D 5) (* (pow M 6) (pow (sqrt -1/2) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* (/ (* D (* (sqrt -1/2) (sqrt 1/2))) d) (sqrt (/ h l))) (* (/ (* d (sqrt 1/2)) (* D (* (pow M 2) (sqrt -1/2)))) (sqrt (/ l h))))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)))) #s(hole binary64 (+ (* w0 (* (sqrt 1/2) (sqrt 2))) (* (pow D 2) (+ (* -1/4 (/ (* (pow M 2) (* h (* w0 (sqrt 1/2)))) (* (pow d 2) (* l (sqrt 2))))) (* -1/32 (/ (* (pow D 2) (* (pow M 4) (* (pow h 2) (* w0 (sqrt 1/2))))) (* (pow d 4) (* (pow l 2) (pow (sqrt 2) 3))))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)))) #s(hole binary64 (+ (* w0 (* (sqrt 1/2) (sqrt 2))) (* (pow D 2) (+ (* -1/4 (/ (* (pow M 2) (* h (* w0 (sqrt 1/2)))) (* (pow d 2) (* l (sqrt 2))))) (* (pow D 2) (+ (* -1/32 (/ (* (pow M 4) (* (pow h 2) (* w0 (sqrt 1/2)))) (* (pow d 4) (* (pow l 2) (pow (sqrt 2) 3))))) (* -1/128 (/ (* (pow D 2) (* (pow M 6) (* (pow h 3) (* w0 (sqrt 1/2))))) (* (pow d 6) (* (pow l 3) (pow (sqrt 2) 5))))))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (+ (* w0 (* (sqrt 1/2) (sqrt 2))) (* (pow D 2) (+ (* -1/4 (/ (* (pow M 2) (* h (* w0 (sqrt 1/2)))) (* (pow d 2) (* l (sqrt 2))))) (* -1/32 (/ (* (pow D 2) (* (pow M 4) (* (pow h 2) (* w0 (sqrt 1/2))))) (* (pow d 4) (* (pow l 2) (pow (sqrt 2) 3))))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (+ (* w0 (* (sqrt 1/2) (sqrt 2))) (* (pow D 2) (+ (* -1/4 (/ (* (pow M 2) (* h (* w0 (sqrt 1/2)))) (* (pow d 2) (* l (sqrt 2))))) (* (pow D 2) (+ (* -1/32 (/ (* (pow M 4) (* (pow h 2) (* w0 (sqrt 1/2)))) (* (pow d 4) (* (pow l 2) (pow (sqrt 2) 3))))) (* -1/128 (/ (* (pow D 2) (* (pow M 6) (* (pow h 3) (* w0 (sqrt 1/2))))) (* (pow d 6) (* (pow l 3) (pow (sqrt 2) 5))))))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (+ (* (sqrt 1/2) (sqrt 2)) (* (pow D 2) (+ (* -1/4 (/ (* (pow M 2) (* h (sqrt 1/2))) (* (pow d 2) (* l (sqrt 2))))) (* -1/32 (/ (* (pow D 2) (* (pow M 4) (* (pow h 2) (sqrt 1/2)))) (* (pow d 4) (* (pow l 2) (pow (sqrt 2) 3))))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (+ (* (sqrt 1/2) (sqrt 2)) (* (pow D 2) (+ (* -1/4 (/ (* (pow M 2) (* h (sqrt 1/2))) (* (pow d 2) (* l (sqrt 2))))) (* (pow D 2) (+ (* -1/32 (/ (* (pow M 4) (* (pow h 2) (sqrt 1/2))) (* (pow d 4) (* (pow l 2) (pow (sqrt 2) 3))))) (* -1/128 (/ (* (pow D 2) (* (pow M 6) (* (pow h 3) (sqrt 1/2)))) (* (pow d 6) (* (pow l 3) (pow (sqrt 2) 5))))))))))))
#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 D) -1/8) #s(hole binary64 (* -1/8 (pow D 2))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l))) #s(hole binary64 (+ (* (sqrt 1/2) (sqrt 2)) (* (pow D 2) (+ (* -1/4 (/ (* (pow M 2) (* h (sqrt 1/2))) (* (pow d 2) (* l (sqrt 2))))) (* -1/32 (/ (* (pow D 2) (* (pow M 4) (* (pow h 2) (sqrt 1/2)))) (* (pow d 4) (* (pow l 2) (pow (sqrt 2) 3))))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l))) #s(hole binary64 (+ (* (sqrt 1/2) (sqrt 2)) (* (pow D 2) (+ (* -1/4 (/ (* (pow M 2) (* h (sqrt 1/2))) (* (pow d 2) (* l (sqrt 2))))) (* (pow D 2) (+ (* -1/32 (/ (* (pow M 4) (* (pow h 2) (sqrt 1/2))) (* (pow d 4) (* (pow l 2) (pow (sqrt 2) 3))))) (* -1/128 (/ (* (pow D 2) (* (pow M 6) (* (pow h 3) (sqrt 1/2)))) (* (pow d 6) (* (pow l 3) (pow (sqrt 2) 5))))))))))))
#s(approx (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)) #s(hole binary64 (* (pow D 2) (+ (* -1/4 (/ (* (pow M 2) h) (* (pow d 2) l))) (/ 1 (pow D 2))))))
#s(approx (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) #s(hole binary64 (* (pow D 2) (- (* 2 (/ l (pow D 2))) (* 1/2 (/ (* (pow M 2) h) (pow d 2)))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)))) #s(hole binary64 (* D (+ (* (/ (* M (* w0 (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (/ h l))) (* (/ (* d (* w0 (sqrt 1/2))) (* (pow D 2) (* M (sqrt -1/2)))) (sqrt (/ l h)))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)))) #s(hole binary64 (* D (+ (* -1/2 (* (/ (* (pow d 3) (* w0 (sqrt 1/2))) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* (/ (* M (* w0 (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (/ h l))) (* (/ (* d (* w0 (sqrt 1/2))) (* (pow D 2) (* M (sqrt -1/2)))) (sqrt (/ l h))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)))) #s(hole binary64 (* D (+ (* -1/2 (* (/ (* (pow d 3) (* w0 (sqrt 1/2))) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ (* (pow d 5) (* w0 (sqrt 1/2))) (* (pow D 6) (* (pow M 5) (pow (sqrt -1/2) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* (/ (* M (* w0 (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (/ h l))) (* (/ (* d (* w0 (sqrt 1/2))) (* (pow D 2) (* M (sqrt -1/2)))) (sqrt (/ l h)))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (* D (+ (* (/ (* M (* w0 (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (/ h l))) (* (/ (* d (* w0 (sqrt 1/2))) (* (pow D 2) (* M (sqrt -1/2)))) (sqrt (/ l h)))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (* D (+ (* -1/2 (* (/ (* (pow d 3) (* w0 (sqrt 1/2))) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* (/ (* M (* w0 (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (/ h l))) (* (/ (* d (* w0 (sqrt 1/2))) (* (pow D 2) (* M (sqrt -1/2)))) (sqrt (/ l h))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (* D (+ (* -1/2 (* (/ (* (pow d 3) (* w0 (sqrt 1/2))) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ (* (pow d 5) (* w0 (sqrt 1/2))) (* (pow D 6) (* (pow M 5) (pow (sqrt -1/2) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* (/ (* M (* w0 (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (/ h l))) (* (/ (* d (* w0 (sqrt 1/2))) (* (pow D 2) (* M (sqrt -1/2)))) (sqrt (/ l h)))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (* D (+ (* (/ (* M (* (sqrt -1/2) (sqrt 1/2))) d) (sqrt (/ h l))) (* (/ (* d (sqrt 1/2)) (* (pow D 2) (* M (sqrt -1/2)))) (sqrt (/ l h)))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (* D (+ (* -1/2 (* (/ (* (pow d 3) (sqrt 1/2)) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* (/ (* M (* (sqrt -1/2) (sqrt 1/2))) d) (sqrt (/ h l))) (* (/ (* d (sqrt 1/2)) (* (pow D 2) (* M (sqrt -1/2)))) (sqrt (/ l h))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (* D (+ (* -1/2 (* (/ (* (pow d 3) (sqrt 1/2)) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ (* (pow d 5) (sqrt 1/2)) (* (pow D 6) (* (pow M 5) (pow (sqrt -1/2) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* (/ (* M (* (sqrt -1/2) (sqrt 1/2))) d) (sqrt (/ h l))) (* (/ (* d (sqrt 1/2)) (* (pow D 2) (* M (sqrt -1/2)))) (sqrt (/ l h)))))))))
#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) 3)))) (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) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 6) (* (pow M 5) (pow (sqrt -1/4) 5)))) (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) 3)))) (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) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (pow d 5) (* (pow D 6) (* (pow M 5) (pow (sqrt -1/4) 5)))) (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 (+ (* (* (* D D) -1/8) (/ (* (* (/ M d) M) h) (* d l))) 1) #s(hole binary64 (* (pow D 2) (+ (* -1/8 (/ (* (pow M 2) h) (* (pow d 2) l))) (/ 1 (pow D 2))))))
#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 (+ (* (* h -1/4) (/ (* (* (* M M) D) D) (* (* d l) d))) 1) #s(hole binary64 (* (pow D 2) (+ (* -1/4 (/ (* (pow M 2) h) (* (pow d 2) l))) (/ 1 (pow D 2))))))
#s(approx (+ (* (* (* -1/4 h) (* (/ D d) (* (/ M d) M))) (/ D l)) 1) #s(hole binary64 (* (pow D 2) (+ (* -1/4 (/ (* (pow M 2) h) (* (pow d 2) l))) (/ 1 (pow D 2))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l))) #s(hole binary64 (* D (+ (* (/ (* M (* (sqrt -1/2) (sqrt 1/2))) d) (sqrt (/ h l))) (* (/ (* d (sqrt 1/2)) (* (pow D 2) (* M (sqrt -1/2)))) (sqrt (/ l h)))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l))) #s(hole binary64 (* D (+ (* -1/2 (* (/ (* (pow d 3) (sqrt 1/2)) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* (/ (* M (* (sqrt -1/2) (sqrt 1/2))) d) (sqrt (/ h l))) (* (/ (* d (sqrt 1/2)) (* (pow D 2) (* M (sqrt -1/2)))) (sqrt (/ l h))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l))) #s(hole binary64 (* D (+ (* -1/2 (* (/ (* (pow d 3) (sqrt 1/2)) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ (* (pow d 5) (sqrt 1/2)) (* (pow D 6) (* (pow M 5) (pow (sqrt -1/2) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* (/ (* M (* (sqrt -1/2) (sqrt 1/2))) d) (sqrt (/ h l))) (* (/ (* d (sqrt 1/2)) (* (pow D 2) (* M (sqrt -1/2)))) (sqrt (/ l h)))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)))) #s(hole binary64 (* -1 (* D (+ (* (/ (* M (* w0 (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (/ h l))) (* (/ (* d (* w0 (sqrt 1/2))) (* (pow D 2) (* M (sqrt -1/2)))) (sqrt (/ l h))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)))) #s(hole binary64 (* -1 (* D (+ (* -1/2 (* (/ (* (pow d 3) (* w0 (sqrt 1/2))) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* (/ (* M (* w0 (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (/ h l))) (* (/ (* d (* w0 (sqrt 1/2))) (* (pow D 2) (* M (sqrt -1/2)))) (sqrt (/ l h)))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)))) #s(hole binary64 (* -1 (* D (+ (* -1/2 (* (/ (* (pow d 3) (* w0 (sqrt 1/2))) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ (* (pow d 5) (* w0 (sqrt 1/2))) (* (pow D 6) (* (pow M 5) (pow (sqrt -1/2) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* (/ (* M (* w0 (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (/ h l))) (* (/ (* d (* w0 (sqrt 1/2))) (* (pow D 2) (* M (sqrt -1/2)))) (sqrt (/ l h))))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (* -1 (* D (+ (* (/ (* M (* w0 (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (/ h l))) (* (/ (* d (* w0 (sqrt 1/2))) (* (pow D 2) (* M (sqrt -1/2)))) (sqrt (/ l h))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (* -1 (* D (+ (* -1/2 (* (/ (* (pow d 3) (* w0 (sqrt 1/2))) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* (/ (* M (* w0 (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (/ h l))) (* (/ (* d (* w0 (sqrt 1/2))) (* (pow D 2) (* M (sqrt -1/2)))) (sqrt (/ l h)))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (* -1 (* D (+ (* -1/2 (* (/ (* (pow d 3) (* w0 (sqrt 1/2))) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ (* (pow d 5) (* w0 (sqrt 1/2))) (* (pow D 6) (* (pow M 5) (pow (sqrt -1/2) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* (/ (* M (* w0 (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (/ h l))) (* (/ (* d (* w0 (sqrt 1/2))) (* (pow D 2) (* M (sqrt -1/2)))) (sqrt (/ l h))))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (* -1 (* D (+ (* (/ (* M (* (sqrt -1/2) (sqrt 1/2))) d) (sqrt (/ h l))) (* (/ (* d (sqrt 1/2)) (* (pow D 2) (* M (sqrt -1/2)))) (sqrt (/ l h))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (* -1 (* D (+ (* -1/2 (* (/ (* (pow d 3) (sqrt 1/2)) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* (/ (* M (* (sqrt -1/2) (sqrt 1/2))) d) (sqrt (/ h l))) (* (/ (* d (sqrt 1/2)) (* (pow D 2) (* M (sqrt -1/2)))) (sqrt (/ l h)))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (* -1 (* D (+ (* -1/2 (* (/ (* (pow d 3) (sqrt 1/2)) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ (* (pow d 5) (sqrt 1/2)) (* (pow D 6) (* (pow M 5) (pow (sqrt -1/2) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* (/ (* M (* (sqrt -1/2) (sqrt 1/2))) d) (sqrt (/ h l))) (* (/ (* d (sqrt 1/2)) (* (pow D 2) (* M (sqrt -1/2)))) (sqrt (/ l h))))))))))
#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) 3)))) (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) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 6) (* (pow M 5) (pow (sqrt -1/4) 5)))) (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) 3)))) (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) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (pow d 5) (* (pow D 6) (* (pow M 5) (pow (sqrt -1/4) 5)))) (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 (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l))) #s(hole binary64 (* -1 (* D (+ (* (/ (* M (* (sqrt -1/2) (sqrt 1/2))) d) (sqrt (/ h l))) (* (/ (* d (sqrt 1/2)) (* (pow D 2) (* M (sqrt -1/2)))) (sqrt (/ l h))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l))) #s(hole binary64 (* -1 (* D (+ (* -1/2 (* (/ (* (pow d 3) (sqrt 1/2)) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* (/ (* M (* (sqrt -1/2) (sqrt 1/2))) d) (sqrt (/ h l))) (* (/ (* d (sqrt 1/2)) (* (pow D 2) (* M (sqrt -1/2)))) (sqrt (/ l h)))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l))) #s(hole binary64 (* -1 (* D (+ (* -1/2 (* (/ (* (pow d 3) (sqrt 1/2)) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ (* (pow d 5) (sqrt 1/2)) (* (pow D 6) (* (pow M 5) (pow (sqrt -1/2) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* (/ (* M (* (sqrt -1/2) (sqrt 1/2))) d) (sqrt (/ h l))) (* (/ (* d (sqrt 1/2)) (* (pow D 2) (* M (sqrt -1/2)))) (sqrt (/ l h))))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)))) #s(hole binary64 (+ (* h (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (* w0 (sqrt 1/2)))) (* (pow d 2) (* l (sqrt 2))))) (* -1/32 (/ (* (pow D 4) (* (pow M 4) (* h (* w0 (sqrt 1/2))))) (* (pow d 4) (* (pow l 2) (pow (sqrt 2) 3))))))) (* w0 (* (sqrt 1/2) (sqrt 2))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)))) #s(hole binary64 (+ (* h (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (* w0 (sqrt 1/2)))) (* (pow d 2) (* l (sqrt 2))))) (* h (+ (* -1/32 (/ (* (pow D 4) (* (pow M 4) (* w0 (sqrt 1/2)))) (* (pow d 4) (* (pow l 2) (pow (sqrt 2) 3))))) (* -1/128 (/ (* (pow D 6) (* (pow M 6) (* h (* w0 (sqrt 1/2))))) (* (pow d 6) (* (pow l 3) (pow (sqrt 2) 5))))))))) (* w0 (* (sqrt 1/2) (sqrt 2))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (+ (* h (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (* w0 (sqrt 1/2)))) (* (pow d 2) (* l (sqrt 2))))) (* -1/32 (/ (* (pow D 4) (* (pow M 4) (* h (* w0 (sqrt 1/2))))) (* (pow d 4) (* (pow l 2) (pow (sqrt 2) 3))))))) (* w0 (* (sqrt 1/2) (sqrt 2))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (+ (* h (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (* w0 (sqrt 1/2)))) (* (pow d 2) (* l (sqrt 2))))) (* h (+ (* -1/32 (/ (* (pow D 4) (* (pow M 4) (* w0 (sqrt 1/2)))) (* (pow d 4) (* (pow l 2) (pow (sqrt 2) 3))))) (* -1/128 (/ (* (pow D 6) (* (pow M 6) (* h (* w0 (sqrt 1/2))))) (* (pow d 6) (* (pow l 3) (pow (sqrt 2) 5))))))))) (* w0 (* (sqrt 1/2) (sqrt 2))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (+ (* h (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (sqrt 1/2))) (* (pow d 2) (* l (sqrt 2))))) (* -1/32 (/ (* (pow D 4) (* (pow M 4) (* h (sqrt 1/2)))) (* (pow d 4) (* (pow l 2) (pow (sqrt 2) 3))))))) (* (sqrt 1/2) (sqrt 2)))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (+ (* h (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (sqrt 1/2))) (* (pow d 2) (* l (sqrt 2))))) (* h (+ (* -1/32 (/ (* (pow D 4) (* (pow M 4) (sqrt 1/2))) (* (pow d 4) (* (pow l 2) (pow (sqrt 2) 3))))) (* -1/128 (/ (* (pow D 6) (* (pow M 6) (* h (sqrt 1/2)))) (* (pow d 6) (* (pow l 3) (pow (sqrt 2) 5))))))))) (* (sqrt 1/2) (sqrt 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))) (* -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 (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l))) #s(hole binary64 (+ (* h (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (sqrt 1/2))) (* (pow d 2) (* l (sqrt 2))))) (* -1/32 (/ (* (pow D 4) (* (pow M 4) (* h (sqrt 1/2)))) (* (pow d 4) (* (pow l 2) (pow (sqrt 2) 3))))))) (* (sqrt 1/2) (sqrt 2)))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l))) #s(hole binary64 (+ (* h (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (sqrt 1/2))) (* (pow d 2) (* l (sqrt 2))))) (* h (+ (* -1/32 (/ (* (pow D 4) (* (pow M 4) (sqrt 1/2))) (* (pow d 4) (* (pow l 2) (pow (sqrt 2) 3))))) (* -1/128 (/ (* (pow D 6) (* (pow M 6) (* h (sqrt 1/2)))) (* (pow d 6) (* (pow l 3) (pow (sqrt 2) 5))))))))) (* (sqrt 1/2) (sqrt 2)))))
#s(approx (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)) #s(hole binary64 (* h (+ (* -1/4 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (/ 1 h)))))
#s(approx (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) #s(hole binary64 (* h (- (* 2 (/ l h)) (* 1/2 (/ (* (pow D 2) (pow M 2)) (pow d 2)))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)))) #s(hole binary64 (* h (+ (* (/ (* D (* M (* w0 (* (sqrt -1/2) (sqrt 1/2))))) d) (sqrt (/ 1 (* h l)))) (* (/ (* d (* w0 (sqrt 1/2))) (* D (* M (sqrt -1/2)))) (sqrt (/ l (pow h 3))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)))) #s(hole binary64 (* h (+ (* -1/2 (* (/ (* (pow d 3) (* w0 (sqrt 1/2))) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* (/ (* D (* M (* w0 (* (sqrt -1/2) (sqrt 1/2))))) d) (sqrt (/ 1 (* h l)))) (* (/ (* d (* w0 (sqrt 1/2))) (* D (* M (sqrt -1/2)))) (sqrt (/ l (pow h 3)))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)))) #s(hole binary64 (* h (+ (* -1/2 (* (/ (* (pow d 3) (* w0 (sqrt 1/2))) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/2 (* (/ (* (pow d 5) (* w0 (sqrt 1/2))) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/2) 5)))) (sqrt (/ (pow l 5) (pow h 7))))) (+ (* (/ (* D (* M (* w0 (* (sqrt -1/2) (sqrt 1/2))))) d) (sqrt (/ 1 (* h l)))) (* (/ (* d (* w0 (sqrt 1/2))) (* D (* M (sqrt -1/2)))) (sqrt (/ l (pow h 3))))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (* h (+ (* (/ (* D (* M (* w0 (* (sqrt -1/2) (sqrt 1/2))))) d) (sqrt (/ 1 (* h l)))) (* (/ (* d (* w0 (sqrt 1/2))) (* D (* M (sqrt -1/2)))) (sqrt (/ l (pow h 3))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (* h (+ (* -1/2 (* (/ (* (pow d 3) (* w0 (sqrt 1/2))) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* (/ (* D (* M (* w0 (* (sqrt -1/2) (sqrt 1/2))))) d) (sqrt (/ 1 (* h l)))) (* (/ (* d (* w0 (sqrt 1/2))) (* D (* M (sqrt -1/2)))) (sqrt (/ l (pow h 3)))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (* h (+ (* -1/2 (* (/ (* (pow d 3) (* w0 (sqrt 1/2))) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/2 (* (/ (* (pow d 5) (* w0 (sqrt 1/2))) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/2) 5)))) (sqrt (/ (pow l 5) (pow h 7))))) (+ (* (/ (* D (* M (* w0 (* (sqrt -1/2) (sqrt 1/2))))) d) (sqrt (/ 1 (* h l)))) (* (/ (* d (* w0 (sqrt 1/2))) (* D (* M (sqrt -1/2)))) (sqrt (/ l (pow h 3))))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (* h (+ (* (/ (* D (* M (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (/ 1 (* h l)))) (* (/ (* d (sqrt 1/2)) (* D (* M (sqrt -1/2)))) (sqrt (/ l (pow h 3))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (* h (+ (* -1/2 (* (/ (* (pow d 3) (sqrt 1/2)) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* (/ (* D (* M (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (/ 1 (* h l)))) (* (/ (* d (sqrt 1/2)) (* D (* M (sqrt -1/2)))) (sqrt (/ l (pow h 3)))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (* h (+ (* -1/2 (* (/ (* (pow d 3) (sqrt 1/2)) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/2 (* (/ (* (pow d 5) (sqrt 1/2)) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/2) 5)))) (sqrt (/ (pow l 5) (pow h 7))))) (+ (* (/ (* D (* M (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (/ 1 (* h l)))) (* (/ (* d (sqrt 1/2)) (* D (* M (sqrt -1/2)))) (sqrt (/ l (pow h 3))))))))))
#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) 3)))) (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) 3)))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/4) 5)))) (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) 3)))) (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) 3)))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/16 (* (/ (pow d 5) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/4) 5)))) (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 (+ (* (* (* D D) -1/8) (/ (* (* (/ M d) M) h) (* d l))) 1) #s(hole binary64 (* h (+ (* -1/8 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (/ 1 h)))))
#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 (+ (* (* h -1/4) (/ (* (* (* M M) D) D) (* (* d l) d))) 1) #s(hole binary64 (* h (+ (* -1/4 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (/ 1 h)))))
#s(approx (+ (* (* (* -1/4 h) (* (/ D d) (* (/ M d) M))) (/ D l)) 1) #s(hole binary64 (* h (+ (* -1/4 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (/ 1 h)))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l))) #s(hole binary64 (* h (+ (* (/ (* D (* M (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (/ 1 (* h l)))) (* (/ (* d (sqrt 1/2)) (* D (* M (sqrt -1/2)))) (sqrt (/ l (pow h 3))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l))) #s(hole binary64 (* h (+ (* -1/2 (* (/ (* (pow d 3) (sqrt 1/2)) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* (/ (* D (* M (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (/ 1 (* h l)))) (* (/ (* d (sqrt 1/2)) (* D (* M (sqrt -1/2)))) (sqrt (/ l (pow h 3)))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l))) #s(hole binary64 (* h (+ (* -1/2 (* (/ (* (pow d 3) (sqrt 1/2)) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/2 (* (/ (* (pow d 5) (sqrt 1/2)) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/2) 5)))) (sqrt (/ (pow l 5) (pow h 7))))) (+ (* (/ (* D (* M (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (/ 1 (* h l)))) (* (/ (* d (sqrt 1/2)) (* D (* M (sqrt -1/2)))) (sqrt (/ l (pow h 3))))))))))
#s(approx (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)) #s(hole binary64 (* -1 (* h (- (* 1/4 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (/ 1 h))))))
#s(approx (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) #s(hole binary64 (* -1 (* h (- (* -2 (/ l h)) (* -1/2 (/ (* (pow D 2) (pow M 2)) (pow d 2))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)))) #s(hole binary64 (* -1 (* (/ (* D (* M (* w0 (* (sqrt -1) (pow (sqrt 1/2) 2))))) d) (sqrt (/ h l))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)))) #s(hole binary64 (* -1 (* h (+ (* (/ (* D (* M (* w0 (* (sqrt -1) (pow (sqrt 1/2) 2))))) d) (sqrt (/ 1 (* h l)))) (* (/ (* d (* w0 (sqrt -1))) (* D M)) (sqrt (/ l (pow h 3)))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)))) #s(hole binary64 (* -1 (* h (+ (* -1/2 (* (/ (* (pow d 3) (* w0 (sqrt -1))) (* (pow D 3) (* (pow M 3) (pow (sqrt 1/2) 2)))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* (/ (* D (* M (* w0 (* (sqrt -1) (pow (sqrt 1/2) 2))))) d) (sqrt (/ 1 (* h l)))) (* (/ (* d (* w0 (sqrt -1))) (* D M)) (sqrt (/ l (pow h 3))))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)))) #s(hole binary64 (* -1 (* h (+ (* -1/2 (* (/ (* (pow d 3) (* w0 (sqrt -1))) (* (pow D 3) (* (pow M 3) (pow (sqrt 1/2) 2)))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/2 (* (/ (* (pow d 5) (* w0 (sqrt -1))) (* (pow D 5) (* (pow M 5) (pow (sqrt 1/2) 4)))) (sqrt (/ (pow l 5) (pow h 7))))) (+ (* (/ (* D (* M (* w0 (* (sqrt -1) (pow (sqrt 1/2) 2))))) d) (sqrt (/ 1 (* h l)))) (* (/ (* d (* w0 (sqrt -1))) (* D M)) (sqrt (/ l (pow h 3)))))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (* -1 (* (/ (* D (* M (* w0 (* (sqrt -1) (pow (sqrt 1/2) 2))))) d) (sqrt (/ h l))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (* -1 (* h (+ (* (/ (* D (* M (* w0 (* (sqrt -1) (pow (sqrt 1/2) 2))))) d) (sqrt (/ 1 (* h l)))) (* (/ (* d (* w0 (sqrt -1))) (* D M)) (sqrt (/ l (pow h 3)))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (* -1 (* h (+ (* -1/2 (* (/ (* (pow d 3) (* w0 (sqrt -1))) (* (pow D 3) (* (pow M 3) (pow (sqrt 1/2) 2)))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* (/ (* D (* M (* w0 (* (sqrt -1) (pow (sqrt 1/2) 2))))) d) (sqrt (/ 1 (* h l)))) (* (/ (* d (* w0 (sqrt -1))) (* D M)) (sqrt (/ l (pow h 3))))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (* -1 (* h (+ (* -1/2 (* (/ (* (pow d 3) (* w0 (sqrt -1))) (* (pow D 3) (* (pow M 3) (pow (sqrt 1/2) 2)))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/2 (* (/ (* (pow d 5) (* w0 (sqrt -1))) (* (pow D 5) (* (pow M 5) (pow (sqrt 1/2) 4)))) (sqrt (/ (pow l 5) (pow h 7))))) (+ (* (/ (* D (* M (* w0 (* (sqrt -1) (pow (sqrt 1/2) 2))))) d) (sqrt (/ 1 (* h l)))) (* (/ (* d (* w0 (sqrt -1))) (* D M)) (sqrt (/ l (pow h 3)))))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (* -1 (* (/ (* D (* M (* (sqrt -1) (pow (sqrt 1/2) 2)))) d) (sqrt (/ h l))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (* -1 (* h (+ (* (/ (* D (* M (* (sqrt -1) (pow (sqrt 1/2) 2)))) d) (sqrt (/ 1 (* h l)))) (* (/ (* d (sqrt -1)) (* D M)) (sqrt (/ l (pow h 3)))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (* -1 (* h (+ (* -1/2 (* (/ (* (pow d 3) (sqrt -1)) (* (pow D 3) (* (pow M 3) (pow (sqrt 1/2) 2)))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* (/ (* D (* M (* (sqrt -1) (pow (sqrt 1/2) 2)))) d) (sqrt (/ 1 (* h l)))) (* (/ (* d (sqrt -1)) (* D M)) (sqrt (/ l (pow h 3))))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (* -1 (* h (+ (* -1/2 (* (/ (* (pow d 3) (sqrt -1)) (* (pow D 3) (* (pow M 3) (pow (sqrt 1/2) 2)))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/2 (* (/ (* (pow d 5) (sqrt -1)) (* (pow D 5) (* (pow M 5) (pow (sqrt 1/2) 4)))) (sqrt (/ (pow l 5) (pow h 7))))) (+ (* (/ (* D (* M (* (sqrt -1) (pow (sqrt 1/2) 2)))) d) (sqrt (/ 1 (* h l)))) (* (/ (* d (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/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 (+ (* (* (* D D) -1/8) (/ (* (* (/ M d) M) h) (* d l))) 1) #s(hole binary64 (* -1 (* h (- (* 1/8 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (/ 1 h))))))
#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 (+ (* (* h -1/4) (/ (* (* (* M M) D) D) (* (* d l) d))) 1) #s(hole binary64 (* -1 (* h (- (* 1/4 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (/ 1 h))))))
#s(approx (+ (* (* (* -1/4 h) (* (/ D d) (* (/ M d) M))) (/ D l)) 1) #s(hole binary64 (* -1 (* h (- (* 1/4 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (/ 1 h))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l))) #s(hole binary64 (* -1 (* (/ (* D (* M (* (sqrt -1) (pow (sqrt 1/2) 2)))) d) (sqrt (/ h l))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l))) #s(hole binary64 (* -1 (* h (+ (* (/ (* D (* M (* (sqrt -1) (pow (sqrt 1/2) 2)))) d) (sqrt (/ 1 (* h l)))) (* (/ (* d (sqrt -1)) (* D M)) (sqrt (/ l (pow h 3)))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l))) #s(hole binary64 (* -1 (* h (+ (* -1/2 (* (/ (* (pow d 3) (sqrt -1)) (* (pow D 3) (* (pow M 3) (pow (sqrt 1/2) 2)))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* (/ (* D (* M (* (sqrt -1) (pow (sqrt 1/2) 2)))) d) (sqrt (/ 1 (* h l)))) (* (/ (* d (sqrt -1)) (* D M)) (sqrt (/ l (pow h 3))))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l))) #s(hole binary64 (* -1 (* h (+ (* -1/2 (* (/ (* (pow d 3) (sqrt -1)) (* (pow D 3) (* (pow M 3) (pow (sqrt 1/2) 2)))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/2 (* (/ (* (pow d 5) (sqrt -1)) (* (pow D 5) (* (pow M 5) (pow (sqrt 1/2) 4)))) (sqrt (/ (pow l 5) (pow h 7))))) (+ (* (/ (* D (* M (* (sqrt -1) (pow (sqrt 1/2) 2)))) d) (sqrt (/ 1 (* h l)))) (* (/ (* d (sqrt -1)) (* D M)) (sqrt (/ l (pow h 3)))))))))))
#s(approx (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)) #s(hole binary64 (/ (+ l (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l)))
#s(approx (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) #s(hole binary64 (- (* 2 l) (* 1/2 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)))) #s(hole binary64 (/ (+ (* (/ (* D (* M (* w0 (* (sqrt -1/2) (sqrt 1/2))))) d) (sqrt (* h l))) (* (/ (* d (* w0 (sqrt 1/2))) (* D (* M (sqrt -1/2)))) (sqrt (/ (pow l 3) h)))) l)))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)))) #s(hole binary64 (/ (+ (* (/ (* D (* M (* w0 (* (sqrt -1/2) (sqrt 1/2))))) d) (sqrt (* h l))) (* (pow l 2) (+ (* -1/2 (* (/ (* (pow d 3) (* w0 (sqrt 1/2))) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ l (pow h 3))))) (* (/ (* d (* w0 (sqrt 1/2))) (* D (* M (sqrt -1/2)))) (sqrt (/ 1 (* h l))))))) l)))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)))) #s(hole binary64 (/ (+ (* (/ (* D (* M (* w0 (* (sqrt -1/2) (sqrt 1/2))))) d) (sqrt (* h l))) (* (pow l 2) (+ (* (/ (* d (* w0 (sqrt 1/2))) (* D (* M (sqrt -1/2)))) (sqrt (/ 1 (* h l)))) (* (pow l 2) (+ (* -1/2 (* (/ (* (pow d 3) (* w0 (sqrt 1/2))) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ 1 (* (pow h 3) (pow l 3)))))) (* 1/2 (* (/ (* (pow d 5) (* w0 (sqrt 1/2))) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/2) 5)))) (sqrt (/ 1 (* (pow h 5) l)))))))))) l)))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (/ (+ (* (/ (* D (* M (* w0 (* (sqrt -1/2) (sqrt 1/2))))) d) (sqrt (* h l))) (* (/ (* d (* w0 (sqrt 1/2))) (* D (* M (sqrt -1/2)))) (sqrt (/ (pow l 3) h)))) l)))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (/ (+ (* (/ (* D (* M (* w0 (* (sqrt -1/2) (sqrt 1/2))))) d) (sqrt (* h l))) (* (pow l 2) (+ (* -1/2 (* (/ (* (pow d 3) (* w0 (sqrt 1/2))) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ l (pow h 3))))) (* (/ (* d (* w0 (sqrt 1/2))) (* D (* M (sqrt -1/2)))) (sqrt (/ 1 (* h l))))))) l)))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (/ (+ (* (/ (* D (* M (* w0 (* (sqrt -1/2) (sqrt 1/2))))) d) (sqrt (* h l))) (* (pow l 2) (+ (* (/ (* d (* w0 (sqrt 1/2))) (* D (* M (sqrt -1/2)))) (sqrt (/ 1 (* h l)))) (* (pow l 2) (+ (* -1/2 (* (/ (* (pow d 3) (* w0 (sqrt 1/2))) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ 1 (* (pow h 3) (pow l 3)))))) (* 1/2 (* (/ (* (pow d 5) (* w0 (sqrt 1/2))) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/2) 5)))) (sqrt (/ 1 (* (pow h 5) l)))))))))) l)))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (/ (+ (* (/ (* D (* M (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (* h l))) (* (/ (* d (sqrt 1/2)) (* D (* M (sqrt -1/2)))) (sqrt (/ (pow l 3) h)))) l)))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (/ (+ (* (/ (* D (* M (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (* h l))) (* (pow l 2) (+ (* -1/2 (* (/ (* (pow d 3) (sqrt 1/2)) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ l (pow h 3))))) (* (/ (* d (sqrt 1/2)) (* D (* M (sqrt -1/2)))) (sqrt (/ 1 (* h l))))))) l)))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (/ (+ (* (/ (* D (* M (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (* h l))) (* (pow l 2) (+ (* (/ (* d (sqrt 1/2)) (* D (* M (sqrt -1/2)))) (sqrt (/ 1 (* h l)))) (* (pow l 2) (+ (* -1/2 (* (/ (* (pow d 3) (sqrt 1/2)) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ 1 (* (pow h 3) (pow l 3)))))) (* 1/2 (* (/ (* (pow d 5) (sqrt 1/2)) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/2) 5)))) (sqrt (/ 1 (* (pow h 5) l)))))))))) l)))
#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) 3)))) (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) 3)))) (sqrt (/ 1 (* (pow h 3) (pow l 3)))))) (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/4) 5)))) (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) 3)))) (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) 3)))) (sqrt (/ 1 (* (pow h 3) (pow l 3)))))) (* 1/16 (* (/ (pow d 5) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ 1 (* (pow h 5) l)))))))))) l)))
#s(approx (+ (* (* (* D D) -1/8) (/ (* (* (/ M d) M) h) (* d l))) 1) #s(hole binary64 (/ (+ l (* -1/8 (/ (* (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 (/ (- l (* 1/4 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l)))
#s(approx (+ (* (* h -1/4) (/ (* (* (* M M) D) D) (* (* d l) d))) 1) #s(hole binary64 (/ (+ l (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l)))
#s(approx (+ (* (* (* -1/4 h) (* (/ D d) (* (/ M d) M))) (/ D l)) 1) #s(hole binary64 (/ (+ l (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l)))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l))) #s(hole binary64 (/ (+ (* (/ (* D (* M (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (* h l))) (* (/ (* d (sqrt 1/2)) (* D (* M (sqrt -1/2)))) (sqrt (/ (pow l 3) h)))) l)))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l))) #s(hole binary64 (/ (+ (* (/ (* D (* M (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (* h l))) (* (pow l 2) (+ (* -1/2 (* (/ (* (pow d 3) (sqrt 1/2)) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ l (pow h 3))))) (* (/ (* d (sqrt 1/2)) (* D (* M (sqrt -1/2)))) (sqrt (/ 1 (* h l))))))) l)))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l))) #s(hole binary64 (/ (+ (* (/ (* D (* M (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (* h l))) (* (pow l 2) (+ (* (/ (* d (sqrt 1/2)) (* D (* M (sqrt -1/2)))) (sqrt (/ 1 (* h l)))) (* (pow l 2) (+ (* -1/2 (* (/ (* (pow d 3) (sqrt 1/2)) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ 1 (* (pow h 3) (pow l 3)))))) (* 1/2 (* (/ (* (pow d 5) (sqrt 1/2)) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/2) 5)))) (sqrt (/ 1 (* (pow h 5) l)))))))))) l)))
#s(approx (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) #s(hole binary64 (* l (+ 2 (* -1/2 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l)))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)))) #s(hole binary64 (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (* h (* w0 (sqrt 1/2))))) (* (pow d 2) (* l (sqrt 2))))) (+ (* -1/32 (/ (* (pow D 4) (* (pow M 4) (* (pow h 2) (* w0 (sqrt 1/2))))) (* (pow d 4) (* (pow l 2) (pow (sqrt 2) 3))))) (* w0 (* (sqrt 1/2) (sqrt 2)))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)))) #s(hole binary64 (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (* h (* w0 (sqrt 1/2))))) (* (pow d 2) (* l (sqrt 2))))) (+ (* -1/32 (/ (* (pow D 4) (* (pow M 4) (* (pow h 2) (* w0 (sqrt 1/2))))) (* (pow d 4) (* (pow l 2) (pow (sqrt 2) 3))))) (+ (* -1/128 (/ (* (pow D 6) (* (pow M 6) (* (pow h 3) (* w0 (sqrt 1/2))))) (* (pow d 6) (* (pow l 3) (pow (sqrt 2) 5))))) (* w0 (* (sqrt 1/2) (sqrt 2))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (* h (* w0 (sqrt 1/2))))) (* (pow d 2) (* l (sqrt 2))))) (+ (* -1/32 (/ (* (pow D 4) (* (pow M 4) (* (pow h 2) (* w0 (sqrt 1/2))))) (* (pow d 4) (* (pow l 2) (pow (sqrt 2) 3))))) (* w0 (* (sqrt 1/2) (sqrt 2)))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (* h (* w0 (sqrt 1/2))))) (* (pow d 2) (* l (sqrt 2))))) (+ (* -1/32 (/ (* (pow D 4) (* (pow M 4) (* (pow h 2) (* w0 (sqrt 1/2))))) (* (pow d 4) (* (pow l 2) (pow (sqrt 2) 3))))) (+ (* -1/128 (/ (* (pow D 6) (* (pow M 6) (* (pow h 3) (* w0 (sqrt 1/2))))) (* (pow d 6) (* (pow l 3) (pow (sqrt 2) 5))))) (* w0 (* (sqrt 1/2) (sqrt 2))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (* h (sqrt 1/2)))) (* (pow d 2) (* l (sqrt 2))))) (+ (* -1/32 (/ (* (pow D 4) (* (pow M 4) (* (pow h 2) (sqrt 1/2)))) (* (pow d 4) (* (pow l 2) (pow (sqrt 2) 3))))) (* (sqrt 1/2) (sqrt 2))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (* h (sqrt 1/2)))) (* (pow d 2) (* l (sqrt 2))))) (+ (* -1/32 (/ (* (pow D 4) (* (pow M 4) (* (pow h 2) (sqrt 1/2)))) (* (pow d 4) (* (pow l 2) (pow (sqrt 2) 3))))) (+ (* -1/128 (/ (* (pow D 6) (* (pow M 6) (* (pow h 3) (sqrt 1/2)))) (* (pow d 6) (* (pow l 3) (pow (sqrt 2) 5))))) (* (sqrt 1/2) (sqrt 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))))))))
#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 (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l))) #s(hole binary64 (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (* h (sqrt 1/2)))) (* (pow d 2) (* l (sqrt 2))))) (+ (* -1/32 (/ (* (pow D 4) (* (pow M 4) (* (pow h 2) (sqrt 1/2)))) (* (pow d 4) (* (pow l 2) (pow (sqrt 2) 3))))) (* (sqrt 1/2) (sqrt 2))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l))) #s(hole binary64 (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (* h (sqrt 1/2)))) (* (pow d 2) (* l (sqrt 2))))) (+ (* -1/32 (/ (* (pow D 4) (* (pow M 4) (* (pow h 2) (sqrt 1/2)))) (* (pow d 4) (* (pow l 2) (pow (sqrt 2) 3))))) (+ (* -1/128 (/ (* (pow D 6) (* (pow M 6) (* (pow h 3) (sqrt 1/2)))) (* (pow d 6) (* (pow l 3) (pow (sqrt 2) 5))))) (* (sqrt 1/2) (sqrt 2)))))))
#s(approx (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) #s(hole binary64 (* -1 (* l (- (* 1/2 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))) 2)))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)))) #s(hole binary64 (+ (* -1 (/ (+ (* 1/32 (/ (* (pow D 4) (* (pow M 4) (* (pow h 2) (* w0 (sqrt 1/2))))) (* (pow d 4) (* l (pow (sqrt 2) 3))))) (* 1/4 (/ (* (pow D 2) (* (pow M 2) (* h (* w0 (sqrt 1/2))))) (* (pow d 2) (sqrt 2))))) l)) (* w0 (* (sqrt 1/2) (sqrt 2))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1 (/ (+ (* -1/32 (/ (* (pow D 4) (* (pow M 4) (* (pow h 2) (* w0 (sqrt 1/2))))) (* (pow d 4) (pow (sqrt 2) 3)))) (* -1/128 (/ (* (pow D 6) (* (pow M 6) (* (pow h 3) (* w0 (sqrt 1/2))))) (* (pow d 6) (* l (pow (sqrt 2) 5)))))) l)) (* 1/4 (/ (* (pow D 2) (* (pow M 2) (* h (* w0 (sqrt 1/2))))) (* (pow d 2) (sqrt 2))))) l)) (* w0 (* (sqrt 1/2) (sqrt 2))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (+ (* -1 (/ (+ (* 1/32 (/ (* (pow D 4) (* (pow M 4) (* (pow h 2) (* w0 (sqrt 1/2))))) (* (pow d 4) (* l (pow (sqrt 2) 3))))) (* 1/4 (/ (* (pow D 2) (* (pow M 2) (* h (* w0 (sqrt 1/2))))) (* (pow d 2) (sqrt 2))))) l)) (* w0 (* (sqrt 1/2) (sqrt 2))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1 (/ (+ (* -1/32 (/ (* (pow D 4) (* (pow M 4) (* (pow h 2) (* w0 (sqrt 1/2))))) (* (pow d 4) (pow (sqrt 2) 3)))) (* -1/128 (/ (* (pow D 6) (* (pow M 6) (* (pow h 3) (* w0 (sqrt 1/2))))) (* (pow d 6) (* l (pow (sqrt 2) 5)))))) l)) (* 1/4 (/ (* (pow D 2) (* (pow M 2) (* h (* w0 (sqrt 1/2))))) (* (pow d 2) (sqrt 2))))) l)) (* w0 (* (sqrt 1/2) (sqrt 2))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (+ (* -1 (/ (+ (* 1/32 (/ (* (pow D 4) (* (pow M 4) (* (pow h 2) (sqrt 1/2)))) (* (pow d 4) (* l (pow (sqrt 2) 3))))) (* 1/4 (/ (* (pow D 2) (* (pow M 2) (* h (sqrt 1/2)))) (* (pow d 2) (sqrt 2))))) l)) (* (sqrt 1/2) (sqrt 2)))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (+ (* -1 (/ (+ (* -1 (/ (+ (* -1/32 (/ (* (pow D 4) (* (pow M 4) (* (pow h 2) (sqrt 1/2)))) (* (pow d 4) (pow (sqrt 2) 3)))) (* -1/128 (/ (* (pow D 6) (* (pow M 6) (* (pow h 3) (sqrt 1/2)))) (* (pow d 6) (* l (pow (sqrt 2) 5)))))) l)) (* 1/4 (/ (* (pow D 2) (* (pow M 2) (* h (sqrt 1/2)))) (* (pow d 2) (sqrt 2))))) l)) (* (sqrt 1/2) (sqrt 2)))))
#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 (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l))) #s(hole binary64 (+ (* -1 (/ (+ (* 1/32 (/ (* (pow D 4) (* (pow M 4) (* (pow h 2) (sqrt 1/2)))) (* (pow d 4) (* l (pow (sqrt 2) 3))))) (* 1/4 (/ (* (pow D 2) (* (pow M 2) (* h (sqrt 1/2)))) (* (pow d 2) (sqrt 2))))) l)) (* (sqrt 1/2) (sqrt 2)))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l))) #s(hole binary64 (+ (* -1 (/ (+ (* -1 (/ (+ (* -1/32 (/ (* (pow D 4) (* (pow M 4) (* (pow h 2) (sqrt 1/2)))) (* (pow d 4) (pow (sqrt 2) 3)))) (* -1/128 (/ (* (pow D 6) (* (pow M 6) (* (pow h 3) (sqrt 1/2)))) (* (pow d 6) (* l (pow (sqrt 2) 5)))))) l)) (* 1/4 (/ (* (pow D 2) (* (pow M 2) (* h (sqrt 1/2)))) (* (pow d 2) (sqrt 2))))) l)) (* (sqrt 1/2) (sqrt 2)))))
#s(approx (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)) #s(hole binary64 (/ (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) l)) (pow d 2)) (pow d 2))))
#s(approx (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) #s(hole binary64 (/ (- (* 2 (* (pow d 2) l)) (* 1/2 (* (pow D 2) (* (pow M 2) h)))) (pow d 2))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)))) #s(hole binary64 (/ (+ (* (* D (* M (* w0 (* (sqrt -1/2) (sqrt 1/2))))) (sqrt (/ h l))) (* (/ (* (pow d 2) (* w0 (sqrt 1/2))) (* D (* M (sqrt -1/2)))) (sqrt (/ l h)))) d)))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)))) #s(hole binary64 (/ (+ (* (* D (* M (* w0 (* (sqrt -1/2) (sqrt 1/2))))) (sqrt (/ h l))) (* (pow d 2) (+ (* -1/2 (* (/ (* (pow d 2) (* w0 (sqrt 1/2))) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (* (/ (* w0 (sqrt 1/2)) (* D (* M (sqrt -1/2)))) (sqrt (/ l h)))))) d)))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)))) #s(hole binary64 (/ (+ (* (* D (* M (* w0 (* (sqrt -1/2) (sqrt 1/2))))) (sqrt (/ h l))) (* (pow d 2) (+ (* (/ (* w0 (sqrt 1/2)) (* D (* M (sqrt -1/2)))) (sqrt (/ l h))) (* (pow d 2) (+ (* -1/2 (* (/ (* w0 (sqrt 1/2)) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (* 1/2 (* (/ (* (pow d 2) (* w0 (sqrt 1/2))) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/2) 5)))) (sqrt (/ (pow l 5) (pow h 5)))))))))) d)))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (/ (+ (* (* D (* M (* w0 (* (sqrt -1/2) (sqrt 1/2))))) (sqrt (/ h l))) (* (/ (* (pow d 2) (* w0 (sqrt 1/2))) (* D (* M (sqrt -1/2)))) (sqrt (/ l h)))) d)))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (/ (+ (* (* D (* M (* w0 (* (sqrt -1/2) (sqrt 1/2))))) (sqrt (/ h l))) (* (pow d 2) (+ (* -1/2 (* (/ (* (pow d 2) (* w0 (sqrt 1/2))) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (* (/ (* w0 (sqrt 1/2)) (* D (* M (sqrt -1/2)))) (sqrt (/ l h)))))) d)))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (/ (+ (* (* D (* M (* w0 (* (sqrt -1/2) (sqrt 1/2))))) (sqrt (/ h l))) (* (pow d 2) (+ (* (/ (* w0 (sqrt 1/2)) (* D (* M (sqrt -1/2)))) (sqrt (/ l h))) (* (pow d 2) (+ (* -1/2 (* (/ (* w0 (sqrt 1/2)) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (* 1/2 (* (/ (* (pow d 2) (* w0 (sqrt 1/2))) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/2) 5)))) (sqrt (/ (pow l 5) (pow h 5)))))))))) d)))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (/ (+ (* (* D (* M (* (sqrt -1/2) (sqrt 1/2)))) (sqrt (/ h l))) (* (/ (* (pow d 2) (sqrt 1/2)) (* D (* M (sqrt -1/2)))) (sqrt (/ l h)))) d)))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (/ (+ (* (* D (* M (* (sqrt -1/2) (sqrt 1/2)))) (sqrt (/ h l))) (* (pow d 2) (+ (* -1/2 (* (/ (* (pow d 2) (sqrt 1/2)) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (* (/ (sqrt 1/2) (* D (* M (sqrt -1/2)))) (sqrt (/ l h)))))) d)))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (/ (+ (* (* D (* M (* (sqrt -1/2) (sqrt 1/2)))) (sqrt (/ h l))) (* (pow d 2) (+ (* (/ (sqrt 1/2) (* D (* M (sqrt -1/2)))) (sqrt (/ l h))) (* (pow d 2) (+ (* -1/2 (* (/ (sqrt 1/2) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (* 1/2 (* (/ (* (pow d 2) (sqrt 1/2)) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/2) 5)))) (sqrt (/ (pow l 5) (pow h 5)))))))))) d)))
#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) 3)))) (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) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (* 1/16 (* (/ (* (pow d 2) w0) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/4) 5)))) (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) 3)))) (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) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (* 1/16 (* (/ (pow d 2) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5)))))))))) d)))
#s(approx (+ (* (* (* D D) -1/8) (/ (* (* (/ M d) M) h) (* d l))) 1) #s(hole binary64 (/ (+ (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) l)) (pow d 2)) (pow d 2))))
#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 (+ (* (* h -1/4) (/ (* (* (* M M) D) D) (* (* d l) d))) 1) #s(hole binary64 (/ (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) l)) (pow d 2)) (pow d 2))))
#s(approx (+ (* (* (* -1/4 h) (* (/ D d) (* (/ M d) M))) (/ D l)) 1) #s(hole binary64 (/ (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) l)) (pow d 2)) (pow d 2))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l))) #s(hole binary64 (/ (+ (* (* D (* M (* (sqrt -1/2) (sqrt 1/2)))) (sqrt (/ h l))) (* (/ (* (pow d 2) (sqrt 1/2)) (* D (* M (sqrt -1/2)))) (sqrt (/ l h)))) d)))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l))) #s(hole binary64 (/ (+ (* (* D (* M (* (sqrt -1/2) (sqrt 1/2)))) (sqrt (/ h l))) (* (pow d 2) (+ (* -1/2 (* (/ (* (pow d 2) (sqrt 1/2)) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (* (/ (sqrt 1/2) (* D (* M (sqrt -1/2)))) (sqrt (/ l h)))))) d)))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l))) #s(hole binary64 (/ (+ (* (* D (* M (* (sqrt -1/2) (sqrt 1/2)))) (sqrt (/ h l))) (* (pow d 2) (+ (* (/ (sqrt 1/2) (* D (* M (sqrt -1/2)))) (sqrt (/ l h))) (* (pow d 2) (+ (* -1/2 (* (/ (sqrt 1/2) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (* 1/2 (* (/ (* (pow d 2) (sqrt 1/2)) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/2) 5)))) (sqrt (/ (pow l 5) (pow h 5)))))))))) d)))

Outputs
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)))) #s(hole binary64 (* (sqrt (/ (- (* 2 l) (* 1/2 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l)) (* w0 (sqrt 1/2)))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)))) (.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) (sqrt.f64 (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 (.f64 M M) h) (.f64 D D)) (.f64 d d)) (.f64 #s(literal 2 binary64) l)) l))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (* (sqrt (/ (- (* 2 l) (* 1/2 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l)) (* w0 (sqrt 1/2)))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) (.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) (sqrt.f64 (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 (.f64 M M) h) (.f64 D D)) (.f64 d d)) (.f64 #s(literal 2 binary64) l)) 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 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (.f64 (sqrt.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 (.f64 M M) h) (.f64 D D)) (.f64 (*.f64 d d) l)) #s(literal 1 binary64))) w0))
#s(approx (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)) #s(hole binary64 (* 1/4 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))))
#s(approx (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (.f64 (.f64 M M) h) (.f64 D D)) (.f64 d d))))
#s(approx (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)) #s(hole binary64 1))
#s(approx (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)) #s(literal 1 binary64))
#s(approx (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)) #s(hole binary64 (+ 1 (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))))))
#s(approx (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 (.f64 M M) h) (.f64 D D)) (.f64 (.f64 d d) l)) #s(literal 1 binary64)))
#s(approx (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) #s(hole binary64 (* 2 l)))
#s(approx (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (*.f64 #s(literal 2 binary64) l))
#s(approx (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) #s(hole binary64 (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2))) (* 2 l))))
#s(approx (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 (.f64 M M) h) (.f64 D D)) (.f64 d d)) (.f64 #s(literal 2 binary64) l)))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)))) #s(hole binary64 (* w0 (* (sqrt 1/2) (sqrt 2)))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)))) (.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)))) #s(hole binary64 (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (* h (* w0 (sqrt 1/2))))) (* (pow d 2) (* l (sqrt 2))))) (* w0 (* (sqrt 1/2) (sqrt 2))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)))) (fma.f64 (.f64 (/.f64 (.f64 D D) (.f64 d d)) (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) h) (.f64 M M)) (.f64 (sqrt.f64 #s(literal 2 binary64)) l))) #s(literal -1/4 binary64) (.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)))) #s(hole binary64 (+ (* w0 (* (sqrt 1/2) (sqrt 2))) (* (pow M 2) (+ (* -1/4 (/ (* (pow D 2) (* h (* w0 (sqrt 1/2)))) (* (pow d 2) (* l (sqrt 2))))) (* -1/32 (/ (* (pow D 4) (* (pow M 2) (* (pow h 2) (* w0 (sqrt 1/2))))) (* (pow d 4) (* (pow l 2) (pow (sqrt 2) 3))))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)))) (fma.f64 (fma.f64 (/.f64 (/.f64 (.f64 (.f64 (.f64 (.f64 (.f64 h h) w0) (sqrt.f64 #s(literal 1/2 binary64))) (.f64 M M)) (pow.f64 D #s(literal 4 binary64))) (pow.f64 d #s(literal 4 binary64))) (.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 l l))) #s(literal -1/32 binary64) (.f64 (.f64 (/.f64 (.f64 D D) (.f64 d d)) (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) h) (.f64 (sqrt.f64 #s(literal 2 binary64)) l))) #s(literal -1/4 binary64))) (.f64 M M) (.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)))) #s(hole binary64 (+ (* w0 (* (sqrt 1/2) (sqrt 2))) (* (pow M 2) (+ (* -1/4 (/ (* (pow D 2) (* h (* w0 (sqrt 1/2)))) (* (pow d 2) (* l (sqrt 2))))) (* (pow M 2) (+ (* -1/32 (/ (* (pow D 4) (* (pow h 2) (* w0 (sqrt 1/2)))) (* (pow d 4) (* (pow l 2) (pow (sqrt 2) 3))))) (* -1/128 (/ (* (pow D 6) (* (pow M 2) (* (pow h 3) (* w0 (sqrt 1/2))))) (* (pow d 6) (* (pow l 3) (pow (sqrt 2) 5))))))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)))) (fma.f64 (fma.f64 (fma.f64 (/.f64 (/.f64 (.f64 (.f64 (.f64 (.f64 (pow.f64 h #s(literal 3 binary64)) w0) (sqrt.f64 #s(literal 1/2 binary64))) (.f64 M M)) (pow.f64 D #s(literal 6 binary64))) (pow.f64 d #s(literal 6 binary64))) (.f64 (pow.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 5 binary64)) (pow.f64 l #s(literal 3 binary64)))) #s(literal -1/128 binary64) (.f64 (/.f64 (/.f64 (.f64 (.f64 (.f64 (.f64 h h) w0) (sqrt.f64 #s(literal 1/2 binary64))) (pow.f64 D #s(literal 4 binary64))) (pow.f64 d #s(literal 4 binary64))) (.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 l l))) #s(literal -1/32 binary64))) (.f64 M M) (.f64 (.f64 (/.f64 (.f64 D D) (.f64 d d)) (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) h) (.f64 (sqrt.f64 #s(literal 2 binary64)) l))) #s(literal -1/4 binary64))) (.f64 M M) (.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (* w0 (* (sqrt 1/2) (sqrt 2)))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) (.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (* h (* w0 (sqrt 1/2))))) (* (pow d 2) (* l (sqrt 2))))) (* w0 (* (sqrt 1/2) (sqrt 2))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) (fma.f64 (.f64 (/.f64 (.f64 D D) (.f64 d d)) (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) h) (.f64 M M)) (.f64 (sqrt.f64 #s(literal 2 binary64)) l))) #s(literal -1/4 binary64) (.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (+ (* w0 (* (sqrt 1/2) (sqrt 2))) (* (pow M 2) (+ (* -1/4 (/ (* (pow D 2) (* h (* w0 (sqrt 1/2)))) (* (pow d 2) (* l (sqrt 2))))) (* -1/32 (/ (* (pow D 4) (* (pow M 2) (* (pow h 2) (* w0 (sqrt 1/2))))) (* (pow d 4) (* (pow l 2) (pow (sqrt 2) 3))))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) (fma.f64 (fma.f64 (/.f64 (/.f64 (.f64 (.f64 (.f64 (.f64 (.f64 h h) w0) (sqrt.f64 #s(literal 1/2 binary64))) (.f64 M M)) (pow.f64 D #s(literal 4 binary64))) (pow.f64 d #s(literal 4 binary64))) (.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 l l))) #s(literal -1/32 binary64) (.f64 (.f64 (/.f64 (.f64 D D) (.f64 d d)) (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) h) (.f64 (sqrt.f64 #s(literal 2 binary64)) l))) #s(literal -1/4 binary64))) (.f64 M M) (.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (+ (* w0 (* (sqrt 1/2) (sqrt 2))) (* (pow M 2) (+ (* -1/4 (/ (* (pow D 2) (* h (* w0 (sqrt 1/2)))) (* (pow d 2) (* l (sqrt 2))))) (* (pow M 2) (+ (* -1/32 (/ (* (pow D 4) (* (pow h 2) (* w0 (sqrt 1/2)))) (* (pow d 4) (* (pow l 2) (pow (sqrt 2) 3))))) (* -1/128 (/ (* (pow D 6) (* (pow M 2) (* (pow h 3) (* w0 (sqrt 1/2))))) (* (pow d 6) (* (pow l 3) (pow (sqrt 2) 5))))))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) (fma.f64 (fma.f64 (fma.f64 (/.f64 (/.f64 (.f64 (.f64 (.f64 (.f64 (pow.f64 h #s(literal 3 binary64)) w0) (sqrt.f64 #s(literal 1/2 binary64))) (.f64 M M)) (pow.f64 D #s(literal 6 binary64))) (pow.f64 d #s(literal 6 binary64))) (.f64 (pow.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 5 binary64)) (pow.f64 l #s(literal 3 binary64)))) #s(literal -1/128 binary64) (.f64 (/.f64 (/.f64 (.f64 (.f64 (.f64 (.f64 h h) w0) (sqrt.f64 #s(literal 1/2 binary64))) (pow.f64 D #s(literal 4 binary64))) (pow.f64 d #s(literal 4 binary64))) (.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 l l))) #s(literal -1/32 binary64))) (.f64 M M) (.f64 (.f64 (/.f64 (.f64 D D) (.f64 d d)) (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) h) (.f64 (sqrt.f64 #s(literal 2 binary64)) l))) #s(literal -1/4 binary64))) (.f64 M M) (.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (* (sqrt 1/2) (sqrt 2))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(literal 1/2 binary64))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (* h (sqrt 1/2)))) (* (pow d 2) (* l (sqrt 2))))) (* (sqrt 1/2) (sqrt 2)))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) (fma.f64 (.f64 (/.f64 (.f64 D D) (.f64 d d)) (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) h) (.f64 M M)) (.f64 (sqrt.f64 #s(literal 2 binary64)) l))) #s(literal -1/4 binary64) (.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(literal 1/2 binary64)))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (+ (* (sqrt 1/2) (sqrt 2)) (* (pow M 2) (+ (* -1/4 (/ (* (pow D 2) (* h (sqrt 1/2))) (* (pow d 2) (* l (sqrt 2))))) (* -1/32 (/ (* (pow D 4) (* (pow M 2) (* (pow h 2) (sqrt 1/2)))) (* (pow d 4) (* (pow l 2) (pow (sqrt 2) 3))))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) (fma.f64 (fma.f64 (/.f64 (/.f64 (.f64 (.f64 (.f64 (.f64 h h) (sqrt.f64 #s(literal 1/2 binary64))) (.f64 M M)) (pow.f64 D #s(literal 4 binary64))) (pow.f64 d #s(literal 4 binary64))) (.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 l l))) #s(literal -1/32 binary64) (.f64 (.f64 (/.f64 (.f64 D D) (.f64 d d)) (/.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) h) (.f64 (sqrt.f64 #s(literal 2 binary64)) l))) #s(literal -1/4 binary64))) (.f64 M M) (.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(literal 1/2 binary64)))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (+ (* (sqrt 1/2) (sqrt 2)) (* (pow M 2) (+ (* -1/4 (/ (* (pow D 2) (* h (sqrt 1/2))) (* (pow d 2) (* l (sqrt 2))))) (* (pow M 2) (+ (* -1/32 (/ (* (pow D 4) (* (pow h 2) (sqrt 1/2))) (* (pow d 4) (* (pow l 2) (pow (sqrt 2) 3))))) (* -1/128 (/ (* (pow D 6) (* (pow M 2) (* (pow h 3) (sqrt 1/2)))) (* (pow d 6) (* (pow l 3) (pow (sqrt 2) 5))))))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) (fma.f64 (fma.f64 (fma.f64 (/.f64 (/.f64 (.f64 (.f64 (.f64 (pow.f64 h #s(literal 3 binary64)) (sqrt.f64 #s(literal 1/2 binary64))) (.f64 M M)) (pow.f64 D #s(literal 6 binary64))) (pow.f64 d #s(literal 6 binary64))) (.f64 (pow.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 5 binary64)) (pow.f64 l #s(literal 3 binary64)))) #s(literal -1/128 binary64) (.f64 (/.f64 (/.f64 (.f64 (.f64 (.f64 h h) (sqrt.f64 #s(literal 1/2 binary64))) (pow.f64 D #s(literal 4 binary64))) (pow.f64 d #s(literal 4 binary64))) (.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 l l))) #s(literal -1/32 binary64))) (.f64 M M) (.f64 (.f64 (/.f64 (.f64 D D) (.f64 d d)) (/.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) h) (.f64 (sqrt.f64 #s(literal 2 binary64)) l))) #s(literal -1/4 binary64))) (.f64 M M) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(literal 1/2 binary64)))))
#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))))) 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))))) (fma.f64 (/.f64 (.f64 (.f64 (.f64 (.f64 M M) h) w0) (.f64 D D)) (.f64 (*.f64 d d) l)) #s(literal -1/8 binary64) w0))
#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))))) (fma.f64 (fma.f64 (.f64 (/.f64 (pow.f64 D #s(literal 4 binary64)) (pow.f64 d #s(literal 4 binary64))) (/.f64 (.f64 (.f64 (.f64 h h) w0) (.f64 M M)) (.f64 l l))) #s(literal -1/128 binary64) (.f64 (/.f64 (.f64 (.f64 (.f64 D D) h) w0) (.f64 (.f64 d d) l)) #s(literal -1/8 binary64))) (*.f64 M M) w0))
#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 (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (fma.f64 (fma.f64 (fma.f64 (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (pow.f64 d #s(literal 6 binary64))) (/.f64 (.f64 (.f64 (pow.f64 h #s(literal 3 binary64)) w0) (.f64 M M)) (pow.f64 l #s(literal 3 binary64)))) #s(literal -1/1024 binary64) (.f64 (.f64 (/.f64 (pow.f64 D #s(literal 4 binary64)) (pow.f64 d #s(literal 4 binary64))) (/.f64 (.f64 (.f64 h h) w0) (.f64 l l))) #s(literal -1/128 binary64))) (.f64 M M) (.f64 (/.f64 (.f64 (.f64 (.f64 D D) h) w0) (.f64 (.f64 d d) l)) #s(literal -1/8 binary64))) (*.f64 M M) w0))
#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(literal 1 binary64))
#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)))) (fma.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (.f64 (.f64 M M) h) (.f64 D D)) (.f64 (.f64 d d) l)) #s(literal 1 binary64)))
#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)))) (fma.f64 (fma.f64 (.f64 (/.f64 (pow.f64 D #s(literal 4 binary64)) (pow.f64 d #s(literal 4 binary64))) (/.f64 (.f64 (.f64 h M) (.f64 h M)) (.f64 l l))) #s(literal -1/128 binary64) (/.f64 (.f64 #s(literal -1/8 binary64) (.f64 (.f64 D D) h)) (.f64 (.f64 d d) l))) (*.f64 M M) #s(literal 1 binary64)))
#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 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (fma.f64 (fma.f64 (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (pow.f64 d #s(literal 6 binary64))) (/.f64 (.f64 (pow.f64 h #s(literal 3 binary64)) (.f64 M M)) (pow.f64 l #s(literal 3 binary64)))) #s(literal -1/1024 binary64) (.f64 (.f64 (/.f64 (pow.f64 D #s(literal 4 binary64)) (pow.f64 d #s(literal 4 binary64))) (/.f64 (.f64 h h) (.f64 l l))) #s(literal -1/128 binary64))) (.f64 M M) (/.f64 (.f64 #s(literal -1/8 binary64) (.f64 (.f64 D D) h)) (.f64 (.f64 d d) l))) (.f64 M M) #s(literal 1 binary64)))
#s(approx (+ (* (* (* D D) -1/8) (/ (* (* (/ M d) M) h) (* d l))) 1) #s(hole binary64 1))
#s(approx (+ (* (* (* D D) -1/8) (/ (* (* (/ M d) M) h) (* d l))) 1) #s(literal 1 binary64))
#s(approx (+ (* (* (* D D) -1/8) (/ (* (* (/ M d) M) h) (* d l))) 1) #s(hole binary64 (+ 1 (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))))))
#s(approx (+ (* (* (* D D) -1/8) (/ (* (* (/ M d) M) h) (* d l))) 1) (fma.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (.f64 (.f64 M M) h) (.f64 D D)) (.f64 (.f64 d d) l)) #s(literal 1 binary64)))
#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(literal 1 binary64))
#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 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 (.f64 M M) h) (.f64 D D)) (.f64 (.f64 d d) l)) #s(literal 1 binary64)))
#s(approx (+ (* (* h -1/4) (/ (* (* (* M M) D) D) (* (* d l) d))) 1) #s(hole binary64 1))
#s(approx (+ (* (* h -1/4) (/ (* (* (* M M) D) D) (* (* d l) d))) 1) #s(literal 1 binary64))
#s(approx (+ (* (* h -1/4) (/ (* (* (* M M) D) D) (* (* d l) d))) 1) #s(hole binary64 (+ 1 (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))))))
#s(approx (+ (* (* h -1/4) (/ (* (* (* M M) D) D) (* (* d l) d))) 1) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 (.f64 M M) h) (.f64 D D)) (.f64 (.f64 d d) l)) #s(literal 1 binary64)))
#s(approx (+ (* (* (* -1/4 h) (* (/ D d) (* (/ M d) M))) (/ D l)) 1) #s(hole binary64 1))
#s(approx (+ (* (* (* -1/4 h) (* (/ D d) (* (/ M d) M))) (/ D l)) 1) #s(literal 1 binary64))
#s(approx (+ (* (* (* -1/4 h) (* (/ D d) (* (/ M d) M))) (/ D l)) 1) #s(hole binary64 (+ 1 (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))))))
#s(approx (+ (* (* (* -1/4 h) (* (/ D d) (* (/ M d) M))) (/ D l)) 1) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 (.f64 M M) h) (.f64 D D)) (.f64 (.f64 d d) l)) #s(literal 1 binary64)))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l))) #s(hole binary64 (* (sqrt 1/2) (sqrt 2))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(literal 1/2 binary64))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l))) #s(hole binary64 (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (* h (sqrt 1/2)))) (* (pow d 2) (* l (sqrt 2))))) (* (sqrt 1/2) (sqrt 2)))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l))) (fma.f64 (.f64 (/.f64 (.f64 D D) (.f64 d d)) (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) h) (.f64 M M)) (.f64 (sqrt.f64 #s(literal 2 binary64)) l))) #s(literal -1/4 binary64) (.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(literal 1/2 binary64)))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l))) #s(hole binary64 (+ (* (sqrt 1/2) (sqrt 2)) (* (pow M 2) (+ (* -1/4 (/ (* (pow D 2) (* h (sqrt 1/2))) (* (pow d 2) (* l (sqrt 2))))) (* -1/32 (/ (* (pow D 4) (* (pow M 2) (* (pow h 2) (sqrt 1/2)))) (* (pow d 4) (* (pow l 2) (pow (sqrt 2) 3))))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l))) (fma.f64 (fma.f64 (/.f64 (/.f64 (.f64 (.f64 (.f64 (.f64 h h) (sqrt.f64 #s(literal 1/2 binary64))) (.f64 M M)) (pow.f64 D #s(literal 4 binary64))) (pow.f64 d #s(literal 4 binary64))) (.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 l l))) #s(literal -1/32 binary64) (.f64 (.f64 (/.f64 (.f64 D D) (.f64 d d)) (/.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) h) (.f64 (sqrt.f64 #s(literal 2 binary64)) l))) #s(literal -1/4 binary64))) (.f64 M M) (.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(literal 1/2 binary64)))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l))) #s(hole binary64 (+ (* (sqrt 1/2) (sqrt 2)) (* (pow M 2) (+ (* -1/4 (/ (* (pow D 2) (* h (sqrt 1/2))) (* (pow d 2) (* l (sqrt 2))))) (* (pow M 2) (+ (* -1/32 (/ (* (pow D 4) (* (pow h 2) (sqrt 1/2))) (* (pow d 4) (* (pow l 2) (pow (sqrt 2) 3))))) (* -1/128 (/ (* (pow D 6) (* (pow M 2) (* (pow h 3) (sqrt 1/2)))) (* (pow d 6) (* (pow l 3) (pow (sqrt 2) 5))))))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l))) (fma.f64 (fma.f64 (fma.f64 (/.f64 (/.f64 (.f64 (.f64 (.f64 (pow.f64 h #s(literal 3 binary64)) (sqrt.f64 #s(literal 1/2 binary64))) (.f64 M M)) (pow.f64 D #s(literal 6 binary64))) (pow.f64 d #s(literal 6 binary64))) (.f64 (pow.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 5 binary64)) (pow.f64 l #s(literal 3 binary64)))) #s(literal -1/128 binary64) (.f64 (/.f64 (/.f64 (.f64 (.f64 (.f64 h h) (sqrt.f64 #s(literal 1/2 binary64))) (pow.f64 D #s(literal 4 binary64))) (pow.f64 d #s(literal 4 binary64))) (.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 l l))) #s(literal -1/32 binary64))) (.f64 M M) (.f64 (.f64 (/.f64 (.f64 D D) (.f64 d d)) (/.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) h) (.f64 (sqrt.f64 #s(literal 2 binary64)) l))) #s(literal -1/4 binary64))) (.f64 M M) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(literal 1/2 binary64)))))
#s(approx (* (* (/ (/ D d) 2) M) h) #s(hole binary64 (* 1/2 (/ (* D (* M h)) d))))
#s(approx (* (* (/ (/ D d) 2) M) h) (.f64 (/.f64 (.f64 (*.f64 h M) D) d) #s(literal 1/2 binary64)))
#s(approx (* (/ (/ D d) 2) M) #s(hole binary64 (* 1/2 (/ (* D M) d))))
#s(approx (* (/ (/ D d) 2) M) (.f64 (.f64 D (/.f64 M d)) #s(literal 1/2 binary64)))
#s(approx (/ (* (* (/ M d) M) h) (* d l)) #s(hole binary64 (/ (* (pow M 2) h) (* (pow d 2) l))))
#s(approx (/ (* (* (/ M d) M) h) (* d l)) (.f64 (.f64 M M) (/.f64 h (.f64 (.f64 d d) l))))
#s(approx (* (* (/ M d) M) h) #s(hole binary64 (/ (* (pow M 2) h) d)))
#s(approx (* (* (/ M d) M) h) (/.f64 (.f64 (.f64 M M) h) d))
#s(approx (/ (* (* (* M M) D) D) (* (* d l) d)) #s(hole binary64 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))))
#s(approx (/ (* (* (* M M) D) D) (* (* d l) d)) (/.f64 (.f64 (.f64 (.f64 M M) D) D) (.f64 (*.f64 d d) l)))
#s(approx (* (* M M) D) #s(hole binary64 (* D (pow M 2))))
#s(approx (* (* M M) D) (.f64 (.f64 M M) D))
#s(approx (* (* (* M M) D) D) #s(hole binary64 (* (pow D 2) (pow M 2))))
#s(approx (* (* (* M M) D) D) (.f64 (.f64 (*.f64 M M) D) D))
#s(approx (* (/ D d) (* (/ M d) M)) #s(hole binary64 (/ (* D (pow M 2)) (pow d 2))))
#s(approx (* (/ D d) (* (/ M d) M)) (/.f64 (.f64 (.f64 M M) D) (*.f64 d d)))
#s(approx (* (* -1/4 h) (* (/ D d) (* (/ M d) M))) #s(hole binary64 (* -1/4 (/ (* D (* (pow M 2) h)) (pow d 2)))))
#s(approx (* (* -1/4 h) (* (/ D d) (* (/ M d) M))) (/.f64 (.f64 #s(literal -1/4 binary64) (.f64 (.f64 (.f64 M M) D) h)) (*.f64 d d)))
#s(approx (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)) #s(hole binary64 (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l)))))
#s(approx (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 (.f64 M M) h) (.f64 D D)) (.f64 (*.f64 d d) l))))
#s(approx (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)) #s(hole binary64 (* (pow M 2) (+ (* -1/4 (/ (* (pow D 2) h) (* (pow d 2) l))) (/ 1 (pow M 2))))))
#s(approx (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)) (.f64 (fma.f64 (.f64 (.f64 D D) (/.f64 h (.f64 (.f64 d d) l))) #s(literal -1/4 binary64) (/.f64 #s(literal 1 binary64) (.f64 M M))) (*.f64 M M)))
#s(approx (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) #s(hole binary64 (* -1/2 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))))
#s(approx (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 (.f64 M M) h) (.f64 D D)) (.f64 d d))))
#s(approx (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) #s(hole binary64 (* (pow M 2) (- (* 2 (/ l (pow M 2))) (* 1/2 (/ (* (pow D 2) h) (pow d 2)))))))
#s(approx (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (.f64 (fma.f64 (/.f64 l (.f64 M M)) #s(literal 2 binary64) (.f64 #s(literal -1/2 binary64) (.f64 (.f64 D D) (/.f64 h (.f64 d d))))) (*.f64 M M)))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)))) #s(hole binary64 (* (/ (* D (* M (* w0 (* (sqrt -1/2) (sqrt 1/2))))) d) (sqrt (/ h l)))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)))) (.f64 (sqrt.f64 (/.f64 h l)) (/.f64 (.f64 (.f64 M D) (.f64 (*.f64 w0 (sqrt.f64 #s(literal -1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))) d)))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)))) #s(hole binary64 (* M (+ (* (/ (* D (* w0 (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (/ h l))) (* (/ (* d (* w0 (sqrt 1/2))) (* D (* (pow M 2) (sqrt -1/2)))) (sqrt (/ l h)))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)))) (.f64 (fma.f64 (sqrt.f64 (/.f64 l h)) (/.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) d) D) (.f64 (sqrt.f64 #s(literal -1/2 binary64)) (.f64 M M))) (.f64 (/.f64 (.f64 (.f64 D w0) (*.f64 (sqrt.f64 #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 1/2 binary64)))) d) (sqrt.f64 (/.f64 h l)))) M))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)))) #s(hole binary64 (* M (+ (* -1/2 (* (/ (* (pow d 3) (* w0 (sqrt 1/2))) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* (/ (* D (* w0 (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (/ h l))) (* (/ (* d (* w0 (sqrt 1/2))) (* D (* (pow M 2) (sqrt -1/2)))) (sqrt (/ l h))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)))) (.f64 (fma.f64 (.f64 (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))) (.f64 (pow.f64 (/.f64 d D) #s(literal 3 binary64)) (/.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) (.f64 (.f64 (sqrt.f64 #s(literal -1/2 binary64)) #s(literal -1/2 binary64)) (pow.f64 M #s(literal 4 binary64)))))) #s(literal -1/2 binary64) (fma.f64 (sqrt.f64 (/.f64 l h)) (/.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) d) D) (.f64 (sqrt.f64 #s(literal -1/2 binary64)) (.f64 M M))) (.f64 (/.f64 (.f64 (.f64 D w0) (.f64 (sqrt.f64 #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 1/2 binary64)))) d) (sqrt.f64 (/.f64 h l))))) M))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)))) #s(hole binary64 (* M (+ (* -1/2 (* (/ (* (pow d 3) (* w0 (sqrt 1/2))) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ (* (pow d 5) (* w0 (sqrt 1/2))) (* (pow D 5) (* (pow M 6) (pow (sqrt -1/2) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* (/ (* D (* w0 (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (/ h l))) (* (/ (* d (* w0 (sqrt 1/2))) (* D (* (pow M 2) (sqrt -1/2)))) (sqrt (/ l h)))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)))) (.f64 (fma.f64 (.f64 (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))) (.f64 (pow.f64 (/.f64 d D) #s(literal 3 binary64)) (/.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) (.f64 (.f64 (sqrt.f64 #s(literal -1/2 binary64)) #s(literal -1/2 binary64)) (pow.f64 M #s(literal 4 binary64)))))) #s(literal -1/2 binary64) (fma.f64 (.f64 (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 5 binary64)))) (.f64 (/.f64 (pow.f64 d #s(literal 5 binary64)) (pow.f64 D #s(literal 5 binary64))) (/.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) (.f64 (pow.f64 (sqrt.f64 #s(literal -1/2 binary64)) #s(literal 5 binary64)) (pow.f64 M #s(literal 6 binary64)))))) #s(literal 1/2 binary64) (fma.f64 (sqrt.f64 (/.f64 l h)) (/.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) d) D) (.f64 (sqrt.f64 #s(literal -1/2 binary64)) (.f64 M M))) (.f64 (/.f64 (.f64 (.f64 D w0) (.f64 (sqrt.f64 #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 1/2 binary64)))) d) (sqrt.f64 (/.f64 h l)))))) M))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (* (/ (* D (* M (* w0 (* (sqrt -1/2) (sqrt 1/2))))) d) (sqrt (/ h l)))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) (.f64 (sqrt.f64 (/.f64 h l)) (/.f64 (.f64 (.f64 M D) (.f64 (*.f64 w0 (sqrt.f64 #s(literal -1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))) d)))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (* M (+ (* (/ (* D (* w0 (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (/ h l))) (* (/ (* d (* w0 (sqrt 1/2))) (* D (* (pow M 2) (sqrt -1/2)))) (sqrt (/ l h)))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) (.f64 (fma.f64 (sqrt.f64 (/.f64 l h)) (/.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) d) D) (.f64 (sqrt.f64 #s(literal -1/2 binary64)) (.f64 M M))) (.f64 (/.f64 (.f64 (.f64 D w0) (*.f64 (sqrt.f64 #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 1/2 binary64)))) d) (sqrt.f64 (/.f64 h l)))) M))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (* M (+ (* -1/2 (* (/ (* (pow d 3) (* w0 (sqrt 1/2))) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* (/ (* D (* w0 (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (/ h l))) (* (/ (* d (* w0 (sqrt 1/2))) (* D (* (pow M 2) (sqrt -1/2)))) (sqrt (/ l h))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) (.f64 (fma.f64 (.f64 (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))) (.f64 (pow.f64 (/.f64 d D) #s(literal 3 binary64)) (/.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) (.f64 (.f64 (sqrt.f64 #s(literal -1/2 binary64)) #s(literal -1/2 binary64)) (pow.f64 M #s(literal 4 binary64)))))) #s(literal -1/2 binary64) (fma.f64 (sqrt.f64 (/.f64 l h)) (/.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) d) D) (.f64 (sqrt.f64 #s(literal -1/2 binary64)) (.f64 M M))) (.f64 (/.f64 (.f64 (.f64 D w0) (.f64 (sqrt.f64 #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 1/2 binary64)))) d) (sqrt.f64 (/.f64 h l))))) M))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (* M (+ (* -1/2 (* (/ (* (pow d 3) (* w0 (sqrt 1/2))) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ (* (pow d 5) (* w0 (sqrt 1/2))) (* (pow D 5) (* (pow M 6) (pow (sqrt -1/2) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* (/ (* D (* w0 (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (/ h l))) (* (/ (* d (* w0 (sqrt 1/2))) (* D (* (pow M 2) (sqrt -1/2)))) (sqrt (/ l h)))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) (.f64 (fma.f64 (.f64 (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))) (.f64 (pow.f64 (/.f64 d D) #s(literal 3 binary64)) (/.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) (.f64 (.f64 (sqrt.f64 #s(literal -1/2 binary64)) #s(literal -1/2 binary64)) (pow.f64 M #s(literal 4 binary64)))))) #s(literal -1/2 binary64) (fma.f64 (.f64 (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 5 binary64)))) (.f64 (/.f64 (pow.f64 d #s(literal 5 binary64)) (pow.f64 D #s(literal 5 binary64))) (/.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) (.f64 (pow.f64 (sqrt.f64 #s(literal -1/2 binary64)) #s(literal 5 binary64)) (pow.f64 M #s(literal 6 binary64)))))) #s(literal 1/2 binary64) (fma.f64 (sqrt.f64 (/.f64 l h)) (/.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) d) D) (.f64 (sqrt.f64 #s(literal -1/2 binary64)) (.f64 M M))) (.f64 (/.f64 (.f64 (.f64 D w0) (.f64 (sqrt.f64 #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 1/2 binary64)))) d) (sqrt.f64 (/.f64 h l)))))) M))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (* (/ (* D (* M (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (/ h l)))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) (.f64 (/.f64 (.f64 (.f64 M D) (.f64 (sqrt.f64 #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 1/2 binary64)))) d) (sqrt.f64 (/.f64 h l))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (* M (+ (* (/ (* D (* (sqrt -1/2) (sqrt 1/2))) d) (sqrt (/ h l))) (* (/ (* d (sqrt 1/2)) (* D (* (pow M 2) (sqrt -1/2)))) (sqrt (/ l h)))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) (.f64 (fma.f64 (/.f64 (/.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) d) D) (.f64 (sqrt.f64 #s(literal -1/2 binary64)) (.f64 M M))) (sqrt.f64 (/.f64 l h)) (.f64 (/.f64 (.f64 (*.f64 D (sqrt.f64 #s(literal -1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) d) (sqrt.f64 (/.f64 h l)))) M))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (* M (+ (* -1/2 (* (/ (* (pow d 3) (sqrt 1/2)) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* (/ (* D (* (sqrt -1/2) (sqrt 1/2))) d) (sqrt (/ h l))) (* (/ (* d (sqrt 1/2)) (* D (* (pow M 2) (sqrt -1/2)))) (sqrt (/ l h))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) (.f64 (fma.f64 (.f64 (.f64 (pow.f64 (/.f64 d D) #s(literal 3 binary64)) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (.f64 (.f64 (sqrt.f64 #s(literal -1/2 binary64)) #s(literal -1/2 binary64)) (pow.f64 M #s(literal 4 binary64))))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64)))) #s(literal -1/2 binary64) (fma.f64 (/.f64 (/.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) d) D) (.f64 (sqrt.f64 #s(literal -1/2 binary64)) (.f64 M M))) (sqrt.f64 (/.f64 l h)) (.f64 (/.f64 (.f64 (*.f64 D (sqrt.f64 #s(literal -1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) d) (sqrt.f64 (/.f64 h l))))) M))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (* M (+ (* -1/2 (* (/ (* (pow d 3) (sqrt 1/2)) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ (* (pow d 5) (sqrt 1/2)) (* (pow D 5) (* (pow M 6) (pow (sqrt -1/2) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* (/ (* D (* (sqrt -1/2) (sqrt 1/2))) d) (sqrt (/ h l))) (* (/ (* d (sqrt 1/2)) (* D (* (pow M 2) (sqrt -1/2)))) (sqrt (/ l h)))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) (.f64 (fma.f64 (.f64 (.f64 (pow.f64 (/.f64 d D) #s(literal 3 binary64)) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (.f64 (.f64 (sqrt.f64 #s(literal -1/2 binary64)) #s(literal -1/2 binary64)) (pow.f64 M #s(literal 4 binary64))))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64)))) #s(literal -1/2 binary64) (fma.f64 (.f64 (.f64 (/.f64 (pow.f64 d #s(literal 5 binary64)) (pow.f64 D #s(literal 5 binary64))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (.f64 (pow.f64 (sqrt.f64 #s(literal -1/2 binary64)) #s(literal 5 binary64)) (pow.f64 M #s(literal 6 binary64))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 5 binary64))))) #s(literal 1/2 binary64) (fma.f64 (/.f64 (/.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) d) D) (.f64 (sqrt.f64 #s(literal -1/2 binary64)) (.f64 M M))) (sqrt.f64 (/.f64 l h)) (.f64 (/.f64 (.f64 (.f64 D (sqrt.f64 #s(literal -1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) d) (sqrt.f64 (/.f64 h l)))))) 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))))) (.f64 (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) M) D) d) (sqrt.f64 (/.f64 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))))) (.f64 (fma.f64 (.f64 (/.f64 (/.f64 (.f64 w0 d) D) (.f64 (sqrt.f64 #s(literal -1/4 binary64)) (.f64 M M))) (sqrt.f64 (/.f64 l h))) #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) D) d) (sqrt.f64 (/.f64 h l)))) M))
#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) 3)))) (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))))) (.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 (pow.f64 (/.f64 d D) #s(literal 3 binary64)) (/.f64 w0 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal -1/4 binary64)) (pow.f64 M #s(literal 4 binary64)))))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))) (fma.f64 (.f64 (/.f64 (/.f64 (.f64 w0 d) D) (.f64 (sqrt.f64 #s(literal -1/4 binary64)) (.f64 M M))) (sqrt.f64 (/.f64 l h))) #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) D) d) (sqrt.f64 (/.f64 h l))))) M))
#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) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 5) (* (pow M 6) (pow (sqrt -1/4) 5)))) (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))))) (.f64 (fma.f64 (.f64 (.f64 (pow.f64 (/.f64 d D) #s(literal 3 binary64)) (/.f64 w0 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal -1/4 binary64)) (pow.f64 M #s(literal 4 binary64))))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64)))) #s(literal -1/8 binary64) (fma.f64 (.f64 #s(literal 1/16 binary64) (/.f64 (.f64 (pow.f64 d #s(literal 5 binary64)) w0) (.f64 (.f64 (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 5 binary64)) (pow.f64 M #s(literal 6 binary64))) (pow.f64 D #s(literal 5 binary64))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 5 binary64)))) (fma.f64 (.f64 (/.f64 (/.f64 (.f64 w0 d) D) (.f64 (sqrt.f64 #s(literal -1/4 binary64)) (.f64 M M))) (sqrt.f64 (/.f64 l h))) #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) D) d) (sqrt.f64 (/.f64 h l)))))) M))
#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)))) (.f64 (/.f64 (.f64 (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) d) (sqrt.f64 (/.f64 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)))) (.f64 (fma.f64 (.f64 (/.f64 (/.f64 d D) (.f64 (sqrt.f64 #s(literal -1/4 binary64)) (.f64 M M))) (sqrt.f64 (/.f64 l h))) #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) D) d) (sqrt.f64 (/.f64 h l)))) M))
#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) 3)))) (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)))) (.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 (/.f64 d D) #s(literal 3 binary64)) (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal -1/4 binary64)) (pow.f64 M #s(literal 4 binary64))))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))) (fma.f64 (.f64 (/.f64 (/.f64 d D) (.f64 (sqrt.f64 #s(literal -1/4 binary64)) (.f64 M M))) (sqrt.f64 (/.f64 l h))) #s(literal 1/2 binary64) (.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) D) d) (sqrt.f64 (/.f64 h l))))) M))
#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) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (pow d 5) (* (pow D 5) (* (pow M 6) (pow (sqrt -1/4) 5)))) (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 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 (/.f64 d D) #s(literal 3 binary64)) (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal -1/4 binary64)) (pow.f64 M #s(literal 4 binary64))))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))) (fma.f64 (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 d #s(literal 5 binary64)) (.f64 (.f64 (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 5 binary64)) (pow.f64 M #s(literal 6 binary64))) (pow.f64 D #s(literal 5 binary64))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 5 binary64)))) (fma.f64 (.f64 (/.f64 (/.f64 d D) (.f64 (sqrt.f64 #s(literal -1/4 binary64)) (.f64 M M))) (sqrt.f64 (/.f64 l h))) #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) D) d) (sqrt.f64 (/.f64 h l)))))) M))
#s(approx (+ (* (* (* D D) -1/8) (/ (* (* (/ M d) M) h) (* d l))) 1) #s(hole binary64 (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l)))))
#s(approx (+ (* (* (* D D) -1/8) (/ (* (* (/ M d) M) h) (* d l))) 1) (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (.f64 (.f64 M M) h) (.f64 D D)) (.f64 (*.f64 d d) l))))
#s(approx (+ (* (* (* D D) -1/8) (/ (* (* (/ M d) M) h) (* d l))) 1) #s(hole binary64 (* (pow M 2) (+ (* -1/8 (/ (* (pow D 2) h) (* (pow d 2) l))) (/ 1 (pow M 2))))))
#s(approx (+ (* (* (* D D) -1/8) (/ (* (* (/ M d) M) h) (* d l))) 1) (.f64 (fma.f64 (.f64 (.f64 D D) (/.f64 h (.f64 (.f64 d d) l))) #s(literal -1/8 binary64) (/.f64 #s(literal 1 binary64) (.f64 M M))) (*.f64 M M)))
#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))) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 (.f64 M M) h) (.f64 D D)) (.f64 (*.f64 d d) 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 (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (.f64 (fma.f64 (.f64 (.f64 D D) (/.f64 h (.f64 (.f64 d d) l))) #s(literal -1/4 binary64) (/.f64 #s(literal 1 binary64) (.f64 M M))) (*.f64 M M)))
#s(approx (+ (* (* h -1/4) (/ (* (* (* M M) D) D) (* (* d l) d))) 1) #s(hole binary64 (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l)))))
#s(approx (+ (* (* h -1/4) (/ (* (* (* M M) D) D) (* (* d l) d))) 1) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 (.f64 M M) h) (.f64 D D)) (.f64 (*.f64 d d) l))))
#s(approx (+ (* (* h -1/4) (/ (* (* (* M M) D) D) (* (* d l) d))) 1) #s(hole binary64 (* (pow M 2) (+ (* -1/4 (/ (* (pow D 2) h) (* (pow d 2) l))) (/ 1 (pow M 2))))))
#s(approx (+ (* (* h -1/4) (/ (* (* (* M M) D) D) (* (* d l) d))) 1) (.f64 (fma.f64 (.f64 (.f64 D D) (/.f64 h (.f64 (.f64 d d) l))) #s(literal -1/4 binary64) (/.f64 #s(literal 1 binary64) (.f64 M M))) (*.f64 M M)))
#s(approx (+ (* (* (* -1/4 h) (* (/ D d) (* (/ M d) M))) (/ D l)) 1) #s(hole binary64 (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l)))))
#s(approx (+ (* (* (* -1/4 h) (* (/ D d) (* (/ M d) M))) (/ D l)) 1) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 (.f64 M M) h) (.f64 D D)) (.f64 (*.f64 d d) l))))
#s(approx (+ (* (* (* -1/4 h) (* (/ D d) (* (/ M d) M))) (/ D l)) 1) #s(hole binary64 (* (pow M 2) (+ (* -1/4 (/ (* (pow D 2) h) (* (pow d 2) l))) (/ 1 (pow M 2))))))
#s(approx (+ (* (* (* -1/4 h) (* (/ D d) (* (/ M d) M))) (/ D l)) 1) (.f64 (fma.f64 (.f64 (.f64 D D) (/.f64 h (.f64 (.f64 d d) l))) #s(literal -1/4 binary64) (/.f64 #s(literal 1 binary64) (.f64 M M))) (*.f64 M M)))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l))) #s(hole binary64 (* (/ (* D (* M (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (/ h l)))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l))) (.f64 (/.f64 (.f64 (.f64 M D) (.f64 (sqrt.f64 #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 1/2 binary64)))) d) (sqrt.f64 (/.f64 h l))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l))) #s(hole binary64 (* M (+ (* (/ (* D (* (sqrt -1/2) (sqrt 1/2))) d) (sqrt (/ h l))) (* (/ (* d (sqrt 1/2)) (* D (* (pow M 2) (sqrt -1/2)))) (sqrt (/ l h)))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l))) (.f64 (fma.f64 (/.f64 (/.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) d) D) (.f64 (sqrt.f64 #s(literal -1/2 binary64)) (.f64 M M))) (sqrt.f64 (/.f64 l h)) (.f64 (/.f64 (.f64 (*.f64 D (sqrt.f64 #s(literal -1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) d) (sqrt.f64 (/.f64 h l)))) M))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l))) #s(hole binary64 (* M (+ (* -1/2 (* (/ (* (pow d 3) (sqrt 1/2)) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* (/ (* D (* (sqrt -1/2) (sqrt 1/2))) d) (sqrt (/ h l))) (* (/ (* d (sqrt 1/2)) (* D (* (pow M 2) (sqrt -1/2)))) (sqrt (/ l h))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l))) (.f64 (fma.f64 (.f64 (.f64 (pow.f64 (/.f64 d D) #s(literal 3 binary64)) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (.f64 (.f64 (sqrt.f64 #s(literal -1/2 binary64)) #s(literal -1/2 binary64)) (pow.f64 M #s(literal 4 binary64))))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64)))) #s(literal -1/2 binary64) (fma.f64 (/.f64 (/.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) d) D) (.f64 (sqrt.f64 #s(literal -1/2 binary64)) (.f64 M M))) (sqrt.f64 (/.f64 l h)) (.f64 (/.f64 (.f64 (*.f64 D (sqrt.f64 #s(literal -1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) d) (sqrt.f64 (/.f64 h l))))) M))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l))) #s(hole binary64 (* M (+ (* -1/2 (* (/ (* (pow d 3) (sqrt 1/2)) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ (* (pow d 5) (sqrt 1/2)) (* (pow D 5) (* (pow M 6) (pow (sqrt -1/2) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* (/ (* D (* (sqrt -1/2) (sqrt 1/2))) d) (sqrt (/ h l))) (* (/ (* d (sqrt 1/2)) (* D (* (pow M 2) (sqrt -1/2)))) (sqrt (/ l h)))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l))) (.f64 (fma.f64 (.f64 (.f64 (pow.f64 (/.f64 d D) #s(literal 3 binary64)) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (.f64 (.f64 (sqrt.f64 #s(literal -1/2 binary64)) #s(literal -1/2 binary64)) (pow.f64 M #s(literal 4 binary64))))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64)))) #s(literal -1/2 binary64) (fma.f64 (.f64 (.f64 (/.f64 (pow.f64 d #s(literal 5 binary64)) (pow.f64 D #s(literal 5 binary64))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (.f64 (pow.f64 (sqrt.f64 #s(literal -1/2 binary64)) #s(literal 5 binary64)) (pow.f64 M #s(literal 6 binary64))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 5 binary64))))) #s(literal 1/2 binary64) (fma.f64 (/.f64 (/.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) d) D) (.f64 (sqrt.f64 #s(literal -1/2 binary64)) (.f64 M M))) (sqrt.f64 (/.f64 l h)) (.f64 (/.f64 (.f64 (.f64 D (sqrt.f64 #s(literal -1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) d) (sqrt.f64 (/.f64 h l)))))) M))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)))) #s(hole binary64 (* -1 (* (/ (* D (* M (* w0 (* (sqrt -1/2) (sqrt 1/2))))) d) (sqrt (/ h l))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)))) (.f64 (neg.f64 (sqrt.f64 (/.f64 h l))) (/.f64 (.f64 (.f64 M D) (.f64 (*.f64 w0 (sqrt.f64 #s(literal -1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))) d)))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)))) #s(hole binary64 (* -1 (* M (+ (* (/ (* D (* w0 (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (/ h l))) (* (/ (* d (* w0 (sqrt 1/2))) (* D (* (pow M 2) (sqrt -1/2)))) (sqrt (/ l h))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)))) (.f64 (neg.f64 M) (fma.f64 (sqrt.f64 (/.f64 l h)) (/.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) d) D) (.f64 (sqrt.f64 #s(literal -1/2 binary64)) (.f64 M M))) (.f64 (/.f64 (.f64 (.f64 D w0) (*.f64 (sqrt.f64 #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 1/2 binary64)))) d) (sqrt.f64 (/.f64 h l))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)))) #s(hole binary64 (* -1 (* M (+ (* -1/2 (* (/ (* (pow d 3) (* w0 (sqrt 1/2))) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* (/ (* D (* w0 (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (/ h l))) (* (/ (* d (* w0 (sqrt 1/2))) (* D (* (pow M 2) (sqrt -1/2)))) (sqrt (/ l h)))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)))) (.f64 (neg.f64 M) (fma.f64 (.f64 (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))) (.f64 (pow.f64 (/.f64 d D) #s(literal 3 binary64)) (/.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) (.f64 (.f64 (sqrt.f64 #s(literal -1/2 binary64)) #s(literal -1/2 binary64)) (pow.f64 M #s(literal 4 binary64)))))) #s(literal -1/2 binary64) (fma.f64 (sqrt.f64 (/.f64 l h)) (/.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) d) D) (.f64 (sqrt.f64 #s(literal -1/2 binary64)) (.f64 M M))) (.f64 (/.f64 (.f64 (.f64 D w0) (.f64 (sqrt.f64 #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 1/2 binary64)))) d) (sqrt.f64 (/.f64 h l)))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)))) #s(hole binary64 (* -1 (* M (+ (* -1/2 (* (/ (* (pow d 3) (* w0 (sqrt 1/2))) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ (* (pow d 5) (* w0 (sqrt 1/2))) (* (pow D 5) (* (pow M 6) (pow (sqrt -1/2) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* (/ (* D (* w0 (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (/ h l))) (* (/ (* d (* w0 (sqrt 1/2))) (* D (* (pow M 2) (sqrt -1/2)))) (sqrt (/ l h))))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)))) (.f64 (neg.f64 M) (fma.f64 (.f64 (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))) (.f64 (pow.f64 (/.f64 d D) #s(literal 3 binary64)) (/.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) (.f64 (.f64 (sqrt.f64 #s(literal -1/2 binary64)) #s(literal -1/2 binary64)) (pow.f64 M #s(literal 4 binary64)))))) #s(literal -1/2 binary64) (fma.f64 (.f64 (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 5 binary64)))) (.f64 (/.f64 (pow.f64 d #s(literal 5 binary64)) (pow.f64 D #s(literal 5 binary64))) (/.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) (.f64 (pow.f64 (sqrt.f64 #s(literal -1/2 binary64)) #s(literal 5 binary64)) (pow.f64 M #s(literal 6 binary64)))))) #s(literal 1/2 binary64) (fma.f64 (sqrt.f64 (/.f64 l h)) (/.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) d) D) (.f64 (sqrt.f64 #s(literal -1/2 binary64)) (.f64 M M))) (.f64 (/.f64 (.f64 (.f64 D w0) (.f64 (sqrt.f64 #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 1/2 binary64)))) d) (sqrt.f64 (/.f64 h l))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (* -1 (* (/ (* D (* M (* w0 (* (sqrt -1/2) (sqrt 1/2))))) d) (sqrt (/ h l))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) (.f64 (neg.f64 (sqrt.f64 (/.f64 h l))) (/.f64 (.f64 (.f64 M D) (.f64 (*.f64 w0 (sqrt.f64 #s(literal -1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))) d)))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (* -1 (* M (+ (* (/ (* D (* w0 (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (/ h l))) (* (/ (* d (* w0 (sqrt 1/2))) (* D (* (pow M 2) (sqrt -1/2)))) (sqrt (/ l h))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) (.f64 (neg.f64 M) (fma.f64 (sqrt.f64 (/.f64 l h)) (/.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) d) D) (.f64 (sqrt.f64 #s(literal -1/2 binary64)) (.f64 M M))) (.f64 (/.f64 (.f64 (.f64 D w0) (*.f64 (sqrt.f64 #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 1/2 binary64)))) d) (sqrt.f64 (/.f64 h l))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (* -1 (* M (+ (* -1/2 (* (/ (* (pow d 3) (* w0 (sqrt 1/2))) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* (/ (* D (* w0 (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (/ h l))) (* (/ (* d (* w0 (sqrt 1/2))) (* D (* (pow M 2) (sqrt -1/2)))) (sqrt (/ l h)))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) (.f64 (neg.f64 M) (fma.f64 (.f64 (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))) (.f64 (pow.f64 (/.f64 d D) #s(literal 3 binary64)) (/.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) (.f64 (.f64 (sqrt.f64 #s(literal -1/2 binary64)) #s(literal -1/2 binary64)) (pow.f64 M #s(literal 4 binary64)))))) #s(literal -1/2 binary64) (fma.f64 (sqrt.f64 (/.f64 l h)) (/.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) d) D) (.f64 (sqrt.f64 #s(literal -1/2 binary64)) (.f64 M M))) (.f64 (/.f64 (.f64 (.f64 D w0) (.f64 (sqrt.f64 #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 1/2 binary64)))) d) (sqrt.f64 (/.f64 h l)))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (* -1 (* M (+ (* -1/2 (* (/ (* (pow d 3) (* w0 (sqrt 1/2))) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ (* (pow d 5) (* w0 (sqrt 1/2))) (* (pow D 5) (* (pow M 6) (pow (sqrt -1/2) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* (/ (* D (* w0 (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (/ h l))) (* (/ (* d (* w0 (sqrt 1/2))) (* D (* (pow M 2) (sqrt -1/2)))) (sqrt (/ l h))))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) (.f64 (neg.f64 M) (fma.f64 (.f64 (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))) (.f64 (pow.f64 (/.f64 d D) #s(literal 3 binary64)) (/.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) (.f64 (.f64 (sqrt.f64 #s(literal -1/2 binary64)) #s(literal -1/2 binary64)) (pow.f64 M #s(literal 4 binary64)))))) #s(literal -1/2 binary64) (fma.f64 (.f64 (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 5 binary64)))) (.f64 (/.f64 (pow.f64 d #s(literal 5 binary64)) (pow.f64 D #s(literal 5 binary64))) (/.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) (.f64 (pow.f64 (sqrt.f64 #s(literal -1/2 binary64)) #s(literal 5 binary64)) (pow.f64 M #s(literal 6 binary64)))))) #s(literal 1/2 binary64) (fma.f64 (sqrt.f64 (/.f64 l h)) (/.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) d) D) (.f64 (sqrt.f64 #s(literal -1/2 binary64)) (.f64 M M))) (.f64 (/.f64 (.f64 (.f64 D w0) (.f64 (sqrt.f64 #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 1/2 binary64)))) d) (sqrt.f64 (/.f64 h l))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (* -1 (* (/ (* D (* M (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (/ h l))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) (.f64 (neg.f64 (sqrt.f64 (/.f64 h l))) (/.f64 (.f64 (.f64 M D) (.f64 (sqrt.f64 #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 1/2 binary64)))) d)))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (* -1 (* M (+ (* (/ (* D (* (sqrt -1/2) (sqrt 1/2))) d) (sqrt (/ h l))) (* (/ (* d (sqrt 1/2)) (* D (* (pow M 2) (sqrt -1/2)))) (sqrt (/ l h))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) (.f64 (neg.f64 M) (fma.f64 (/.f64 (/.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) d) D) (.f64 (sqrt.f64 #s(literal -1/2 binary64)) (.f64 M M))) (sqrt.f64 (/.f64 l h)) (.f64 (/.f64 (.f64 (*.f64 D (sqrt.f64 #s(literal -1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) d) (sqrt.f64 (/.f64 h l))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (* -1 (* M (+ (* -1/2 (* (/ (* (pow d 3) (sqrt 1/2)) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* (/ (* D (* (sqrt -1/2) (sqrt 1/2))) d) (sqrt (/ h l))) (* (/ (* d (sqrt 1/2)) (* D (* (pow M 2) (sqrt -1/2)))) (sqrt (/ l h)))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) (.f64 (neg.f64 M) (fma.f64 (.f64 (.f64 (pow.f64 (/.f64 d D) #s(literal 3 binary64)) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (.f64 (.f64 (sqrt.f64 #s(literal -1/2 binary64)) #s(literal -1/2 binary64)) (pow.f64 M #s(literal 4 binary64))))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64)))) #s(literal -1/2 binary64) (fma.f64 (/.f64 (/.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) d) D) (.f64 (sqrt.f64 #s(literal -1/2 binary64)) (.f64 M M))) (sqrt.f64 (/.f64 l h)) (.f64 (/.f64 (.f64 (*.f64 D (sqrt.f64 #s(literal -1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) d) (sqrt.f64 (/.f64 h l)))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (* -1 (* M (+ (* -1/2 (* (/ (* (pow d 3) (sqrt 1/2)) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ (* (pow d 5) (sqrt 1/2)) (* (pow D 5) (* (pow M 6) (pow (sqrt -1/2) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* (/ (* D (* (sqrt -1/2) (sqrt 1/2))) d) (sqrt (/ h l))) (* (/ (* d (sqrt 1/2)) (* D (* (pow M 2) (sqrt -1/2)))) (sqrt (/ l h))))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) (.f64 (neg.f64 M) (fma.f64 (.f64 (.f64 (pow.f64 (/.f64 d D) #s(literal 3 binary64)) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (.f64 (.f64 (sqrt.f64 #s(literal -1/2 binary64)) #s(literal -1/2 binary64)) (pow.f64 M #s(literal 4 binary64))))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64)))) #s(literal -1/2 binary64) (fma.f64 (.f64 (.f64 (/.f64 (pow.f64 d #s(literal 5 binary64)) (pow.f64 D #s(literal 5 binary64))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (.f64 (pow.f64 (sqrt.f64 #s(literal -1/2 binary64)) #s(literal 5 binary64)) (pow.f64 M #s(literal 6 binary64))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 5 binary64))))) #s(literal 1/2 binary64) (fma.f64 (/.f64 (/.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) d) D) (.f64 (sqrt.f64 #s(literal -1/2 binary64)) (.f64 M M))) (sqrt.f64 (/.f64 l h)) (.f64 (/.f64 (.f64 (.f64 D (sqrt.f64 #s(literal -1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) d) (sqrt.f64 (/.f64 h 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))))) (.f64 (.f64 (neg.f64 D) (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) M) d)) (sqrt.f64 (/.f64 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))))) (.f64 (neg.f64 M) (fma.f64 (.f64 (/.f64 (/.f64 (.f64 w0 d) D) (.f64 (sqrt.f64 #s(literal -1/4 binary64)) (.f64 M M))) (sqrt.f64 (/.f64 l h))) #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) D) d) (sqrt.f64 (/.f64 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) (pow (sqrt -1/4) 3)))) (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))))) (.f64 (neg.f64 M) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 (pow.f64 (/.f64 d D) #s(literal 3 binary64)) (/.f64 w0 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal -1/4 binary64)) (pow.f64 M #s(literal 4 binary64)))))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))) (fma.f64 (.f64 (/.f64 (/.f64 (.f64 w0 d) D) (.f64 (sqrt.f64 #s(literal -1/4 binary64)) (.f64 M M))) (sqrt.f64 (/.f64 l h))) #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) D) d) (sqrt.f64 (/.f64 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) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 5) (* (pow M 6) (pow (sqrt -1/4) 5)))) (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))))) (.f64 (neg.f64 M) (fma.f64 (.f64 (.f64 (pow.f64 (/.f64 d D) #s(literal 3 binary64)) (/.f64 w0 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal -1/4 binary64)) (pow.f64 M #s(literal 4 binary64))))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64)))) #s(literal -1/8 binary64) (fma.f64 (.f64 #s(literal 1/16 binary64) (/.f64 (.f64 (pow.f64 d #s(literal 5 binary64)) w0) (.f64 (.f64 (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 5 binary64)) (pow.f64 M #s(literal 6 binary64))) (pow.f64 D #s(literal 5 binary64))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 5 binary64)))) (fma.f64 (.f64 (/.f64 (/.f64 (.f64 w0 d) D) (.f64 (sqrt.f64 #s(literal -1/4 binary64)) (.f64 M M))) (sqrt.f64 (/.f64 l h))) #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) D) d) (sqrt.f64 (/.f64 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)))) (.f64 (.f64 (neg.f64 D) (/.f64 (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) d)) (sqrt.f64 (/.f64 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)))) (.f64 (neg.f64 M) (fma.f64 (.f64 (/.f64 (/.f64 d D) (.f64 (sqrt.f64 #s(literal -1/4 binary64)) (.f64 M M))) (sqrt.f64 (/.f64 l h))) #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) D) d) (sqrt.f64 (/.f64 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) 3)))) (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)))) (.f64 (neg.f64 M) (fma.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 (/.f64 d D) #s(literal 3 binary64)) (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal -1/4 binary64)) (pow.f64 M #s(literal 4 binary64))))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))) (fma.f64 (.f64 (/.f64 (/.f64 d D) (.f64 (sqrt.f64 #s(literal -1/4 binary64)) (.f64 M M))) (sqrt.f64 (/.f64 l h))) #s(literal 1/2 binary64) (.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) D) d) (sqrt.f64 (/.f64 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) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (pow d 5) (* (pow D 5) (* (pow M 6) (pow (sqrt -1/4) 5)))) (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 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (.f64 (neg.f64 M) (fma.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 (/.f64 d D) #s(literal 3 binary64)) (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal -1/4 binary64)) (pow.f64 M #s(literal 4 binary64))))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))) (fma.f64 (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 d #s(literal 5 binary64)) (.f64 (.f64 (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 5 binary64)) (pow.f64 M #s(literal 6 binary64))) (pow.f64 D #s(literal 5 binary64))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 5 binary64)))) (fma.f64 (.f64 (/.f64 (/.f64 d D) (.f64 (sqrt.f64 #s(literal -1/4 binary64)) (.f64 M M))) (sqrt.f64 (/.f64 l h))) #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) D) d) (sqrt.f64 (/.f64 h l))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l))) #s(hole binary64 (* -1 (* (/ (* D (* M (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (/ h l))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l))) (.f64 (neg.f64 (sqrt.f64 (/.f64 h l))) (/.f64 (.f64 (.f64 M D) (.f64 (sqrt.f64 #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 1/2 binary64)))) d)))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l))) #s(hole binary64 (* -1 (* M (+ (* (/ (* D (* (sqrt -1/2) (sqrt 1/2))) d) (sqrt (/ h l))) (* (/ (* d (sqrt 1/2)) (* D (* (pow M 2) (sqrt -1/2)))) (sqrt (/ l h))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l))) (.f64 (neg.f64 M) (fma.f64 (/.f64 (/.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) d) D) (.f64 (sqrt.f64 #s(literal -1/2 binary64)) (.f64 M M))) (sqrt.f64 (/.f64 l h)) (.f64 (/.f64 (.f64 (*.f64 D (sqrt.f64 #s(literal -1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) d) (sqrt.f64 (/.f64 h l))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l))) #s(hole binary64 (* -1 (* M (+ (* -1/2 (* (/ (* (pow d 3) (sqrt 1/2)) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* (/ (* D (* (sqrt -1/2) (sqrt 1/2))) d) (sqrt (/ h l))) (* (/ (* d (sqrt 1/2)) (* D (* (pow M 2) (sqrt -1/2)))) (sqrt (/ l h)))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l))) (.f64 (neg.f64 M) (fma.f64 (.f64 (.f64 (pow.f64 (/.f64 d D) #s(literal 3 binary64)) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (.f64 (.f64 (sqrt.f64 #s(literal -1/2 binary64)) #s(literal -1/2 binary64)) (pow.f64 M #s(literal 4 binary64))))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64)))) #s(literal -1/2 binary64) (fma.f64 (/.f64 (/.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) d) D) (.f64 (sqrt.f64 #s(literal -1/2 binary64)) (.f64 M M))) (sqrt.f64 (/.f64 l h)) (.f64 (/.f64 (.f64 (*.f64 D (sqrt.f64 #s(literal -1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) d) (sqrt.f64 (/.f64 h l)))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l))) #s(hole binary64 (* -1 (* M (+ (* -1/2 (* (/ (* (pow d 3) (sqrt 1/2)) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ (* (pow d 5) (sqrt 1/2)) (* (pow D 5) (* (pow M 6) (pow (sqrt -1/2) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* (/ (* D (* (sqrt -1/2) (sqrt 1/2))) d) (sqrt (/ h l))) (* (/ (* d (sqrt 1/2)) (* D (* (pow M 2) (sqrt -1/2)))) (sqrt (/ l h))))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l))) (.f64 (neg.f64 M) (fma.f64 (.f64 (.f64 (pow.f64 (/.f64 d D) #s(literal 3 binary64)) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (.f64 (.f64 (sqrt.f64 #s(literal -1/2 binary64)) #s(literal -1/2 binary64)) (pow.f64 M #s(literal 4 binary64))))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64)))) #s(literal -1/2 binary64) (fma.f64 (.f64 (.f64 (/.f64 (pow.f64 d #s(literal 5 binary64)) (pow.f64 D #s(literal 5 binary64))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (.f64 (pow.f64 (sqrt.f64 #s(literal -1/2 binary64)) #s(literal 5 binary64)) (pow.f64 M #s(literal 6 binary64))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 5 binary64))))) #s(literal 1/2 binary64) (fma.f64 (/.f64 (/.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) d) D) (.f64 (sqrt.f64 #s(literal -1/2 binary64)) (.f64 M M))) (sqrt.f64 (/.f64 l h)) (.f64 (/.f64 (.f64 (.f64 D (sqrt.f64 #s(literal -1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) d) (sqrt.f64 (/.f64 h l))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)))) #s(hole binary64 (+ (* w0 (* (sqrt 1/2) (sqrt 2))) (* (pow D 2) (+ (* -1/4 (/ (* (pow M 2) (* h (* w0 (sqrt 1/2)))) (* (pow d 2) (* l (sqrt 2))))) (* -1/32 (/ (* (pow D 2) (* (pow M 4) (* (pow h 2) (* w0 (sqrt 1/2))))) (* (pow d 4) (* (pow l 2) (pow (sqrt 2) 3))))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)))) (fma.f64 (fma.f64 (/.f64 (/.f64 (.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (.f64 (.f64 (.f64 h h) w0) (sqrt.f64 #s(literal 1/2 binary64)))) (.f64 D D)) (pow.f64 d #s(literal 4 binary64))) (.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 l l))) #s(literal -1/32 binary64) (.f64 (.f64 (/.f64 (.f64 M M) (.f64 d d)) (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) h) (.f64 (sqrt.f64 #s(literal 2 binary64)) l))) #s(literal -1/4 binary64))) (.f64 D D) (.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)))) #s(hole binary64 (+ (* w0 (* (sqrt 1/2) (sqrt 2))) (* (pow D 2) (+ (* -1/4 (/ (* (pow M 2) (* h (* w0 (sqrt 1/2)))) (* (pow d 2) (* l (sqrt 2))))) (* (pow D 2) (+ (* -1/32 (/ (* (pow M 4) (* (pow h 2) (* w0 (sqrt 1/2)))) (* (pow d 4) (* (pow l 2) (pow (sqrt 2) 3))))) (* -1/128 (/ (* (pow D 2) (* (pow M 6) (* (pow h 3) (* w0 (sqrt 1/2))))) (* (pow d 6) (* (pow l 3) (pow (sqrt 2) 5))))))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)))) (fma.f64 (fma.f64 (fma.f64 (/.f64 (/.f64 (.f64 (.f64 (pow.f64 M #s(literal 6 binary64)) (.f64 (.f64 (pow.f64 h #s(literal 3 binary64)) w0) (sqrt.f64 #s(literal 1/2 binary64)))) (.f64 D D)) (pow.f64 d #s(literal 6 binary64))) (.f64 (pow.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 5 binary64)) (pow.f64 l #s(literal 3 binary64)))) #s(literal -1/128 binary64) (.f64 (/.f64 (/.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (.f64 (.f64 (.f64 h h) w0) (sqrt.f64 #s(literal 1/2 binary64)))) (pow.f64 d #s(literal 4 binary64))) (.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 l l))) #s(literal -1/32 binary64))) (.f64 D D) (.f64 (.f64 (/.f64 (.f64 M M) (.f64 d d)) (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) h) (.f64 (sqrt.f64 #s(literal 2 binary64)) l))) #s(literal -1/4 binary64))) (.f64 D D) (.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (+ (* w0 (* (sqrt 1/2) (sqrt 2))) (* (pow D 2) (+ (* -1/4 (/ (* (pow M 2) (* h (* w0 (sqrt 1/2)))) (* (pow d 2) (* l (sqrt 2))))) (* -1/32 (/ (* (pow D 2) (* (pow M 4) (* (pow h 2) (* w0 (sqrt 1/2))))) (* (pow d 4) (* (pow l 2) (pow (sqrt 2) 3))))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) (fma.f64 (fma.f64 (/.f64 (/.f64 (.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (.f64 (.f64 (.f64 h h) w0) (sqrt.f64 #s(literal 1/2 binary64)))) (.f64 D D)) (pow.f64 d #s(literal 4 binary64))) (.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 l l))) #s(literal -1/32 binary64) (.f64 (.f64 (/.f64 (.f64 M M) (.f64 d d)) (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) h) (.f64 (sqrt.f64 #s(literal 2 binary64)) l))) #s(literal -1/4 binary64))) (.f64 D D) (.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (+ (* w0 (* (sqrt 1/2) (sqrt 2))) (* (pow D 2) (+ (* -1/4 (/ (* (pow M 2) (* h (* w0 (sqrt 1/2)))) (* (pow d 2) (* l (sqrt 2))))) (* (pow D 2) (+ (* -1/32 (/ (* (pow M 4) (* (pow h 2) (* w0 (sqrt 1/2)))) (* (pow d 4) (* (pow l 2) (pow (sqrt 2) 3))))) (* -1/128 (/ (* (pow D 2) (* (pow M 6) (* (pow h 3) (* w0 (sqrt 1/2))))) (* (pow d 6) (* (pow l 3) (pow (sqrt 2) 5))))))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) (fma.f64 (fma.f64 (fma.f64 (/.f64 (/.f64 (.f64 (.f64 (pow.f64 M #s(literal 6 binary64)) (.f64 (.f64 (pow.f64 h #s(literal 3 binary64)) w0) (sqrt.f64 #s(literal 1/2 binary64)))) (.f64 D D)) (pow.f64 d #s(literal 6 binary64))) (.f64 (pow.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 5 binary64)) (pow.f64 l #s(literal 3 binary64)))) #s(literal -1/128 binary64) (.f64 (/.f64 (/.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (.f64 (.f64 (.f64 h h) w0) (sqrt.f64 #s(literal 1/2 binary64)))) (pow.f64 d #s(literal 4 binary64))) (.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 l l))) #s(literal -1/32 binary64))) (.f64 D D) (.f64 (.f64 (/.f64 (.f64 M M) (.f64 d d)) (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) h) (.f64 (sqrt.f64 #s(literal 2 binary64)) l))) #s(literal -1/4 binary64))) (.f64 D D) (.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (+ (* (sqrt 1/2) (sqrt 2)) (* (pow D 2) (+ (* -1/4 (/ (* (pow M 2) (* h (sqrt 1/2))) (* (pow d 2) (* l (sqrt 2))))) (* -1/32 (/ (* (pow D 2) (* (pow M 4) (* (pow h 2) (sqrt 1/2)))) (* (pow d 4) (* (pow l 2) (pow (sqrt 2) 3))))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) (fma.f64 (fma.f64 (/.f64 (/.f64 (.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (.f64 (.f64 h h) (sqrt.f64 #s(literal 1/2 binary64)))) (.f64 D D)) (pow.f64 d #s(literal 4 binary64))) (.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 l l))) #s(literal -1/32 binary64) (.f64 (.f64 (/.f64 (.f64 M M) (.f64 d d)) (/.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) h) (.f64 (sqrt.f64 #s(literal 2 binary64)) l))) #s(literal -1/4 binary64))) (.f64 D D) (.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(literal 1/2 binary64)))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (+ (* (sqrt 1/2) (sqrt 2)) (* (pow D 2) (+ (* -1/4 (/ (* (pow M 2) (* h (sqrt 1/2))) (* (pow d 2) (* l (sqrt 2))))) (* (pow D 2) (+ (* -1/32 (/ (* (pow M 4) (* (pow h 2) (sqrt 1/2))) (* (pow d 4) (* (pow l 2) (pow (sqrt 2) 3))))) (* -1/128 (/ (* (pow D 2) (* (pow M 6) (* (pow h 3) (sqrt 1/2)))) (* (pow d 6) (* (pow l 3) (pow (sqrt 2) 5))))))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) (fma.f64 (fma.f64 (fma.f64 (/.f64 (/.f64 (.f64 (.f64 (pow.f64 M #s(literal 6 binary64)) (.f64 (pow.f64 h #s(literal 3 binary64)) (sqrt.f64 #s(literal 1/2 binary64)))) (.f64 D D)) (pow.f64 d #s(literal 6 binary64))) (.f64 (pow.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 5 binary64)) (pow.f64 l #s(literal 3 binary64)))) #s(literal -1/128 binary64) (.f64 (/.f64 (/.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (.f64 (.f64 h h) (sqrt.f64 #s(literal 1/2 binary64)))) (pow.f64 d #s(literal 4 binary64))) (.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 l l))) #s(literal -1/32 binary64))) (.f64 D D) (.f64 (.f64 (/.f64 (.f64 M M) (.f64 d d)) (/.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) h) (.f64 (sqrt.f64 #s(literal 2 binary64)) l))) #s(literal -1/4 binary64))) (.f64 D D) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(literal 1/2 binary64)))))
#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))))) (fma.f64 (fma.f64 (.f64 (/.f64 (.f64 D D) (pow.f64 d #s(literal 4 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (.f64 (.f64 h h) w0)) (.f64 l l))) #s(literal -1/128 binary64) (/.f64 (.f64 #s(literal -1/8 binary64) (.f64 (.f64 (.f64 M M) h) w0)) (.f64 (.f64 d d) l))) (*.f64 D D) w0))
#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 (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (fma.f64 (fma.f64 (fma.f64 (.f64 (/.f64 (.f64 D D) (pow.f64 d #s(literal 6 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 6 binary64)) (.f64 (pow.f64 h #s(literal 3 binary64)) w0)) (pow.f64 l #s(literal 3 binary64)))) #s(literal -1/1024 binary64) (.f64 (.f64 (/.f64 (pow.f64 M #s(literal 4 binary64)) (pow.f64 d #s(literal 4 binary64))) (/.f64 (.f64 (.f64 h h) w0) (.f64 l l))) #s(literal -1/128 binary64))) (.f64 D D) (/.f64 (.f64 #s(literal -1/8 binary64) (.f64 (.f64 (.f64 M M) h) w0)) (.f64 (.f64 d d) l))) (*.f64 D D) w0))
#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)))) (fma.f64 (fma.f64 (.f64 (/.f64 (.f64 D D) (pow.f64 d #s(literal 4 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (.f64 h h)) (.f64 l l))) #s(literal -1/128 binary64) (/.f64 (.f64 #s(literal -1/8 binary64) (.f64 (.f64 M M) h)) (.f64 (.f64 d d) l))) (*.f64 D D) #s(literal 1 binary64)))
#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 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (fma.f64 (fma.f64 (.f64 (/.f64 (.f64 D D) (pow.f64 d #s(literal 6 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 6 binary64)) (pow.f64 h #s(literal 3 binary64))) (pow.f64 l #s(literal 3 binary64)))) #s(literal -1/1024 binary64) (.f64 (.f64 (/.f64 (pow.f64 M #s(literal 4 binary64)) (pow.f64 d #s(literal 4 binary64))) (/.f64 (.f64 h h) (.f64 l l))) #s(literal -1/128 binary64))) (.f64 D D) (/.f64 (.f64 #s(literal -1/8 binary64) (.f64 (.f64 M M) h)) (.f64 (.f64 d d) l))) (.f64 D D) #s(literal 1 binary64)))
#s(approx (* (* D D) -1/8) #s(hole binary64 (* -1/8 (pow D 2))))
#s(approx (* (* D D) -1/8) (.f64 #s(literal -1/8 binary64) (.f64 D D)))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l))) #s(hole binary64 (+ (* (sqrt 1/2) (sqrt 2)) (* (pow D 2) (+ (* -1/4 (/ (* (pow M 2) (* h (sqrt 1/2))) (* (pow d 2) (* l (sqrt 2))))) (* -1/32 (/ (* (pow D 2) (* (pow M 4) (* (pow h 2) (sqrt 1/2)))) (* (pow d 4) (* (pow l 2) (pow (sqrt 2) 3))))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l))) (fma.f64 (fma.f64 (/.f64 (/.f64 (.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (.f64 (.f64 h h) (sqrt.f64 #s(literal 1/2 binary64)))) (.f64 D D)) (pow.f64 d #s(literal 4 binary64))) (.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 l l))) #s(literal -1/32 binary64) (.f64 (.f64 (/.f64 (.f64 M M) (.f64 d d)) (/.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) h) (.f64 (sqrt.f64 #s(literal 2 binary64)) l))) #s(literal -1/4 binary64))) (.f64 D D) (.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(literal 1/2 binary64)))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l))) #s(hole binary64 (+ (* (sqrt 1/2) (sqrt 2)) (* (pow D 2) (+ (* -1/4 (/ (* (pow M 2) (* h (sqrt 1/2))) (* (pow d 2) (* l (sqrt 2))))) (* (pow D 2) (+ (* -1/32 (/ (* (pow M 4) (* (pow h 2) (sqrt 1/2))) (* (pow d 4) (* (pow l 2) (pow (sqrt 2) 3))))) (* -1/128 (/ (* (pow D 2) (* (pow M 6) (* (pow h 3) (sqrt 1/2)))) (* (pow d 6) (* (pow l 3) (pow (sqrt 2) 5))))))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l))) (fma.f64 (fma.f64 (fma.f64 (/.f64 (/.f64 (.f64 (.f64 (pow.f64 M #s(literal 6 binary64)) (.f64 (pow.f64 h #s(literal 3 binary64)) (sqrt.f64 #s(literal 1/2 binary64)))) (.f64 D D)) (pow.f64 d #s(literal 6 binary64))) (.f64 (pow.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 5 binary64)) (pow.f64 l #s(literal 3 binary64)))) #s(literal -1/128 binary64) (.f64 (/.f64 (/.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (.f64 (.f64 h h) (sqrt.f64 #s(literal 1/2 binary64)))) (pow.f64 d #s(literal 4 binary64))) (.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 l l))) #s(literal -1/32 binary64))) (.f64 D D) (.f64 (.f64 (/.f64 (.f64 M M) (.f64 d d)) (/.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) h) (.f64 (sqrt.f64 #s(literal 2 binary64)) l))) #s(literal -1/4 binary64))) (.f64 D D) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(literal 1/2 binary64)))))
#s(approx (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)) #s(hole binary64 (* (pow D 2) (+ (* -1/4 (/ (* (pow M 2) h) (* (pow d 2) l))) (/ 1 (pow D 2))))))
#s(approx (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)) (.f64 (fma.f64 (.f64 (.f64 M M) (/.f64 h (.f64 (.f64 d d) l))) #s(literal -1/4 binary64) (/.f64 #s(literal 1 binary64) (.f64 D D))) (*.f64 D D)))
#s(approx (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) #s(hole binary64 (* (pow D 2) (- (* 2 (/ l (pow D 2))) (* 1/2 (/ (* (pow M 2) h) (pow d 2)))))))
#s(approx (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (.f64 (fma.f64 (/.f64 l (.f64 D D)) #s(literal 2 binary64) (.f64 #s(literal -1/2 binary64) (.f64 (.f64 M M) (/.f64 h (.f64 d d))))) (*.f64 D D)))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)))) #s(hole binary64 (* D (+ (* (/ (* M (* w0 (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (/ h l))) (* (/ (* d (* w0 (sqrt 1/2))) (* (pow D 2) (* M (sqrt -1/2)))) (sqrt (/ l h)))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)))) (.f64 (fma.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) d) (.f64 (.f64 (.f64 D D) M) (sqrt.f64 #s(literal -1/2 binary64)))) (sqrt.f64 (/.f64 l h)) (.f64 (/.f64 (.f64 (.f64 M w0) (.f64 (sqrt.f64 #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 1/2 binary64)))) d) (sqrt.f64 (/.f64 h l)))) D))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)))) #s(hole binary64 (* D (+ (* -1/2 (* (/ (* (pow d 3) (* w0 (sqrt 1/2))) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* (/ (* M (* w0 (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (/ h l))) (* (/ (* d (* w0 (sqrt 1/2))) (* (pow D 2) (* M (sqrt -1/2)))) (sqrt (/ l h))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)))) (.f64 (fma.f64 (.f64 (.f64 (/.f64 (pow.f64 d #s(literal 3 binary64)) (pow.f64 D #s(literal 4 binary64))) (/.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) (pow.f64 (.f64 (sqrt.f64 #s(literal -1/2 binary64)) M) #s(literal 3 binary64)))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64)))) #s(literal -1/2 binary64) (fma.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) d) (.f64 (.f64 (.f64 D D) M) (sqrt.f64 #s(literal -1/2 binary64)))) (sqrt.f64 (/.f64 l h)) (.f64 (/.f64 (.f64 (.f64 M w0) (.f64 (sqrt.f64 #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 1/2 binary64)))) d) (sqrt.f64 (/.f64 h l))))) D))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)))) #s(hole binary64 (* D (+ (* -1/2 (* (/ (* (pow d 3) (* w0 (sqrt 1/2))) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ (* (pow d 5) (* w0 (sqrt 1/2))) (* (pow D 6) (* (pow M 5) (pow (sqrt -1/2) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* (/ (* M (* w0 (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (/ h l))) (* (/ (* d (* w0 (sqrt 1/2))) (* (pow D 2) (* M (sqrt -1/2)))) (sqrt (/ l h)))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)))) (.f64 (fma.f64 (.f64 (.f64 (/.f64 (pow.f64 d #s(literal 3 binary64)) (pow.f64 D #s(literal 4 binary64))) (/.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) (pow.f64 (.f64 (sqrt.f64 #s(literal -1/2 binary64)) M) #s(literal 3 binary64)))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64)))) #s(literal -1/2 binary64) (fma.f64 (.f64 (.f64 (/.f64 (pow.f64 d #s(literal 5 binary64)) (pow.f64 D #s(literal 6 binary64))) (/.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) (.f64 (pow.f64 M #s(literal 5 binary64)) (pow.f64 (sqrt.f64 #s(literal -1/2 binary64)) #s(literal 5 binary64))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 5 binary64))))) #s(literal 1/2 binary64) (fma.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) d) (.f64 (.f64 (.f64 D D) M) (sqrt.f64 #s(literal -1/2 binary64)))) (sqrt.f64 (/.f64 l h)) (.f64 (/.f64 (.f64 (.f64 M w0) (.f64 (sqrt.f64 #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 1/2 binary64)))) d) (sqrt.f64 (/.f64 h l)))))) D))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (* D (+ (* (/ (* M (* w0 (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (/ h l))) (* (/ (* d (* w0 (sqrt 1/2))) (* (pow D 2) (* M (sqrt -1/2)))) (sqrt (/ l h)))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) (.f64 (fma.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) d) (.f64 (.f64 (.f64 D D) M) (sqrt.f64 #s(literal -1/2 binary64)))) (sqrt.f64 (/.f64 l h)) (.f64 (/.f64 (.f64 (.f64 M w0) (.f64 (sqrt.f64 #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 1/2 binary64)))) d) (sqrt.f64 (/.f64 h l)))) D))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (* D (+ (* -1/2 (* (/ (* (pow d 3) (* w0 (sqrt 1/2))) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* (/ (* M (* w0 (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (/ h l))) (* (/ (* d (* w0 (sqrt 1/2))) (* (pow D 2) (* M (sqrt -1/2)))) (sqrt (/ l h))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) (.f64 (fma.f64 (.f64 (.f64 (/.f64 (pow.f64 d #s(literal 3 binary64)) (pow.f64 D #s(literal 4 binary64))) (/.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) (pow.f64 (.f64 (sqrt.f64 #s(literal -1/2 binary64)) M) #s(literal 3 binary64)))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64)))) #s(literal -1/2 binary64) (fma.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) d) (.f64 (.f64 (.f64 D D) M) (sqrt.f64 #s(literal -1/2 binary64)))) (sqrt.f64 (/.f64 l h)) (.f64 (/.f64 (.f64 (.f64 M w0) (.f64 (sqrt.f64 #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 1/2 binary64)))) d) (sqrt.f64 (/.f64 h l))))) D))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (* D (+ (* -1/2 (* (/ (* (pow d 3) (* w0 (sqrt 1/2))) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ (* (pow d 5) (* w0 (sqrt 1/2))) (* (pow D 6) (* (pow M 5) (pow (sqrt -1/2) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* (/ (* M (* w0 (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (/ h l))) (* (/ (* d (* w0 (sqrt 1/2))) (* (pow D 2) (* M (sqrt -1/2)))) (sqrt (/ l h)))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) (.f64 (fma.f64 (.f64 (.f64 (/.f64 (pow.f64 d #s(literal 3 binary64)) (pow.f64 D #s(literal 4 binary64))) (/.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) (pow.f64 (.f64 (sqrt.f64 #s(literal -1/2 binary64)) M) #s(literal 3 binary64)))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64)))) #s(literal -1/2 binary64) (fma.f64 (.f64 (.f64 (/.f64 (pow.f64 d #s(literal 5 binary64)) (pow.f64 D #s(literal 6 binary64))) (/.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) (.f64 (pow.f64 M #s(literal 5 binary64)) (pow.f64 (sqrt.f64 #s(literal -1/2 binary64)) #s(literal 5 binary64))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 5 binary64))))) #s(literal 1/2 binary64) (fma.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) d) (.f64 (.f64 (.f64 D D) M) (sqrt.f64 #s(literal -1/2 binary64)))) (sqrt.f64 (/.f64 l h)) (.f64 (/.f64 (.f64 (.f64 M w0) (.f64 (sqrt.f64 #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 1/2 binary64)))) d) (sqrt.f64 (/.f64 h l)))))) D))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (* D (+ (* (/ (* M (* (sqrt -1/2) (sqrt 1/2))) d) (sqrt (/ h l))) (* (/ (* d (sqrt 1/2)) (* (pow D 2) (* M (sqrt -1/2)))) (sqrt (/ l h)))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) (.f64 (fma.f64 (/.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) d) (.f64 (.f64 (.f64 D D) M) (sqrt.f64 #s(literal -1/2 binary64)))) (sqrt.f64 (/.f64 l h)) (.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/2 binary64)) M) (sqrt.f64 #s(literal 1/2 binary64))) d) (sqrt.f64 (/.f64 h l)))) D))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (* D (+ (* -1/2 (* (/ (* (pow d 3) (sqrt 1/2)) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* (/ (* M (* (sqrt -1/2) (sqrt 1/2))) d) (sqrt (/ h l))) (* (/ (* d (sqrt 1/2)) (* (pow D 2) (* M (sqrt -1/2)))) (sqrt (/ l h))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) (.f64 (fma.f64 (.f64 (.f64 (/.f64 (pow.f64 d #s(literal 3 binary64)) (pow.f64 D #s(literal 4 binary64))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (pow.f64 (.f64 (sqrt.f64 #s(literal -1/2 binary64)) M) #s(literal 3 binary64)))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64)))) #s(literal -1/2 binary64) (fma.f64 (/.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) d) (.f64 (.f64 (.f64 D D) M) (sqrt.f64 #s(literal -1/2 binary64)))) (sqrt.f64 (/.f64 l h)) (.f64 (/.f64 (.f64 (*.f64 (sqrt.f64 #s(literal -1/2 binary64)) M) (sqrt.f64 #s(literal 1/2 binary64))) d) (sqrt.f64 (/.f64 h l))))) D))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (* D (+ (* -1/2 (* (/ (* (pow d 3) (sqrt 1/2)) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ (* (pow d 5) (sqrt 1/2)) (* (pow D 6) (* (pow M 5) (pow (sqrt -1/2) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* (/ (* M (* (sqrt -1/2) (sqrt 1/2))) d) (sqrt (/ h l))) (* (/ (* d (sqrt 1/2)) (* (pow D 2) (* M (sqrt -1/2)))) (sqrt (/ l h)))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) (.f64 (fma.f64 (.f64 (.f64 (/.f64 (pow.f64 d #s(literal 3 binary64)) (pow.f64 D #s(literal 4 binary64))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (pow.f64 (.f64 (sqrt.f64 #s(literal -1/2 binary64)) M) #s(literal 3 binary64)))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64)))) #s(literal -1/2 binary64) (fma.f64 (.f64 (.f64 (/.f64 (pow.f64 d #s(literal 5 binary64)) (pow.f64 D #s(literal 6 binary64))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (.f64 (pow.f64 M #s(literal 5 binary64)) (pow.f64 (sqrt.f64 #s(literal -1/2 binary64)) #s(literal 5 binary64))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 5 binary64))))) #s(literal 1/2 binary64) (fma.f64 (/.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) d) (.f64 (.f64 (.f64 D D) M) (sqrt.f64 #s(literal -1/2 binary64)))) (sqrt.f64 (/.f64 l h)) (.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/2 binary64)) M) (sqrt.f64 #s(literal 1/2 binary64))) d) (sqrt.f64 (/.f64 h l)))))) 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))))) (.f64 (fma.f64 (.f64 (.f64 (/.f64 d (.f64 D D)) (/.f64 w0 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M))) (sqrt.f64 (/.f64 l h))) #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) M) d) (sqrt.f64 (/.f64 h l)))) D))
#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) 3)))) (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))))) (.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (pow.f64 d #s(literal 3 binary64)) w0) (.f64 (pow.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) #s(literal 3 binary64)) (pow.f64 D #s(literal 4 binary64))))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))) (fma.f64 (.f64 (.f64 (/.f64 d (.f64 D D)) (/.f64 w0 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M))) (sqrt.f64 (/.f64 l h))) #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) M) d) (sqrt.f64 (/.f64 h l))))) D))
#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) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 6) (* (pow M 5) (pow (sqrt -1/4) 5)))) (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))))) (.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (pow.f64 d #s(literal 3 binary64)) w0) (.f64 (pow.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) #s(literal 3 binary64)) (pow.f64 D #s(literal 4 binary64))))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))) (fma.f64 (.f64 #s(literal 1/16 binary64) (/.f64 (.f64 (pow.f64 d #s(literal 5 binary64)) w0) (.f64 (.f64 (pow.f64 M #s(literal 5 binary64)) (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 5 binary64))) (pow.f64 D #s(literal 6 binary64))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 5 binary64)))) (fma.f64 (.f64 (.f64 (/.f64 d (.f64 D D)) (/.f64 w0 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M))) (sqrt.f64 (/.f64 l h))) #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) M) d) (sqrt.f64 (/.f64 h l)))))) D))
#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)))) (.f64 (fma.f64 (.f64 (/.f64 (/.f64 d (.f64 D D)) (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M)) (sqrt.f64 (/.f64 l h))) #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) d) (sqrt.f64 (/.f64 h l)))) D))
#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) 3)))) (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)))) (.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 d #s(literal 3 binary64)) (.f64 (pow.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) #s(literal 3 binary64)) (pow.f64 D #s(literal 4 binary64))))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))) (fma.f64 (.f64 (/.f64 (/.f64 d (.f64 D D)) (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M)) (sqrt.f64 (/.f64 l h))) #s(literal 1/2 binary64) (.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) d) (sqrt.f64 (/.f64 h l))))) D))
#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) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (pow d 5) (* (pow D 6) (* (pow M 5) (pow (sqrt -1/4) 5)))) (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 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 d #s(literal 3 binary64)) (.f64 (pow.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) #s(literal 3 binary64)) (pow.f64 D #s(literal 4 binary64))))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))) (fma.f64 (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 d #s(literal 5 binary64)) (.f64 (.f64 (pow.f64 M #s(literal 5 binary64)) (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 5 binary64))) (pow.f64 D #s(literal 6 binary64))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 5 binary64)))) (fma.f64 (.f64 (/.f64 (/.f64 d (.f64 D D)) (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M)) (sqrt.f64 (/.f64 l h))) #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) d) (sqrt.f64 (/.f64 h l)))))) D))
#s(approx (+ (* (* (* D D) -1/8) (/ (* (* (/ M d) M) h) (* d l))) 1) #s(hole binary64 (* (pow D 2) (+ (* -1/8 (/ (* (pow M 2) h) (* (pow d 2) l))) (/ 1 (pow D 2))))))
#s(approx (+ (* (* (* D D) -1/8) (/ (* (* (/ M d) M) h) (* d l))) 1) (.f64 (fma.f64 (.f64 (.f64 M M) (/.f64 h (.f64 (.f64 d d) l))) #s(literal -1/8 binary64) (/.f64 #s(literal 1 binary64) (.f64 D D))) (*.f64 D D)))
#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 (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (.f64 (fma.f64 (.f64 (.f64 M M) (/.f64 h (.f64 (.f64 d d) l))) #s(literal -1/4 binary64) (/.f64 #s(literal 1 binary64) (.f64 D D))) (*.f64 D D)))
#s(approx (+ (* (* h -1/4) (/ (* (* (* M M) D) D) (* (* d l) d))) 1) #s(hole binary64 (* (pow D 2) (+ (* -1/4 (/ (* (pow M 2) h) (* (pow d 2) l))) (/ 1 (pow D 2))))))
#s(approx (+ (* (* h -1/4) (/ (* (* (* M M) D) D) (* (* d l) d))) 1) (.f64 (fma.f64 (.f64 (.f64 M M) (/.f64 h (.f64 (.f64 d d) l))) #s(literal -1/4 binary64) (/.f64 #s(literal 1 binary64) (.f64 D D))) (*.f64 D D)))
#s(approx (+ (* (* (* -1/4 h) (* (/ D d) (* (/ M d) M))) (/ D l)) 1) #s(hole binary64 (* (pow D 2) (+ (* -1/4 (/ (* (pow M 2) h) (* (pow d 2) l))) (/ 1 (pow D 2))))))
#s(approx (+ (* (* (* -1/4 h) (* (/ D d) (* (/ M d) M))) (/ D l)) 1) (.f64 (fma.f64 (.f64 (.f64 M M) (/.f64 h (.f64 (.f64 d d) l))) #s(literal -1/4 binary64) (/.f64 #s(literal 1 binary64) (.f64 D D))) (*.f64 D D)))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l))) #s(hole binary64 (* D (+ (* (/ (* M (* (sqrt -1/2) (sqrt 1/2))) d) (sqrt (/ h l))) (* (/ (* d (sqrt 1/2)) (* (pow D 2) (* M (sqrt -1/2)))) (sqrt (/ l h)))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l))) (.f64 (fma.f64 (/.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) d) (.f64 (.f64 (.f64 D D) M) (sqrt.f64 #s(literal -1/2 binary64)))) (sqrt.f64 (/.f64 l h)) (.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/2 binary64)) M) (sqrt.f64 #s(literal 1/2 binary64))) d) (sqrt.f64 (/.f64 h l)))) D))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l))) #s(hole binary64 (* D (+ (* -1/2 (* (/ (* (pow d 3) (sqrt 1/2)) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* (/ (* M (* (sqrt -1/2) (sqrt 1/2))) d) (sqrt (/ h l))) (* (/ (* d (sqrt 1/2)) (* (pow D 2) (* M (sqrt -1/2)))) (sqrt (/ l h))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l))) (.f64 (fma.f64 (.f64 (.f64 (/.f64 (pow.f64 d #s(literal 3 binary64)) (pow.f64 D #s(literal 4 binary64))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (pow.f64 (.f64 (sqrt.f64 #s(literal -1/2 binary64)) M) #s(literal 3 binary64)))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64)))) #s(literal -1/2 binary64) (fma.f64 (/.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) d) (.f64 (.f64 (.f64 D D) M) (sqrt.f64 #s(literal -1/2 binary64)))) (sqrt.f64 (/.f64 l h)) (.f64 (/.f64 (.f64 (*.f64 (sqrt.f64 #s(literal -1/2 binary64)) M) (sqrt.f64 #s(literal 1/2 binary64))) d) (sqrt.f64 (/.f64 h l))))) D))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l))) #s(hole binary64 (* D (+ (* -1/2 (* (/ (* (pow d 3) (sqrt 1/2)) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ (* (pow d 5) (sqrt 1/2)) (* (pow D 6) (* (pow M 5) (pow (sqrt -1/2) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* (/ (* M (* (sqrt -1/2) (sqrt 1/2))) d) (sqrt (/ h l))) (* (/ (* d (sqrt 1/2)) (* (pow D 2) (* M (sqrt -1/2)))) (sqrt (/ l h)))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l))) (.f64 (fma.f64 (.f64 (.f64 (/.f64 (pow.f64 d #s(literal 3 binary64)) (pow.f64 D #s(literal 4 binary64))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (pow.f64 (.f64 (sqrt.f64 #s(literal -1/2 binary64)) M) #s(literal 3 binary64)))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64)))) #s(literal -1/2 binary64) (fma.f64 (.f64 (.f64 (/.f64 (pow.f64 d #s(literal 5 binary64)) (pow.f64 D #s(literal 6 binary64))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (.f64 (pow.f64 M #s(literal 5 binary64)) (pow.f64 (sqrt.f64 #s(literal -1/2 binary64)) #s(literal 5 binary64))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 5 binary64))))) #s(literal 1/2 binary64) (fma.f64 (/.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) d) (.f64 (.f64 (.f64 D D) M) (sqrt.f64 #s(literal -1/2 binary64)))) (sqrt.f64 (/.f64 l h)) (.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/2 binary64)) M) (sqrt.f64 #s(literal 1/2 binary64))) d) (sqrt.f64 (/.f64 h l)))))) D))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)))) #s(hole binary64 (* -1 (* D (+ (* (/ (* M (* w0 (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (/ h l))) (* (/ (* d (* w0 (sqrt 1/2))) (* (pow D 2) (* M (sqrt -1/2)))) (sqrt (/ l h))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)))) (.f64 (neg.f64 D) (fma.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) d) (.f64 (.f64 (.f64 D D) M) (sqrt.f64 #s(literal -1/2 binary64)))) (sqrt.f64 (/.f64 l h)) (.f64 (/.f64 (.f64 (.f64 M w0) (.f64 (sqrt.f64 #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 1/2 binary64)))) d) (sqrt.f64 (/.f64 h l))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)))) #s(hole binary64 (* -1 (* D (+ (* -1/2 (* (/ (* (pow d 3) (* w0 (sqrt 1/2))) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* (/ (* M (* w0 (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (/ h l))) (* (/ (* d (* w0 (sqrt 1/2))) (* (pow D 2) (* M (sqrt -1/2)))) (sqrt (/ l h)))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)))) (.f64 (neg.f64 D) (fma.f64 (.f64 (.f64 (/.f64 (pow.f64 d #s(literal 3 binary64)) (pow.f64 D #s(literal 4 binary64))) (/.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) (pow.f64 (.f64 (sqrt.f64 #s(literal -1/2 binary64)) M) #s(literal 3 binary64)))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64)))) #s(literal -1/2 binary64) (fma.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) d) (.f64 (.f64 (.f64 D D) M) (sqrt.f64 #s(literal -1/2 binary64)))) (sqrt.f64 (/.f64 l h)) (.f64 (/.f64 (.f64 (.f64 M w0) (.f64 (sqrt.f64 #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 1/2 binary64)))) d) (sqrt.f64 (/.f64 h l)))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)))) #s(hole binary64 (* -1 (* D (+ (* -1/2 (* (/ (* (pow d 3) (* w0 (sqrt 1/2))) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ (* (pow d 5) (* w0 (sqrt 1/2))) (* (pow D 6) (* (pow M 5) (pow (sqrt -1/2) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* (/ (* M (* w0 (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (/ h l))) (* (/ (* d (* w0 (sqrt 1/2))) (* (pow D 2) (* M (sqrt -1/2)))) (sqrt (/ l h))))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)))) (.f64 (neg.f64 D) (fma.f64 (.f64 (.f64 (/.f64 (pow.f64 d #s(literal 3 binary64)) (pow.f64 D #s(literal 4 binary64))) (/.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) (pow.f64 (.f64 (sqrt.f64 #s(literal -1/2 binary64)) M) #s(literal 3 binary64)))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64)))) #s(literal -1/2 binary64) (fma.f64 (.f64 (.f64 (/.f64 (pow.f64 d #s(literal 5 binary64)) (pow.f64 D #s(literal 6 binary64))) (/.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) (.f64 (pow.f64 M #s(literal 5 binary64)) (pow.f64 (sqrt.f64 #s(literal -1/2 binary64)) #s(literal 5 binary64))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 5 binary64))))) #s(literal 1/2 binary64) (fma.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) d) (.f64 (.f64 (.f64 D D) M) (sqrt.f64 #s(literal -1/2 binary64)))) (sqrt.f64 (/.f64 l h)) (.f64 (/.f64 (.f64 (.f64 M w0) (.f64 (sqrt.f64 #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 1/2 binary64)))) d) (sqrt.f64 (/.f64 h l))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (* -1 (* D (+ (* (/ (* M (* w0 (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (/ h l))) (* (/ (* d (* w0 (sqrt 1/2))) (* (pow D 2) (* M (sqrt -1/2)))) (sqrt (/ l h))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) (.f64 (neg.f64 D) (fma.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) d) (.f64 (.f64 (.f64 D D) M) (sqrt.f64 #s(literal -1/2 binary64)))) (sqrt.f64 (/.f64 l h)) (.f64 (/.f64 (.f64 (.f64 M w0) (.f64 (sqrt.f64 #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 1/2 binary64)))) d) (sqrt.f64 (/.f64 h l))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (* -1 (* D (+ (* -1/2 (* (/ (* (pow d 3) (* w0 (sqrt 1/2))) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* (/ (* M (* w0 (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (/ h l))) (* (/ (* d (* w0 (sqrt 1/2))) (* (pow D 2) (* M (sqrt -1/2)))) (sqrt (/ l h)))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) (.f64 (neg.f64 D) (fma.f64 (.f64 (.f64 (/.f64 (pow.f64 d #s(literal 3 binary64)) (pow.f64 D #s(literal 4 binary64))) (/.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) (pow.f64 (.f64 (sqrt.f64 #s(literal -1/2 binary64)) M) #s(literal 3 binary64)))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64)))) #s(literal -1/2 binary64) (fma.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) d) (.f64 (.f64 (.f64 D D) M) (sqrt.f64 #s(literal -1/2 binary64)))) (sqrt.f64 (/.f64 l h)) (.f64 (/.f64 (.f64 (.f64 M w0) (.f64 (sqrt.f64 #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 1/2 binary64)))) d) (sqrt.f64 (/.f64 h l)))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (* -1 (* D (+ (* -1/2 (* (/ (* (pow d 3) (* w0 (sqrt 1/2))) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ (* (pow d 5) (* w0 (sqrt 1/2))) (* (pow D 6) (* (pow M 5) (pow (sqrt -1/2) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* (/ (* M (* w0 (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (/ h l))) (* (/ (* d (* w0 (sqrt 1/2))) (* (pow D 2) (* M (sqrt -1/2)))) (sqrt (/ l h))))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) (.f64 (neg.f64 D) (fma.f64 (.f64 (.f64 (/.f64 (pow.f64 d #s(literal 3 binary64)) (pow.f64 D #s(literal 4 binary64))) (/.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) (pow.f64 (.f64 (sqrt.f64 #s(literal -1/2 binary64)) M) #s(literal 3 binary64)))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64)))) #s(literal -1/2 binary64) (fma.f64 (.f64 (.f64 (/.f64 (pow.f64 d #s(literal 5 binary64)) (pow.f64 D #s(literal 6 binary64))) (/.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) (.f64 (pow.f64 M #s(literal 5 binary64)) (pow.f64 (sqrt.f64 #s(literal -1/2 binary64)) #s(literal 5 binary64))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 5 binary64))))) #s(literal 1/2 binary64) (fma.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) d) (.f64 (.f64 (.f64 D D) M) (sqrt.f64 #s(literal -1/2 binary64)))) (sqrt.f64 (/.f64 l h)) (.f64 (/.f64 (.f64 (.f64 M w0) (.f64 (sqrt.f64 #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 1/2 binary64)))) d) (sqrt.f64 (/.f64 h l))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (* -1 (* D (+ (* (/ (* M (* (sqrt -1/2) (sqrt 1/2))) d) (sqrt (/ h l))) (* (/ (* d (sqrt 1/2)) (* (pow D 2) (* M (sqrt -1/2)))) (sqrt (/ l h))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) (.f64 (neg.f64 D) (fma.f64 (/.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) d) (.f64 (.f64 (.f64 D D) M) (sqrt.f64 #s(literal -1/2 binary64)))) (sqrt.f64 (/.f64 l h)) (.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/2 binary64)) M) (sqrt.f64 #s(literal 1/2 binary64))) d) (sqrt.f64 (/.f64 h l))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (* -1 (* D (+ (* -1/2 (* (/ (* (pow d 3) (sqrt 1/2)) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* (/ (* M (* (sqrt -1/2) (sqrt 1/2))) d) (sqrt (/ h l))) (* (/ (* d (sqrt 1/2)) (* (pow D 2) (* M (sqrt -1/2)))) (sqrt (/ l h)))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) (.f64 (neg.f64 D) (fma.f64 (.f64 (.f64 (/.f64 (pow.f64 d #s(literal 3 binary64)) (pow.f64 D #s(literal 4 binary64))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (pow.f64 (.f64 (sqrt.f64 #s(literal -1/2 binary64)) M) #s(literal 3 binary64)))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64)))) #s(literal -1/2 binary64) (fma.f64 (/.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) d) (.f64 (.f64 (.f64 D D) M) (sqrt.f64 #s(literal -1/2 binary64)))) (sqrt.f64 (/.f64 l h)) (.f64 (/.f64 (.f64 (*.f64 (sqrt.f64 #s(literal -1/2 binary64)) M) (sqrt.f64 #s(literal 1/2 binary64))) d) (sqrt.f64 (/.f64 h l)))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (* -1 (* D (+ (* -1/2 (* (/ (* (pow d 3) (sqrt 1/2)) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ (* (pow d 5) (sqrt 1/2)) (* (pow D 6) (* (pow M 5) (pow (sqrt -1/2) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* (/ (* M (* (sqrt -1/2) (sqrt 1/2))) d) (sqrt (/ h l))) (* (/ (* d (sqrt 1/2)) (* (pow D 2) (* M (sqrt -1/2)))) (sqrt (/ l h))))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) (.f64 (neg.f64 D) (fma.f64 (.f64 (.f64 (/.f64 (pow.f64 d #s(literal 3 binary64)) (pow.f64 D #s(literal 4 binary64))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (pow.f64 (.f64 (sqrt.f64 #s(literal -1/2 binary64)) M) #s(literal 3 binary64)))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64)))) #s(literal -1/2 binary64) (fma.f64 (.f64 (.f64 (/.f64 (pow.f64 d #s(literal 5 binary64)) (pow.f64 D #s(literal 6 binary64))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (.f64 (pow.f64 M #s(literal 5 binary64)) (pow.f64 (sqrt.f64 #s(literal -1/2 binary64)) #s(literal 5 binary64))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 5 binary64))))) #s(literal 1/2 binary64) (fma.f64 (/.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) d) (.f64 (.f64 (.f64 D D) M) (sqrt.f64 #s(literal -1/2 binary64)))) (sqrt.f64 (/.f64 l h)) (.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/2 binary64)) M) (sqrt.f64 #s(literal 1/2 binary64))) d) (sqrt.f64 (/.f64 h 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))))) (.f64 (neg.f64 D) (fma.f64 (.f64 (.f64 (/.f64 d (.f64 D D)) (/.f64 w0 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M))) (sqrt.f64 (/.f64 l h))) #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) M) d) (sqrt.f64 (/.f64 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) 3)))) (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))))) (.f64 (neg.f64 D) (fma.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (pow.f64 d #s(literal 3 binary64)) w0) (.f64 (pow.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) #s(literal 3 binary64)) (pow.f64 D #s(literal 4 binary64))))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))) (fma.f64 (.f64 (.f64 (/.f64 d (.f64 D D)) (/.f64 w0 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M))) (sqrt.f64 (/.f64 l h))) #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) M) d) (sqrt.f64 (/.f64 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) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 6) (* (pow M 5) (pow (sqrt -1/4) 5)))) (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))))) (.f64 (neg.f64 D) (fma.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (pow.f64 d #s(literal 3 binary64)) w0) (.f64 (pow.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) #s(literal 3 binary64)) (pow.f64 D #s(literal 4 binary64))))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))) (fma.f64 (.f64 #s(literal 1/16 binary64) (/.f64 (.f64 (pow.f64 d #s(literal 5 binary64)) w0) (.f64 (.f64 (pow.f64 M #s(literal 5 binary64)) (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 5 binary64))) (pow.f64 D #s(literal 6 binary64))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 5 binary64)))) (fma.f64 (.f64 (.f64 (/.f64 d (.f64 D D)) (/.f64 w0 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M))) (sqrt.f64 (/.f64 l h))) #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) M) d) (sqrt.f64 (/.f64 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)))) (.f64 (neg.f64 D) (fma.f64 (.f64 (/.f64 (/.f64 d (.f64 D D)) (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M)) (sqrt.f64 (/.f64 l h))) #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) d) (sqrt.f64 (/.f64 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) 3)))) (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)))) (.f64 (neg.f64 D) (fma.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 d #s(literal 3 binary64)) (.f64 (pow.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) #s(literal 3 binary64)) (pow.f64 D #s(literal 4 binary64))))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))) (fma.f64 (.f64 (/.f64 (/.f64 d (.f64 D D)) (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M)) (sqrt.f64 (/.f64 l h))) #s(literal 1/2 binary64) (.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) d) (sqrt.f64 (/.f64 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) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (pow d 5) (* (pow D 6) (* (pow M 5) (pow (sqrt -1/4) 5)))) (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 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (.f64 (neg.f64 D) (fma.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 d #s(literal 3 binary64)) (.f64 (pow.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) #s(literal 3 binary64)) (pow.f64 D #s(literal 4 binary64))))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))) (fma.f64 (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 d #s(literal 5 binary64)) (.f64 (.f64 (pow.f64 M #s(literal 5 binary64)) (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 5 binary64))) (pow.f64 D #s(literal 6 binary64))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 5 binary64)))) (fma.f64 (.f64 (/.f64 (/.f64 d (.f64 D D)) (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M)) (sqrt.f64 (/.f64 l h))) #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) d) (sqrt.f64 (/.f64 h l))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l))) #s(hole binary64 (* -1 (* D (+ (* (/ (* M (* (sqrt -1/2) (sqrt 1/2))) d) (sqrt (/ h l))) (* (/ (* d (sqrt 1/2)) (* (pow D 2) (* M (sqrt -1/2)))) (sqrt (/ l h))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l))) (.f64 (neg.f64 D) (fma.f64 (/.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) d) (.f64 (.f64 (.f64 D D) M) (sqrt.f64 #s(literal -1/2 binary64)))) (sqrt.f64 (/.f64 l h)) (.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/2 binary64)) M) (sqrt.f64 #s(literal 1/2 binary64))) d) (sqrt.f64 (/.f64 h l))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l))) #s(hole binary64 (* -1 (* D (+ (* -1/2 (* (/ (* (pow d 3) (sqrt 1/2)) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* (/ (* M (* (sqrt -1/2) (sqrt 1/2))) d) (sqrt (/ h l))) (* (/ (* d (sqrt 1/2)) (* (pow D 2) (* M (sqrt -1/2)))) (sqrt (/ l h)))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l))) (.f64 (neg.f64 D) (fma.f64 (.f64 (.f64 (/.f64 (pow.f64 d #s(literal 3 binary64)) (pow.f64 D #s(literal 4 binary64))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (pow.f64 (.f64 (sqrt.f64 #s(literal -1/2 binary64)) M) #s(literal 3 binary64)))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64)))) #s(literal -1/2 binary64) (fma.f64 (/.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) d) (.f64 (.f64 (.f64 D D) M) (sqrt.f64 #s(literal -1/2 binary64)))) (sqrt.f64 (/.f64 l h)) (.f64 (/.f64 (.f64 (*.f64 (sqrt.f64 #s(literal -1/2 binary64)) M) (sqrt.f64 #s(literal 1/2 binary64))) d) (sqrt.f64 (/.f64 h l)))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l))) #s(hole binary64 (* -1 (* D (+ (* -1/2 (* (/ (* (pow d 3) (sqrt 1/2)) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ (* (pow d 5) (sqrt 1/2)) (* (pow D 6) (* (pow M 5) (pow (sqrt -1/2) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* (/ (* M (* (sqrt -1/2) (sqrt 1/2))) d) (sqrt (/ h l))) (* (/ (* d (sqrt 1/2)) (* (pow D 2) (* M (sqrt -1/2)))) (sqrt (/ l h))))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l))) (.f64 (neg.f64 D) (fma.f64 (.f64 (.f64 (/.f64 (pow.f64 d #s(literal 3 binary64)) (pow.f64 D #s(literal 4 binary64))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (pow.f64 (.f64 (sqrt.f64 #s(literal -1/2 binary64)) M) #s(literal 3 binary64)))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64)))) #s(literal -1/2 binary64) (fma.f64 (.f64 (.f64 (/.f64 (pow.f64 d #s(literal 5 binary64)) (pow.f64 D #s(literal 6 binary64))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (.f64 (pow.f64 M #s(literal 5 binary64)) (pow.f64 (sqrt.f64 #s(literal -1/2 binary64)) #s(literal 5 binary64))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 5 binary64))))) #s(literal 1/2 binary64) (fma.f64 (/.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) d) (.f64 (.f64 (.f64 D D) M) (sqrt.f64 #s(literal -1/2 binary64)))) (sqrt.f64 (/.f64 l h)) (.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/2 binary64)) M) (sqrt.f64 #s(literal 1/2 binary64))) d) (sqrt.f64 (/.f64 h l))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)))) #s(hole binary64 (+ (* h (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (* w0 (sqrt 1/2)))) (* (pow d 2) (* l (sqrt 2))))) (* -1/32 (/ (* (pow D 4) (* (pow M 4) (* h (* w0 (sqrt 1/2))))) (* (pow d 4) (* (pow l 2) (pow (sqrt 2) 3))))))) (* w0 (* (sqrt 1/2) (sqrt 2))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)))) (fma.f64 (fma.f64 (/.f64 (/.f64 (.f64 (.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) h) (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0)) (pow.f64 D #s(literal 4 binary64))) (pow.f64 d #s(literal 4 binary64))) (.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 l l))) #s(literal -1/32 binary64) (.f64 (.f64 (/.f64 (.f64 D D) (.f64 d d)) (/.f64 (.f64 (.f64 (.f64 M M) w0) (sqrt.f64 #s(literal 1/2 binary64))) (.f64 (sqrt.f64 #s(literal 2 binary64)) l))) #s(literal -1/4 binary64))) h (.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)))) #s(hole binary64 (+ (* h (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (* w0 (sqrt 1/2)))) (* (pow d 2) (* l (sqrt 2))))) (* h (+ (* -1/32 (/ (* (pow D 4) (* (pow M 4) (* w0 (sqrt 1/2)))) (* (pow d 4) (* (pow l 2) (pow (sqrt 2) 3))))) (* -1/128 (/ (* (pow D 6) (* (pow M 6) (* h (* w0 (sqrt 1/2))))) (* (pow d 6) (* (pow l 3) (pow (sqrt 2) 5))))))))) (* w0 (* (sqrt 1/2) (sqrt 2))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)))) (fma.f64 (fma.f64 (fma.f64 (/.f64 (/.f64 (.f64 (.f64 (.f64 (pow.f64 M #s(literal 6 binary64)) h) (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0)) (pow.f64 D #s(literal 6 binary64))) (pow.f64 d #s(literal 6 binary64))) (.f64 (pow.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 5 binary64)) (pow.f64 l #s(literal 3 binary64)))) #s(literal -1/128 binary64) (.f64 (/.f64 (/.f64 (.f64 (.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) w0) (sqrt.f64 #s(literal 1/2 binary64))) (pow.f64 D #s(literal 4 binary64))) (pow.f64 d #s(literal 4 binary64))) (.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 l l))) #s(literal -1/32 binary64))) h (.f64 (.f64 (/.f64 (.f64 D D) (.f64 d d)) (/.f64 (.f64 (.f64 (.f64 M M) w0) (sqrt.f64 #s(literal 1/2 binary64))) (.f64 (sqrt.f64 #s(literal 2 binary64)) l))) #s(literal -1/4 binary64))) h (.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (+ (* h (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (* w0 (sqrt 1/2)))) (* (pow d 2) (* l (sqrt 2))))) (* -1/32 (/ (* (pow D 4) (* (pow M 4) (* h (* w0 (sqrt 1/2))))) (* (pow d 4) (* (pow l 2) (pow (sqrt 2) 3))))))) (* w0 (* (sqrt 1/2) (sqrt 2))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) (fma.f64 (fma.f64 (/.f64 (/.f64 (.f64 (.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) h) (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0)) (pow.f64 D #s(literal 4 binary64))) (pow.f64 d #s(literal 4 binary64))) (.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 l l))) #s(literal -1/32 binary64) (.f64 (.f64 (/.f64 (.f64 D D) (.f64 d d)) (/.f64 (.f64 (.f64 (.f64 M M) w0) (sqrt.f64 #s(literal 1/2 binary64))) (.f64 (sqrt.f64 #s(literal 2 binary64)) l))) #s(literal -1/4 binary64))) h (.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (+ (* h (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (* w0 (sqrt 1/2)))) (* (pow d 2) (* l (sqrt 2))))) (* h (+ (* -1/32 (/ (* (pow D 4) (* (pow M 4) (* w0 (sqrt 1/2)))) (* (pow d 4) (* (pow l 2) (pow (sqrt 2) 3))))) (* -1/128 (/ (* (pow D 6) (* (pow M 6) (* h (* w0 (sqrt 1/2))))) (* (pow d 6) (* (pow l 3) (pow (sqrt 2) 5))))))))) (* w0 (* (sqrt 1/2) (sqrt 2))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) (fma.f64 (fma.f64 (fma.f64 (/.f64 (/.f64 (.f64 (.f64 (.f64 (pow.f64 M #s(literal 6 binary64)) h) (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0)) (pow.f64 D #s(literal 6 binary64))) (pow.f64 d #s(literal 6 binary64))) (.f64 (pow.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 5 binary64)) (pow.f64 l #s(literal 3 binary64)))) #s(literal -1/128 binary64) (.f64 (/.f64 (/.f64 (.f64 (.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) w0) (sqrt.f64 #s(literal 1/2 binary64))) (pow.f64 D #s(literal 4 binary64))) (pow.f64 d #s(literal 4 binary64))) (.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 l l))) #s(literal -1/32 binary64))) h (.f64 (.f64 (/.f64 (.f64 D D) (.f64 d d)) (/.f64 (.f64 (.f64 (.f64 M M) w0) (sqrt.f64 #s(literal 1/2 binary64))) (.f64 (sqrt.f64 #s(literal 2 binary64)) l))) #s(literal -1/4 binary64))) h (.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (+ (* h (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (sqrt 1/2))) (* (pow d 2) (* l (sqrt 2))))) (* -1/32 (/ (* (pow D 4) (* (pow M 4) (* h (sqrt 1/2)))) (* (pow d 4) (* (pow l 2) (pow (sqrt 2) 3))))))) (* (sqrt 1/2) (sqrt 2)))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) (fma.f64 (fma.f64 (/.f64 (/.f64 (.f64 (.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) h) (sqrt.f64 #s(literal 1/2 binary64))) (pow.f64 D #s(literal 4 binary64))) (pow.f64 d #s(literal 4 binary64))) (.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 l l))) #s(literal -1/32 binary64) (.f64 (.f64 (/.f64 (.f64 D D) (.f64 d d)) (/.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (.f64 M M)) (.f64 (sqrt.f64 #s(literal 2 binary64)) l))) #s(literal -1/4 binary64))) h (.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(literal 1/2 binary64)))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (+ (* h (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (sqrt 1/2))) (* (pow d 2) (* l (sqrt 2))))) (* h (+ (* -1/32 (/ (* (pow D 4) (* (pow M 4) (sqrt 1/2))) (* (pow d 4) (* (pow l 2) (pow (sqrt 2) 3))))) (* -1/128 (/ (* (pow D 6) (* (pow M 6) (* h (sqrt 1/2)))) (* (pow d 6) (* (pow l 3) (pow (sqrt 2) 5))))))))) (* (sqrt 1/2) (sqrt 2)))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) (fma.f64 (fma.f64 (fma.f64 (/.f64 (/.f64 (.f64 (.f64 (.f64 (pow.f64 M #s(literal 6 binary64)) h) (sqrt.f64 #s(literal 1/2 binary64))) (pow.f64 D #s(literal 6 binary64))) (pow.f64 d #s(literal 6 binary64))) (.f64 (pow.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 5 binary64)) (pow.f64 l #s(literal 3 binary64)))) #s(literal -1/128 binary64) (.f64 (/.f64 (/.f64 (.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (sqrt.f64 #s(literal 1/2 binary64))) (pow.f64 D #s(literal 4 binary64))) (pow.f64 d #s(literal 4 binary64))) (.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 l l))) #s(literal -1/32 binary64))) h (.f64 (.f64 (/.f64 (.f64 D D) (.f64 d d)) (/.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (.f64 M M)) (.f64 (sqrt.f64 #s(literal 2 binary64)) l))) #s(literal -1/4 binary64))) h (.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(literal 1/2 binary64)))))
#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))))) (fma.f64 (fma.f64 (.f64 (/.f64 (pow.f64 D #s(literal 4 binary64)) (pow.f64 d #s(literal 4 binary64))) (/.f64 (.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) h) w0) (.f64 l l))) #s(literal -1/128 binary64) (.f64 (/.f64 (.f64 (.f64 (.f64 M M) w0) (.f64 D D)) (.f64 (*.f64 d d) l)) #s(literal -1/8 binary64))) h w0))
#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 (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (fma.f64 (fma.f64 (fma.f64 (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (pow.f64 d #s(literal 6 binary64))) (/.f64 (.f64 (.f64 (pow.f64 M #s(literal 6 binary64)) h) w0) (pow.f64 l #s(literal 3 binary64)))) #s(literal -1/1024 binary64) (.f64 (.f64 (/.f64 (pow.f64 D #s(literal 4 binary64)) (pow.f64 d #s(literal 4 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) w0) (.f64 l l))) #s(literal -1/128 binary64))) h (.f64 (/.f64 (.f64 (.f64 (.f64 M M) w0) (.f64 D D)) (.f64 (.f64 d d) l)) #s(literal -1/8 binary64))) h w0))
#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)))) (fma.f64 (fma.f64 (.f64 (/.f64 (pow.f64 D #s(literal 4 binary64)) (pow.f64 d #s(literal 4 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) h) (.f64 l l))) #s(literal -1/128 binary64) (.f64 (/.f64 (.f64 (.f64 (.f64 M M) D) D) (.f64 (*.f64 d d) l)) #s(literal -1/8 binary64))) h #s(literal 1 binary64)))
#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 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (fma.f64 (fma.f64 (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (pow.f64 d #s(literal 6 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 6 binary64)) h) (pow.f64 l #s(literal 3 binary64)))) #s(literal -1/1024 binary64) (.f64 (.f64 (/.f64 (pow.f64 D #s(literal 4 binary64)) (pow.f64 d #s(literal 4 binary64))) (/.f64 (pow.f64 M #s(literal 4 binary64)) (.f64 l l))) #s(literal -1/128 binary64))) h (.f64 (/.f64 (.f64 (.f64 (.f64 M M) D) D) (.f64 (*.f64 d d) l)) #s(literal -1/8 binary64))) h #s(literal 1 binary64)))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l))) #s(hole binary64 (+ (* h (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (sqrt 1/2))) (* (pow d 2) (* l (sqrt 2))))) (* -1/32 (/ (* (pow D 4) (* (pow M 4) (* h (sqrt 1/2)))) (* (pow d 4) (* (pow l 2) (pow (sqrt 2) 3))))))) (* (sqrt 1/2) (sqrt 2)))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l))) (fma.f64 (fma.f64 (/.f64 (/.f64 (.f64 (.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) h) (sqrt.f64 #s(literal 1/2 binary64))) (pow.f64 D #s(literal 4 binary64))) (pow.f64 d #s(literal 4 binary64))) (.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 l l))) #s(literal -1/32 binary64) (.f64 (.f64 (/.f64 (.f64 D D) (.f64 d d)) (/.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (.f64 M M)) (.f64 (sqrt.f64 #s(literal 2 binary64)) l))) #s(literal -1/4 binary64))) h (.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(literal 1/2 binary64)))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l))) #s(hole binary64 (+ (* h (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (sqrt 1/2))) (* (pow d 2) (* l (sqrt 2))))) (* h (+ (* -1/32 (/ (* (pow D 4) (* (pow M 4) (sqrt 1/2))) (* (pow d 4) (* (pow l 2) (pow (sqrt 2) 3))))) (* -1/128 (/ (* (pow D 6) (* (pow M 6) (* h (sqrt 1/2)))) (* (pow d 6) (* (pow l 3) (pow (sqrt 2) 5))))))))) (* (sqrt 1/2) (sqrt 2)))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l))) (fma.f64 (fma.f64 (fma.f64 (/.f64 (/.f64 (.f64 (.f64 (.f64 (pow.f64 M #s(literal 6 binary64)) h) (sqrt.f64 #s(literal 1/2 binary64))) (pow.f64 D #s(literal 6 binary64))) (pow.f64 d #s(literal 6 binary64))) (.f64 (pow.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 5 binary64)) (pow.f64 l #s(literal 3 binary64)))) #s(literal -1/128 binary64) (.f64 (/.f64 (/.f64 (.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (sqrt.f64 #s(literal 1/2 binary64))) (pow.f64 D #s(literal 4 binary64))) (pow.f64 d #s(literal 4 binary64))) (.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 l l))) #s(literal -1/32 binary64))) h (.f64 (.f64 (/.f64 (.f64 D D) (.f64 d d)) (/.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (.f64 M M)) (.f64 (sqrt.f64 #s(literal 2 binary64)) l))) #s(literal -1/4 binary64))) h (.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(literal 1/2 binary64)))))
#s(approx (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)) #s(hole binary64 (* h (+ (* -1/4 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (/ 1 h)))))
#s(approx (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)) (.f64 (fma.f64 (/.f64 (.f64 (.f64 (.f64 M M) D) D) (.f64 (.f64 d d) l)) #s(literal -1/4 binary64) (/.f64 #s(literal 1 binary64) h)) h))
#s(approx (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) #s(hole binary64 (* h (- (* 2 (/ l h)) (* 1/2 (/ (* (pow D 2) (pow M 2)) (pow d 2)))))))
#s(approx (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (.f64 (fma.f64 (/.f64 l h) #s(literal 2 binary64) (.f64 (/.f64 (.f64 (.f64 (.f64 M M) D) D) (.f64 d d)) #s(literal -1/2 binary64))) h))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)))) #s(hole binary64 (* h (+ (* (/ (* D (* M (* w0 (* (sqrt -1/2) (sqrt 1/2))))) d) (sqrt (/ 1 (* h l)))) (* (/ (* d (* w0 (sqrt 1/2))) (* D (* M (sqrt -1/2)))) (sqrt (/ l (pow h 3))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)))) (.f64 (fma.f64 (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64)))) (/.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) d) D) (.f64 (sqrt.f64 #s(literal -1/2 binary64)) M)) (.f64 (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) h) l)) (/.f64 (.f64 (.f64 M D) (.f64 (*.f64 w0 (sqrt.f64 #s(literal -1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))) d))) h))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)))) #s(hole binary64 (* h (+ (* -1/2 (* (/ (* (pow d 3) (* w0 (sqrt 1/2))) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* (/ (* D (* M (* w0 (* (sqrt -1/2) (sqrt 1/2))))) d) (sqrt (/ 1 (* h l)))) (* (/ (* d (* w0 (sqrt 1/2))) (* D (* M (sqrt -1/2)))) (sqrt (/ l (pow h 3)))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)))) (.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 (pow.f64 d #s(literal 3 binary64)) w0) (sqrt.f64 #s(literal 1/2 binary64))) (pow.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/2 binary64)) M) D) #s(literal 3 binary64)))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 h #s(literal 5 binary64)))) (fma.f64 (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64)))) (/.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) d) D) (.f64 (sqrt.f64 #s(literal -1/2 binary64)) M)) (.f64 (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) h) l)) (/.f64 (.f64 (.f64 M D) (.f64 (.f64 w0 (sqrt.f64 #s(literal -1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))) d)))) h))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)))) #s(hole binary64 (* h (+ (* -1/2 (* (/ (* (pow d 3) (* w0 (sqrt 1/2))) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/2 (* (/ (* (pow d 5) (* w0 (sqrt 1/2))) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/2) 5)))) (sqrt (/ (pow l 5) (pow h 7))))) (+ (* (/ (* D (* M (* w0 (* (sqrt -1/2) (sqrt 1/2))))) d) (sqrt (/ 1 (* h l)))) (* (/ (* d (* w0 (sqrt 1/2))) (* D (* M (sqrt -1/2)))) (sqrt (/ l (pow h 3))))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)))) (.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 (pow.f64 d #s(literal 3 binary64)) w0) (sqrt.f64 #s(literal 1/2 binary64))) (pow.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/2 binary64)) M) D) #s(literal 3 binary64)))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 h #s(literal 5 binary64)))) (fma.f64 (.f64 (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 7 binary64)))) (.f64 (/.f64 (pow.f64 d #s(literal 5 binary64)) (pow.f64 D #s(literal 5 binary64))) (/.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) (.f64 (pow.f64 M #s(literal 5 binary64)) (pow.f64 (sqrt.f64 #s(literal -1/2 binary64)) #s(literal 5 binary64)))))) #s(literal 1/2 binary64) (fma.f64 (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64)))) (/.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) d) D) (.f64 (sqrt.f64 #s(literal -1/2 binary64)) M)) (.f64 (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) h) l)) (/.f64 (.f64 (.f64 M D) (.f64 (.f64 w0 (sqrt.f64 #s(literal -1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))) d))))) h))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (* h (+ (* (/ (* D (* M (* w0 (* (sqrt -1/2) (sqrt 1/2))))) d) (sqrt (/ 1 (* h l)))) (* (/ (* d (* w0 (sqrt 1/2))) (* D (* M (sqrt -1/2)))) (sqrt (/ l (pow h 3))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) (.f64 (fma.f64 (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64)))) (/.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) d) D) (.f64 (sqrt.f64 #s(literal -1/2 binary64)) M)) (.f64 (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) h) l)) (/.f64 (.f64 (.f64 M D) (.f64 (*.f64 w0 (sqrt.f64 #s(literal -1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))) d))) h))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (* h (+ (* -1/2 (* (/ (* (pow d 3) (* w0 (sqrt 1/2))) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* (/ (* D (* M (* w0 (* (sqrt -1/2) (sqrt 1/2))))) d) (sqrt (/ 1 (* h l)))) (* (/ (* d (* w0 (sqrt 1/2))) (* D (* M (sqrt -1/2)))) (sqrt (/ l (pow h 3)))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) (.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 (pow.f64 d #s(literal 3 binary64)) w0) (sqrt.f64 #s(literal 1/2 binary64))) (pow.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/2 binary64)) M) D) #s(literal 3 binary64)))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 h #s(literal 5 binary64)))) (fma.f64 (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64)))) (/.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) d) D) (.f64 (sqrt.f64 #s(literal -1/2 binary64)) M)) (.f64 (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) h) l)) (/.f64 (.f64 (.f64 M D) (.f64 (.f64 w0 (sqrt.f64 #s(literal -1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))) d)))) h))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (* h (+ (* -1/2 (* (/ (* (pow d 3) (* w0 (sqrt 1/2))) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/2 (* (/ (* (pow d 5) (* w0 (sqrt 1/2))) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/2) 5)))) (sqrt (/ (pow l 5) (pow h 7))))) (+ (* (/ (* D (* M (* w0 (* (sqrt -1/2) (sqrt 1/2))))) d) (sqrt (/ 1 (* h l)))) (* (/ (* d (* w0 (sqrt 1/2))) (* D (* M (sqrt -1/2)))) (sqrt (/ l (pow h 3))))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) (.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 (pow.f64 d #s(literal 3 binary64)) w0) (sqrt.f64 #s(literal 1/2 binary64))) (pow.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/2 binary64)) M) D) #s(literal 3 binary64)))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 h #s(literal 5 binary64)))) (fma.f64 (.f64 (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 7 binary64)))) (.f64 (/.f64 (pow.f64 d #s(literal 5 binary64)) (pow.f64 D #s(literal 5 binary64))) (/.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) (.f64 (pow.f64 M #s(literal 5 binary64)) (pow.f64 (sqrt.f64 #s(literal -1/2 binary64)) #s(literal 5 binary64)))))) #s(literal 1/2 binary64) (fma.f64 (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64)))) (/.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) d) D) (.f64 (sqrt.f64 #s(literal -1/2 binary64)) M)) (.f64 (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) h) l)) (/.f64 (.f64 (.f64 M D) (.f64 (.f64 w0 (sqrt.f64 #s(literal -1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))) d))))) h))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (* h (+ (* (/ (* D (* M (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (/ 1 (* h l)))) (* (/ (* d (sqrt 1/2)) (* D (* M (sqrt -1/2)))) (sqrt (/ l (pow h 3))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) (.f64 (fma.f64 (/.f64 (/.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) d) D) (.f64 (sqrt.f64 #s(literal -1/2 binary64)) M)) (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64)))) (.f64 (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) h) l)) (/.f64 (.f64 (.f64 M D) (*.f64 (sqrt.f64 #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 1/2 binary64)))) d))) h))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (* h (+ (* -1/2 (* (/ (* (pow d 3) (sqrt 1/2)) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* (/ (* D (* M (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (/ 1 (* h l)))) (* (/ (* d (sqrt 1/2)) (* D (* M (sqrt -1/2)))) (sqrt (/ l (pow h 3)))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) (.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (pow.f64 d #s(literal 3 binary64)) (sqrt.f64 #s(literal 1/2 binary64))) (pow.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/2 binary64)) M) D) #s(literal 3 binary64)))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 h #s(literal 5 binary64)))) (fma.f64 (/.f64 (/.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) d) D) (.f64 (sqrt.f64 #s(literal -1/2 binary64)) M)) (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64)))) (.f64 (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) h) l)) (/.f64 (.f64 (.f64 M D) (*.f64 (sqrt.f64 #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 1/2 binary64)))) d)))) h))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (* h (+ (* -1/2 (* (/ (* (pow d 3) (sqrt 1/2)) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/2 (* (/ (* (pow d 5) (sqrt 1/2)) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/2) 5)))) (sqrt (/ (pow l 5) (pow h 7))))) (+ (* (/ (* D (* M (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (/ 1 (* h l)))) (* (/ (* d (sqrt 1/2)) (* D (* M (sqrt -1/2)))) (sqrt (/ l (pow h 3))))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) (.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (pow.f64 d #s(literal 3 binary64)) (sqrt.f64 #s(literal 1/2 binary64))) (pow.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/2 binary64)) M) D) #s(literal 3 binary64)))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 h #s(literal 5 binary64)))) (fma.f64 (.f64 (.f64 (/.f64 (pow.f64 d #s(literal 5 binary64)) (pow.f64 D #s(literal 5 binary64))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (.f64 (pow.f64 M #s(literal 5 binary64)) (pow.f64 (sqrt.f64 #s(literal -1/2 binary64)) #s(literal 5 binary64))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 7 binary64))))) #s(literal 1/2 binary64) (fma.f64 (/.f64 (/.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) d) D) (.f64 (sqrt.f64 #s(literal -1/2 binary64)) M)) (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64)))) (.f64 (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) h) l)) (/.f64 (.f64 (.f64 M D) (.f64 (sqrt.f64 #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 1/2 binary64)))) d))))) 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))))) (.f64 (fma.f64 (.f64 (.f64 (/.f64 d D) (/.f64 w0 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M))) (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64))))) #s(literal 1/2 binary64) (.f64 (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) h) l)) (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) M) D) d))) h))
#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) 3)))) (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))))) (.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 (pow.f64 (/.f64 d D) #s(literal 3 binary64)) (/.f64 w0 (pow.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) #s(literal 3 binary64))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 h #s(literal 5 binary64)))) (fma.f64 (.f64 (.f64 (/.f64 d D) (/.f64 w0 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M))) (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64))))) #s(literal 1/2 binary64) (.f64 (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) h) l)) (/.f64 (.f64 (.f64 (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) M) D) d)))) h))
#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) 3)))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/4) 5)))) (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))))) (.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 (pow.f64 (/.f64 d D) #s(literal 3 binary64)) (/.f64 w0 (pow.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) #s(literal 3 binary64))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 h #s(literal 5 binary64)))) (fma.f64 (.f64 #s(literal 1/16 binary64) (/.f64 (.f64 (pow.f64 d #s(literal 5 binary64)) w0) (.f64 (.f64 (pow.f64 M #s(literal 5 binary64)) (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 5 binary64))) (pow.f64 D #s(literal 5 binary64))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 7 binary64)))) (fma.f64 (.f64 (.f64 (/.f64 d D) (/.f64 w0 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M))) (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64))))) #s(literal 1/2 binary64) (.f64 (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) h) l)) (/.f64 (.f64 (.f64 (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) M) D) d))))) h))
#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)))) (.f64 (fma.f64 (.f64 #s(literal 1/2 binary64) (/.f64 d (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D))) (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64)))) (.f64 (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) h) l)) (/.f64 (.f64 (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) d))) h))
#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) 3)))) (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)))) (.f64 (fma.f64 (.f64 (/.f64 (pow.f64 (/.f64 d D) #s(literal 3 binary64)) (pow.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) #s(literal 3 binary64))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 h #s(literal 5 binary64))))) #s(literal -1/8 binary64) (fma.f64 (.f64 #s(literal 1/2 binary64) (/.f64 d (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D))) (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64)))) (.f64 (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) h) l)) (/.f64 (.f64 (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) d)))) h))
#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) 3)))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/16 (* (/ (pow d 5) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/4) 5)))) (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 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 (/.f64 d D) #s(literal 3 binary64)) (pow.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) #s(literal 3 binary64)))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 h #s(literal 5 binary64)))) (fma.f64 (.f64 (/.f64 (pow.f64 d #s(literal 5 binary64)) (.f64 (.f64 (pow.f64 M #s(literal 5 binary64)) (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 5 binary64))) (pow.f64 D #s(literal 5 binary64)))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 7 binary64))))) #s(literal 1/16 binary64) (fma.f64 (.f64 #s(literal 1/2 binary64) (/.f64 d (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D))) (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64)))) (.f64 (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) h) l)) (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) d))))) h))
#s(approx (+ (* (* (* D D) -1/8) (/ (* (* (/ M d) M) h) (* d l))) 1) #s(hole binary64 (* h (+ (* -1/8 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (/ 1 h)))))
#s(approx (+ (* (* (* D D) -1/8) (/ (* (* (/ M d) M) h) (* d l))) 1) (.f64 (fma.f64 (/.f64 (.f64 (.f64 (.f64 M M) D) D) (.f64 (.f64 d d) l)) #s(literal -1/8 binary64) (/.f64 #s(literal 1 binary64) h)) h))
#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 (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (.f64 (fma.f64 (/.f64 (.f64 (.f64 (.f64 M M) D) D) (.f64 (.f64 d d) l)) #s(literal -1/4 binary64) (/.f64 #s(literal 1 binary64) h)) h))
#s(approx (+ (* (* h -1/4) (/ (* (* (* M M) D) D) (* (* d l) d))) 1) #s(hole binary64 (* h (+ (* -1/4 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (/ 1 h)))))
#s(approx (+ (* (* h -1/4) (/ (* (* (* M M) D) D) (* (* d l) d))) 1) (.f64 (fma.f64 (/.f64 (.f64 (.f64 (.f64 M M) D) D) (.f64 (.f64 d d) l)) #s(literal -1/4 binary64) (/.f64 #s(literal 1 binary64) h)) h))
#s(approx (+ (* (* (* -1/4 h) (* (/ D d) (* (/ M d) M))) (/ D l)) 1) #s(hole binary64 (* h (+ (* -1/4 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (/ 1 h)))))
#s(approx (+ (* (* (* -1/4 h) (* (/ D d) (* (/ M d) M))) (/ D l)) 1) (.f64 (fma.f64 (/.f64 (.f64 (.f64 (.f64 M M) D) D) (.f64 (.f64 d d) l)) #s(literal -1/4 binary64) (/.f64 #s(literal 1 binary64) h)) h))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l))) #s(hole binary64 (* h (+ (* (/ (* D (* M (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (/ 1 (* h l)))) (* (/ (* d (sqrt 1/2)) (* D (* M (sqrt -1/2)))) (sqrt (/ l (pow h 3))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l))) (.f64 (fma.f64 (/.f64 (/.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) d) D) (.f64 (sqrt.f64 #s(literal -1/2 binary64)) M)) (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64)))) (.f64 (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) h) l)) (/.f64 (.f64 (.f64 M D) (*.f64 (sqrt.f64 #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 1/2 binary64)))) d))) h))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l))) #s(hole binary64 (* h (+ (* -1/2 (* (/ (* (pow d 3) (sqrt 1/2)) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* (/ (* D (* M (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (/ 1 (* h l)))) (* (/ (* d (sqrt 1/2)) (* D (* M (sqrt -1/2)))) (sqrt (/ l (pow h 3)))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l))) (.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (pow.f64 d #s(literal 3 binary64)) (sqrt.f64 #s(literal 1/2 binary64))) (pow.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/2 binary64)) M) D) #s(literal 3 binary64)))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 h #s(literal 5 binary64)))) (fma.f64 (/.f64 (/.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) d) D) (.f64 (sqrt.f64 #s(literal -1/2 binary64)) M)) (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64)))) (.f64 (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) h) l)) (/.f64 (.f64 (.f64 M D) (*.f64 (sqrt.f64 #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 1/2 binary64)))) d)))) h))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l))) #s(hole binary64 (* h (+ (* -1/2 (* (/ (* (pow d 3) (sqrt 1/2)) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/2 (* (/ (* (pow d 5) (sqrt 1/2)) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/2) 5)))) (sqrt (/ (pow l 5) (pow h 7))))) (+ (* (/ (* D (* M (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (/ 1 (* h l)))) (* (/ (* d (sqrt 1/2)) (* D (* M (sqrt -1/2)))) (sqrt (/ l (pow h 3))))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l))) (.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (pow.f64 d #s(literal 3 binary64)) (sqrt.f64 #s(literal 1/2 binary64))) (pow.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/2 binary64)) M) D) #s(literal 3 binary64)))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 h #s(literal 5 binary64)))) (fma.f64 (.f64 (.f64 (/.f64 (pow.f64 d #s(literal 5 binary64)) (pow.f64 D #s(literal 5 binary64))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (.f64 (pow.f64 M #s(literal 5 binary64)) (pow.f64 (sqrt.f64 #s(literal -1/2 binary64)) #s(literal 5 binary64))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 7 binary64))))) #s(literal 1/2 binary64) (fma.f64 (/.f64 (/.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) d) D) (.f64 (sqrt.f64 #s(literal -1/2 binary64)) M)) (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64)))) (.f64 (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) h) l)) (/.f64 (.f64 (.f64 M D) (.f64 (sqrt.f64 #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 1/2 binary64)))) d))))) h))
#s(approx (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)) #s(hole binary64 (* -1 (* h (- (* 1/4 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (/ 1 h))))))
#s(approx (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)) (.f64 (neg.f64 h) (-.f64 (.f64 (/.f64 (.f64 (.f64 (.f64 M M) D) D) (.f64 (*.f64 d d) l)) #s(literal 1/4 binary64)) (/.f64 #s(literal 1 binary64) h))))
#s(approx (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) #s(hole binary64 (* -1 (* h (- (* -2 (/ l h)) (* -1/2 (/ (* (pow D 2) (pow M 2)) (pow d 2))))))))
#s(approx (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (.f64 (neg.f64 h) (fma.f64 #s(literal -2 binary64) (/.f64 l h) (.f64 (/.f64 (.f64 (.f64 (.f64 M M) D) D) (.f64 d d)) #s(literal 1/2 binary64)))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)))) #s(hole binary64 (* -1 (* (/ (* D (* M (* w0 (* (sqrt -1) (pow (sqrt 1/2) 2))))) d) (sqrt (/ h l))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)))) (.f64 (neg.f64 (/.f64 (.f64 (.f64 (.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1/2 binary64)) w0) M) D) d)) (sqrt.f64 (/.f64 h l))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)))) #s(hole binary64 (* -1 (* h (+ (* (/ (* D (* M (* w0 (* (sqrt -1) (pow (sqrt 1/2) 2))))) d) (sqrt (/ 1 (* h l)))) (* (/ (* d (* w0 (sqrt -1))) (* D M)) (sqrt (/ l (pow h 3)))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)))) (.f64 (neg.f64 h) (fma.f64 (.f64 (/.f64 d D) (/.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) w0) M)) (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64)))) (.f64 (/.f64 (.f64 (.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1/2 binary64)) w0) M) D) d) (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) h) l))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)))) #s(hole binary64 (* -1 (* h (+ (* -1/2 (* (/ (* (pow d 3) (* w0 (sqrt -1))) (* (pow D 3) (* (pow M 3) (pow (sqrt 1/2) 2)))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* (/ (* D (* M (* w0 (* (sqrt -1) (pow (sqrt 1/2) 2))))) d) (sqrt (/ 1 (* h l)))) (* (/ (* d (* w0 (sqrt -1))) (* D M)) (sqrt (/ l (pow h 3))))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)))) (.f64 (neg.f64 h) (fma.f64 (.f64 (.f64 (pow.f64 (/.f64 d D) #s(literal 3 binary64)) (/.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) w0) (.f64 (pow.f64 M #s(literal 3 binary64)) #s(literal 1/2 binary64)))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 h #s(literal 5 binary64))))) #s(literal -1/2 binary64) (fma.f64 (.f64 (/.f64 d D) (/.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) w0) M)) (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64)))) (.f64 (/.f64 (.f64 (.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1/2 binary64)) w0) M) D) d) (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) h) l)))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)))) #s(hole binary64 (* -1 (* h (+ (* -1/2 (* (/ (* (pow d 3) (* w0 (sqrt -1))) (* (pow D 3) (* (pow M 3) (pow (sqrt 1/2) 2)))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/2 (* (/ (* (pow d 5) (* w0 (sqrt -1))) (* (pow D 5) (* (pow M 5) (pow (sqrt 1/2) 4)))) (sqrt (/ (pow l 5) (pow h 7))))) (+ (* (/ (* D (* M (* w0 (* (sqrt -1) (pow (sqrt 1/2) 2))))) d) (sqrt (/ 1 (* h l)))) (* (/ (* d (* w0 (sqrt -1))) (* D M)) (sqrt (/ l (pow h 3)))))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)))) (.f64 (neg.f64 h) (fma.f64 (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 (/.f64 d D) #s(literal 3 binary64)) (/.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) w0) (.f64 (pow.f64 M #s(literal 3 binary64)) #s(literal 1/2 binary64))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 h #s(literal 5 binary64)))) (fma.f64 (.f64 (.f64 (/.f64 (pow.f64 d #s(literal 5 binary64)) (pow.f64 D #s(literal 5 binary64))) (/.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) w0) (.f64 (pow.f64 (sqrt.f64 #s(literal 1/2 binary64)) #s(literal 4 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))))) #s(literal 1/2 binary64) (fma.f64 (.f64 (/.f64 d D) (/.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) w0) M)) (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64)))) (.f64 (/.f64 (.f64 (.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1/2 binary64)) w0) M) D) d) (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) h) l))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (* -1 (* (/ (* D (* M (* w0 (* (sqrt -1) (pow (sqrt 1/2) 2))))) d) (sqrt (/ h l))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) (.f64 (neg.f64 (/.f64 (.f64 (.f64 (.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1/2 binary64)) w0) M) D) d)) (sqrt.f64 (/.f64 h l))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (* -1 (* h (+ (* (/ (* D (* M (* w0 (* (sqrt -1) (pow (sqrt 1/2) 2))))) d) (sqrt (/ 1 (* h l)))) (* (/ (* d (* w0 (sqrt -1))) (* D M)) (sqrt (/ l (pow h 3)))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) (.f64 (neg.f64 h) (fma.f64 (.f64 (/.f64 d D) (/.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) w0) M)) (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64)))) (.f64 (/.f64 (.f64 (.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1/2 binary64)) w0) M) D) d) (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) h) l))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (* -1 (* h (+ (* -1/2 (* (/ (* (pow d 3) (* w0 (sqrt -1))) (* (pow D 3) (* (pow M 3) (pow (sqrt 1/2) 2)))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* (/ (* D (* M (* w0 (* (sqrt -1) (pow (sqrt 1/2) 2))))) d) (sqrt (/ 1 (* h l)))) (* (/ (* d (* w0 (sqrt -1))) (* D M)) (sqrt (/ l (pow h 3))))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) (.f64 (neg.f64 h) (fma.f64 (.f64 (.f64 (pow.f64 (/.f64 d D) #s(literal 3 binary64)) (/.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) w0) (.f64 (pow.f64 M #s(literal 3 binary64)) #s(literal 1/2 binary64)))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 h #s(literal 5 binary64))))) #s(literal -1/2 binary64) (fma.f64 (.f64 (/.f64 d D) (/.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) w0) M)) (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64)))) (.f64 (/.f64 (.f64 (.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1/2 binary64)) w0) M) D) d) (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) h) l)))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (* -1 (* h (+ (* -1/2 (* (/ (* (pow d 3) (* w0 (sqrt -1))) (* (pow D 3) (* (pow M 3) (pow (sqrt 1/2) 2)))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/2 (* (/ (* (pow d 5) (* w0 (sqrt -1))) (* (pow D 5) (* (pow M 5) (pow (sqrt 1/2) 4)))) (sqrt (/ (pow l 5) (pow h 7))))) (+ (* (/ (* D (* M (* w0 (* (sqrt -1) (pow (sqrt 1/2) 2))))) d) (sqrt (/ 1 (* h l)))) (* (/ (* d (* w0 (sqrt -1))) (* D M)) (sqrt (/ l (pow h 3)))))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) (.f64 (neg.f64 h) (fma.f64 (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 (/.f64 d D) #s(literal 3 binary64)) (/.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) w0) (.f64 (pow.f64 M #s(literal 3 binary64)) #s(literal 1/2 binary64))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 h #s(literal 5 binary64)))) (fma.f64 (.f64 (.f64 (/.f64 (pow.f64 d #s(literal 5 binary64)) (pow.f64 D #s(literal 5 binary64))) (/.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) w0) (.f64 (pow.f64 (sqrt.f64 #s(literal 1/2 binary64)) #s(literal 4 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))))) #s(literal 1/2 binary64) (fma.f64 (.f64 (/.f64 d D) (/.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) w0) M)) (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64)))) (.f64 (/.f64 (.f64 (.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1/2 binary64)) w0) M) D) d) (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) h) l))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (* -1 (* (/ (* D (* M (* (sqrt -1) (pow (sqrt 1/2) 2)))) d) (sqrt (/ h l))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) (.f64 (neg.f64 (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1/2 binary64)) M) D) d)) (sqrt.f64 (/.f64 h l))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (* -1 (* h (+ (* (/ (* D (* M (* (sqrt -1) (pow (sqrt 1/2) 2)))) d) (sqrt (/ 1 (* h l)))) (* (/ (* d (sqrt -1)) (* D M)) (sqrt (/ l (pow h 3)))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) (.f64 (neg.f64 h) (fma.f64 (.f64 (/.f64 d D) (/.f64 (sqrt.f64 #s(literal -1 binary64)) M)) (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64)))) (.f64 (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1/2 binary64)) M) D) d) (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) h) l))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (* -1 (* h (+ (* -1/2 (* (/ (* (pow d 3) (sqrt -1)) (* (pow D 3) (* (pow M 3) (pow (sqrt 1/2) 2)))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* (/ (* D (* M (* (sqrt -1) (pow (sqrt 1/2) 2)))) d) (sqrt (/ 1 (* h l)))) (* (/ (* d (sqrt -1)) (* D M)) (sqrt (/ l (pow h 3))))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) (.f64 (neg.f64 h) (fma.f64 (.f64 (.f64 (pow.f64 (/.f64 d D) #s(literal 3 binary64)) (/.f64 (sqrt.f64 #s(literal -1 binary64)) (.f64 (pow.f64 M #s(literal 3 binary64)) #s(literal 1/2 binary64)))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 h #s(literal 5 binary64))))) #s(literal -1/2 binary64) (fma.f64 (.f64 (/.f64 d D) (/.f64 (sqrt.f64 #s(literal -1 binary64)) M)) (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64)))) (.f64 (/.f64 (.f64 (.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1/2 binary64)) M) D) d) (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) h) l)))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (* -1 (* h (+ (* -1/2 (* (/ (* (pow d 3) (sqrt -1)) (* (pow D 3) (* (pow M 3) (pow (sqrt 1/2) 2)))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/2 (* (/ (* (pow d 5) (sqrt -1)) (* (pow D 5) (* (pow M 5) (pow (sqrt 1/2) 4)))) (sqrt (/ (pow l 5) (pow h 7))))) (+ (* (/ (* D (* M (* (sqrt -1) (pow (sqrt 1/2) 2)))) d) (sqrt (/ 1 (* h l)))) (* (/ (* d (sqrt -1)) (* D M)) (sqrt (/ l (pow h 3)))))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) (.f64 (neg.f64 h) (fma.f64 (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 (/.f64 d D) #s(literal 3 binary64)) (/.f64 (sqrt.f64 #s(literal -1 binary64)) (.f64 (pow.f64 M #s(literal 3 binary64)) #s(literal 1/2 binary64))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 h #s(literal 5 binary64)))) (fma.f64 (.f64 (.f64 (/.f64 (pow.f64 d #s(literal 5 binary64)) (pow.f64 D #s(literal 5 binary64))) (/.f64 (sqrt.f64 #s(literal -1 binary64)) (.f64 (pow.f64 (sqrt.f64 #s(literal 1/2 binary64)) #s(literal 4 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))))) #s(literal 1/2 binary64) (fma.f64 (.f64 (/.f64 d D) (/.f64 (sqrt.f64 #s(literal -1 binary64)) M)) (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64)))) (.f64 (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1/2 binary64)) M) D) d) (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) h) 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))))) (.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) w0) M) D) d)) (sqrt.f64 (/.f64 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))))) (.f64 (neg.f64 h) (fma.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) w0) M) D) d)) (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) h) l)) (.f64 (.f64 (/.f64 d D) (/.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) w0) 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))))) #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))))) (.f64 (neg.f64 h) (fma.f64 (neg.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) w0) (pow.f64 d #s(literal 3 binary64))) (pow.f64 (.f64 M D) #s(literal 3 binary64)))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 h #s(literal 5 binary64)))) (fma.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) w0) M) D) d)) (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) h) l)) (.f64 (.f64 (/.f64 d D) (/.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) w0) 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))))) #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 (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (.f64 (neg.f64 h) (fma.f64 (neg.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) w0) (pow.f64 d #s(literal 3 binary64))) (pow.f64 (.f64 M D) #s(literal 3 binary64)))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 h #s(literal 5 binary64)))) (fma.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) w0) M) D) d)) (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) h) l)) (fma.f64 (.f64 (.f64 (/.f64 (pow.f64 d #s(literal 5 binary64)) (pow.f64 D #s(literal 5 binary64))) (/.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) w0) (pow.f64 M #s(literal 5 binary64)))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 7 binary64))))) #s(literal 2 binary64) (.f64 (.f64 (/.f64 d D) (/.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) w0) M)) (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64))))))))))
#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)))) (.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) M) D) d)) (sqrt.f64 (/.f64 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)))) (.f64 (neg.f64 h) (fma.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) M) D) d)) (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) h) l)) (.f64 (.f64 (/.f64 d D) (/.f64 (sqrt.f64 #s(literal -1 binary64)) M)) (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64))))))))
#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)))) (.f64 (neg.f64 h) (fma.f64 (neg.f64 (/.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) (pow.f64 d #s(literal 3 binary64))) (pow.f64 (.f64 M D) #s(literal 3 binary64)))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 h #s(literal 5 binary64)))) (fma.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) M) D) d)) (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) h) l)) (.f64 (.f64 (/.f64 d D) (/.f64 (sqrt.f64 #s(literal -1 binary64)) M)) (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64)))))))))
#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 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (.f64 (neg.f64 h) (fma.f64 (neg.f64 (/.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) (pow.f64 d #s(literal 3 binary64))) (pow.f64 (.f64 M D) #s(literal 3 binary64)))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 h #s(literal 5 binary64)))) (fma.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) M) D) d)) (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) h) l)) (fma.f64 (.f64 (.f64 (/.f64 (pow.f64 d #s(literal 5 binary64)) (pow.f64 D #s(literal 5 binary64))) (/.f64 (sqrt.f64 #s(literal -1 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))))) #s(literal 2 binary64) (.f64 (.f64 (/.f64 d D) (/.f64 (sqrt.f64 #s(literal -1 binary64)) M)) (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64))))))))))
#s(approx (+ (* (* (* D D) -1/8) (/ (* (* (/ M d) M) h) (* d l))) 1) #s(hole binary64 (* -1 (* h (- (* 1/8 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (/ 1 h))))))
#s(approx (+ (* (* (* D D) -1/8) (/ (* (* (/ M d) M) h) (* d l))) 1) (.f64 (neg.f64 h) (-.f64 (.f64 #s(literal 1/8 binary64) (/.f64 (.f64 (.f64 (.f64 M M) D) D) (.f64 (*.f64 d d) l))) (/.f64 #s(literal 1 binary64) h))))
#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 (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (.f64 (fma.f64 (/.f64 (.f64 (.f64 (.f64 M M) D) D) (.f64 (.f64 d d) l)) #s(literal -1/4 binary64) (/.f64 #s(literal 1 binary64) h)) h))
#s(approx (+ (* (* h -1/4) (/ (* (* (* M M) D) D) (* (* d l) d))) 1) #s(hole binary64 (* -1 (* h (- (* 1/4 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (/ 1 h))))))
#s(approx (+ (* (* h -1/4) (/ (* (* (* M M) D) D) (* (* d l) d))) 1) (.f64 (neg.f64 h) (-.f64 (.f64 (/.f64 (.f64 (.f64 (.f64 M M) D) D) (.f64 (*.f64 d d) l)) #s(literal 1/4 binary64)) (/.f64 #s(literal 1 binary64) h))))
#s(approx (+ (* (* (* -1/4 h) (* (/ D d) (* (/ M d) M))) (/ D l)) 1) #s(hole binary64 (* -1 (* h (- (* 1/4 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (/ 1 h))))))
#s(approx (+ (* (* (* -1/4 h) (* (/ D d) (* (/ M d) M))) (/ D l)) 1) (.f64 (neg.f64 h) (-.f64 (.f64 (/.f64 (.f64 (.f64 (.f64 M M) D) D) (.f64 (*.f64 d d) l)) #s(literal 1/4 binary64)) (/.f64 #s(literal 1 binary64) h))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l))) #s(hole binary64 (* -1 (* (/ (* D (* M (* (sqrt -1) (pow (sqrt 1/2) 2)))) d) (sqrt (/ h l))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l))) (.f64 (neg.f64 (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1/2 binary64)) M) D) d)) (sqrt.f64 (/.f64 h l))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l))) #s(hole binary64 (* -1 (* h (+ (* (/ (* D (* M (* (sqrt -1) (pow (sqrt 1/2) 2)))) d) (sqrt (/ 1 (* h l)))) (* (/ (* d (sqrt -1)) (* D M)) (sqrt (/ l (pow h 3)))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l))) (.f64 (neg.f64 h) (fma.f64 (.f64 (/.f64 d D) (/.f64 (sqrt.f64 #s(literal -1 binary64)) M)) (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64)))) (.f64 (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1/2 binary64)) M) D) d) (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) h) l))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l))) #s(hole binary64 (* -1 (* h (+ (* -1/2 (* (/ (* (pow d 3) (sqrt -1)) (* (pow D 3) (* (pow M 3) (pow (sqrt 1/2) 2)))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* (/ (* D (* M (* (sqrt -1) (pow (sqrt 1/2) 2)))) d) (sqrt (/ 1 (* h l)))) (* (/ (* d (sqrt -1)) (* D M)) (sqrt (/ l (pow h 3))))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l))) (.f64 (neg.f64 h) (fma.f64 (.f64 (.f64 (pow.f64 (/.f64 d D) #s(literal 3 binary64)) (/.f64 (sqrt.f64 #s(literal -1 binary64)) (.f64 (pow.f64 M #s(literal 3 binary64)) #s(literal 1/2 binary64)))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 h #s(literal 5 binary64))))) #s(literal -1/2 binary64) (fma.f64 (.f64 (/.f64 d D) (/.f64 (sqrt.f64 #s(literal -1 binary64)) M)) (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64)))) (.f64 (/.f64 (.f64 (.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1/2 binary64)) M) D) d) (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) h) l)))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l))) #s(hole binary64 (* -1 (* h (+ (* -1/2 (* (/ (* (pow d 3) (sqrt -1)) (* (pow D 3) (* (pow M 3) (pow (sqrt 1/2) 2)))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/2 (* (/ (* (pow d 5) (sqrt -1)) (* (pow D 5) (* (pow M 5) (pow (sqrt 1/2) 4)))) (sqrt (/ (pow l 5) (pow h 7))))) (+ (* (/ (* D (* M (* (sqrt -1) (pow (sqrt 1/2) 2)))) d) (sqrt (/ 1 (* h l)))) (* (/ (* d (sqrt -1)) (* D M)) (sqrt (/ l (pow h 3)))))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l))) (.f64 (neg.f64 h) (fma.f64 (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 (/.f64 d D) #s(literal 3 binary64)) (/.f64 (sqrt.f64 #s(literal -1 binary64)) (.f64 (pow.f64 M #s(literal 3 binary64)) #s(literal 1/2 binary64))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 h #s(literal 5 binary64)))) (fma.f64 (.f64 (.f64 (/.f64 (pow.f64 d #s(literal 5 binary64)) (pow.f64 D #s(literal 5 binary64))) (/.f64 (sqrt.f64 #s(literal -1 binary64)) (.f64 (pow.f64 (sqrt.f64 #s(literal 1/2 binary64)) #s(literal 4 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))))) #s(literal 1/2 binary64) (fma.f64 (.f64 (/.f64 d D) (/.f64 (sqrt.f64 #s(literal -1 binary64)) M)) (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64)))) (.f64 (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1/2 binary64)) M) D) d) (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) h) l))))))))
#s(approx (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)) #s(hole binary64 (/ (+ l (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l)))
#s(approx (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)) (/.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 (.f64 M M) h) (.f64 D D)) (*.f64 d d)) l) l))
#s(approx (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) #s(hole binary64 (- (* 2 l) (* 1/2 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2))))))
#s(approx (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 (.f64 M M) h) (.f64 D D)) (.f64 d d)) (.f64 #s(literal 2 binary64) l)))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)))) #s(hole binary64 (/ (+ (* (/ (* D (* M (* w0 (* (sqrt -1/2) (sqrt 1/2))))) d) (sqrt (* h l))) (* (/ (* d (* w0 (sqrt 1/2))) (* D (* M (sqrt -1/2)))) (sqrt (/ (pow l 3) h)))) l)))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)))) (/.f64 (fma.f64 (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) h)) (/.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) d) D) (.f64 (sqrt.f64 #s(literal -1/2 binary64)) M)) (.f64 (sqrt.f64 (.f64 l h)) (/.f64 (.f64 (.f64 M D) (.f64 (*.f64 w0 (sqrt.f64 #s(literal -1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))) d))) l))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)))) #s(hole binary64 (/ (+ (* (/ (* D (* M (* w0 (* (sqrt -1/2) (sqrt 1/2))))) d) (sqrt (* h l))) (* (pow l 2) (+ (* -1/2 (* (/ (* (pow d 3) (* w0 (sqrt 1/2))) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ l (pow h 3))))) (* (/ (* d (* w0 (sqrt 1/2))) (* D (* M (sqrt -1/2)))) (sqrt (/ 1 (* h l))))))) l)))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)))) (/.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 (pow.f64 d #s(literal 3 binary64)) w0) (sqrt.f64 #s(literal 1/2 binary64))) (pow.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/2 binary64)) M) D) #s(literal 3 binary64)))) (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64)))) (.f64 (/.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) d) D) (.f64 (sqrt.f64 #s(literal -1/2 binary64)) M)) (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) h) l)))) (.f64 l l) (.f64 (sqrt.f64 (.f64 l h)) (/.f64 (.f64 (.f64 M D) (.f64 (.f64 w0 (sqrt.f64 #s(literal -1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))) d))) l))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)))) #s(hole binary64 (/ (+ (* (/ (* D (* M (* w0 (* (sqrt -1/2) (sqrt 1/2))))) d) (sqrt (* h l))) (* (pow l 2) (+ (* (/ (* d (* w0 (sqrt 1/2))) (* D (* M (sqrt -1/2)))) (sqrt (/ 1 (* h l)))) (* (pow l 2) (+ (* -1/2 (* (/ (* (pow d 3) (* w0 (sqrt 1/2))) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ 1 (* (pow h 3) (pow l 3)))))) (* 1/2 (* (/ (* (pow d 5) (* w0 (sqrt 1/2))) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/2) 5)))) (sqrt (/ 1 (* (pow h 5) l)))))))))) l)))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)))) (/.f64 (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 (pow.f64 d #s(literal 3 binary64)) w0) (sqrt.f64 #s(literal 1/2 binary64))) (pow.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/2 binary64)) M) D) #s(literal 3 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (.f64 l h) #s(literal 3 binary64)))) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (pow.f64 h #s(literal 5 binary64)) l))) (.f64 (/.f64 (pow.f64 d #s(literal 5 binary64)) (pow.f64 D #s(literal 5 binary64))) (/.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) (.f64 (pow.f64 M #s(literal 5 binary64)) (pow.f64 (sqrt.f64 #s(literal -1/2 binary64)) #s(literal 5 binary64)))))) #s(literal 1/2 binary64))) (.f64 l l) (.f64 (/.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) d) D) (.f64 (sqrt.f64 #s(literal -1/2 binary64)) M)) (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) h) l)))) (.f64 l l) (.f64 (sqrt.f64 (.f64 l h)) (/.f64 (.f64 (.f64 M D) (.f64 (.f64 w0 (sqrt.f64 #s(literal -1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))) d))) l))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (/ (+ (* (/ (* D (* M (* w0 (* (sqrt -1/2) (sqrt 1/2))))) d) (sqrt (* h l))) (* (/ (* d (* w0 (sqrt 1/2))) (* D (* M (sqrt -1/2)))) (sqrt (/ (pow l 3) h)))) l)))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) (/.f64 (fma.f64 (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) h)) (/.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) d) D) (.f64 (sqrt.f64 #s(literal -1/2 binary64)) M)) (.f64 (sqrt.f64 (.f64 l h)) (/.f64 (.f64 (.f64 M D) (.f64 (*.f64 w0 (sqrt.f64 #s(literal -1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))) d))) l))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (/ (+ (* (/ (* D (* M (* w0 (* (sqrt -1/2) (sqrt 1/2))))) d) (sqrt (* h l))) (* (pow l 2) (+ (* -1/2 (* (/ (* (pow d 3) (* w0 (sqrt 1/2))) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ l (pow h 3))))) (* (/ (* d (* w0 (sqrt 1/2))) (* D (* M (sqrt -1/2)))) (sqrt (/ 1 (* h l))))))) l)))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) (/.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 (pow.f64 d #s(literal 3 binary64)) w0) (sqrt.f64 #s(literal 1/2 binary64))) (pow.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/2 binary64)) M) D) #s(literal 3 binary64)))) (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64)))) (.f64 (/.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) d) D) (.f64 (sqrt.f64 #s(literal -1/2 binary64)) M)) (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) h) l)))) (.f64 l l) (.f64 (sqrt.f64 (.f64 l h)) (/.f64 (.f64 (.f64 M D) (.f64 (.f64 w0 (sqrt.f64 #s(literal -1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))) d))) l))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (/ (+ (* (/ (* D (* M (* w0 (* (sqrt -1/2) (sqrt 1/2))))) d) (sqrt (* h l))) (* (pow l 2) (+ (* (/ (* d (* w0 (sqrt 1/2))) (* D (* M (sqrt -1/2)))) (sqrt (/ 1 (* h l)))) (* (pow l 2) (+ (* -1/2 (* (/ (* (pow d 3) (* w0 (sqrt 1/2))) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ 1 (* (pow h 3) (pow l 3)))))) (* 1/2 (* (/ (* (pow d 5) (* w0 (sqrt 1/2))) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/2) 5)))) (sqrt (/ 1 (* (pow h 5) l)))))))))) l)))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) (/.f64 (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 (pow.f64 d #s(literal 3 binary64)) w0) (sqrt.f64 #s(literal 1/2 binary64))) (pow.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/2 binary64)) M) D) #s(literal 3 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (.f64 l h) #s(literal 3 binary64)))) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (pow.f64 h #s(literal 5 binary64)) l))) (.f64 (/.f64 (pow.f64 d #s(literal 5 binary64)) (pow.f64 D #s(literal 5 binary64))) (/.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) (.f64 (pow.f64 M #s(literal 5 binary64)) (pow.f64 (sqrt.f64 #s(literal -1/2 binary64)) #s(literal 5 binary64)))))) #s(literal 1/2 binary64))) (.f64 l l) (.f64 (/.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) d) D) (.f64 (sqrt.f64 #s(literal -1/2 binary64)) M)) (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) h) l)))) (.f64 l l) (.f64 (sqrt.f64 (.f64 l h)) (/.f64 (.f64 (.f64 M D) (.f64 (.f64 w0 (sqrt.f64 #s(literal -1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))) d))) l))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (/ (+ (* (/ (* D (* M (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (* h l))) (* (/ (* d (sqrt 1/2)) (* D (* M (sqrt -1/2)))) (sqrt (/ (pow l 3) h)))) l)))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) (/.f64 (fma.f64 (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) h)) (/.f64 (/.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) d) D) (.f64 (sqrt.f64 #s(literal -1/2 binary64)) M)) (.f64 (sqrt.f64 (.f64 l h)) (/.f64 (.f64 (.f64 M D) (*.f64 (sqrt.f64 #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 1/2 binary64)))) d))) l))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (/ (+ (* (/ (* D (* M (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (* h l))) (* (pow l 2) (+ (* -1/2 (* (/ (* (pow d 3) (sqrt 1/2)) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ l (pow h 3))))) (* (/ (* d (sqrt 1/2)) (* D (* M (sqrt -1/2)))) (sqrt (/ 1 (* h l))))))) l)))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) (/.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (pow.f64 d #s(literal 3 binary64)) (sqrt.f64 #s(literal 1/2 binary64))) (pow.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/2 binary64)) M) D) #s(literal 3 binary64)))) (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64)))) (.f64 (/.f64 (/.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) d) D) (.f64 (sqrt.f64 #s(literal -1/2 binary64)) M)) (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) h) l)))) (.f64 l l) (.f64 (sqrt.f64 (.f64 l h)) (/.f64 (.f64 (.f64 M D) (*.f64 (sqrt.f64 #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 1/2 binary64)))) d))) l))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (/ (+ (* (/ (* D (* M (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (* h l))) (* (pow l 2) (+ (* (/ (* d (sqrt 1/2)) (* D (* M (sqrt -1/2)))) (sqrt (/ 1 (* h l)))) (* (pow l 2) (+ (* -1/2 (* (/ (* (pow d 3) (sqrt 1/2)) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ 1 (* (pow h 3) (pow l 3)))))) (* 1/2 (* (/ (* (pow d 5) (sqrt 1/2)) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/2) 5)))) (sqrt (/ 1 (* (pow h 5) l)))))))))) l)))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) (/.f64 (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (pow.f64 d #s(literal 3 binary64)) (sqrt.f64 #s(literal 1/2 binary64))) (pow.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/2 binary64)) M) D) #s(literal 3 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (.f64 l h) #s(literal 3 binary64)))) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (pow.f64 h #s(literal 5 binary64)) l))) (.f64 (/.f64 (pow.f64 d #s(literal 5 binary64)) (pow.f64 D #s(literal 5 binary64))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (.f64 (pow.f64 M #s(literal 5 binary64)) (pow.f64 (sqrt.f64 #s(literal -1/2 binary64)) #s(literal 5 binary64)))))) #s(literal 1/2 binary64))) (.f64 l l) (.f64 (/.f64 (/.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) d) D) (.f64 (sqrt.f64 #s(literal -1/2 binary64)) M)) (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) h) l)))) (.f64 l l) (.f64 (sqrt.f64 (.f64 l h)) (/.f64 (.f64 (.f64 M D) (.f64 (sqrt.f64 #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 1/2 binary64)))) d))) l))
#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))))) (/.f64 (fma.f64 (.f64 (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) h)) (.f64 (/.f64 d D) (/.f64 w0 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M)))) #s(literal 1/2 binary64) (.f64 (sqrt.f64 (.f64 l h)) (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) M) D) d))) 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) 3)))) (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))))) (/.f64 (fma.f64 (fma.f64 (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 d D) (/.f64 w0 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M)))) (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) h) l)) (.f64 (.f64 #s(literal -1/8 binary64) (.f64 (pow.f64 (/.f64 d D) #s(literal 3 binary64)) (/.f64 w0 (pow.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) #s(literal 3 binary64))))) (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64)))))) (.f64 l l) (.f64 (sqrt.f64 (.f64 l h)) (/.f64 (.f64 (.f64 (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) M) D) d))) 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) 3)))) (sqrt (/ 1 (* (pow h 3) (pow l 3)))))) (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ 1 (* (pow h 5) l)))))))))) l)))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (/.f64 (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 (pow.f64 (/.f64 d D) #s(literal 3 binary64)) (/.f64 w0 (pow.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) #s(literal 3 binary64))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (.f64 l h) #s(literal 3 binary64)))) (.f64 (.f64 #s(literal 1/16 binary64) (/.f64 (.f64 (pow.f64 d #s(literal 5 binary64)) w0) (.f64 (.f64 (pow.f64 M #s(literal 5 binary64)) (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 5 binary64))) (pow.f64 D #s(literal 5 binary64))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (pow.f64 h #s(literal 5 binary64)) l))))) (.f64 l l) (.f64 (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 d D) (/.f64 w0 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M)))) (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) h) l)))) (.f64 l l) (.f64 (sqrt.f64 (.f64 l h)) (/.f64 (.f64 (.f64 (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) M) D) d))) 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)))) (/.f64 (fma.f64 (.f64 #s(literal 1/2 binary64) (/.f64 d (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) h)) (.f64 (sqrt.f64 (.f64 l h)) (/.f64 (.f64 (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) d))) 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) 3)))) (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)))) (/.f64 (fma.f64 (fma.f64 (.f64 (/.f64 (pow.f64 (/.f64 d D) #s(literal 3 binary64)) (pow.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) #s(literal 3 binary64))) (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64))))) #s(literal -1/8 binary64) (.f64 (.f64 #s(literal 1/2 binary64) (/.f64 d (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D))) (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) h) l)))) (.f64 l l) (.f64 (sqrt.f64 (.f64 l h)) (/.f64 (.f64 (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) d))) 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) 3)))) (sqrt (/ 1 (* (pow h 3) (pow l 3)))))) (* 1/16 (* (/ (pow d 5) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ 1 (* (pow h 5) l)))))))))) l)))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (/.f64 (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 (/.f64 d D) #s(literal 3 binary64)) (pow.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) #s(literal 3 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (.f64 l h) #s(literal 3 binary64)))) (.f64 (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 d #s(literal 5 binary64)) (.f64 (.f64 (pow.f64 M #s(literal 5 binary64)) (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 5 binary64))) (pow.f64 D #s(literal 5 binary64))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (pow.f64 h #s(literal 5 binary64)) l))))) (.f64 l l) (.f64 (.f64 #s(literal 1/2 binary64) (/.f64 d (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D))) (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) h) l)))) (.f64 l l) (.f64 (sqrt.f64 (.f64 l h)) (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) d))) l))
#s(approx (+ (* (* (* D D) -1/8) (/ (* (* (/ M d) M) h) (* d l))) 1) #s(hole binary64 (/ (+ l (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l)))
#s(approx (+ (* (* (* D D) -1/8) (/ (* (* (/ M d) M) h) (* d l))) 1) (/.f64 (fma.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (.f64 (.f64 M M) h) (.f64 D D)) (*.f64 d d)) 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 (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (/.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 (.f64 M M) h) (.f64 D D)) (*.f64 d d)) l) l))
#s(approx (+ (* (* h -1/4) (/ (* (* (* M M) D) D) (* (* d l) d))) 1) #s(hole binary64 (/ (+ l (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l)))
#s(approx (+ (* (* h -1/4) (/ (* (* (* M M) D) D) (* (* d l) d))) 1) (/.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 (.f64 M M) h) (.f64 D D)) (*.f64 d d)) l) l))
#s(approx (+ (* (* (* -1/4 h) (* (/ D d) (* (/ M d) M))) (/ D l)) 1) #s(hole binary64 (/ (+ l (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l)))
#s(approx (+ (* (* (* -1/4 h) (* (/ D d) (* (/ M d) M))) (/ D l)) 1) (/.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 (.f64 M M) h) (.f64 D D)) (*.f64 d d)) l) l))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l))) #s(hole binary64 (/ (+ (* (/ (* D (* M (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (* h l))) (* (/ (* d (sqrt 1/2)) (* D (* M (sqrt -1/2)))) (sqrt (/ (pow l 3) h)))) l)))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l))) (/.f64 (fma.f64 (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) h)) (/.f64 (/.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) d) D) (.f64 (sqrt.f64 #s(literal -1/2 binary64)) M)) (.f64 (sqrt.f64 (.f64 l h)) (/.f64 (.f64 (.f64 M D) (*.f64 (sqrt.f64 #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 1/2 binary64)))) d))) l))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l))) #s(hole binary64 (/ (+ (* (/ (* D (* M (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (* h l))) (* (pow l 2) (+ (* -1/2 (* (/ (* (pow d 3) (sqrt 1/2)) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ l (pow h 3))))) (* (/ (* d (sqrt 1/2)) (* D (* M (sqrt -1/2)))) (sqrt (/ 1 (* h l))))))) l)))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l))) (/.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (pow.f64 d #s(literal 3 binary64)) (sqrt.f64 #s(literal 1/2 binary64))) (pow.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/2 binary64)) M) D) #s(literal 3 binary64)))) (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64)))) (.f64 (/.f64 (/.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) d) D) (.f64 (sqrt.f64 #s(literal -1/2 binary64)) M)) (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) h) l)))) (.f64 l l) (.f64 (sqrt.f64 (.f64 l h)) (/.f64 (.f64 (.f64 M D) (*.f64 (sqrt.f64 #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 1/2 binary64)))) d))) l))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l))) #s(hole binary64 (/ (+ (* (/ (* D (* M (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (* h l))) (* (pow l 2) (+ (* (/ (* d (sqrt 1/2)) (* D (* M (sqrt -1/2)))) (sqrt (/ 1 (* h l)))) (* (pow l 2) (+ (* -1/2 (* (/ (* (pow d 3) (sqrt 1/2)) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ 1 (* (pow h 3) (pow l 3)))))) (* 1/2 (* (/ (* (pow d 5) (sqrt 1/2)) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/2) 5)))) (sqrt (/ 1 (* (pow h 5) l)))))))))) l)))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l))) (/.f64 (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (pow.f64 d #s(literal 3 binary64)) (sqrt.f64 #s(literal 1/2 binary64))) (pow.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/2 binary64)) M) D) #s(literal 3 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (.f64 l h) #s(literal 3 binary64)))) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (pow.f64 h #s(literal 5 binary64)) l))) (.f64 (/.f64 (pow.f64 d #s(literal 5 binary64)) (pow.f64 D #s(literal 5 binary64))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (.f64 (pow.f64 M #s(literal 5 binary64)) (pow.f64 (sqrt.f64 #s(literal -1/2 binary64)) #s(literal 5 binary64)))))) #s(literal 1/2 binary64))) (.f64 l l) (.f64 (/.f64 (/.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) d) D) (.f64 (sqrt.f64 #s(literal -1/2 binary64)) M)) (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) h) l)))) (.f64 l l) (.f64 (sqrt.f64 (.f64 l h)) (/.f64 (.f64 (.f64 M D) (.f64 (sqrt.f64 #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 1/2 binary64)))) d))) l))
#s(approx (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) #s(hole binary64 (* l (+ 2 (* -1/2 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l)))))))
#s(approx (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 (.f64 M M) h) (.f64 D D)) (.f64 (*.f64 d d) l)) #s(literal 2 binary64)) l))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)))) #s(hole binary64 (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (* h (* w0 (sqrt 1/2))))) (* (pow d 2) (* l (sqrt 2))))) (+ (* -1/32 (/ (* (pow D 4) (* (pow M 4) (* (pow h 2) (* w0 (sqrt 1/2))))) (* (pow d 4) (* (pow l 2) (pow (sqrt 2) 3))))) (* w0 (* (sqrt 1/2) (sqrt 2)))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)))) (fma.f64 (.f64 (/.f64 (.f64 D D) (.f64 d d)) (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) h) (.f64 M M)) (.f64 (sqrt.f64 #s(literal 2 binary64)) l))) #s(literal -1/4 binary64) (fma.f64 (/.f64 (/.f64 (.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (.f64 (.f64 (.f64 h h) w0) (sqrt.f64 #s(literal 1/2 binary64)))) (pow.f64 D #s(literal 4 binary64))) (pow.f64 d #s(literal 4 binary64))) (.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 l l))) #s(literal -1/32 binary64) (.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)))) #s(hole binary64 (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (* h (* w0 (sqrt 1/2))))) (* (pow d 2) (* l (sqrt 2))))) (+ (* -1/32 (/ (* (pow D 4) (* (pow M 4) (* (pow h 2) (* w0 (sqrt 1/2))))) (* (pow d 4) (* (pow l 2) (pow (sqrt 2) 3))))) (+ (* -1/128 (/ (* (pow D 6) (* (pow M 6) (* (pow h 3) (* w0 (sqrt 1/2))))) (* (pow d 6) (* (pow l 3) (pow (sqrt 2) 5))))) (* w0 (* (sqrt 1/2) (sqrt 2))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)))) (fma.f64 (.f64 (/.f64 (.f64 D D) (.f64 d d)) (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) h) (.f64 M M)) (.f64 (sqrt.f64 #s(literal 2 binary64)) l))) #s(literal -1/4 binary64) (fma.f64 (/.f64 (/.f64 (.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (.f64 (.f64 (.f64 h h) w0) (sqrt.f64 #s(literal 1/2 binary64)))) (pow.f64 D #s(literal 4 binary64))) (pow.f64 d #s(literal 4 binary64))) (.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 l l))) #s(literal -1/32 binary64) (fma.f64 (/.f64 (/.f64 (.f64 (.f64 (pow.f64 M #s(literal 6 binary64)) (.f64 (.f64 (pow.f64 h #s(literal 3 binary64)) w0) (sqrt.f64 #s(literal 1/2 binary64)))) (pow.f64 D #s(literal 6 binary64))) (pow.f64 d #s(literal 6 binary64))) (.f64 (pow.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 5 binary64)) (pow.f64 l #s(literal 3 binary64)))) #s(literal -1/128 binary64) (.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) (sqrt.f64 #s(literal 2 binary64)))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (* h (* w0 (sqrt 1/2))))) (* (pow d 2) (* l (sqrt 2))))) (+ (* -1/32 (/ (* (pow D 4) (* (pow M 4) (* (pow h 2) (* w0 (sqrt 1/2))))) (* (pow d 4) (* (pow l 2) (pow (sqrt 2) 3))))) (* w0 (* (sqrt 1/2) (sqrt 2)))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) (fma.f64 (.f64 (/.f64 (.f64 D D) (.f64 d d)) (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) h) (.f64 M M)) (.f64 (sqrt.f64 #s(literal 2 binary64)) l))) #s(literal -1/4 binary64) (fma.f64 (/.f64 (/.f64 (.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (.f64 (.f64 (.f64 h h) w0) (sqrt.f64 #s(literal 1/2 binary64)))) (pow.f64 D #s(literal 4 binary64))) (pow.f64 d #s(literal 4 binary64))) (.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 l l))) #s(literal -1/32 binary64) (.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (* h (* w0 (sqrt 1/2))))) (* (pow d 2) (* l (sqrt 2))))) (+ (* -1/32 (/ (* (pow D 4) (* (pow M 4) (* (pow h 2) (* w0 (sqrt 1/2))))) (* (pow d 4) (* (pow l 2) (pow (sqrt 2) 3))))) (+ (* -1/128 (/ (* (pow D 6) (* (pow M 6) (* (pow h 3) (* w0 (sqrt 1/2))))) (* (pow d 6) (* (pow l 3) (pow (sqrt 2) 5))))) (* w0 (* (sqrt 1/2) (sqrt 2))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) (fma.f64 (.f64 (/.f64 (.f64 D D) (.f64 d d)) (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) h) (.f64 M M)) (.f64 (sqrt.f64 #s(literal 2 binary64)) l))) #s(literal -1/4 binary64) (fma.f64 (/.f64 (/.f64 (.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (.f64 (.f64 (.f64 h h) w0) (sqrt.f64 #s(literal 1/2 binary64)))) (pow.f64 D #s(literal 4 binary64))) (pow.f64 d #s(literal 4 binary64))) (.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 l l))) #s(literal -1/32 binary64) (fma.f64 (/.f64 (/.f64 (.f64 (.f64 (pow.f64 M #s(literal 6 binary64)) (.f64 (.f64 (pow.f64 h #s(literal 3 binary64)) w0) (sqrt.f64 #s(literal 1/2 binary64)))) (pow.f64 D #s(literal 6 binary64))) (pow.f64 d #s(literal 6 binary64))) (.f64 (pow.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 5 binary64)) (pow.f64 l #s(literal 3 binary64)))) #s(literal -1/128 binary64) (.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) (sqrt.f64 #s(literal 2 binary64)))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (* h (sqrt 1/2)))) (* (pow d 2) (* l (sqrt 2))))) (+ (* -1/32 (/ (* (pow D 4) (* (pow M 4) (* (pow h 2) (sqrt 1/2)))) (* (pow d 4) (* (pow l 2) (pow (sqrt 2) 3))))) (* (sqrt 1/2) (sqrt 2))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) (fma.f64 (.f64 (/.f64 (.f64 D D) (.f64 d d)) (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) h) (.f64 M M)) (.f64 (sqrt.f64 #s(literal 2 binary64)) l))) #s(literal -1/4 binary64) (fma.f64 (/.f64 (/.f64 (.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (.f64 (.f64 h h) (sqrt.f64 #s(literal 1/2 binary64)))) (pow.f64 D #s(literal 4 binary64))) (pow.f64 d #s(literal 4 binary64))) (.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 l l))) #s(literal -1/32 binary64) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(literal 1/2 binary64))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (* h (sqrt 1/2)))) (* (pow d 2) (* l (sqrt 2))))) (+ (* -1/32 (/ (* (pow D 4) (* (pow M 4) (* (pow h 2) (sqrt 1/2)))) (* (pow d 4) (* (pow l 2) (pow (sqrt 2) 3))))) (+ (* -1/128 (/ (* (pow D 6) (* (pow M 6) (* (pow h 3) (sqrt 1/2)))) (* (pow d 6) (* (pow l 3) (pow (sqrt 2) 5))))) (* (sqrt 1/2) (sqrt 2)))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) (fma.f64 (.f64 (/.f64 (.f64 D D) (.f64 d d)) (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) h) (.f64 M M)) (.f64 (sqrt.f64 #s(literal 2 binary64)) l))) #s(literal -1/4 binary64) (fma.f64 (/.f64 (/.f64 (.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (.f64 (.f64 h h) (sqrt.f64 #s(literal 1/2 binary64)))) (pow.f64 D #s(literal 4 binary64))) (pow.f64 d #s(literal 4 binary64))) (.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 l l))) #s(literal -1/32 binary64) (fma.f64 (/.f64 (/.f64 (.f64 (.f64 (pow.f64 M #s(literal 6 binary64)) (.f64 (pow.f64 h #s(literal 3 binary64)) (sqrt.f64 #s(literal 1/2 binary64)))) (pow.f64 D #s(literal 6 binary64))) (pow.f64 d #s(literal 6 binary64))) (.f64 (pow.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 5 binary64)) (pow.f64 l #s(literal 3 binary64)))) #s(literal -1/128 binary64) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(literal 1/2 binary64)))))))
#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))))) (+.f64 (fma.f64 (/.f64 (.f64 (.f64 (.f64 (.f64 M M) h) w0) (.f64 D D)) (.f64 (.f64 d d) l)) #s(literal -1/8 binary64) w0) (.f64 (.f64 (/.f64 (pow.f64 D #s(literal 4 binary64)) (pow.f64 d #s(literal 4 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (.f64 (.f64 h h) w0)) (*.f64 l l))) #s(literal -1/128 binary64))))
#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 (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (+.f64 (fma.f64 (/.f64 (.f64 (.f64 (.f64 (.f64 M M) h) w0) (.f64 D D)) (.f64 (.f64 d d) l)) #s(literal -1/8 binary64) w0) (fma.f64 (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (pow.f64 d #s(literal 6 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 6 binary64)) (.f64 (pow.f64 h #s(literal 3 binary64)) w0)) (pow.f64 l #s(literal 3 binary64)))) #s(literal -1/1024 binary64) (.f64 (.f64 (/.f64 (pow.f64 D #s(literal 4 binary64)) (pow.f64 d #s(literal 4 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (.f64 (.f64 h h) w0)) (.f64 l l))) #s(literal -1/128 binary64)))))
#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)))) (+.f64 (fma.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (.f64 (.f64 M M) h) (.f64 D D)) (.f64 (.f64 d d) l)) #s(literal 1 binary64)) (.f64 (.f64 (/.f64 (pow.f64 D #s(literal 4 binary64)) (pow.f64 d #s(literal 4 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (.f64 h h)) (*.f64 l l))) #s(literal -1/128 binary64))))
#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 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (+.f64 (fma.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (.f64 (.f64 M M) h) (.f64 D D)) (.f64 (.f64 d d) l)) #s(literal 1 binary64)) (fma.f64 (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (pow.f64 d #s(literal 6 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 6 binary64)) (pow.f64 h #s(literal 3 binary64))) (pow.f64 l #s(literal 3 binary64)))) #s(literal -1/1024 binary64) (.f64 (.f64 (/.f64 (pow.f64 D #s(literal 4 binary64)) (pow.f64 d #s(literal 4 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (.f64 h h)) (*.f64 l l))) #s(literal -1/128 binary64)))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l))) #s(hole binary64 (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (* h (sqrt 1/2)))) (* (pow d 2) (* l (sqrt 2))))) (+ (* -1/32 (/ (* (pow D 4) (* (pow M 4) (* (pow h 2) (sqrt 1/2)))) (* (pow d 4) (* (pow l 2) (pow (sqrt 2) 3))))) (* (sqrt 1/2) (sqrt 2))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l))) (fma.f64 (.f64 (/.f64 (.f64 D D) (.f64 d d)) (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) h) (.f64 M M)) (.f64 (sqrt.f64 #s(literal 2 binary64)) l))) #s(literal -1/4 binary64) (fma.f64 (/.f64 (/.f64 (.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (.f64 (.f64 h h) (sqrt.f64 #s(literal 1/2 binary64)))) (pow.f64 D #s(literal 4 binary64))) (pow.f64 d #s(literal 4 binary64))) (.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 l l))) #s(literal -1/32 binary64) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(literal 1/2 binary64))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l))) #s(hole binary64 (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (* h (sqrt 1/2)))) (* (pow d 2) (* l (sqrt 2))))) (+ (* -1/32 (/ (* (pow D 4) (* (pow M 4) (* (pow h 2) (sqrt 1/2)))) (* (pow d 4) (* (pow l 2) (pow (sqrt 2) 3))))) (+ (* -1/128 (/ (* (pow D 6) (* (pow M 6) (* (pow h 3) (sqrt 1/2)))) (* (pow d 6) (* (pow l 3) (pow (sqrt 2) 5))))) (* (sqrt 1/2) (sqrt 2)))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l))) (fma.f64 (.f64 (/.f64 (.f64 D D) (.f64 d d)) (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) h) (.f64 M M)) (.f64 (sqrt.f64 #s(literal 2 binary64)) l))) #s(literal -1/4 binary64) (fma.f64 (/.f64 (/.f64 (.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (.f64 (.f64 h h) (sqrt.f64 #s(literal 1/2 binary64)))) (pow.f64 D #s(literal 4 binary64))) (pow.f64 d #s(literal 4 binary64))) (.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 l l))) #s(literal -1/32 binary64) (fma.f64 (/.f64 (/.f64 (.f64 (.f64 (pow.f64 M #s(literal 6 binary64)) (.f64 (pow.f64 h #s(literal 3 binary64)) (sqrt.f64 #s(literal 1/2 binary64)))) (pow.f64 D #s(literal 6 binary64))) (pow.f64 d #s(literal 6 binary64))) (.f64 (pow.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 5 binary64)) (pow.f64 l #s(literal 3 binary64)))) #s(literal -1/128 binary64) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(literal 1/2 binary64)))))))
#s(approx (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) #s(hole binary64 (* -1 (* l (- (* 1/2 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))) 2)))))
#s(approx (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (.f64 (neg.f64 l) (-.f64 (.f64 (/.f64 (.f64 (.f64 (.f64 M M) h) (.f64 D D)) (.f64 (.f64 d d) l)) #s(literal 1/2 binary64)) #s(literal 2 binary64))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)))) #s(hole binary64 (+ (* -1 (/ (+ (* 1/32 (/ (* (pow D 4) (* (pow M 4) (* (pow h 2) (* w0 (sqrt 1/2))))) (* (pow d 4) (* l (pow (sqrt 2) 3))))) (* 1/4 (/ (* (pow D 2) (* (pow M 2) (* h (* w0 (sqrt 1/2))))) (* (pow d 2) (sqrt 2))))) l)) (* w0 (* (sqrt 1/2) (sqrt 2))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)))) (fma.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(literal 1/2 binary64))) w0 (/.f64 (fma.f64 (.f64 (/.f64 (.f64 D D) (.f64 d d)) (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) h) (.f64 M M)) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 1/4 binary64) (.f64 (.f64 (/.f64 (pow.f64 D #s(literal 4 binary64)) (pow.f64 d #s(literal 4 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (.f64 (.f64 (.f64 h h) w0) (sqrt.f64 #s(literal 1/2 binary64)))) (.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)) l))) #s(literal 1/32 binary64))) (neg.f64 l))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1 (/ (+ (* -1/32 (/ (* (pow D 4) (* (pow M 4) (* (pow h 2) (* w0 (sqrt 1/2))))) (* (pow d 4) (pow (sqrt 2) 3)))) (* -1/128 (/ (* (pow D 6) (* (pow M 6) (* (pow h 3) (* w0 (sqrt 1/2))))) (* (pow d 6) (* l (pow (sqrt 2) 5)))))) l)) (* 1/4 (/ (* (pow D 2) (* (pow M 2) (* h (* w0 (sqrt 1/2))))) (* (pow d 2) (sqrt 2))))) l)) (* w0 (* (sqrt 1/2) (sqrt 2))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)))) (fma.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(literal 1/2 binary64))) w0 (/.f64 (fma.f64 (.f64 (/.f64 (.f64 D D) (.f64 d d)) (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) h) (.f64 M M)) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 1/4 binary64) (/.f64 (fma.f64 (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (pow.f64 d #s(literal 6 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 6 binary64)) (.f64 (.f64 (pow.f64 h #s(literal 3 binary64)) w0) (sqrt.f64 #s(literal 1/2 binary64)))) (.f64 (pow.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 5 binary64)) l))) #s(literal -1/128 binary64) (.f64 (.f64 (/.f64 (pow.f64 D #s(literal 4 binary64)) (pow.f64 d #s(literal 4 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (.f64 (.f64 (.f64 h h) w0) (sqrt.f64 #s(literal 1/2 binary64)))) (.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)))) #s(literal -1/32 binary64))) (neg.f64 l))) (neg.f64 l))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (+ (* -1 (/ (+ (* 1/32 (/ (* (pow D 4) (* (pow M 4) (* (pow h 2) (* w0 (sqrt 1/2))))) (* (pow d 4) (* l (pow (sqrt 2) 3))))) (* 1/4 (/ (* (pow D 2) (* (pow M 2) (* h (* w0 (sqrt 1/2))))) (* (pow d 2) (sqrt 2))))) l)) (* w0 (* (sqrt 1/2) (sqrt 2))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) (fma.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(literal 1/2 binary64))) w0 (/.f64 (fma.f64 (.f64 (/.f64 (.f64 D D) (.f64 d d)) (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) h) (.f64 M M)) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 1/4 binary64) (.f64 (.f64 (/.f64 (pow.f64 D #s(literal 4 binary64)) (pow.f64 d #s(literal 4 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (.f64 (.f64 (.f64 h h) w0) (sqrt.f64 #s(literal 1/2 binary64)))) (.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)) l))) #s(literal 1/32 binary64))) (neg.f64 l))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1 (/ (+ (* -1/32 (/ (* (pow D 4) (* (pow M 4) (* (pow h 2) (* w0 (sqrt 1/2))))) (* (pow d 4) (pow (sqrt 2) 3)))) (* -1/128 (/ (* (pow D 6) (* (pow M 6) (* (pow h 3) (* w0 (sqrt 1/2))))) (* (pow d 6) (* l (pow (sqrt 2) 5)))))) l)) (* 1/4 (/ (* (pow D 2) (* (pow M 2) (* h (* w0 (sqrt 1/2))))) (* (pow d 2) (sqrt 2))))) l)) (* w0 (* (sqrt 1/2) (sqrt 2))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) (fma.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(literal 1/2 binary64))) w0 (/.f64 (fma.f64 (.f64 (/.f64 (.f64 D D) (.f64 d d)) (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) h) (.f64 M M)) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 1/4 binary64) (/.f64 (fma.f64 (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (pow.f64 d #s(literal 6 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 6 binary64)) (.f64 (.f64 (pow.f64 h #s(literal 3 binary64)) w0) (sqrt.f64 #s(literal 1/2 binary64)))) (.f64 (pow.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 5 binary64)) l))) #s(literal -1/128 binary64) (.f64 (.f64 (/.f64 (pow.f64 D #s(literal 4 binary64)) (pow.f64 d #s(literal 4 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (.f64 (.f64 (.f64 h h) w0) (sqrt.f64 #s(literal 1/2 binary64)))) (.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)))) #s(literal -1/32 binary64))) (neg.f64 l))) (neg.f64 l))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (+ (* -1 (/ (+ (* 1/32 (/ (* (pow D 4) (* (pow M 4) (* (pow h 2) (sqrt 1/2)))) (* (pow d 4) (* l (pow (sqrt 2) 3))))) (* 1/4 (/ (* (pow D 2) (* (pow M 2) (* h (sqrt 1/2)))) (* (pow d 2) (sqrt 2))))) l)) (* (sqrt 1/2) (sqrt 2)))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) (fma.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(literal 1/2 binary64)) (/.f64 (fma.f64 (.f64 (/.f64 (.f64 D D) (.f64 d d)) (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) h) (.f64 M M)) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 1/4 binary64) (.f64 (.f64 (/.f64 (pow.f64 D #s(literal 4 binary64)) (pow.f64 d #s(literal 4 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (.f64 (.f64 h h) (sqrt.f64 #s(literal 1/2 binary64)))) (.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)) l))) #s(literal 1/32 binary64))) (neg.f64 l))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (+ (* -1 (/ (+ (* -1 (/ (+ (* -1/32 (/ (* (pow D 4) (* (pow M 4) (* (pow h 2) (sqrt 1/2)))) (* (pow d 4) (pow (sqrt 2) 3)))) (* -1/128 (/ (* (pow D 6) (* (pow M 6) (* (pow h 3) (sqrt 1/2)))) (* (pow d 6) (* l (pow (sqrt 2) 5)))))) l)) (* 1/4 (/ (* (pow D 2) (* (pow M 2) (* h (sqrt 1/2)))) (* (pow d 2) (sqrt 2))))) l)) (* (sqrt 1/2) (sqrt 2)))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) (fma.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(literal 1/2 binary64)) (/.f64 (fma.f64 (.f64 (/.f64 (.f64 D D) (.f64 d d)) (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) h) (.f64 M M)) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 1/4 binary64) (/.f64 (fma.f64 (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (pow.f64 d #s(literal 6 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 6 binary64)) (.f64 (pow.f64 h #s(literal 3 binary64)) (sqrt.f64 #s(literal 1/2 binary64)))) (.f64 (pow.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 5 binary64)) l))) #s(literal -1/128 binary64) (.f64 (.f64 (/.f64 (pow.f64 D #s(literal 4 binary64)) (pow.f64 d #s(literal 4 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (.f64 (.f64 h h) (sqrt.f64 #s(literal 1/2 binary64)))) (.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)))) #s(literal -1/32 binary64))) (neg.f64 l))) (neg.f64 l))))
#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))))) (fma.f64 (/.f64 (fma.f64 (/.f64 (.f64 (.f64 (.f64 (.f64 M M) h) w0) (.f64 D D)) (.f64 d d)) #s(literal 1/8 binary64) (.f64 (/.f64 (.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (pow.f64 D #s(literal 4 binary64))) (.f64 (.f64 h h) w0)) (.f64 (pow.f64 d #s(literal 4 binary64)) l)) #s(literal 1/128 binary64))) l) #s(literal -1 binary64) w0))
#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 (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (fma.f64 (/.f64 (fma.f64 (/.f64 (.f64 (.f64 (.f64 (.f64 M M) h) w0) (.f64 D D)) (.f64 d d)) #s(literal 1/8 binary64) (/.f64 (fma.f64 (/.f64 (.f64 (.f64 (pow.f64 M #s(literal 6 binary64)) (.f64 (pow.f64 h #s(literal 3 binary64)) w0)) (pow.f64 D #s(literal 6 binary64))) (.f64 (pow.f64 d #s(literal 6 binary64)) l)) #s(literal -1/1024 binary64) (.f64 (/.f64 (.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (pow.f64 D #s(literal 4 binary64))) (.f64 (*.f64 h h) w0)) (pow.f64 d #s(literal 4 binary64))) #s(literal -1/128 binary64))) (neg.f64 l))) l) #s(literal -1 binary64) w0))
#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)))) (fma.f64 (/.f64 (fma.f64 (/.f64 (.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (pow.f64 D #s(literal 4 binary64))) (.f64 h h)) (.f64 (pow.f64 d #s(literal 4 binary64)) l)) #s(literal 1/128 binary64) (.f64 #s(literal 1/8 binary64) (/.f64 (.f64 (.f64 (.f64 M M) h) (.f64 D D)) (.f64 d d)))) l) #s(literal -1 binary64) #s(literal 1 binary64)))
#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 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (/.f64 (fma.f64 #s(literal 1/8 binary64) (/.f64 (.f64 (.f64 (.f64 M M) h) (.f64 D D)) (.f64 d d)) (/.f64 (fma.f64 (/.f64 (.f64 (.f64 (pow.f64 M #s(literal 6 binary64)) (pow.f64 h #s(literal 3 binary64))) (pow.f64 D #s(literal 6 binary64))) (.f64 (pow.f64 d #s(literal 6 binary64)) l)) #s(literal -1/1024 binary64) (.f64 (/.f64 (.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (pow.f64 D #s(literal 4 binary64))) (.f64 h h)) (pow.f64 d #s(literal 4 binary64))) #s(literal -1/128 binary64))) (neg.f64 l))) l) #s(literal -1 binary64) #s(literal 1 binary64)))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l))) #s(hole binary64 (+ (* -1 (/ (+ (* 1/32 (/ (* (pow D 4) (* (pow M 4) (* (pow h 2) (sqrt 1/2)))) (* (pow d 4) (* l (pow (sqrt 2) 3))))) (* 1/4 (/ (* (pow D 2) (* (pow M 2) (* h (sqrt 1/2)))) (* (pow d 2) (sqrt 2))))) l)) (* (sqrt 1/2) (sqrt 2)))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l))) (fma.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(literal 1/2 binary64)) (/.f64 (fma.f64 (.f64 (/.f64 (.f64 D D) (.f64 d d)) (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) h) (.f64 M M)) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 1/4 binary64) (.f64 (.f64 (/.f64 (pow.f64 D #s(literal 4 binary64)) (pow.f64 d #s(literal 4 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (.f64 (.f64 h h) (sqrt.f64 #s(literal 1/2 binary64)))) (.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)) l))) #s(literal 1/32 binary64))) (neg.f64 l))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l))) #s(hole binary64 (+ (* -1 (/ (+ (* -1 (/ (+ (* -1/32 (/ (* (pow D 4) (* (pow M 4) (* (pow h 2) (sqrt 1/2)))) (* (pow d 4) (pow (sqrt 2) 3)))) (* -1/128 (/ (* (pow D 6) (* (pow M 6) (* (pow h 3) (sqrt 1/2)))) (* (pow d 6) (* l (pow (sqrt 2) 5)))))) l)) (* 1/4 (/ (* (pow D 2) (* (pow M 2) (* h (sqrt 1/2)))) (* (pow d 2) (sqrt 2))))) l)) (* (sqrt 1/2) (sqrt 2)))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l))) (fma.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(literal 1/2 binary64)) (/.f64 (fma.f64 (.f64 (/.f64 (.f64 D D) (.f64 d d)) (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) h) (.f64 M M)) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 1/4 binary64) (/.f64 (fma.f64 (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (pow.f64 d #s(literal 6 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 6 binary64)) (.f64 (pow.f64 h #s(literal 3 binary64)) (sqrt.f64 #s(literal 1/2 binary64)))) (.f64 (pow.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 5 binary64)) l))) #s(literal -1/128 binary64) (.f64 (.f64 (/.f64 (pow.f64 D #s(literal 4 binary64)) (pow.f64 d #s(literal 4 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (.f64 (.f64 h h) (sqrt.f64 #s(literal 1/2 binary64)))) (.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)))) #s(literal -1/32 binary64))) (neg.f64 l))) (neg.f64 l))))
#s(approx (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)) #s(hole binary64 (/ (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) l)) (pow d 2)) (pow d 2))))
#s(approx (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)) (/.f64 (fma.f64 (.f64 (.f64 D D) (/.f64 (.f64 (.f64 M M) h) l)) #s(literal -1/4 binary64) (.f64 d d)) (.f64 d d)))
#s(approx (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) #s(hole binary64 (/ (- (* 2 (* (pow d 2) l)) (* 1/2 (* (pow D 2) (* (pow M 2) h)))) (pow d 2))))
#s(approx (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (/.f64 (fma.f64 (.f64 #s(literal 2 binary64) (.f64 d d)) l (.f64 #s(literal -1/2 binary64) (.f64 (.f64 (.f64 M M) h) (.f64 D D)))) (.f64 d d)))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)))) #s(hole binary64 (/ (+ (* (* D (* M (* w0 (* (sqrt -1/2) (sqrt 1/2))))) (sqrt (/ h l))) (* (/ (* (pow d 2) (* w0 (sqrt 1/2))) (* D (* M (sqrt -1/2)))) (sqrt (/ l h)))) d)))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)))) (/.f64 (fma.f64 (/.f64 (.f64 (.f64 (.f64 d d) w0) (sqrt.f64 #s(literal 1/2 binary64))) (.f64 (.f64 (sqrt.f64 #s(literal -1/2 binary64)) M) D)) (sqrt.f64 (/.f64 l h)) (.f64 (sqrt.f64 (/.f64 h l)) (.f64 (.f64 M D) (.f64 (.f64 w0 (sqrt.f64 #s(literal -1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))))) d))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)))) #s(hole binary64 (/ (+ (* (* D (* M (* w0 (* (sqrt -1/2) (sqrt 1/2))))) (sqrt (/ h l))) (* (pow d 2) (+ (* -1/2 (* (/ (* (pow d 2) (* w0 (sqrt 1/2))) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (* (/ (* w0 (sqrt 1/2)) (* D (* M (sqrt -1/2)))) (sqrt (/ l h)))))) d)))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)))) (/.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 (.f64 d d) w0) (sqrt.f64 #s(literal 1/2 binary64))) (pow.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/2 binary64)) M) D) #s(literal 3 binary64)))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))) (.f64 (/.f64 (/.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) D) (.f64 (sqrt.f64 #s(literal -1/2 binary64)) M)) (sqrt.f64 (/.f64 l h)))) (.f64 d d) (.f64 (sqrt.f64 (/.f64 h l)) (.f64 (.f64 M D) (.f64 (*.f64 w0 (sqrt.f64 #s(literal -1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))))) d))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)))) #s(hole binary64 (/ (+ (* (* D (* M (* w0 (* (sqrt -1/2) (sqrt 1/2))))) (sqrt (/ h l))) (* (pow d 2) (+ (* (/ (* w0 (sqrt 1/2)) (* D (* M (sqrt -1/2)))) (sqrt (/ l h))) (* (pow d 2) (+ (* -1/2 (* (/ (* w0 (sqrt 1/2)) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (* 1/2 (* (/ (* (pow d 2) (* w0 (sqrt 1/2))) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/2) 5)))) (sqrt (/ (pow l 5) (pow h 5)))))))))) d)))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l)))) (/.f64 (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 d d) (pow.f64 D #s(literal 5 binary64))) (/.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) (.f64 (pow.f64 M #s(literal 5 binary64)) (pow.f64 (sqrt.f64 #s(literal -1/2 binary64)) #s(literal 5 binary64)))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 5 binary64)))) (.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) (pow.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/2 binary64)) M) D) #s(literal 3 binary64)))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))))) (.f64 d d) (.f64 (/.f64 (/.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) D) (.f64 (sqrt.f64 #s(literal -1/2 binary64)) M)) (sqrt.f64 (/.f64 l h)))) (.f64 d d) (.f64 (sqrt.f64 (/.f64 h l)) (.f64 (.f64 M D) (.f64 (.f64 w0 (sqrt.f64 #s(literal -1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))))) d))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (/ (+ (* (* D (* M (* w0 (* (sqrt -1/2) (sqrt 1/2))))) (sqrt (/ h l))) (* (/ (* (pow d 2) (* w0 (sqrt 1/2))) (* D (* M (sqrt -1/2)))) (sqrt (/ l h)))) d)))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) (/.f64 (fma.f64 (/.f64 (.f64 (.f64 (.f64 d d) w0) (sqrt.f64 #s(literal 1/2 binary64))) (.f64 (.f64 (sqrt.f64 #s(literal -1/2 binary64)) M) D)) (sqrt.f64 (/.f64 l h)) (.f64 (sqrt.f64 (/.f64 h l)) (.f64 (.f64 M D) (.f64 (.f64 w0 (sqrt.f64 #s(literal -1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))))) d))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (/ (+ (* (* D (* M (* w0 (* (sqrt -1/2) (sqrt 1/2))))) (sqrt (/ h l))) (* (pow d 2) (+ (* -1/2 (* (/ (* (pow d 2) (* w0 (sqrt 1/2))) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (* (/ (* w0 (sqrt 1/2)) (* D (* M (sqrt -1/2)))) (sqrt (/ l h)))))) d)))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) (/.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 (.f64 d d) w0) (sqrt.f64 #s(literal 1/2 binary64))) (pow.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/2 binary64)) M) D) #s(literal 3 binary64)))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))) (.f64 (/.f64 (/.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) D) (.f64 (sqrt.f64 #s(literal -1/2 binary64)) M)) (sqrt.f64 (/.f64 l h)))) (.f64 d d) (.f64 (sqrt.f64 (/.f64 h l)) (.f64 (.f64 M D) (.f64 (*.f64 w0 (sqrt.f64 #s(literal -1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))))) d))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) #s(hole binary64 (/ (+ (* (* D (* M (* w0 (* (sqrt -1/2) (sqrt 1/2))))) (sqrt (/ h l))) (* (pow d 2) (+ (* (/ (* w0 (sqrt 1/2)) (* D (* M (sqrt -1/2)))) (sqrt (/ l h))) (* (pow d 2) (+ (* -1/2 (* (/ (* w0 (sqrt 1/2)) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (* 1/2 (* (/ (* (pow d 2) (* w0 (sqrt 1/2))) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/2) 5)))) (sqrt (/ (pow l 5) (pow h 5)))))))))) d)))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)))) (/.f64 (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 d d) (pow.f64 D #s(literal 5 binary64))) (/.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) (.f64 (pow.f64 M #s(literal 5 binary64)) (pow.f64 (sqrt.f64 #s(literal -1/2 binary64)) #s(literal 5 binary64)))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 5 binary64)))) (.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) (pow.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/2 binary64)) M) D) #s(literal 3 binary64)))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))))) (.f64 d d) (.f64 (/.f64 (/.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) D) (.f64 (sqrt.f64 #s(literal -1/2 binary64)) M)) (sqrt.f64 (/.f64 l h)))) (.f64 d d) (.f64 (sqrt.f64 (/.f64 h l)) (.f64 (.f64 M D) (.f64 (.f64 w0 (sqrt.f64 #s(literal -1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))))) d))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (/ (+ (* (* D (* M (* (sqrt -1/2) (sqrt 1/2)))) (sqrt (/ h l))) (* (/ (* (pow d 2) (sqrt 1/2)) (* D (* M (sqrt -1/2)))) (sqrt (/ l h)))) d)))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) (/.f64 (fma.f64 (/.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (.f64 d d)) (.f64 (.f64 (sqrt.f64 #s(literal -1/2 binary64)) M) D)) (sqrt.f64 (/.f64 l h)) (.f64 (.f64 (.f64 M D) (.f64 (sqrt.f64 #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 1/2 binary64)))) (sqrt.f64 (/.f64 h l)))) d))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (/ (+ (* (* D (* M (* (sqrt -1/2) (sqrt 1/2)))) (sqrt (/ h l))) (* (pow d 2) (+ (* -1/2 (* (/ (* (pow d 2) (sqrt 1/2)) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (* (/ (sqrt 1/2) (* D (* M (sqrt -1/2)))) (sqrt (/ l h)))))) d)))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) (/.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (.f64 d d)) (pow.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/2 binary64)) M) D) #s(literal 3 binary64)))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))) (.f64 (/.f64 (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) D) (.f64 (sqrt.f64 #s(literal -1/2 binary64)) M)) (sqrt.f64 (/.f64 l h)))) (.f64 d d) (.f64 (.f64 (.f64 M D) (.f64 (sqrt.f64 #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 1/2 binary64)))) (sqrt.f64 (/.f64 h l)))) d))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(hole binary64 (/ (+ (* (* D (* M (* (sqrt -1/2) (sqrt 1/2)))) (sqrt (/ h l))) (* (pow d 2) (+ (* (/ (sqrt 1/2) (* D (* M (sqrt -1/2)))) (sqrt (/ l h))) (* (pow d 2) (+ (* -1/2 (* (/ (sqrt 1/2) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (* 1/2 (* (/ (* (pow d 2) (sqrt 1/2)) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/2) 5)))) (sqrt (/ (pow l 5) (pow h 5)))))))))) d)))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) (/.f64 (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 d d) (pow.f64 D #s(literal 5 binary64))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (.f64 (pow.f64 M #s(literal 5 binary64)) (pow.f64 (sqrt.f64 #s(literal -1/2 binary64)) #s(literal 5 binary64)))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 5 binary64)))) (.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (pow.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/2 binary64)) M) D) #s(literal 3 binary64)))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))))) (.f64 d d) (.f64 (/.f64 (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) D) (.f64 (sqrt.f64 #s(literal -1/2 binary64)) M)) (sqrt.f64 (/.f64 l h)))) (.f64 d d) (.f64 (.f64 (.f64 M D) (.f64 (sqrt.f64 #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 1/2 binary64)))) (sqrt.f64 (/.f64 h l)))) d))
#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))))) (/.f64 (fma.f64 (.f64 (.f64 (/.f64 (.f64 d d) D) (/.f64 w0 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M))) (sqrt.f64 (/.f64 l h))) #s(literal 1/2 binary64) (.f64 (.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) M) D) (sqrt.f64 (/.f64 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) 3)))) (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))))) (/.f64 (fma.f64 (fma.f64 (.f64 (.f64 (.f64 d d) (/.f64 w0 (pow.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) #s(literal 3 binary64)))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64)))) #s(literal -1/8 binary64) (.f64 (.f64 #s(literal 1/2 binary64) (/.f64 w0 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D))) (sqrt.f64 (/.f64 l h)))) (.f64 d d) (.f64 (.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) M) D) (sqrt.f64 (/.f64 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/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) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (* 1/16 (* (/ (* (pow d 2) w0) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5)))))))))) d)))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (/.f64 (fma.f64 (fma.f64 (fma.f64 (.f64 (/.f64 (.f64 (.f64 d d) w0) (.f64 (.f64 (pow.f64 M #s(literal 5 binary64)) (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 5 binary64))) (pow.f64 D #s(literal 5 binary64)))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 5 binary64))))) #s(literal 1/16 binary64) (.f64 (.f64 #s(literal -1/8 binary64) (/.f64 w0 (pow.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) #s(literal 3 binary64)))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))))) (.f64 d d) (.f64 (.f64 #s(literal 1/2 binary64) (/.f64 w0 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D))) (sqrt.f64 (/.f64 l h)))) (.f64 d d) (.f64 (.f64 (.f64 (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) M) D) (sqrt.f64 (/.f64 h l)))) 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)))) (/.f64 (fma.f64 (.f64 (/.f64 (/.f64 (.f64 d d) D) (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M)) (sqrt.f64 (/.f64 l h))) #s(literal 1/2 binary64) (.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) (sqrt.f64 (/.f64 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) 3)))) (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)))) (/.f64 (fma.f64 (fma.f64 (.f64 (/.f64 (.f64 d d) (pow.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) #s(literal 3 binary64))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64)))) #s(literal -1/8 binary64) (.f64 (.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D))) (sqrt.f64 (/.f64 l h)))) (.f64 d d) (.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) (sqrt.f64 (/.f64 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/2 (* (/ 1 (* D (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (pow d 2) (+ (* -1/8 (* (/ 1 (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (* 1/16 (* (/ (pow d 2) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5)))))))))) d)))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (/.f64 (fma.f64 (fma.f64 (fma.f64 (.f64 (/.f64 (.f64 d d) (.f64 (.f64 (pow.f64 M #s(literal 5 binary64)) (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 5 binary64))) (pow.f64 D #s(literal 5 binary64)))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 5 binary64))))) #s(literal 1/16 binary64) (.f64 (.f64 #s(literal -1/8 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) #s(literal 3 binary64)))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))))) (.f64 d d) (.f64 (.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D))) (sqrt.f64 (/.f64 l h)))) (.f64 d d) (.f64 (.f64 (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) (sqrt.f64 (/.f64 h l)))) d))
#s(approx (+ (* (* (* D D) -1/8) (/ (* (* (/ M d) M) h) (* d l))) 1) #s(hole binary64 (/ (+ (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) l)) (pow d 2)) (pow d 2))))
#s(approx (+ (* (* (* D D) -1/8) (/ (* (* (/ M d) M) h) (* d l))) 1) (/.f64 (fma.f64 (.f64 (.f64 D D) (/.f64 (.f64 (.f64 M M) h) l)) #s(literal -1/8 binary64) (.f64 d d)) (.f64 d 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 (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (/.f64 (fma.f64 (.f64 (.f64 D D) (/.f64 (.f64 (.f64 M M) h) l)) #s(literal -1/4 binary64) (.f64 d d)) (.f64 d d)))
#s(approx (+ (* (* h -1/4) (/ (* (* (* M M) D) D) (* (* d l) d))) 1) #s(hole binary64 (/ (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) l)) (pow d 2)) (pow d 2))))
#s(approx (+ (* (* h -1/4) (/ (* (* (* M M) D) D) (* (* d l) d))) 1) (/.f64 (fma.f64 (.f64 (.f64 D D) (/.f64 (.f64 (.f64 M M) h) l)) #s(literal -1/4 binary64) (.f64 d d)) (.f64 d d)))
#s(approx (+ (* (* (* -1/4 h) (* (/ D d) (* (/ M d) M))) (/ D l)) 1) #s(hole binary64 (/ (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) l)) (pow d 2)) (pow d 2))))
#s(approx (+ (* (* (* -1/4 h) (* (/ D d) (* (/ M d) M))) (/ D l)) 1) (/.f64 (fma.f64 (.f64 (.f64 D D) (/.f64 (.f64 (.f64 M M) h) l)) #s(literal -1/4 binary64) (.f64 d d)) (.f64 d d)))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l))) #s(hole binary64 (/ (+ (* (* D (* M (* (sqrt -1/2) (sqrt 1/2)))) (sqrt (/ h l))) (* (/ (* (pow d 2) (sqrt 1/2)) (* D (* M (sqrt -1/2)))) (sqrt (/ l h)))) d)))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l))) (/.f64 (fma.f64 (/.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (.f64 d d)) (.f64 (.f64 (sqrt.f64 #s(literal -1/2 binary64)) M) D)) (sqrt.f64 (/.f64 l h)) (.f64 (.f64 (.f64 M D) (.f64 (sqrt.f64 #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 1/2 binary64)))) (sqrt.f64 (/.f64 h l)))) d))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l))) #s(hole binary64 (/ (+ (* (* D (* M (* (sqrt -1/2) (sqrt 1/2)))) (sqrt (/ h l))) (* (pow d 2) (+ (* -1/2 (* (/ (* (pow d 2) (sqrt 1/2)) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (* (/ (sqrt 1/2) (* D (* M (sqrt -1/2)))) (sqrt (/ l h)))))) d)))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l))) (/.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (.f64 d d)) (pow.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/2 binary64)) M) D) #s(literal 3 binary64)))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))) (.f64 (/.f64 (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) D) (.f64 (sqrt.f64 #s(literal -1/2 binary64)) M)) (sqrt.f64 (/.f64 l h)))) (.f64 d d) (.f64 (.f64 (.f64 M D) (.f64 (sqrt.f64 #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 1/2 binary64)))) (sqrt.f64 (/.f64 h l)))) d))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l))) #s(hole binary64 (/ (+ (* (* D (* M (* (sqrt -1/2) (sqrt 1/2)))) (sqrt (/ h l))) (* (pow d 2) (+ (* (/ (sqrt 1/2) (* D (* M (sqrt -1/2)))) (sqrt (/ l h))) (* (pow d 2) (+ (* -1/2 (* (/ (sqrt 1/2) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (* 1/2 (* (/ (* (pow d 2) (sqrt 1/2)) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/2) 5)))) (sqrt (/ (pow l 5) (pow h 5)))))))))) d)))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* (* (/ (/ D d) 2) M) (* (* (/ (/ D d) 2) M) h)))) (* 2 l))) (/.f64 (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 d d) (pow.f64 D #s(literal 5 binary64))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (.f64 (pow.f64 M #s(literal 5 binary64)) (pow.f64 (sqrt.f64 #s(literal -1/2 binary64)) #s(literal 5 binary64)))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 5 binary64)))) (.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (pow.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/2 binary64)) M) D) #s(literal 3 binary64)))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))))) (.f64 d d) (.f64 (/.f64 (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) D) (.f64 (sqrt.f64 #s(literal -1/2 binary64)) M)) (sqrt.f64 (/.f64 l h)))) (.f64 d d) (.f64 (.f64 (.f64 M D) (.f64 (sqrt.f64 #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 1/2 binary64)))) (sqrt.f64 (/.f64 h l)))) d))

rewrite97.0ms (1.1%)

Memory

0.9MiB live, 140.5MiB allocated; 6ms collecting garbage

Iterations

Useful iterations: 1 (0.0ms)

Iter	Nodes	Cost
0	73	616
0	117	562
1	386	510
0	2641	510

Stop Event

1×	iter limit
1×	iter limit
1×	node limit
1×	iter limit

Counts

31 → 478

Calls

Call 1

Inputs
(.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) (.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) h))
(/.f64 (-.f64 (.f64 #s(literal 2 binary64) l) (.f64 #s(literal 2 binary64) (.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) (.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) h)))) (*.f64 #s(literal 2 binary64) l))
(-.f64 (.f64 #s(literal 2 binary64) l) (.f64 #s(literal 2 binary64) (.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) (.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) h))))
(.f64 w0 (sqrt.f64 (/.f64 (-.f64 (.f64 #s(literal 2 binary64) l) (.f64 #s(literal 2 binary64) (.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) (.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) h)))) (.f64 #s(literal 2 binary64) l))))
(.f64 w0 #s(approx (sqrt (/ (- ( 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(literal 1/2 binary64)))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(literal 1/2 binary64))))
(*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(literal 1/2 binary64)))
(sqrt.f64 #s(literal 2 binary64))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) (/.f64 (.f64 (.f64 (/.f64 M d) M) h) (*.f64 d l)) #s(literal 1 binary64))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) (/.f64 (.f64 (.f64 (/.f64 M d) M) h) (*.f64 d l)) #s(literal 1 binary64)))
(fma.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) (/.f64 (.f64 (.f64 (/.f64 M d) M) h) (*.f64 d l)) #s(literal 1 binary64))
(.f64 (.f64 D D) #s(literal -1/8 binary64))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 h #s(literal -1/4 binary64)) (/.f64 (.f64 (.f64 (.f64 M M) D) D) (.f64 (.f64 d l) d)) #s(literal 1 binary64)))))
(sqrt.f64 #s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 h #s(literal -1/4 binary64)) (/.f64 (.f64 (.f64 (.f64 M M) D) D) (.f64 (.f64 d l) d)) #s(literal 1 binary64))))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 h #s(literal -1/4 binary64)) (/.f64 (.f64 (.f64 (.f64 M M) D) D) (.f64 (.f64 d l) d)) #s(literal 1 binary64)))
(fma.f64 (.f64 h #s(literal -1/4 binary64)) (/.f64 (.f64 (.f64 (.f64 M M) D) D) (.f64 (.f64 d l) d)) #s(literal 1 binary64))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 (.f64 #s(literal -1/4 binary64) h) (.f64 (/.f64 D d) (.f64 (/.f64 M d) M))) (/.f64 D l) #s(literal 1 binary64)))))
(sqrt.f64 #s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 (.f64 #s(literal -1/4 binary64) h) (.f64 (/.f64 D d) (.f64 (/.f64 M d) M))) (/.f64 D l) #s(literal 1 binary64))))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 (.f64 #s(literal -1/4 binary64) h) (.f64 (/.f64 D d) (.f64 (/.f64 M d) M))) (/.f64 D l) #s(literal 1 binary64)))
(fma.f64 (.f64 (.f64 #s(literal -1/4 binary64) h) (.f64 (/.f64 D d) (.f64 (/.f64 M d) M))) (/.f64 D l) #s(literal 1 binary64))
(sqrt.f64 (/.f64 (-.f64 (.f64 #s(literal 2 binary64) l) (.f64 #s(literal 2 binary64) (.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) (.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) h)))) (*.f64 #s(literal 2 binary64) l)))
(.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) h)
(*.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M)
(sqrt.f64 #s(literal 1/2 binary64))
(/.f64 (.f64 (.f64 (/.f64 M d) M) h) (*.f64 d l))
(.f64 (.f64 (/.f64 M d) M) h)
(/.f64 (.f64 (.f64 (.f64 M M) D) D) (.f64 (*.f64 d l) d))
(.f64 (.f64 M M) D)
(.f64 (.f64 (*.f64 M M) D) D)
(.f64 (/.f64 D d) (.f64 (/.f64 M d) M))
(.f64 (.f64 #s(literal -1/4 binary64) h) (.f64 (/.f64 D d) (.f64 (/.f64 M d) M)))

Outputs
(.f64 (.f64 (.f64 h (.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64)))) (/.f64 M #s(literal 2 binary64))) (/.f64 D d))
(.f64 (.f64 (.f64 h (.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64)))) (/.f64 M d)) (/.f64 D #s(literal 2 binary64)))
(.f64 (.f64 (.f64 h (.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64)))) (/.f64 D #s(literal 2 binary64))) (/.f64 M d))
(.f64 (.f64 (.f64 h (.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64)))) (/.f64 (/.f64 D d) #s(literal 2 binary64))) M)
(.f64 (.f64 h (pow.f64 (/.f64 D #s(literal 2 binary64)) #s(literal 2 binary64))) (pow.f64 (/.f64 M d) #s(literal 2 binary64)))
(.f64 (.f64 (.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64))) (/.f64 (/.f64 D d) #s(literal 2 binary64))) (.f64 h M))
(.f64 (.f64 (.f64 h (.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64)))) M) (/.f64 (/.f64 D d) #s(literal 2 binary64)))
(.f64 (/.f64 M #s(literal 2 binary64)) (.f64 (/.f64 D d) (.f64 h (.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64))))))
(.f64 (pow.f64 (/.f64 D #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 (pow.f64 (/.f64 M d) #s(literal 2 binary64)) h))
(.f64 (/.f64 M d) (.f64 (/.f64 D #s(literal 2 binary64)) (.f64 h (.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64))))))
(.f64 (pow.f64 (.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64))) #s(literal 2 binary64)) h)
(.f64 (/.f64 D #s(literal 2 binary64)) (.f64 (/.f64 M d) (.f64 h (.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64))))))
(.f64 (.f64 h (.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64)))) (.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64))))
(.f64 h (pow.f64 (.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64))) #s(literal 2 binary64)))
(.f64 (.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64))) (.f64 h (.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64)))))
(.f64 M (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) (.f64 h (.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64))))))
(.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) (.f64 (.f64 h (.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64)))) M))
(/.f64 (.f64 (.f64 (/.f64 M d) D) (.f64 h (.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64))))) #s(literal 2 binary64))
(/.f64 (.f64 (.f64 (/.f64 D #s(literal 2 binary64)) M) (.f64 h (.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64))))) d)
(/.f64 (.f64 (.f64 (neg.f64 M) D) (.f64 h (.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64))))) (*.f64 #s(literal -2 binary64) d))
(/.f64 (.f64 (.f64 M D) (.f64 h (.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64))))) (*.f64 #s(literal 2 binary64) d))
(/.f64 (.f64 (/.f64 (neg.f64 D) d) (.f64 (.f64 h (.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64)))) M)) #s(literal -2 binary64))
(/.f64 (.f64 (/.f64 D d) (.f64 (.f64 h (.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64)))) M)) #s(literal 2 binary64))
(/.f64 (.f64 D (.f64 (.f64 h (.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64)))) M)) (*.f64 #s(literal 2 binary64) d))
(/.f64 (.f64 (.f64 h (.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64)))) (.f64 (/.f64 M d) D)) #s(literal 2 binary64))
(/.f64 (.f64 (.f64 h (.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64)))) (.f64 (/.f64 D #s(literal 2 binary64)) M)) d)
(/.f64 (.f64 (.f64 h (.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64)))) (.f64 (neg.f64 M) D)) (*.f64 #s(literal -2 binary64) d))
(/.f64 (.f64 (.f64 h (.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64)))) (.f64 M D)) (*.f64 #s(literal 2 binary64) d))
(.f64 (/.f64 #s(literal 2 binary64) l) (/.f64 (-.f64 l (.f64 (pow.f64 (*.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64))) #s(literal 2 binary64)) h)) #s(literal 2 binary64)))
(.f64 #s(literal 1 binary64) (/.f64 (-.f64 l (.f64 (pow.f64 (*.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64))) #s(literal 2 binary64)) h)) l))
(.f64 #s(literal 2 binary64) (/.f64 (-.f64 l (.f64 (pow.f64 (.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64))) #s(literal 2 binary64)) h)) (.f64 l #s(literal 2 binary64))))
(/.f64 (/.f64 (.f64 (-.f64 l (.f64 (pow.f64 (*.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64))) #s(literal 2 binary64)) h)) #s(literal 2 binary64)) l) #s(literal 2 binary64))
(/.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (neg.f64 (pow.f64 (.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64))) #s(literal 2 binary64))) (/.f64 h l)) #s(literal 3 binary64))) (+.f64 #s(literal 1 binary64) (-.f64 (pow.f64 (.f64 (/.f64 h l) (pow.f64 (.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64))) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(literal 1 binary64) (.f64 (neg.f64 (pow.f64 (*.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64))) #s(literal 2 binary64))) (/.f64 h l))))))
(/.f64 (neg.f64 (/.f64 (.f64 #s(literal -2 binary64) (-.f64 l (.f64 (pow.f64 (*.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64))) #s(literal 2 binary64)) h))) #s(literal -2 binary64))) (neg.f64 l))
(/.f64 (neg.f64 (.f64 #s(literal -2 binary64) (-.f64 l (.f64 (pow.f64 (.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64))) #s(literal 2 binary64)) h)))) (neg.f64 (.f64 #s(literal -2 binary64) l)))
(/.f64 (neg.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (.f64 (/.f64 h l) (pow.f64 (.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64))) #s(literal 2 binary64))) #s(literal 2 binary64)))) (neg.f64 (fma.f64 (/.f64 h l) (pow.f64 (*.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(literal 1 binary64))))
(/.f64 (neg.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (.f64 (/.f64 h l) (pow.f64 (.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64))) #s(literal 2 binary64))) #s(literal 3 binary64)))) (neg.f64 (fma.f64 (.f64 (/.f64 h l) (pow.f64 (.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64))) #s(literal 2 binary64))) (fma.f64 (/.f64 h l) (pow.f64 (*.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(literal 1 binary64)) #s(literal 1 binary64))))
(/.f64 (-.f64 (pow.f64 (.f64 l #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 (.f64 (.f64 l #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 (pow.f64 (.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64))) #s(literal 2 binary64)) h))) (pow.f64 (*.f64 l #s(literal 2 binary64)) #s(literal 2 binary64)))
(/.f64 (/.f64 (.f64 #s(literal -2 binary64) (-.f64 l (.f64 (pow.f64 (*.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64))) #s(literal 2 binary64)) h))) #s(literal -2 binary64)) l)
(/.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (.f64 (/.f64 h l) (pow.f64 (.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64))) #s(literal 2 binary64))) #s(literal 2 binary64))) (fma.f64 (/.f64 h l) (pow.f64 (*.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(literal 1 binary64)))
(/.f64 (-.f64 (pow.f64 (.f64 l #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (.f64 (.f64 #s(literal 2 binary64) (pow.f64 (.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64))) #s(literal 2 binary64))) h) #s(literal 2 binary64))) (.f64 (.f64 #s(literal 2 binary64) (+.f64 l (.f64 (pow.f64 (.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64))) #s(literal 2 binary64)) h))) (*.f64 l #s(literal 2 binary64))))
(/.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (.f64 (/.f64 h l) (pow.f64 (.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64))) #s(literal 2 binary64))) #s(literal 3 binary64))) (fma.f64 (.f64 (/.f64 h l) (pow.f64 (.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64))) #s(literal 2 binary64))) (fma.f64 (/.f64 h l) (pow.f64 (*.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(literal 1 binary64)) #s(literal 1 binary64)))
(/.f64 (-.f64 (pow.f64 (.f64 l #s(literal 2 binary64)) #s(literal 3 binary64)) (pow.f64 (.f64 (.f64 #s(literal 2 binary64) (pow.f64 (.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64))) #s(literal 2 binary64))) h) #s(literal 3 binary64))) (.f64 (fma.f64 (.f64 (.f64 #s(literal 2 binary64) (pow.f64 (.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64))) #s(literal 2 binary64))) h) (.f64 #s(literal 2 binary64) (+.f64 l (.f64 (pow.f64 (.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64))) #s(literal 2 binary64)) h))) (pow.f64 (.f64 l #s(literal 2 binary64)) #s(literal 2 binary64))) (*.f64 l #s(literal 2 binary64))))
(/.f64 (.f64 #s(literal -2 binary64) (-.f64 l (.f64 (pow.f64 (.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64))) #s(literal 2 binary64)) h))) (.f64 #s(literal -2 binary64) l))
(/.f64 (.f64 (-.f64 l (.f64 (pow.f64 (.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64))) #s(literal 2 binary64)) h)) #s(literal 2 binary64)) (.f64 l #s(literal 2 binary64)))
(neg.f64 (/.f64 (.f64 #s(literal -2 binary64) (-.f64 l (.f64 (pow.f64 (.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64))) #s(literal 2 binary64)) h))) (.f64 l #s(literal 2 binary64))))
(neg.f64 (/.f64 (.f64 (-.f64 l (.f64 (pow.f64 (.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64))) #s(literal 2 binary64)) h)) #s(literal 2 binary64)) (.f64 #s(literal -2 binary64) l)))
(fma.f64 (neg.f64 (pow.f64 (*.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64))) #s(literal 2 binary64))) (/.f64 h l) #s(literal 1 binary64))
(fma.f64 (/.f64 h l) (neg.f64 (pow.f64 (*.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64))) #s(literal 2 binary64))) #s(literal 1 binary64))
(-.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (/.f64 h l) (pow.f64 (.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(literal 1 binary64))) (/.f64 (pow.f64 (.f64 (/.f64 h l) (pow.f64 (.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64))) #s(literal 2 binary64))) #s(literal 2 binary64)) (fma.f64 (/.f64 h l) (pow.f64 (.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(literal 1 binary64))))
(-.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (/.f64 h l) (pow.f64 (.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64))) #s(literal 2 binary64))) (fma.f64 (/.f64 h l) (pow.f64 (.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(literal 1 binary64)) #s(literal 1 binary64))) (/.f64 (pow.f64 (.f64 (/.f64 h l) (pow.f64 (.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64))) #s(literal 2 binary64))) #s(literal 3 binary64)) (fma.f64 (.f64 (/.f64 h l) (pow.f64 (.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64))) #s(literal 2 binary64))) (fma.f64 (/.f64 h l) (pow.f64 (.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(literal 1 binary64)) #s(literal 1 binary64))))
(-.f64 #s(literal 1 binary64) (.f64 (neg.f64 (neg.f64 (pow.f64 (.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64))) #s(literal 2 binary64)))) (/.f64 h l)))
(-.f64 #s(literal 1 binary64) (.f64 (/.f64 h l) (pow.f64 (.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64))) #s(literal 2 binary64))))
(+.f64 (.f64 (neg.f64 (pow.f64 (.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64))) #s(literal 2 binary64))) (/.f64 h l)) #s(literal 1 binary64))
(+.f64 #s(literal 1 binary64) (.f64 (neg.f64 (/.f64 h l)) (pow.f64 (.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64))) #s(literal 2 binary64))))
(+.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 #s(literal -2 binary64) (pow.f64 (.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64))) #s(literal 2 binary64))) h) (.f64 l #s(literal 2 binary64))))
(+.f64 #s(literal 1 binary64) (.f64 (neg.f64 (pow.f64 (.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64))) #s(literal 2 binary64))) (/.f64 h l)))
(.f64 (-.f64 l (.f64 (pow.f64 (*.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64))) #s(literal 2 binary64)) h)) #s(literal 2 binary64))
(.f64 #s(literal 2 binary64) (-.f64 l (.f64 (pow.f64 (*.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64))) #s(literal 2 binary64)) h)))
(/.f64 (fma.f64 (pow.f64 l #s(literal 3 binary64)) #s(literal 8 binary64) (pow.f64 (.f64 (.f64 #s(literal -2 binary64) (pow.f64 (.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64))) #s(literal 2 binary64))) h) #s(literal 3 binary64))) (fma.f64 (.f64 l l) #s(literal 4 binary64) (-.f64 (pow.f64 (.f64 (.f64 #s(literal 2 binary64) (pow.f64 (.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64))) #s(literal 2 binary64))) h) #s(literal 2 binary64)) (.f64 (.f64 l #s(literal 2 binary64)) (.f64 (.f64 #s(literal -2 binary64) (pow.f64 (.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64))) #s(literal 2 binary64))) h)))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (.f64 l #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (.f64 (.f64 #s(literal 2 binary64) (pow.f64 (.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64))) #s(literal 2 binary64))) h) #s(literal 2 binary64)))) (neg.f64 (.f64 #s(literal 2 binary64) (+.f64 l (.f64 (pow.f64 (*.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64))) #s(literal 2 binary64)) h)))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (.f64 l #s(literal 2 binary64)) #s(literal 3 binary64)) (pow.f64 (.f64 (.f64 #s(literal 2 binary64) (pow.f64 (.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64))) #s(literal 2 binary64))) h) #s(literal 3 binary64)))) (neg.f64 (fma.f64 (.f64 (.f64 #s(literal 2 binary64) (pow.f64 (.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64))) #s(literal 2 binary64))) h) (.f64 #s(literal 2 binary64) (+.f64 l (.f64 (pow.f64 (.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64))) #s(literal 2 binary64)) h))) (pow.f64 (*.f64 l #s(literal 2 binary64)) #s(literal 2 binary64)))))
(/.f64 (-.f64 (pow.f64 (.f64 l #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (.f64 (.f64 #s(literal 2 binary64) (pow.f64 (.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64))) #s(literal 2 binary64))) h) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (+.f64 l (.f64 (pow.f64 (*.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64))) #s(literal 2 binary64)) h))))
(/.f64 (-.f64 (pow.f64 (.f64 l #s(literal 2 binary64)) #s(literal 3 binary64)) (pow.f64 (.f64 (.f64 #s(literal 2 binary64) (pow.f64 (.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64))) #s(literal 2 binary64))) h) #s(literal 3 binary64))) (fma.f64 (.f64 (.f64 #s(literal 2 binary64) (pow.f64 (.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64))) #s(literal 2 binary64))) h) (.f64 #s(literal 2 binary64) (+.f64 l (.f64 (pow.f64 (.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64))) #s(literal 2 binary64)) h))) (pow.f64 (*.f64 l #s(literal 2 binary64)) #s(literal 2 binary64))))
(fma.f64 (.f64 #s(literal -2 binary64) (pow.f64 (.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64))) #s(literal 2 binary64))) h (*.f64 l #s(literal 2 binary64)))
(fma.f64 (.f64 #s(literal -2 binary64) (.f64 h (.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64))))) (.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64))) (*.f64 l #s(literal 2 binary64)))
(fma.f64 (.f64 #s(literal -2 binary64) h) (pow.f64 (.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 l #s(literal 2 binary64)))
(fma.f64 (.f64 #s(literal -2 binary64) (.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64)))) (.f64 h (.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64)))) (*.f64 l #s(literal 2 binary64)))
(fma.f64 (.f64 #s(literal -2 binary64) (/.f64 (/.f64 D d) #s(literal 2 binary64))) (.f64 (.f64 h (.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64)))) M) (*.f64 l #s(literal 2 binary64)))
(fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64))) #s(literal 2 binary64)) h) (*.f64 l #s(literal 2 binary64)))
(fma.f64 l #s(literal 2 binary64) (.f64 (neg.f64 (.f64 (.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64))) #s(literal 2 binary64))) (.f64 h (*.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64))))))
(fma.f64 l #s(literal 2 binary64) (.f64 (neg.f64 (.f64 h #s(literal 2 binary64))) (pow.f64 (*.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64))) #s(literal 2 binary64))))
(fma.f64 l #s(literal 2 binary64) (.f64 (neg.f64 (.f64 (pow.f64 (*.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64))) #s(literal 2 binary64)) h)) #s(literal 2 binary64)))
(fma.f64 l #s(literal 2 binary64) (.f64 (.f64 #s(literal -2 binary64) (pow.f64 (*.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64))) #s(literal 2 binary64))) h))
(fma.f64 (.f64 (pow.f64 (.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64))) #s(literal 2 binary64)) h) #s(literal -2 binary64) (*.f64 l #s(literal 2 binary64)))
(fma.f64 #s(literal 2 binary64) l (.f64 (neg.f64 (.f64 (.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64))) #s(literal 2 binary64))) (.f64 h (*.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64))))))
(fma.f64 #s(literal 2 binary64) l (.f64 (neg.f64 (.f64 h #s(literal 2 binary64))) (pow.f64 (*.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64))) #s(literal 2 binary64))))
(fma.f64 #s(literal 2 binary64) l (.f64 (neg.f64 (.f64 (pow.f64 (*.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64))) #s(literal 2 binary64)) h)) #s(literal 2 binary64)))
(fma.f64 #s(literal 2 binary64) l (.f64 (.f64 #s(literal -2 binary64) (pow.f64 (*.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64))) #s(literal 2 binary64))) h))
(-.f64 (-.f64 (.f64 l #s(literal 2 binary64)) (.f64 (pow.f64 (.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64))) #s(literal 2 binary64)) h)) (.f64 (pow.f64 (*.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64))) #s(literal 2 binary64)) h))
(-.f64 (/.f64 (pow.f64 (.f64 l #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (+.f64 l (.f64 (pow.f64 (.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64))) #s(literal 2 binary64)) h)))) (/.f64 (pow.f64 (.f64 (.f64 #s(literal 2 binary64) (pow.f64 (.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64))) #s(literal 2 binary64))) h) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (+.f64 l (.f64 (pow.f64 (.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64))) #s(literal 2 binary64)) h)))))
(-.f64 (/.f64 (pow.f64 (.f64 l #s(literal 2 binary64)) #s(literal 3 binary64)) (fma.f64 (.f64 (.f64 #s(literal 2 binary64) (pow.f64 (.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64))) #s(literal 2 binary64))) h) (.f64 #s(literal 2 binary64) (+.f64 l (.f64 (pow.f64 (.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64))) #s(literal 2 binary64)) h))) (pow.f64 (.f64 l #s(literal 2 binary64)) #s(literal 2 binary64)))) (/.f64 (pow.f64 (.f64 (.f64 #s(literal 2 binary64) (pow.f64 (.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64))) #s(literal 2 binary64))) h) #s(literal 3 binary64)) (fma.f64 (.f64 (.f64 #s(literal 2 binary64) (pow.f64 (.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64))) #s(literal 2 binary64))) h) (.f64 #s(literal 2 binary64) (+.f64 l (.f64 (pow.f64 (.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64))) #s(literal 2 binary64)) h))) (pow.f64 (.f64 l #s(literal 2 binary64)) #s(literal 2 binary64)))))
(-.f64 (.f64 l #s(literal 2 binary64)) (.f64 (.f64 #s(literal 2 binary64) (pow.f64 (.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64))) #s(literal 2 binary64))) h))
(+.f64 (-.f64 l (.f64 (pow.f64 (.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64))) #s(literal 2 binary64)) h)) (-.f64 l (.f64 (pow.f64 (.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64))) #s(literal 2 binary64)) h)))
(+.f64 (.f64 (.f64 #s(literal -2 binary64) (pow.f64 (.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64))) #s(literal 2 binary64))) h) (.f64 l #s(literal 2 binary64)))
(+.f64 (.f64 l #s(literal 2 binary64)) (.f64 (neg.f64 (.f64 (.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64))) #s(literal 2 binary64))) (.f64 h (.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64))))))
(+.f64 (.f64 l #s(literal 2 binary64)) (.f64 (neg.f64 (.f64 h #s(literal 2 binary64))) (pow.f64 (.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64))) #s(literal 2 binary64))))
(+.f64 (.f64 l #s(literal 2 binary64)) (.f64 (neg.f64 (.f64 (pow.f64 (.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64))) #s(literal 2 binary64)) h)) #s(literal 2 binary64)))
(+.f64 (.f64 l #s(literal 2 binary64)) (.f64 (.f64 #s(literal -2 binary64) (pow.f64 (.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64))) #s(literal 2 binary64))) h))
(+.f64 l (-.f64 l (.f64 (.f64 #s(literal 2 binary64) (pow.f64 (*.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64))) #s(literal 2 binary64))) h)))
(+.f64 l (+.f64 l (.f64 (.f64 #s(literal -2 binary64) (pow.f64 (*.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64))) #s(literal 2 binary64))) h)))
(.f64 (sqrt.f64 (fma.f64 (neg.f64 (pow.f64 (.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64))) #s(literal 2 binary64))) (/.f64 h l) #s(literal 1 binary64))) w0)
(.f64 w0 (sqrt.f64 (fma.f64 (neg.f64 (pow.f64 (.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64))) #s(literal 2 binary64))) (/.f64 h l) #s(literal 1 binary64))))
(/.f64 (.f64 (sqrt.f64 (.f64 (-.f64 l (.f64 (pow.f64 (.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64))) #s(literal 2 binary64)) h)) #s(literal 2 binary64))) w0) (sqrt.f64 (*.f64 l #s(literal 2 binary64))))
(/.f64 (.f64 w0 (sqrt.f64 (.f64 (-.f64 l (.f64 (pow.f64 (.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64))) #s(literal 2 binary64)) h)) #s(literal 2 binary64)))) (sqrt.f64 (*.f64 l #s(literal 2 binary64))))
(.f64 #s(approx (sqrt (/ (- ( 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(literal 1 binary64)) w0)
(.f64 w0 #s(approx (sqrt (/ (- ( 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(literal 1 binary64)))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) #s(literal 1 binary64))
#s(literal 1 binary64)
(*.f64 (pow.f64 #s(literal 2 binary64) #s(literal 1/4 binary64)) (pow.f64 #s(literal 2 binary64) #s(literal 1/4 binary64)))
(pow.f64 #s(literal 2 binary64) #s(literal 1/2 binary64))
(cosh.f64 (asinh.f64 #s(literal 1 binary64)))
(sqrt.f64 #s(literal 2 binary64))
(exp.f64 (*.f64 (log.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)))
(.f64 #s(approx (sqrt (/ (- ( 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) (fma.f64 (/.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) l) (*.f64 h (pow.f64 (/.f64 M d) #s(literal 2 binary64))) #s(literal 1 binary64))) w0)
(.f64 w0 #s(approx (sqrt (/ (- ( 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) (fma.f64 (/.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) l) (*.f64 h (pow.f64 (/.f64 M d) #s(literal 2 binary64))) #s(literal 1 binary64))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) (fma.f64 (/.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) l) (*.f64 h (pow.f64 (/.f64 M d) #s(literal 2 binary64))) #s(literal 1 binary64)))
(/.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (.f64 (/.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) l) (.f64 h (pow.f64 (/.f64 M d) #s(literal 2 binary64)))) #s(literal 2 binary64))) (-.f64 #s(literal 1 binary64) (.f64 (/.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) l) (.f64 h (pow.f64 (/.f64 M d) #s(literal 2 binary64))))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (.f64 (/.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) l) (.f64 h (pow.f64 (/.f64 M d) #s(literal 2 binary64)))) #s(literal 2 binary64)) #s(literal 1 binary64))) (neg.f64 (fma.f64 (/.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) l) (*.f64 h (pow.f64 (/.f64 M d) #s(literal 2 binary64))) #s(literal -1 binary64))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (.f64 (/.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) l) (.f64 h (pow.f64 (/.f64 M d) #s(literal 2 binary64)))) #s(literal 3 binary64)) #s(literal -1 binary64))) (neg.f64 (+.f64 (-.f64 #s(literal 1 binary64) (.f64 (/.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) l) (.f64 h (pow.f64 (/.f64 M d) #s(literal 2 binary64))))) (pow.f64 (.f64 (/.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) l) (.f64 h (pow.f64 (/.f64 M d) #s(literal 2 binary64)))) #s(literal 2 binary64)))))
(/.f64 (fma.f64 (.f64 (.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) h) (.f64 (/.f64 M d) M)) #s(literal 2 binary64) (.f64 (.f64 l d) #s(literal 2 binary64))) (.f64 (*.f64 l d) #s(literal 2 binary64)))
(/.f64 (fma.f64 #s(literal 2 binary64) (.f64 l d) (.f64 #s(literal 2 binary64) (.f64 (.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) h) (.f64 (/.f64 M d) M)))) (.f64 #s(literal 2 binary64) (*.f64 l d)))
(/.f64 (-.f64 (pow.f64 (.f64 (/.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) l) (.f64 h (pow.f64 (/.f64 M d) #s(literal 2 binary64)))) #s(literal 2 binary64)) #s(literal 1 binary64)) (fma.f64 (/.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) l) (*.f64 h (pow.f64 (/.f64 M d) #s(literal 2 binary64))) #s(literal -1 binary64)))
(/.f64 (-.f64 (pow.f64 (.f64 (/.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) l) (.f64 h (pow.f64 (/.f64 M d) #s(literal 2 binary64)))) #s(literal 3 binary64)) #s(literal -1 binary64)) (+.f64 #s(literal 1 binary64) (-.f64 (pow.f64 (.f64 (/.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) l) (.f64 h (pow.f64 (/.f64 M d) #s(literal 2 binary64)))) #s(literal 2 binary64)) (.f64 (/.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) l) (.f64 h (pow.f64 (/.f64 M d) #s(literal 2 binary64)))))))
(/.f64 (-.f64 (pow.f64 (.f64 (/.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) l) (.f64 h (pow.f64 (/.f64 M d) #s(literal 2 binary64)))) #s(literal 3 binary64)) #s(literal -1 binary64)) (+.f64 (-.f64 #s(literal 1 binary64) (.f64 (/.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) l) (.f64 h (pow.f64 (/.f64 M d) #s(literal 2 binary64))))) (pow.f64 (.f64 (/.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) l) (.f64 h (pow.f64 (/.f64 M d) #s(literal 2 binary64)))) #s(literal 2 binary64))))
(fma.f64 (.f64 (.f64 (/.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) l) (*.f64 h (pow.f64 (/.f64 M d) #s(literal 2 binary64)))) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 2 binary64)) #s(literal 1 binary64))
(fma.f64 (.f64 (.f64 (/.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) l) (*.f64 h (pow.f64 (/.f64 M d) #s(literal 2 binary64)))) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 #s(literal 1/2 binary64)) #s(literal 1 binary64))
(fma.f64 (.f64 (.f64 (/.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) l) (*.f64 h (pow.f64 (/.f64 M d) #s(literal 2 binary64)))) #s(literal 2 binary64)) #s(literal 1/2 binary64) #s(literal 1 binary64))
(fma.f64 (.f64 (.f64 (pow.f64 (/.f64 M d) #s(literal 2 binary64)) (/.f64 h l)) (*.f64 D D)) #s(literal -1/8 binary64) #s(literal 1 binary64))
(fma.f64 (.f64 (.f64 (pow.f64 (/.f64 M d) #s(literal 2 binary64)) (/.f64 h l)) D) (*.f64 #s(literal -1/8 binary64) D) #s(literal 1 binary64))
(fma.f64 (.f64 (.f64 #s(literal -1/8 binary64) (*.f64 D D)) (pow.f64 (/.f64 M d) #s(literal 2 binary64))) (/.f64 h l) #s(literal 1 binary64))
(fma.f64 (.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (.f64 (/.f64 M d) M)) (/.f64 (/.f64 h l) d) #s(literal 1 binary64))
(fma.f64 (/.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) l) (*.f64 h (pow.f64 (/.f64 M d) #s(literal 2 binary64))) #s(literal 1 binary64))
(fma.f64 (/.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) d) (/.f64 (.f64 (.f64 (/.f64 M d) M) h) l) #s(literal 1 binary64))
(fma.f64 (.f64 (.f64 #s(literal -1/8 binary64) (pow.f64 (/.f64 M d) #s(literal 2 binary64))) (/.f64 h l)) (*.f64 D D) #s(literal 1 binary64))
(fma.f64 (pow.f64 (/.f64 M d) #s(literal 2 binary64)) (.f64 (/.f64 h l) (.f64 #s(literal -1/8 binary64) (*.f64 D D))) #s(literal 1 binary64))
(fma.f64 (neg.f64 D) (.f64 (neg.f64 D) (.f64 (*.f64 #s(literal -1/8 binary64) (pow.f64 (/.f64 M d) #s(literal 2 binary64))) (/.f64 h l))) #s(literal 1 binary64))
(fma.f64 (fabs.f64 D) (.f64 (fabs.f64 D) (.f64 (*.f64 #s(literal -1/8 binary64) (pow.f64 (/.f64 M d) #s(literal 2 binary64))) (/.f64 h l))) #s(literal 1 binary64))
(fma.f64 (.f64 (/.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) l) (.f64 h (pow.f64 (/.f64 M d) #s(literal 2 binary64)))) #s(literal 1 binary64) #s(literal 1 binary64))
(fma.f64 (.f64 (pow.f64 (/.f64 M d) #s(literal 2 binary64)) (/.f64 h l)) (.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) #s(literal 1 binary64)) #s(literal 1 binary64))
(fma.f64 (.f64 (pow.f64 (/.f64 M d) #s(literal 2 binary64)) (/.f64 h l)) (.f64 #s(literal -1/8 binary64) (*.f64 D D)) #s(literal 1 binary64))
(fma.f64 (.f64 (/.f64 M d) M) (.f64 (/.f64 (/.f64 h l) d) (.f64 #s(literal -1/8 binary64) (.f64 D D))) #s(literal 1 binary64))
(fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (.f64 (.f64 (pow.f64 (/.f64 M d) #s(literal 2 binary64)) (/.f64 h l)) #s(literal 1 binary64)) #s(literal 1 binary64))
(fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (*.f64 (pow.f64 (/.f64 M d) #s(literal 2 binary64)) (/.f64 h l)) #s(literal 1 binary64))
(fma.f64 #s(literal -1/8 binary64) (.f64 (.f64 D D) (*.f64 (pow.f64 (/.f64 M d) #s(literal 2 binary64)) (/.f64 h l))) #s(literal 1 binary64))
(fma.f64 (.f64 D D) (.f64 (.f64 (.f64 #s(literal -1/8 binary64) (pow.f64 (/.f64 M d) #s(literal 2 binary64))) (/.f64 h l)) #s(literal 1 binary64)) #s(literal 1 binary64))
(fma.f64 (.f64 D D) (.f64 (*.f64 #s(literal -1/8 binary64) (pow.f64 (/.f64 M d) #s(literal 2 binary64))) (/.f64 h l)) #s(literal 1 binary64))
(fma.f64 #s(literal 1 binary64) (.f64 (/.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) l) (.f64 h (pow.f64 (/.f64 M d) #s(literal 2 binary64)))) #s(literal 1 binary64))
(fma.f64 D (.f64 (.f64 #s(literal -1/8 binary64) D) (*.f64 (pow.f64 (/.f64 M d) #s(literal 2 binary64)) (/.f64 h l))) #s(literal 1 binary64))
(fma.f64 D (.f64 D (.f64 (*.f64 #s(literal -1/8 binary64) (pow.f64 (/.f64 M d) #s(literal 2 binary64))) (/.f64 h l))) #s(literal 1 binary64))
(-.f64 (/.f64 (pow.f64 (.f64 (/.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) l) (.f64 h (pow.f64 (/.f64 M d) #s(literal 2 binary64)))) #s(literal 2 binary64)) (fma.f64 (/.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) l) (.f64 h (pow.f64 (/.f64 M d) #s(literal 2 binary64))) #s(literal -1 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 (/.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) l) (.f64 h (pow.f64 (/.f64 M d) #s(literal 2 binary64))) #s(literal -1 binary64))))
(-.f64 (.f64 (/.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) l) (.f64 h (pow.f64 (/.f64 M d) #s(literal 2 binary64)))) (*.f64 (neg.f64 (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 2 binary64))))
(-.f64 (.f64 (/.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) l) (.f64 h (pow.f64 (/.f64 M d) #s(literal 2 binary64)))) (*.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))))
(-.f64 (.f64 (/.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) l) (.f64 h (pow.f64 (/.f64 M d) #s(literal 2 binary64)))) #s(literal -1 binary64))
(-.f64 #s(literal 1 binary64) (.f64 (neg.f64 (.f64 (pow.f64 (/.f64 M d) #s(literal 2 binary64)) (/.f64 h l))) (.f64 #s(literal -1/8 binary64) (.f64 D D))))
(-.f64 #s(literal 1 binary64) (.f64 (neg.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D))) (.f64 (pow.f64 (/.f64 M d) #s(literal 2 binary64)) (/.f64 h l))))
(-.f64 #s(literal 1 binary64) (.f64 (neg.f64 (.f64 D D)) (.f64 (.f64 #s(literal -1/8 binary64) (pow.f64 (/.f64 M d) #s(literal 2 binary64))) (/.f64 h l))))
(+.f64 (/.f64 (pow.f64 (.f64 (/.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) l) (.f64 h (pow.f64 (/.f64 M d) #s(literal 2 binary64)))) #s(literal 3 binary64)) (+.f64 (-.f64 #s(literal 1 binary64) (.f64 (/.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) l) (.f64 h (pow.f64 (/.f64 M d) #s(literal 2 binary64))))) (pow.f64 (.f64 (/.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) l) (.f64 h (pow.f64 (/.f64 M d) #s(literal 2 binary64)))) #s(literal 2 binary64)))) (/.f64 #s(literal 1 binary64) (+.f64 (-.f64 #s(literal 1 binary64) (.f64 (/.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) l) (.f64 h (pow.f64 (/.f64 M d) #s(literal 2 binary64))))) (pow.f64 (.f64 (/.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) l) (.f64 h (pow.f64 (/.f64 M d) #s(literal 2 binary64)))) #s(literal 2 binary64)))))
(+.f64 (.f64 (/.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) l) (.f64 h (pow.f64 (/.f64 M d) #s(literal 2 binary64)))) #s(literal 1 binary64))
(+.f64 #s(literal 1 binary64) (.f64 (/.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) l) (.f64 h (pow.f64 (/.f64 M d) #s(literal 2 binary64)))))
(.f64 (.f64 #s(literal -1/8 binary64) (neg.f64 D)) (neg.f64 D))
(.f64 (.f64 #s(literal -1/8 binary64) (fabs.f64 D)) (fabs.f64 D))
(.f64 (.f64 #s(literal -1/8 binary64) D) D)
(.f64 (neg.f64 D) (.f64 (neg.f64 D) #s(literal -1/8 binary64)))
(.f64 (fabs.f64 D) (.f64 (fabs.f64 D) #s(literal -1/8 binary64)))
(.f64 #s(literal -1/8 binary64) (.f64 D D))
(.f64 (.f64 D D) #s(literal -1/8 binary64))
(.f64 D (.f64 #s(literal -1/8 binary64) D))
(.f64 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 #s(literal -1/4 binary64) h) (/.f64 (/.f64 (pow.f64 (.f64 M D) #s(literal 2 binary64)) d) (*.f64 l d)) #s(literal 1 binary64)))) w0)
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 #s(literal -1/4 binary64) h) (/.f64 (/.f64 (pow.f64 (.f64 M D) #s(literal 2 binary64)) d) (*.f64 l d)) #s(literal 1 binary64)))))
(.f64 (pow.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 #s(literal -1/4 binary64) h) (/.f64 (/.f64 (pow.f64 (.f64 M D) #s(literal 2 binary64)) d) (.f64 l d)) #s(literal 1 binary64))) #s(literal 1/4 binary64)) (pow.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 #s(literal -1/4 binary64) h) (/.f64 (/.f64 (pow.f64 (.f64 M D) #s(literal 2 binary64)) d) (*.f64 l d)) #s(literal 1 binary64))) #s(literal 1/4 binary64)))
(pow.f64 #s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 #s(literal -1/4 binary64) h) (/.f64 (/.f64 (pow.f64 (.f64 M D) #s(literal 2 binary64)) d) (*.f64 l d)) #s(literal 1 binary64))) #s(literal 1/2 binary64))
(sqrt.f64 #s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 #s(literal -1/4 binary64) h) (/.f64 (/.f64 (pow.f64 (.f64 M D) #s(literal 2 binary64)) d) (*.f64 l d)) #s(literal 1 binary64))))
(exp.f64 (.f64 (log.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 #s(literal -1/4 binary64) h) (/.f64 (/.f64 (pow.f64 (.f64 M D) #s(literal 2 binary64)) d) (*.f64 l d)) #s(literal 1 binary64)))) #s(literal 1/2 binary64)))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 #s(literal -1/4 binary64) h) (/.f64 (/.f64 (pow.f64 (.f64 M D) #s(literal 2 binary64)) d) (*.f64 l d)) #s(literal 1 binary64)))
(/.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (.f64 (/.f64 D l) (.f64 (.f64 D (pow.f64 (/.f64 M d) #s(literal 2 binary64))) (.f64 #s(literal -1/4 binary64) h))) #s(literal 2 binary64))) (-.f64 #s(literal 1 binary64) (.f64 (/.f64 D l) (.f64 (.f64 D (pow.f64 (/.f64 M d) #s(literal 2 binary64))) (.f64 #s(literal -1/4 binary64) h)))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (.f64 (/.f64 D l) (.f64 (.f64 D (pow.f64 (/.f64 M d) #s(literal 2 binary64))) (.f64 #s(literal -1/4 binary64) h))) #s(literal 2 binary64)) #s(literal 1 binary64))) (neg.f64 (fma.f64 (/.f64 D l) (.f64 (.f64 D (pow.f64 (/.f64 M d) #s(literal 2 binary64))) (*.f64 #s(literal -1/4 binary64) h)) #s(literal -1 binary64))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (.f64 (/.f64 D l) (.f64 (.f64 D (pow.f64 (/.f64 M d) #s(literal 2 binary64))) (.f64 #s(literal -1/4 binary64) h))) #s(literal 3 binary64)) #s(literal -1 binary64))) (neg.f64 (+.f64 (-.f64 #s(literal 1 binary64) (.f64 (/.f64 D l) (.f64 (.f64 D (pow.f64 (/.f64 M d) #s(literal 2 binary64))) (.f64 #s(literal -1/4 binary64) h)))) (pow.f64 (.f64 (/.f64 D l) (.f64 (.f64 D (pow.f64 (/.f64 M d) #s(literal 2 binary64))) (.f64 #s(literal -1/4 binary64) h))) #s(literal 2 binary64)))))
(/.f64 (fma.f64 (.f64 (.f64 D (pow.f64 (/.f64 M d) #s(literal 2 binary64))) (.f64 (.f64 #s(literal -1/4 binary64) h) D)) #s(literal 2 binary64) (.f64 l #s(literal 2 binary64))) (.f64 l #s(literal 2 binary64)))
(/.f64 (fma.f64 l #s(literal 2 binary64) (.f64 #s(literal 2 binary64) (.f64 (.f64 D (pow.f64 (/.f64 M d) #s(literal 2 binary64))) (.f64 (.f64 #s(literal -1/4 binary64) h) D)))) (.f64 l #s(literal 2 binary64)))
(/.f64 (fma.f64 (.f64 (.f64 #s(literal -1/4 binary64) h) (pow.f64 (.f64 M D) #s(literal 2 binary64))) #s(literal 2 binary64) (.f64 (.f64 (.f64 l d) d) #s(literal 2 binary64))) (.f64 (.f64 (*.f64 l d) d) #s(literal 2 binary64)))
(/.f64 (fma.f64 #s(literal 2 binary64) (.f64 (.f64 l d) d) (.f64 #s(literal 2 binary64) (.f64 (.f64 #s(literal -1/4 binary64) h) (pow.f64 (.f64 M D) #s(literal 2 binary64))))) (.f64 #s(literal 2 binary64) (.f64 (*.f64 l d) d)))
(/.f64 (-.f64 (pow.f64 (.f64 (/.f64 D l) (.f64 (.f64 D (pow.f64 (/.f64 M d) #s(literal 2 binary64))) (.f64 #s(literal -1/4 binary64) h))) #s(literal 2 binary64)) #s(literal 1 binary64)) (fma.f64 (/.f64 D l) (.f64 (.f64 D (pow.f64 (/.f64 M d) #s(literal 2 binary64))) (*.f64 #s(literal -1/4 binary64) h)) #s(literal -1 binary64)))
(/.f64 (-.f64 (pow.f64 (.f64 (/.f64 D l) (.f64 (.f64 D (pow.f64 (/.f64 M d) #s(literal 2 binary64))) (.f64 #s(literal -1/4 binary64) h))) #s(literal 3 binary64)) #s(literal -1 binary64)) (+.f64 #s(literal 1 binary64) (-.f64 (pow.f64 (.f64 (/.f64 D l) (.f64 (.f64 D (pow.f64 (/.f64 M d) #s(literal 2 binary64))) (.f64 #s(literal -1/4 binary64) h))) #s(literal 2 binary64)) (.f64 (/.f64 D l) (.f64 (.f64 D (pow.f64 (/.f64 M d) #s(literal 2 binary64))) (.f64 #s(literal -1/4 binary64) h))))))
(/.f64 (-.f64 (pow.f64 (.f64 (/.f64 D l) (.f64 (.f64 D (pow.f64 (/.f64 M d) #s(literal 2 binary64))) (.f64 #s(literal -1/4 binary64) h))) #s(literal 3 binary64)) #s(literal -1 binary64)) (+.f64 (-.f64 #s(literal 1 binary64) (.f64 (/.f64 D l) (.f64 (.f64 D (pow.f64 (/.f64 M d) #s(literal 2 binary64))) (.f64 #s(literal -1/4 binary64) h)))) (pow.f64 (.f64 (/.f64 D l) (.f64 (.f64 D (pow.f64 (/.f64 M d) #s(literal 2 binary64))) (.f64 #s(literal -1/4 binary64) h))) #s(literal 2 binary64))))
(fma.f64 (.f64 (.f64 #s(literal -1/4 binary64) h) (.f64 (/.f64 M l) (.f64 (/.f64 M d) D))) (/.f64 D d) #s(literal 1 binary64))
(fma.f64 (.f64 (.f64 #s(literal -1/4 binary64) h) (.f64 (.f64 M M) D)) (/.f64 D (.f64 (.f64 l d) d)) #s(literal 1 binary64))
(fma.f64 (.f64 (/.f64 (/.f64 (pow.f64 (.f64 M D) #s(literal 2 binary64)) d) (*.f64 l d)) h) #s(literal -1/4 binary64) #s(literal 1 binary64))
(fma.f64 (.f64 (.f64 (/.f64 D l) (.f64 (.f64 D (pow.f64 (/.f64 M d) #s(literal 2 binary64))) (*.f64 #s(literal -1/4 binary64) h))) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 2 binary64)) #s(literal 1 binary64))
(fma.f64 (.f64 (.f64 (/.f64 D l) (.f64 (.f64 D (pow.f64 (/.f64 M d) #s(literal 2 binary64))) (*.f64 #s(literal -1/4 binary64) h))) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 #s(literal 1/2 binary64)) #s(literal 1 binary64))
(fma.f64 (.f64 (.f64 (/.f64 D l) (.f64 (.f64 D (pow.f64 (/.f64 M d) #s(literal 2 binary64))) (*.f64 #s(literal -1/4 binary64) h))) #s(literal 2 binary64)) #s(literal 1/2 binary64) #s(literal 1 binary64))
(fma.f64 (.f64 (/.f64 D l) (.f64 (.f64 #s(literal -1/4 binary64) h) (/.f64 D d))) (.f64 (/.f64 M d) M) #s(literal 1 binary64))
(fma.f64 (.f64 (/.f64 D l) (.f64 #s(literal -1/4 binary64) h)) (*.f64 D (pow.f64 (/.f64 M d) #s(literal 2 binary64))) #s(literal 1 binary64))
(fma.f64 (.f64 (/.f64 D l) #s(literal -1/4 binary64)) (.f64 (*.f64 D (pow.f64 (/.f64 M d) #s(literal 2 binary64))) h) #s(literal 1 binary64))
(fma.f64 (/.f64 (.f64 #s(literal -1/4 binary64) h) (.f64 l d)) (/.f64 (pow.f64 (*.f64 M D) #s(literal 2 binary64)) d) #s(literal 1 binary64))
(fma.f64 (/.f64 (.f64 #s(literal -1/4 binary64) h) d) (/.f64 (/.f64 (pow.f64 (.f64 M D) #s(literal 2 binary64)) l) d) #s(literal 1 binary64))
(fma.f64 (/.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 (.f64 M D) #s(literal 2 binary64))) (.f64 (.f64 l d) d)) h #s(literal 1 binary64))
(fma.f64 (.f64 (.f64 #s(literal -1/4 binary64) h) (/.f64 D d)) (.f64 (/.f64 M l) (.f64 (/.f64 M d) D)) #s(literal 1 binary64))
(fma.f64 (.f64 (/.f64 M l) (.f64 (/.f64 M d) D)) (.f64 (.f64 #s(literal -1/4 binary64) h) (/.f64 D d)) #s(literal 1 binary64))
(fma.f64 (.f64 (/.f64 D l) (.f64 (.f64 D (pow.f64 (/.f64 M d) #s(literal 2 binary64))) (.f64 #s(literal -1/4 binary64) h))) #s(literal 1 binary64) #s(literal 1 binary64))
(fma.f64 (/.f64 D l) (.f64 (.f64 (.f64 D (pow.f64 (/.f64 M d) #s(literal 2 binary64))) (.f64 #s(literal -1/4 binary64) h)) #s(literal 1 binary64)) #s(literal 1 binary64))
(fma.f64 (/.f64 D l) (.f64 (.f64 D (pow.f64 (/.f64 M d) #s(literal 2 binary64))) (*.f64 #s(literal -1/4 binary64) h)) #s(literal 1 binary64))
(fma.f64 (.f64 (.f64 D (pow.f64 (/.f64 M d) #s(literal 2 binary64))) (.f64 #s(literal -1/4 binary64) h)) (.f64 (/.f64 D l) #s(literal 1 binary64)) #s(literal 1 binary64))
(fma.f64 (.f64 (.f64 D (pow.f64 (/.f64 M d) #s(literal 2 binary64))) (*.f64 #s(literal -1/4 binary64) h)) (/.f64 D l) #s(literal 1 binary64))
(fma.f64 (.f64 D (pow.f64 (/.f64 M d) #s(literal 2 binary64))) (.f64 (*.f64 #s(literal -1/4 binary64) h) (/.f64 D l)) #s(literal 1 binary64))
(fma.f64 (.f64 #s(literal -1/4 binary64) h) (.f64 (/.f64 (/.f64 (pow.f64 (.f64 M D) #s(literal 2 binary64)) d) (.f64 l d)) #s(literal 1 binary64)) #s(literal 1 binary64))
(fma.f64 (.f64 #s(literal -1/4 binary64) h) (/.f64 (/.f64 (pow.f64 (.f64 M D) #s(literal 2 binary64)) d) (*.f64 l d)) #s(literal 1 binary64))
(fma.f64 (/.f64 (/.f64 (pow.f64 (.f64 M D) #s(literal 2 binary64)) d) (.f64 l d)) (.f64 (.f64 #s(literal -1/4 binary64) h) #s(literal 1 binary64)) #s(literal 1 binary64))
(fma.f64 (/.f64 (/.f64 (pow.f64 (.f64 M D) #s(literal 2 binary64)) d) (.f64 l d)) (*.f64 #s(literal -1/4 binary64) h) #s(literal 1 binary64))
(fma.f64 (.f64 (.f64 M M) D) (.f64 (/.f64 D (.f64 (.f64 l d) d)) (.f64 #s(literal -1/4 binary64) h)) #s(literal 1 binary64))
(fma.f64 #s(literal -1/4 binary64) (.f64 h (/.f64 (/.f64 (pow.f64 (.f64 M D) #s(literal 2 binary64)) d) (*.f64 l d))) #s(literal 1 binary64))
(fma.f64 #s(literal -1/4 binary64) (.f64 (.f64 (*.f64 D (pow.f64 (/.f64 M d) #s(literal 2 binary64))) h) (/.f64 D l)) #s(literal 1 binary64))
(fma.f64 #s(literal 1 binary64) (.f64 (/.f64 D l) (.f64 (.f64 D (pow.f64 (/.f64 M d) #s(literal 2 binary64))) (.f64 #s(literal -1/4 binary64) h))) #s(literal 1 binary64))
(fma.f64 h (.f64 (/.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 (.f64 M D) #s(literal 2 binary64))) (.f64 (*.f64 l d) d)) #s(literal 1 binary64)) #s(literal 1 binary64))
(fma.f64 h (/.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 (.f64 M D) #s(literal 2 binary64))) (.f64 (.f64 l d) d)) #s(literal 1 binary64))
(-.f64 (/.f64 (pow.f64 (.f64 (/.f64 D l) (.f64 (.f64 D (pow.f64 (/.f64 M d) #s(literal 2 binary64))) (.f64 #s(literal -1/4 binary64) h))) #s(literal 2 binary64)) (fma.f64 (/.f64 D l) (.f64 (.f64 D (pow.f64 (/.f64 M d) #s(literal 2 binary64))) (.f64 #s(literal -1/4 binary64) h)) #s(literal -1 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 (/.f64 D l) (.f64 (.f64 D (pow.f64 (/.f64 M d) #s(literal 2 binary64))) (.f64 #s(literal -1/4 binary64) h)) #s(literal -1 binary64))))
(-.f64 (.f64 (/.f64 D l) (.f64 (.f64 D (pow.f64 (/.f64 M d) #s(literal 2 binary64))) (.f64 #s(literal -1/4 binary64) h))) (*.f64 (neg.f64 (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 2 binary64))))
(-.f64 (.f64 (/.f64 D l) (.f64 (.f64 D (pow.f64 (/.f64 M d) #s(literal 2 binary64))) (.f64 #s(literal -1/4 binary64) h))) (*.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))))
(-.f64 (.f64 (/.f64 D l) (.f64 (.f64 D (pow.f64 (/.f64 M d) #s(literal 2 binary64))) (.f64 #s(literal -1/4 binary64) h))) #s(literal -1 binary64))
(-.f64 #s(literal 1 binary64) (.f64 (neg.f64 (/.f64 D l)) (.f64 (.f64 D (pow.f64 (/.f64 M d) #s(literal 2 binary64))) (.f64 #s(literal -1/4 binary64) h))))
(-.f64 #s(literal 1 binary64) (.f64 (neg.f64 (.f64 (.f64 D (pow.f64 (/.f64 M d) #s(literal 2 binary64))) (.f64 #s(literal -1/4 binary64) h))) (/.f64 D l)))
(-.f64 #s(literal 1 binary64) (.f64 (neg.f64 (.f64 #s(literal -1/4 binary64) h)) (/.f64 (/.f64 (pow.f64 (.f64 M D) #s(literal 2 binary64)) d) (.f64 l d))))
(-.f64 #s(literal 1 binary64) (.f64 (neg.f64 (/.f64 (/.f64 (pow.f64 (.f64 M D) #s(literal 2 binary64)) d) (.f64 l d))) (.f64 #s(literal -1/4 binary64) h)))
(-.f64 #s(literal 1 binary64) (.f64 (neg.f64 h) (/.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 (.f64 M D) #s(literal 2 binary64))) (.f64 (*.f64 l d) d))))
(+.f64 (/.f64 (pow.f64 (.f64 (/.f64 D l) (.f64 (.f64 D (pow.f64 (/.f64 M d) #s(literal 2 binary64))) (.f64 #s(literal -1/4 binary64) h))) #s(literal 3 binary64)) (+.f64 (-.f64 #s(literal 1 binary64) (.f64 (/.f64 D l) (.f64 (.f64 D (pow.f64 (/.f64 M d) #s(literal 2 binary64))) (.f64 #s(literal -1/4 binary64) h)))) (pow.f64 (.f64 (/.f64 D l) (.f64 (.f64 D (pow.f64 (/.f64 M d) #s(literal 2 binary64))) (.f64 #s(literal -1/4 binary64) h))) #s(literal 2 binary64)))) (/.f64 #s(literal 1 binary64) (+.f64 (-.f64 #s(literal 1 binary64) (.f64 (/.f64 D l) (.f64 (.f64 D (pow.f64 (/.f64 M d) #s(literal 2 binary64))) (.f64 #s(literal -1/4 binary64) h)))) (pow.f64 (.f64 (/.f64 D l) (.f64 (.f64 D (pow.f64 (/.f64 M d) #s(literal 2 binary64))) (.f64 #s(literal -1/4 binary64) h))) #s(literal 2 binary64)))))
(+.f64 (.f64 (/.f64 D l) (.f64 (.f64 D (pow.f64 (/.f64 M d) #s(literal 2 binary64))) (.f64 #s(literal -1/4 binary64) h))) #s(literal 1 binary64))
(+.f64 #s(literal 1 binary64) (.f64 (/.f64 D l) (.f64 (.f64 D (pow.f64 (/.f64 M d) #s(literal 2 binary64))) (.f64 #s(literal -1/4 binary64) h))))
(.f64 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 #s(literal -1/4 binary64) h) (/.f64 (/.f64 (pow.f64 (.f64 M D) #s(literal 2 binary64)) d) (*.f64 l d)) #s(literal 1 binary64)))) w0)
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 #s(literal -1/4 binary64) h) (/.f64 (/.f64 (pow.f64 (.f64 M D) #s(literal 2 binary64)) d) (*.f64 l d)) #s(literal 1 binary64)))))
(.f64 (pow.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 #s(literal -1/4 binary64) h) (/.f64 (/.f64 (pow.f64 (.f64 M D) #s(literal 2 binary64)) d) (.f64 l d)) #s(literal 1 binary64))) #s(literal 1/4 binary64)) (pow.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 #s(literal -1/4 binary64) h) (/.f64 (/.f64 (pow.f64 (.f64 M D) #s(literal 2 binary64)) d) (*.f64 l d)) #s(literal 1 binary64))) #s(literal 1/4 binary64)))
(pow.f64 #s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 #s(literal -1/4 binary64) h) (/.f64 (/.f64 (pow.f64 (.f64 M D) #s(literal 2 binary64)) d) (*.f64 l d)) #s(literal 1 binary64))) #s(literal 1/2 binary64))
(sqrt.f64 #s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 #s(literal -1/4 binary64) h) (/.f64 (/.f64 (pow.f64 (.f64 M D) #s(literal 2 binary64)) d) (*.f64 l d)) #s(literal 1 binary64))))
(exp.f64 (.f64 (log.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 #s(literal -1/4 binary64) h) (/.f64 (/.f64 (pow.f64 (.f64 M D) #s(literal 2 binary64)) d) (*.f64 l d)) #s(literal 1 binary64)))) #s(literal 1/2 binary64)))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 #s(literal -1/4 binary64) h) (/.f64 (/.f64 (pow.f64 (.f64 M D) #s(literal 2 binary64)) d) (*.f64 l d)) #s(literal 1 binary64)))
(/.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (.f64 (/.f64 D l) (.f64 (.f64 D (pow.f64 (/.f64 M d) #s(literal 2 binary64))) (.f64 #s(literal -1/4 binary64) h))) #s(literal 2 binary64))) (-.f64 #s(literal 1 binary64) (.f64 (/.f64 D l) (.f64 (.f64 D (pow.f64 (/.f64 M d) #s(literal 2 binary64))) (.f64 #s(literal -1/4 binary64) h)))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (.f64 (/.f64 D l) (.f64 (.f64 D (pow.f64 (/.f64 M d) #s(literal 2 binary64))) (.f64 #s(literal -1/4 binary64) h))) #s(literal 2 binary64)) #s(literal 1 binary64))) (neg.f64 (fma.f64 (/.f64 D l) (.f64 (.f64 D (pow.f64 (/.f64 M d) #s(literal 2 binary64))) (*.f64 #s(literal -1/4 binary64) h)) #s(literal -1 binary64))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (.f64 (/.f64 D l) (.f64 (.f64 D (pow.f64 (/.f64 M d) #s(literal 2 binary64))) (.f64 #s(literal -1/4 binary64) h))) #s(literal 3 binary64)) #s(literal -1 binary64))) (neg.f64 (+.f64 (-.f64 #s(literal 1 binary64) (.f64 (/.f64 D l) (.f64 (.f64 D (pow.f64 (/.f64 M d) #s(literal 2 binary64))) (.f64 #s(literal -1/4 binary64) h)))) (pow.f64 (.f64 (/.f64 D l) (.f64 (.f64 D (pow.f64 (/.f64 M d) #s(literal 2 binary64))) (.f64 #s(literal -1/4 binary64) h))) #s(literal 2 binary64)))))
(/.f64 (fma.f64 (.f64 (.f64 D (pow.f64 (/.f64 M d) #s(literal 2 binary64))) (.f64 (.f64 #s(literal -1/4 binary64) h) D)) #s(literal 2 binary64) (.f64 l #s(literal 2 binary64))) (.f64 l #s(literal 2 binary64)))
(/.f64 (fma.f64 l #s(literal 2 binary64) (.f64 #s(literal 2 binary64) (.f64 (.f64 D (pow.f64 (/.f64 M d) #s(literal 2 binary64))) (.f64 (.f64 #s(literal -1/4 binary64) h) D)))) (.f64 l #s(literal 2 binary64)))
(/.f64 (fma.f64 (.f64 (.f64 #s(literal -1/4 binary64) h) (pow.f64 (.f64 M D) #s(literal 2 binary64))) #s(literal 2 binary64) (.f64 (.f64 (.f64 l d) d) #s(literal 2 binary64))) (.f64 (.f64 (*.f64 l d) d) #s(literal 2 binary64)))
(/.f64 (fma.f64 #s(literal 2 binary64) (.f64 (.f64 l d) d) (.f64 #s(literal 2 binary64) (.f64 (.f64 #s(literal -1/4 binary64) h) (pow.f64 (.f64 M D) #s(literal 2 binary64))))) (.f64 #s(literal 2 binary64) (.f64 (*.f64 l d) d)))
(/.f64 (-.f64 (pow.f64 (.f64 (/.f64 D l) (.f64 (.f64 D (pow.f64 (/.f64 M d) #s(literal 2 binary64))) (.f64 #s(literal -1/4 binary64) h))) #s(literal 2 binary64)) #s(literal 1 binary64)) (fma.f64 (/.f64 D l) (.f64 (.f64 D (pow.f64 (/.f64 M d) #s(literal 2 binary64))) (*.f64 #s(literal -1/4 binary64) h)) #s(literal -1 binary64)))
(/.f64 (-.f64 (pow.f64 (.f64 (/.f64 D l) (.f64 (.f64 D (pow.f64 (/.f64 M d) #s(literal 2 binary64))) (.f64 #s(literal -1/4 binary64) h))) #s(literal 3 binary64)) #s(literal -1 binary64)) (+.f64 #s(literal 1 binary64) (-.f64 (pow.f64 (.f64 (/.f64 D l) (.f64 (.f64 D (pow.f64 (/.f64 M d) #s(literal 2 binary64))) (.f64 #s(literal -1/4 binary64) h))) #s(literal 2 binary64)) (.f64 (/.f64 D l) (.f64 (.f64 D (pow.f64 (/.f64 M d) #s(literal 2 binary64))) (.f64 #s(literal -1/4 binary64) h))))))
(/.f64 (-.f64 (pow.f64 (.f64 (/.f64 D l) (.f64 (.f64 D (pow.f64 (/.f64 M d) #s(literal 2 binary64))) (.f64 #s(literal -1/4 binary64) h))) #s(literal 3 binary64)) #s(literal -1 binary64)) (+.f64 (-.f64 #s(literal 1 binary64) (.f64 (/.f64 D l) (.f64 (.f64 D (pow.f64 (/.f64 M d) #s(literal 2 binary64))) (.f64 #s(literal -1/4 binary64) h)))) (pow.f64 (.f64 (/.f64 D l) (.f64 (.f64 D (pow.f64 (/.f64 M d) #s(literal 2 binary64))) (.f64 #s(literal -1/4 binary64) h))) #s(literal 2 binary64))))
(fma.f64 (.f64 (.f64 #s(literal -1/4 binary64) h) (.f64 (/.f64 M l) (.f64 (/.f64 M d) D))) (/.f64 D d) #s(literal 1 binary64))
(fma.f64 (.f64 (.f64 #s(literal -1/4 binary64) h) (.f64 (.f64 M M) D)) (/.f64 D (.f64 (.f64 l d) d)) #s(literal 1 binary64))
(fma.f64 (.f64 (/.f64 (/.f64 (pow.f64 (.f64 M D) #s(literal 2 binary64)) d) (*.f64 l d)) h) #s(literal -1/4 binary64) #s(literal 1 binary64))
(fma.f64 (.f64 (.f64 (/.f64 D l) (.f64 (.f64 D (pow.f64 (/.f64 M d) #s(literal 2 binary64))) (*.f64 #s(literal -1/4 binary64) h))) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 2 binary64)) #s(literal 1 binary64))
(fma.f64 (.f64 (.f64 (/.f64 D l) (.f64 (.f64 D (pow.f64 (/.f64 M d) #s(literal 2 binary64))) (*.f64 #s(literal -1/4 binary64) h))) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 #s(literal 1/2 binary64)) #s(literal 1 binary64))
(fma.f64 (.f64 (.f64 (/.f64 D l) (.f64 (.f64 D (pow.f64 (/.f64 M d) #s(literal 2 binary64))) (*.f64 #s(literal -1/4 binary64) h))) #s(literal 2 binary64)) #s(literal 1/2 binary64) #s(literal 1 binary64))
(fma.f64 (.f64 (/.f64 D l) (.f64 (.f64 #s(literal -1/4 binary64) h) (/.f64 D d))) (.f64 (/.f64 M d) M) #s(literal 1 binary64))
(fma.f64 (.f64 (/.f64 D l) (.f64 #s(literal -1/4 binary64) h)) (*.f64 D (pow.f64 (/.f64 M d) #s(literal 2 binary64))) #s(literal 1 binary64))
(fma.f64 (.f64 (/.f64 D l) #s(literal -1/4 binary64)) (.f64 (*.f64 D (pow.f64 (/.f64 M d) #s(literal 2 binary64))) h) #s(literal 1 binary64))
(fma.f64 (/.f64 (.f64 #s(literal -1/4 binary64) h) (.f64 l d)) (/.f64 (pow.f64 (*.f64 M D) #s(literal 2 binary64)) d) #s(literal 1 binary64))
(fma.f64 (/.f64 (.f64 #s(literal -1/4 binary64) h) d) (/.f64 (/.f64 (pow.f64 (.f64 M D) #s(literal 2 binary64)) l) d) #s(literal 1 binary64))
(fma.f64 (/.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 (.f64 M D) #s(literal 2 binary64))) (.f64 (.f64 l d) d)) h #s(literal 1 binary64))
(fma.f64 (.f64 (.f64 #s(literal -1/4 binary64) h) (/.f64 D d)) (.f64 (/.f64 M l) (.f64 (/.f64 M d) D)) #s(literal 1 binary64))
(fma.f64 (.f64 (/.f64 M l) (.f64 (/.f64 M d) D)) (.f64 (.f64 #s(literal -1/4 binary64) h) (/.f64 D d)) #s(literal 1 binary64))
(fma.f64 (.f64 (/.f64 D l) (.f64 (.f64 D (pow.f64 (/.f64 M d) #s(literal 2 binary64))) (.f64 #s(literal -1/4 binary64) h))) #s(literal 1 binary64) #s(literal 1 binary64))
(fma.f64 (/.f64 D l) (.f64 (.f64 (.f64 D (pow.f64 (/.f64 M d) #s(literal 2 binary64))) (.f64 #s(literal -1/4 binary64) h)) #s(literal 1 binary64)) #s(literal 1 binary64))
(fma.f64 (/.f64 D l) (.f64 (.f64 D (pow.f64 (/.f64 M d) #s(literal 2 binary64))) (*.f64 #s(literal -1/4 binary64) h)) #s(literal 1 binary64))
(fma.f64 (.f64 (.f64 D (pow.f64 (/.f64 M d) #s(literal 2 binary64))) (.f64 #s(literal -1/4 binary64) h)) (.f64 (/.f64 D l) #s(literal 1 binary64)) #s(literal 1 binary64))
(fma.f64 (.f64 (.f64 D (pow.f64 (/.f64 M d) #s(literal 2 binary64))) (*.f64 #s(literal -1/4 binary64) h)) (/.f64 D l) #s(literal 1 binary64))
(fma.f64 (.f64 D (pow.f64 (/.f64 M d) #s(literal 2 binary64))) (.f64 (*.f64 #s(literal -1/4 binary64) h) (/.f64 D l)) #s(literal 1 binary64))
(fma.f64 (.f64 #s(literal -1/4 binary64) h) (.f64 (/.f64 (/.f64 (pow.f64 (.f64 M D) #s(literal 2 binary64)) d) (.f64 l d)) #s(literal 1 binary64)) #s(literal 1 binary64))
(fma.f64 (.f64 #s(literal -1/4 binary64) h) (/.f64 (/.f64 (pow.f64 (.f64 M D) #s(literal 2 binary64)) d) (*.f64 l d)) #s(literal 1 binary64))
(fma.f64 (/.f64 (/.f64 (pow.f64 (.f64 M D) #s(literal 2 binary64)) d) (.f64 l d)) (.f64 (.f64 #s(literal -1/4 binary64) h) #s(literal 1 binary64)) #s(literal 1 binary64))
(fma.f64 (/.f64 (/.f64 (pow.f64 (.f64 M D) #s(literal 2 binary64)) d) (.f64 l d)) (*.f64 #s(literal -1/4 binary64) h) #s(literal 1 binary64))
(fma.f64 (.f64 (.f64 M M) D) (.f64 (/.f64 D (.f64 (.f64 l d) d)) (.f64 #s(literal -1/4 binary64) h)) #s(literal 1 binary64))
(fma.f64 #s(literal -1/4 binary64) (.f64 h (/.f64 (/.f64 (pow.f64 (.f64 M D) #s(literal 2 binary64)) d) (*.f64 l d))) #s(literal 1 binary64))
(fma.f64 #s(literal -1/4 binary64) (.f64 (.f64 (*.f64 D (pow.f64 (/.f64 M d) #s(literal 2 binary64))) h) (/.f64 D l)) #s(literal 1 binary64))
(fma.f64 #s(literal 1 binary64) (.f64 (/.f64 D l) (.f64 (.f64 D (pow.f64 (/.f64 M d) #s(literal 2 binary64))) (.f64 #s(literal -1/4 binary64) h))) #s(literal 1 binary64))
(fma.f64 h (.f64 (/.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 (.f64 M D) #s(literal 2 binary64))) (.f64 (*.f64 l d) d)) #s(literal 1 binary64)) #s(literal 1 binary64))
(fma.f64 h (/.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 (.f64 M D) #s(literal 2 binary64))) (.f64 (.f64 l d) d)) #s(literal 1 binary64))
(-.f64 (/.f64 (pow.f64 (.f64 (/.f64 D l) (.f64 (.f64 D (pow.f64 (/.f64 M d) #s(literal 2 binary64))) (.f64 #s(literal -1/4 binary64) h))) #s(literal 2 binary64)) (fma.f64 (/.f64 D l) (.f64 (.f64 D (pow.f64 (/.f64 M d) #s(literal 2 binary64))) (.f64 #s(literal -1/4 binary64) h)) #s(literal -1 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 (/.f64 D l) (.f64 (.f64 D (pow.f64 (/.f64 M d) #s(literal 2 binary64))) (.f64 #s(literal -1/4 binary64) h)) #s(literal -1 binary64))))
(-.f64 (.f64 (/.f64 D l) (.f64 (.f64 D (pow.f64 (/.f64 M d) #s(literal 2 binary64))) (.f64 #s(literal -1/4 binary64) h))) (*.f64 (neg.f64 (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 2 binary64))))
(-.f64 (.f64 (/.f64 D l) (.f64 (.f64 D (pow.f64 (/.f64 M d) #s(literal 2 binary64))) (.f64 #s(literal -1/4 binary64) h))) (*.f64 (neg.f64 (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))))
(-.f64 (.f64 (/.f64 D l) (.f64 (.f64 D (pow.f64 (/.f64 M d) #s(literal 2 binary64))) (.f64 #s(literal -1/4 binary64) h))) #s(literal -1 binary64))
(-.f64 #s(literal 1 binary64) (.f64 (neg.f64 (/.f64 D l)) (.f64 (.f64 D (pow.f64 (/.f64 M d) #s(literal 2 binary64))) (.f64 #s(literal -1/4 binary64) h))))
(-.f64 #s(literal 1 binary64) (.f64 (neg.f64 (.f64 (.f64 D (pow.f64 (/.f64 M d) #s(literal 2 binary64))) (.f64 #s(literal -1/4 binary64) h))) (/.f64 D l)))
(-.f64 #s(literal 1 binary64) (.f64 (neg.f64 (.f64 #s(literal -1/4 binary64) h)) (/.f64 (/.f64 (pow.f64 (.f64 M D) #s(literal 2 binary64)) d) (.f64 l d))))
(-.f64 #s(literal 1 binary64) (.f64 (neg.f64 (/.f64 (/.f64 (pow.f64 (.f64 M D) #s(literal 2 binary64)) d) (.f64 l d))) (.f64 #s(literal -1/4 binary64) h)))
(-.f64 #s(literal 1 binary64) (.f64 (neg.f64 h) (/.f64 (.f64 #s(literal -1/4 binary64) (pow.f64 (.f64 M D) #s(literal 2 binary64))) (.f64 (*.f64 l d) d))))
(+.f64 (/.f64 (pow.f64 (.f64 (/.f64 D l) (.f64 (.f64 D (pow.f64 (/.f64 M d) #s(literal 2 binary64))) (.f64 #s(literal -1/4 binary64) h))) #s(literal 3 binary64)) (+.f64 (-.f64 #s(literal 1 binary64) (.f64 (/.f64 D l) (.f64 (.f64 D (pow.f64 (/.f64 M d) #s(literal 2 binary64))) (.f64 #s(literal -1/4 binary64) h)))) (pow.f64 (.f64 (/.f64 D l) (.f64 (.f64 D (pow.f64 (/.f64 M d) #s(literal 2 binary64))) (.f64 #s(literal -1/4 binary64) h))) #s(literal 2 binary64)))) (/.f64 #s(literal 1 binary64) (+.f64 (-.f64 #s(literal 1 binary64) (.f64 (/.f64 D l) (.f64 (.f64 D (pow.f64 (/.f64 M d) #s(literal 2 binary64))) (.f64 #s(literal -1/4 binary64) h)))) (pow.f64 (.f64 (/.f64 D l) (.f64 (.f64 D (pow.f64 (/.f64 M d) #s(literal 2 binary64))) (.f64 #s(literal -1/4 binary64) h))) #s(literal 2 binary64)))))
(+.f64 (.f64 (/.f64 D l) (.f64 (.f64 D (pow.f64 (/.f64 M d) #s(literal 2 binary64))) (.f64 #s(literal -1/4 binary64) h))) #s(literal 1 binary64))
(+.f64 #s(literal 1 binary64) (.f64 (/.f64 D l) (.f64 (.f64 D (pow.f64 (/.f64 M d) #s(literal 2 binary64))) (.f64 #s(literal -1/4 binary64) h))))
(.f64 (pow.f64 (fma.f64 (neg.f64 (pow.f64 (.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64))) #s(literal 2 binary64))) (/.f64 h l) #s(literal 1 binary64)) #s(literal 1/4 binary64)) (pow.f64 (fma.f64 (neg.f64 (pow.f64 (*.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64))) #s(literal 2 binary64))) (/.f64 h l) #s(literal 1 binary64)) #s(literal 1/4 binary64)))
(pow.f64 (fma.f64 (neg.f64 (pow.f64 (*.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64))) #s(literal 2 binary64))) (/.f64 h l) #s(literal 1 binary64)) #s(literal 1/2 binary64))
(/.f64 (neg.f64 (sqrt.f64 (.f64 (-.f64 l (.f64 (pow.f64 (.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64))) #s(literal 2 binary64)) h)) #s(literal 2 binary64)))) (neg.f64 (sqrt.f64 (.f64 l #s(literal 2 binary64)))))
(/.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (.f64 (/.f64 h l) (pow.f64 (.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64))) #s(literal 2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (fma.f64 (/.f64 h l) (pow.f64 (*.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(literal 1 binary64))))
(/.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (.f64 (/.f64 h l) (pow.f64 (.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64))) #s(literal 2 binary64))) #s(literal 3 binary64)))) (sqrt.f64 (fma.f64 (.f64 (/.f64 h l) (pow.f64 (.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64))) #s(literal 2 binary64))) (fma.f64 (/.f64 h l) (pow.f64 (*.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(literal 1 binary64)) #s(literal 1 binary64))))
(/.f64 (sqrt.f64 (/.f64 (.f64 #s(literal -2 binary64) (-.f64 l (.f64 (pow.f64 (*.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64))) #s(literal 2 binary64)) h))) #s(literal -2 binary64))) (sqrt.f64 l))
(/.f64 (sqrt.f64 (.f64 #s(literal -2 binary64) (-.f64 l (.f64 (pow.f64 (.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64))) #s(literal 2 binary64)) h)))) (sqrt.f64 (.f64 #s(literal -2 binary64) l)))
(/.f64 (sqrt.f64 (.f64 (-.f64 l (.f64 (pow.f64 (.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64))) #s(literal 2 binary64)) h)) #s(literal 2 binary64))) (sqrt.f64 (.f64 l #s(literal 2 binary64))))
(sqrt.f64 (fma.f64 (neg.f64 (pow.f64 (*.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64))) #s(literal 2 binary64))) (/.f64 h l) #s(literal 1 binary64)))
(exp.f64 (.f64 (log1p.f64 (.f64 (neg.f64 (/.f64 h l)) (pow.f64 (*.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64))) #s(literal 2 binary64)))) #s(literal 1/2 binary64)))
(.f64 (.f64 h (/.f64 M #s(literal 2 binary64))) (/.f64 D d))
(.f64 (.f64 h (/.f64 M d)) (/.f64 D #s(literal 2 binary64)))
(.f64 (.f64 h (/.f64 D #s(literal 2 binary64))) (/.f64 M d))
(.f64 (.f64 h (/.f64 (/.f64 D d) #s(literal 2 binary64))) M)
(.f64 (.f64 h M) (/.f64 (/.f64 D d) #s(literal 2 binary64)))
(.f64 (/.f64 M #s(literal 2 binary64)) (.f64 (/.f64 D d) h))
(.f64 (/.f64 M d) (.f64 (/.f64 D #s(literal 2 binary64)) h))
(.f64 (/.f64 D #s(literal 2 binary64)) (.f64 (/.f64 M d) h))
(.f64 h (.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64))))
(.f64 (.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64))) h)
(.f64 M (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) h))
(.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) (.f64 h M))
(/.f64 (.f64 (.f64 (/.f64 M d) D) h) #s(literal 2 binary64))
(/.f64 (.f64 (.f64 (/.f64 D #s(literal 2 binary64)) M) h) d)
(/.f64 (.f64 (.f64 (neg.f64 M) D) h) (*.f64 #s(literal -2 binary64) d))
(/.f64 (.f64 (.f64 M D) h) (*.f64 #s(literal 2 binary64) d))
(/.f64 (.f64 (/.f64 (neg.f64 D) d) (.f64 h M)) #s(literal -2 binary64))
(/.f64 (.f64 (/.f64 D d) (.f64 h M)) #s(literal 2 binary64))
(/.f64 (.f64 D (.f64 h M)) (*.f64 #s(literal 2 binary64) d))
(/.f64 (.f64 h (.f64 (/.f64 M d) D)) #s(literal 2 binary64))
(/.f64 (.f64 h (.f64 (/.f64 D #s(literal 2 binary64)) M)) d)
(/.f64 (.f64 h (.f64 (neg.f64 M) D)) (*.f64 #s(literal -2 binary64) d))
(/.f64 (.f64 h (.f64 M D)) (*.f64 #s(literal 2 binary64) d))
(.f64 (pow.f64 (.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64))) #s(literal 1/2 binary64)) (pow.f64 (*.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64))) #s(literal 1/2 binary64)))
(*.f64 (pow.f64 (/.f64 M #s(literal 2 binary64)) #s(literal 1 binary64)) (pow.f64 (/.f64 D d) #s(literal 1 binary64)))
(*.f64 (pow.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) #s(literal 1 binary64)) (pow.f64 M #s(literal 1 binary64)))
(*.f64 (pow.f64 M #s(literal 1 binary64)) (pow.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) #s(literal 1 binary64)))
(*.f64 (pow.f64 (/.f64 D #s(literal 2 binary64)) #s(literal 1 binary64)) (pow.f64 (/.f64 M d) #s(literal 1 binary64)))
(*.f64 (pow.f64 (/.f64 M d) #s(literal 1 binary64)) (pow.f64 (/.f64 D #s(literal 2 binary64)) #s(literal 1 binary64)))
(*.f64 (/.f64 M #s(literal 2 binary64)) (/.f64 D d))
(*.f64 (/.f64 M d) (/.f64 D #s(literal 2 binary64)))
(*.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d))
(*.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64)))
(*.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M)
(*.f64 (/.f64 D d) (/.f64 M #s(literal 2 binary64)))
(*.f64 D (/.f64 (/.f64 M d) #s(literal 2 binary64)))
(.f64 D (/.f64 M (.f64 #s(literal 2 binary64) d)))
(pow.f64 (pow.f64 (*.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 2 binary64)))
(pow.f64 (pow.f64 (*.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64))) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))
(pow.f64 (pow.f64 (*.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64))) #s(literal 2 binary64)) #s(literal 1/2 binary64))
(pow.f64 (*.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64))) #s(literal 1 binary64))
(/.f64 (*.f64 (neg.f64 M) (/.f64 D #s(literal 2 binary64))) (neg.f64 d))
(/.f64 (*.f64 (/.f64 (neg.f64 D) d) M) #s(literal -2 binary64))
(/.f64 (*.f64 (neg.f64 D) (/.f64 M d)) #s(literal -2 binary64))
(/.f64 (*.f64 (/.f64 M #s(literal 2 binary64)) (neg.f64 D)) (neg.f64 d))
(/.f64 (*.f64 (/.f64 M #s(literal 2 binary64)) D) d)
(/.f64 (*.f64 (/.f64 M d) (neg.f64 D)) #s(literal -2 binary64))
(/.f64 (*.f64 (/.f64 D #s(literal 2 binary64)) (neg.f64 M)) (neg.f64 d))
(/.f64 (*.f64 M (/.f64 (neg.f64 D) d)) #s(literal -2 binary64))
(/.f64 (neg.f64 (*.f64 (/.f64 M d) D)) #s(literal -2 binary64))
(/.f64 (neg.f64 (*.f64 (/.f64 D #s(literal 2 binary64)) M)) (neg.f64 d))
(/.f64 (neg.f64 (.f64 (neg.f64 M) D)) (neg.f64 (.f64 #s(literal -2 binary64) d)))
(/.f64 (.f64 (neg.f64 M) (neg.f64 D)) (.f64 (neg.f64 d) #s(literal -2 binary64)))
(/.f64 (.f64 (neg.f64 D) (neg.f64 M)) (.f64 #s(literal -2 binary64) (neg.f64 d)))
(/.f64 (*.f64 (/.f64 M d) D) #s(literal 2 binary64))
(/.f64 (*.f64 (/.f64 D #s(literal 2 binary64)) M) d)
(/.f64 (.f64 (neg.f64 M) D) (.f64 #s(literal -2 binary64) d))
(/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d))
(neg.f64 (/.f64 (.f64 (neg.f64 M) D) (.f64 #s(literal 2 binary64) d)))
(neg.f64 (/.f64 (.f64 M D) (.f64 #s(literal -2 binary64) d)))
(exp.f64 (.f64 (log.f64 (.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64)))) #s(literal 1 binary64)))
(*.f64 (pow.f64 #s(literal 1/2 binary64) #s(literal 1/4 binary64)) (pow.f64 #s(literal 1/2 binary64) #s(literal 1/4 binary64)))
(pow.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64))
(sqrt.f64 #s(literal 1/2 binary64))
(exp.f64 (*.f64 (log.f64 #s(literal 1/2 binary64)) #s(literal 1/2 binary64)))
(.f64 (/.f64 (/.f64 M d) l) (/.f64 (.f64 h M) d))
(.f64 (/.f64 (/.f64 M d) d) (/.f64 (.f64 h M) l))
(.f64 (/.f64 (.f64 (/.f64 M d) M) l) (/.f64 h d))
(.f64 (/.f64 h d) (/.f64 (.f64 (/.f64 M d) M) l))
(.f64 (/.f64 (/.f64 h l) d) (.f64 (/.f64 M d) M))
(*.f64 (pow.f64 (/.f64 M d) #s(literal 2 binary64)) (/.f64 h l))
(.f64 (.f64 (/.f64 M d) M) (/.f64 (/.f64 h l) d))
(.f64 (/.f64 M d) (/.f64 (.f64 h M) (*.f64 l d)))
(.f64 (/.f64 M d) (.f64 M (/.f64 (/.f64 h l) d)))
(*.f64 (/.f64 h l) (pow.f64 (/.f64 M d) #s(literal 2 binary64)))
(.f64 h (/.f64 (.f64 (/.f64 M d) M) (*.f64 l d)))
(.f64 M (.f64 (/.f64 M d) (/.f64 (/.f64 h l) d)))
(/.f64 (.f64 (.f64 (/.f64 M d) M) (/.f64 h l)) d)
(/.f64 (.f64 (.f64 M M) (/.f64 (/.f64 h l) d)) d)
(/.f64 (*.f64 (pow.f64 (/.f64 M d) #s(literal 2 binary64)) (neg.f64 h)) (neg.f64 l))
(/.f64 (*.f64 (pow.f64 (/.f64 M d) #s(literal 2 binary64)) h) l)
(/.f64 (/.f64 (.f64 (.f64 (/.f64 M d) M) h) l) d)
(/.f64 (neg.f64 (*.f64 h (pow.f64 (/.f64 M d) #s(literal 2 binary64)))) (neg.f64 l))
(/.f64 (neg.f64 (.f64 (neg.f64 h) (.f64 (/.f64 M d) M))) (neg.f64 (*.f64 (neg.f64 d) l)))
(/.f64 (.f64 (.f64 M M) h) (.f64 (.f64 l d) d))
(/.f64 (*.f64 h (pow.f64 (/.f64 M d) #s(literal 2 binary64))) l)
(/.f64 (.f64 (neg.f64 h) (.f64 (/.f64 M d) M)) (*.f64 (neg.f64 d) l))
(/.f64 (.f64 (.f64 (/.f64 M d) M) h) (*.f64 l d))
(neg.f64 (/.f64 (.f64 (neg.f64 h) (.f64 (/.f64 M d) M)) (*.f64 l d)))
(neg.f64 (/.f64 (.f64 (.f64 (/.f64 M d) M) h) (*.f64 (neg.f64 d) l)))
(.f64 (.f64 h (/.f64 M d)) M)
(.f64 (.f64 h M) (/.f64 M d))
(.f64 (.f64 (/.f64 M d) M) h)
(.f64 (/.f64 M d) (.f64 h M))
(.f64 h (.f64 (/.f64 M d) M))
(.f64 M (.f64 (/.f64 M d) h))
(/.f64 (.f64 (neg.f64 M) (.f64 h M)) (neg.f64 d))
(/.f64 (.f64 M (.f64 h M)) d)
(/.f64 (.f64 h (.f64 M M)) d)
(/.f64 (.f64 (.f64 M M) h) d)
(.f64 (/.f64 (.f64 M M) (.f64 l d)) (/.f64 (.f64 D D) d))
(.f64 (/.f64 D (.f64 l d)) (.f64 (.f64 (/.f64 M d) M) D))
(.f64 (/.f64 D (.f64 (.f64 l d) d)) (.f64 (*.f64 M M) D))
(.f64 (.f64 (.f64 (/.f64 M d) M) D) (/.f64 D (.f64 l d)))
(.f64 (.f64 (/.f64 M d) (/.f64 D d)) (*.f64 M (/.f64 D l)))
(.f64 (.f64 (/.f64 M l) (*.f64 (/.f64 M d) D)) (/.f64 D d))
(.f64 (/.f64 D l) (.f64 D (pow.f64 (/.f64 M d) #s(literal 2 binary64))))
(.f64 (.f64 D (pow.f64 (/.f64 M d) #s(literal 2 binary64))) (/.f64 D l))
(.f64 (.f64 (.f64 M M) D) (/.f64 D (.f64 (*.f64 l d) d)))
(.f64 (.f64 M M) (/.f64 (.f64 D D) (.f64 (*.f64 l d) d)))
(.f64 (.f64 M M) (.f64 D (/.f64 D (.f64 (*.f64 l d) d))))
(.f64 (.f64 (/.f64 M d) M) (*.f64 (/.f64 D d) (/.f64 D l)))
(.f64 (.f64 (/.f64 M d) M) (/.f64 (.f64 D D) (.f64 l d)))
(.f64 M (.f64 (.f64 M D) (/.f64 D (.f64 (*.f64 l d) d))))
(.f64 (/.f64 D d) (.f64 (/.f64 M l) (*.f64 (/.f64 M d) D)))
(.f64 D (/.f64 (.f64 (.f64 M M) D) (.f64 (*.f64 l d) d)))
(.f64 D (.f64 (.f64 M M) (/.f64 D (.f64 (*.f64 l d) d))))
(/.f64 (.f64 (.f64 (.f64 M M) D) (/.f64 D d)) (.f64 l d))
(/.f64 (.f64 (.f64 (/.f64 M l) (*.f64 (/.f64 M d) D)) (neg.f64 D)) (neg.f64 d))
(/.f64 (.f64 (.f64 (/.f64 M l) (*.f64 (/.f64 M d) D)) D) d)
(/.f64 (.f64 (.f64 D (pow.f64 (/.f64 M d) #s(literal 2 binary64))) (neg.f64 D)) (neg.f64 l))
(/.f64 (.f64 (.f64 D (pow.f64 (/.f64 M d) #s(literal 2 binary64))) D) l)
(/.f64 (/.f64 (pow.f64 (.f64 M D) #s(literal 2 binary64)) d) (.f64 l d))
(/.f64 (neg.f64 (/.f64 (/.f64 (pow.f64 (*.f64 M D) #s(literal 2 binary64)) l) d)) (neg.f64 d))
(/.f64 (neg.f64 (neg.f64 (pow.f64 (.f64 M D) #s(literal 2 binary64)))) (neg.f64 (.f64 (*.f64 (neg.f64 d) l) d)))
(/.f64 (.f64 (.f64 (.f64 (/.f64 M d) M) D) (neg.f64 D)) (.f64 (neg.f64 d) l))
(/.f64 (.f64 (.f64 (.f64 (/.f64 M d) M) D) D) (.f64 l d))
(/.f64 (/.f64 (/.f64 (pow.f64 (*.f64 M D) #s(literal 2 binary64)) l) d) d)
(/.f64 (neg.f64 (pow.f64 (.f64 M D) #s(literal 2 binary64))) (.f64 (*.f64 (neg.f64 d) l) d))
(/.f64 (pow.f64 (.f64 M D) #s(literal 2 binary64)) (.f64 (*.f64 l d) d))
(neg.f64 (/.f64 (neg.f64 (pow.f64 (.f64 M D) #s(literal 2 binary64))) (.f64 (*.f64 l d) d)))
(neg.f64 (/.f64 (pow.f64 (.f64 M D) #s(literal 2 binary64)) (.f64 (*.f64 (neg.f64 d) l) d)))
(.f64 (.f64 D (fabs.f64 M)) (fabs.f64 M))
(.f64 (.f64 (neg.f64 M) D) (neg.f64 M))
(.f64 (neg.f64 M) (.f64 (neg.f64 M) D))
(.f64 (fabs.f64 M) (.f64 (fabs.f64 M) D))
(.f64 (.f64 M M) D)
(.f64 (.f64 M D) M)
(.f64 M (.f64 M D))
(.f64 D (.f64 M M))
(.f64 (.f64 (*.f64 M M) (fabs.f64 D)) (fabs.f64 D))
(.f64 (.f64 (neg.f64 M) (fabs.f64 D)) (*.f64 (neg.f64 M) (fabs.f64 D)))
(.f64 (.f64 (fabs.f64 M) (neg.f64 D)) (*.f64 (fabs.f64 M) (neg.f64 D)))
(.f64 (.f64 (fabs.f64 M) (fabs.f64 D)) (*.f64 (fabs.f64 M) (fabs.f64 D)))
(.f64 (.f64 (fabs.f64 M) D) (*.f64 (fabs.f64 M) D))
(.f64 (.f64 M (fabs.f64 D)) (*.f64 M (fabs.f64 D)))
(.f64 (.f64 (neg.f64 M) (neg.f64 D)) (*.f64 (neg.f64 M) (neg.f64 D)))
(.f64 (.f64 (*.f64 M M) (neg.f64 D)) (neg.f64 D))
(.f64 (.f64 (neg.f64 M) D) (*.f64 (neg.f64 M) D))
(.f64 (neg.f64 M) (.f64 (neg.f64 M) (*.f64 D D)))
(.f64 (fabs.f64 M) (.f64 (fabs.f64 M) (*.f64 D D)))
(.f64 (.f64 (*.f64 M M) D) D)
(.f64 (.f64 M M) (*.f64 D D))
(.f64 (.f64 D D) (*.f64 M M))
(.f64 (.f64 M D) (*.f64 M D))
(.f64 M (.f64 (*.f64 M D) D))
(.f64 M (.f64 M (*.f64 D D)))
(.f64 D (.f64 (*.f64 M M) D))
(pow.f64 (*.f64 M D) #s(literal 2 binary64))
(.f64 (.f64 (/.f64 M d) D) (/.f64 M d))
(.f64 (.f64 (/.f64 M d) (/.f64 D d)) M)
(.f64 (.f64 (/.f64 M d) M) (/.f64 D d))
(.f64 (/.f64 M d) (.f64 (/.f64 M d) D))
(.f64 M (.f64 (/.f64 M d) (/.f64 D d)))
(.f64 (/.f64 D d) (.f64 (/.f64 M d) M))
(*.f64 D (pow.f64 (/.f64 M d) #s(literal 2 binary64)))
(/.f64 (.f64 (.f64 M M) (/.f64 D d)) d)
(/.f64 (.f64 (neg.f64 D) (.f64 (/.f64 M d) M)) (neg.f64 d))
(/.f64 (.f64 (.f64 (/.f64 M d) M) (neg.f64 D)) (neg.f64 d))
(/.f64 (.f64 (/.f64 D d) (.f64 M M)) d)
(/.f64 (neg.f64 (.f64 (.f64 (/.f64 M d) M) D)) (neg.f64 d))
(/.f64 (.f64 (.f64 M M) (neg.f64 D)) (*.f64 d (neg.f64 d)))
(/.f64 (.f64 (neg.f64 D) (.f64 M M)) (*.f64 (neg.f64 d) d))
(/.f64 (.f64 (.f64 (/.f64 M d) M) D) d)
(/.f64 (.f64 (.f64 M M) D) (*.f64 d d))
(.f64 (.f64 (.f64 (.f64 #s(literal -1/4 binary64) h) (/.f64 D d)) (/.f64 M d)) M)
(.f64 (.f64 (.f64 (.f64 #s(literal -1/4 binary64) h) (/.f64 D d)) M) (/.f64 M d))
(.f64 (.f64 (*.f64 D (pow.f64 (/.f64 M d) #s(literal 2 binary64))) #s(literal -1/4 binary64)) h)
(.f64 (.f64 (.f64 #s(literal -1/4 binary64) h) (.f64 (/.f64 M d) (/.f64 D d))) M)
(.f64 (.f64 (.f64 #s(literal -1/4 binary64) h) (.f64 (/.f64 M d) M)) (/.f64 D d))
(.f64 (.f64 (*.f64 D (pow.f64 (/.f64 M d) #s(literal 2 binary64))) h) #s(literal -1/4 binary64))
(.f64 (.f64 (.f64 #s(literal -1/4 binary64) h) (/.f64 D d)) (.f64 (/.f64 M d) M))
(.f64 (.f64 (/.f64 M d) (/.f64 D d)) (.f64 M (.f64 #s(literal -1/4 binary64) h)))
(.f64 (.f64 D (pow.f64 (/.f64 M d) #s(literal 2 binary64))) (*.f64 #s(literal -1/4 binary64) h))
(.f64 (.f64 #s(literal -1/4 binary64) h) (*.f64 D (pow.f64 (/.f64 M d) #s(literal 2 binary64))))
(.f64 #s(literal -1/4 binary64) (.f64 (*.f64 D (pow.f64 (/.f64 M d) #s(literal 2 binary64))) h))
(.f64 (.f64 (/.f64 M d) M) (.f64 (.f64 #s(literal -1/4 binary64) h) (/.f64 D d)))
(.f64 h (.f64 #s(literal -1/4 binary64) (*.f64 D (pow.f64 (/.f64 M d) #s(literal 2 binary64)))))
(.f64 (/.f64 D d) (.f64 (.f64 (/.f64 M d) M) (.f64 #s(literal -1/4 binary64) h)))
(/.f64 (.f64 (.f64 (.f64 (/.f64 M d) M) D) (.f64 #s(literal -1/4 binary64) h)) d)
(/.f64 (.f64 (.f64 (.f64 #s(literal -1/4 binary64) h) (/.f64 D d)) (.f64 M M)) d)
(/.f64 (.f64 (.f64 #s(literal -1/4 binary64) h) (.f64 (.f64 (/.f64 M d) M) D)) d)

eval99.0ms (1.1%)

Memory: 32.2MiB live, 219.1MiB allocated; 15ms collecting garbage
Compiler: Compiled 39 177 to 4 295 computations (89% saved)

prune36.0ms (0.4%)

Memory

-22.4MiB live, 74.5MiB allocated; 9ms collecting garbage

Pruning

22 alts after pruning (20 fresh and 2 done)

	Pruned	Kept	Total
New	747	13	760
Fresh	7	7	14
Picked	4	1	5
Done	1	1	2
Total	759	22	781

Accuracy

92.2%

Counts

781 → 22

Alt Table

Click to see full alt table

Status	Accuracy	Program
	45.0%	(/.f64 (.f64 (sqrt.f64 (.f64 (-.f64 l (.f64 (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64)) h)) #s(literal 2 binary64))) w0) (sqrt.f64 (*.f64 l #s(literal 2 binary64))))
	48.3%	(.f64 w0 (/.f64 (sqrt.f64 (/.f64 (.f64 #s(literal -2 binary64) (-.f64 l (.f64 (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64)) h))) #s(literal -2 binary64))) (sqrt.f64 l)))
	38.5%	(.f64 w0 (/.f64 (sqrt.f64 (.f64 #s(literal -2 binary64) (-.f64 l (.f64 (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64)) h)))) (sqrt.f64 (*.f64 #s(literal -2 binary64) l))))
▶	83.9%	(.f64 w0 (sqrt.f64 (/.f64 (-.f64 (.f64 #s(literal 2 binary64) l) (.f64 #s(literal 2 binary64) (/.f64 (.f64 (.f64 h (.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64)))) (.f64 M D)) (.f64 #s(literal 2 binary64) d)))) (*.f64 #s(literal 2 binary64) l))))
	13.7%	(.f64 w0 (sqrt.f64 #s(approx (/ (- ( 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 (.f64 (.f64 M M) D) D) h) (.f64 (*.f64 d d) l))))))
	81.3%	(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 (.f64 #s(literal -1/4 binary64) h) (/.f64 (.f64 (.f64 (/.f64 M d) M) D) d)) (/.f64 D l) #s(literal 1 binary64)))))
	67.7%	(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 (.f64 #s(literal -1/4 binary64) h) (/.f64 (.f64 (.f64 M M) D) (*.f64 d d))) (/.f64 D l) #s(literal 1 binary64)))))
	80.3%	(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 (.f64 #s(literal -1/4 binary64) h) (.f64 (.f64 (/.f64 M d) (/.f64 D d)) M)) (/.f64 D l) #s(literal 1 binary64)))))
▶	79.1%	(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 h #s(literal -1/4 binary64)) (/.f64 (.f64 (.f64 (.f64 M M) D) (/.f64 D d)) (*.f64 l d)) #s(literal 1 binary64)))))
	70.5%	(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 h #s(literal -1/4 binary64)) (/.f64 (.f64 (.f64 M D) (.f64 M D)) (.f64 (.f64 d l) d)) #s(literal 1 binary64)))))
	83.3%	(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 h #s(literal -1/4 binary64)) (.f64 (/.f64 D (.f64 l d)) (.f64 (*.f64 (/.f64 M d) M) D)) #s(literal 1 binary64)))))
▶	74.9%	(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 h #s(literal -1/4 binary64)) (.f64 M (.f64 (.f64 M D) (/.f64 D (.f64 (.f64 l d) d)))) #s(literal 1 binary64)))))
✓	68.8%	(.f64 w0 #s(approx (sqrt (/ (- ( 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(literal 1/2 binary64)))))
	70.4%	(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 (.f64 (/.f64 h (.f64 d d)) M) (/.f64 M l)) D) (*.f64 #s(literal -1/8 binary64) D) #s(literal 1 binary64))))
▶	54.7%	(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) (/.f64 (.f64 (.f64 M M) h) (.f64 (.f64 l d) d)) #s(literal 1 binary64))))
	60.7%	(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) (.f64 (/.f64 (/.f64 M d) d) (/.f64 (.f64 h M) l)) #s(literal 1 binary64))))
	63.1%	(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) (.f64 (/.f64 M d) (/.f64 (.f64 h M) (*.f64 l d))) #s(literal 1 binary64))))
	11.4%	(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(approx (+ (* (* (* D D) -1/8) (/ (* (* (/ M d) M) h) (* d l))) 1) (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (.f64 (.f64 M M) h) (.f64 D D)) (.f64 (*.f64 d d) l))))))
▶	11.9%	(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(approx (+ (* (* (* D D) -1/8) (* (/ h (* d d)) (/ (* M M) l))) 1) (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (.f64 (.f64 (.f64 M M) D) D) h) (.f64 (*.f64 d d) l))))))
	51.1%	#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (fma.f64 (/.f64 (.f64 (.f64 (.f64 (.f64 M M) h) w0) (.f64 D D)) (.f64 (*.f64 d d) l)) #s(literal -1/8 binary64) w0))
	57.0%	#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (fma.f64 (/.f64 (.f64 (.f64 (.f64 (.f64 M M) D) D) (.f64 w0 h)) (.f64 (*.f64 d d) l)) #s(literal -1/8 binary64) w0))
✓	70.1%	#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) w0)

Compiler

Compiled 1 526 to 1 136 computations (25.6% saved)

simplify140.0ms (1.5%)

Memory

3.6MiB live, 222.5MiB allocated; 44ms collecting garbage

Localize:

Found 20 expressions of interest:

New	Metric	Score
cost-diff	0	(fma.f64 (.f64 h #s(literal -1/4 binary64)) (/.f64 (.f64 (.f64 (.f64 M M) D) (/.f64 D d)) (*.f64 l d)) #s(literal 1 binary64))
cost-diff	0	#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 h #s(literal -1/4 binary64)) (/.f64 (.f64 (.f64 (.f64 M M) D) (/.f64 D d)) (*.f64 l d)) #s(literal 1 binary64)))
cost-diff	0	(sqrt.f64 #s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 h #s(literal -1/4 binary64)) (/.f64 (.f64 (.f64 (.f64 M M) D) (/.f64 D d)) (*.f64 l d)) #s(literal 1 binary64))))
cost-diff	0	(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 h #s(literal -1/4 binary64)) (/.f64 (.f64 (.f64 (.f64 M M) D) (/.f64 D d)) (*.f64 l d)) #s(literal 1 binary64)))))
cost-diff	0	(fma.f64 (.f64 h #s(literal -1/4 binary64)) (.f64 M (.f64 (.f64 M D) (/.f64 D (.f64 (.f64 l d) d)))) #s(literal 1 binary64))
cost-diff	0	#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 h #s(literal -1/4 binary64)) (.f64 M (.f64 (.f64 M D) (/.f64 D (.f64 (.f64 l d) d)))) #s(literal 1 binary64)))
cost-diff	0	(sqrt.f64 #s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 h #s(literal -1/4 binary64)) (.f64 M (.f64 (.f64 M D) (/.f64 D (.f64 (.f64 l d) d)))) #s(literal 1 binary64))))
cost-diff	0	(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 h #s(literal -1/4 binary64)) (.f64 M (.f64 (.f64 M D) (/.f64 D (.f64 (.f64 l d) d)))) #s(literal 1 binary64)))))
cost-diff	0	(.f64 (.f64 D D) #s(literal -1/8 binary64))
cost-diff	0	(fma.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) (/.f64 (.f64 (.f64 M M) h) (.f64 (.f64 l d) d)) #s(literal 1 binary64))
cost-diff	0	#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) (/.f64 (.f64 (.f64 M M) h) (.f64 (.f64 l d) d)) #s(literal 1 binary64)))
cost-diff	0	(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) (/.f64 (.f64 (.f64 M M) h) (.f64 (.f64 l d) d)) #s(literal 1 binary64))))
cost-diff	0	(.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (.f64 (.f64 (.f64 M M) D) D) h) (.f64 (*.f64 d d) l)))
cost-diff	0	#s(approx (+ (* (* (* D D) -1/8) (* (/ h (* d d)) (/ (* M M) l))) 1) (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (.f64 (.f64 (.f64 M M) D) D) h) (.f64 (*.f64 d d) l))))
cost-diff	0	#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(approx (+ (* (* (* D D) -1/8) (* (/ h (* d d)) (/ (* M M) l))) 1) (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (.f64 (.f64 (.f64 M M) D) D) h) (.f64 (*.f64 d d) l)))))
cost-diff	0	(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(approx (+ (* (* (* D D) -1/8) (* (/ h (* d d)) (/ (* M M) l))) 1) (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (.f64 (.f64 (.f64 M M) D) D) h) (.f64 (*.f64 d d) l))))))
cost-diff	0	(.f64 w0 (sqrt.f64 (/.f64 (-.f64 (.f64 #s(literal 2 binary64) l) (.f64 #s(literal 2 binary64) (/.f64 (.f64 (.f64 h (.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64)))) (.f64 M D)) (.f64 #s(literal 2 binary64) d)))) (*.f64 #s(literal 2 binary64) l))))
cost-diff	2	(-.f64 (.f64 #s(literal 2 binary64) l) (.f64 #s(literal 2 binary64) (/.f64 (.f64 (.f64 h (.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64)))) (.f64 M D)) (*.f64 #s(literal 2 binary64) d))))
cost-diff	4	(/.f64 (-.f64 (.f64 #s(literal 2 binary64) l) (.f64 #s(literal 2 binary64) (/.f64 (.f64 (.f64 h (.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64)))) (.f64 M D)) (.f64 #s(literal 2 binary64) d)))) (.f64 #s(literal 2 binary64) l))
cost-diff	6	(/.f64 (.f64 (.f64 h (.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64)))) (.f64 M D)) (*.f64 #s(literal 2 binary64) d))

Iterations

Useful iterations: 2 (0.0ms)

Iter	Nodes	Cost
0	75	896
0	120	888
1	285	843
2	1268	837
3	6901	837
0	8056	837

Stop Event

1×	iter limit
1×	node limit
1×	iter limit

Calls

Call 1

Inputs
(.f64 w0 (sqrt.f64 (/.f64 (-.f64 (.f64 #s(literal 2 binary64) l) (.f64 #s(literal 2 binary64) (/.f64 (.f64 (.f64 h (.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64)))) (.f64 M D)) (.f64 #s(literal 2 binary64) d)))) (*.f64 #s(literal 2 binary64) l))))
w0
(sqrt.f64 (/.f64 (-.f64 (.f64 #s(literal 2 binary64) l) (.f64 #s(literal 2 binary64) (/.f64 (.f64 (.f64 h (.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64)))) (.f64 M D)) (.f64 #s(literal 2 binary64) d)))) (.f64 #s(literal 2 binary64) l)))
(/.f64 (-.f64 (.f64 #s(literal 2 binary64) l) (.f64 #s(literal 2 binary64) (/.f64 (.f64 (.f64 h (.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64)))) (.f64 M D)) (.f64 #s(literal 2 binary64) d)))) (.f64 #s(literal 2 binary64) l))
(-.f64 (.f64 #s(literal 2 binary64) l) (.f64 #s(literal 2 binary64) (/.f64 (.f64 (.f64 h (.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64)))) (.f64 M D)) (*.f64 #s(literal 2 binary64) d))))
(*.f64 #s(literal 2 binary64) l)
#s(literal 2 binary64)
l
(.f64 #s(literal 2 binary64) (/.f64 (.f64 (.f64 h (.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64)))) (.f64 M D)) (.f64 #s(literal 2 binary64) d)))
(/.f64 (.f64 (.f64 h (.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64)))) (.f64 M D)) (*.f64 #s(literal 2 binary64) d))
(.f64 (.f64 h (.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64)))) (.f64 M D))
(.f64 h (.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64))))
h
(*.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64)))
M
(/.f64 (/.f64 D d) #s(literal 2 binary64))
(/.f64 D d)
D
d
(*.f64 M D)
(*.f64 #s(literal 2 binary64) d)
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(approx (+ (* (* (* D D) -1/8) (* (/ h (* d d)) (/ (* M M) l))) 1) (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (.f64 (.f64 (.f64 M M) D) D) h) (.f64 (*.f64 d d) l))))))
w0
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(approx (+ (* (* (* D D) -1/8) (* (/ h (* d d)) (/ (* M M) l))) 1) (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (.f64 (.f64 (.f64 M M) D) D) h) (.f64 (*.f64 d d) l)))))
#s(approx (+ (* (* (* D D) -1/8) (* (/ h (* d d)) (/ (* M M) l))) 1) (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (.f64 (.f64 (.f64 M M) D) D) h) (.f64 (*.f64 d d) l))))
(.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (.f64 (.f64 (.f64 M M) D) D) h) (.f64 (*.f64 d d) l)))
#s(literal -1/8 binary64)
(/.f64 (.f64 (.f64 (.f64 (.f64 M M) D) D) h) (.f64 (.f64 d d) l))
(.f64 (.f64 (.f64 (.f64 M M) D) D) h)
(.f64 (.f64 (*.f64 M M) D) D)
(.f64 (.f64 M M) D)
(*.f64 M M)
M
D
h
(.f64 (.f64 d d) l)
(*.f64 d d)
d
l
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) (/.f64 (.f64 (.f64 M M) h) (.f64 (.f64 l d) d)) #s(literal 1 binary64))))
w0
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) (/.f64 (.f64 (.f64 M M) h) (.f64 (.f64 l d) d)) #s(literal 1 binary64)))
(fma.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) (/.f64 (.f64 (.f64 M M) h) (.f64 (.f64 l d) d)) #s(literal 1 binary64))
(.f64 (.f64 D D) #s(literal -1/8 binary64))
(*.f64 D D)
D
#s(literal -1/8 binary64)
(/.f64 (.f64 (.f64 M M) h) (.f64 (.f64 l d) d))
(.f64 (.f64 M M) h)
(*.f64 M M)
M
h
(.f64 (.f64 l d) d)
(*.f64 l d)
l
d
#s(literal 1 binary64)
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 h #s(literal -1/4 binary64)) (.f64 M (.f64 (.f64 M D) (/.f64 D (.f64 (.f64 l d) d)))) #s(literal 1 binary64)))))
w0
(sqrt.f64 #s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 h #s(literal -1/4 binary64)) (.f64 M (.f64 (.f64 M D) (/.f64 D (.f64 (.f64 l d) d)))) #s(literal 1 binary64))))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 h #s(literal -1/4 binary64)) (.f64 M (.f64 (.f64 M D) (/.f64 D (.f64 (.f64 l d) d)))) #s(literal 1 binary64)))
(fma.f64 (.f64 h #s(literal -1/4 binary64)) (.f64 M (.f64 (.f64 M D) (/.f64 D (.f64 (.f64 l d) d)))) #s(literal 1 binary64))
(*.f64 h #s(literal -1/4 binary64))
h
#s(literal -1/4 binary64)
(.f64 M (.f64 (.f64 M D) (/.f64 D (.f64 (*.f64 l d) d))))
M
(.f64 (.f64 M D) (/.f64 D (.f64 (.f64 l d) d)))
(*.f64 M D)
D
(/.f64 D (.f64 (.f64 l d) d))
(.f64 (.f64 l d) d)
(*.f64 l d)
l
d
#s(literal 1 binary64)
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 h #s(literal -1/4 binary64)) (/.f64 (.f64 (.f64 (.f64 M M) D) (/.f64 D d)) (*.f64 l d)) #s(literal 1 binary64)))))
w0
(sqrt.f64 #s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 h #s(literal -1/4 binary64)) (/.f64 (.f64 (.f64 (.f64 M M) D) (/.f64 D d)) (*.f64 l d)) #s(literal 1 binary64))))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 h #s(literal -1/4 binary64)) (/.f64 (.f64 (.f64 (.f64 M M) D) (/.f64 D d)) (*.f64 l d)) #s(literal 1 binary64)))
(fma.f64 (.f64 h #s(literal -1/4 binary64)) (/.f64 (.f64 (.f64 (.f64 M M) D) (/.f64 D d)) (*.f64 l d)) #s(literal 1 binary64))
(*.f64 h #s(literal -1/4 binary64))
h
#s(literal -1/4 binary64)
(/.f64 (.f64 (.f64 (.f64 M M) D) (/.f64 D d)) (.f64 l d))
(.f64 (.f64 (*.f64 M M) D) (/.f64 D d))
(.f64 (.f64 M M) D)
(*.f64 M M)
M
D
(/.f64 D d)
d
(*.f64 l d)
l
#s(literal 1 binary64)

Outputs
(.f64 w0 (sqrt.f64 (/.f64 (-.f64 (.f64 #s(literal 2 binary64) l) (.f64 #s(literal 2 binary64) (/.f64 (.f64 (.f64 h (.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64)))) (.f64 M D)) (.f64 #s(literal 2 binary64) d)))) (*.f64 #s(literal 2 binary64) l))))
(.f64 (sqrt.f64 (fma.f64 (/.f64 (neg.f64 h) l) (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64)) #s(literal 1 binary64))) w0)
w0
(sqrt.f64 (/.f64 (-.f64 (.f64 #s(literal 2 binary64) l) (.f64 #s(literal 2 binary64) (/.f64 (.f64 (.f64 h (.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64)))) (.f64 M D)) (.f64 #s(literal 2 binary64) d)))) (.f64 #s(literal 2 binary64) l)))
(sqrt.f64 (fma.f64 (/.f64 (neg.f64 h) l) (pow.f64 (*.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64)) #s(literal 1 binary64)))
(/.f64 (-.f64 (.f64 #s(literal 2 binary64) l) (.f64 #s(literal 2 binary64) (/.f64 (.f64 (.f64 h (.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64)))) (.f64 M D)) (.f64 #s(literal 2 binary64) d)))) (.f64 #s(literal 2 binary64) l))
(fma.f64 (/.f64 (neg.f64 h) l) (pow.f64 (*.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64)) #s(literal 1 binary64))
(-.f64 (.f64 #s(literal 2 binary64) l) (.f64 #s(literal 2 binary64) (/.f64 (.f64 (.f64 h (.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64)))) (.f64 M D)) (*.f64 #s(literal 2 binary64) d))))
(.f64 (fma.f64 (neg.f64 h) (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64)) l) #s(literal 2 binary64))
(*.f64 #s(literal 2 binary64) l)
(*.f64 l #s(literal 2 binary64))
#s(literal 2 binary64)
l
(.f64 #s(literal 2 binary64) (/.f64 (.f64 (.f64 h (.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64)))) (.f64 M D)) (.f64 #s(literal 2 binary64) d)))
(.f64 (.f64 h #s(literal 2 binary64)) (pow.f64 (*.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64)))
(/.f64 (.f64 (.f64 h (.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64)))) (.f64 M D)) (*.f64 #s(literal 2 binary64) d))
(.f64 (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64)) h)
(.f64 (.f64 h (.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64)))) (.f64 M D))
(.f64 (.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) D) (.f64 M h))
(.f64 h (.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64))))
(.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) h)
h
(*.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64)))
(*.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M)
M
(/.f64 (/.f64 D d) #s(literal 2 binary64))
(/.f64 D d)
D
d
(*.f64 M D)
(*.f64 D M)
(*.f64 #s(literal 2 binary64) d)
(*.f64 d #s(literal 2 binary64))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(approx (+ (* (* (* D D) -1/8) (* (/ h (* d d)) (/ (* M M) l))) 1) (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (.f64 (.f64 (.f64 M M) D) D) h) (.f64 (*.f64 d d) l))))))
(.f64 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(approx (+ (* (* (* D D) -1/8) (* (/ h (* d d)) (/ (* M M) l))) 1) (.f64 (.f64 #s(literal -1/8 binary64) (/.f64 h l)) (/.f64 (/.f64 (.f64 (.f64 (*.f64 M M) D) D) d) d)))) w0)
w0
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(approx (+ (* (* (* D D) -1/8) (* (/ h (* d d)) (/ (* M M) l))) 1) (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (.f64 (.f64 (.f64 M M) D) D) h) (.f64 (*.f64 d d) l)))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(approx (+ (* (* (* D D) -1/8) (* (/ h (* d d)) (/ (* M M) l))) 1) (.f64 (.f64 #s(literal -1/8 binary64) (/.f64 h l)) (/.f64 (/.f64 (.f64 (.f64 (*.f64 M M) D) D) d) d))))
#s(approx (+ (* (* (* D D) -1/8) (* (/ h (* d d)) (/ (* M M) l))) 1) (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (.f64 (.f64 (.f64 M M) D) D) h) (.f64 (*.f64 d d) l))))
#s(approx (+ (* (* (* D D) -1/8) (* (/ h (* d d)) (/ (* M M) l))) 1) (.f64 (.f64 #s(literal -1/8 binary64) (/.f64 h l)) (/.f64 (/.f64 (.f64 (.f64 (*.f64 M M) D) D) d) d)))
(.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (.f64 (.f64 (.f64 M M) D) D) h) (.f64 (*.f64 d d) l)))
(.f64 (.f64 #s(literal -1/8 binary64) (/.f64 h l)) (/.f64 (/.f64 (.f64 (.f64 (*.f64 M M) D) D) d) d))
#s(literal -1/8 binary64)
(/.f64 (.f64 (.f64 (.f64 (.f64 M M) D) D) h) (.f64 (.f64 d d) l))
(.f64 (.f64 (/.f64 D d) h) (/.f64 (.f64 M (.f64 (/.f64 D d) M)) l))
(.f64 (.f64 (.f64 (.f64 M M) D) D) h)
(.f64 (.f64 (*.f64 M M) D) D)
(.f64 (.f64 M M) D)
(*.f64 M M)
M
D
h
(.f64 (.f64 d d) l)
(.f64 (.f64 d l) d)
(*.f64 d d)
d
l
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) (/.f64 (.f64 (.f64 M M) h) (.f64 (.f64 l d) d)) #s(literal 1 binary64))))
(.f64 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (/.f64 (fma.f64 (.f64 (.f64 (.f64 M M) D) #s(literal -1/8 binary64)) (.f64 h (/.f64 (/.f64 D d) d)) l) l)) w0)
w0
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) (/.f64 (.f64 (.f64 M M) h) (.f64 (.f64 l d) d)) #s(literal 1 binary64)))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (/.f64 (fma.f64 (.f64 (.f64 (.f64 M M) D) #s(literal -1/8 binary64)) (.f64 h (/.f64 (/.f64 D d) d)) l) l))
(fma.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) (/.f64 (.f64 (.f64 M M) h) (.f64 (.f64 l d) d)) #s(literal 1 binary64))
(/.f64 (fma.f64 (.f64 (.f64 (.f64 M M) D) #s(literal -1/8 binary64)) (.f64 h (/.f64 (/.f64 D d) d)) l) l)
(.f64 (.f64 D D) #s(literal -1/8 binary64))
(*.f64 D D)
D
#s(literal -1/8 binary64)
(/.f64 (.f64 (.f64 M M) h) (.f64 (.f64 l d) d))
(.f64 (/.f64 (/.f64 (.f64 M (/.f64 M d)) d) l) h)
(.f64 (.f64 M M) h)
(*.f64 M M)
M
h
(.f64 (.f64 l d) d)
(.f64 (.f64 d l) d)
(*.f64 l d)
(*.f64 d l)
l
d
#s(literal 1 binary64)
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 h #s(literal -1/4 binary64)) (.f64 M (.f64 (.f64 M D) (/.f64 D (.f64 (.f64 l d) d)))) #s(literal 1 binary64)))))
(.f64 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (/.f64 (fma.f64 (/.f64 (.f64 (.f64 (.f64 M M) D) D) d) (.f64 #s(literal -1/4 binary64) (/.f64 h d)) l) l))) w0)
w0
(sqrt.f64 #s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 h #s(literal -1/4 binary64)) (.f64 M (.f64 (.f64 M D) (/.f64 D (.f64 (.f64 l d) d)))) #s(literal 1 binary64))))
(sqrt.f64 #s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (/.f64 (fma.f64 (/.f64 (.f64 (.f64 (.f64 M M) D) D) d) (.f64 #s(literal -1/4 binary64) (/.f64 h d)) l) l)))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 h #s(literal -1/4 binary64)) (.f64 M (.f64 (.f64 M D) (/.f64 D (.f64 (.f64 l d) d)))) #s(literal 1 binary64)))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (/.f64 (fma.f64 (/.f64 (.f64 (.f64 (.f64 M M) D) D) d) (.f64 #s(literal -1/4 binary64) (/.f64 h d)) l) l))
(fma.f64 (.f64 h #s(literal -1/4 binary64)) (.f64 M (.f64 (.f64 M D) (/.f64 D (.f64 (.f64 l d) d)))) #s(literal 1 binary64))
(/.f64 (fma.f64 (/.f64 (.f64 (.f64 (.f64 M M) D) D) d) (.f64 #s(literal -1/4 binary64) (/.f64 h d)) l) l)
(*.f64 h #s(literal -1/4 binary64))
(*.f64 #s(literal -1/4 binary64) h)
h
#s(literal -1/4 binary64)
(.f64 M (.f64 (.f64 M D) (/.f64 D (.f64 (*.f64 l d) d))))
(.f64 (/.f64 (/.f64 (.f64 M (*.f64 (/.f64 D d) M)) l) d) D)
M
(.f64 (.f64 M D) (/.f64 D (.f64 (.f64 l d) d)))
(.f64 (.f64 (/.f64 D (.f64 (.f64 d l) d)) M) D)
(*.f64 M D)
(*.f64 D M)
D
(/.f64 D (.f64 (.f64 l d) d))
(/.f64 D (.f64 (.f64 d l) d))
(.f64 (.f64 l d) d)
(.f64 (.f64 d l) d)
(*.f64 l d)
(*.f64 d l)
l
d
#s(literal 1 binary64)
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 h #s(literal -1/4 binary64)) (/.f64 (.f64 (.f64 (.f64 M M) D) (/.f64 D d)) (*.f64 l d)) #s(literal 1 binary64)))))
(.f64 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (/.f64 (fma.f64 (/.f64 (.f64 (.f64 (.f64 M M) D) D) d) (.f64 #s(literal -1/4 binary64) (/.f64 h d)) l) l))) w0)
w0
(sqrt.f64 #s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 h #s(literal -1/4 binary64)) (/.f64 (.f64 (.f64 (.f64 M M) D) (/.f64 D d)) (*.f64 l d)) #s(literal 1 binary64))))
(sqrt.f64 #s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (/.f64 (fma.f64 (/.f64 (.f64 (.f64 (.f64 M M) D) D) d) (.f64 #s(literal -1/4 binary64) (/.f64 h d)) l) l)))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 h #s(literal -1/4 binary64)) (/.f64 (.f64 (.f64 (.f64 M M) D) (/.f64 D d)) (*.f64 l d)) #s(literal 1 binary64)))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (/.f64 (fma.f64 (/.f64 (.f64 (.f64 (.f64 M M) D) D) d) (.f64 #s(literal -1/4 binary64) (/.f64 h d)) l) l))
(fma.f64 (.f64 h #s(literal -1/4 binary64)) (/.f64 (.f64 (.f64 (.f64 M M) D) (/.f64 D d)) (*.f64 l d)) #s(literal 1 binary64))
(/.f64 (fma.f64 (/.f64 (.f64 (.f64 (.f64 M M) D) D) d) (.f64 #s(literal -1/4 binary64) (/.f64 h d)) l) l)
(*.f64 h #s(literal -1/4 binary64))
(*.f64 #s(literal -1/4 binary64) h)
h
#s(literal -1/4 binary64)
(/.f64 (.f64 (.f64 (.f64 M M) D) (/.f64 D d)) (.f64 l d))
(.f64 (/.f64 (/.f64 (.f64 M (*.f64 (/.f64 D d) M)) l) d) D)
(.f64 (.f64 (*.f64 M M) D) (/.f64 D d))
(/.f64 (.f64 (.f64 (*.f64 M M) D) D) d)
(.f64 (.f64 M M) D)
(*.f64 M M)
M
D
(/.f64 D d)
d
(*.f64 l d)
(*.f64 d l)
l
#s(literal 1 binary64)

localize235.0ms (2.6%)

Memory

23.0MiB live, 504.9MiB allocated; 84ms collecting garbage

Localize:

Found 20 expressions of interest:

New	Metric	Score
accuracy	5.860770706292823	(sqrt.f64 #s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 h #s(literal -1/4 binary64)) (/.f64 (.f64 (.f64 (.f64 M M) D) (/.f64 D d)) (*.f64 l d)) #s(literal 1 binary64))))
accuracy	6.233555505547666	(.f64 (.f64 M M) D)
accuracy	6.767856706238747	(.f64 (.f64 (*.f64 M M) D) (/.f64 D d))
accuracy	9.684952058974044	(/.f64 (.f64 (.f64 (.f64 M M) D) (/.f64 D d)) (.f64 l d))
accuracy	2.614689582928147	(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 h #s(literal -1/4 binary64)) (.f64 M (.f64 (.f64 M D) (/.f64 D (.f64 (.f64 l d) d)))) #s(literal 1 binary64)))))
accuracy	5.860770706292823	(sqrt.f64 #s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 h #s(literal -1/4 binary64)) (.f64 M (.f64 (.f64 M D) (/.f64 D (.f64 (.f64 l d) d)))) #s(literal 1 binary64))))
accuracy	8.002915786785993	(/.f64 D (.f64 (.f64 l d) d))
accuracy	9.032173791018302	(.f64 (.f64 M D) (/.f64 D (.f64 (.f64 l d) d)))
accuracy	8.142425734231338	(.f64 (.f64 M M) h)
accuracy	11.996290279822626	#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) (/.f64 (.f64 (.f64 M M) h) (.f64 (.f64 l d) d)) #s(literal 1 binary64)))
accuracy	13.14981832929066	(/.f64 (.f64 (.f64 M M) h) (.f64 (.f64 l d) d))
accuracy	14.474916672867947	(fma.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) (/.f64 (.f64 (.f64 M M) h) (.f64 (.f64 l d) d)) #s(literal 1 binary64))
accuracy	7.0941372732092995	(.f64 (.f64 d d) l)
accuracy	11.996290279822626	#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(approx (+ (* (* (* D D) -1/8) (* (/ h (* d d)) (/ (* M M) l))) 1) (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (.f64 (.f64 (.f64 M M) D) D) h) (.f64 (*.f64 d d) l)))))
accuracy	16.170897768093937	(/.f64 (.f64 (.f64 (.f64 (.f64 M M) D) D) h) (.f64 (.f64 d d) l))
accuracy	42.49603086582323	#s(approx (+ (* (* (* D D) -1/8) (* (/ h (* d d)) (/ (* M M) l))) 1) (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (.f64 (.f64 (.f64 M M) D) D) h) (.f64 (*.f64 d d) l))))
accuracy	3.6727564500181575	(*.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64)))
accuracy	5.361824406032334	(.f64 h (.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64))))
accuracy	5.372202218371387	(/.f64 (.f64 (.f64 h (.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64)))) (.f64 M D)) (*.f64 #s(literal 2 binary64) d))
accuracy	5.860770706292823	(sqrt.f64 (/.f64 (-.f64 (.f64 #s(literal 2 binary64) l) (.f64 #s(literal 2 binary64) (/.f64 (.f64 (.f64 h (.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64)))) (.f64 M D)) (.f64 #s(literal 2 binary64) d)))) (.f64 #s(literal 2 binary64) l)))

Samples

116.0ms

256×

valid

Compiler

Compiled 655 to 64 computations (90.2% saved)

Precisions

Click to see histograms. Total time spent on operations: 83.0ms

ival-mult: 49.0ms (58.8% of total)

ival-div: 18.0ms (21.6% of total)

ival-add: 5.0ms (6% of total)

ival-sqrt: 4.0ms (4.8% of total)

ival-sub: 3.0ms (3.6% of total)

ival-pow2: 2.0ms (2.4% of total)

exact: 1.0ms (1.2% of total)

adjust: 0.0ms (0% of total)

ival-assert: 0.0ms (0% of total)

ival-true: 0.0ms (0% of total)

series132.0ms (1.4%)

Memory

3.1MiB live, 326.5MiB allocated; 30ms collecting garbage

Counts

32 → 237

Calls

Call 1

Inputs
(/.f64 (.f64 (.f64 h (.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64)))) (.f64 M D)) (*.f64 #s(literal 2 binary64) d))
(/.f64 (-.f64 (.f64 #s(literal 2 binary64) l) (.f64 #s(literal 2 binary64) (/.f64 (.f64 (.f64 h (.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64)))) (.f64 M D)) (.f64 #s(literal 2 binary64) d)))) (.f64 #s(literal 2 binary64) l))
(-.f64 (.f64 #s(literal 2 binary64) l) (.f64 #s(literal 2 binary64) (/.f64 (.f64 (.f64 h (.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64)))) (.f64 M D)) (*.f64 #s(literal 2 binary64) d))))
(.f64 w0 (sqrt.f64 (/.f64 (-.f64 (.f64 #s(literal 2 binary64) l) (.f64 #s(literal 2 binary64) (/.f64 (.f64 (.f64 h (.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64)))) (.f64 M D)) (.f64 #s(literal 2 binary64) d)))) (*.f64 #s(literal 2 binary64) l))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(approx (+ (* (* (* D D) -1/8) (* (/ h (* d d)) (/ (* M M) l))) 1) (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (.f64 (.f64 (.f64 M M) D) D) h) (.f64 (*.f64 d d) l))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(approx (+ (* (* (* D D) -1/8) (* (/ h (* d d)) (/ (* M M) l))) 1) (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (.f64 (.f64 (.f64 M M) D) D) h) (.f64 (*.f64 d d) l)))))
#s(approx (+ (* (* (* D D) -1/8) (* (/ h (* d d)) (/ (* M M) l))) 1) (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (.f64 (.f64 (.f64 M M) D) D) h) (.f64 (*.f64 d d) l))))
(.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (.f64 (.f64 (.f64 M M) D) D) h) (.f64 (*.f64 d d) l)))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) (/.f64 (.f64 (.f64 M M) h) (.f64 (.f64 l d) d)) #s(literal 1 binary64))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) (/.f64 (.f64 (.f64 M M) h) (.f64 (.f64 l d) d)) #s(literal 1 binary64)))
(fma.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) (/.f64 (.f64 (.f64 M M) h) (.f64 (.f64 l d) d)) #s(literal 1 binary64))
(.f64 (.f64 D D) #s(literal -1/8 binary64))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 h #s(literal -1/4 binary64)) (.f64 M (.f64 (.f64 M D) (/.f64 D (.f64 (.f64 l d) d)))) #s(literal 1 binary64)))))
(sqrt.f64 #s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 h #s(literal -1/4 binary64)) (.f64 M (.f64 (.f64 M D) (/.f64 D (.f64 (.f64 l d) d)))) #s(literal 1 binary64))))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 h #s(literal -1/4 binary64)) (.f64 M (.f64 (.f64 M D) (/.f64 D (.f64 (.f64 l d) d)))) #s(literal 1 binary64)))
(fma.f64 (.f64 h #s(literal -1/4 binary64)) (.f64 M (.f64 (.f64 M D) (/.f64 D (.f64 (.f64 l d) d)))) #s(literal 1 binary64))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 h #s(literal -1/4 binary64)) (/.f64 (.f64 (.f64 (.f64 M M) D) (/.f64 D d)) (*.f64 l d)) #s(literal 1 binary64)))))
(sqrt.f64 #s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 h #s(literal -1/4 binary64)) (/.f64 (.f64 (.f64 (.f64 M M) D) (/.f64 D d)) (*.f64 l d)) #s(literal 1 binary64))))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 h #s(literal -1/4 binary64)) (/.f64 (.f64 (.f64 (.f64 M M) D) (/.f64 D d)) (*.f64 l d)) #s(literal 1 binary64)))
(fma.f64 (.f64 h #s(literal -1/4 binary64)) (/.f64 (.f64 (.f64 (.f64 M M) D) (/.f64 D d)) (*.f64 l d)) #s(literal 1 binary64))
(sqrt.f64 (/.f64 (-.f64 (.f64 #s(literal 2 binary64) l) (.f64 #s(literal 2 binary64) (/.f64 (.f64 (.f64 h (.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64)))) (.f64 M D)) (.f64 #s(literal 2 binary64) d)))) (.f64 #s(literal 2 binary64) l)))
(.f64 h (.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64))))
(*.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64)))
(/.f64 (.f64 (.f64 (.f64 (.f64 M M) D) D) h) (.f64 (.f64 d d) l))
(.f64 (.f64 d d) l)
(/.f64 (.f64 (.f64 M M) h) (.f64 (.f64 l d) d))
(.f64 (.f64 M M) h)
(.f64 (.f64 M D) (/.f64 D (.f64 (.f64 l d) d)))
(/.f64 D (.f64 (.f64 l d) d))
(/.f64 (.f64 (.f64 (.f64 M M) D) (/.f64 D d)) (.f64 l d))
(.f64 (.f64 (*.f64 M M) D) (/.f64 D d))
(.f64 (.f64 M M) D)

Outputs
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)))) #s(hole binary64 (* (sqrt (/ (- (* 2 l) (* 1/2 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l)) (* w0 (sqrt 1/2)))))
#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 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)) #s(hole binary64 (* 1/4 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))))
#s(approx (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)) #s(hole binary64 1))
#s(approx (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)) #s(hole binary64 (+ 1 (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))))))
#s(approx (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) #s(hole binary64 (* 2 l)))
#s(approx (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) #s(hole binary64 (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2))) (* 2 l))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)))) #s(hole binary64 (* w0 (* (sqrt 1/2) (sqrt 2)))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)))) #s(hole binary64 (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (* h (* w0 (sqrt 1/2))))) (* (pow d 2) (* l (sqrt 2))))) (* w0 (* (sqrt 1/2) (sqrt 2))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)))) #s(hole binary64 (+ (* w0 (* (sqrt 1/2) (sqrt 2))) (* (pow M 2) (+ (* -1/4 (/ (* (pow D 2) (* h (* w0 (sqrt 1/2)))) (* (pow d 2) (* l (sqrt 2))))) (* -1/32 (/ (* (pow D 4) (* (pow M 2) (* (pow h 2) (* w0 (sqrt 1/2))))) (* (pow d 4) (* (pow l 2) (pow (sqrt 2) 3))))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)))) #s(hole binary64 (+ (* w0 (* (sqrt 1/2) (sqrt 2))) (* (pow M 2) (+ (* -1/4 (/ (* (pow D 2) (* h (* w0 (sqrt 1/2)))) (* (pow d 2) (* l (sqrt 2))))) (* (pow M 2) (+ (* -1/32 (/ (* (pow D 4) (* (pow h 2) (* w0 (sqrt 1/2)))) (* (pow d 4) (* (pow l 2) (pow (sqrt 2) 3))))) (* -1/128 (/ (* (pow D 6) (* (pow M 2) (* (pow h 3) (* w0 (sqrt 1/2))))) (* (pow d 6) (* (pow l 3) (pow (sqrt 2) 5))))))))))))
#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 (+ (* (* (* D D) -1/8) (* (/ h (* d d)) (/ (* M M) l))) 1) #s(hole binary64 1))
#s(approx (+ (* (* (* D D) -1/8) (* (/ h (* d d)) (/ (* M M) l))) 1) #s(hole binary64 (+ 1 (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))))))
#s(approx (* -1/8 (/ (* (* (* (* M M) D) D) h) (* (* d d) l))) #s(hole binary64 (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l)))))
#s(approx (+ (* (* (* D D) -1/8) (/ (* (* M M) h) (* (* l d) d))) 1) #s(hole binary64 1))
#s(approx (+ (* (* (* D D) -1/8) (/ (* (* M M) h) (* (* l d) d))) 1) #s(hole binary64 (+ 1 (* -1/8 (/ (* (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 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 (+ (* (* h -1/4) (* M (* (* M D) (/ D (* (* l d) d))))) 1) #s(hole binary64 1))
#s(approx (+ (* (* h -1/4) (* M (* (* M D) (/ D (* (* l d) d))))) 1) #s(hole binary64 (+ 1 (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))))))
#s(approx (+ (* (* h -1/4) (/ (* (* (* M M) D) (/ D d)) (* l d))) 1) #s(hole binary64 1))
#s(approx (+ (* (* h -1/4) (/ (* (* (* M M) D) (/ D d)) (* l d))) 1) #s(hole binary64 (+ 1 (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l))) #s(hole binary64 (* (sqrt 1/2) (sqrt 2))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l))) #s(hole binary64 (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (* h (sqrt 1/2)))) (* (pow d 2) (* l (sqrt 2))))) (* (sqrt 1/2) (sqrt 2)))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l))) #s(hole binary64 (+ (* (sqrt 1/2) (sqrt 2)) (* (pow M 2) (+ (* -1/4 (/ (* (pow D 2) (* h (sqrt 1/2))) (* (pow d 2) (* l (sqrt 2))))) (* -1/32 (/ (* (pow D 4) (* (pow M 2) (* (pow h 2) (sqrt 1/2)))) (* (pow d 4) (* (pow l 2) (pow (sqrt 2) 3))))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l))) #s(hole binary64 (+ (* (sqrt 1/2) (sqrt 2)) (* (pow M 2) (+ (* -1/4 (/ (* (pow D 2) (* h (sqrt 1/2))) (* (pow d 2) (* l (sqrt 2))))) (* (pow M 2) (+ (* -1/32 (/ (* (pow D 4) (* (pow h 2) (sqrt 1/2))) (* (pow d 4) (* (pow l 2) (pow (sqrt 2) 3))))) (* -1/128 (/ (* (pow D 6) (* (pow M 2) (* (pow h 3) (sqrt 1/2)))) (* (pow d 6) (* (pow l 3) (pow (sqrt 2) 5))))))))))))
#s(approx (* h (* M (/ (/ D d) 2))) #s(hole binary64 (* 1/2 (/ (* D (* M h)) d))))
#s(approx (* M (/ (/ D d) 2)) #s(hole binary64 (* 1/2 (/ (* D M) d))))
#s(approx (/ (* (* (* (* M M) D) D) h) (* (* d d) l)) #s(hole binary64 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))))
#s(approx (/ (* (* M M) h) (* (* l d) d)) #s(hole binary64 (/ (* (pow M 2) h) (* (pow d 2) l))))
#s(approx (* (* M M) h) #s(hole binary64 (* (pow M 2) h)))
#s(approx (* (* M D) (/ D (* (* l d) d))) #s(hole binary64 (/ (* (pow D 2) M) (* (pow d 2) l))))
#s(approx (/ (* (* (* M M) D) (/ D d)) (* l d)) #s(hole binary64 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))))
#s(approx (* (* (* M M) D) (/ D d)) #s(hole binary64 (/ (* (pow D 2) (pow M 2)) d)))
#s(approx (* (* M M) D) #s(hole binary64 (* D (pow M 2))))
#s(approx (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)) #s(hole binary64 (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l)))))
#s(approx (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)) #s(hole binary64 (* (pow M 2) (+ (* -1/4 (/ (* (pow D 2) h) (* (pow d 2) l))) (/ 1 (pow M 2))))))
#s(approx (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) #s(hole binary64 (* -1/2 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))))
#s(approx (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) #s(hole binary64 (* (pow M 2) (- (* 2 (/ l (pow M 2))) (* 1/2 (/ (* (pow D 2) h) (pow d 2)))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)))) #s(hole binary64 (* (/ (* D (* M (* w0 (* (sqrt -1/2) (sqrt 1/2))))) d) (sqrt (/ h l)))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)))) #s(hole binary64 (* M (+ (* (/ (* D (* w0 (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (/ h l))) (* (/ (* d (* w0 (sqrt 1/2))) (* D (* (pow M 2) (sqrt -1/2)))) (sqrt (/ l h)))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)))) #s(hole binary64 (* M (+ (* -1/2 (* (/ (* (pow d 3) (* w0 (sqrt 1/2))) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* (/ (* D (* w0 (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (/ h l))) (* (/ (* d (* w0 (sqrt 1/2))) (* D (* (pow M 2) (sqrt -1/2)))) (sqrt (/ l h))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)))) #s(hole binary64 (* M (+ (* -1/2 (* (/ (* (pow d 3) (* w0 (sqrt 1/2))) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ (* (pow d 5) (* w0 (sqrt 1/2))) (* (pow D 5) (* (pow M 6) (pow (sqrt -1/2) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* (/ (* D (* w0 (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (/ h l))) (* (/ (* d (* w0 (sqrt 1/2))) (* D (* (pow M 2) (sqrt -1/2)))) (sqrt (/ l h)))))))))
#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) 3)))) (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) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 5) (* (pow M 6) (pow (sqrt -1/4) 5)))) (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) 3)))) (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) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (pow d 5) (* (pow D 5) (* (pow M 6) (pow (sqrt -1/4) 5)))) (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 (+ (* (* (* D D) -1/8) (* (/ h (* d d)) (/ (* M M) l))) 1) #s(hole binary64 (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l)))))
#s(approx (+ (* (* (* D D) -1/8) (* (/ h (* d d)) (/ (* M M) l))) 1) #s(hole binary64 (* (pow M 2) (+ (* -1/8 (/ (* (pow D 2) h) (* (pow d 2) l))) (/ 1 (pow M 2))))))
#s(approx (+ (* (* (* D D) -1/8) (/ (* (* M M) h) (* (* l d) d))) 1) #s(hole binary64 (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l)))))
#s(approx (+ (* (* (* D D) -1/8) (/ (* (* M M) h) (* (* l d) d))) 1) #s(hole binary64 (* (pow M 2) (+ (* -1/8 (/ (* (pow D 2) h) (* (pow d 2) l))) (/ 1 (pow M 2))))))
#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 (+ (* (* h -1/4) (* M (* (* M D) (/ D (* (* l d) d))))) 1) #s(hole binary64 (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l)))))
#s(approx (+ (* (* h -1/4) (* M (* (* M D) (/ D (* (* l d) d))))) 1) #s(hole binary64 (* (pow M 2) (+ (* -1/4 (/ (* (pow D 2) h) (* (pow d 2) l))) (/ 1 (pow M 2))))))
#s(approx (+ (* (* h -1/4) (/ (* (* (* M M) D) (/ D d)) (* l d))) 1) #s(hole binary64 (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l)))))
#s(approx (+ (* (* h -1/4) (/ (* (* (* M M) D) (/ D d)) (* l d))) 1) #s(hole binary64 (* (pow M 2) (+ (* -1/4 (/ (* (pow D 2) h) (* (pow d 2) l))) (/ 1 (pow M 2))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l))) #s(hole binary64 (* (/ (* D (* M (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (/ h l)))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l))) #s(hole binary64 (* M (+ (* (/ (* D (* (sqrt -1/2) (sqrt 1/2))) d) (sqrt (/ h l))) (* (/ (* d (sqrt 1/2)) (* D (* (pow M 2) (sqrt -1/2)))) (sqrt (/ l h)))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l))) #s(hole binary64 (* M (+ (* -1/2 (* (/ (* (pow d 3) (sqrt 1/2)) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* (/ (* D (* (sqrt -1/2) (sqrt 1/2))) d) (sqrt (/ h l))) (* (/ (* d (sqrt 1/2)) (* D (* (pow M 2) (sqrt -1/2)))) (sqrt (/ l h))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l))) #s(hole binary64 (* M (+ (* -1/2 (* (/ (* (pow d 3) (sqrt 1/2)) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ (* (pow d 5) (sqrt 1/2)) (* (pow D 5) (* (pow M 6) (pow (sqrt -1/2) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* (/ (* D (* (sqrt -1/2) (sqrt 1/2))) d) (sqrt (/ h l))) (* (/ (* d (sqrt 1/2)) (* D (* (pow M 2) (sqrt -1/2)))) (sqrt (/ l h)))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)))) #s(hole binary64 (* -1 (* (/ (* D (* M (* w0 (* (sqrt -1/2) (sqrt 1/2))))) d) (sqrt (/ h l))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)))) #s(hole binary64 (* -1 (* M (+ (* (/ (* D (* w0 (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (/ h l))) (* (/ (* d (* w0 (sqrt 1/2))) (* D (* (pow M 2) (sqrt -1/2)))) (sqrt (/ l h))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)))) #s(hole binary64 (* -1 (* M (+ (* -1/2 (* (/ (* (pow d 3) (* w0 (sqrt 1/2))) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* (/ (* D (* w0 (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (/ h l))) (* (/ (* d (* w0 (sqrt 1/2))) (* D (* (pow M 2) (sqrt -1/2)))) (sqrt (/ l h)))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)))) #s(hole binary64 (* -1 (* M (+ (* -1/2 (* (/ (* (pow d 3) (* w0 (sqrt 1/2))) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ (* (pow d 5) (* w0 (sqrt 1/2))) (* (pow D 5) (* (pow M 6) (pow (sqrt -1/2) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* (/ (* D (* w0 (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (/ h l))) (* (/ (* d (* w0 (sqrt 1/2))) (* D (* (pow M 2) (sqrt -1/2)))) (sqrt (/ l h))))))))))
#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) (pow (sqrt -1/4) 3)))) (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) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 5) (* (pow M 6) (pow (sqrt -1/4) 5)))) (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) 3)))) (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) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (pow d 5) (* (pow D 5) (* (pow M 6) (pow (sqrt -1/4) 5)))) (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 (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l))) #s(hole binary64 (* -1 (* (/ (* D (* M (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (/ h l))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l))) #s(hole binary64 (* -1 (* M (+ (* (/ (* D (* (sqrt -1/2) (sqrt 1/2))) d) (sqrt (/ h l))) (* (/ (* d (sqrt 1/2)) (* D (* (pow M 2) (sqrt -1/2)))) (sqrt (/ l h))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l))) #s(hole binary64 (* -1 (* M (+ (* -1/2 (* (/ (* (pow d 3) (sqrt 1/2)) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* (/ (* D (* (sqrt -1/2) (sqrt 1/2))) d) (sqrt (/ h l))) (* (/ (* d (sqrt 1/2)) (* D (* (pow M 2) (sqrt -1/2)))) (sqrt (/ l h)))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l))) #s(hole binary64 (* -1 (* M (+ (* -1/2 (* (/ (* (pow d 3) (sqrt 1/2)) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ (* (pow d 5) (sqrt 1/2)) (* (pow D 5) (* (pow M 6) (pow (sqrt -1/2) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* (/ (* D (* (sqrt -1/2) (sqrt 1/2))) d) (sqrt (/ h l))) (* (/ (* d (sqrt 1/2)) (* D (* (pow M 2) (sqrt -1/2)))) (sqrt (/ l h))))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)))) #s(hole binary64 (+ (* w0 (* (sqrt 1/2) (sqrt 2))) (* (pow D 2) (+ (* -1/4 (/ (* (pow M 2) (* h (* w0 (sqrt 1/2)))) (* (pow d 2) (* l (sqrt 2))))) (* -1/32 (/ (* (pow D 2) (* (pow M 4) (* (pow h 2) (* w0 (sqrt 1/2))))) (* (pow d 4) (* (pow l 2) (pow (sqrt 2) 3))))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)))) #s(hole binary64 (+ (* w0 (* (sqrt 1/2) (sqrt 2))) (* (pow D 2) (+ (* -1/4 (/ (* (pow M 2) (* h (* w0 (sqrt 1/2)))) (* (pow d 2) (* l (sqrt 2))))) (* (pow D 2) (+ (* -1/32 (/ (* (pow M 4) (* (pow h 2) (* w0 (sqrt 1/2)))) (* (pow d 4) (* (pow l 2) (pow (sqrt 2) 3))))) (* -1/128 (/ (* (pow D 2) (* (pow M 6) (* (pow h 3) (* w0 (sqrt 1/2))))) (* (pow d 6) (* (pow l 3) (pow (sqrt 2) 5))))))))))))
#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 D) -1/8) #s(hole binary64 (* -1/8 (pow D 2))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l))) #s(hole binary64 (+ (* (sqrt 1/2) (sqrt 2)) (* (pow D 2) (+ (* -1/4 (/ (* (pow M 2) (* h (sqrt 1/2))) (* (pow d 2) (* l (sqrt 2))))) (* -1/32 (/ (* (pow D 2) (* (pow M 4) (* (pow h 2) (sqrt 1/2)))) (* (pow d 4) (* (pow l 2) (pow (sqrt 2) 3))))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l))) #s(hole binary64 (+ (* (sqrt 1/2) (sqrt 2)) (* (pow D 2) (+ (* -1/4 (/ (* (pow M 2) (* h (sqrt 1/2))) (* (pow d 2) (* l (sqrt 2))))) (* (pow D 2) (+ (* -1/32 (/ (* (pow M 4) (* (pow h 2) (sqrt 1/2))) (* (pow d 4) (* (pow l 2) (pow (sqrt 2) 3))))) (* -1/128 (/ (* (pow D 2) (* (pow M 6) (* (pow h 3) (sqrt 1/2)))) (* (pow d 6) (* (pow l 3) (pow (sqrt 2) 5))))))))))))
#s(approx (/ D (* (* l d) d)) #s(hole binary64 (/ D (* (pow d 2) l))))
#s(approx (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)) #s(hole binary64 (* (pow D 2) (+ (* -1/4 (/ (* (pow M 2) h) (* (pow d 2) l))) (/ 1 (pow D 2))))))
#s(approx (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) #s(hole binary64 (* (pow D 2) (- (* 2 (/ l (pow D 2))) (* 1/2 (/ (* (pow M 2) h) (pow d 2)))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)))) #s(hole binary64 (* D (+ (* (/ (* M (* w0 (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (/ h l))) (* (/ (* d (* w0 (sqrt 1/2))) (* (pow D 2) (* M (sqrt -1/2)))) (sqrt (/ l h)))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)))) #s(hole binary64 (* D (+ (* -1/2 (* (/ (* (pow d 3) (* w0 (sqrt 1/2))) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* (/ (* M (* w0 (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (/ h l))) (* (/ (* d (* w0 (sqrt 1/2))) (* (pow D 2) (* M (sqrt -1/2)))) (sqrt (/ l h))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)))) #s(hole binary64 (* D (+ (* -1/2 (* (/ (* (pow d 3) (* w0 (sqrt 1/2))) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ (* (pow d 5) (* w0 (sqrt 1/2))) (* (pow D 6) (* (pow M 5) (pow (sqrt -1/2) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* (/ (* M (* w0 (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (/ h l))) (* (/ (* d (* w0 (sqrt 1/2))) (* (pow D 2) (* M (sqrt -1/2)))) (sqrt (/ l h)))))))))
#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) 3)))) (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) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 6) (* (pow M 5) (pow (sqrt -1/4) 5)))) (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) 3)))) (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) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (pow d 5) (* (pow D 6) (* (pow M 5) (pow (sqrt -1/4) 5)))) (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 (+ (* (* (* D D) -1/8) (* (/ h (* d d)) (/ (* M M) l))) 1) #s(hole binary64 (* (pow D 2) (+ (* -1/8 (/ (* (pow M 2) h) (* (pow d 2) l))) (/ 1 (pow D 2))))))
#s(approx (+ (* (* (* D D) -1/8) (/ (* (* M M) h) (* (* l d) d))) 1) #s(hole binary64 (* (pow D 2) (+ (* -1/8 (/ (* (pow M 2) h) (* (pow d 2) l))) (/ 1 (pow D 2))))))
#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 (+ (* (* h -1/4) (* M (* (* M D) (/ D (* (* l d) d))))) 1) #s(hole binary64 (* (pow D 2) (+ (* -1/4 (/ (* (pow M 2) h) (* (pow d 2) l))) (/ 1 (pow D 2))))))
#s(approx (+ (* (* h -1/4) (/ (* (* (* M M) D) (/ D d)) (* l d))) 1) #s(hole binary64 (* (pow D 2) (+ (* -1/4 (/ (* (pow M 2) h) (* (pow d 2) l))) (/ 1 (pow D 2))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l))) #s(hole binary64 (* D (+ (* (/ (* M (* (sqrt -1/2) (sqrt 1/2))) d) (sqrt (/ h l))) (* (/ (* d (sqrt 1/2)) (* (pow D 2) (* M (sqrt -1/2)))) (sqrt (/ l h)))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l))) #s(hole binary64 (* D (+ (* -1/2 (* (/ (* (pow d 3) (sqrt 1/2)) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* (/ (* M (* (sqrt -1/2) (sqrt 1/2))) d) (sqrt (/ h l))) (* (/ (* d (sqrt 1/2)) (* (pow D 2) (* M (sqrt -1/2)))) (sqrt (/ l h))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l))) #s(hole binary64 (* D (+ (* -1/2 (* (/ (* (pow d 3) (sqrt 1/2)) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ (* (pow d 5) (sqrt 1/2)) (* (pow D 6) (* (pow M 5) (pow (sqrt -1/2) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* (/ (* M (* (sqrt -1/2) (sqrt 1/2))) d) (sqrt (/ h l))) (* (/ (* d (sqrt 1/2)) (* (pow D 2) (* M (sqrt -1/2)))) (sqrt (/ l h)))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)))) #s(hole binary64 (* -1 (* D (+ (* (/ (* M (* w0 (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (/ h l))) (* (/ (* d (* w0 (sqrt 1/2))) (* (pow D 2) (* M (sqrt -1/2)))) (sqrt (/ l h))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)))) #s(hole binary64 (* -1 (* D (+ (* -1/2 (* (/ (* (pow d 3) (* w0 (sqrt 1/2))) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* (/ (* M (* w0 (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (/ h l))) (* (/ (* d (* w0 (sqrt 1/2))) (* (pow D 2) (* M (sqrt -1/2)))) (sqrt (/ l h)))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)))) #s(hole binary64 (* -1 (* D (+ (* -1/2 (* (/ (* (pow d 3) (* w0 (sqrt 1/2))) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ (* (pow d 5) (* w0 (sqrt 1/2))) (* (pow D 6) (* (pow M 5) (pow (sqrt -1/2) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* (/ (* M (* w0 (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (/ h l))) (* (/ (* d (* w0 (sqrt 1/2))) (* (pow D 2) (* M (sqrt -1/2)))) (sqrt (/ l h))))))))))
#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) 3)))) (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) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 6) (* (pow M 5) (pow (sqrt -1/4) 5)))) (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) 3)))) (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) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (pow d 5) (* (pow D 6) (* (pow M 5) (pow (sqrt -1/4) 5)))) (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 (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l))) #s(hole binary64 (* -1 (* D (+ (* (/ (* M (* (sqrt -1/2) (sqrt 1/2))) d) (sqrt (/ h l))) (* (/ (* d (sqrt 1/2)) (* (pow D 2) (* M (sqrt -1/2)))) (sqrt (/ l h))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l))) #s(hole binary64 (* -1 (* D (+ (* -1/2 (* (/ (* (pow d 3) (sqrt 1/2)) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* (/ (* M (* (sqrt -1/2) (sqrt 1/2))) d) (sqrt (/ h l))) (* (/ (* d (sqrt 1/2)) (* (pow D 2) (* M (sqrt -1/2)))) (sqrt (/ l h)))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l))) #s(hole binary64 (* -1 (* D (+ (* -1/2 (* (/ (* (pow d 3) (sqrt 1/2)) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ (* (pow d 5) (sqrt 1/2)) (* (pow D 6) (* (pow M 5) (pow (sqrt -1/2) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* (/ (* M (* (sqrt -1/2) (sqrt 1/2))) d) (sqrt (/ h l))) (* (/ (* d (sqrt 1/2)) (* (pow D 2) (* M (sqrt -1/2)))) (sqrt (/ l h))))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)))) #s(hole binary64 (+ (* h (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (* w0 (sqrt 1/2)))) (* (pow d 2) (* l (sqrt 2))))) (* -1/32 (/ (* (pow D 4) (* (pow M 4) (* h (* w0 (sqrt 1/2))))) (* (pow d 4) (* (pow l 2) (pow (sqrt 2) 3))))))) (* w0 (* (sqrt 1/2) (sqrt 2))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)))) #s(hole binary64 (+ (* h (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (* w0 (sqrt 1/2)))) (* (pow d 2) (* l (sqrt 2))))) (* h (+ (* -1/32 (/ (* (pow D 4) (* (pow M 4) (* w0 (sqrt 1/2)))) (* (pow d 4) (* (pow l 2) (pow (sqrt 2) 3))))) (* -1/128 (/ (* (pow D 6) (* (pow M 6) (* h (* w0 (sqrt 1/2))))) (* (pow d 6) (* (pow l 3) (pow (sqrt 2) 5))))))))) (* w0 (* (sqrt 1/2) (sqrt 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))) (* -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 (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l))) #s(hole binary64 (+ (* h (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (sqrt 1/2))) (* (pow d 2) (* l (sqrt 2))))) (* -1/32 (/ (* (pow D 4) (* (pow M 4) (* h (sqrt 1/2)))) (* (pow d 4) (* (pow l 2) (pow (sqrt 2) 3))))))) (* (sqrt 1/2) (sqrt 2)))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l))) #s(hole binary64 (+ (* h (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (sqrt 1/2))) (* (pow d 2) (* l (sqrt 2))))) (* h (+ (* -1/32 (/ (* (pow D 4) (* (pow M 4) (sqrt 1/2))) (* (pow d 4) (* (pow l 2) (pow (sqrt 2) 3))))) (* -1/128 (/ (* (pow D 6) (* (pow M 6) (* h (sqrt 1/2)))) (* (pow d 6) (* (pow l 3) (pow (sqrt 2) 5))))))))) (* (sqrt 1/2) (sqrt 2)))))
#s(approx (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)) #s(hole binary64 (* h (+ (* -1/4 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (/ 1 h)))))
#s(approx (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) #s(hole binary64 (* h (- (* 2 (/ l h)) (* 1/2 (/ (* (pow D 2) (pow M 2)) (pow d 2)))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)))) #s(hole binary64 (* h (+ (* (/ (* D (* M (* w0 (* (sqrt -1/2) (sqrt 1/2))))) d) (sqrt (/ 1 (* h l)))) (* (/ (* d (* w0 (sqrt 1/2))) (* D (* M (sqrt -1/2)))) (sqrt (/ l (pow h 3))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)))) #s(hole binary64 (* h (+ (* -1/2 (* (/ (* (pow d 3) (* w0 (sqrt 1/2))) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* (/ (* D (* M (* w0 (* (sqrt -1/2) (sqrt 1/2))))) d) (sqrt (/ 1 (* h l)))) (* (/ (* d (* w0 (sqrt 1/2))) (* D (* M (sqrt -1/2)))) (sqrt (/ l (pow h 3)))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)))) #s(hole binary64 (* h (+ (* -1/2 (* (/ (* (pow d 3) (* w0 (sqrt 1/2))) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/2 (* (/ (* (pow d 5) (* w0 (sqrt 1/2))) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/2) 5)))) (sqrt (/ (pow l 5) (pow h 7))))) (+ (* (/ (* D (* M (* w0 (* (sqrt -1/2) (sqrt 1/2))))) d) (sqrt (/ 1 (* h l)))) (* (/ (* d (* w0 (sqrt 1/2))) (* D (* M (sqrt -1/2)))) (sqrt (/ l (pow h 3))))))))))
#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) 3)))) (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) 3)))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/4) 5)))) (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) 3)))) (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) 3)))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/16 (* (/ (pow d 5) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/4) 5)))) (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 (+ (* (* (* D D) -1/8) (* (/ h (* d d)) (/ (* M M) l))) 1) #s(hole binary64 (* h (+ (* -1/8 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (/ 1 h)))))
#s(approx (+ (* (* (* D D) -1/8) (/ (* (* M M) h) (* (* l d) d))) 1) #s(hole binary64 (* h (+ (* -1/8 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (/ 1 h)))))
#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 (+ (* (* h -1/4) (* M (* (* M D) (/ D (* (* l d) d))))) 1) #s(hole binary64 (* h (+ (* -1/4 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (/ 1 h)))))
#s(approx (+ (* (* h -1/4) (/ (* (* (* M M) D) (/ D d)) (* l d))) 1) #s(hole binary64 (* h (+ (* -1/4 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (/ 1 h)))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l))) #s(hole binary64 (* h (+ (* (/ (* D (* M (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (/ 1 (* h l)))) (* (/ (* d (sqrt 1/2)) (* D (* M (sqrt -1/2)))) (sqrt (/ l (pow h 3))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l))) #s(hole binary64 (* h (+ (* -1/2 (* (/ (* (pow d 3) (sqrt 1/2)) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* (/ (* D (* M (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (/ 1 (* h l)))) (* (/ (* d (sqrt 1/2)) (* D (* M (sqrt -1/2)))) (sqrt (/ l (pow h 3)))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l))) #s(hole binary64 (* h (+ (* -1/2 (* (/ (* (pow d 3) (sqrt 1/2)) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/2 (* (/ (* (pow d 5) (sqrt 1/2)) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/2) 5)))) (sqrt (/ (pow l 5) (pow h 7))))) (+ (* (/ (* D (* M (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (/ 1 (* h l)))) (* (/ (* d (sqrt 1/2)) (* D (* M (sqrt -1/2)))) (sqrt (/ l (pow h 3))))))))))
#s(approx (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)) #s(hole binary64 (* -1 (* h (- (* 1/4 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (/ 1 h))))))
#s(approx (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) #s(hole binary64 (* -1 (* h (- (* -2 (/ l h)) (* -1/2 (/ (* (pow D 2) (pow M 2)) (pow d 2))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)))) #s(hole binary64 (* -1 (* (/ (* D (* M (* w0 (* (sqrt -1) (pow (sqrt 1/2) 2))))) d) (sqrt (/ h l))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)))) #s(hole binary64 (* -1 (* h (+ (* (/ (* D (* M (* w0 (* (sqrt -1) (pow (sqrt 1/2) 2))))) d) (sqrt (/ 1 (* h l)))) (* (/ (* d (* w0 (sqrt -1))) (* D M)) (sqrt (/ l (pow h 3)))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)))) #s(hole binary64 (* -1 (* h (+ (* -1/2 (* (/ (* (pow d 3) (* w0 (sqrt -1))) (* (pow D 3) (* (pow M 3) (pow (sqrt 1/2) 2)))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* (/ (* D (* M (* w0 (* (sqrt -1) (pow (sqrt 1/2) 2))))) d) (sqrt (/ 1 (* h l)))) (* (/ (* d (* w0 (sqrt -1))) (* D M)) (sqrt (/ l (pow h 3))))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)))) #s(hole binary64 (* -1 (* h (+ (* -1/2 (* (/ (* (pow d 3) (* w0 (sqrt -1))) (* (pow D 3) (* (pow M 3) (pow (sqrt 1/2) 2)))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/2 (* (/ (* (pow d 5) (* w0 (sqrt -1))) (* (pow D 5) (* (pow M 5) (pow (sqrt 1/2) 4)))) (sqrt (/ (pow l 5) (pow h 7))))) (+ (* (/ (* D (* M (* w0 (* (sqrt -1) (pow (sqrt 1/2) 2))))) 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/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 (+ (* (* (* D D) -1/8) (* (/ h (* d d)) (/ (* M M) l))) 1) #s(hole binary64 (* -1 (* h (- (* 1/8 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (/ 1 h))))))
#s(approx (+ (* (* (* D D) -1/8) (/ (* (* M M) h) (* (* l d) d))) 1) #s(hole binary64 (* -1 (* h (- (* 1/8 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (/ 1 h))))))
#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 (+ (* (* h -1/4) (* M (* (* M D) (/ D (* (* l d) d))))) 1) #s(hole binary64 (* -1 (* h (- (* 1/4 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (/ 1 h))))))
#s(approx (+ (* (* h -1/4) (/ (* (* (* M M) D) (/ D d)) (* l d))) 1) #s(hole binary64 (* -1 (* h (- (* 1/4 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (/ 1 h))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l))) #s(hole binary64 (* -1 (* (/ (* D (* M (* (sqrt -1) (pow (sqrt 1/2) 2)))) d) (sqrt (/ h l))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l))) #s(hole binary64 (* -1 (* h (+ (* (/ (* D (* M (* (sqrt -1) (pow (sqrt 1/2) 2)))) d) (sqrt (/ 1 (* h l)))) (* (/ (* d (sqrt -1)) (* D M)) (sqrt (/ l (pow h 3)))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l))) #s(hole binary64 (* -1 (* h (+ (* -1/2 (* (/ (* (pow d 3) (sqrt -1)) (* (pow D 3) (* (pow M 3) (pow (sqrt 1/2) 2)))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* (/ (* D (* M (* (sqrt -1) (pow (sqrt 1/2) 2)))) d) (sqrt (/ 1 (* h l)))) (* (/ (* d (sqrt -1)) (* D M)) (sqrt (/ l (pow h 3))))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l))) #s(hole binary64 (* -1 (* h (+ (* -1/2 (* (/ (* (pow d 3) (sqrt -1)) (* (pow D 3) (* (pow M 3) (pow (sqrt 1/2) 2)))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/2 (* (/ (* (pow d 5) (sqrt -1)) (* (pow D 5) (* (pow M 5) (pow (sqrt 1/2) 4)))) (sqrt (/ (pow l 5) (pow h 7))))) (+ (* (/ (* D (* M (* (sqrt -1) (pow (sqrt 1/2) 2)))) d) (sqrt (/ 1 (* h l)))) (* (/ (* d (sqrt -1)) (* D M)) (sqrt (/ l (pow h 3)))))))))))
#s(approx (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)) #s(hole binary64 (/ (+ l (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l)))
#s(approx (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) #s(hole binary64 (- (* 2 l) (* 1/2 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)))) #s(hole binary64 (/ (+ (* (/ (* D (* M (* w0 (* (sqrt -1/2) (sqrt 1/2))))) d) (sqrt (* h l))) (* (/ (* d (* w0 (sqrt 1/2))) (* D (* M (sqrt -1/2)))) (sqrt (/ (pow l 3) h)))) l)))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)))) #s(hole binary64 (/ (+ (* (/ (* D (* M (* w0 (* (sqrt -1/2) (sqrt 1/2))))) d) (sqrt (* h l))) (* (pow l 2) (+ (* -1/2 (* (/ (* (pow d 3) (* w0 (sqrt 1/2))) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ l (pow h 3))))) (* (/ (* d (* w0 (sqrt 1/2))) (* D (* M (sqrt -1/2)))) (sqrt (/ 1 (* h l))))))) l)))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)))) #s(hole binary64 (/ (+ (* (/ (* D (* M (* w0 (* (sqrt -1/2) (sqrt 1/2))))) d) (sqrt (* h l))) (* (pow l 2) (+ (* (/ (* d (* w0 (sqrt 1/2))) (* D (* M (sqrt -1/2)))) (sqrt (/ 1 (* h l)))) (* (pow l 2) (+ (* -1/2 (* (/ (* (pow d 3) (* w0 (sqrt 1/2))) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ 1 (* (pow h 3) (pow l 3)))))) (* 1/2 (* (/ (* (pow d 5) (* w0 (sqrt 1/2))) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/2) 5)))) (sqrt (/ 1 (* (pow h 5) l)))))))))) l)))
#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) 3)))) (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) 3)))) (sqrt (/ 1 (* (pow h 3) (pow l 3)))))) (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/4) 5)))) (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) 3)))) (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) 3)))) (sqrt (/ 1 (* (pow h 3) (pow l 3)))))) (* 1/16 (* (/ (pow d 5) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ 1 (* (pow h 5) l)))))))))) l)))
#s(approx (+ (* (* (* D D) -1/8) (* (/ h (* d d)) (/ (* M M) l))) 1) #s(hole binary64 (/ (+ l (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l)))
#s(approx (+ (* (* (* D D) -1/8) (/ (* (* M M) h) (* (* l d) d))) 1) #s(hole binary64 (/ (+ l (* -1/8 (/ (* (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 (/ (- l (* 1/4 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l)))
#s(approx (+ (* (* h -1/4) (* M (* (* M D) (/ D (* (* l d) d))))) 1) #s(hole binary64 (/ (+ l (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l)))
#s(approx (+ (* (* h -1/4) (/ (* (* (* M M) D) (/ D d)) (* l d))) 1) #s(hole binary64 (/ (+ l (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l)))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l))) #s(hole binary64 (/ (+ (* (/ (* D (* M (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (* h l))) (* (/ (* d (sqrt 1/2)) (* D (* M (sqrt -1/2)))) (sqrt (/ (pow l 3) h)))) l)))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l))) #s(hole binary64 (/ (+ (* (/ (* D (* M (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (* h l))) (* (pow l 2) (+ (* -1/2 (* (/ (* (pow d 3) (sqrt 1/2)) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ l (pow h 3))))) (* (/ (* d (sqrt 1/2)) (* D (* M (sqrt -1/2)))) (sqrt (/ 1 (* h l))))))) l)))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l))) #s(hole binary64 (/ (+ (* (/ (* D (* M (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (* h l))) (* (pow l 2) (+ (* (/ (* d (sqrt 1/2)) (* D (* M (sqrt -1/2)))) (sqrt (/ 1 (* h l)))) (* (pow l 2) (+ (* -1/2 (* (/ (* (pow d 3) (sqrt 1/2)) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ 1 (* (pow h 3) (pow l 3)))))) (* 1/2 (* (/ (* (pow d 5) (sqrt 1/2)) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/2) 5)))) (sqrt (/ 1 (* (pow h 5) l)))))))))) l)))
#s(approx (* (* d d) l) #s(hole binary64 (* (pow d 2) l)))
#s(approx (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) #s(hole binary64 (* l (+ 2 (* -1/2 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l)))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)))) #s(hole binary64 (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (* h (* w0 (sqrt 1/2))))) (* (pow d 2) (* l (sqrt 2))))) (+ (* -1/32 (/ (* (pow D 4) (* (pow M 4) (* (pow h 2) (* w0 (sqrt 1/2))))) (* (pow d 4) (* (pow l 2) (pow (sqrt 2) 3))))) (* w0 (* (sqrt 1/2) (sqrt 2)))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)))) #s(hole binary64 (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (* h (* w0 (sqrt 1/2))))) (* (pow d 2) (* l (sqrt 2))))) (+ (* -1/32 (/ (* (pow D 4) (* (pow M 4) (* (pow h 2) (* w0 (sqrt 1/2))))) (* (pow d 4) (* (pow l 2) (pow (sqrt 2) 3))))) (+ (* -1/128 (/ (* (pow D 6) (* (pow M 6) (* (pow h 3) (* w0 (sqrt 1/2))))) (* (pow d 6) (* (pow l 3) (pow (sqrt 2) 5))))) (* w0 (* (sqrt 1/2) (sqrt 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))))))))
#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 (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l))) #s(hole binary64 (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (* h (sqrt 1/2)))) (* (pow d 2) (* l (sqrt 2))))) (+ (* -1/32 (/ (* (pow D 4) (* (pow M 4) (* (pow h 2) (sqrt 1/2)))) (* (pow d 4) (* (pow l 2) (pow (sqrt 2) 3))))) (* (sqrt 1/2) (sqrt 2))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l))) #s(hole binary64 (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (* h (sqrt 1/2)))) (* (pow d 2) (* l (sqrt 2))))) (+ (* -1/32 (/ (* (pow D 4) (* (pow M 4) (* (pow h 2) (sqrt 1/2)))) (* (pow d 4) (* (pow l 2) (pow (sqrt 2) 3))))) (+ (* -1/128 (/ (* (pow D 6) (* (pow M 6) (* (pow h 3) (sqrt 1/2)))) (* (pow d 6) (* (pow l 3) (pow (sqrt 2) 5))))) (* (sqrt 1/2) (sqrt 2)))))))
#s(approx (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) #s(hole binary64 (* -1 (* l (- (* 1/2 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))) 2)))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)))) #s(hole binary64 (+ (* -1 (/ (+ (* 1/32 (/ (* (pow D 4) (* (pow M 4) (* (pow h 2) (* w0 (sqrt 1/2))))) (* (pow d 4) (* l (pow (sqrt 2) 3))))) (* 1/4 (/ (* (pow D 2) (* (pow M 2) (* h (* w0 (sqrt 1/2))))) (* (pow d 2) (sqrt 2))))) l)) (* w0 (* (sqrt 1/2) (sqrt 2))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1 (/ (+ (* -1/32 (/ (* (pow D 4) (* (pow M 4) (* (pow h 2) (* w0 (sqrt 1/2))))) (* (pow d 4) (pow (sqrt 2) 3)))) (* -1/128 (/ (* (pow D 6) (* (pow M 6) (* (pow h 3) (* w0 (sqrt 1/2))))) (* (pow d 6) (* l (pow (sqrt 2) 5)))))) l)) (* 1/4 (/ (* (pow D 2) (* (pow M 2) (* h (* w0 (sqrt 1/2))))) (* (pow d 2) (sqrt 2))))) l)) (* w0 (* (sqrt 1/2) (sqrt 2))))))
#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 (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l))) #s(hole binary64 (+ (* -1 (/ (+ (* 1/32 (/ (* (pow D 4) (* (pow M 4) (* (pow h 2) (sqrt 1/2)))) (* (pow d 4) (* l (pow (sqrt 2) 3))))) (* 1/4 (/ (* (pow D 2) (* (pow M 2) (* h (sqrt 1/2)))) (* (pow d 2) (sqrt 2))))) l)) (* (sqrt 1/2) (sqrt 2)))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l))) #s(hole binary64 (+ (* -1 (/ (+ (* -1 (/ (+ (* -1/32 (/ (* (pow D 4) (* (pow M 4) (* (pow h 2) (sqrt 1/2)))) (* (pow d 4) (pow (sqrt 2) 3)))) (* -1/128 (/ (* (pow D 6) (* (pow M 6) (* (pow h 3) (sqrt 1/2)))) (* (pow d 6) (* l (pow (sqrt 2) 5)))))) l)) (* 1/4 (/ (* (pow D 2) (* (pow M 2) (* h (sqrt 1/2)))) (* (pow d 2) (sqrt 2))))) l)) (* (sqrt 1/2) (sqrt 2)))))
#s(approx (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)) #s(hole binary64 (/ (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) l)) (pow d 2)) (pow d 2))))
#s(approx (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) #s(hole binary64 (/ (- (* 2 (* (pow d 2) l)) (* 1/2 (* (pow D 2) (* (pow M 2) h)))) (pow d 2))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)))) #s(hole binary64 (/ (+ (* (* D (* M (* w0 (* (sqrt -1/2) (sqrt 1/2))))) (sqrt (/ h l))) (* (/ (* (pow d 2) (* w0 (sqrt 1/2))) (* D (* M (sqrt -1/2)))) (sqrt (/ l h)))) d)))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)))) #s(hole binary64 (/ (+ (* (* D (* M (* w0 (* (sqrt -1/2) (sqrt 1/2))))) (sqrt (/ h l))) (* (pow d 2) (+ (* -1/2 (* (/ (* (pow d 2) (* w0 (sqrt 1/2))) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (* (/ (* w0 (sqrt 1/2)) (* D (* M (sqrt -1/2)))) (sqrt (/ l h)))))) d)))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)))) #s(hole binary64 (/ (+ (* (* D (* M (* w0 (* (sqrt -1/2) (sqrt 1/2))))) (sqrt (/ h l))) (* (pow d 2) (+ (* (/ (* w0 (sqrt 1/2)) (* D (* M (sqrt -1/2)))) (sqrt (/ l h))) (* (pow d 2) (+ (* -1/2 (* (/ (* w0 (sqrt 1/2)) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (* 1/2 (* (/ (* (pow d 2) (* w0 (sqrt 1/2))) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/2) 5)))) (sqrt (/ (pow l 5) (pow h 5)))))))))) d)))
#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) 3)))) (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) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (* 1/16 (* (/ (* (pow d 2) w0) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/4) 5)))) (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) 3)))) (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) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (* 1/16 (* (/ (pow d 2) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5)))))))))) d)))
#s(approx (+ (* (* (* D D) -1/8) (* (/ h (* d d)) (/ (* M M) l))) 1) #s(hole binary64 (/ (+ (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) l)) (pow d 2)) (pow d 2))))
#s(approx (+ (* (* (* D D) -1/8) (/ (* (* M M) h) (* (* l d) d))) 1) #s(hole binary64 (/ (+ (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) l)) (pow d 2)) (pow d 2))))
#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 (+ (* (* h -1/4) (* M (* (* M D) (/ D (* (* l d) d))))) 1) #s(hole binary64 (/ (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) l)) (pow d 2)) (pow d 2))))
#s(approx (+ (* (* h -1/4) (/ (* (* (* M M) D) (/ D d)) (* l d))) 1) #s(hole binary64 (/ (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) l)) (pow d 2)) (pow d 2))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l))) #s(hole binary64 (/ (+ (* (* D (* M (* (sqrt -1/2) (sqrt 1/2)))) (sqrt (/ h l))) (* (/ (* (pow d 2) (sqrt 1/2)) (* D (* M (sqrt -1/2)))) (sqrt (/ l h)))) d)))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l))) #s(hole binary64 (/ (+ (* (* D (* M (* (sqrt -1/2) (sqrt 1/2)))) (sqrt (/ h l))) (* (pow d 2) (+ (* -1/2 (* (/ (* (pow d 2) (sqrt 1/2)) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (* (/ (sqrt 1/2) (* D (* M (sqrt -1/2)))) (sqrt (/ l h)))))) d)))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l))) #s(hole binary64 (/ (+ (* (* D (* M (* (sqrt -1/2) (sqrt 1/2)))) (sqrt (/ h l))) (* (pow d 2) (+ (* (/ (sqrt 1/2) (* D (* M (sqrt -1/2)))) (sqrt (/ l h))) (* (pow d 2) (+ (* -1/2 (* (/ (sqrt 1/2) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (* 1/2 (* (/ (* (pow d 2) (sqrt 1/2)) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/2) 5)))) (sqrt (/ (pow l 5) (pow h 5)))))))))) d)))

Calls

18 calls:

Time	Variable		Point	Expression
8.0ms	d	@	0	((/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)) (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)) (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* w0 (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)))) (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (+ (* (* (* D D) -1/8) (* (/ h (* d d)) (/ (* M M) l))) 1) (* -1/8 (/ (* (* (* (* M M) D) D) h) (* (* d d) l))) (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (+ (* (* (* D D) -1/8) (/ (* (* M M) h) (* (* l d) d))) 1) (* (* D D) -1/8) (* 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))) (+ (* (* h -1/4) (* M (* (* M D) (/ D (* (* l d) d))))) 1) (* 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))) (+ (* (* h -1/4) (/ (* (* (* M M) D) (/ D d)) (* l d))) 1) (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l))) (* h (* M (/ (/ D d) 2))) (* M (/ (/ D d) 2)) (/ (* (* (* (* M M) D) D) h) (* (* d d) l)) (* (* d d) l) (/ (* (* M M) h) (* (* l d) d)) (* (* M M) h) (* (* M D) (/ D (* (* l d) d))) (/ D (* (* l d) d)) (/ (* (* (* M M) D) (/ D d)) (* l d)) (* (* (* M M) D) (/ D d)) (* (* M M) D))
8.0ms	D	@	inf	((/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)) (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)) (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* w0 (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)))) (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (+ (* (* (* D D) -1/8) (* (/ h (* d d)) (/ (* M M) l))) 1) (* -1/8 (/ (* (* (* (* M M) D) D) h) (* (* d d) l))) (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (+ (* (* (* D D) -1/8) (/ (* (* M M) h) (* (* l d) d))) 1) (* (* D D) -1/8) (* 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))) (+ (* (* h -1/4) (* M (* (* M D) (/ D (* (* l d) d))))) 1) (* 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))) (+ (* (* h -1/4) (/ (* (* (* M M) D) (/ D d)) (* l d))) 1) (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l))) (* h (* M (/ (/ D d) 2))) (* M (/ (/ D d) 2)) (/ (* (* (* (* M M) D) D) h) (* (* d d) l)) (* (* d d) l) (/ (* (* M M) h) (* (* l d) d)) (* (* M M) h) (* (* M D) (/ D (* (* l d) d))) (/ D (* (* l d) d)) (/ (* (* (* M M) D) (/ D d)) (* l d)) (* (* (* M M) D) (/ D d)) (* (* M M) D))
8.0ms	M	@	inf	((/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)) (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)) (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* w0 (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)))) (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (+ (* (* (* D D) -1/8) (* (/ h (* d d)) (/ (* M M) l))) 1) (* -1/8 (/ (* (* (* (* M M) D) D) h) (* (* d d) l))) (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (+ (* (* (* D D) -1/8) (/ (* (* M M) h) (* (* l d) d))) 1) (* (* D D) -1/8) (* 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))) (+ (* (* h -1/4) (* M (* (* M D) (/ D (* (* l d) d))))) 1) (* 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))) (+ (* (* h -1/4) (/ (* (* (* M M) D) (/ D d)) (* l d))) 1) (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l))) (* h (* M (/ (/ D d) 2))) (* M (/ (/ D d) 2)) (/ (* (* (* (* M M) D) D) h) (* (* d d) l)) (* (* d d) l) (/ (* (* M M) h) (* (* l d) d)) (* (* M M) h) (* (* M D) (/ D (* (* l d) d))) (/ D (* (* l d) d)) (/ (* (* (* M M) D) (/ D d)) (* l d)) (* (* (* M M) D) (/ D d)) (* (* M M) D))
7.0ms	D	@	-inf	((/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)) (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)) (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* w0 (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)))) (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (+ (* (* (* D D) -1/8) (* (/ h (* d d)) (/ (* M M) l))) 1) (* -1/8 (/ (* (* (* (* M M) D) D) h) (* (* d d) l))) (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (+ (* (* (* D D) -1/8) (/ (* (* M M) h) (* (* l d) d))) 1) (* (* D D) -1/8) (* 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))) (+ (* (* h -1/4) (* M (* (* M D) (/ D (* (* l d) d))))) 1) (* 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))) (+ (* (* h -1/4) (/ (* (* (* M M) D) (/ D d)) (* l d))) 1) (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l))) (* h (* M (/ (/ D d) 2))) (* M (/ (/ D d) 2)) (/ (* (* (* (* M M) D) D) h) (* (* d d) l)) (* (* d d) l) (/ (* (* M M) h) (* (* l d) d)) (* (* M M) h) (* (* M D) (/ D (* (* l d) d))) (/ D (* (* l d) d)) (/ (* (* (* M M) D) (/ D d)) (* l d)) (* (* (* M M) D) (/ D d)) (* (* M M) D))
7.0ms	h	@	inf	((/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)) (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)) (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* w0 (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)))) (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (+ (* (* (* D D) -1/8) (* (/ h (* d d)) (/ (* M M) l))) 1) (* -1/8 (/ (* (* (* (* M M) D) D) h) (* (* d d) l))) (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (+ (* (* (* D D) -1/8) (/ (* (* M M) h) (* (* l d) d))) 1) (* (* D D) -1/8) (* 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))) (+ (* (* h -1/4) (* M (* (* M D) (/ D (* (* l d) d))))) 1) (* 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))) (+ (* (* h -1/4) (/ (* (* (* M M) D) (/ D d)) (* l d))) 1) (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l))) (* h (* M (/ (/ D d) 2))) (* M (/ (/ D d) 2)) (/ (* (* (* (* M M) D) D) h) (* (* d d) l)) (* (* d d) l) (/ (* (* M M) h) (* (* l d) d)) (* (* M M) h) (* (* M D) (/ D (* (* l d) d))) (/ D (* (* l d) d)) (/ (* (* (* M M) D) (/ D d)) (* l d)) (* (* (* M M) D) (/ D d)) (* (* M M) D))

simplify237.0ms (2.6%)

Memory

16.2MiB live, 299.9MiB allocated; 85ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	1523	15727
1	5349	15611
0	8566	15240

Stop Event

1×	iter limit
1×	node limit

Counts

237 → 237

Calls

Call 1

Inputs
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)))) #s(hole binary64 (* (sqrt (/ (- (* 2 l) (* 1/2 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l)) (* w0 (sqrt 1/2)))))
#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 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)) #s(hole binary64 (* 1/4 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))))
#s(approx (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)) #s(hole binary64 1))
#s(approx (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)) #s(hole binary64 (+ 1 (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))))))
#s(approx (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) #s(hole binary64 (* 2 l)))
#s(approx (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) #s(hole binary64 (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2))) (* 2 l))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)))) #s(hole binary64 (* w0 (* (sqrt 1/2) (sqrt 2)))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)))) #s(hole binary64 (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (* h (* w0 (sqrt 1/2))))) (* (pow d 2) (* l (sqrt 2))))) (* w0 (* (sqrt 1/2) (sqrt 2))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)))) #s(hole binary64 (+ (* w0 (* (sqrt 1/2) (sqrt 2))) (* (pow M 2) (+ (* -1/4 (/ (* (pow D 2) (* h (* w0 (sqrt 1/2)))) (* (pow d 2) (* l (sqrt 2))))) (* -1/32 (/ (* (pow D 4) (* (pow M 2) (* (pow h 2) (* w0 (sqrt 1/2))))) (* (pow d 4) (* (pow l 2) (pow (sqrt 2) 3))))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)))) #s(hole binary64 (+ (* w0 (* (sqrt 1/2) (sqrt 2))) (* (pow M 2) (+ (* -1/4 (/ (* (pow D 2) (* h (* w0 (sqrt 1/2)))) (* (pow d 2) (* l (sqrt 2))))) (* (pow M 2) (+ (* -1/32 (/ (* (pow D 4) (* (pow h 2) (* w0 (sqrt 1/2)))) (* (pow d 4) (* (pow l 2) (pow (sqrt 2) 3))))) (* -1/128 (/ (* (pow D 6) (* (pow M 2) (* (pow h 3) (* w0 (sqrt 1/2))))) (* (pow d 6) (* (pow l 3) (pow (sqrt 2) 5))))))))))))
#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 (+ (* (* (* D D) -1/8) (* (/ h (* d d)) (/ (* M M) l))) 1) #s(hole binary64 1))
#s(approx (+ (* (* (* D D) -1/8) (* (/ h (* d d)) (/ (* M M) l))) 1) #s(hole binary64 (+ 1 (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))))))
#s(approx (* -1/8 (/ (* (* (* (* M M) D) D) h) (* (* d d) l))) #s(hole binary64 (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l)))))
#s(approx (+ (* (* (* D D) -1/8) (/ (* (* M M) h) (* (* l d) d))) 1) #s(hole binary64 1))
#s(approx (+ (* (* (* D D) -1/8) (/ (* (* M M) h) (* (* l d) d))) 1) #s(hole binary64 (+ 1 (* -1/8 (/ (* (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 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 (+ (* (* h -1/4) (* M (* (* M D) (/ D (* (* l d) d))))) 1) #s(hole binary64 1))
#s(approx (+ (* (* h -1/4) (* M (* (* M D) (/ D (* (* l d) d))))) 1) #s(hole binary64 (+ 1 (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))))))
#s(approx (+ (* (* h -1/4) (/ (* (* (* M M) D) (/ D d)) (* l d))) 1) #s(hole binary64 1))
#s(approx (+ (* (* h -1/4) (/ (* (* (* M M) D) (/ D d)) (* l d))) 1) #s(hole binary64 (+ 1 (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l))) #s(hole binary64 (* (sqrt 1/2) (sqrt 2))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l))) #s(hole binary64 (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (* h (sqrt 1/2)))) (* (pow d 2) (* l (sqrt 2))))) (* (sqrt 1/2) (sqrt 2)))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l))) #s(hole binary64 (+ (* (sqrt 1/2) (sqrt 2)) (* (pow M 2) (+ (* -1/4 (/ (* (pow D 2) (* h (sqrt 1/2))) (* (pow d 2) (* l (sqrt 2))))) (* -1/32 (/ (* (pow D 4) (* (pow M 2) (* (pow h 2) (sqrt 1/2)))) (* (pow d 4) (* (pow l 2) (pow (sqrt 2) 3))))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l))) #s(hole binary64 (+ (* (sqrt 1/2) (sqrt 2)) (* (pow M 2) (+ (* -1/4 (/ (* (pow D 2) (* h (sqrt 1/2))) (* (pow d 2) (* l (sqrt 2))))) (* (pow M 2) (+ (* -1/32 (/ (* (pow D 4) (* (pow h 2) (sqrt 1/2))) (* (pow d 4) (* (pow l 2) (pow (sqrt 2) 3))))) (* -1/128 (/ (* (pow D 6) (* (pow M 2) (* (pow h 3) (sqrt 1/2)))) (* (pow d 6) (* (pow l 3) (pow (sqrt 2) 5))))))))))))
#s(approx (* h (* M (/ (/ D d) 2))) #s(hole binary64 (* 1/2 (/ (* D (* M h)) d))))
#s(approx (* M (/ (/ D d) 2)) #s(hole binary64 (* 1/2 (/ (* D M) d))))
#s(approx (/ (* (* (* (* M M) D) D) h) (* (* d d) l)) #s(hole binary64 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))))
#s(approx (/ (* (* M M) h) (* (* l d) d)) #s(hole binary64 (/ (* (pow M 2) h) (* (pow d 2) l))))
#s(approx (* (* M M) h) #s(hole binary64 (* (pow M 2) h)))
#s(approx (* (* M D) (/ D (* (* l d) d))) #s(hole binary64 (/ (* (pow D 2) M) (* (pow d 2) l))))
#s(approx (/ (* (* (* M M) D) (/ D d)) (* l d)) #s(hole binary64 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))))
#s(approx (* (* (* M M) D) (/ D d)) #s(hole binary64 (/ (* (pow D 2) (pow M 2)) d)))
#s(approx (* (* M M) D) #s(hole binary64 (* D (pow M 2))))
#s(approx (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)) #s(hole binary64 (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l)))))
#s(approx (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)) #s(hole binary64 (* (pow M 2) (+ (* -1/4 (/ (* (pow D 2) h) (* (pow d 2) l))) (/ 1 (pow M 2))))))
#s(approx (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) #s(hole binary64 (* -1/2 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))))
#s(approx (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) #s(hole binary64 (* (pow M 2) (- (* 2 (/ l (pow M 2))) (* 1/2 (/ (* (pow D 2) h) (pow d 2)))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)))) #s(hole binary64 (* (/ (* D (* M (* w0 (* (sqrt -1/2) (sqrt 1/2))))) d) (sqrt (/ h l)))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)))) #s(hole binary64 (* M (+ (* (/ (* D (* w0 (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (/ h l))) (* (/ (* d (* w0 (sqrt 1/2))) (* D (* (pow M 2) (sqrt -1/2)))) (sqrt (/ l h)))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)))) #s(hole binary64 (* M (+ (* -1/2 (* (/ (* (pow d 3) (* w0 (sqrt 1/2))) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* (/ (* D (* w0 (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (/ h l))) (* (/ (* d (* w0 (sqrt 1/2))) (* D (* (pow M 2) (sqrt -1/2)))) (sqrt (/ l h))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)))) #s(hole binary64 (* M (+ (* -1/2 (* (/ (* (pow d 3) (* w0 (sqrt 1/2))) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ (* (pow d 5) (* w0 (sqrt 1/2))) (* (pow D 5) (* (pow M 6) (pow (sqrt -1/2) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* (/ (* D (* w0 (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (/ h l))) (* (/ (* d (* w0 (sqrt 1/2))) (* D (* (pow M 2) (sqrt -1/2)))) (sqrt (/ l h)))))))))
#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) 3)))) (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) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 5) (* (pow M 6) (pow (sqrt -1/4) 5)))) (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) 3)))) (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) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (pow d 5) (* (pow D 5) (* (pow M 6) (pow (sqrt -1/4) 5)))) (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 (+ (* (* (* D D) -1/8) (* (/ h (* d d)) (/ (* M M) l))) 1) #s(hole binary64 (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l)))))
#s(approx (+ (* (* (* D D) -1/8) (* (/ h (* d d)) (/ (* M M) l))) 1) #s(hole binary64 (* (pow M 2) (+ (* -1/8 (/ (* (pow D 2) h) (* (pow d 2) l))) (/ 1 (pow M 2))))))
#s(approx (+ (* (* (* D D) -1/8) (/ (* (* M M) h) (* (* l d) d))) 1) #s(hole binary64 (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l)))))
#s(approx (+ (* (* (* D D) -1/8) (/ (* (* M M) h) (* (* l d) d))) 1) #s(hole binary64 (* (pow M 2) (+ (* -1/8 (/ (* (pow D 2) h) (* (pow d 2) l))) (/ 1 (pow M 2))))))
#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 (+ (* (* h -1/4) (* M (* (* M D) (/ D (* (* l d) d))))) 1) #s(hole binary64 (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l)))))
#s(approx (+ (* (* h -1/4) (* M (* (* M D) (/ D (* (* l d) d))))) 1) #s(hole binary64 (* (pow M 2) (+ (* -1/4 (/ (* (pow D 2) h) (* (pow d 2) l))) (/ 1 (pow M 2))))))
#s(approx (+ (* (* h -1/4) (/ (* (* (* M M) D) (/ D d)) (* l d))) 1) #s(hole binary64 (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l)))))
#s(approx (+ (* (* h -1/4) (/ (* (* (* M M) D) (/ D d)) (* l d))) 1) #s(hole binary64 (* (pow M 2) (+ (* -1/4 (/ (* (pow D 2) h) (* (pow d 2) l))) (/ 1 (pow M 2))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l))) #s(hole binary64 (* (/ (* D (* M (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (/ h l)))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l))) #s(hole binary64 (* M (+ (* (/ (* D (* (sqrt -1/2) (sqrt 1/2))) d) (sqrt (/ h l))) (* (/ (* d (sqrt 1/2)) (* D (* (pow M 2) (sqrt -1/2)))) (sqrt (/ l h)))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l))) #s(hole binary64 (* M (+ (* -1/2 (* (/ (* (pow d 3) (sqrt 1/2)) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* (/ (* D (* (sqrt -1/2) (sqrt 1/2))) d) (sqrt (/ h l))) (* (/ (* d (sqrt 1/2)) (* D (* (pow M 2) (sqrt -1/2)))) (sqrt (/ l h))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l))) #s(hole binary64 (* M (+ (* -1/2 (* (/ (* (pow d 3) (sqrt 1/2)) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ (* (pow d 5) (sqrt 1/2)) (* (pow D 5) (* (pow M 6) (pow (sqrt -1/2) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* (/ (* D (* (sqrt -1/2) (sqrt 1/2))) d) (sqrt (/ h l))) (* (/ (* d (sqrt 1/2)) (* D (* (pow M 2) (sqrt -1/2)))) (sqrt (/ l h)))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)))) #s(hole binary64 (* -1 (* (/ (* D (* M (* w0 (* (sqrt -1/2) (sqrt 1/2))))) d) (sqrt (/ h l))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)))) #s(hole binary64 (* -1 (* M (+ (* (/ (* D (* w0 (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (/ h l))) (* (/ (* d (* w0 (sqrt 1/2))) (* D (* (pow M 2) (sqrt -1/2)))) (sqrt (/ l h))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)))) #s(hole binary64 (* -1 (* M (+ (* -1/2 (* (/ (* (pow d 3) (* w0 (sqrt 1/2))) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* (/ (* D (* w0 (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (/ h l))) (* (/ (* d (* w0 (sqrt 1/2))) (* D (* (pow M 2) (sqrt -1/2)))) (sqrt (/ l h)))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)))) #s(hole binary64 (* -1 (* M (+ (* -1/2 (* (/ (* (pow d 3) (* w0 (sqrt 1/2))) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ (* (pow d 5) (* w0 (sqrt 1/2))) (* (pow D 5) (* (pow M 6) (pow (sqrt -1/2) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* (/ (* D (* w0 (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (/ h l))) (* (/ (* d (* w0 (sqrt 1/2))) (* D (* (pow M 2) (sqrt -1/2)))) (sqrt (/ l h))))))))))
#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) (pow (sqrt -1/4) 3)))) (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) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 5) (* (pow M 6) (pow (sqrt -1/4) 5)))) (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) 3)))) (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) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (pow d 5) (* (pow D 5) (* (pow M 6) (pow (sqrt -1/4) 5)))) (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 (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l))) #s(hole binary64 (* -1 (* (/ (* D (* M (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (/ h l))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l))) #s(hole binary64 (* -1 (* M (+ (* (/ (* D (* (sqrt -1/2) (sqrt 1/2))) d) (sqrt (/ h l))) (* (/ (* d (sqrt 1/2)) (* D (* (pow M 2) (sqrt -1/2)))) (sqrt (/ l h))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l))) #s(hole binary64 (* -1 (* M (+ (* -1/2 (* (/ (* (pow d 3) (sqrt 1/2)) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* (/ (* D (* (sqrt -1/2) (sqrt 1/2))) d) (sqrt (/ h l))) (* (/ (* d (sqrt 1/2)) (* D (* (pow M 2) (sqrt -1/2)))) (sqrt (/ l h)))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l))) #s(hole binary64 (* -1 (* M (+ (* -1/2 (* (/ (* (pow d 3) (sqrt 1/2)) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ (* (pow d 5) (sqrt 1/2)) (* (pow D 5) (* (pow M 6) (pow (sqrt -1/2) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* (/ (* D (* (sqrt -1/2) (sqrt 1/2))) d) (sqrt (/ h l))) (* (/ (* d (sqrt 1/2)) (* D (* (pow M 2) (sqrt -1/2)))) (sqrt (/ l h))))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)))) #s(hole binary64 (+ (* w0 (* (sqrt 1/2) (sqrt 2))) (* (pow D 2) (+ (* -1/4 (/ (* (pow M 2) (* h (* w0 (sqrt 1/2)))) (* (pow d 2) (* l (sqrt 2))))) (* -1/32 (/ (* (pow D 2) (* (pow M 4) (* (pow h 2) (* w0 (sqrt 1/2))))) (* (pow d 4) (* (pow l 2) (pow (sqrt 2) 3))))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)))) #s(hole binary64 (+ (* w0 (* (sqrt 1/2) (sqrt 2))) (* (pow D 2) (+ (* -1/4 (/ (* (pow M 2) (* h (* w0 (sqrt 1/2)))) (* (pow d 2) (* l (sqrt 2))))) (* (pow D 2) (+ (* -1/32 (/ (* (pow M 4) (* (pow h 2) (* w0 (sqrt 1/2)))) (* (pow d 4) (* (pow l 2) (pow (sqrt 2) 3))))) (* -1/128 (/ (* (pow D 2) (* (pow M 6) (* (pow h 3) (* w0 (sqrt 1/2))))) (* (pow d 6) (* (pow l 3) (pow (sqrt 2) 5))))))))))))
#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 D) -1/8) #s(hole binary64 (* -1/8 (pow D 2))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l))) #s(hole binary64 (+ (* (sqrt 1/2) (sqrt 2)) (* (pow D 2) (+ (* -1/4 (/ (* (pow M 2) (* h (sqrt 1/2))) (* (pow d 2) (* l (sqrt 2))))) (* -1/32 (/ (* (pow D 2) (* (pow M 4) (* (pow h 2) (sqrt 1/2)))) (* (pow d 4) (* (pow l 2) (pow (sqrt 2) 3))))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l))) #s(hole binary64 (+ (* (sqrt 1/2) (sqrt 2)) (* (pow D 2) (+ (* -1/4 (/ (* (pow M 2) (* h (sqrt 1/2))) (* (pow d 2) (* l (sqrt 2))))) (* (pow D 2) (+ (* -1/32 (/ (* (pow M 4) (* (pow h 2) (sqrt 1/2))) (* (pow d 4) (* (pow l 2) (pow (sqrt 2) 3))))) (* -1/128 (/ (* (pow D 2) (* (pow M 6) (* (pow h 3) (sqrt 1/2)))) (* (pow d 6) (* (pow l 3) (pow (sqrt 2) 5))))))))))))
#s(approx (/ D (* (* l d) d)) #s(hole binary64 (/ D (* (pow d 2) l))))
#s(approx (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)) #s(hole binary64 (* (pow D 2) (+ (* -1/4 (/ (* (pow M 2) h) (* (pow d 2) l))) (/ 1 (pow D 2))))))
#s(approx (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) #s(hole binary64 (* (pow D 2) (- (* 2 (/ l (pow D 2))) (* 1/2 (/ (* (pow M 2) h) (pow d 2)))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)))) #s(hole binary64 (* D (+ (* (/ (* M (* w0 (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (/ h l))) (* (/ (* d (* w0 (sqrt 1/2))) (* (pow D 2) (* M (sqrt -1/2)))) (sqrt (/ l h)))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)))) #s(hole binary64 (* D (+ (* -1/2 (* (/ (* (pow d 3) (* w0 (sqrt 1/2))) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* (/ (* M (* w0 (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (/ h l))) (* (/ (* d (* w0 (sqrt 1/2))) (* (pow D 2) (* M (sqrt -1/2)))) (sqrt (/ l h))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)))) #s(hole binary64 (* D (+ (* -1/2 (* (/ (* (pow d 3) (* w0 (sqrt 1/2))) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ (* (pow d 5) (* w0 (sqrt 1/2))) (* (pow D 6) (* (pow M 5) (pow (sqrt -1/2) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* (/ (* M (* w0 (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (/ h l))) (* (/ (* d (* w0 (sqrt 1/2))) (* (pow D 2) (* M (sqrt -1/2)))) (sqrt (/ l h)))))))))
#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) 3)))) (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) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 6) (* (pow M 5) (pow (sqrt -1/4) 5)))) (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) 3)))) (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) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (pow d 5) (* (pow D 6) (* (pow M 5) (pow (sqrt -1/4) 5)))) (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 (+ (* (* (* D D) -1/8) (* (/ h (* d d)) (/ (* M M) l))) 1) #s(hole binary64 (* (pow D 2) (+ (* -1/8 (/ (* (pow M 2) h) (* (pow d 2) l))) (/ 1 (pow D 2))))))
#s(approx (+ (* (* (* D D) -1/8) (/ (* (* M M) h) (* (* l d) d))) 1) #s(hole binary64 (* (pow D 2) (+ (* -1/8 (/ (* (pow M 2) h) (* (pow d 2) l))) (/ 1 (pow D 2))))))
#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 (+ (* (* h -1/4) (* M (* (* M D) (/ D (* (* l d) d))))) 1) #s(hole binary64 (* (pow D 2) (+ (* -1/4 (/ (* (pow M 2) h) (* (pow d 2) l))) (/ 1 (pow D 2))))))
#s(approx (+ (* (* h -1/4) (/ (* (* (* M M) D) (/ D d)) (* l d))) 1) #s(hole binary64 (* (pow D 2) (+ (* -1/4 (/ (* (pow M 2) h) (* (pow d 2) l))) (/ 1 (pow D 2))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l))) #s(hole binary64 (* D (+ (* (/ (* M (* (sqrt -1/2) (sqrt 1/2))) d) (sqrt (/ h l))) (* (/ (* d (sqrt 1/2)) (* (pow D 2) (* M (sqrt -1/2)))) (sqrt (/ l h)))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l))) #s(hole binary64 (* D (+ (* -1/2 (* (/ (* (pow d 3) (sqrt 1/2)) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* (/ (* M (* (sqrt -1/2) (sqrt 1/2))) d) (sqrt (/ h l))) (* (/ (* d (sqrt 1/2)) (* (pow D 2) (* M (sqrt -1/2)))) (sqrt (/ l h))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l))) #s(hole binary64 (* D (+ (* -1/2 (* (/ (* (pow d 3) (sqrt 1/2)) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ (* (pow d 5) (sqrt 1/2)) (* (pow D 6) (* (pow M 5) (pow (sqrt -1/2) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* (/ (* M (* (sqrt -1/2) (sqrt 1/2))) d) (sqrt (/ h l))) (* (/ (* d (sqrt 1/2)) (* (pow D 2) (* M (sqrt -1/2)))) (sqrt (/ l h)))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)))) #s(hole binary64 (* -1 (* D (+ (* (/ (* M (* w0 (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (/ h l))) (* (/ (* d (* w0 (sqrt 1/2))) (* (pow D 2) (* M (sqrt -1/2)))) (sqrt (/ l h))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)))) #s(hole binary64 (* -1 (* D (+ (* -1/2 (* (/ (* (pow d 3) (* w0 (sqrt 1/2))) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* (/ (* M (* w0 (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (/ h l))) (* (/ (* d (* w0 (sqrt 1/2))) (* (pow D 2) (* M (sqrt -1/2)))) (sqrt (/ l h)))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)))) #s(hole binary64 (* -1 (* D (+ (* -1/2 (* (/ (* (pow d 3) (* w0 (sqrt 1/2))) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ (* (pow d 5) (* w0 (sqrt 1/2))) (* (pow D 6) (* (pow M 5) (pow (sqrt -1/2) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* (/ (* M (* w0 (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (/ h l))) (* (/ (* d (* w0 (sqrt 1/2))) (* (pow D 2) (* M (sqrt -1/2)))) (sqrt (/ l h))))))))))
#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) 3)))) (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) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 6) (* (pow M 5) (pow (sqrt -1/4) 5)))) (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) 3)))) (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) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (pow d 5) (* (pow D 6) (* (pow M 5) (pow (sqrt -1/4) 5)))) (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 (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l))) #s(hole binary64 (* -1 (* D (+ (* (/ (* M (* (sqrt -1/2) (sqrt 1/2))) d) (sqrt (/ h l))) (* (/ (* d (sqrt 1/2)) (* (pow D 2) (* M (sqrt -1/2)))) (sqrt (/ l h))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l))) #s(hole binary64 (* -1 (* D (+ (* -1/2 (* (/ (* (pow d 3) (sqrt 1/2)) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* (/ (* M (* (sqrt -1/2) (sqrt 1/2))) d) (sqrt (/ h l))) (* (/ (* d (sqrt 1/2)) (* (pow D 2) (* M (sqrt -1/2)))) (sqrt (/ l h)))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l))) #s(hole binary64 (* -1 (* D (+ (* -1/2 (* (/ (* (pow d 3) (sqrt 1/2)) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ (* (pow d 5) (sqrt 1/2)) (* (pow D 6) (* (pow M 5) (pow (sqrt -1/2) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* (/ (* M (* (sqrt -1/2) (sqrt 1/2))) d) (sqrt (/ h l))) (* (/ (* d (sqrt 1/2)) (* (pow D 2) (* M (sqrt -1/2)))) (sqrt (/ l h))))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)))) #s(hole binary64 (+ (* h (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (* w0 (sqrt 1/2)))) (* (pow d 2) (* l (sqrt 2))))) (* -1/32 (/ (* (pow D 4) (* (pow M 4) (* h (* w0 (sqrt 1/2))))) (* (pow d 4) (* (pow l 2) (pow (sqrt 2) 3))))))) (* w0 (* (sqrt 1/2) (sqrt 2))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)))) #s(hole binary64 (+ (* h (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (* w0 (sqrt 1/2)))) (* (pow d 2) (* l (sqrt 2))))) (* h (+ (* -1/32 (/ (* (pow D 4) (* (pow M 4) (* w0 (sqrt 1/2)))) (* (pow d 4) (* (pow l 2) (pow (sqrt 2) 3))))) (* -1/128 (/ (* (pow D 6) (* (pow M 6) (* h (* w0 (sqrt 1/2))))) (* (pow d 6) (* (pow l 3) (pow (sqrt 2) 5))))))))) (* w0 (* (sqrt 1/2) (sqrt 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))) (* -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 (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l))) #s(hole binary64 (+ (* h (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (sqrt 1/2))) (* (pow d 2) (* l (sqrt 2))))) (* -1/32 (/ (* (pow D 4) (* (pow M 4) (* h (sqrt 1/2)))) (* (pow d 4) (* (pow l 2) (pow (sqrt 2) 3))))))) (* (sqrt 1/2) (sqrt 2)))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l))) #s(hole binary64 (+ (* h (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (sqrt 1/2))) (* (pow d 2) (* l (sqrt 2))))) (* h (+ (* -1/32 (/ (* (pow D 4) (* (pow M 4) (sqrt 1/2))) (* (pow d 4) (* (pow l 2) (pow (sqrt 2) 3))))) (* -1/128 (/ (* (pow D 6) (* (pow M 6) (* h (sqrt 1/2)))) (* (pow d 6) (* (pow l 3) (pow (sqrt 2) 5))))))))) (* (sqrt 1/2) (sqrt 2)))))
#s(approx (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)) #s(hole binary64 (* h (+ (* -1/4 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (/ 1 h)))))
#s(approx (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) #s(hole binary64 (* h (- (* 2 (/ l h)) (* 1/2 (/ (* (pow D 2) (pow M 2)) (pow d 2)))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)))) #s(hole binary64 (* h (+ (* (/ (* D (* M (* w0 (* (sqrt -1/2) (sqrt 1/2))))) d) (sqrt (/ 1 (* h l)))) (* (/ (* d (* w0 (sqrt 1/2))) (* D (* M (sqrt -1/2)))) (sqrt (/ l (pow h 3))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)))) #s(hole binary64 (* h (+ (* -1/2 (* (/ (* (pow d 3) (* w0 (sqrt 1/2))) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* (/ (* D (* M (* w0 (* (sqrt -1/2) (sqrt 1/2))))) d) (sqrt (/ 1 (* h l)))) (* (/ (* d (* w0 (sqrt 1/2))) (* D (* M (sqrt -1/2)))) (sqrt (/ l (pow h 3)))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)))) #s(hole binary64 (* h (+ (* -1/2 (* (/ (* (pow d 3) (* w0 (sqrt 1/2))) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/2 (* (/ (* (pow d 5) (* w0 (sqrt 1/2))) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/2) 5)))) (sqrt (/ (pow l 5) (pow h 7))))) (+ (* (/ (* D (* M (* w0 (* (sqrt -1/2) (sqrt 1/2))))) d) (sqrt (/ 1 (* h l)))) (* (/ (* d (* w0 (sqrt 1/2))) (* D (* M (sqrt -1/2)))) (sqrt (/ l (pow h 3))))))))))
#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) 3)))) (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) 3)))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/4) 5)))) (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) 3)))) (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) 3)))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/16 (* (/ (pow d 5) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/4) 5)))) (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 (+ (* (* (* D D) -1/8) (* (/ h (* d d)) (/ (* M M) l))) 1) #s(hole binary64 (* h (+ (* -1/8 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (/ 1 h)))))
#s(approx (+ (* (* (* D D) -1/8) (/ (* (* M M) h) (* (* l d) d))) 1) #s(hole binary64 (* h (+ (* -1/8 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (/ 1 h)))))
#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 (+ (* (* h -1/4) (* M (* (* M D) (/ D (* (* l d) d))))) 1) #s(hole binary64 (* h (+ (* -1/4 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (/ 1 h)))))
#s(approx (+ (* (* h -1/4) (/ (* (* (* M M) D) (/ D d)) (* l d))) 1) #s(hole binary64 (* h (+ (* -1/4 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (/ 1 h)))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l))) #s(hole binary64 (* h (+ (* (/ (* D (* M (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (/ 1 (* h l)))) (* (/ (* d (sqrt 1/2)) (* D (* M (sqrt -1/2)))) (sqrt (/ l (pow h 3))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l))) #s(hole binary64 (* h (+ (* -1/2 (* (/ (* (pow d 3) (sqrt 1/2)) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* (/ (* D (* M (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (/ 1 (* h l)))) (* (/ (* d (sqrt 1/2)) (* D (* M (sqrt -1/2)))) (sqrt (/ l (pow h 3)))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l))) #s(hole binary64 (* h (+ (* -1/2 (* (/ (* (pow d 3) (sqrt 1/2)) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/2 (* (/ (* (pow d 5) (sqrt 1/2)) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/2) 5)))) (sqrt (/ (pow l 5) (pow h 7))))) (+ (* (/ (* D (* M (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (/ 1 (* h l)))) (* (/ (* d (sqrt 1/2)) (* D (* M (sqrt -1/2)))) (sqrt (/ l (pow h 3))))))))))
#s(approx (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)) #s(hole binary64 (* -1 (* h (- (* 1/4 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (/ 1 h))))))
#s(approx (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) #s(hole binary64 (* -1 (* h (- (* -2 (/ l h)) (* -1/2 (/ (* (pow D 2) (pow M 2)) (pow d 2))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)))) #s(hole binary64 (* -1 (* (/ (* D (* M (* w0 (* (sqrt -1) (pow (sqrt 1/2) 2))))) d) (sqrt (/ h l))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)))) #s(hole binary64 (* -1 (* h (+ (* (/ (* D (* M (* w0 (* (sqrt -1) (pow (sqrt 1/2) 2))))) d) (sqrt (/ 1 (* h l)))) (* (/ (* d (* w0 (sqrt -1))) (* D M)) (sqrt (/ l (pow h 3)))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)))) #s(hole binary64 (* -1 (* h (+ (* -1/2 (* (/ (* (pow d 3) (* w0 (sqrt -1))) (* (pow D 3) (* (pow M 3) (pow (sqrt 1/2) 2)))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* (/ (* D (* M (* w0 (* (sqrt -1) (pow (sqrt 1/2) 2))))) d) (sqrt (/ 1 (* h l)))) (* (/ (* d (* w0 (sqrt -1))) (* D M)) (sqrt (/ l (pow h 3))))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)))) #s(hole binary64 (* -1 (* h (+ (* -1/2 (* (/ (* (pow d 3) (* w0 (sqrt -1))) (* (pow D 3) (* (pow M 3) (pow (sqrt 1/2) 2)))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/2 (* (/ (* (pow d 5) (* w0 (sqrt -1))) (* (pow D 5) (* (pow M 5) (pow (sqrt 1/2) 4)))) (sqrt (/ (pow l 5) (pow h 7))))) (+ (* (/ (* D (* M (* w0 (* (sqrt -1) (pow (sqrt 1/2) 2))))) 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/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 (+ (* (* (* D D) -1/8) (* (/ h (* d d)) (/ (* M M) l))) 1) #s(hole binary64 (* -1 (* h (- (* 1/8 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (/ 1 h))))))
#s(approx (+ (* (* (* D D) -1/8) (/ (* (* M M) h) (* (* l d) d))) 1) #s(hole binary64 (* -1 (* h (- (* 1/8 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (/ 1 h))))))
#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 (+ (* (* h -1/4) (* M (* (* M D) (/ D (* (* l d) d))))) 1) #s(hole binary64 (* -1 (* h (- (* 1/4 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (/ 1 h))))))
#s(approx (+ (* (* h -1/4) (/ (* (* (* M M) D) (/ D d)) (* l d))) 1) #s(hole binary64 (* -1 (* h (- (* 1/4 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (/ 1 h))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l))) #s(hole binary64 (* -1 (* (/ (* D (* M (* (sqrt -1) (pow (sqrt 1/2) 2)))) d) (sqrt (/ h l))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l))) #s(hole binary64 (* -1 (* h (+ (* (/ (* D (* M (* (sqrt -1) (pow (sqrt 1/2) 2)))) d) (sqrt (/ 1 (* h l)))) (* (/ (* d (sqrt -1)) (* D M)) (sqrt (/ l (pow h 3)))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l))) #s(hole binary64 (* -1 (* h (+ (* -1/2 (* (/ (* (pow d 3) (sqrt -1)) (* (pow D 3) (* (pow M 3) (pow (sqrt 1/2) 2)))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* (/ (* D (* M (* (sqrt -1) (pow (sqrt 1/2) 2)))) d) (sqrt (/ 1 (* h l)))) (* (/ (* d (sqrt -1)) (* D M)) (sqrt (/ l (pow h 3))))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l))) #s(hole binary64 (* -1 (* h (+ (* -1/2 (* (/ (* (pow d 3) (sqrt -1)) (* (pow D 3) (* (pow M 3) (pow (sqrt 1/2) 2)))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/2 (* (/ (* (pow d 5) (sqrt -1)) (* (pow D 5) (* (pow M 5) (pow (sqrt 1/2) 4)))) (sqrt (/ (pow l 5) (pow h 7))))) (+ (* (/ (* D (* M (* (sqrt -1) (pow (sqrt 1/2) 2)))) d) (sqrt (/ 1 (* h l)))) (* (/ (* d (sqrt -1)) (* D M)) (sqrt (/ l (pow h 3)))))))))))
#s(approx (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)) #s(hole binary64 (/ (+ l (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l)))
#s(approx (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) #s(hole binary64 (- (* 2 l) (* 1/2 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)))) #s(hole binary64 (/ (+ (* (/ (* D (* M (* w0 (* (sqrt -1/2) (sqrt 1/2))))) d) (sqrt (* h l))) (* (/ (* d (* w0 (sqrt 1/2))) (* D (* M (sqrt -1/2)))) (sqrt (/ (pow l 3) h)))) l)))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)))) #s(hole binary64 (/ (+ (* (/ (* D (* M (* w0 (* (sqrt -1/2) (sqrt 1/2))))) d) (sqrt (* h l))) (* (pow l 2) (+ (* -1/2 (* (/ (* (pow d 3) (* w0 (sqrt 1/2))) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ l (pow h 3))))) (* (/ (* d (* w0 (sqrt 1/2))) (* D (* M (sqrt -1/2)))) (sqrt (/ 1 (* h l))))))) l)))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)))) #s(hole binary64 (/ (+ (* (/ (* D (* M (* w0 (* (sqrt -1/2) (sqrt 1/2))))) d) (sqrt (* h l))) (* (pow l 2) (+ (* (/ (* d (* w0 (sqrt 1/2))) (* D (* M (sqrt -1/2)))) (sqrt (/ 1 (* h l)))) (* (pow l 2) (+ (* -1/2 (* (/ (* (pow d 3) (* w0 (sqrt 1/2))) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ 1 (* (pow h 3) (pow l 3)))))) (* 1/2 (* (/ (* (pow d 5) (* w0 (sqrt 1/2))) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/2) 5)))) (sqrt (/ 1 (* (pow h 5) l)))))))))) l)))
#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) 3)))) (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) 3)))) (sqrt (/ 1 (* (pow h 3) (pow l 3)))))) (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/4) 5)))) (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) 3)))) (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) 3)))) (sqrt (/ 1 (* (pow h 3) (pow l 3)))))) (* 1/16 (* (/ (pow d 5) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ 1 (* (pow h 5) l)))))))))) l)))
#s(approx (+ (* (* (* D D) -1/8) (* (/ h (* d d)) (/ (* M M) l))) 1) #s(hole binary64 (/ (+ l (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l)))
#s(approx (+ (* (* (* D D) -1/8) (/ (* (* M M) h) (* (* l d) d))) 1) #s(hole binary64 (/ (+ l (* -1/8 (/ (* (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 (/ (- l (* 1/4 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l)))
#s(approx (+ (* (* h -1/4) (* M (* (* M D) (/ D (* (* l d) d))))) 1) #s(hole binary64 (/ (+ l (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l)))
#s(approx (+ (* (* h -1/4) (/ (* (* (* M M) D) (/ D d)) (* l d))) 1) #s(hole binary64 (/ (+ l (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l)))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l))) #s(hole binary64 (/ (+ (* (/ (* D (* M (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (* h l))) (* (/ (* d (sqrt 1/2)) (* D (* M (sqrt -1/2)))) (sqrt (/ (pow l 3) h)))) l)))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l))) #s(hole binary64 (/ (+ (* (/ (* D (* M (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (* h l))) (* (pow l 2) (+ (* -1/2 (* (/ (* (pow d 3) (sqrt 1/2)) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ l (pow h 3))))) (* (/ (* d (sqrt 1/2)) (* D (* M (sqrt -1/2)))) (sqrt (/ 1 (* h l))))))) l)))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l))) #s(hole binary64 (/ (+ (* (/ (* D (* M (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (* h l))) (* (pow l 2) (+ (* (/ (* d (sqrt 1/2)) (* D (* M (sqrt -1/2)))) (sqrt (/ 1 (* h l)))) (* (pow l 2) (+ (* -1/2 (* (/ (* (pow d 3) (sqrt 1/2)) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ 1 (* (pow h 3) (pow l 3)))))) (* 1/2 (* (/ (* (pow d 5) (sqrt 1/2)) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/2) 5)))) (sqrt (/ 1 (* (pow h 5) l)))))))))) l)))
#s(approx (* (* d d) l) #s(hole binary64 (* (pow d 2) l)))
#s(approx (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) #s(hole binary64 (* l (+ 2 (* -1/2 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l)))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)))) #s(hole binary64 (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (* h (* w0 (sqrt 1/2))))) (* (pow d 2) (* l (sqrt 2))))) (+ (* -1/32 (/ (* (pow D 4) (* (pow M 4) (* (pow h 2) (* w0 (sqrt 1/2))))) (* (pow d 4) (* (pow l 2) (pow (sqrt 2) 3))))) (* w0 (* (sqrt 1/2) (sqrt 2)))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)))) #s(hole binary64 (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (* h (* w0 (sqrt 1/2))))) (* (pow d 2) (* l (sqrt 2))))) (+ (* -1/32 (/ (* (pow D 4) (* (pow M 4) (* (pow h 2) (* w0 (sqrt 1/2))))) (* (pow d 4) (* (pow l 2) (pow (sqrt 2) 3))))) (+ (* -1/128 (/ (* (pow D 6) (* (pow M 6) (* (pow h 3) (* w0 (sqrt 1/2))))) (* (pow d 6) (* (pow l 3) (pow (sqrt 2) 5))))) (* w0 (* (sqrt 1/2) (sqrt 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))))))))
#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 (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l))) #s(hole binary64 (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (* h (sqrt 1/2)))) (* (pow d 2) (* l (sqrt 2))))) (+ (* -1/32 (/ (* (pow D 4) (* (pow M 4) (* (pow h 2) (sqrt 1/2)))) (* (pow d 4) (* (pow l 2) (pow (sqrt 2) 3))))) (* (sqrt 1/2) (sqrt 2))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l))) #s(hole binary64 (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (* h (sqrt 1/2)))) (* (pow d 2) (* l (sqrt 2))))) (+ (* -1/32 (/ (* (pow D 4) (* (pow M 4) (* (pow h 2) (sqrt 1/2)))) (* (pow d 4) (* (pow l 2) (pow (sqrt 2) 3))))) (+ (* -1/128 (/ (* (pow D 6) (* (pow M 6) (* (pow h 3) (sqrt 1/2)))) (* (pow d 6) (* (pow l 3) (pow (sqrt 2) 5))))) (* (sqrt 1/2) (sqrt 2)))))))
#s(approx (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) #s(hole binary64 (* -1 (* l (- (* 1/2 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))) 2)))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)))) #s(hole binary64 (+ (* -1 (/ (+ (* 1/32 (/ (* (pow D 4) (* (pow M 4) (* (pow h 2) (* w0 (sqrt 1/2))))) (* (pow d 4) (* l (pow (sqrt 2) 3))))) (* 1/4 (/ (* (pow D 2) (* (pow M 2) (* h (* w0 (sqrt 1/2))))) (* (pow d 2) (sqrt 2))))) l)) (* w0 (* (sqrt 1/2) (sqrt 2))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1 (/ (+ (* -1/32 (/ (* (pow D 4) (* (pow M 4) (* (pow h 2) (* w0 (sqrt 1/2))))) (* (pow d 4) (pow (sqrt 2) 3)))) (* -1/128 (/ (* (pow D 6) (* (pow M 6) (* (pow h 3) (* w0 (sqrt 1/2))))) (* (pow d 6) (* l (pow (sqrt 2) 5)))))) l)) (* 1/4 (/ (* (pow D 2) (* (pow M 2) (* h (* w0 (sqrt 1/2))))) (* (pow d 2) (sqrt 2))))) l)) (* w0 (* (sqrt 1/2) (sqrt 2))))))
#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 (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l))) #s(hole binary64 (+ (* -1 (/ (+ (* 1/32 (/ (* (pow D 4) (* (pow M 4) (* (pow h 2) (sqrt 1/2)))) (* (pow d 4) (* l (pow (sqrt 2) 3))))) (* 1/4 (/ (* (pow D 2) (* (pow M 2) (* h (sqrt 1/2)))) (* (pow d 2) (sqrt 2))))) l)) (* (sqrt 1/2) (sqrt 2)))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l))) #s(hole binary64 (+ (* -1 (/ (+ (* -1 (/ (+ (* -1/32 (/ (* (pow D 4) (* (pow M 4) (* (pow h 2) (sqrt 1/2)))) (* (pow d 4) (pow (sqrt 2) 3)))) (* -1/128 (/ (* (pow D 6) (* (pow M 6) (* (pow h 3) (sqrt 1/2)))) (* (pow d 6) (* l (pow (sqrt 2) 5)))))) l)) (* 1/4 (/ (* (pow D 2) (* (pow M 2) (* h (sqrt 1/2)))) (* (pow d 2) (sqrt 2))))) l)) (* (sqrt 1/2) (sqrt 2)))))
#s(approx (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)) #s(hole binary64 (/ (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) l)) (pow d 2)) (pow d 2))))
#s(approx (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) #s(hole binary64 (/ (- (* 2 (* (pow d 2) l)) (* 1/2 (* (pow D 2) (* (pow M 2) h)))) (pow d 2))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)))) #s(hole binary64 (/ (+ (* (* D (* M (* w0 (* (sqrt -1/2) (sqrt 1/2))))) (sqrt (/ h l))) (* (/ (* (pow d 2) (* w0 (sqrt 1/2))) (* D (* M (sqrt -1/2)))) (sqrt (/ l h)))) d)))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)))) #s(hole binary64 (/ (+ (* (* D (* M (* w0 (* (sqrt -1/2) (sqrt 1/2))))) (sqrt (/ h l))) (* (pow d 2) (+ (* -1/2 (* (/ (* (pow d 2) (* w0 (sqrt 1/2))) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (* (/ (* w0 (sqrt 1/2)) (* D (* M (sqrt -1/2)))) (sqrt (/ l h)))))) d)))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)))) #s(hole binary64 (/ (+ (* (* D (* M (* w0 (* (sqrt -1/2) (sqrt 1/2))))) (sqrt (/ h l))) (* (pow d 2) (+ (* (/ (* w0 (sqrt 1/2)) (* D (* M (sqrt -1/2)))) (sqrt (/ l h))) (* (pow d 2) (+ (* -1/2 (* (/ (* w0 (sqrt 1/2)) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (* 1/2 (* (/ (* (pow d 2) (* w0 (sqrt 1/2))) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/2) 5)))) (sqrt (/ (pow l 5) (pow h 5)))))))))) d)))
#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) 3)))) (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) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (* 1/16 (* (/ (* (pow d 2) w0) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/4) 5)))) (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) 3)))) (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) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (* 1/16 (* (/ (pow d 2) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5)))))))))) d)))
#s(approx (+ (* (* (* D D) -1/8) (* (/ h (* d d)) (/ (* M M) l))) 1) #s(hole binary64 (/ (+ (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) l)) (pow d 2)) (pow d 2))))
#s(approx (+ (* (* (* D D) -1/8) (/ (* (* M M) h) (* (* l d) d))) 1) #s(hole binary64 (/ (+ (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) l)) (pow d 2)) (pow d 2))))
#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 (+ (* (* h -1/4) (* M (* (* M D) (/ D (* (* l d) d))))) 1) #s(hole binary64 (/ (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) l)) (pow d 2)) (pow d 2))))
#s(approx (+ (* (* h -1/4) (/ (* (* (* M M) D) (/ D d)) (* l d))) 1) #s(hole binary64 (/ (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) l)) (pow d 2)) (pow d 2))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l))) #s(hole binary64 (/ (+ (* (* D (* M (* (sqrt -1/2) (sqrt 1/2)))) (sqrt (/ h l))) (* (/ (* (pow d 2) (sqrt 1/2)) (* D (* M (sqrt -1/2)))) (sqrt (/ l h)))) d)))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l))) #s(hole binary64 (/ (+ (* (* D (* M (* (sqrt -1/2) (sqrt 1/2)))) (sqrt (/ h l))) (* (pow d 2) (+ (* -1/2 (* (/ (* (pow d 2) (sqrt 1/2)) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (* (/ (sqrt 1/2) (* D (* M (sqrt -1/2)))) (sqrt (/ l h)))))) d)))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l))) #s(hole binary64 (/ (+ (* (* D (* M (* (sqrt -1/2) (sqrt 1/2)))) (sqrt (/ h l))) (* (pow d 2) (+ (* (/ (sqrt 1/2) (* D (* M (sqrt -1/2)))) (sqrt (/ l h))) (* (pow d 2) (+ (* -1/2 (* (/ (sqrt 1/2) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (* 1/2 (* (/ (* (pow d 2) (sqrt 1/2)) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/2) 5)))) (sqrt (/ (pow l 5) (pow h 5)))))))))) d)))

Outputs
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)))) #s(hole binary64 (* (sqrt (/ (- (* 2 l) (* 1/2 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l)) (* w0 (sqrt 1/2)))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)))) (.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) (sqrt.f64 (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 (.f64 (.f64 M M) D) D) h) (.f64 d d)) (.f64 #s(literal 2 binary64) l)) 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 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (.f64 (sqrt.f64 (fma.f64 #s(literal -1/4 binary64) (.f64 (.f64 (.f64 (.f64 M M) D) D) (/.f64 h (.f64 (*.f64 d d) l))) #s(literal 1 binary64))) w0))
#s(approx (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)) #s(hole binary64 (* 1/4 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))))
#s(approx (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (.f64 (.f64 (.f64 M M) D) D) h) (.f64 d d))))
#s(approx (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)) #s(hole binary64 1))
#s(approx (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)) #s(literal 1 binary64))
#s(approx (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)) #s(hole binary64 (+ 1 (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))))))
#s(approx (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)) (fma.f64 #s(literal -1/4 binary64) (.f64 (.f64 (.f64 (.f64 M M) D) D) (/.f64 h (.f64 (.f64 d d) l))) #s(literal 1 binary64)))
#s(approx (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) #s(hole binary64 (* 2 l)))
#s(approx (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (*.f64 #s(literal 2 binary64) l))
#s(approx (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) #s(hole binary64 (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2))) (* 2 l))))
#s(approx (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 (.f64 (.f64 M M) D) D) h) (.f64 d d)) (.f64 #s(literal 2 binary64) l)))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)))) #s(hole binary64 (* w0 (* (sqrt 1/2) (sqrt 2)))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)))) (.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) (sqrt.f64 #s(literal 2 binary64))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)))) #s(hole binary64 (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (* h (* w0 (sqrt 1/2))))) (* (pow d 2) (* l (sqrt 2))))) (* w0 (* (sqrt 1/2) (sqrt 2))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)))) (fma.f64 (.f64 (/.f64 (.f64 D D) (.f64 d d)) (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) h) (.f64 M M)) (.f64 (sqrt.f64 #s(literal 2 binary64)) l))) #s(literal -1/4 binary64) (.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)))) #s(hole binary64 (+ (* w0 (* (sqrt 1/2) (sqrt 2))) (* (pow M 2) (+ (* -1/4 (/ (* (pow D 2) (* h (* w0 (sqrt 1/2)))) (* (pow d 2) (* l (sqrt 2))))) (* -1/32 (/ (* (pow D 4) (* (pow M 2) (* (pow h 2) (* w0 (sqrt 1/2))))) (* (pow d 4) (* (pow l 2) (pow (sqrt 2) 3))))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)))) (fma.f64 (fma.f64 (/.f64 (/.f64 (.f64 (.f64 (.f64 (.f64 (.f64 h h) w0) (sqrt.f64 #s(literal 1/2 binary64))) (.f64 M M)) (pow.f64 D #s(literal 4 binary64))) (pow.f64 d #s(literal 4 binary64))) (.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 l l))) #s(literal -1/32 binary64) (.f64 (.f64 (/.f64 (.f64 D D) (.f64 d d)) (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) h) (.f64 (sqrt.f64 #s(literal 2 binary64)) l))) #s(literal -1/4 binary64))) (.f64 M M) (.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)))) #s(hole binary64 (+ (* w0 (* (sqrt 1/2) (sqrt 2))) (* (pow M 2) (+ (* -1/4 (/ (* (pow D 2) (* h (* w0 (sqrt 1/2)))) (* (pow d 2) (* l (sqrt 2))))) (* (pow M 2) (+ (* -1/32 (/ (* (pow D 4) (* (pow h 2) (* w0 (sqrt 1/2)))) (* (pow d 4) (* (pow l 2) (pow (sqrt 2) 3))))) (* -1/128 (/ (* (pow D 6) (* (pow M 2) (* (pow h 3) (* w0 (sqrt 1/2))))) (* (pow d 6) (* (pow l 3) (pow (sqrt 2) 5))))))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)))) (fma.f64 (fma.f64 (fma.f64 (/.f64 (/.f64 (.f64 (.f64 (.f64 (.f64 (pow.f64 h #s(literal 3 binary64)) w0) (sqrt.f64 #s(literal 1/2 binary64))) (.f64 M M)) (pow.f64 D #s(literal 6 binary64))) (pow.f64 d #s(literal 6 binary64))) (.f64 (pow.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 5 binary64)) (pow.f64 l #s(literal 3 binary64)))) #s(literal -1/128 binary64) (.f64 (/.f64 (/.f64 (.f64 (.f64 (.f64 (.f64 h h) w0) (sqrt.f64 #s(literal 1/2 binary64))) (pow.f64 D #s(literal 4 binary64))) (pow.f64 d #s(literal 4 binary64))) (.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 l l))) #s(literal -1/32 binary64))) (.f64 M M) (.f64 (.f64 (/.f64 (.f64 D D) (.f64 d d)) (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) h) (.f64 (sqrt.f64 #s(literal 2 binary64)) l))) #s(literal -1/4 binary64))) (.f64 M M) (.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) (sqrt.f64 #s(literal 2 binary64)))))
#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))))) 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))))) (fma.f64 (/.f64 (.f64 (.f64 (.f64 (.f64 M M) D) D) (.f64 w0 h)) (.f64 (*.f64 d d) l)) #s(literal -1/8 binary64) w0))
#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))))) (fma.f64 (fma.f64 (.f64 (/.f64 (pow.f64 D #s(literal 4 binary64)) (pow.f64 d #s(literal 4 binary64))) (/.f64 (.f64 (.f64 (.f64 h h) w0) (.f64 M M)) (.f64 l l))) #s(literal -1/128 binary64) (.f64 (/.f64 (.f64 (.f64 (.f64 D D) h) w0) (.f64 (.f64 d d) l)) #s(literal -1/8 binary64))) (*.f64 M M) w0))
#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 (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (fma.f64 (fma.f64 (fma.f64 (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (pow.f64 d #s(literal 6 binary64))) (/.f64 (.f64 (.f64 (pow.f64 h #s(literal 3 binary64)) w0) (.f64 M M)) (pow.f64 l #s(literal 3 binary64)))) #s(literal -1/1024 binary64) (.f64 (.f64 (/.f64 (pow.f64 D #s(literal 4 binary64)) (pow.f64 d #s(literal 4 binary64))) (/.f64 (.f64 (.f64 h h) w0) (.f64 l l))) #s(literal -1/128 binary64))) (.f64 M M) (.f64 (/.f64 (.f64 (.f64 (.f64 D D) h) w0) (.f64 (.f64 d d) l)) #s(literal -1/8 binary64))) (*.f64 M M) w0))
#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(literal 1 binary64))
#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)))) (fma.f64 (.f64 (.f64 (.f64 (.f64 M M) D) D) (/.f64 h (.f64 (.f64 d d) l))) #s(literal -1/8 binary64) #s(literal 1 binary64)))
#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)))) (fma.f64 (fma.f64 (.f64 (/.f64 (pow.f64 D #s(literal 4 binary64)) (pow.f64 d #s(literal 4 binary64))) (/.f64 (.f64 (.f64 M h) (.f64 M h)) (.f64 l l))) #s(literal -1/128 binary64) (/.f64 (.f64 #s(literal -1/8 binary64) (.f64 (.f64 D D) h)) (.f64 (.f64 d d) l))) (*.f64 M M) #s(literal 1 binary64)))
#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 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (fma.f64 (fma.f64 (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (pow.f64 d #s(literal 6 binary64))) (/.f64 (.f64 (pow.f64 h #s(literal 3 binary64)) (.f64 M M)) (pow.f64 l #s(literal 3 binary64)))) #s(literal -1/1024 binary64) (.f64 (.f64 (/.f64 (pow.f64 D #s(literal 4 binary64)) (pow.f64 d #s(literal 4 binary64))) (/.f64 (.f64 h h) (.f64 l l))) #s(literal -1/128 binary64))) (.f64 M M) (/.f64 (.f64 #s(literal -1/8 binary64) (.f64 (.f64 D D) h)) (.f64 (.f64 d d) l))) (.f64 M M) #s(literal 1 binary64)))
#s(approx (+ (* (* (* D D) -1/8) (* (/ h (* d d)) (/ (* M M) l))) 1) #s(hole binary64 1))
#s(approx (+ (* (* (* D D) -1/8) (* (/ h (* d d)) (/ (* M M) l))) 1) #s(literal 1 binary64))
#s(approx (+ (* (* (* D D) -1/8) (* (/ h (* d d)) (/ (* M M) l))) 1) #s(hole binary64 (+ 1 (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))))))
#s(approx (+ (* (* (* D D) -1/8) (* (/ h (* d d)) (/ (* M M) l))) 1) (fma.f64 (.f64 (.f64 (.f64 (.f64 M M) D) D) (/.f64 h (.f64 (.f64 d d) l))) #s(literal -1/8 binary64) #s(literal 1 binary64)))
#s(approx (* -1/8 (/ (* (* (* (* M M) D) D) h) (* (* d d) l))) #s(hole binary64 (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l)))))
#s(approx (* -1/8 (/ (* (* (* (* M M) D) D) h) (* (* d d) l))) (.f64 (.f64 (.f64 (.f64 (.f64 M M) D) D) (/.f64 h (.f64 (*.f64 d d) l))) #s(literal -1/8 binary64)))
#s(approx (+ (* (* (* D D) -1/8) (/ (* (* M M) h) (* (* l d) d))) 1) #s(hole binary64 1))
#s(approx (+ (* (* (* D D) -1/8) (/ (* (* M M) h) (* (* l d) d))) 1) #s(literal 1 binary64))
#s(approx (+ (* (* (* D D) -1/8) (/ (* (* M M) h) (* (* l d) d))) 1) #s(hole binary64 (+ 1 (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))))))
#s(approx (+ (* (* (* D D) -1/8) (/ (* (* M M) h) (* (* l d) d))) 1) (fma.f64 (.f64 (.f64 (.f64 (.f64 M M) D) D) (/.f64 h (.f64 (.f64 d d) l))) #s(literal -1/8 binary64) #s(literal 1 binary64)))
#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(literal 1 binary64))
#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 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 #s(literal -1/4 binary64) (.f64 (.f64 (.f64 (.f64 M M) D) D) (/.f64 h (.f64 (.f64 d d) l))) #s(literal 1 binary64)))
#s(approx (+ (* (* h -1/4) (* M (* (* M D) (/ D (* (* l d) d))))) 1) #s(hole binary64 1))
#s(approx (+ (* (* h -1/4) (* M (* (* M D) (/ D (* (* l d) d))))) 1) #s(literal 1 binary64))
#s(approx (+ (* (* h -1/4) (* M (* (* M D) (/ D (* (* l d) d))))) 1) #s(hole binary64 (+ 1 (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))))))
#s(approx (+ (* (* h -1/4) (* M (* (* M D) (/ D (* (* l d) d))))) 1) (fma.f64 #s(literal -1/4 binary64) (.f64 (.f64 (.f64 (.f64 M M) D) D) (/.f64 h (.f64 (.f64 d d) l))) #s(literal 1 binary64)))
#s(approx (+ (* (* h -1/4) (/ (* (* (* M M) D) (/ D d)) (* l d))) 1) #s(hole binary64 1))
#s(approx (+ (* (* h -1/4) (/ (* (* (* M M) D) (/ D d)) (* l d))) 1) #s(literal 1 binary64))
#s(approx (+ (* (* h -1/4) (/ (* (* (* M M) D) (/ D d)) (* l d))) 1) #s(hole binary64 (+ 1 (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))))))
#s(approx (+ (* (* h -1/4) (/ (* (* (* M M) D) (/ D d)) (* l d))) 1) (fma.f64 #s(literal -1/4 binary64) (.f64 (.f64 (.f64 (.f64 M M) D) D) (/.f64 h (.f64 (.f64 d d) l))) #s(literal 1 binary64)))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l))) #s(hole binary64 (* (sqrt 1/2) (sqrt 2))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(literal 1/2 binary64))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l))) #s(hole binary64 (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (* h (sqrt 1/2)))) (* (pow d 2) (* l (sqrt 2))))) (* (sqrt 1/2) (sqrt 2)))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l))) (fma.f64 (.f64 (/.f64 (.f64 D D) (.f64 d d)) (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) h) (.f64 M M)) (.f64 (sqrt.f64 #s(literal 2 binary64)) l))) #s(literal -1/4 binary64) (.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(literal 1/2 binary64)))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l))) #s(hole binary64 (+ (* (sqrt 1/2) (sqrt 2)) (* (pow M 2) (+ (* -1/4 (/ (* (pow D 2) (* h (sqrt 1/2))) (* (pow d 2) (* l (sqrt 2))))) (* -1/32 (/ (* (pow D 4) (* (pow M 2) (* (pow h 2) (sqrt 1/2)))) (* (pow d 4) (* (pow l 2) (pow (sqrt 2) 3))))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l))) (fma.f64 (fma.f64 (/.f64 (/.f64 (.f64 (.f64 (.f64 (.f64 h h) (sqrt.f64 #s(literal 1/2 binary64))) (.f64 M M)) (pow.f64 D #s(literal 4 binary64))) (pow.f64 d #s(literal 4 binary64))) (.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 l l))) #s(literal -1/32 binary64) (.f64 (.f64 (/.f64 (.f64 D D) (.f64 d d)) (/.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) h) (.f64 (sqrt.f64 #s(literal 2 binary64)) l))) #s(literal -1/4 binary64))) (.f64 M M) (.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(literal 1/2 binary64)))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l))) #s(hole binary64 (+ (* (sqrt 1/2) (sqrt 2)) (* (pow M 2) (+ (* -1/4 (/ (* (pow D 2) (* h (sqrt 1/2))) (* (pow d 2) (* l (sqrt 2))))) (* (pow M 2) (+ (* -1/32 (/ (* (pow D 4) (* (pow h 2) (sqrt 1/2))) (* (pow d 4) (* (pow l 2) (pow (sqrt 2) 3))))) (* -1/128 (/ (* (pow D 6) (* (pow M 2) (* (pow h 3) (sqrt 1/2)))) (* (pow d 6) (* (pow l 3) (pow (sqrt 2) 5))))))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l))) (fma.f64 (fma.f64 (fma.f64 (/.f64 (/.f64 (.f64 (.f64 (.f64 (pow.f64 h #s(literal 3 binary64)) (sqrt.f64 #s(literal 1/2 binary64))) (.f64 M M)) (pow.f64 D #s(literal 6 binary64))) (pow.f64 d #s(literal 6 binary64))) (.f64 (pow.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 5 binary64)) (pow.f64 l #s(literal 3 binary64)))) #s(literal -1/128 binary64) (.f64 (/.f64 (/.f64 (.f64 (.f64 (.f64 h h) (sqrt.f64 #s(literal 1/2 binary64))) (pow.f64 D #s(literal 4 binary64))) (pow.f64 d #s(literal 4 binary64))) (.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 l l))) #s(literal -1/32 binary64))) (.f64 M M) (.f64 (.f64 (/.f64 (.f64 D D) (.f64 d d)) (/.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) h) (.f64 (sqrt.f64 #s(literal 2 binary64)) l))) #s(literal -1/4 binary64))) (.f64 M M) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(literal 1/2 binary64)))))
#s(approx (* h (* M (/ (/ D d) 2))) #s(hole binary64 (* 1/2 (/ (* D (* M h)) d))))
#s(approx (* h (* M (/ (/ D d) 2))) (.f64 (/.f64 (.f64 (*.f64 M h) D) d) #s(literal 1/2 binary64)))
#s(approx (* M (/ (/ D d) 2)) #s(hole binary64 (* 1/2 (/ (* D M) d))))
#s(approx (* M (/ (/ D d) 2)) (.f64 (/.f64 (.f64 D M) d) #s(literal 1/2 binary64)))
#s(approx (/ (* (* (* (* M M) D) D) h) (* (* d d) l)) #s(hole binary64 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))))
#s(approx (/ (* (* (* (* M M) D) D) h) (* (* d d) l)) (.f64 (.f64 (.f64 (.f64 M M) D) D) (/.f64 h (.f64 (.f64 d d) l))))
#s(approx (/ (* (* M M) h) (* (* l d) d)) #s(hole binary64 (/ (* (pow M 2) h) (* (pow d 2) l))))
#s(approx (/ (* (* M M) h) (* (* l d) d)) (.f64 (.f64 M M) (/.f64 h (.f64 (.f64 d d) l))))
#s(approx (* (* M M) h) #s(hole binary64 (* (pow M 2) h)))
#s(approx (* (* M M) h) (.f64 (.f64 M M) h))
#s(approx (* (* M D) (/ D (* (* l d) d))) #s(hole binary64 (/ (* (pow D 2) M) (* (pow d 2) l))))
#s(approx (* (* M D) (/ D (* (* l d) d))) (.f64 (.f64 D D) (/.f64 M (.f64 (.f64 d d) l))))
#s(approx (/ (* (* (* M M) D) (/ D d)) (* l d)) #s(hole binary64 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))))
#s(approx (/ (* (* (* M M) D) (/ D d)) (* l d)) (/.f64 (.f64 (.f64 (.f64 M M) D) D) (.f64 (*.f64 d d) l)))
#s(approx (* (* (* M M) D) (/ D d)) #s(hole binary64 (/ (* (pow D 2) (pow M 2)) d)))
#s(approx (* (* (* M M) D) (/ D d)) (.f64 (.f64 (*.f64 M M) D) (/.f64 D d)))
#s(approx (* (* M M) D) #s(hole binary64 (* D (pow M 2))))
#s(approx (* (* M M) D) (.f64 (.f64 M M) D))
#s(approx (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)) #s(hole binary64 (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l)))))
#s(approx (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)) (.f64 #s(literal -1/4 binary64) (.f64 (.f64 (.f64 (.f64 M M) D) D) (/.f64 h (.f64 (*.f64 d d) l)))))
#s(approx (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)) #s(hole binary64 (* (pow M 2) (+ (* -1/4 (/ (* (pow D 2) h) (* (pow d 2) l))) (/ 1 (pow M 2))))))
#s(approx (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)) (.f64 (fma.f64 (.f64 (.f64 D D) (/.f64 h (.f64 (.f64 d d) l))) #s(literal -1/4 binary64) (/.f64 #s(literal 1 binary64) (.f64 M M))) (*.f64 M M)))
#s(approx (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) #s(hole binary64 (* -1/2 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))))
#s(approx (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 (.f64 (.f64 M M) D) D) h) (.f64 d d))))
#s(approx (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) #s(hole binary64 (* (pow M 2) (- (* 2 (/ l (pow M 2))) (* 1/2 (/ (* (pow D 2) h) (pow d 2)))))))
#s(approx (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (.f64 (fma.f64 (/.f64 l (.f64 M M)) #s(literal 2 binary64) (.f64 #s(literal -1/2 binary64) (.f64 (.f64 D D) (/.f64 (/.f64 h d) d)))) (.f64 M M)))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)))) #s(hole binary64 (* (/ (* D (* M (* w0 (* (sqrt -1/2) (sqrt 1/2))))) d) (sqrt (/ h l)))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)))) (.f64 (sqrt.f64 (/.f64 h l)) (/.f64 (.f64 (.f64 D M) (.f64 (*.f64 w0 (sqrt.f64 #s(literal -1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))) d)))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)))) #s(hole binary64 (* M (+ (* (/ (* D (* w0 (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (/ h l))) (* (/ (* d (* w0 (sqrt 1/2))) (* D (* (pow M 2) (sqrt -1/2)))) (sqrt (/ l h)))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)))) (.f64 (fma.f64 (sqrt.f64 (/.f64 l h)) (/.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) d) D) (.f64 (sqrt.f64 #s(literal -1/2 binary64)) (.f64 M M))) (.f64 (/.f64 (.f64 (.f64 D w0) (*.f64 (sqrt.f64 #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 1/2 binary64)))) d) (sqrt.f64 (/.f64 h l)))) M))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)))) #s(hole binary64 (* M (+ (* -1/2 (* (/ (* (pow d 3) (* w0 (sqrt 1/2))) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* (/ (* D (* w0 (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (/ h l))) (* (/ (* d (* w0 (sqrt 1/2))) (* D (* (pow M 2) (sqrt -1/2)))) (sqrt (/ l h))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)))) (.f64 (fma.f64 (.f64 (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))) (.f64 (pow.f64 (/.f64 d D) #s(literal 3 binary64)) (/.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) (.f64 (.f64 (sqrt.f64 #s(literal -1/2 binary64)) #s(literal -1/2 binary64)) (pow.f64 M #s(literal 4 binary64)))))) #s(literal -1/2 binary64) (fma.f64 (sqrt.f64 (/.f64 l h)) (/.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) d) D) (.f64 (sqrt.f64 #s(literal -1/2 binary64)) (.f64 M M))) (.f64 (/.f64 (.f64 (.f64 D w0) (.f64 (sqrt.f64 #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 1/2 binary64)))) d) (sqrt.f64 (/.f64 h l))))) M))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)))) #s(hole binary64 (* M (+ (* -1/2 (* (/ (* (pow d 3) (* w0 (sqrt 1/2))) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ (* (pow d 5) (* w0 (sqrt 1/2))) (* (pow D 5) (* (pow M 6) (pow (sqrt -1/2) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* (/ (* D (* w0 (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (/ h l))) (* (/ (* d (* w0 (sqrt 1/2))) (* D (* (pow M 2) (sqrt -1/2)))) (sqrt (/ l h)))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)))) (.f64 (fma.f64 (.f64 (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))) (.f64 (pow.f64 (/.f64 d D) #s(literal 3 binary64)) (/.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) (.f64 (.f64 (sqrt.f64 #s(literal -1/2 binary64)) #s(literal -1/2 binary64)) (pow.f64 M #s(literal 4 binary64)))))) #s(literal -1/2 binary64) (fma.f64 (.f64 (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 5 binary64)))) (.f64 (/.f64 (pow.f64 d #s(literal 5 binary64)) (pow.f64 D #s(literal 5 binary64))) (/.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) (.f64 (pow.f64 (sqrt.f64 #s(literal -1/2 binary64)) #s(literal 5 binary64)) (pow.f64 M #s(literal 6 binary64)))))) #s(literal 1/2 binary64) (fma.f64 (sqrt.f64 (/.f64 l h)) (/.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) d) D) (.f64 (sqrt.f64 #s(literal -1/2 binary64)) (.f64 M M))) (.f64 (/.f64 (.f64 (.f64 D w0) (.f64 (sqrt.f64 #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 1/2 binary64)))) d) (sqrt.f64 (/.f64 h l)))))) 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))))) (.f64 (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) M) D) d) (sqrt.f64 (/.f64 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))))) (.f64 (fma.f64 (.f64 (/.f64 (/.f64 (.f64 w0 d) D) (.f64 (sqrt.f64 #s(literal -1/4 binary64)) (.f64 M M))) (sqrt.f64 (/.f64 l h))) #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) D) d) (sqrt.f64 (/.f64 h l)))) M))
#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) 3)))) (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))))) (.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 (pow.f64 (/.f64 d D) #s(literal 3 binary64)) (/.f64 w0 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal -1/4 binary64)) (pow.f64 M #s(literal 4 binary64)))))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))) (fma.f64 (.f64 (/.f64 (/.f64 (.f64 w0 d) D) (.f64 (sqrt.f64 #s(literal -1/4 binary64)) (.f64 M M))) (sqrt.f64 (/.f64 l h))) #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) D) d) (sqrt.f64 (/.f64 h l))))) M))
#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) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 5) (* (pow M 6) (pow (sqrt -1/4) 5)))) (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))))) (.f64 (fma.f64 (.f64 (.f64 (pow.f64 (/.f64 d D) #s(literal 3 binary64)) (/.f64 w0 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal -1/4 binary64)) (pow.f64 M #s(literal 4 binary64))))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64)))) #s(literal -1/8 binary64) (fma.f64 (.f64 #s(literal 1/16 binary64) (/.f64 (.f64 (pow.f64 d #s(literal 5 binary64)) w0) (.f64 (.f64 (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 5 binary64)) (pow.f64 M #s(literal 6 binary64))) (pow.f64 D #s(literal 5 binary64))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 5 binary64)))) (fma.f64 (.f64 (/.f64 (/.f64 (.f64 w0 d) D) (.f64 (sqrt.f64 #s(literal -1/4 binary64)) (.f64 M M))) (sqrt.f64 (/.f64 l h))) #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) D) d) (sqrt.f64 (/.f64 h l)))))) M))
#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)))) (.f64 (/.f64 (.f64 (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) d) (sqrt.f64 (/.f64 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)))) (.f64 (fma.f64 (.f64 (/.f64 (/.f64 d D) (.f64 (sqrt.f64 #s(literal -1/4 binary64)) (.f64 M M))) (sqrt.f64 (/.f64 l h))) #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) D) d) (sqrt.f64 (/.f64 h l)))) M))
#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) 3)))) (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)))) (.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 (/.f64 d D) #s(literal 3 binary64)) (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal -1/4 binary64)) (pow.f64 M #s(literal 4 binary64))))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))) (fma.f64 (.f64 (/.f64 (/.f64 d D) (.f64 (sqrt.f64 #s(literal -1/4 binary64)) (.f64 M M))) (sqrt.f64 (/.f64 l h))) #s(literal 1/2 binary64) (.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) D) d) (sqrt.f64 (/.f64 h l))))) M))
#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) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (pow d 5) (* (pow D 5) (* (pow M 6) (pow (sqrt -1/4) 5)))) (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 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 (/.f64 d D) #s(literal 3 binary64)) (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal -1/4 binary64)) (pow.f64 M #s(literal 4 binary64))))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))) (fma.f64 (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 d #s(literal 5 binary64)) (.f64 (.f64 (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 5 binary64)) (pow.f64 M #s(literal 6 binary64))) (pow.f64 D #s(literal 5 binary64))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 5 binary64)))) (fma.f64 (.f64 (/.f64 (/.f64 d D) (.f64 (sqrt.f64 #s(literal -1/4 binary64)) (.f64 M M))) (sqrt.f64 (/.f64 l h))) #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) D) d) (sqrt.f64 (/.f64 h l)))))) M))
#s(approx (+ (* (* (* D D) -1/8) (* (/ h (* d d)) (/ (* M M) l))) 1) #s(hole binary64 (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l)))))
#s(approx (+ (* (* (* D D) -1/8) (* (/ h (* d d)) (/ (* M M) l))) 1) (.f64 (.f64 (.f64 (.f64 (.f64 M M) D) D) (/.f64 h (.f64 (*.f64 d d) l))) #s(literal -1/8 binary64)))
#s(approx (+ (* (* (* D D) -1/8) (* (/ h (* d d)) (/ (* M M) l))) 1) #s(hole binary64 (* (pow M 2) (+ (* -1/8 (/ (* (pow D 2) h) (* (pow d 2) l))) (/ 1 (pow M 2))))))
#s(approx (+ (* (* (* D D) -1/8) (* (/ h (* d d)) (/ (* M M) l))) 1) (.f64 (fma.f64 (.f64 (.f64 D D) (/.f64 h (.f64 (.f64 d d) l))) #s(literal -1/8 binary64) (/.f64 #s(literal 1 binary64) (.f64 M M))) (*.f64 M M)))
#s(approx (+ (* (* (* D D) -1/8) (/ (* (* M M) h) (* (* l d) d))) 1) #s(hole binary64 (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l)))))
#s(approx (+ (* (* (* D D) -1/8) (/ (* (* M M) h) (* (* l d) d))) 1) (.f64 (.f64 (.f64 (.f64 (.f64 M M) D) D) (/.f64 h (.f64 (*.f64 d d) l))) #s(literal -1/8 binary64)))
#s(approx (+ (* (* (* D D) -1/8) (/ (* (* M M) h) (* (* l d) d))) 1) #s(hole binary64 (* (pow M 2) (+ (* -1/8 (/ (* (pow D 2) h) (* (pow d 2) l))) (/ 1 (pow M 2))))))
#s(approx (+ (* (* (* D D) -1/8) (/ (* (* M M) h) (* (* l d) d))) 1) (.f64 (fma.f64 (.f64 (.f64 D D) (/.f64 h (.f64 (.f64 d d) l))) #s(literal -1/8 binary64) (/.f64 #s(literal 1 binary64) (.f64 M M))) (*.f64 M M)))
#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))) (.f64 #s(literal -1/4 binary64) (.f64 (.f64 (.f64 (.f64 M M) D) D) (/.f64 h (.f64 (*.f64 d d) 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 (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (.f64 (fma.f64 (.f64 (.f64 D D) (/.f64 h (.f64 (.f64 d d) l))) #s(literal -1/4 binary64) (/.f64 #s(literal 1 binary64) (.f64 M M))) (*.f64 M M)))
#s(approx (+ (* (* h -1/4) (* M (* (* M D) (/ D (* (* l d) d))))) 1) #s(hole binary64 (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l)))))
#s(approx (+ (* (* h -1/4) (* M (* (* M D) (/ D (* (* l d) d))))) 1) (.f64 #s(literal -1/4 binary64) (.f64 (.f64 (.f64 (.f64 M M) D) D) (/.f64 h (.f64 (*.f64 d d) l)))))
#s(approx (+ (* (* h -1/4) (* M (* (* M D) (/ D (* (* l d) d))))) 1) #s(hole binary64 (* (pow M 2) (+ (* -1/4 (/ (* (pow D 2) h) (* (pow d 2) l))) (/ 1 (pow M 2))))))
#s(approx (+ (* (* h -1/4) (* M (* (* M D) (/ D (* (* l d) d))))) 1) (.f64 (fma.f64 (.f64 (.f64 D D) (/.f64 h (.f64 (.f64 d d) l))) #s(literal -1/4 binary64) (/.f64 #s(literal 1 binary64) (.f64 M M))) (*.f64 M M)))
#s(approx (+ (* (* h -1/4) (/ (* (* (* M M) D) (/ D d)) (* l d))) 1) #s(hole binary64 (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l)))))
#s(approx (+ (* (* h -1/4) (/ (* (* (* M M) D) (/ D d)) (* l d))) 1) (.f64 #s(literal -1/4 binary64) (.f64 (.f64 (.f64 (.f64 M M) D) D) (/.f64 h (.f64 (*.f64 d d) l)))))
#s(approx (+ (* (* h -1/4) (/ (* (* (* M M) D) (/ D d)) (* l d))) 1) #s(hole binary64 (* (pow M 2) (+ (* -1/4 (/ (* (pow D 2) h) (* (pow d 2) l))) (/ 1 (pow M 2))))))
#s(approx (+ (* (* h -1/4) (/ (* (* (* M M) D) (/ D d)) (* l d))) 1) (.f64 (fma.f64 (.f64 (.f64 D D) (/.f64 h (.f64 (.f64 d d) l))) #s(literal -1/4 binary64) (/.f64 #s(literal 1 binary64) (.f64 M M))) (*.f64 M M)))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l))) #s(hole binary64 (* (/ (* D (* M (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (/ h l)))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l))) (.f64 (/.f64 (.f64 (.f64 D M) (.f64 (sqrt.f64 #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 1/2 binary64)))) d) (sqrt.f64 (/.f64 h l))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l))) #s(hole binary64 (* M (+ (* (/ (* D (* (sqrt -1/2) (sqrt 1/2))) d) (sqrt (/ h l))) (* (/ (* d (sqrt 1/2)) (* D (* (pow M 2) (sqrt -1/2)))) (sqrt (/ l h)))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l))) (.f64 (fma.f64 (/.f64 (/.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) d) D) (.f64 (sqrt.f64 #s(literal -1/2 binary64)) (.f64 M M))) (sqrt.f64 (/.f64 l h)) (.f64 (/.f64 (.f64 (*.f64 D (sqrt.f64 #s(literal -1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) d) (sqrt.f64 (/.f64 h l)))) M))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l))) #s(hole binary64 (* M (+ (* -1/2 (* (/ (* (pow d 3) (sqrt 1/2)) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* (/ (* D (* (sqrt -1/2) (sqrt 1/2))) d) (sqrt (/ h l))) (* (/ (* d (sqrt 1/2)) (* D (* (pow M 2) (sqrt -1/2)))) (sqrt (/ l h))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l))) (.f64 (fma.f64 (.f64 (.f64 (pow.f64 (/.f64 d D) #s(literal 3 binary64)) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (.f64 (.f64 (sqrt.f64 #s(literal -1/2 binary64)) #s(literal -1/2 binary64)) (pow.f64 M #s(literal 4 binary64))))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64)))) #s(literal -1/2 binary64) (fma.f64 (/.f64 (/.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) d) D) (.f64 (sqrt.f64 #s(literal -1/2 binary64)) (.f64 M M))) (sqrt.f64 (/.f64 l h)) (.f64 (/.f64 (.f64 (*.f64 D (sqrt.f64 #s(literal -1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) d) (sqrt.f64 (/.f64 h l))))) M))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l))) #s(hole binary64 (* M (+ (* -1/2 (* (/ (* (pow d 3) (sqrt 1/2)) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ (* (pow d 5) (sqrt 1/2)) (* (pow D 5) (* (pow M 6) (pow (sqrt -1/2) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* (/ (* D (* (sqrt -1/2) (sqrt 1/2))) d) (sqrt (/ h l))) (* (/ (* d (sqrt 1/2)) (* D (* (pow M 2) (sqrt -1/2)))) (sqrt (/ l h)))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l))) (.f64 (fma.f64 (.f64 (.f64 (pow.f64 (/.f64 d D) #s(literal 3 binary64)) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (.f64 (.f64 (sqrt.f64 #s(literal -1/2 binary64)) #s(literal -1/2 binary64)) (pow.f64 M #s(literal 4 binary64))))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64)))) #s(literal -1/2 binary64) (fma.f64 (.f64 (.f64 (/.f64 (pow.f64 d #s(literal 5 binary64)) (pow.f64 D #s(literal 5 binary64))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (.f64 (pow.f64 (sqrt.f64 #s(literal -1/2 binary64)) #s(literal 5 binary64)) (pow.f64 M #s(literal 6 binary64))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 5 binary64))))) #s(literal 1/2 binary64) (fma.f64 (/.f64 (/.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) d) D) (.f64 (sqrt.f64 #s(literal -1/2 binary64)) (.f64 M M))) (sqrt.f64 (/.f64 l h)) (.f64 (/.f64 (.f64 (.f64 D (sqrt.f64 #s(literal -1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) d) (sqrt.f64 (/.f64 h l)))))) M))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)))) #s(hole binary64 (* -1 (* (/ (* D (* M (* w0 (* (sqrt -1/2) (sqrt 1/2))))) d) (sqrt (/ h l))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)))) (.f64 (neg.f64 (sqrt.f64 (/.f64 h l))) (/.f64 (.f64 (.f64 D M) (.f64 (*.f64 w0 (sqrt.f64 #s(literal -1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))) d)))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)))) #s(hole binary64 (* -1 (* M (+ (* (/ (* D (* w0 (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (/ h l))) (* (/ (* d (* w0 (sqrt 1/2))) (* D (* (pow M 2) (sqrt -1/2)))) (sqrt (/ l h))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)))) (.f64 (neg.f64 M) (fma.f64 (sqrt.f64 (/.f64 l h)) (/.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) d) D) (.f64 (sqrt.f64 #s(literal -1/2 binary64)) (.f64 M M))) (.f64 (/.f64 (.f64 (.f64 D w0) (*.f64 (sqrt.f64 #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 1/2 binary64)))) d) (sqrt.f64 (/.f64 h l))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)))) #s(hole binary64 (* -1 (* M (+ (* -1/2 (* (/ (* (pow d 3) (* w0 (sqrt 1/2))) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* (/ (* D (* w0 (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (/ h l))) (* (/ (* d (* w0 (sqrt 1/2))) (* D (* (pow M 2) (sqrt -1/2)))) (sqrt (/ l h)))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)))) (.f64 (neg.f64 M) (fma.f64 (.f64 (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))) (.f64 (pow.f64 (/.f64 d D) #s(literal 3 binary64)) (/.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) (.f64 (.f64 (sqrt.f64 #s(literal -1/2 binary64)) #s(literal -1/2 binary64)) (pow.f64 M #s(literal 4 binary64)))))) #s(literal -1/2 binary64) (fma.f64 (sqrt.f64 (/.f64 l h)) (/.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) d) D) (.f64 (sqrt.f64 #s(literal -1/2 binary64)) (.f64 M M))) (.f64 (/.f64 (.f64 (.f64 D w0) (.f64 (sqrt.f64 #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 1/2 binary64)))) d) (sqrt.f64 (/.f64 h l)))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)))) #s(hole binary64 (* -1 (* M (+ (* -1/2 (* (/ (* (pow d 3) (* w0 (sqrt 1/2))) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ (* (pow d 5) (* w0 (sqrt 1/2))) (* (pow D 5) (* (pow M 6) (pow (sqrt -1/2) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* (/ (* D (* w0 (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (/ h l))) (* (/ (* d (* w0 (sqrt 1/2))) (* D (* (pow M 2) (sqrt -1/2)))) (sqrt (/ l h))))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)))) (.f64 (neg.f64 M) (fma.f64 (.f64 (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))) (.f64 (pow.f64 (/.f64 d D) #s(literal 3 binary64)) (/.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) (.f64 (.f64 (sqrt.f64 #s(literal -1/2 binary64)) #s(literal -1/2 binary64)) (pow.f64 M #s(literal 4 binary64)))))) #s(literal -1/2 binary64) (fma.f64 (.f64 (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 5 binary64)))) (.f64 (/.f64 (pow.f64 d #s(literal 5 binary64)) (pow.f64 D #s(literal 5 binary64))) (/.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) (.f64 (pow.f64 (sqrt.f64 #s(literal -1/2 binary64)) #s(literal 5 binary64)) (pow.f64 M #s(literal 6 binary64)))))) #s(literal 1/2 binary64) (fma.f64 (sqrt.f64 (/.f64 l h)) (/.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) d) D) (.f64 (sqrt.f64 #s(literal -1/2 binary64)) (.f64 M M))) (.f64 (/.f64 (.f64 (.f64 D w0) (.f64 (sqrt.f64 #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 1/2 binary64)))) d) (sqrt.f64 (/.f64 h 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))))) (.f64 (.f64 (neg.f64 D) (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) M) d)) (sqrt.f64 (/.f64 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))))) (.f64 (neg.f64 M) (fma.f64 (.f64 (/.f64 (/.f64 (.f64 w0 d) D) (.f64 (sqrt.f64 #s(literal -1/4 binary64)) (.f64 M M))) (sqrt.f64 (/.f64 l h))) #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) D) d) (sqrt.f64 (/.f64 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) (pow (sqrt -1/4) 3)))) (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))))) (.f64 (neg.f64 M) (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 (pow.f64 (/.f64 d D) #s(literal 3 binary64)) (/.f64 w0 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal -1/4 binary64)) (pow.f64 M #s(literal 4 binary64)))))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))) (fma.f64 (.f64 (/.f64 (/.f64 (.f64 w0 d) D) (.f64 (sqrt.f64 #s(literal -1/4 binary64)) (.f64 M M))) (sqrt.f64 (/.f64 l h))) #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) D) d) (sqrt.f64 (/.f64 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) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 5) (* (pow M 6) (pow (sqrt -1/4) 5)))) (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))))) (.f64 (neg.f64 M) (fma.f64 (.f64 (.f64 (pow.f64 (/.f64 d D) #s(literal 3 binary64)) (/.f64 w0 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal -1/4 binary64)) (pow.f64 M #s(literal 4 binary64))))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64)))) #s(literal -1/8 binary64) (fma.f64 (.f64 #s(literal 1/16 binary64) (/.f64 (.f64 (pow.f64 d #s(literal 5 binary64)) w0) (.f64 (.f64 (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 5 binary64)) (pow.f64 M #s(literal 6 binary64))) (pow.f64 D #s(literal 5 binary64))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 5 binary64)))) (fma.f64 (.f64 (/.f64 (/.f64 (.f64 w0 d) D) (.f64 (sqrt.f64 #s(literal -1/4 binary64)) (.f64 M M))) (sqrt.f64 (/.f64 l h))) #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) D) d) (sqrt.f64 (/.f64 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)))) (.f64 (.f64 (neg.f64 D) (/.f64 (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) d)) (sqrt.f64 (/.f64 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)))) (.f64 (neg.f64 M) (fma.f64 (.f64 (/.f64 (/.f64 d D) (.f64 (sqrt.f64 #s(literal -1/4 binary64)) (.f64 M M))) (sqrt.f64 (/.f64 l h))) #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) D) d) (sqrt.f64 (/.f64 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) 3)))) (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)))) (.f64 (neg.f64 M) (fma.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 (/.f64 d D) #s(literal 3 binary64)) (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal -1/4 binary64)) (pow.f64 M #s(literal 4 binary64))))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))) (fma.f64 (.f64 (/.f64 (/.f64 d D) (.f64 (sqrt.f64 #s(literal -1/4 binary64)) (.f64 M M))) (sqrt.f64 (/.f64 l h))) #s(literal 1/2 binary64) (.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) D) d) (sqrt.f64 (/.f64 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) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (pow d 5) (* (pow D 5) (* (pow M 6) (pow (sqrt -1/4) 5)))) (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 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (.f64 (neg.f64 M) (fma.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 (/.f64 d D) #s(literal 3 binary64)) (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal -1/4 binary64)) (pow.f64 M #s(literal 4 binary64))))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))) (fma.f64 (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 d #s(literal 5 binary64)) (.f64 (.f64 (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 5 binary64)) (pow.f64 M #s(literal 6 binary64))) (pow.f64 D #s(literal 5 binary64))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 5 binary64)))) (fma.f64 (.f64 (/.f64 (/.f64 d D) (.f64 (sqrt.f64 #s(literal -1/4 binary64)) (.f64 M M))) (sqrt.f64 (/.f64 l h))) #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) D) d) (sqrt.f64 (/.f64 h l))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l))) #s(hole binary64 (* -1 (* (/ (* D (* M (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (/ h l))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l))) (.f64 (neg.f64 (sqrt.f64 (/.f64 h l))) (/.f64 (.f64 (.f64 D M) (.f64 (sqrt.f64 #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 1/2 binary64)))) d)))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l))) #s(hole binary64 (* -1 (* M (+ (* (/ (* D (* (sqrt -1/2) (sqrt 1/2))) d) (sqrt (/ h l))) (* (/ (* d (sqrt 1/2)) (* D (* (pow M 2) (sqrt -1/2)))) (sqrt (/ l h))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l))) (.f64 (neg.f64 M) (fma.f64 (/.f64 (/.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) d) D) (.f64 (sqrt.f64 #s(literal -1/2 binary64)) (.f64 M M))) (sqrt.f64 (/.f64 l h)) (.f64 (/.f64 (.f64 (*.f64 D (sqrt.f64 #s(literal -1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) d) (sqrt.f64 (/.f64 h l))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l))) #s(hole binary64 (* -1 (* M (+ (* -1/2 (* (/ (* (pow d 3) (sqrt 1/2)) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* (/ (* D (* (sqrt -1/2) (sqrt 1/2))) d) (sqrt (/ h l))) (* (/ (* d (sqrt 1/2)) (* D (* (pow M 2) (sqrt -1/2)))) (sqrt (/ l h)))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l))) (.f64 (neg.f64 M) (fma.f64 (.f64 (.f64 (pow.f64 (/.f64 d D) #s(literal 3 binary64)) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (.f64 (.f64 (sqrt.f64 #s(literal -1/2 binary64)) #s(literal -1/2 binary64)) (pow.f64 M #s(literal 4 binary64))))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64)))) #s(literal -1/2 binary64) (fma.f64 (/.f64 (/.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) d) D) (.f64 (sqrt.f64 #s(literal -1/2 binary64)) (.f64 M M))) (sqrt.f64 (/.f64 l h)) (.f64 (/.f64 (.f64 (*.f64 D (sqrt.f64 #s(literal -1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) d) (sqrt.f64 (/.f64 h l)))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l))) #s(hole binary64 (* -1 (* M (+ (* -1/2 (* (/ (* (pow d 3) (sqrt 1/2)) (* (pow D 3) (* (pow M 4) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ (* (pow d 5) (sqrt 1/2)) (* (pow D 5) (* (pow M 6) (pow (sqrt -1/2) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* (/ (* D (* (sqrt -1/2) (sqrt 1/2))) d) (sqrt (/ h l))) (* (/ (* d (sqrt 1/2)) (* D (* (pow M 2) (sqrt -1/2)))) (sqrt (/ l h))))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l))) (.f64 (neg.f64 M) (fma.f64 (.f64 (.f64 (pow.f64 (/.f64 d D) #s(literal 3 binary64)) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (.f64 (.f64 (sqrt.f64 #s(literal -1/2 binary64)) #s(literal -1/2 binary64)) (pow.f64 M #s(literal 4 binary64))))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64)))) #s(literal -1/2 binary64) (fma.f64 (.f64 (.f64 (/.f64 (pow.f64 d #s(literal 5 binary64)) (pow.f64 D #s(literal 5 binary64))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (.f64 (pow.f64 (sqrt.f64 #s(literal -1/2 binary64)) #s(literal 5 binary64)) (pow.f64 M #s(literal 6 binary64))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 5 binary64))))) #s(literal 1/2 binary64) (fma.f64 (/.f64 (/.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) d) D) (.f64 (sqrt.f64 #s(literal -1/2 binary64)) (.f64 M M))) (sqrt.f64 (/.f64 l h)) (.f64 (/.f64 (.f64 (.f64 D (sqrt.f64 #s(literal -1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) d) (sqrt.f64 (/.f64 h l))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)))) #s(hole binary64 (+ (* w0 (* (sqrt 1/2) (sqrt 2))) (* (pow D 2) (+ (* -1/4 (/ (* (pow M 2) (* h (* w0 (sqrt 1/2)))) (* (pow d 2) (* l (sqrt 2))))) (* -1/32 (/ (* (pow D 2) (* (pow M 4) (* (pow h 2) (* w0 (sqrt 1/2))))) (* (pow d 4) (* (pow l 2) (pow (sqrt 2) 3))))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)))) (fma.f64 (fma.f64 (/.f64 (/.f64 (.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (.f64 (.f64 (.f64 h h) w0) (sqrt.f64 #s(literal 1/2 binary64)))) (.f64 D D)) (pow.f64 d #s(literal 4 binary64))) (.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 l l))) #s(literal -1/32 binary64) (.f64 (.f64 (/.f64 (.f64 M M) (.f64 d d)) (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) h) (.f64 (sqrt.f64 #s(literal 2 binary64)) l))) #s(literal -1/4 binary64))) (.f64 D D) (.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)))) #s(hole binary64 (+ (* w0 (* (sqrt 1/2) (sqrt 2))) (* (pow D 2) (+ (* -1/4 (/ (* (pow M 2) (* h (* w0 (sqrt 1/2)))) (* (pow d 2) (* l (sqrt 2))))) (* (pow D 2) (+ (* -1/32 (/ (* (pow M 4) (* (pow h 2) (* w0 (sqrt 1/2)))) (* (pow d 4) (* (pow l 2) (pow (sqrt 2) 3))))) (* -1/128 (/ (* (pow D 2) (* (pow M 6) (* (pow h 3) (* w0 (sqrt 1/2))))) (* (pow d 6) (* (pow l 3) (pow (sqrt 2) 5))))))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)))) (fma.f64 (fma.f64 (fma.f64 (/.f64 (/.f64 (.f64 (.f64 (pow.f64 M #s(literal 6 binary64)) (.f64 (.f64 (pow.f64 h #s(literal 3 binary64)) w0) (sqrt.f64 #s(literal 1/2 binary64)))) (.f64 D D)) (pow.f64 d #s(literal 6 binary64))) (.f64 (pow.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 5 binary64)) (pow.f64 l #s(literal 3 binary64)))) #s(literal -1/128 binary64) (.f64 (/.f64 (/.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (.f64 (.f64 (.f64 h h) w0) (sqrt.f64 #s(literal 1/2 binary64)))) (pow.f64 d #s(literal 4 binary64))) (.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 l l))) #s(literal -1/32 binary64))) (.f64 D D) (.f64 (.f64 (/.f64 (.f64 M M) (.f64 d d)) (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) h) (.f64 (sqrt.f64 #s(literal 2 binary64)) l))) #s(literal -1/4 binary64))) (.f64 D D) (.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) (sqrt.f64 #s(literal 2 binary64)))))
#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))))) (fma.f64 (fma.f64 (.f64 (/.f64 (.f64 D D) (pow.f64 d #s(literal 4 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (.f64 (.f64 h h) w0)) (.f64 l l))) #s(literal -1/128 binary64) (/.f64 (.f64 #s(literal -1/8 binary64) (.f64 (.f64 (.f64 M M) h) w0)) (.f64 (.f64 d d) l))) (*.f64 D D) w0))
#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 (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (fma.f64 (fma.f64 (fma.f64 (.f64 (/.f64 (.f64 D D) (pow.f64 d #s(literal 6 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 6 binary64)) (.f64 (pow.f64 h #s(literal 3 binary64)) w0)) (pow.f64 l #s(literal 3 binary64)))) #s(literal -1/1024 binary64) (.f64 (.f64 (/.f64 (pow.f64 M #s(literal 4 binary64)) (pow.f64 d #s(literal 4 binary64))) (/.f64 (.f64 (.f64 h h) w0) (.f64 l l))) #s(literal -1/128 binary64))) (.f64 D D) (/.f64 (.f64 #s(literal -1/8 binary64) (.f64 (.f64 (.f64 M M) h) w0)) (.f64 (.f64 d d) l))) (*.f64 D D) w0))
#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)))) (fma.f64 (fma.f64 (.f64 (/.f64 (.f64 D D) (pow.f64 d #s(literal 4 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (.f64 h h)) (.f64 l l))) #s(literal -1/128 binary64) (/.f64 (.f64 #s(literal -1/8 binary64) (.f64 (.f64 M M) h)) (.f64 (.f64 d d) l))) (*.f64 D D) #s(literal 1 binary64)))
#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 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (fma.f64 (fma.f64 (.f64 (/.f64 (.f64 D D) (pow.f64 d #s(literal 6 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 6 binary64)) (pow.f64 h #s(literal 3 binary64))) (pow.f64 l #s(literal 3 binary64)))) #s(literal -1/1024 binary64) (.f64 (.f64 (/.f64 (pow.f64 M #s(literal 4 binary64)) (pow.f64 d #s(literal 4 binary64))) (/.f64 (.f64 h h) (.f64 l l))) #s(literal -1/128 binary64))) (.f64 D D) (/.f64 (.f64 #s(literal -1/8 binary64) (.f64 (.f64 M M) h)) (.f64 (.f64 d d) l))) (.f64 D D) #s(literal 1 binary64)))
#s(approx (* (* D D) -1/8) #s(hole binary64 (* -1/8 (pow D 2))))
#s(approx (* (* D D) -1/8) (.f64 (.f64 D D) #s(literal -1/8 binary64)))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l))) #s(hole binary64 (+ (* (sqrt 1/2) (sqrt 2)) (* (pow D 2) (+ (* -1/4 (/ (* (pow M 2) (* h (sqrt 1/2))) (* (pow d 2) (* l (sqrt 2))))) (* -1/32 (/ (* (pow D 2) (* (pow M 4) (* (pow h 2) (sqrt 1/2)))) (* (pow d 4) (* (pow l 2) (pow (sqrt 2) 3))))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l))) (fma.f64 (fma.f64 (/.f64 (/.f64 (.f64 (.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (.f64 h h)) (sqrt.f64 #s(literal 1/2 binary64))) (.f64 D D)) (pow.f64 d #s(literal 4 binary64))) (.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 l l))) #s(literal -1/32 binary64) (.f64 (.f64 (/.f64 (.f64 M M) (.f64 d d)) (/.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) h) (.f64 (sqrt.f64 #s(literal 2 binary64)) l))) #s(literal -1/4 binary64))) (.f64 D D) (.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(literal 1/2 binary64)))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l))) #s(hole binary64 (+ (* (sqrt 1/2) (sqrt 2)) (* (pow D 2) (+ (* -1/4 (/ (* (pow M 2) (* h (sqrt 1/2))) (* (pow d 2) (* l (sqrt 2))))) (* (pow D 2) (+ (* -1/32 (/ (* (pow M 4) (* (pow h 2) (sqrt 1/2))) (* (pow d 4) (* (pow l 2) (pow (sqrt 2) 3))))) (* -1/128 (/ (* (pow D 2) (* (pow M 6) (* (pow h 3) (sqrt 1/2)))) (* (pow d 6) (* (pow l 3) (pow (sqrt 2) 5))))))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l))) (fma.f64 (fma.f64 (fma.f64 (/.f64 (/.f64 (.f64 (.f64 (.f64 (pow.f64 M #s(literal 6 binary64)) (pow.f64 h #s(literal 3 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) (.f64 D D)) (pow.f64 d #s(literal 6 binary64))) (.f64 (pow.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 5 binary64)) (pow.f64 l #s(literal 3 binary64)))) #s(literal -1/128 binary64) (.f64 (/.f64 (/.f64 (.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (.f64 h h)) (sqrt.f64 #s(literal 1/2 binary64))) (pow.f64 d #s(literal 4 binary64))) (.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 l l))) #s(literal -1/32 binary64))) (.f64 D D) (.f64 (.f64 (/.f64 (.f64 M M) (.f64 d d)) (/.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) h) (.f64 (sqrt.f64 #s(literal 2 binary64)) l))) #s(literal -1/4 binary64))) (.f64 D D) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(literal 1/2 binary64)))))
#s(approx (/ D (* (* l d) d)) #s(hole binary64 (/ D (* (pow d 2) l))))
#s(approx (/ D (* (* l d) d)) (/.f64 D (.f64 (.f64 d d) l)))
#s(approx (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)) #s(hole binary64 (* (pow D 2) (+ (* -1/4 (/ (* (pow M 2) h) (* (pow d 2) l))) (/ 1 (pow D 2))))))
#s(approx (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)) (.f64 (fma.f64 (.f64 (.f64 M M) (/.f64 h (.f64 (.f64 d d) l))) #s(literal -1/4 binary64) (/.f64 #s(literal 1 binary64) (.f64 D D))) (*.f64 D D)))
#s(approx (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) #s(hole binary64 (* (pow D 2) (- (* 2 (/ l (pow D 2))) (* 1/2 (/ (* (pow M 2) h) (pow d 2)))))))
#s(approx (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (.f64 (fma.f64 (/.f64 l (.f64 D D)) #s(literal 2 binary64) (.f64 #s(literal -1/2 binary64) (.f64 (.f64 M M) (/.f64 (/.f64 h d) d)))) (.f64 D D)))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)))) #s(hole binary64 (* D (+ (* (/ (* M (* w0 (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (/ h l))) (* (/ (* d (* w0 (sqrt 1/2))) (* (pow D 2) (* M (sqrt -1/2)))) (sqrt (/ l h)))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)))) (.f64 (fma.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) d) (.f64 (.f64 (sqrt.f64 #s(literal -1/2 binary64)) M) (.f64 D D))) (sqrt.f64 (/.f64 l h)) (.f64 (/.f64 (.f64 (.f64 M w0) (.f64 (sqrt.f64 #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 1/2 binary64)))) d) (sqrt.f64 (/.f64 h l)))) D))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)))) #s(hole binary64 (* D (+ (* -1/2 (* (/ (* (pow d 3) (* w0 (sqrt 1/2))) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* (/ (* M (* w0 (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (/ h l))) (* (/ (* d (* w0 (sqrt 1/2))) (* (pow D 2) (* M (sqrt -1/2)))) (sqrt (/ l h))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)))) (.f64 (fma.f64 (.f64 (.f64 (/.f64 (pow.f64 d #s(literal 3 binary64)) (pow.f64 D #s(literal 4 binary64))) (/.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) (pow.f64 (.f64 (sqrt.f64 #s(literal -1/2 binary64)) M) #s(literal 3 binary64)))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64)))) #s(literal -1/2 binary64) (fma.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) d) (.f64 (.f64 (sqrt.f64 #s(literal -1/2 binary64)) M) (.f64 D D))) (sqrt.f64 (/.f64 l h)) (.f64 (/.f64 (.f64 (.f64 M w0) (.f64 (sqrt.f64 #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 1/2 binary64)))) d) (sqrt.f64 (/.f64 h l))))) D))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)))) #s(hole binary64 (* D (+ (* -1/2 (* (/ (* (pow d 3) (* w0 (sqrt 1/2))) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ (* (pow d 5) (* w0 (sqrt 1/2))) (* (pow D 6) (* (pow M 5) (pow (sqrt -1/2) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* (/ (* M (* w0 (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (/ h l))) (* (/ (* d (* w0 (sqrt 1/2))) (* (pow D 2) (* M (sqrt -1/2)))) (sqrt (/ l h)))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)))) (.f64 (fma.f64 (.f64 (.f64 (/.f64 (pow.f64 d #s(literal 3 binary64)) (pow.f64 D #s(literal 4 binary64))) (/.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) (pow.f64 (.f64 (sqrt.f64 #s(literal -1/2 binary64)) M) #s(literal 3 binary64)))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64)))) #s(literal -1/2 binary64) (fma.f64 (.f64 (.f64 (/.f64 (pow.f64 d #s(literal 5 binary64)) (pow.f64 D #s(literal 6 binary64))) (/.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) (.f64 (pow.f64 M #s(literal 5 binary64)) (pow.f64 (sqrt.f64 #s(literal -1/2 binary64)) #s(literal 5 binary64))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 5 binary64))))) #s(literal 1/2 binary64) (fma.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) d) (.f64 (.f64 (sqrt.f64 #s(literal -1/2 binary64)) M) (.f64 D D))) (sqrt.f64 (/.f64 l h)) (.f64 (/.f64 (.f64 (.f64 M w0) (.f64 (sqrt.f64 #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 1/2 binary64)))) d) (sqrt.f64 (/.f64 h l)))))) 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))))) (.f64 (fma.f64 (.f64 (.f64 (/.f64 d (.f64 D D)) (/.f64 w0 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M))) (sqrt.f64 (/.f64 l h))) #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) M) d) (sqrt.f64 (/.f64 h l)))) D))
#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) 3)))) (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))))) (.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (pow.f64 d #s(literal 3 binary64)) w0) (.f64 (pow.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) #s(literal 3 binary64)) (pow.f64 D #s(literal 4 binary64))))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))) (fma.f64 (.f64 (.f64 (/.f64 d (.f64 D D)) (/.f64 w0 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M))) (sqrt.f64 (/.f64 l h))) #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) M) d) (sqrt.f64 (/.f64 h l))))) D))
#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) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 6) (* (pow M 5) (pow (sqrt -1/4) 5)))) (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))))) (.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (pow.f64 d #s(literal 3 binary64)) w0) (.f64 (pow.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) #s(literal 3 binary64)) (pow.f64 D #s(literal 4 binary64))))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))) (fma.f64 (.f64 #s(literal 1/16 binary64) (/.f64 (.f64 (pow.f64 d #s(literal 5 binary64)) w0) (.f64 (.f64 (pow.f64 M #s(literal 5 binary64)) (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 5 binary64))) (pow.f64 D #s(literal 6 binary64))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 5 binary64)))) (fma.f64 (.f64 (.f64 (/.f64 d (.f64 D D)) (/.f64 w0 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M))) (sqrt.f64 (/.f64 l h))) #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) M) d) (sqrt.f64 (/.f64 h l)))))) D))
#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)))) (.f64 (fma.f64 (.f64 (/.f64 (/.f64 d (.f64 D D)) (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M)) (sqrt.f64 (/.f64 l h))) #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) d) (sqrt.f64 (/.f64 h l)))) D))
#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) 3)))) (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)))) (.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 d #s(literal 3 binary64)) (.f64 (pow.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) #s(literal 3 binary64)) (pow.f64 D #s(literal 4 binary64))))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))) (fma.f64 (.f64 (/.f64 (/.f64 d (.f64 D D)) (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M)) (sqrt.f64 (/.f64 l h))) #s(literal 1/2 binary64) (.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) d) (sqrt.f64 (/.f64 h l))))) D))
#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) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (pow d 5) (* (pow D 6) (* (pow M 5) (pow (sqrt -1/4) 5)))) (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 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 d #s(literal 3 binary64)) (.f64 (pow.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) #s(literal 3 binary64)) (pow.f64 D #s(literal 4 binary64))))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))) (fma.f64 (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 d #s(literal 5 binary64)) (.f64 (.f64 (pow.f64 M #s(literal 5 binary64)) (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 5 binary64))) (pow.f64 D #s(literal 6 binary64))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 5 binary64)))) (fma.f64 (.f64 (/.f64 (/.f64 d (.f64 D D)) (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M)) (sqrt.f64 (/.f64 l h))) #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) d) (sqrt.f64 (/.f64 h l)))))) D))
#s(approx (+ (* (* (* D D) -1/8) (* (/ h (* d d)) (/ (* M M) l))) 1) #s(hole binary64 (* (pow D 2) (+ (* -1/8 (/ (* (pow M 2) h) (* (pow d 2) l))) (/ 1 (pow D 2))))))
#s(approx (+ (* (* (* D D) -1/8) (* (/ h (* d d)) (/ (* M M) l))) 1) (.f64 (fma.f64 (.f64 (.f64 M M) (/.f64 h (.f64 (.f64 d d) l))) #s(literal -1/8 binary64) (/.f64 #s(literal 1 binary64) (.f64 D D))) (*.f64 D D)))
#s(approx (+ (* (* (* D D) -1/8) (/ (* (* M M) h) (* (* l d) d))) 1) #s(hole binary64 (* (pow D 2) (+ (* -1/8 (/ (* (pow M 2) h) (* (pow d 2) l))) (/ 1 (pow D 2))))))
#s(approx (+ (* (* (* D D) -1/8) (/ (* (* M M) h) (* (* l d) d))) 1) (.f64 (fma.f64 (.f64 (.f64 M M) (/.f64 h (.f64 (.f64 d d) l))) #s(literal -1/8 binary64) (/.f64 #s(literal 1 binary64) (.f64 D D))) (*.f64 D D)))
#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 (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (.f64 (fma.f64 (.f64 (.f64 M M) (/.f64 h (.f64 (.f64 d d) l))) #s(literal -1/4 binary64) (/.f64 #s(literal 1 binary64) (.f64 D D))) (*.f64 D D)))
#s(approx (+ (* (* h -1/4) (* M (* (* M D) (/ D (* (* l d) d))))) 1) #s(hole binary64 (* (pow D 2) (+ (* -1/4 (/ (* (pow M 2) h) (* (pow d 2) l))) (/ 1 (pow D 2))))))
#s(approx (+ (* (* h -1/4) (* M (* (* M D) (/ D (* (* l d) d))))) 1) (.f64 (fma.f64 (.f64 (.f64 M M) (/.f64 h (.f64 (.f64 d d) l))) #s(literal -1/4 binary64) (/.f64 #s(literal 1 binary64) (.f64 D D))) (*.f64 D D)))
#s(approx (+ (* (* h -1/4) (/ (* (* (* M M) D) (/ D d)) (* l d))) 1) #s(hole binary64 (* (pow D 2) (+ (* -1/4 (/ (* (pow M 2) h) (* (pow d 2) l))) (/ 1 (pow D 2))))))
#s(approx (+ (* (* h -1/4) (/ (* (* (* M M) D) (/ D d)) (* l d))) 1) (.f64 (fma.f64 (.f64 (.f64 M M) (/.f64 h (.f64 (.f64 d d) l))) #s(literal -1/4 binary64) (/.f64 #s(literal 1 binary64) (.f64 D D))) (*.f64 D D)))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l))) #s(hole binary64 (* D (+ (* (/ (* M (* (sqrt -1/2) (sqrt 1/2))) d) (sqrt (/ h l))) (* (/ (* d (sqrt 1/2)) (* (pow D 2) (* M (sqrt -1/2)))) (sqrt (/ l h)))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l))) (.f64 (fma.f64 (/.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) d) (.f64 (.f64 (sqrt.f64 #s(literal -1/2 binary64)) M) (.f64 D D))) (sqrt.f64 (/.f64 l h)) (.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/2 binary64)) M) (sqrt.f64 #s(literal 1/2 binary64))) d) (sqrt.f64 (/.f64 h l)))) D))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l))) #s(hole binary64 (* D (+ (* -1/2 (* (/ (* (pow d 3) (sqrt 1/2)) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* (/ (* M (* (sqrt -1/2) (sqrt 1/2))) d) (sqrt (/ h l))) (* (/ (* d (sqrt 1/2)) (* (pow D 2) (* M (sqrt -1/2)))) (sqrt (/ l h))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l))) (.f64 (fma.f64 (.f64 (.f64 (/.f64 (pow.f64 d #s(literal 3 binary64)) (pow.f64 D #s(literal 4 binary64))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (pow.f64 (.f64 (sqrt.f64 #s(literal -1/2 binary64)) M) #s(literal 3 binary64)))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64)))) #s(literal -1/2 binary64) (fma.f64 (/.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) d) (.f64 (.f64 (sqrt.f64 #s(literal -1/2 binary64)) M) (.f64 D D))) (sqrt.f64 (/.f64 l h)) (.f64 (/.f64 (.f64 (*.f64 (sqrt.f64 #s(literal -1/2 binary64)) M) (sqrt.f64 #s(literal 1/2 binary64))) d) (sqrt.f64 (/.f64 h l))))) D))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l))) #s(hole binary64 (* D (+ (* -1/2 (* (/ (* (pow d 3) (sqrt 1/2)) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ (* (pow d 5) (sqrt 1/2)) (* (pow D 6) (* (pow M 5) (pow (sqrt -1/2) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* (/ (* M (* (sqrt -1/2) (sqrt 1/2))) d) (sqrt (/ h l))) (* (/ (* d (sqrt 1/2)) (* (pow D 2) (* M (sqrt -1/2)))) (sqrt (/ l h)))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l))) (.f64 (fma.f64 (.f64 (.f64 (/.f64 (pow.f64 d #s(literal 3 binary64)) (pow.f64 D #s(literal 4 binary64))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (pow.f64 (.f64 (sqrt.f64 #s(literal -1/2 binary64)) M) #s(literal 3 binary64)))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64)))) #s(literal -1/2 binary64) (fma.f64 (.f64 (.f64 (/.f64 (pow.f64 d #s(literal 5 binary64)) (pow.f64 D #s(literal 6 binary64))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (.f64 (pow.f64 M #s(literal 5 binary64)) (pow.f64 (sqrt.f64 #s(literal -1/2 binary64)) #s(literal 5 binary64))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 5 binary64))))) #s(literal 1/2 binary64) (fma.f64 (/.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) d) (.f64 (.f64 (sqrt.f64 #s(literal -1/2 binary64)) M) (.f64 D D))) (sqrt.f64 (/.f64 l h)) (.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/2 binary64)) M) (sqrt.f64 #s(literal 1/2 binary64))) d) (sqrt.f64 (/.f64 h l)))))) D))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)))) #s(hole binary64 (* -1 (* D (+ (* (/ (* M (* w0 (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (/ h l))) (* (/ (* d (* w0 (sqrt 1/2))) (* (pow D 2) (* M (sqrt -1/2)))) (sqrt (/ l h))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)))) (.f64 (neg.f64 D) (fma.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) d) (.f64 (.f64 (sqrt.f64 #s(literal -1/2 binary64)) M) (.f64 D D))) (sqrt.f64 (/.f64 l h)) (.f64 (/.f64 (.f64 (.f64 M w0) (.f64 (sqrt.f64 #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 1/2 binary64)))) d) (sqrt.f64 (/.f64 h l))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)))) #s(hole binary64 (* -1 (* D (+ (* -1/2 (* (/ (* (pow d 3) (* w0 (sqrt 1/2))) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* (/ (* M (* w0 (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (/ h l))) (* (/ (* d (* w0 (sqrt 1/2))) (* (pow D 2) (* M (sqrt -1/2)))) (sqrt (/ l h)))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)))) (.f64 (neg.f64 D) (fma.f64 (.f64 (.f64 (/.f64 (pow.f64 d #s(literal 3 binary64)) (pow.f64 D #s(literal 4 binary64))) (/.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) (pow.f64 (.f64 (sqrt.f64 #s(literal -1/2 binary64)) M) #s(literal 3 binary64)))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64)))) #s(literal -1/2 binary64) (fma.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) d) (.f64 (.f64 (sqrt.f64 #s(literal -1/2 binary64)) M) (.f64 D D))) (sqrt.f64 (/.f64 l h)) (.f64 (/.f64 (.f64 (.f64 M w0) (.f64 (sqrt.f64 #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 1/2 binary64)))) d) (sqrt.f64 (/.f64 h l)))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)))) #s(hole binary64 (* -1 (* D (+ (* -1/2 (* (/ (* (pow d 3) (* w0 (sqrt 1/2))) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ (* (pow d 5) (* w0 (sqrt 1/2))) (* (pow D 6) (* (pow M 5) (pow (sqrt -1/2) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* (/ (* M (* w0 (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (/ h l))) (* (/ (* d (* w0 (sqrt 1/2))) (* (pow D 2) (* M (sqrt -1/2)))) (sqrt (/ l h))))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)))) (.f64 (neg.f64 D) (fma.f64 (.f64 (.f64 (/.f64 (pow.f64 d #s(literal 3 binary64)) (pow.f64 D #s(literal 4 binary64))) (/.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) (pow.f64 (.f64 (sqrt.f64 #s(literal -1/2 binary64)) M) #s(literal 3 binary64)))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64)))) #s(literal -1/2 binary64) (fma.f64 (.f64 (.f64 (/.f64 (pow.f64 d #s(literal 5 binary64)) (pow.f64 D #s(literal 6 binary64))) (/.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) (.f64 (pow.f64 M #s(literal 5 binary64)) (pow.f64 (sqrt.f64 #s(literal -1/2 binary64)) #s(literal 5 binary64))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 5 binary64))))) #s(literal 1/2 binary64) (fma.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) d) (.f64 (.f64 (sqrt.f64 #s(literal -1/2 binary64)) M) (.f64 D D))) (sqrt.f64 (/.f64 l h)) (.f64 (/.f64 (.f64 (.f64 M w0) (.f64 (sqrt.f64 #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 1/2 binary64)))) d) (sqrt.f64 (/.f64 h 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))))) (.f64 (neg.f64 D) (fma.f64 (.f64 (.f64 (/.f64 d (.f64 D D)) (/.f64 w0 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M))) (sqrt.f64 (/.f64 l h))) #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) M) d) (sqrt.f64 (/.f64 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) 3)))) (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))))) (.f64 (neg.f64 D) (fma.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (pow.f64 d #s(literal 3 binary64)) w0) (.f64 (pow.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) #s(literal 3 binary64)) (pow.f64 D #s(literal 4 binary64))))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))) (fma.f64 (.f64 (.f64 (/.f64 d (.f64 D D)) (/.f64 w0 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M))) (sqrt.f64 (/.f64 l h))) #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) M) d) (sqrt.f64 (/.f64 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) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 6) (* (pow M 5) (pow (sqrt -1/4) 5)))) (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))))) (.f64 (neg.f64 D) (fma.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (pow.f64 d #s(literal 3 binary64)) w0) (.f64 (pow.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) #s(literal 3 binary64)) (pow.f64 D #s(literal 4 binary64))))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))) (fma.f64 (.f64 #s(literal 1/16 binary64) (/.f64 (.f64 (pow.f64 d #s(literal 5 binary64)) w0) (.f64 (.f64 (pow.f64 M #s(literal 5 binary64)) (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 5 binary64))) (pow.f64 D #s(literal 6 binary64))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 5 binary64)))) (fma.f64 (.f64 (.f64 (/.f64 d (.f64 D D)) (/.f64 w0 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M))) (sqrt.f64 (/.f64 l h))) #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) M) d) (sqrt.f64 (/.f64 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)))) (.f64 (neg.f64 D) (fma.f64 (.f64 (/.f64 (/.f64 d (.f64 D D)) (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M)) (sqrt.f64 (/.f64 l h))) #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) d) (sqrt.f64 (/.f64 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) 3)))) (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)))) (.f64 (neg.f64 D) (fma.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 d #s(literal 3 binary64)) (.f64 (pow.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) #s(literal 3 binary64)) (pow.f64 D #s(literal 4 binary64))))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))) (fma.f64 (.f64 (/.f64 (/.f64 d (.f64 D D)) (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M)) (sqrt.f64 (/.f64 l h))) #s(literal 1/2 binary64) (.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) d) (sqrt.f64 (/.f64 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) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/16 (* (/ (pow d 5) (* (pow D 6) (* (pow M 5) (pow (sqrt -1/4) 5)))) (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 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (.f64 (neg.f64 D) (fma.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 d #s(literal 3 binary64)) (.f64 (pow.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) #s(literal 3 binary64)) (pow.f64 D #s(literal 4 binary64))))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))) (fma.f64 (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 d #s(literal 5 binary64)) (.f64 (.f64 (pow.f64 M #s(literal 5 binary64)) (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 5 binary64))) (pow.f64 D #s(literal 6 binary64))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 5 binary64)))) (fma.f64 (.f64 (/.f64 (/.f64 d (.f64 D D)) (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M)) (sqrt.f64 (/.f64 l h))) #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) d) (sqrt.f64 (/.f64 h l))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l))) #s(hole binary64 (* -1 (* D (+ (* (/ (* M (* (sqrt -1/2) (sqrt 1/2))) d) (sqrt (/ h l))) (* (/ (* d (sqrt 1/2)) (* (pow D 2) (* M (sqrt -1/2)))) (sqrt (/ l h))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l))) (.f64 (neg.f64 D) (fma.f64 (/.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) d) (.f64 (.f64 (sqrt.f64 #s(literal -1/2 binary64)) M) (.f64 D D))) (sqrt.f64 (/.f64 l h)) (.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/2 binary64)) M) (sqrt.f64 #s(literal 1/2 binary64))) d) (sqrt.f64 (/.f64 h l))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l))) #s(hole binary64 (* -1 (* D (+ (* -1/2 (* (/ (* (pow d 3) (sqrt 1/2)) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* (/ (* M (* (sqrt -1/2) (sqrt 1/2))) d) (sqrt (/ h l))) (* (/ (* d (sqrt 1/2)) (* (pow D 2) (* M (sqrt -1/2)))) (sqrt (/ l h)))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l))) (.f64 (neg.f64 D) (fma.f64 (.f64 (.f64 (/.f64 (pow.f64 d #s(literal 3 binary64)) (pow.f64 D #s(literal 4 binary64))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (pow.f64 (.f64 (sqrt.f64 #s(literal -1/2 binary64)) M) #s(literal 3 binary64)))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64)))) #s(literal -1/2 binary64) (fma.f64 (/.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) d) (.f64 (.f64 (sqrt.f64 #s(literal -1/2 binary64)) M) (.f64 D D))) (sqrt.f64 (/.f64 l h)) (.f64 (/.f64 (.f64 (*.f64 (sqrt.f64 #s(literal -1/2 binary64)) M) (sqrt.f64 #s(literal 1/2 binary64))) d) (sqrt.f64 (/.f64 h l)))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l))) #s(hole binary64 (* -1 (* D (+ (* -1/2 (* (/ (* (pow d 3) (sqrt 1/2)) (* (pow D 4) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (+ (* 1/2 (* (/ (* (pow d 5) (sqrt 1/2)) (* (pow D 6) (* (pow M 5) (pow (sqrt -1/2) 5)))) (sqrt (/ (pow l 5) (pow h 5))))) (+ (* (/ (* M (* (sqrt -1/2) (sqrt 1/2))) d) (sqrt (/ h l))) (* (/ (* d (sqrt 1/2)) (* (pow D 2) (* M (sqrt -1/2)))) (sqrt (/ l h))))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l))) (.f64 (neg.f64 D) (fma.f64 (.f64 (.f64 (/.f64 (pow.f64 d #s(literal 3 binary64)) (pow.f64 D #s(literal 4 binary64))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (pow.f64 (.f64 (sqrt.f64 #s(literal -1/2 binary64)) M) #s(literal 3 binary64)))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64)))) #s(literal -1/2 binary64) (fma.f64 (.f64 (.f64 (/.f64 (pow.f64 d #s(literal 5 binary64)) (pow.f64 D #s(literal 6 binary64))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (.f64 (pow.f64 M #s(literal 5 binary64)) (pow.f64 (sqrt.f64 #s(literal -1/2 binary64)) #s(literal 5 binary64))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 5 binary64))))) #s(literal 1/2 binary64) (fma.f64 (/.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) d) (.f64 (.f64 (sqrt.f64 #s(literal -1/2 binary64)) M) (.f64 D D))) (sqrt.f64 (/.f64 l h)) (.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/2 binary64)) M) (sqrt.f64 #s(literal 1/2 binary64))) d) (sqrt.f64 (/.f64 h l))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)))) #s(hole binary64 (+ (* h (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (* w0 (sqrt 1/2)))) (* (pow d 2) (* l (sqrt 2))))) (* -1/32 (/ (* (pow D 4) (* (pow M 4) (* h (* w0 (sqrt 1/2))))) (* (pow d 4) (* (pow l 2) (pow (sqrt 2) 3))))))) (* w0 (* (sqrt 1/2) (sqrt 2))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)))) (fma.f64 (fma.f64 (/.f64 (/.f64 (.f64 (.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) h) (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0)) (pow.f64 D #s(literal 4 binary64))) (pow.f64 d #s(literal 4 binary64))) (.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 l l))) #s(literal -1/32 binary64) (.f64 (.f64 (/.f64 (.f64 D D) (.f64 d d)) (/.f64 (.f64 (.f64 (.f64 M M) w0) (sqrt.f64 #s(literal 1/2 binary64))) (.f64 (sqrt.f64 #s(literal 2 binary64)) l))) #s(literal -1/4 binary64))) h (.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) (sqrt.f64 #s(literal 2 binary64)))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)))) #s(hole binary64 (+ (* h (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (* w0 (sqrt 1/2)))) (* (pow d 2) (* l (sqrt 2))))) (* h (+ (* -1/32 (/ (* (pow D 4) (* (pow M 4) (* w0 (sqrt 1/2)))) (* (pow d 4) (* (pow l 2) (pow (sqrt 2) 3))))) (* -1/128 (/ (* (pow D 6) (* (pow M 6) (* h (* w0 (sqrt 1/2))))) (* (pow d 6) (* (pow l 3) (pow (sqrt 2) 5))))))))) (* w0 (* (sqrt 1/2) (sqrt 2))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)))) (fma.f64 (fma.f64 (fma.f64 (/.f64 (/.f64 (.f64 (.f64 (.f64 (pow.f64 M #s(literal 6 binary64)) h) (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0)) (pow.f64 D #s(literal 6 binary64))) (pow.f64 d #s(literal 6 binary64))) (.f64 (pow.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 5 binary64)) (pow.f64 l #s(literal 3 binary64)))) #s(literal -1/128 binary64) (.f64 (/.f64 (/.f64 (.f64 (.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) w0) (sqrt.f64 #s(literal 1/2 binary64))) (pow.f64 D #s(literal 4 binary64))) (pow.f64 d #s(literal 4 binary64))) (.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 l l))) #s(literal -1/32 binary64))) h (.f64 (.f64 (/.f64 (.f64 D D) (.f64 d d)) (/.f64 (.f64 (.f64 (.f64 M M) w0) (sqrt.f64 #s(literal 1/2 binary64))) (.f64 (sqrt.f64 #s(literal 2 binary64)) l))) #s(literal -1/4 binary64))) h (.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) (sqrt.f64 #s(literal 2 binary64)))))
#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))))) (fma.f64 (fma.f64 (.f64 (/.f64 (pow.f64 D #s(literal 4 binary64)) (pow.f64 d #s(literal 4 binary64))) (/.f64 (.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) h) w0) (.f64 l l))) #s(literal -1/128 binary64) (/.f64 (.f64 #s(literal -1/8 binary64) (.f64 (.f64 (.f64 (.f64 M M) D) D) w0)) (.f64 (*.f64 d d) l))) h w0))
#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 (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (fma.f64 (fma.f64 (fma.f64 (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (pow.f64 d #s(literal 6 binary64))) (/.f64 (.f64 (.f64 (pow.f64 M #s(literal 6 binary64)) h) w0) (pow.f64 l #s(literal 3 binary64)))) #s(literal -1/1024 binary64) (.f64 (.f64 (/.f64 (pow.f64 D #s(literal 4 binary64)) (pow.f64 d #s(literal 4 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) w0) (.f64 l l))) #s(literal -1/128 binary64))) h (/.f64 (.f64 #s(literal -1/8 binary64) (.f64 (.f64 (.f64 (.f64 M M) D) D) w0)) (.f64 (.f64 d d) l))) h w0))
#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)))) (fma.f64 (fma.f64 (.f64 (/.f64 (pow.f64 D #s(literal 4 binary64)) (pow.f64 d #s(literal 4 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) h) (.f64 l l))) #s(literal -1/128 binary64) (/.f64 (.f64 #s(literal -1/8 binary64) (.f64 (.f64 (.f64 M M) D) D)) (.f64 (*.f64 d d) l))) h #s(literal 1 binary64)))
#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 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (fma.f64 (fma.f64 (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (pow.f64 d #s(literal 6 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 6 binary64)) h) (pow.f64 l #s(literal 3 binary64)))) #s(literal -1/1024 binary64) (.f64 (.f64 (/.f64 (pow.f64 D #s(literal 4 binary64)) (pow.f64 d #s(literal 4 binary64))) (/.f64 (pow.f64 M #s(literal 4 binary64)) (.f64 l l))) #s(literal -1/128 binary64))) h (/.f64 (.f64 #s(literal -1/8 binary64) (.f64 (.f64 (.f64 M M) D) D)) (.f64 (*.f64 d d) l))) h #s(literal 1 binary64)))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l))) #s(hole binary64 (+ (* h (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (sqrt 1/2))) (* (pow d 2) (* l (sqrt 2))))) (* -1/32 (/ (* (pow D 4) (* (pow M 4) (* h (sqrt 1/2)))) (* (pow d 4) (* (pow l 2) (pow (sqrt 2) 3))))))) (* (sqrt 1/2) (sqrt 2)))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l))) (fma.f64 (fma.f64 (/.f64 (/.f64 (.f64 (.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) h) (sqrt.f64 #s(literal 1/2 binary64))) (pow.f64 D #s(literal 4 binary64))) (pow.f64 d #s(literal 4 binary64))) (.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 l l))) #s(literal -1/32 binary64) (.f64 (.f64 (/.f64 (.f64 D D) (.f64 d d)) (/.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (.f64 M M)) (.f64 (sqrt.f64 #s(literal 2 binary64)) l))) #s(literal -1/4 binary64))) h (.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(literal 1/2 binary64)))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l))) #s(hole binary64 (+ (* h (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (sqrt 1/2))) (* (pow d 2) (* l (sqrt 2))))) (* h (+ (* -1/32 (/ (* (pow D 4) (* (pow M 4) (sqrt 1/2))) (* (pow d 4) (* (pow l 2) (pow (sqrt 2) 3))))) (* -1/128 (/ (* (pow D 6) (* (pow M 6) (* h (sqrt 1/2)))) (* (pow d 6) (* (pow l 3) (pow (sqrt 2) 5))))))))) (* (sqrt 1/2) (sqrt 2)))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l))) (fma.f64 (fma.f64 (fma.f64 (/.f64 (/.f64 (.f64 (.f64 (.f64 (pow.f64 M #s(literal 6 binary64)) h) (sqrt.f64 #s(literal 1/2 binary64))) (pow.f64 D #s(literal 6 binary64))) (pow.f64 d #s(literal 6 binary64))) (.f64 (pow.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 5 binary64)) (pow.f64 l #s(literal 3 binary64)))) #s(literal -1/128 binary64) (.f64 (/.f64 (/.f64 (.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (sqrt.f64 #s(literal 1/2 binary64))) (pow.f64 D #s(literal 4 binary64))) (pow.f64 d #s(literal 4 binary64))) (.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 l l))) #s(literal -1/32 binary64))) h (.f64 (.f64 (/.f64 (.f64 D D) (.f64 d d)) (/.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (.f64 M M)) (.f64 (sqrt.f64 #s(literal 2 binary64)) l))) #s(literal -1/4 binary64))) h (.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(literal 1/2 binary64)))))
#s(approx (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)) #s(hole binary64 (* h (+ (* -1/4 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (/ 1 h)))))
#s(approx (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)) (.f64 (fma.f64 (/.f64 (.f64 (.f64 (.f64 M M) D) D) (.f64 (.f64 d d) l)) #s(literal -1/4 binary64) (/.f64 #s(literal 1 binary64) h)) h))
#s(approx (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) #s(hole binary64 (* h (- (* 2 (/ l h)) (* 1/2 (/ (* (pow D 2) (pow M 2)) (pow d 2)))))))
#s(approx (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (.f64 (fma.f64 (/.f64 l h) #s(literal 2 binary64) (/.f64 (.f64 #s(literal -1/2 binary64) (.f64 (.f64 (.f64 M M) D) D)) (.f64 d d))) h))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)))) #s(hole binary64 (* h (+ (* (/ (* D (* M (* w0 (* (sqrt -1/2) (sqrt 1/2))))) d) (sqrt (/ 1 (* h l)))) (* (/ (* d (* w0 (sqrt 1/2))) (* D (* M (sqrt -1/2)))) (sqrt (/ l (pow h 3))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)))) (.f64 (fma.f64 (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64)))) (/.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) d) D) (.f64 (sqrt.f64 #s(literal -1/2 binary64)) M)) (.f64 (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) h) l)) (/.f64 (.f64 (.f64 D M) (.f64 (*.f64 w0 (sqrt.f64 #s(literal -1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))) d))) h))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)))) #s(hole binary64 (* h (+ (* -1/2 (* (/ (* (pow d 3) (* w0 (sqrt 1/2))) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* (/ (* D (* M (* w0 (* (sqrt -1/2) (sqrt 1/2))))) d) (sqrt (/ 1 (* h l)))) (* (/ (* d (* w0 (sqrt 1/2))) (* D (* M (sqrt -1/2)))) (sqrt (/ l (pow h 3)))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)))) (.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 (pow.f64 d #s(literal 3 binary64)) w0) (sqrt.f64 #s(literal 1/2 binary64))) (pow.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/2 binary64)) M) D) #s(literal 3 binary64)))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 h #s(literal 5 binary64)))) (fma.f64 (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64)))) (/.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) d) D) (.f64 (sqrt.f64 #s(literal -1/2 binary64)) M)) (.f64 (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) h) l)) (/.f64 (.f64 (.f64 D M) (.f64 (.f64 w0 (sqrt.f64 #s(literal -1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))) d)))) h))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)))) #s(hole binary64 (* h (+ (* -1/2 (* (/ (* (pow d 3) (* w0 (sqrt 1/2))) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/2 (* (/ (* (pow d 5) (* w0 (sqrt 1/2))) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/2) 5)))) (sqrt (/ (pow l 5) (pow h 7))))) (+ (* (/ (* D (* M (* w0 (* (sqrt -1/2) (sqrt 1/2))))) d) (sqrt (/ 1 (* h l)))) (* (/ (* d (* w0 (sqrt 1/2))) (* D (* M (sqrt -1/2)))) (sqrt (/ l (pow h 3))))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)))) (.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 (pow.f64 d #s(literal 3 binary64)) w0) (sqrt.f64 #s(literal 1/2 binary64))) (pow.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/2 binary64)) M) D) #s(literal 3 binary64)))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 h #s(literal 5 binary64)))) (fma.f64 (.f64 (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 7 binary64)))) (.f64 (/.f64 (pow.f64 d #s(literal 5 binary64)) (pow.f64 D #s(literal 5 binary64))) (/.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) (.f64 (pow.f64 M #s(literal 5 binary64)) (pow.f64 (sqrt.f64 #s(literal -1/2 binary64)) #s(literal 5 binary64)))))) #s(literal 1/2 binary64) (fma.f64 (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64)))) (/.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) d) D) (.f64 (sqrt.f64 #s(literal -1/2 binary64)) M)) (.f64 (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) h) l)) (/.f64 (.f64 (.f64 D M) (.f64 (.f64 w0 (sqrt.f64 #s(literal -1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))) d))))) 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))))) (.f64 (fma.f64 (.f64 (.f64 (/.f64 d D) (/.f64 w0 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M))) (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64))))) #s(literal 1/2 binary64) (.f64 (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) h) l)) (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) M) D) d))) h))
#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) 3)))) (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))))) (.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 (pow.f64 d #s(literal 3 binary64)) (/.f64 w0 (pow.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) #s(literal 3 binary64))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 h #s(literal 5 binary64)))) (fma.f64 (.f64 (.f64 (/.f64 d D) (/.f64 w0 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M))) (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64))))) #s(literal 1/2 binary64) (.f64 (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) h) l)) (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) M) D) d)))) h))
#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) 3)))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/4) 5)))) (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))))) (.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 (pow.f64 d #s(literal 3 binary64)) (/.f64 w0 (pow.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) #s(literal 3 binary64))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 h #s(literal 5 binary64)))) (fma.f64 (.f64 #s(literal 1/16 binary64) (/.f64 (.f64 (pow.f64 d #s(literal 5 binary64)) w0) (.f64 (.f64 (pow.f64 M #s(literal 5 binary64)) (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 5 binary64))) (pow.f64 D #s(literal 5 binary64))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 7 binary64)))) (fma.f64 (.f64 (.f64 (/.f64 d D) (/.f64 w0 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M))) (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64))))) #s(literal 1/2 binary64) (.f64 (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) h) l)) (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) M) D) d))))) h))
#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)))) (.f64 (fma.f64 (.f64 #s(literal 1/2 binary64) (/.f64 d (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D))) (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64)))) (.f64 (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) h) l)) (/.f64 (.f64 (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) d))) h))
#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) 3)))) (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)))) (.f64 (fma.f64 (.f64 (/.f64 (pow.f64 d #s(literal 3 binary64)) (pow.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) #s(literal 3 binary64))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 h #s(literal 5 binary64))))) #s(literal -1/8 binary64) (fma.f64 (.f64 #s(literal 1/2 binary64) (/.f64 d (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D))) (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64)))) (.f64 (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) h) l)) (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) d)))) h))
#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) 3)))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/16 (* (/ (pow d 5) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/4) 5)))) (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 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 d #s(literal 3 binary64)) (pow.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) #s(literal 3 binary64)))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 h #s(literal 5 binary64)))) (fma.f64 (.f64 (/.f64 (pow.f64 d #s(literal 5 binary64)) (.f64 (.f64 (pow.f64 M #s(literal 5 binary64)) (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 5 binary64))) (pow.f64 D #s(literal 5 binary64)))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 7 binary64))))) #s(literal 1/16 binary64) (fma.f64 (.f64 #s(literal 1/2 binary64) (/.f64 d (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D))) (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64)))) (.f64 (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) h) l)) (/.f64 (.f64 (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) d))))) h))
#s(approx (+ (* (* (* D D) -1/8) (* (/ h (* d d)) (/ (* M M) l))) 1) #s(hole binary64 (* h (+ (* -1/8 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (/ 1 h)))))
#s(approx (+ (* (* (* D D) -1/8) (* (/ h (* d d)) (/ (* M M) l))) 1) (.f64 (fma.f64 (/.f64 (.f64 (.f64 (.f64 M M) D) D) (.f64 (.f64 d d) l)) #s(literal -1/8 binary64) (/.f64 #s(literal 1 binary64) h)) h))
#s(approx (+ (* (* (* D D) -1/8) (/ (* (* M M) h) (* (* l d) d))) 1) #s(hole binary64 (* h (+ (* -1/8 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (/ 1 h)))))
#s(approx (+ (* (* (* D D) -1/8) (/ (* (* M M) h) (* (* l d) d))) 1) (.f64 (fma.f64 (/.f64 (.f64 (.f64 (.f64 M M) D) D) (.f64 (.f64 d d) l)) #s(literal -1/8 binary64) (/.f64 #s(literal 1 binary64) h)) h))
#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 (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (.f64 (fma.f64 (/.f64 (.f64 (.f64 (.f64 M M) D) D) (.f64 (.f64 d d) l)) #s(literal -1/4 binary64) (/.f64 #s(literal 1 binary64) h)) h))
#s(approx (+ (* (* h -1/4) (* M (* (* M D) (/ D (* (* l d) d))))) 1) #s(hole binary64 (* h (+ (* -1/4 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (/ 1 h)))))
#s(approx (+ (* (* h -1/4) (* M (* (* M D) (/ D (* (* l d) d))))) 1) (.f64 (fma.f64 (/.f64 (.f64 (.f64 (.f64 M M) D) D) (.f64 (.f64 d d) l)) #s(literal -1/4 binary64) (/.f64 #s(literal 1 binary64) h)) h))
#s(approx (+ (* (* h -1/4) (/ (* (* (* M M) D) (/ D d)) (* l d))) 1) #s(hole binary64 (* h (+ (* -1/4 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (/ 1 h)))))
#s(approx (+ (* (* h -1/4) (/ (* (* (* M M) D) (/ D d)) (* l d))) 1) (.f64 (fma.f64 (/.f64 (.f64 (.f64 (.f64 M M) D) D) (.f64 (.f64 d d) l)) #s(literal -1/4 binary64) (/.f64 #s(literal 1 binary64) h)) h))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l))) #s(hole binary64 (* h (+ (* (/ (* D (* M (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (/ 1 (* h l)))) (* (/ (* d (sqrt 1/2)) (* D (* M (sqrt -1/2)))) (sqrt (/ l (pow h 3))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l))) (.f64 (fma.f64 (/.f64 (/.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) d) D) (.f64 (sqrt.f64 #s(literal -1/2 binary64)) M)) (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64)))) (.f64 (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) h) l)) (/.f64 (.f64 (.f64 D M) (*.f64 (sqrt.f64 #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 1/2 binary64)))) d))) h))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l))) #s(hole binary64 (* h (+ (* -1/2 (* (/ (* (pow d 3) (sqrt 1/2)) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* (/ (* D (* M (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (/ 1 (* h l)))) (* (/ (* d (sqrt 1/2)) (* D (* M (sqrt -1/2)))) (sqrt (/ l (pow h 3)))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l))) (.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (pow.f64 d #s(literal 3 binary64)) (sqrt.f64 #s(literal 1/2 binary64))) (pow.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/2 binary64)) M) D) #s(literal 3 binary64)))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 h #s(literal 5 binary64)))) (fma.f64 (/.f64 (/.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) d) D) (.f64 (sqrt.f64 #s(literal -1/2 binary64)) M)) (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64)))) (.f64 (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) h) l)) (/.f64 (.f64 (.f64 D M) (*.f64 (sqrt.f64 #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 1/2 binary64)))) d)))) h))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l))) #s(hole binary64 (* h (+ (* -1/2 (* (/ (* (pow d 3) (sqrt 1/2)) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/2 (* (/ (* (pow d 5) (sqrt 1/2)) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/2) 5)))) (sqrt (/ (pow l 5) (pow h 7))))) (+ (* (/ (* D (* M (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (/ 1 (* h l)))) (* (/ (* d (sqrt 1/2)) (* D (* M (sqrt -1/2)))) (sqrt (/ l (pow h 3))))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l))) (.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (pow.f64 d #s(literal 3 binary64)) (sqrt.f64 #s(literal 1/2 binary64))) (pow.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/2 binary64)) M) D) #s(literal 3 binary64)))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 h #s(literal 5 binary64)))) (fma.f64 (.f64 (.f64 (/.f64 (pow.f64 d #s(literal 5 binary64)) (pow.f64 D #s(literal 5 binary64))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (.f64 (pow.f64 M #s(literal 5 binary64)) (pow.f64 (sqrt.f64 #s(literal -1/2 binary64)) #s(literal 5 binary64))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 7 binary64))))) #s(literal 1/2 binary64) (fma.f64 (/.f64 (/.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) d) D) (.f64 (sqrt.f64 #s(literal -1/2 binary64)) M)) (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64)))) (.f64 (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) h) l)) (/.f64 (.f64 (.f64 D M) (.f64 (sqrt.f64 #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 1/2 binary64)))) d))))) h))
#s(approx (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)) #s(hole binary64 (* -1 (* h (- (* 1/4 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (/ 1 h))))))
#s(approx (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)) (.f64 (neg.f64 h) (-.f64 (/.f64 (.f64 #s(literal 1/4 binary64) (.f64 (.f64 (.f64 M M) D) D)) (.f64 (*.f64 d d) l)) (/.f64 #s(literal 1 binary64) h))))
#s(approx (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) #s(hole binary64 (* -1 (* h (- (* -2 (/ l h)) (* -1/2 (/ (* (pow D 2) (pow M 2)) (pow d 2))))))))
#s(approx (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (.f64 (neg.f64 h) (fma.f64 #s(literal -2 binary64) (/.f64 l h) (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (.f64 M M) D) D)) (.f64 d d)))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)))) #s(hole binary64 (* -1 (* (/ (* D (* M (* w0 (* (sqrt -1) (pow (sqrt 1/2) 2))))) d) (sqrt (/ h l))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)))) (.f64 (neg.f64 (/.f64 (.f64 (.f64 (.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1/2 binary64)) w0) M) D) d)) (sqrt.f64 (/.f64 h l))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)))) #s(hole binary64 (* -1 (* h (+ (* (/ (* D (* M (* w0 (* (sqrt -1) (pow (sqrt 1/2) 2))))) d) (sqrt (/ 1 (* h l)))) (* (/ (* d (* w0 (sqrt -1))) (* D M)) (sqrt (/ l (pow h 3)))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)))) (.f64 (neg.f64 h) (fma.f64 (.f64 (/.f64 d D) (/.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) w0) M)) (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64)))) (.f64 (/.f64 (.f64 (.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1/2 binary64)) w0) M) D) d) (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) h) l))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)))) #s(hole binary64 (* -1 (* h (+ (* -1/2 (* (/ (* (pow d 3) (* w0 (sqrt -1))) (* (pow D 3) (* (pow M 3) (pow (sqrt 1/2) 2)))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* (/ (* D (* M (* w0 (* (sqrt -1) (pow (sqrt 1/2) 2))))) d) (sqrt (/ 1 (* h l)))) (* (/ (* d (* w0 (sqrt -1))) (* D M)) (sqrt (/ l (pow h 3))))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)))) (.f64 (neg.f64 h) (fma.f64 (.f64 (.f64 (pow.f64 (/.f64 d D) #s(literal 3 binary64)) (/.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) w0) (.f64 (pow.f64 M #s(literal 3 binary64)) #s(literal 1/2 binary64)))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 h #s(literal 5 binary64))))) #s(literal -1/2 binary64) (fma.f64 (.f64 (/.f64 d D) (/.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) w0) M)) (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64)))) (.f64 (/.f64 (.f64 (.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1/2 binary64)) w0) M) D) d) (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) h) l)))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)))) #s(hole binary64 (* -1 (* h (+ (* -1/2 (* (/ (* (pow d 3) (* w0 (sqrt -1))) (* (pow D 3) (* (pow M 3) (pow (sqrt 1/2) 2)))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/2 (* (/ (* (pow d 5) (* w0 (sqrt -1))) (* (pow D 5) (* (pow M 5) (pow (sqrt 1/2) 4)))) (sqrt (/ (pow l 5) (pow h 7))))) (+ (* (/ (* D (* M (* w0 (* (sqrt -1) (pow (sqrt 1/2) 2))))) d) (sqrt (/ 1 (* h l)))) (* (/ (* d (* w0 (sqrt -1))) (* D M)) (sqrt (/ l (pow h 3)))))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)))) (.f64 (neg.f64 h) (fma.f64 (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 (/.f64 d D) #s(literal 3 binary64)) (/.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) w0) (.f64 (pow.f64 M #s(literal 3 binary64)) #s(literal 1/2 binary64))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 h #s(literal 5 binary64)))) (fma.f64 (.f64 (.f64 (/.f64 (pow.f64 d #s(literal 5 binary64)) (pow.f64 D #s(literal 5 binary64))) (/.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) w0) (.f64 (pow.f64 (sqrt.f64 #s(literal 1/2 binary64)) #s(literal 4 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))))) #s(literal 1/2 binary64) (fma.f64 (.f64 (/.f64 d D) (/.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) w0) M)) (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64)))) (.f64 (/.f64 (.f64 (.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1/2 binary64)) w0) M) D) d) (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) h) 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))))) (.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) w0) M) D) d)) (sqrt.f64 (/.f64 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))))) (.f64 (neg.f64 h) (fma.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) w0) M) D) d)) (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) h) l)) (.f64 (.f64 (/.f64 d D) (/.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) w0) 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))))) #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))))) (.f64 (neg.f64 h) (fma.f64 (neg.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) w0) (pow.f64 d #s(literal 3 binary64))) (pow.f64 (.f64 D M) #s(literal 3 binary64)))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 h #s(literal 5 binary64)))) (fma.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) w0) M) D) d)) (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) h) l)) (.f64 (.f64 (/.f64 d D) (/.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) w0) 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))))) #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 (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (.f64 (neg.f64 h) (fma.f64 (neg.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) w0) (pow.f64 d #s(literal 3 binary64))) (pow.f64 (.f64 D M) #s(literal 3 binary64)))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 h #s(literal 5 binary64)))) (fma.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) w0) M) D) d)) (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) h) l)) (fma.f64 (.f64 (.f64 (/.f64 (pow.f64 d #s(literal 5 binary64)) (pow.f64 D #s(literal 5 binary64))) (/.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) w0) (pow.f64 M #s(literal 5 binary64)))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 7 binary64))))) #s(literal 2 binary64) (.f64 (.f64 (/.f64 d D) (/.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) w0) M)) (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64))))))))))
#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)))) (.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) M) D) d)) (sqrt.f64 (/.f64 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)))) (.f64 (neg.f64 h) (fma.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) M) D) d)) (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) h) l)) (.f64 (.f64 (/.f64 d D) (/.f64 (sqrt.f64 #s(literal -1 binary64)) M)) (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64))))))))
#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)))) (.f64 (neg.f64 h) (fma.f64 (neg.f64 (/.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) (pow.f64 d #s(literal 3 binary64))) (pow.f64 (.f64 D M) #s(literal 3 binary64)))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 h #s(literal 5 binary64)))) (fma.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) M) D) d)) (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) h) l)) (.f64 (.f64 (/.f64 d D) (/.f64 (sqrt.f64 #s(literal -1 binary64)) M)) (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64)))))))))
#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 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (.f64 (neg.f64 h) (fma.f64 (neg.f64 (/.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) (pow.f64 d #s(literal 3 binary64))) (pow.f64 (.f64 D M) #s(literal 3 binary64)))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 h #s(literal 5 binary64)))) (fma.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) M) D) d)) (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) h) l)) (fma.f64 (.f64 (.f64 (/.f64 (pow.f64 d #s(literal 5 binary64)) (pow.f64 D #s(literal 5 binary64))) (/.f64 (sqrt.f64 #s(literal -1 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))))) #s(literal 2 binary64) (.f64 (.f64 (/.f64 d D) (/.f64 (sqrt.f64 #s(literal -1 binary64)) M)) (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64))))))))))
#s(approx (+ (* (* (* D D) -1/8) (* (/ h (* d d)) (/ (* M M) l))) 1) #s(hole binary64 (* -1 (* h (- (* 1/8 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (/ 1 h))))))
#s(approx (+ (* (* (* D D) -1/8) (* (/ h (* d d)) (/ (* M M) l))) 1) (.f64 (neg.f64 h) (-.f64 (/.f64 (.f64 #s(literal 1/8 binary64) (.f64 (.f64 (.f64 M M) D) D)) (.f64 (*.f64 d d) l)) (/.f64 #s(literal 1 binary64) h))))
#s(approx (+ (* (* (* D D) -1/8) (/ (* (* M M) h) (* (* l d) d))) 1) #s(hole binary64 (* -1 (* h (- (* 1/8 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (/ 1 h))))))
#s(approx (+ (* (* (* D D) -1/8) (/ (* (* M M) h) (* (* l d) d))) 1) (.f64 (neg.f64 h) (-.f64 (/.f64 (.f64 #s(literal 1/8 binary64) (.f64 (.f64 (.f64 M M) D) D)) (.f64 (*.f64 d d) l)) (/.f64 #s(literal 1 binary64) h))))
#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 (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (.f64 (fma.f64 (/.f64 (.f64 (.f64 (.f64 M M) D) D) (.f64 (.f64 d d) l)) #s(literal -1/4 binary64) (/.f64 #s(literal 1 binary64) h)) h))
#s(approx (+ (* (* h -1/4) (* M (* (* M D) (/ D (* (* l d) d))))) 1) #s(hole binary64 (* -1 (* h (- (* 1/4 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (/ 1 h))))))
#s(approx (+ (* (* h -1/4) (* M (* (* M D) (/ D (* (* l d) d))))) 1) (.f64 (neg.f64 h) (-.f64 (/.f64 (.f64 #s(literal 1/4 binary64) (.f64 (.f64 (.f64 M M) D) D)) (.f64 (*.f64 d d) l)) (/.f64 #s(literal 1 binary64) h))))
#s(approx (+ (* (* h -1/4) (/ (* (* (* M M) D) (/ D d)) (* l d))) 1) #s(hole binary64 (* -1 (* h (- (* 1/4 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (/ 1 h))))))
#s(approx (+ (* (* h -1/4) (/ (* (* (* M M) D) (/ D d)) (* l d))) 1) (.f64 (neg.f64 h) (-.f64 (/.f64 (.f64 #s(literal 1/4 binary64) (.f64 (.f64 (.f64 M M) D) D)) (.f64 (*.f64 d d) l)) (/.f64 #s(literal 1 binary64) h))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l))) #s(hole binary64 (* -1 (* (/ (* D (* M (* (sqrt -1) (pow (sqrt 1/2) 2)))) d) (sqrt (/ h l))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l))) (.f64 (neg.f64 (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) M) #s(literal 1/2 binary64)) D) d)) (sqrt.f64 (/.f64 h l))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l))) #s(hole binary64 (* -1 (* h (+ (* (/ (* D (* M (* (sqrt -1) (pow (sqrt 1/2) 2)))) d) (sqrt (/ 1 (* h l)))) (* (/ (* d (sqrt -1)) (* D M)) (sqrt (/ l (pow h 3)))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l))) (.f64 (neg.f64 h) (fma.f64 (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) M) #s(literal 1/2 binary64)) D) d) (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) h) l)) (.f64 (.f64 (/.f64 d D) (/.f64 (sqrt.f64 #s(literal -1 binary64)) M)) (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l))) #s(hole binary64 (* -1 (* h (+ (* -1/2 (* (/ (* (pow d 3) (sqrt -1)) (* (pow D 3) (* (pow M 3) (pow (sqrt 1/2) 2)))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* (/ (* D (* M (* (sqrt -1) (pow (sqrt 1/2) 2)))) d) (sqrt (/ 1 (* h l)))) (* (/ (* d (sqrt -1)) (* D M)) (sqrt (/ l (pow h 3))))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l))) (.f64 (neg.f64 h) (fma.f64 (.f64 (.f64 (pow.f64 (/.f64 d D) #s(literal 3 binary64)) (/.f64 (sqrt.f64 #s(literal -1 binary64)) (.f64 (pow.f64 M #s(literal 3 binary64)) #s(literal 1/2 binary64)))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 h #s(literal 5 binary64))))) #s(literal -1/2 binary64) (fma.f64 (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) M) #s(literal 1/2 binary64)) D) d) (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) h) l)) (.f64 (*.f64 (/.f64 d D) (/.f64 (sqrt.f64 #s(literal -1 binary64)) M)) (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64)))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l))) #s(hole binary64 (* -1 (* h (+ (* -1/2 (* (/ (* (pow d 3) (sqrt -1)) (* (pow D 3) (* (pow M 3) (pow (sqrt 1/2) 2)))) (sqrt (/ (pow l 3) (pow h 5))))) (+ (* 1/2 (* (/ (* (pow d 5) (sqrt -1)) (* (pow D 5) (* (pow M 5) (pow (sqrt 1/2) 4)))) (sqrt (/ (pow l 5) (pow h 7))))) (+ (* (/ (* D (* M (* (sqrt -1) (pow (sqrt 1/2) 2)))) d) (sqrt (/ 1 (* h l)))) (* (/ (* d (sqrt -1)) (* D M)) (sqrt (/ l (pow h 3)))))))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l))) (.f64 (neg.f64 h) (fma.f64 (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 (/.f64 d D) #s(literal 3 binary64)) (/.f64 (sqrt.f64 #s(literal -1 binary64)) (.f64 (pow.f64 M #s(literal 3 binary64)) #s(literal 1/2 binary64))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) (pow.f64 h #s(literal 5 binary64)))) (fma.f64 (.f64 (.f64 (/.f64 (pow.f64 d #s(literal 5 binary64)) (pow.f64 D #s(literal 5 binary64))) (/.f64 (sqrt.f64 #s(literal -1 binary64)) (.f64 (pow.f64 (sqrt.f64 #s(literal 1/2 binary64)) #s(literal 4 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))))) #s(literal 1/2 binary64) (fma.f64 (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) M) #s(literal 1/2 binary64)) D) d) (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) h) l)) (.f64 (.f64 (/.f64 d D) (/.f64 (sqrt.f64 #s(literal -1 binary64)) M)) (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64))))))))))
#s(approx (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)) #s(hole binary64 (/ (+ l (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l)))
#s(approx (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)) (/.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 (.f64 (.f64 M M) D) D) h) (*.f64 d d)) l) l))
#s(approx (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) #s(hole binary64 (- (* 2 l) (* 1/2 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2))))))
#s(approx (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 (.f64 (.f64 M M) D) D) h) (.f64 d d)) (.f64 #s(literal 2 binary64) l)))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)))) #s(hole binary64 (/ (+ (* (/ (* D (* M (* w0 (* (sqrt -1/2) (sqrt 1/2))))) d) (sqrt (* h l))) (* (/ (* d (* w0 (sqrt 1/2))) (* D (* M (sqrt -1/2)))) (sqrt (/ (pow l 3) h)))) l)))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)))) (/.f64 (fma.f64 (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) h)) (/.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) d) D) (.f64 (sqrt.f64 #s(literal -1/2 binary64)) M)) (.f64 (sqrt.f64 (.f64 l h)) (/.f64 (.f64 (.f64 D M) (.f64 (*.f64 w0 (sqrt.f64 #s(literal -1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))) d))) l))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)))) #s(hole binary64 (/ (+ (* (/ (* D (* M (* w0 (* (sqrt -1/2) (sqrt 1/2))))) d) (sqrt (* h l))) (* (pow l 2) (+ (* -1/2 (* (/ (* (pow d 3) (* w0 (sqrt 1/2))) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ l (pow h 3))))) (* (/ (* d (* w0 (sqrt 1/2))) (* D (* M (sqrt -1/2)))) (sqrt (/ 1 (* h l))))))) l)))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)))) (/.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 (pow.f64 d #s(literal 3 binary64)) w0) (sqrt.f64 #s(literal 1/2 binary64))) (pow.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/2 binary64)) M) D) #s(literal 3 binary64)))) (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64)))) (.f64 (/.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) d) D) (.f64 (sqrt.f64 #s(literal -1/2 binary64)) M)) (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) h) l)))) (.f64 l l) (.f64 (sqrt.f64 (.f64 l h)) (/.f64 (.f64 (.f64 D M) (.f64 (.f64 w0 (sqrt.f64 #s(literal -1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))) d))) l))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)))) #s(hole binary64 (/ (+ (* (/ (* D (* M (* w0 (* (sqrt -1/2) (sqrt 1/2))))) d) (sqrt (* h l))) (* (pow l 2) (+ (* (/ (* d (* w0 (sqrt 1/2))) (* D (* M (sqrt -1/2)))) (sqrt (/ 1 (* h l)))) (* (pow l 2) (+ (* -1/2 (* (/ (* (pow d 3) (* w0 (sqrt 1/2))) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ 1 (* (pow h 3) (pow l 3)))))) (* 1/2 (* (/ (* (pow d 5) (* w0 (sqrt 1/2))) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/2) 5)))) (sqrt (/ 1 (* (pow h 5) l)))))))))) l)))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)))) (/.f64 (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 (pow.f64 d #s(literal 3 binary64)) w0) (sqrt.f64 #s(literal 1/2 binary64))) (pow.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/2 binary64)) M) D) #s(literal 3 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (.f64 l h) #s(literal 3 binary64)))) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (pow.f64 h #s(literal 5 binary64)) l))) (.f64 (/.f64 (pow.f64 d #s(literal 5 binary64)) (pow.f64 D #s(literal 5 binary64))) (/.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) (.f64 (pow.f64 M #s(literal 5 binary64)) (pow.f64 (sqrt.f64 #s(literal -1/2 binary64)) #s(literal 5 binary64)))))) #s(literal 1/2 binary64))) (.f64 l l) (.f64 (/.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) d) D) (.f64 (sqrt.f64 #s(literal -1/2 binary64)) M)) (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) h) l)))) (.f64 l l) (.f64 (sqrt.f64 (.f64 l h)) (/.f64 (.f64 (.f64 D M) (.f64 (.f64 w0 (sqrt.f64 #s(literal -1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))) d))) l))
#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))))) (/.f64 (fma.f64 (.f64 (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) h)) (.f64 (/.f64 d D) (/.f64 w0 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M)))) #s(literal 1/2 binary64) (.f64 (sqrt.f64 (.f64 l h)) (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) M) D) d))) 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) 3)))) (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))))) (/.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 (pow.f64 d #s(literal 3 binary64)) (/.f64 w0 (pow.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) #s(literal 3 binary64))))) (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64)))) (.f64 (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 d D) (/.f64 w0 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M)))) (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) h) l)))) (.f64 l l) (.f64 (sqrt.f64 (.f64 l h)) (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) M) D) d))) 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) 3)))) (sqrt (/ 1 (* (pow h 3) (pow l 3)))))) (* 1/16 (* (/ (* (pow d 5) w0) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ 1 (* (pow h 5) l)))))))))) l)))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (/.f64 (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal 1/16 binary64) (/.f64 (.f64 (pow.f64 d #s(literal 5 binary64)) w0) (.f64 (.f64 (pow.f64 M #s(literal 5 binary64)) (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 5 binary64))) (pow.f64 D #s(literal 5 binary64))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (pow.f64 h #s(literal 5 binary64)) l))) (.f64 (.f64 #s(literal -1/8 binary64) (.f64 (pow.f64 d #s(literal 3 binary64)) (/.f64 w0 (pow.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) #s(literal 3 binary64))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (.f64 l h) #s(literal 3 binary64)))))) (.f64 l l) (.f64 (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 d D) (/.f64 w0 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M)))) (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) h) l)))) (.f64 l l) (.f64 (sqrt.f64 (.f64 l h)) (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) M) D) d))) 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)))) (/.f64 (fma.f64 (.f64 #s(literal 1/2 binary64) (/.f64 d (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) h)) (.f64 (sqrt.f64 (.f64 l h)) (/.f64 (.f64 (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) d))) 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) 3)))) (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)))) (/.f64 (fma.f64 (fma.f64 (.f64 (/.f64 (pow.f64 d #s(literal 3 binary64)) (pow.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) #s(literal 3 binary64))) (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64))))) #s(literal -1/8 binary64) (.f64 (.f64 #s(literal 1/2 binary64) (/.f64 d (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D))) (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) h) l)))) (.f64 l l) (.f64 (sqrt.f64 (.f64 l h)) (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) d))) 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) 3)))) (sqrt (/ 1 (* (pow h 3) (pow l 3)))))) (* 1/16 (* (/ (pow d 5) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ 1 (* (pow h 5) l)))))))))) l)))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (/.f64 (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 d #s(literal 3 binary64)) (pow.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) #s(literal 3 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (.f64 l h) #s(literal 3 binary64)))) (.f64 (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 d #s(literal 5 binary64)) (.f64 (.f64 (pow.f64 M #s(literal 5 binary64)) (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 5 binary64))) (pow.f64 D #s(literal 5 binary64))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (pow.f64 h #s(literal 5 binary64)) l))))) (.f64 l l) (.f64 (.f64 #s(literal 1/2 binary64) (/.f64 d (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D))) (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) h) l)))) (.f64 l l) (.f64 (sqrt.f64 (.f64 l h)) (/.f64 (.f64 (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) d))) l))
#s(approx (+ (* (* (* D D) -1/8) (* (/ h (* d d)) (/ (* M M) l))) 1) #s(hole binary64 (/ (+ l (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l)))
#s(approx (+ (* (* (* D D) -1/8) (* (/ h (* d d)) (/ (* M M) l))) 1) (/.f64 (fma.f64 (/.f64 (.f64 (.f64 (.f64 (.f64 M M) D) D) h) (*.f64 d d)) #s(literal -1/8 binary64) l) l))
#s(approx (+ (* (* (* D D) -1/8) (/ (* (* M M) h) (* (* l d) d))) 1) #s(hole binary64 (/ (+ l (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l)))
#s(approx (+ (* (* (* D D) -1/8) (/ (* (* M M) h) (* (* l d) d))) 1) (/.f64 (fma.f64 (/.f64 (.f64 (.f64 (.f64 (.f64 M M) D) D) h) (*.f64 d d)) #s(literal -1/8 binary64) 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 (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (/.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 (.f64 (.f64 M M) D) D) h) (*.f64 d d)) l) l))
#s(approx (+ (* (* h -1/4) (* M (* (* M D) (/ D (* (* l d) d))))) 1) #s(hole binary64 (/ (+ l (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l)))
#s(approx (+ (* (* h -1/4) (* M (* (* M D) (/ D (* (* l d) d))))) 1) (/.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 (.f64 (.f64 M M) D) D) h) (*.f64 d d)) l) l))
#s(approx (+ (* (* h -1/4) (/ (* (* (* M M) D) (/ D d)) (* l d))) 1) #s(hole binary64 (/ (+ l (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l)))
#s(approx (+ (* (* h -1/4) (/ (* (* (* M M) D) (/ D d)) (* l d))) 1) (/.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 (.f64 (.f64 M M) D) D) h) (*.f64 d d)) l) l))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l))) #s(hole binary64 (/ (+ (* (/ (* D (* M (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (* h l))) (* (/ (* d (sqrt 1/2)) (* D (* M (sqrt -1/2)))) (sqrt (/ (pow l 3) h)))) l)))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l))) (/.f64 (fma.f64 (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) h)) (/.f64 (/.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) d) D) (.f64 (sqrt.f64 #s(literal -1/2 binary64)) M)) (.f64 (sqrt.f64 (.f64 l h)) (/.f64 (.f64 (.f64 D M) (*.f64 (sqrt.f64 #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 1/2 binary64)))) d))) l))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l))) #s(hole binary64 (/ (+ (* (/ (* D (* M (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (* h l))) (* (pow l 2) (+ (* -1/2 (* (/ (* (pow d 3) (sqrt 1/2)) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ l (pow h 3))))) (* (/ (* d (sqrt 1/2)) (* D (* M (sqrt -1/2)))) (sqrt (/ 1 (* h l))))))) l)))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l))) (/.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (pow.f64 d #s(literal 3 binary64)) (sqrt.f64 #s(literal 1/2 binary64))) (pow.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/2 binary64)) M) D) #s(literal 3 binary64)))) (sqrt.f64 (/.f64 l (pow.f64 h #s(literal 3 binary64)))) (.f64 (/.f64 (/.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) d) D) (.f64 (sqrt.f64 #s(literal -1/2 binary64)) M)) (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) h) l)))) (.f64 l l) (.f64 (sqrt.f64 (.f64 l h)) (/.f64 (.f64 (.f64 D M) (*.f64 (sqrt.f64 #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 1/2 binary64)))) d))) l))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l))) #s(hole binary64 (/ (+ (* (/ (* D (* M (* (sqrt -1/2) (sqrt 1/2)))) d) (sqrt (* h l))) (* (pow l 2) (+ (* (/ (* d (sqrt 1/2)) (* D (* M (sqrt -1/2)))) (sqrt (/ 1 (* h l)))) (* (pow l 2) (+ (* -1/2 (* (/ (* (pow d 3) (sqrt 1/2)) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ 1 (* (pow h 3) (pow l 3)))))) (* 1/2 (* (/ (* (pow d 5) (sqrt 1/2)) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/2) 5)))) (sqrt (/ 1 (* (pow h 5) l)))))))))) l)))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l))) (/.f64 (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (pow.f64 d #s(literal 3 binary64)) (sqrt.f64 #s(literal 1/2 binary64))) (pow.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/2 binary64)) M) D) #s(literal 3 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (.f64 l h) #s(literal 3 binary64)))) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (pow.f64 h #s(literal 5 binary64)) l))) (.f64 (/.f64 (pow.f64 d #s(literal 5 binary64)) (pow.f64 D #s(literal 5 binary64))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (.f64 (pow.f64 M #s(literal 5 binary64)) (pow.f64 (sqrt.f64 #s(literal -1/2 binary64)) #s(literal 5 binary64)))))) #s(literal 1/2 binary64))) (.f64 l l) (.f64 (/.f64 (/.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) d) D) (.f64 (sqrt.f64 #s(literal -1/2 binary64)) M)) (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) h) l)))) (.f64 l l) (.f64 (sqrt.f64 (.f64 l h)) (/.f64 (.f64 (.f64 D M) (.f64 (sqrt.f64 #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 1/2 binary64)))) d))) l))
#s(approx (* (* d d) l) #s(hole binary64 (* (pow d 2) l)))
#s(approx (* (* d d) l) (.f64 (.f64 d d) l))
#s(approx (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) #s(hole binary64 (* l (+ 2 (* -1/2 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l)))))))
#s(approx (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (.f64 (.f64 (.f64 M M) D) D) (/.f64 h (.f64 (*.f64 d d) l))) #s(literal 2 binary64)) l))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)))) #s(hole binary64 (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (* h (* w0 (sqrt 1/2))))) (* (pow d 2) (* l (sqrt 2))))) (+ (* -1/32 (/ (* (pow D 4) (* (pow M 4) (* (pow h 2) (* w0 (sqrt 1/2))))) (* (pow d 4) (* (pow l 2) (pow (sqrt 2) 3))))) (* w0 (* (sqrt 1/2) (sqrt 2)))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)))) (fma.f64 (.f64 (/.f64 (.f64 D D) (.f64 d d)) (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) h) (.f64 M M)) (.f64 (sqrt.f64 #s(literal 2 binary64)) l))) #s(literal -1/4 binary64) (fma.f64 (/.f64 (/.f64 (.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (.f64 (.f64 (.f64 h h) w0) (sqrt.f64 #s(literal 1/2 binary64)))) (pow.f64 D #s(literal 4 binary64))) (pow.f64 d #s(literal 4 binary64))) (.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 l l))) #s(literal -1/32 binary64) (.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)))) #s(hole binary64 (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (* h (* w0 (sqrt 1/2))))) (* (pow d 2) (* l (sqrt 2))))) (+ (* -1/32 (/ (* (pow D 4) (* (pow M 4) (* (pow h 2) (* w0 (sqrt 1/2))))) (* (pow d 4) (* (pow l 2) (pow (sqrt 2) 3))))) (+ (* -1/128 (/ (* (pow D 6) (* (pow M 6) (* (pow h 3) (* w0 (sqrt 1/2))))) (* (pow d 6) (* (pow l 3) (pow (sqrt 2) 5))))) (* w0 (* (sqrt 1/2) (sqrt 2))))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)))) (fma.f64 (.f64 (/.f64 (.f64 D D) (.f64 d d)) (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) h) (.f64 M M)) (.f64 (sqrt.f64 #s(literal 2 binary64)) l))) #s(literal -1/4 binary64) (fma.f64 (/.f64 (/.f64 (.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (.f64 (.f64 (.f64 h h) w0) (sqrt.f64 #s(literal 1/2 binary64)))) (pow.f64 D #s(literal 4 binary64))) (pow.f64 d #s(literal 4 binary64))) (.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 l l))) #s(literal -1/32 binary64) (fma.f64 (/.f64 (/.f64 (.f64 (.f64 (pow.f64 M #s(literal 6 binary64)) (.f64 (.f64 (pow.f64 h #s(literal 3 binary64)) w0) (sqrt.f64 #s(literal 1/2 binary64)))) (pow.f64 D #s(literal 6 binary64))) (pow.f64 d #s(literal 6 binary64))) (.f64 (pow.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 5 binary64)) (pow.f64 l #s(literal 3 binary64)))) #s(literal -1/128 binary64) (.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) (sqrt.f64 #s(literal 2 binary64)))))))
#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))))) (+.f64 (fma.f64 (/.f64 (.f64 (.f64 (.f64 (.f64 M M) D) D) (.f64 w0 h)) (.f64 (.f64 d d) l)) #s(literal -1/8 binary64) w0) (.f64 (.f64 (/.f64 (pow.f64 D #s(literal 4 binary64)) (pow.f64 d #s(literal 4 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (.f64 (.f64 h h) w0)) (*.f64 l l))) #s(literal -1/128 binary64))))
#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 (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (+.f64 (fma.f64 (/.f64 (.f64 (.f64 (.f64 (.f64 M M) D) D) (.f64 w0 h)) (.f64 (.f64 d d) l)) #s(literal -1/8 binary64) w0) (fma.f64 (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (pow.f64 d #s(literal 6 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 6 binary64)) (.f64 (pow.f64 h #s(literal 3 binary64)) w0)) (pow.f64 l #s(literal 3 binary64)))) #s(literal -1/1024 binary64) (.f64 (.f64 (/.f64 (pow.f64 D #s(literal 4 binary64)) (pow.f64 d #s(literal 4 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (.f64 (.f64 h h) w0)) (.f64 l l))) #s(literal -1/128 binary64)))))
#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)))) (+.f64 (fma.f64 (.f64 (.f64 (.f64 (.f64 M M) D) D) (/.f64 h (.f64 (.f64 d d) l))) #s(literal -1/8 binary64) #s(literal 1 binary64)) (.f64 (.f64 (/.f64 (pow.f64 D #s(literal 4 binary64)) (pow.f64 d #s(literal 4 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (.f64 h h)) (*.f64 l l))) #s(literal -1/128 binary64))))
#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 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (+.f64 (fma.f64 (.f64 (.f64 (.f64 (.f64 M M) D) D) (/.f64 h (.f64 (.f64 d d) l))) #s(literal -1/8 binary64) #s(literal 1 binary64)) (fma.f64 (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (pow.f64 d #s(literal 6 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 6 binary64)) (pow.f64 h #s(literal 3 binary64))) (pow.f64 l #s(literal 3 binary64)))) #s(literal -1/1024 binary64) (.f64 (.f64 (/.f64 (pow.f64 D #s(literal 4 binary64)) (pow.f64 d #s(literal 4 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (.f64 h h)) (*.f64 l l))) #s(literal -1/128 binary64)))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l))) #s(hole binary64 (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (* h (sqrt 1/2)))) (* (pow d 2) (* l (sqrt 2))))) (+ (* -1/32 (/ (* (pow D 4) (* (pow M 4) (* (pow h 2) (sqrt 1/2)))) (* (pow d 4) (* (pow l 2) (pow (sqrt 2) 3))))) (* (sqrt 1/2) (sqrt 2))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l))) (fma.f64 (.f64 (/.f64 (.f64 D D) (.f64 d d)) (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) h) (.f64 M M)) (.f64 (sqrt.f64 #s(literal 2 binary64)) l))) #s(literal -1/4 binary64) (fma.f64 (/.f64 (/.f64 (.f64 (.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (.f64 h h)) (sqrt.f64 #s(literal 1/2 binary64))) (pow.f64 D #s(literal 4 binary64))) (pow.f64 d #s(literal 4 binary64))) (.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 l l))) #s(literal -1/32 binary64) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(literal 1/2 binary64))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l))) #s(hole binary64 (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (* h (sqrt 1/2)))) (* (pow d 2) (* l (sqrt 2))))) (+ (* -1/32 (/ (* (pow D 4) (* (pow M 4) (* (pow h 2) (sqrt 1/2)))) (* (pow d 4) (* (pow l 2) (pow (sqrt 2) 3))))) (+ (* -1/128 (/ (* (pow D 6) (* (pow M 6) (* (pow h 3) (sqrt 1/2)))) (* (pow d 6) (* (pow l 3) (pow (sqrt 2) 5))))) (* (sqrt 1/2) (sqrt 2)))))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l))) (fma.f64 (.f64 (/.f64 (.f64 D D) (.f64 d d)) (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) h) (.f64 M M)) (.f64 (sqrt.f64 #s(literal 2 binary64)) l))) #s(literal -1/4 binary64) (fma.f64 (/.f64 (/.f64 (.f64 (.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (.f64 h h)) (sqrt.f64 #s(literal 1/2 binary64))) (pow.f64 D #s(literal 4 binary64))) (pow.f64 d #s(literal 4 binary64))) (.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 l l))) #s(literal -1/32 binary64) (fma.f64 (/.f64 (/.f64 (.f64 (.f64 (.f64 (pow.f64 M #s(literal 6 binary64)) (pow.f64 h #s(literal 3 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) (pow.f64 D #s(literal 6 binary64))) (pow.f64 d #s(literal 6 binary64))) (.f64 (pow.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 5 binary64)) (pow.f64 l #s(literal 3 binary64)))) #s(literal -1/128 binary64) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(literal 1/2 binary64)))))))
#s(approx (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) #s(hole binary64 (* -1 (* l (- (* 1/2 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))) 2)))))
#s(approx (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (.f64 (neg.f64 l) (-.f64 (.f64 (.f64 (.f64 (.f64 (.f64 M M) D) D) (/.f64 h (.f64 (.f64 d d) l))) #s(literal 1/2 binary64)) #s(literal 2 binary64))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)))) #s(hole binary64 (+ (* -1 (/ (+ (* 1/32 (/ (* (pow D 4) (* (pow M 4) (* (pow h 2) (* w0 (sqrt 1/2))))) (* (pow d 4) (* l (pow (sqrt 2) 3))))) (* 1/4 (/ (* (pow D 2) (* (pow M 2) (* h (* w0 (sqrt 1/2))))) (* (pow d 2) (sqrt 2))))) l)) (* w0 (* (sqrt 1/2) (sqrt 2))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)))) (fma.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(literal 1/2 binary64))) w0 (/.f64 (fma.f64 (.f64 (/.f64 (.f64 D D) (.f64 d d)) (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) h) (.f64 M M)) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 1/4 binary64) (.f64 (.f64 (/.f64 (pow.f64 D #s(literal 4 binary64)) (pow.f64 d #s(literal 4 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (.f64 (.f64 (.f64 h h) w0) (sqrt.f64 #s(literal 1/2 binary64)))) (.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)) l))) #s(literal 1/32 binary64))) (neg.f64 l))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1 (/ (+ (* -1/32 (/ (* (pow D 4) (* (pow M 4) (* (pow h 2) (* w0 (sqrt 1/2))))) (* (pow d 4) (pow (sqrt 2) 3)))) (* -1/128 (/ (* (pow D 6) (* (pow M 6) (* (pow h 3) (* w0 (sqrt 1/2))))) (* (pow d 6) (* l (pow (sqrt 2) 5)))))) l)) (* 1/4 (/ (* (pow D 2) (* (pow M 2) (* h (* w0 (sqrt 1/2))))) (* (pow d 2) (sqrt 2))))) l)) (* w0 (* (sqrt 1/2) (sqrt 2))))))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)))) (fma.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(literal 1/2 binary64))) w0 (/.f64 (fma.f64 (.f64 (/.f64 (.f64 D D) (.f64 d d)) (/.f64 (.f64 (.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) h) (.f64 M M)) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 1/4 binary64) (/.f64 (fma.f64 (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (pow.f64 d #s(literal 6 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 6 binary64)) (.f64 (.f64 (pow.f64 h #s(literal 3 binary64)) w0) (sqrt.f64 #s(literal 1/2 binary64)))) (.f64 (pow.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 5 binary64)) l))) #s(literal -1/128 binary64) (.f64 (.f64 (/.f64 (pow.f64 D #s(literal 4 binary64)) (pow.f64 d #s(literal 4 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (.f64 (.f64 (.f64 h h) w0) (sqrt.f64 #s(literal 1/2 binary64)))) (.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)))) #s(literal -1/32 binary64))) (neg.f64 l))) (neg.f64 l))))
#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))))) (fma.f64 (/.f64 (fma.f64 (/.f64 (.f64 (.f64 (.f64 (.f64 M M) D) D) (.f64 w0 h)) (.f64 d d)) #s(literal 1/8 binary64) (.f64 (/.f64 (.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (pow.f64 D #s(literal 4 binary64))) (.f64 (.f64 h h) w0)) (.f64 (pow.f64 d #s(literal 4 binary64)) l)) #s(literal 1/128 binary64))) l) #s(literal -1 binary64) w0))
#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 (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (fma.f64 (/.f64 (fma.f64 (/.f64 (.f64 (.f64 (.f64 (.f64 M M) D) D) (.f64 w0 h)) (.f64 d d)) #s(literal 1/8 binary64) (/.f64 (fma.f64 (/.f64 (.f64 (.f64 (pow.f64 M #s(literal 6 binary64)) (.f64 (pow.f64 h #s(literal 3 binary64)) w0)) (pow.f64 D #s(literal 6 binary64))) (.f64 (pow.f64 d #s(literal 6 binary64)) l)) #s(literal -1/1024 binary64) (.f64 (/.f64 (.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (pow.f64 D #s(literal 4 binary64))) (.f64 (*.f64 h h) w0)) (pow.f64 d #s(literal 4 binary64))) #s(literal -1/128 binary64))) (neg.f64 l))) l) #s(literal -1 binary64) w0))
#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)))) (fma.f64 (/.f64 (fma.f64 (/.f64 (.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (pow.f64 D #s(literal 4 binary64))) (.f64 h h)) (.f64 (pow.f64 d #s(literal 4 binary64)) l)) #s(literal 1/128 binary64) (.f64 #s(literal 1/8 binary64) (/.f64 (.f64 (.f64 (.f64 (.f64 M M) D) D) h) (.f64 d d)))) l) #s(literal -1 binary64) #s(literal 1 binary64)))
#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 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (/.f64 (fma.f64 #s(literal 1/8 binary64) (/.f64 (.f64 (.f64 (.f64 (.f64 M M) D) D) h) (.f64 d d)) (/.f64 (fma.f64 (/.f64 (.f64 (.f64 (pow.f64 M #s(literal 6 binary64)) (pow.f64 h #s(literal 3 binary64))) (pow.f64 D #s(literal 6 binary64))) (.f64 (pow.f64 d #s(literal 6 binary64)) l)) #s(literal -1/1024 binary64) (.f64 (/.f64 (.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (pow.f64 D #s(literal 4 binary64))) (.f64 h h)) (pow.f64 d #s(literal 4 binary64))) #s(literal -1/128 binary64))) (neg.f64 l))) l) #s(literal -1 binary64) #s(literal 1 binary64)))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l))) #s(hole binary64 (+ (* -1 (/ (+ (* 1/32 (/ (* (pow D 4) (* (pow M 4) (* (pow h 2) (sqrt 1/2)))) (* (pow d 4) (* l (pow (sqrt 2) 3))))) (* 1/4 (/ (* (pow D 2) (* (pow M 2) (* h (sqrt 1/2)))) (* (pow d 2) (sqrt 2))))) l)) (* (sqrt 1/2) (sqrt 2)))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l))) (fma.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(literal 1/2 binary64)) (/.f64 (fma.f64 (.f64 (/.f64 (.f64 D D) (.f64 d d)) (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) h) (.f64 M M)) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 1/4 binary64) (.f64 (.f64 (/.f64 (pow.f64 D #s(literal 4 binary64)) (pow.f64 d #s(literal 4 binary64))) (/.f64 (.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (.f64 h h)) (sqrt.f64 #s(literal 1/2 binary64))) (.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)) l))) #s(literal 1/32 binary64))) (neg.f64 l))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l))) #s(hole binary64 (+ (* -1 (/ (+ (* -1 (/ (+ (* -1/32 (/ (* (pow D 4) (* (pow M 4) (* (pow h 2) (sqrt 1/2)))) (* (pow d 4) (pow (sqrt 2) 3)))) (* -1/128 (/ (* (pow D 6) (* (pow M 6) (* (pow h 3) (sqrt 1/2)))) (* (pow d 6) (* l (pow (sqrt 2) 5)))))) l)) (* 1/4 (/ (* (pow D 2) (* (pow M 2) (* h (sqrt 1/2)))) (* (pow d 2) (sqrt 2))))) l)) (* (sqrt 1/2) (sqrt 2)))))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l))) (fma.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(literal 1/2 binary64)) (/.f64 (fma.f64 (.f64 (/.f64 (.f64 D D) (.f64 d d)) (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) h) (.f64 M M)) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 1/4 binary64) (/.f64 (fma.f64 (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (pow.f64 d #s(literal 6 binary64))) (/.f64 (.f64 (.f64 (pow.f64 M #s(literal 6 binary64)) (pow.f64 h #s(literal 3 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) (.f64 (pow.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 5 binary64)) l))) #s(literal -1/128 binary64) (.f64 (.f64 (/.f64 (pow.f64 D #s(literal 4 binary64)) (pow.f64 d #s(literal 4 binary64))) (/.f64 (.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (.f64 h h)) (sqrt.f64 #s(literal 1/2 binary64))) (.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)))) #s(literal -1/32 binary64))) (neg.f64 l))) (neg.f64 l))))
#s(approx (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)) #s(hole binary64 (/ (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) l)) (pow d 2)) (pow d 2))))
#s(approx (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)) (/.f64 (fma.f64 (.f64 (.f64 D D) (/.f64 (.f64 (.f64 M M) h) l)) #s(literal -1/4 binary64) (.f64 d d)) (.f64 d d)))
#s(approx (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) #s(hole binary64 (/ (- (* 2 (* (pow d 2) l)) (* 1/2 (* (pow D 2) (* (pow M 2) h)))) (pow d 2))))
#s(approx (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (/.f64 (fma.f64 (.f64 #s(literal 2 binary64) (.f64 d d)) l (.f64 #s(literal -1/2 binary64) (.f64 (.f64 (.f64 (.f64 M M) D) D) h))) (.f64 d d)))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)))) #s(hole binary64 (/ (+ (* (* D (* M (* w0 (* (sqrt -1/2) (sqrt 1/2))))) (sqrt (/ h l))) (* (/ (* (pow d 2) (* w0 (sqrt 1/2))) (* D (* M (sqrt -1/2)))) (sqrt (/ l h)))) d)))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)))) (/.f64 (fma.f64 (/.f64 (.f64 (.f64 (.f64 d d) w0) (sqrt.f64 #s(literal 1/2 binary64))) (.f64 (.f64 (sqrt.f64 #s(literal -1/2 binary64)) M) D)) (sqrt.f64 (/.f64 l h)) (.f64 (sqrt.f64 (/.f64 h l)) (.f64 (.f64 D M) (.f64 (.f64 w0 (sqrt.f64 #s(literal -1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))))) d))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)))) #s(hole binary64 (/ (+ (* (* D (* M (* w0 (* (sqrt -1/2) (sqrt 1/2))))) (sqrt (/ h l))) (* (pow d 2) (+ (* -1/2 (* (/ (* (pow d 2) (* w0 (sqrt 1/2))) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (* (/ (* w0 (sqrt 1/2)) (* D (* M (sqrt -1/2)))) (sqrt (/ l h)))))) d)))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)))) (/.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 (.f64 d d) w0) (sqrt.f64 #s(literal 1/2 binary64))) (pow.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/2 binary64)) M) D) #s(literal 3 binary64)))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))) (.f64 (/.f64 (/.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) D) (.f64 (sqrt.f64 #s(literal -1/2 binary64)) M)) (sqrt.f64 (/.f64 l h)))) (.f64 d d) (.f64 (sqrt.f64 (/.f64 h l)) (.f64 (.f64 D M) (.f64 (*.f64 w0 (sqrt.f64 #s(literal -1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))))) d))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)))) #s(hole binary64 (/ (+ (* (* D (* M (* w0 (* (sqrt -1/2) (sqrt 1/2))))) (sqrt (/ h l))) (* (pow d 2) (+ (* (/ (* w0 (sqrt 1/2)) (* D (* M (sqrt -1/2)))) (sqrt (/ l h))) (* (pow d 2) (+ (* -1/2 (* (/ (* w0 (sqrt 1/2)) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (* 1/2 (* (/ (* (pow d 2) (* w0 (sqrt 1/2))) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/2) 5)))) (sqrt (/ (pow l 5) (pow h 5)))))))))) d)))
#s(approx (* w0 (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)))) (/.f64 (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 d d) (pow.f64 D #s(literal 5 binary64))) (/.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) (.f64 (pow.f64 M #s(literal 5 binary64)) (pow.f64 (sqrt.f64 #s(literal -1/2 binary64)) #s(literal 5 binary64)))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 5 binary64)))) (.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) (pow.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/2 binary64)) M) D) #s(literal 3 binary64)))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))))) (.f64 d d) (.f64 (/.f64 (/.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) w0) D) (.f64 (sqrt.f64 #s(literal -1/2 binary64)) M)) (sqrt.f64 (/.f64 l h)))) (.f64 d d) (.f64 (sqrt.f64 (/.f64 h l)) (.f64 (.f64 D M) (.f64 (.f64 w0 (sqrt.f64 #s(literal -1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))))) d))
#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))))) (/.f64 (fma.f64 (.f64 (.f64 (/.f64 (.f64 d d) D) (/.f64 w0 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M))) (sqrt.f64 (/.f64 l h))) #s(literal 1/2 binary64) (.f64 (.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) M) D) (sqrt.f64 (/.f64 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) 3)))) (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))))) (/.f64 (fma.f64 (fma.f64 (.f64 (.f64 (.f64 d d) (/.f64 w0 (pow.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) #s(literal 3 binary64)))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64)))) #s(literal -1/8 binary64) (.f64 (.f64 #s(literal 1/2 binary64) (/.f64 w0 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D))) (sqrt.f64 (/.f64 l h)))) (.f64 d d) (.f64 (.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) M) D) (sqrt.f64 (/.f64 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/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) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (* 1/16 (* (/ (* (pow d 2) w0) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5)))))))))) d)))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (/.f64 (fma.f64 (fma.f64 (fma.f64 (.f64 (/.f64 (.f64 (.f64 d d) w0) (.f64 (.f64 (pow.f64 M #s(literal 5 binary64)) (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 5 binary64))) (pow.f64 D #s(literal 5 binary64)))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 5 binary64))))) #s(literal 1/16 binary64) (.f64 (.f64 #s(literal -1/8 binary64) (/.f64 w0 (pow.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) #s(literal 3 binary64)))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))))) (.f64 d d) (.f64 (.f64 #s(literal 1/2 binary64) (/.f64 w0 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D))) (sqrt.f64 (/.f64 l h)))) (.f64 d d) (.f64 (.f64 (.f64 (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) w0) M) D) (sqrt.f64 (/.f64 h l)))) 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)))) (/.f64 (fma.f64 (.f64 (/.f64 (/.f64 (.f64 d d) D) (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M)) (sqrt.f64 (/.f64 l h))) #s(literal 1/2 binary64) (.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) (sqrt.f64 (/.f64 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) 3)))) (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)))) (/.f64 (fma.f64 (fma.f64 (.f64 (/.f64 (.f64 d d) (pow.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) #s(literal 3 binary64))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64)))) #s(literal -1/8 binary64) (.f64 (.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D))) (sqrt.f64 (/.f64 l h)))) (.f64 d d) (.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) (sqrt.f64 (/.f64 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/2 (* (/ 1 (* D (* M (sqrt -1/4)))) (sqrt (/ l h)))) (* (pow d 2) (+ (* -1/8 (* (/ 1 (* (pow D 3) (* (pow M 3) (pow (sqrt -1/4) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (* 1/16 (* (/ (pow d 2) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/4) 5)))) (sqrt (/ (pow l 5) (pow h 5)))))))))) d)))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (/.f64 (fma.f64 (fma.f64 (fma.f64 (.f64 (/.f64 (.f64 d d) (.f64 (.f64 (pow.f64 M #s(literal 5 binary64)) (pow.f64 (sqrt.f64 #s(literal -1/4 binary64)) #s(literal 5 binary64))) (pow.f64 D #s(literal 5 binary64)))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 5 binary64))))) #s(literal 1/16 binary64) (.f64 (.f64 #s(literal -1/8 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) #s(literal 3 binary64)))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))))) (.f64 d d) (.f64 (.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (.f64 (.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D))) (sqrt.f64 (/.f64 l h)))) (.f64 d d) (.f64 (.f64 (*.f64 (sqrt.f64 #s(literal -1/4 binary64)) M) D) (sqrt.f64 (/.f64 h l)))) d))
#s(approx (+ (* (* (* D D) -1/8) (* (/ h (* d d)) (/ (* M M) l))) 1) #s(hole binary64 (/ (+ (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) l)) (pow d 2)) (pow d 2))))
#s(approx (+ (* (* (* D D) -1/8) (* (/ h (* d d)) (/ (* M M) l))) 1) (/.f64 (fma.f64 (.f64 (.f64 D D) (/.f64 (.f64 (.f64 M M) h) l)) #s(literal -1/8 binary64) (.f64 d d)) (.f64 d d)))
#s(approx (+ (* (* (* D D) -1/8) (/ (* (* M M) h) (* (* l d) d))) 1) #s(hole binary64 (/ (+ (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) l)) (pow d 2)) (pow d 2))))
#s(approx (+ (* (* (* D D) -1/8) (/ (* (* M M) h) (* (* l d) d))) 1) (/.f64 (fma.f64 (.f64 (.f64 D D) (/.f64 (.f64 (.f64 M M) h) l)) #s(literal -1/8 binary64) (.f64 d d)) (.f64 d 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 (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (/.f64 (fma.f64 (.f64 (.f64 D D) (/.f64 (.f64 (.f64 M M) h) l)) #s(literal -1/4 binary64) (.f64 d d)) (.f64 d d)))
#s(approx (+ (* (* h -1/4) (* M (* (* M D) (/ D (* (* l d) d))))) 1) #s(hole binary64 (/ (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) l)) (pow d 2)) (pow d 2))))
#s(approx (+ (* (* h -1/4) (* M (* (* M D) (/ D (* (* l d) d))))) 1) (/.f64 (fma.f64 (.f64 (.f64 D D) (/.f64 (.f64 (.f64 M M) h) l)) #s(literal -1/4 binary64) (.f64 d d)) (.f64 d d)))
#s(approx (+ (* (* h -1/4) (/ (* (* (* M M) D) (/ D d)) (* l d))) 1) #s(hole binary64 (/ (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) l)) (pow d 2)) (pow d 2))))
#s(approx (+ (* (* h -1/4) (/ (* (* (* M M) D) (/ D d)) (* l d))) 1) (/.f64 (fma.f64 (.f64 (.f64 D D) (/.f64 (.f64 (.f64 M M) h) l)) #s(literal -1/4 binary64) (.f64 d d)) (.f64 d d)))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l))) #s(hole binary64 (/ (+ (* (* D (* M (* (sqrt -1/2) (sqrt 1/2)))) (sqrt (/ h l))) (* (/ (* (pow d 2) (sqrt 1/2)) (* D (* M (sqrt -1/2)))) (sqrt (/ l h)))) d)))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l))) (/.f64 (fma.f64 (/.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (.f64 d d)) (.f64 (.f64 (sqrt.f64 #s(literal -1/2 binary64)) M) D)) (sqrt.f64 (/.f64 l h)) (.f64 (.f64 (.f64 D M) (.f64 (sqrt.f64 #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 1/2 binary64)))) (sqrt.f64 (/.f64 h l)))) d))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l))) #s(hole binary64 (/ (+ (* (* D (* M (* (sqrt -1/2) (sqrt 1/2)))) (sqrt (/ h l))) (* (pow d 2) (+ (* -1/2 (* (/ (* (pow d 2) (sqrt 1/2)) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (* (/ (sqrt 1/2) (* D (* M (sqrt -1/2)))) (sqrt (/ l h)))))) d)))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l))) (/.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (.f64 d d)) (pow.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/2 binary64)) M) D) #s(literal 3 binary64)))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))) (.f64 (/.f64 (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) D) (.f64 (sqrt.f64 #s(literal -1/2 binary64)) M)) (sqrt.f64 (/.f64 l h)))) (.f64 d d) (.f64 (.f64 (.f64 D M) (.f64 (sqrt.f64 #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 1/2 binary64)))) (sqrt.f64 (/.f64 h l)))) d))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l))) #s(hole binary64 (/ (+ (* (* D (* M (* (sqrt -1/2) (sqrt 1/2)))) (sqrt (/ h l))) (* (pow d 2) (+ (* (/ (sqrt 1/2) (* D (* M (sqrt -1/2)))) (sqrt (/ l h))) (* (pow d 2) (+ (* -1/2 (* (/ (sqrt 1/2) (* (pow D 3) (* (pow M 3) (pow (sqrt -1/2) 3)))) (sqrt (/ (pow l 3) (pow h 3))))) (* 1/2 (* (/ (* (pow d 2) (sqrt 1/2)) (* (pow D 5) (* (pow M 5) (pow (sqrt -1/2) 5)))) (sqrt (/ (pow l 5) (pow h 5)))))))))) d)))
#s(approx (sqrt (/ (- (* 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l))) (/.f64 (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 d d) (pow.f64 D #s(literal 5 binary64))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (.f64 (pow.f64 M #s(literal 5 binary64)) (pow.f64 (sqrt.f64 #s(literal -1/2 binary64)) #s(literal 5 binary64)))))) (sqrt.f64 (/.f64 (pow.f64 l #s(literal 5 binary64)) (pow.f64 h #s(literal 5 binary64)))) (.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (pow.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1/2 binary64)) M) D) #s(literal 3 binary64)))) (sqrt.f64 (pow.f64 (/.f64 l h) #s(literal 3 binary64))))) (.f64 d d) (.f64 (/.f64 (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) D) (.f64 (sqrt.f64 #s(literal -1/2 binary64)) M)) (sqrt.f64 (/.f64 l h)))) (.f64 d d) (.f64 (.f64 (.f64 D M) (.f64 (sqrt.f64 #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 1/2 binary64)))) (sqrt.f64 (/.f64 h l)))) d))

rewrite97.0ms (1.1%)

Memory

18.9MiB live, 107.6MiB allocated; 12ms collecting garbage

Iterations

Useful iterations: 1 (0.0ms)

Iter	Nodes	Cost
0	75	729
0	120	718
1	403	646
0	2776	646

Stop Event

1×	iter limit
1×	iter limit
1×	node limit
1×	iter limit

Counts

32 → 500

Calls

Call 1

Inputs
(/.f64 (.f64 (.f64 h (.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64)))) (.f64 M D)) (*.f64 #s(literal 2 binary64) d))
(/.f64 (-.f64 (.f64 #s(literal 2 binary64) l) (.f64 #s(literal 2 binary64) (/.f64 (.f64 (.f64 h (.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64)))) (.f64 M D)) (.f64 #s(literal 2 binary64) d)))) (.f64 #s(literal 2 binary64) l))
(-.f64 (.f64 #s(literal 2 binary64) l) (.f64 #s(literal 2 binary64) (/.f64 (.f64 (.f64 h (.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64)))) (.f64 M D)) (*.f64 #s(literal 2 binary64) d))))
(.f64 w0 (sqrt.f64 (/.f64 (-.f64 (.f64 #s(literal 2 binary64) l) (.f64 #s(literal 2 binary64) (/.f64 (.f64 (.f64 h (.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64)))) (.f64 M D)) (.f64 #s(literal 2 binary64) d)))) (*.f64 #s(literal 2 binary64) l))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(approx (+ (* (* (* D D) -1/8) (* (/ h (* d d)) (/ (* M M) l))) 1) (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (.f64 (.f64 (.f64 M M) D) D) h) (.f64 (*.f64 d d) l))))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(approx (+ (* (* (* D D) -1/8) (* (/ h (* d d)) (/ (* M M) l))) 1) (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (.f64 (.f64 (.f64 M M) D) D) h) (.f64 (*.f64 d d) l)))))
#s(approx (+ (* (* (* D D) -1/8) (* (/ h (* d d)) (/ (* M M) l))) 1) (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (.f64 (.f64 (.f64 M M) D) D) h) (.f64 (*.f64 d d) l))))
(.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (.f64 (.f64 (.f64 M M) D) D) h) (.f64 (*.f64 d d) l)))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) (/.f64 (.f64 (.f64 M M) h) (.f64 (.f64 l d) d)) #s(literal 1 binary64))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) (/.f64 (.f64 (.f64 M M) h) (.f64 (.f64 l d) d)) #s(literal 1 binary64)))
(fma.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) (/.f64 (.f64 (.f64 M M) h) (.f64 (.f64 l d) d)) #s(literal 1 binary64))
(.f64 (.f64 D D) #s(literal -1/8 binary64))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 h #s(literal -1/4 binary64)) (.f64 M (.f64 (.f64 M D) (/.f64 D (.f64 (.f64 l d) d)))) #s(literal 1 binary64)))))
(sqrt.f64 #s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 h #s(literal -1/4 binary64)) (.f64 M (.f64 (.f64 M D) (/.f64 D (.f64 (.f64 l d) d)))) #s(literal 1 binary64))))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 h #s(literal -1/4 binary64)) (.f64 M (.f64 (.f64 M D) (/.f64 D (.f64 (.f64 l d) d)))) #s(literal 1 binary64)))
(fma.f64 (.f64 h #s(literal -1/4 binary64)) (.f64 M (.f64 (.f64 M D) (/.f64 D (.f64 (.f64 l d) d)))) #s(literal 1 binary64))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 h #s(literal -1/4 binary64)) (/.f64 (.f64 (.f64 (.f64 M M) D) (/.f64 D d)) (*.f64 l d)) #s(literal 1 binary64)))))
(sqrt.f64 #s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 h #s(literal -1/4 binary64)) (/.f64 (.f64 (.f64 (.f64 M M) D) (/.f64 D d)) (*.f64 l d)) #s(literal 1 binary64))))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 h #s(literal -1/4 binary64)) (/.f64 (.f64 (.f64 (.f64 M M) D) (/.f64 D d)) (*.f64 l d)) #s(literal 1 binary64)))
(fma.f64 (.f64 h #s(literal -1/4 binary64)) (/.f64 (.f64 (.f64 (.f64 M M) D) (/.f64 D d)) (*.f64 l d)) #s(literal 1 binary64))
(sqrt.f64 (/.f64 (-.f64 (.f64 #s(literal 2 binary64) l) (.f64 #s(literal 2 binary64) (/.f64 (.f64 (.f64 h (.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64)))) (.f64 M D)) (.f64 #s(literal 2 binary64) d)))) (.f64 #s(literal 2 binary64) l)))
(.f64 h (.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64))))
(*.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64)))
(/.f64 (.f64 (.f64 (.f64 (.f64 M M) D) D) h) (.f64 (.f64 d d) l))
(.f64 (.f64 d d) l)
(/.f64 (.f64 (.f64 M M) h) (.f64 (.f64 l d) d))
(.f64 (.f64 M M) h)
(.f64 (.f64 M D) (/.f64 D (.f64 (.f64 l d) d)))
(/.f64 D (.f64 (.f64 l d) d))
(/.f64 (.f64 (.f64 (.f64 M M) D) (/.f64 D d)) (.f64 l d))
(.f64 (.f64 (*.f64 M M) D) (/.f64 D d))
(.f64 (.f64 M M) D)

Outputs
(.f64 (.f64 (.f64 (.f64 h (/.f64 M #s(literal 2 binary64))) (/.f64 D d)) (/.f64 M #s(literal 2 binary64))) (/.f64 D d))
(.f64 (.f64 (.f64 (.f64 h (/.f64 M #s(literal 2 binary64))) (/.f64 D d)) (/.f64 (/.f64 D d) #s(literal 2 binary64))) M)
(.f64 (/.f64 (.f64 (.f64 M h) (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M)) #s(literal 2 binary64)) (/.f64 D d))
(.f64 (/.f64 (.f64 (.f64 M h) (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M)) d) (/.f64 D #s(literal 2 binary64)))
(.f64 (/.f64 (.f64 (.f64 h (/.f64 M #s(literal 2 binary64))) (/.f64 D d)) d) (.f64 D (/.f64 M #s(literal 2 binary64))))
(.f64 (/.f64 h #s(literal 2 binary64)) (/.f64 (/.f64 (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) d) #s(literal 2 binary64)) d))
(.f64 (.f64 D (/.f64 M #s(literal 2 binary64))) (/.f64 (.f64 (.f64 h (/.f64 M #s(literal 2 binary64))) (/.f64 D d)) d))
(.f64 (.f64 (/.f64 D d) M) (.f64 (.f64 M h) (/.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) #s(literal 2 binary64))))
(.f64 (.f64 M h) (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M)))
(.f64 (.f64 (.f64 M h) (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M)) (/.f64 (/.f64 D d) #s(literal 2 binary64)))
(.f64 (.f64 (.f64 M h) (/.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) #s(literal 2 binary64))) (.f64 (/.f64 D d) M))
(.f64 (/.f64 h d) (/.f64 (/.f64 (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) d) #s(literal 2 binary64)) #s(literal 2 binary64)))
(.f64 (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64)) h)
(.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) (.f64 (.f64 h (/.f64 M #s(literal 2 binary64))) (/.f64 D d)))
(.f64 (.f64 D M) (/.f64 (.f64 (.f64 h (/.f64 M #s(literal 2 binary64))) (/.f64 D d)) (*.f64 #s(literal 2 binary64) d)))
(.f64 (.f64 (.f64 h (/.f64 M #s(literal 2 binary64))) (/.f64 D d)) (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M))
(.f64 h (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64)))
(/.f64 (.f64 (.f64 (.f64 M h) (/.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) #s(literal 2 binary64))) (.f64 D M)) d)
(/.f64 (.f64 (.f64 (.f64 h (/.f64 M #s(literal 2 binary64))) (/.f64 D d)) (.f64 (/.f64 D d) M)) #s(literal 2 binary64))
(/.f64 (/.f64 (.f64 (/.f64 (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) d) #s(literal 2 binary64)) h) d) #s(literal 2 binary64))
(/.f64 (neg.f64 (.f64 h (/.f64 (/.f64 (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) d) #s(literal 2 binary64)) #s(literal 2 binary64)))) (neg.f64 d))
(/.f64 (neg.f64 (.f64 (neg.f64 h) (/.f64 (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) d) #s(literal 2 binary64)))) (neg.f64 (*.f64 #s(literal -2 binary64) d)))
(/.f64 (.f64 h (/.f64 (/.f64 (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) d) #s(literal 2 binary64)) #s(literal 2 binary64))) d)
(/.f64 (.f64 (neg.f64 h) (/.f64 (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) d) #s(literal 2 binary64))) (*.f64 #s(literal -2 binary64) d))
(/.f64 (.f64 (/.f64 (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) d) #s(literal 2 binary64)) h) (*.f64 #s(literal 2 binary64) d))
(neg.f64 (/.f64 (.f64 (neg.f64 h) (/.f64 (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) d) #s(literal 2 binary64))) (*.f64 #s(literal 2 binary64) d)))
(neg.f64 (/.f64 (.f64 (/.f64 (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) d) #s(literal 2 binary64)) h) (*.f64 #s(literal -2 binary64) d)))
(.f64 (/.f64 #s(literal 2 binary64) l) (/.f64 (-.f64 l (.f64 (pow.f64 (*.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64)) h)) #s(literal 2 binary64)))
(.f64 #s(literal 1 binary64) (/.f64 (-.f64 l (.f64 (pow.f64 (*.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64)) h)) l))
(.f64 #s(literal 2 binary64) (/.f64 (-.f64 l (.f64 (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64)) h)) (.f64 l #s(literal 2 binary64))))
(/.f64 (/.f64 (.f64 (-.f64 l (.f64 (pow.f64 (*.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64)) h)) #s(literal 2 binary64)) l) #s(literal 2 binary64))
(/.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (.f64 (neg.f64 (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (/.f64 h l)) #s(literal 3 binary64))) (+.f64 #s(literal 1 binary64) (-.f64 (pow.f64 (.f64 (/.f64 h l) (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(literal 1 binary64) (.f64 (neg.f64 (pow.f64 (*.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (/.f64 h l))))))
(/.f64 (neg.f64 (/.f64 (.f64 #s(literal -2 binary64) (-.f64 l (.f64 (pow.f64 (*.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64)) h))) #s(literal -2 binary64))) (neg.f64 l))
(/.f64 (neg.f64 (.f64 #s(literal -2 binary64) (-.f64 l (.f64 (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64)) h)))) (neg.f64 (.f64 #s(literal -2 binary64) l)))
(/.f64 (neg.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (.f64 (/.f64 h l) (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64))) #s(literal 2 binary64)))) (neg.f64 (fma.f64 (/.f64 h l) (pow.f64 (*.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64)) #s(literal 1 binary64))))
(/.f64 (neg.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (.f64 (/.f64 h l) (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64))) #s(literal 3 binary64)))) (neg.f64 (fma.f64 (.f64 (/.f64 h l) (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (fma.f64 (/.f64 h l) (pow.f64 (*.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64)) #s(literal 1 binary64)) #s(literal 1 binary64))))
(/.f64 (-.f64 (pow.f64 (.f64 l #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 (.f64 (.f64 l #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64)) h))) (pow.f64 (*.f64 l #s(literal 2 binary64)) #s(literal 2 binary64)))
(/.f64 (/.f64 (.f64 #s(literal -2 binary64) (-.f64 l (.f64 (pow.f64 (*.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64)) h))) #s(literal -2 binary64)) l)
(/.f64 (-.f64 (pow.f64 (.f64 l #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (.f64 (.f64 (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64)) h) #s(literal 2 binary64)) #s(literal 2 binary64))) (.f64 (.f64 #s(literal 2 binary64) (+.f64 l (.f64 (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64)) h))) (*.f64 l #s(literal 2 binary64))))
(/.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (.f64 (/.f64 h l) (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64))) #s(literal 2 binary64))) (fma.f64 (/.f64 h l) (pow.f64 (*.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64)) #s(literal 1 binary64)))
(/.f64 (-.f64 (pow.f64 (.f64 l #s(literal 2 binary64)) #s(literal 3 binary64)) (pow.f64 (.f64 (.f64 (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64)) h) #s(literal 2 binary64)) #s(literal 3 binary64))) (.f64 (fma.f64 (.f64 (.f64 (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64)) h) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (+.f64 l (.f64 (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64)) h))) (pow.f64 (.f64 l #s(literal 2 binary64)) #s(literal 2 binary64))) (*.f64 l #s(literal 2 binary64))))
(/.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (.f64 (/.f64 h l) (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64))) #s(literal 3 binary64))) (fma.f64 (.f64 (/.f64 h l) (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (fma.f64 (/.f64 h l) (pow.f64 (*.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64)) #s(literal 1 binary64)) #s(literal 1 binary64)))
(/.f64 (.f64 #s(literal -2 binary64) (-.f64 l (.f64 (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64)) h))) (.f64 #s(literal -2 binary64) l))
(/.f64 (.f64 (-.f64 l (.f64 (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64)) h)) #s(literal 2 binary64)) (.f64 l #s(literal 2 binary64)))
(neg.f64 (/.f64 (.f64 #s(literal -2 binary64) (-.f64 l (.f64 (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64)) h))) (.f64 l #s(literal 2 binary64))))
(neg.f64 (/.f64 (.f64 (-.f64 l (.f64 (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64)) h)) #s(literal 2 binary64)) (.f64 #s(literal -2 binary64) l)))
(fma.f64 (neg.f64 (pow.f64 (*.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (/.f64 h l) #s(literal 1 binary64))
(fma.f64 (/.f64 h l) (neg.f64 (pow.f64 (*.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64))) #s(literal 1 binary64))
(-.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (/.f64 h l) (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64)) #s(literal 1 binary64))) (/.f64 (pow.f64 (.f64 (/.f64 h l) (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64))) #s(literal 2 binary64)) (fma.f64 (/.f64 h l) (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64)) #s(literal 1 binary64))))
(-.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (/.f64 h l) (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (fma.f64 (/.f64 h l) (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64)) #s(literal 1 binary64)) #s(literal 1 binary64))) (/.f64 (pow.f64 (.f64 (/.f64 h l) (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64))) #s(literal 3 binary64)) (fma.f64 (.f64 (/.f64 h l) (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (fma.f64 (/.f64 h l) (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64)) #s(literal 1 binary64)) #s(literal 1 binary64))))
(-.f64 #s(literal 1 binary64) (.f64 (neg.f64 (neg.f64 (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64)))) (/.f64 h l)))
(-.f64 #s(literal 1 binary64) (.f64 (/.f64 h l) (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64))))
(+.f64 (.f64 (neg.f64 (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (/.f64 h l)) #s(literal 1 binary64))
(+.f64 #s(literal 1 binary64) (.f64 (neg.f64 (/.f64 h l)) (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64))))
(+.f64 #s(literal 1 binary64) (/.f64 (.f64 #s(literal -2 binary64) (.f64 (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64)) h)) (.f64 l #s(literal 2 binary64))))
(+.f64 #s(literal 1 binary64) (.f64 (neg.f64 (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (/.f64 h l)))
(.f64 (-.f64 l (.f64 (pow.f64 (*.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64)) h)) #s(literal 2 binary64))
(.f64 #s(literal 2 binary64) (-.f64 l (.f64 (pow.f64 (*.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64)) h)))
(/.f64 (fma.f64 (pow.f64 l #s(literal 3 binary64)) #s(literal 8 binary64) (pow.f64 (.f64 #s(literal -2 binary64) (.f64 (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64)) h)) #s(literal 3 binary64))) (fma.f64 (.f64 l l) #s(literal 4 binary64) (-.f64 (pow.f64 (.f64 (.f64 (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64)) h) #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 (.f64 l #s(literal 2 binary64)) (.f64 #s(literal -2 binary64) (.f64 (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64)) h))))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (.f64 l #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (.f64 (.f64 (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64)) h) #s(literal 2 binary64)) #s(literal 2 binary64)))) (neg.f64 (.f64 #s(literal 2 binary64) (+.f64 l (.f64 (pow.f64 (*.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64)) h)))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (.f64 l #s(literal 2 binary64)) #s(literal 3 binary64)) (pow.f64 (.f64 (.f64 (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64)) h) #s(literal 2 binary64)) #s(literal 3 binary64)))) (neg.f64 (fma.f64 (.f64 (.f64 (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64)) h) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (+.f64 l (.f64 (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64)) h))) (pow.f64 (*.f64 l #s(literal 2 binary64)) #s(literal 2 binary64)))))
(/.f64 (-.f64 (pow.f64 (.f64 l #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (.f64 (.f64 (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64)) h) #s(literal 2 binary64)) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (+.f64 l (.f64 (pow.f64 (*.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64)) h))))
(/.f64 (-.f64 (pow.f64 (.f64 l #s(literal 2 binary64)) #s(literal 3 binary64)) (pow.f64 (.f64 (.f64 (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64)) h) #s(literal 2 binary64)) #s(literal 3 binary64))) (fma.f64 (.f64 (.f64 (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64)) h) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (+.f64 l (.f64 (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64)) h))) (pow.f64 (*.f64 l #s(literal 2 binary64)) #s(literal 2 binary64))))
(fma.f64 (.f64 #s(literal -2 binary64) (.f64 (.f64 M h) (/.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) #s(literal 2 binary64)))) (.f64 (/.f64 D d) M) (*.f64 l #s(literal 2 binary64)))
(fma.f64 (.f64 #s(literal -2 binary64) (.f64 (.f64 h (/.f64 M #s(literal 2 binary64))) (/.f64 D d))) (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) (*.f64 l #s(literal 2 binary64)))
(fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64)) h) (*.f64 l #s(literal 2 binary64)))
(fma.f64 l #s(literal 2 binary64) (.f64 (neg.f64 (.f64 (pow.f64 (*.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64)) h)) #s(literal 2 binary64)))
(fma.f64 l #s(literal 2 binary64) (.f64 #s(literal -2 binary64) (.f64 (pow.f64 (*.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64)) h)))
(fma.f64 (.f64 (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64)) h) #s(literal -2 binary64) (*.f64 l #s(literal 2 binary64)))
(fma.f64 #s(literal 2 binary64) l (.f64 (neg.f64 (.f64 (pow.f64 (*.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64)) h)) #s(literal 2 binary64)))
(fma.f64 #s(literal 2 binary64) l (.f64 #s(literal -2 binary64) (.f64 (pow.f64 (*.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64)) h)))
(-.f64 (-.f64 (.f64 l #s(literal 2 binary64)) (.f64 (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64)) h)) (.f64 (pow.f64 (*.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64)) h))
(-.f64 (/.f64 (pow.f64 (.f64 l #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (+.f64 l (.f64 (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64)) h)))) (/.f64 (pow.f64 (.f64 (.f64 (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64)) h) #s(literal 2 binary64)) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (+.f64 l (.f64 (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64)) h)))))
(-.f64 (/.f64 (pow.f64 (.f64 l #s(literal 2 binary64)) #s(literal 3 binary64)) (fma.f64 (.f64 (.f64 (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64)) h) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (+.f64 l (.f64 (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64)) h))) (pow.f64 (.f64 l #s(literal 2 binary64)) #s(literal 2 binary64)))) (/.f64 (pow.f64 (.f64 (.f64 (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64)) h) #s(literal 2 binary64)) #s(literal 3 binary64)) (fma.f64 (.f64 (.f64 (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64)) h) #s(literal 2 binary64)) (.f64 #s(literal 2 binary64) (+.f64 l (.f64 (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64)) h))) (pow.f64 (.f64 l #s(literal 2 binary64)) #s(literal 2 binary64)))))
(-.f64 (.f64 l #s(literal 2 binary64)) (.f64 (.f64 (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64)) h) #s(literal 2 binary64)))
(+.f64 (-.f64 l (.f64 (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64)) h)) (-.f64 l (.f64 (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64)) h)))
(+.f64 (.f64 #s(literal -2 binary64) (.f64 (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64)) h)) (.f64 l #s(literal 2 binary64)))
(+.f64 (.f64 l #s(literal 2 binary64)) (.f64 (neg.f64 (.f64 (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64)) h)) #s(literal 2 binary64)))
(+.f64 (.f64 l #s(literal 2 binary64)) (.f64 #s(literal -2 binary64) (.f64 (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64)) h)))
(+.f64 l (-.f64 l (.f64 (.f64 (pow.f64 (*.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64)) h) #s(literal 2 binary64))))
(+.f64 l (+.f64 l (.f64 #s(literal -2 binary64) (.f64 (pow.f64 (*.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64)) h))))
(.f64 (sqrt.f64 (fma.f64 (neg.f64 (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (/.f64 h l) #s(literal 1 binary64))) w0)
(.f64 w0 (sqrt.f64 (fma.f64 (neg.f64 (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (/.f64 h l) #s(literal 1 binary64))))
(/.f64 (.f64 (sqrt.f64 (.f64 (-.f64 l (.f64 (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64)) h)) #s(literal 2 binary64))) w0) (sqrt.f64 (*.f64 l #s(literal 2 binary64))))
(/.f64 (.f64 w0 (sqrt.f64 (.f64 (-.f64 l (.f64 (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64)) h)) #s(literal 2 binary64)))) (sqrt.f64 (*.f64 l #s(literal 2 binary64))))
(.f64 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(approx (+ (* (* (* D D) -1/8) (* (/ h (* d d)) (/ (* M M) l))) 1) (.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (/.f64 (pow.f64 (*.f64 D M) #s(literal 2 binary64)) d) d)) (/.f64 h l)))) w0)
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(approx (+ (* (* (* D D) -1/8) (* (/ h (* d d)) (/ (* M M) l))) 1) (.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (/.f64 (pow.f64 (*.f64 D M) #s(literal 2 binary64)) d) d)) (/.f64 h l)))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(approx (+ (* (* (* D D) -1/8) (* (/ h (* d d)) (/ (* M M) l))) 1) (.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (/.f64 (pow.f64 (*.f64 D M) #s(literal 2 binary64)) d) d)) (/.f64 h l))))
#s(approx (+ (* (* (* D D) -1/8) (* (/ h (* d d)) (/ (* M M) l))) 1) (.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (/.f64 (pow.f64 (*.f64 D M) #s(literal 2 binary64)) d) d)) (/.f64 h l)))
(.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (/.f64 (pow.f64 (*.f64 D M) #s(literal 2 binary64)) d) d)) (/.f64 h l))
(.f64 (.f64 #s(literal -1/8 binary64) (pow.f64 (.f64 D M) #s(literal 2 binary64))) (/.f64 h (.f64 (*.f64 l d) d)))
(.f64 (/.f64 #s(literal -1/8 binary64) (.f64 l d)) (/.f64 (.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) h) d))
(.f64 (/.f64 #s(literal -1/8 binary64) (.f64 d d)) (/.f64 (.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) h) l))
(.f64 (/.f64 #s(literal -1/8 binary64) l) (.f64 h (/.f64 (/.f64 (pow.f64 (*.f64 D M) #s(literal 2 binary64)) d) d)))
(.f64 (/.f64 #s(literal -1/8 binary64) d) (/.f64 (.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) h) (.f64 l d)))
(.f64 (/.f64 (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) d) d) (*.f64 (/.f64 h l) #s(literal -1/8 binary64)))
(.f64 (.f64 (/.f64 h (.f64 l d)) (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) d)) #s(literal -1/8 binary64))
(.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) (.f64 (/.f64 h (.f64 (*.f64 l d) d)) #s(literal -1/8 binary64)))
(.f64 #s(literal -1/8 binary64) (.f64 (/.f64 h (.f64 l d)) (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) d)))
(/.f64 (/.f64 (.f64 (.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) h) #s(literal -1/8 binary64)) (.f64 l d)) d)
(/.f64 (/.f64 (.f64 (.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) h) #s(literal -1/8 binary64)) (.f64 d d)) l)
(/.f64 (/.f64 (.f64 (.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) h) #s(literal -1/8 binary64)) l) (.f64 d d))
(/.f64 (/.f64 (.f64 (.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) h) #s(literal -1/8 binary64)) d) (.f64 l d))
(/.f64 (.f64 (.f64 h (/.f64 (/.f64 (pow.f64 (*.f64 D M) #s(literal 2 binary64)) d) d)) #s(literal -1/8 binary64)) l)
(/.f64 (.f64 (.f64 (neg.f64 h) (pow.f64 (.f64 D M) #s(literal 2 binary64))) #s(literal -1/8 binary64)) (.f64 (*.f64 (neg.f64 l) d) d))
(/.f64 (.f64 #s(literal -1/8 binary64) (.f64 h (/.f64 (/.f64 (pow.f64 (*.f64 D M) #s(literal 2 binary64)) d) d))) l)
(/.f64 (.f64 #s(literal -1/8 binary64) (.f64 (neg.f64 h) (pow.f64 (.f64 D M) #s(literal 2 binary64)))) (.f64 (*.f64 (neg.f64 l) d) d))
(/.f64 (neg.f64 (.f64 (.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) h) #s(literal -1/8 binary64))) (.f64 (*.f64 (neg.f64 l) d) d))
(/.f64 (.f64 (.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) h) #s(literal -1/8 binary64)) (.f64 (*.f64 l d) d))
(.f64 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (/.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) d) (/.f64 (/.f64 (.f64 (.f64 M M) h) l) d) #s(literal 1 binary64))) w0)
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (/.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) d) (/.f64 (/.f64 (.f64 (.f64 M M) h) l) d) #s(literal 1 binary64))))
#s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (/.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) d) (/.f64 (/.f64 (.f64 (.f64 M M) h) l) d) #s(literal 1 binary64)))
(/.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (.f64 (/.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) d) (/.f64 (/.f64 (.f64 (.f64 M M) h) l) d)) #s(literal 2 binary64))) (-.f64 #s(literal 1 binary64) (.f64 (/.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) d) (/.f64 (/.f64 (.f64 (.f64 M M) h) l) d))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (.f64 (/.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) d) (/.f64 (/.f64 (.f64 (.f64 M M) h) l) d)) #s(literal 2 binary64)) #s(literal 1 binary64))) (neg.f64 (fma.f64 (/.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) d) (/.f64 (/.f64 (.f64 (*.f64 M M) h) l) d) #s(literal -1 binary64))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (.f64 (/.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) d) (/.f64 (/.f64 (.f64 (.f64 M M) h) l) d)) #s(literal 3 binary64)) #s(literal -1 binary64))) (neg.f64 (+.f64 (-.f64 #s(literal 1 binary64) (.f64 (/.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) d) (/.f64 (/.f64 (.f64 (.f64 M M) h) l) d))) (pow.f64 (.f64 (/.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) d) (/.f64 (/.f64 (.f64 (*.f64 M M) h) l) d)) #s(literal 2 binary64)))))
(/.f64 (fma.f64 (.f64 (.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) M) (.f64 M h)) #s(literal 2 binary64) (.f64 (.f64 (.f64 l d) d) #s(literal 2 binary64))) (.f64 (.f64 (*.f64 l d) d) #s(literal 2 binary64)))
(/.f64 (fma.f64 #s(literal 2 binary64) (.f64 (.f64 l d) d) (.f64 #s(literal 2 binary64) (.f64 (.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) M) (.f64 M h)))) (.f64 #s(literal 2 binary64) (.f64 (*.f64 l d) d)))
(/.f64 (-.f64 (pow.f64 (.f64 (/.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) d) (/.f64 (/.f64 (.f64 (.f64 M M) h) l) d)) #s(literal 2 binary64)) #s(literal 1 binary64)) (fma.f64 (/.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) d) (/.f64 (/.f64 (.f64 (*.f64 M M) h) l) d) #s(literal -1 binary64)))
(/.f64 (-.f64 (pow.f64 (.f64 (/.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) d) (/.f64 (/.f64 (.f64 (.f64 M M) h) l) d)) #s(literal 3 binary64)) #s(literal -1 binary64)) (+.f64 #s(literal 1 binary64) (-.f64 (pow.f64 (.f64 (/.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) d) (/.f64 (/.f64 (.f64 (.f64 M M) h) l) d)) #s(literal 2 binary64)) (.f64 (/.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) d) (/.f64 (/.f64 (.f64 (*.f64 M M) h) l) d)))))
(/.f64 (-.f64 (pow.f64 (.f64 (/.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) d) (/.f64 (/.f64 (.f64 (.f64 M M) h) l) d)) #s(literal 3 binary64)) #s(literal -1 binary64)) (+.f64 (-.f64 #s(literal 1 binary64) (.f64 (/.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) d) (/.f64 (/.f64 (.f64 (.f64 M M) h) l) d))) (pow.f64 (.f64 (/.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) d) (/.f64 (/.f64 (.f64 (*.f64 M M) h) l) d)) #s(literal 2 binary64))))
(fma.f64 (.f64 (.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) (/.f64 (/.f64 h d) d)) M) (/.f64 M l) #s(literal 1 binary64))
(fma.f64 (.f64 (.f64 (/.f64 M (.f64 l d)) (/.f64 (.f64 M h) d)) (*.f64 D D)) #s(literal -1/8 binary64) #s(literal 1 binary64))
(fma.f64 (.f64 (.f64 (/.f64 M (.f64 l d)) (/.f64 (.f64 M h) d)) D) (*.f64 #s(literal -1/8 binary64) D) #s(literal 1 binary64))
(fma.f64 (.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) (.f64 (/.f64 M d) (/.f64 M l))) (/.f64 h d) #s(literal 1 binary64))
(fma.f64 (.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) (.f64 (/.f64 M l) M)) (/.f64 (/.f64 h d) d) #s(literal 1 binary64))
(fma.f64 (.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) (.f64 M M)) (/.f64 h (.f64 (.f64 l d) d)) #s(literal 1 binary64))
(fma.f64 (/.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) (.f64 l d)) (/.f64 (.f64 (*.f64 M M) h) d) #s(literal 1 binary64))
(fma.f64 (/.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) (.f64 d d)) (/.f64 (.f64 (*.f64 M M) h) l) #s(literal 1 binary64))
(fma.f64 (/.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) l) (.f64 (.f64 M M) (/.f64 (/.f64 h d) d)) #s(literal 1 binary64))
(fma.f64 (/.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) d) (/.f64 (/.f64 (.f64 (.f64 M M) h) l) d) #s(literal 1 binary64))
(fma.f64 (.f64 (.f64 #s(literal -1/8 binary64) (.f64 M M)) (/.f64 h (.f64 (.f64 l d) d))) (.f64 D D) #s(literal 1 binary64))
(fma.f64 (.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) (/.f64 (/.f64 h d) d)) (.f64 (*.f64 (/.f64 M l) M) #s(literal 1 binary64)) #s(literal 1 binary64))
(fma.f64 (.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) (/.f64 (/.f64 h d) d)) (.f64 (/.f64 M l) M) #s(literal 1 binary64))
(fma.f64 (.f64 (/.f64 M d) (/.f64 M l)) (.f64 (/.f64 h d) (.f64 (.f64 D D) #s(literal -1/8 binary64))) #s(literal 1 binary64))
(fma.f64 (neg.f64 D) (.f64 (neg.f64 D) (.f64 (.f64 #s(literal -1/8 binary64) (.f64 M M)) (/.f64 h (.f64 (.f64 l d) d)))) #s(literal 1 binary64))
(fma.f64 (fabs.f64 D) (.f64 (fabs.f64 D) (.f64 (.f64 #s(literal -1/8 binary64) (.f64 M M)) (/.f64 h (.f64 (.f64 l d) d)))) #s(literal 1 binary64))
(fma.f64 (.f64 (/.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) d) (/.f64 (/.f64 (.f64 (*.f64 M M) h) l) d)) #s(literal 1 binary64) #s(literal 1 binary64))
(fma.f64 (.f64 (/.f64 M (.f64 l d)) (/.f64 (.f64 M h) d)) (.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) #s(literal 1 binary64)) #s(literal 1 binary64))
(fma.f64 (.f64 (/.f64 M (.f64 l d)) (/.f64 (.f64 M h) d)) (.f64 (*.f64 D D) #s(literal -1/8 binary64)) #s(literal 1 binary64))
(fma.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) (.f64 (.f64 (/.f64 M (.f64 l d)) (/.f64 (.f64 M h) d)) #s(literal 1 binary64)) #s(literal 1 binary64))
(fma.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) (.f64 (/.f64 M (.f64 l d)) (/.f64 (*.f64 M h) d)) #s(literal 1 binary64))
(fma.f64 (.f64 D D) (.f64 (.f64 (.f64 #s(literal -1/8 binary64) (.f64 M M)) (/.f64 h (.f64 (*.f64 l d) d))) #s(literal 1 binary64)) #s(literal 1 binary64))
(fma.f64 (.f64 D D) (.f64 (.f64 #s(literal -1/8 binary64) (.f64 M M)) (/.f64 h (.f64 (.f64 l d) d))) #s(literal 1 binary64))
(fma.f64 (.f64 M M) (.f64 (/.f64 h (.f64 (.f64 l d) d)) (.f64 (.f64 D D) #s(literal -1/8 binary64))) #s(literal 1 binary64))
(fma.f64 (.f64 (/.f64 M l) M) (.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) (/.f64 (/.f64 h d) d)) #s(literal 1 binary64))
(fma.f64 (/.f64 (/.f64 h d) d) (.f64 (.f64 (/.f64 M l) M) (.f64 (.f64 D D) #s(literal -1/8 binary64))) #s(literal 1 binary64))
(fma.f64 #s(literal -1/8 binary64) (.f64 (.f64 D D) (.f64 (/.f64 M (.f64 l d)) (/.f64 (*.f64 M h) d))) #s(literal 1 binary64))
(fma.f64 #s(literal 1 binary64) (.f64 (/.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) d) (/.f64 (/.f64 (.f64 (*.f64 M M) h) l) d)) #s(literal 1 binary64))
(fma.f64 D (.f64 (.f64 #s(literal -1/8 binary64) D) (.f64 (/.f64 M (.f64 l d)) (/.f64 (*.f64 M h) d))) #s(literal 1 binary64))
(fma.f64 D (.f64 D (.f64 (.f64 #s(literal -1/8 binary64) (.f64 M M)) (/.f64 h (.f64 (.f64 l d) d)))) #s(literal 1 binary64))
(-.f64 (/.f64 (pow.f64 (.f64 (/.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) d) (/.f64 (/.f64 (.f64 (.f64 M M) h) l) d)) #s(literal 2 binary64)) (fma.f64 (/.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) d) (/.f64 (/.f64 (.f64 (.f64 M M) h) l) d) #s(literal -1 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 (/.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) d) (/.f64 (/.f64 (.f64 (*.f64 M M) h) l) d) #s(literal -1 binary64))))
(-.f64 (.f64 (/.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) d) (/.f64 (/.f64 (.f64 (*.f64 M M) h) l) d)) #s(literal -1 binary64))
(-.f64 #s(literal 1 binary64) (.f64 (neg.f64 (.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) (/.f64 (/.f64 h d) d))) (*.f64 (/.f64 M l) M)))
(-.f64 #s(literal 1 binary64) (.f64 (neg.f64 (.f64 (/.f64 M (.f64 l d)) (/.f64 (.f64 M h) d))) (.f64 (.f64 D D) #s(literal -1/8 binary64))))
(-.f64 #s(literal 1 binary64) (.f64 (neg.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64))) (.f64 (/.f64 M (.f64 l d)) (/.f64 (.f64 M h) d))))
(-.f64 #s(literal 1 binary64) (.f64 (neg.f64 (.f64 D D)) (.f64 (.f64 #s(literal -1/8 binary64) (.f64 M M)) (/.f64 h (.f64 (*.f64 l d) d)))))
(+.f64 (/.f64 (pow.f64 (.f64 (/.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) d) (/.f64 (/.f64 (.f64 (.f64 M M) h) l) d)) #s(literal 3 binary64)) (+.f64 (-.f64 #s(literal 1 binary64) (.f64 (/.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) d) (/.f64 (/.f64 (.f64 (.f64 M M) h) l) d))) (pow.f64 (.f64 (/.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) d) (/.f64 (/.f64 (.f64 (.f64 M M) h) l) d)) #s(literal 2 binary64)))) (/.f64 #s(literal 1 binary64) (+.f64 (-.f64 #s(literal 1 binary64) (.f64 (/.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) d) (/.f64 (/.f64 (.f64 (.f64 M M) h) l) d))) (pow.f64 (.f64 (/.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) d) (/.f64 (/.f64 (.f64 (*.f64 M M) h) l) d)) #s(literal 2 binary64)))))
(+.f64 (.f64 (/.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) d) (/.f64 (/.f64 (.f64 (*.f64 M M) h) l) d)) #s(literal 1 binary64))
(+.f64 #s(literal 1 binary64) (.f64 (/.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) d) (/.f64 (/.f64 (.f64 (*.f64 M M) h) l) d)))
(.f64 (.f64 #s(literal -1/8 binary64) (neg.f64 D)) (neg.f64 D))
(.f64 (.f64 #s(literal -1/8 binary64) (fabs.f64 D)) (fabs.f64 D))
(.f64 (.f64 #s(literal -1/8 binary64) D) D)
(.f64 (neg.f64 D) (.f64 (neg.f64 D) #s(literal -1/8 binary64)))
(.f64 (fabs.f64 D) (.f64 (fabs.f64 D) #s(literal -1/8 binary64)))
(.f64 (.f64 D D) #s(literal -1/8 binary64))
(.f64 #s(literal -1/8 binary64) (.f64 D D))
(.f64 D (.f64 #s(literal -1/8 binary64) D))
(.f64 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (/.f64 (.f64 #s(literal -1/4 binary64) h) l) (/.f64 (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) d) d) #s(literal 1 binary64)))) w0)
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (/.f64 (.f64 #s(literal -1/4 binary64) h) l) (/.f64 (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) d) d) #s(literal 1 binary64)))))
(.f64 (pow.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (/.f64 (.f64 #s(literal -1/4 binary64) h) l) (/.f64 (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) d) d) #s(literal 1 binary64))) #s(literal 1/4 binary64)) (pow.f64 #s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (/.f64 (.f64 #s(literal -1/4 binary64) h) l) (/.f64 (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) d) d) #s(literal 1 binary64))) #s(literal 1/4 binary64)))
(pow.f64 #s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (/.f64 (.f64 #s(literal -1/4 binary64) h) l) (/.f64 (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) d) d) #s(literal 1 binary64))) #s(literal 1/2 binary64))
(sqrt.f64 #s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (/.f64 (.f64 #s(literal -1/4 binary64) h) l) (/.f64 (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) d) d) #s(literal 1 binary64))))
(exp.f64 (.f64 (log.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (/.f64 (.f64 #s(literal -1/4 binary64) h) l) (/.f64 (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) d) d) #s(literal 1 binary64)))) #s(literal 1/2 binary64)))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (/.f64 (.f64 #s(literal -1/4 binary64) h) l) (/.f64 (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) d) d) #s(literal 1 binary64)))
(/.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (.f64 (/.f64 (.f64 #s(literal -1/4 binary64) h) l) (/.f64 (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) d) d)) #s(literal 2 binary64))) (-.f64 #s(literal 1 binary64) (.f64 (/.f64 (.f64 #s(literal -1/4 binary64) h) l) (/.f64 (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) d) d))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (.f64 (/.f64 (.f64 #s(literal -1/4 binary64) h) l) (/.f64 (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) d) d)) #s(literal 2 binary64)) #s(literal 1 binary64))) (neg.f64 (fma.f64 (/.f64 (.f64 #s(literal -1/4 binary64) h) l) (/.f64 (/.f64 (pow.f64 (*.f64 D M) #s(literal 2 binary64)) d) d) #s(literal -1 binary64))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (.f64 (/.f64 (.f64 #s(literal -1/4 binary64) h) l) (/.f64 (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) d) d)) #s(literal 3 binary64)) #s(literal -1 binary64))) (neg.f64 (+.f64 (-.f64 #s(literal 1 binary64) (.f64 (/.f64 (.f64 #s(literal -1/4 binary64) h) l) (/.f64 (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) d) d))) (pow.f64 (.f64 (/.f64 (.f64 #s(literal -1/4 binary64) h) l) (/.f64 (/.f64 (pow.f64 (*.f64 D M) #s(literal 2 binary64)) d) d)) #s(literal 2 binary64)))))
(/.f64 (fma.f64 (.f64 (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) d) (.f64 #s(literal -1/4 binary64) h)) #s(literal 2 binary64) (.f64 (.f64 l d) #s(literal 2 binary64))) (.f64 (*.f64 l d) #s(literal 2 binary64)))
(/.f64 (fma.f64 #s(literal 2 binary64) (.f64 l d) (.f64 #s(literal 2 binary64) (.f64 (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) d) (.f64 #s(literal -1/4 binary64) h)))) (.f64 #s(literal 2 binary64) (*.f64 l d)))
(/.f64 (-.f64 (pow.f64 (.f64 (/.f64 (.f64 #s(literal -1/4 binary64) h) l) (/.f64 (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) d) d)) #s(literal 2 binary64)) #s(literal 1 binary64)) (fma.f64 (/.f64 (.f64 #s(literal -1/4 binary64) h) l) (/.f64 (/.f64 (pow.f64 (*.f64 D M) #s(literal 2 binary64)) d) d) #s(literal -1 binary64)))
(/.f64 (-.f64 (pow.f64 (.f64 (/.f64 (.f64 #s(literal -1/4 binary64) h) l) (/.f64 (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) d) d)) #s(literal 3 binary64)) #s(literal -1 binary64)) (+.f64 #s(literal 1 binary64) (-.f64 (pow.f64 (.f64 (/.f64 (.f64 #s(literal -1/4 binary64) h) l) (/.f64 (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) d) d)) #s(literal 2 binary64)) (.f64 (/.f64 (.f64 #s(literal -1/4 binary64) h) l) (/.f64 (/.f64 (pow.f64 (*.f64 D M) #s(literal 2 binary64)) d) d)))))
(/.f64 (-.f64 (pow.f64 (.f64 (/.f64 (.f64 #s(literal -1/4 binary64) h) l) (/.f64 (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) d) d)) #s(literal 3 binary64)) #s(literal -1 binary64)) (+.f64 (-.f64 #s(literal 1 binary64) (.f64 (/.f64 (.f64 #s(literal -1/4 binary64) h) l) (/.f64 (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) d) d))) (pow.f64 (.f64 (/.f64 (.f64 #s(literal -1/4 binary64) h) l) (/.f64 (/.f64 (pow.f64 (*.f64 D M) #s(literal 2 binary64)) d) d)) #s(literal 2 binary64))))
(fma.f64 (.f64 (.f64 (.f64 #s(literal -1/4 binary64) h) M) (/.f64 D (.f64 (.f64 l d) d))) (.f64 D M) #s(literal 1 binary64))
(fma.f64 (.f64 (.f64 (.f64 #s(literal -1/4 binary64) h) M) (.f64 D M)) (/.f64 D (.f64 (.f64 l d) d)) #s(literal 1 binary64))
(fma.f64 (.f64 (.f64 (.f64 #s(literal -1/4 binary64) h) M) M) (.f64 (/.f64 D (.f64 (.f64 l d) d)) D) #s(literal 1 binary64))
(fma.f64 (.f64 (.f64 #s(literal -1/4 binary64) h) (.f64 (.f64 (/.f64 D (.f64 (.f64 l d) d)) M) D)) M #s(literal 1 binary64))
(fma.f64 (.f64 (/.f64 (/.f64 (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) d) l) d) h) #s(literal -1/4 binary64) #s(literal 1 binary64))
(fma.f64 (.f64 (.f64 #s(literal -1/4 binary64) h) (/.f64 (.f64 (.f64 M M) D) l)) (/.f64 (/.f64 D d) d) #s(literal 1 binary64))
(fma.f64 (.f64 (.f64 #s(literal -1/4 binary64) h) (.f64 (.f64 M M) D)) (/.f64 D (.f64 (.f64 l d) d)) #s(literal 1 binary64))
(fma.f64 (/.f64 (.f64 #s(literal -1/4 binary64) h) l) (/.f64 (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) d) d) #s(literal 1 binary64))
(fma.f64 (/.f64 (.f64 #s(literal -1/4 binary64) h) d) (/.f64 (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) d) l) #s(literal 1 binary64))
(fma.f64 (/.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) d) l)) d) h #s(literal 1 binary64))
(fma.f64 (.f64 (.f64 #s(literal -1/4 binary64) h) M) (.f64 (.f64 (.f64 (/.f64 D (.f64 (*.f64 l d) d)) M) D) #s(literal 1 binary64)) #s(literal 1 binary64))
(fma.f64 (.f64 (.f64 #s(literal -1/4 binary64) h) M) (.f64 (.f64 (/.f64 D (.f64 (.f64 l d) d)) M) D) #s(literal 1 binary64))
(fma.f64 (/.f64 (.f64 (.f64 M M) D) l) (.f64 (/.f64 (/.f64 D d) d) (.f64 #s(literal -1/4 binary64) h)) #s(literal 1 binary64))
(fma.f64 (.f64 (/.f64 (.f64 #s(literal -1/4 binary64) h) l) (/.f64 (/.f64 (pow.f64 (*.f64 D M) #s(literal 2 binary64)) d) d)) #s(literal 1 binary64) #s(literal 1 binary64))
(fma.f64 (/.f64 (/.f64 (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) d) l) d) (.f64 (*.f64 #s(literal -1/4 binary64) h) #s(literal 1 binary64)) #s(literal 1 binary64))
(fma.f64 (/.f64 (/.f64 (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) d) l) d) (.f64 #s(literal -1/4 binary64) h) #s(literal 1 binary64))
(fma.f64 (.f64 (.f64 (/.f64 D (.f64 (.f64 l d) d)) M) D) (.f64 (.f64 #s(literal -1/4 binary64) h) M) #s(literal 1 binary64))
(fma.f64 (.f64 #s(literal -1/4 binary64) h) (.f64 (/.f64 (/.f64 (/.f64 (pow.f64 (*.f64 D M) #s(literal 2 binary64)) d) l) d) #s(literal 1 binary64)) #s(literal 1 binary64))
(fma.f64 (.f64 #s(literal -1/4 binary64) h) (/.f64 (/.f64 (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) d) l) d) #s(literal 1 binary64))
(fma.f64 #s(literal -1/4 binary64) (.f64 (/.f64 h (.f64 l d)) (/.f64 (pow.f64 (*.f64 D M) #s(literal 2 binary64)) d)) #s(literal 1 binary64))
(fma.f64 (.f64 (.f64 M M) D) (.f64 (/.f64 D (.f64 (.f64 l d) d)) (.f64 #s(literal -1/4 binary64) h)) #s(literal 1 binary64))
(fma.f64 #s(literal 1 binary64) (.f64 (/.f64 (.f64 #s(literal -1/4 binary64) h) l) (/.f64 (/.f64 (pow.f64 (*.f64 D M) #s(literal 2 binary64)) d) d)) #s(literal 1 binary64))
(fma.f64 M (.f64 (.f64 (.f64 (/.f64 D (.f64 (.f64 l d) d)) M) D) (.f64 #s(literal -1/4 binary64) h)) #s(literal 1 binary64))
(fma.f64 h (.f64 (/.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (/.f64 (pow.f64 (*.f64 D M) #s(literal 2 binary64)) d) l)) d) #s(literal 1 binary64)) #s(literal 1 binary64))
(fma.f64 h (/.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) d) l)) d) #s(literal 1 binary64))
(-.f64 (/.f64 (pow.f64 (.f64 (/.f64 (.f64 #s(literal -1/4 binary64) h) l) (/.f64 (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) d) d)) #s(literal 2 binary64)) (fma.f64 (/.f64 (.f64 #s(literal -1/4 binary64) h) l) (/.f64 (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) d) d) #s(literal -1 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 (/.f64 (.f64 #s(literal -1/4 binary64) h) l) (/.f64 (/.f64 (pow.f64 (*.f64 D M) #s(literal 2 binary64)) d) d) #s(literal -1 binary64))))
(-.f64 (.f64 (/.f64 (.f64 #s(literal -1/4 binary64) h) l) (/.f64 (/.f64 (pow.f64 (*.f64 D M) #s(literal 2 binary64)) d) d)) #s(literal -1 binary64))
(-.f64 #s(literal 1 binary64) (.f64 (neg.f64 (.f64 (.f64 #s(literal -1/4 binary64) h) M)) (.f64 (.f64 (/.f64 D (.f64 (*.f64 l d) d)) M) D)))
(-.f64 #s(literal 1 binary64) (.f64 (neg.f64 (/.f64 (/.f64 (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) d) l) d)) (*.f64 #s(literal -1/4 binary64) h)))
(-.f64 #s(literal 1 binary64) (.f64 (neg.f64 (.f64 #s(literal -1/4 binary64) h)) (/.f64 (/.f64 (/.f64 (pow.f64 (*.f64 D M) #s(literal 2 binary64)) d) l) d)))
(-.f64 #s(literal 1 binary64) (.f64 (neg.f64 h) (/.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (/.f64 (pow.f64 (*.f64 D M) #s(literal 2 binary64)) d) l)) d)))
(+.f64 (/.f64 (pow.f64 (.f64 (/.f64 (.f64 #s(literal -1/4 binary64) h) l) (/.f64 (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) d) d)) #s(literal 3 binary64)) (+.f64 (-.f64 #s(literal 1 binary64) (.f64 (/.f64 (.f64 #s(literal -1/4 binary64) h) l) (/.f64 (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) d) d))) (pow.f64 (.f64 (/.f64 (.f64 #s(literal -1/4 binary64) h) l) (/.f64 (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) d) d)) #s(literal 2 binary64)))) (/.f64 #s(literal 1 binary64) (+.f64 (-.f64 #s(literal 1 binary64) (.f64 (/.f64 (.f64 #s(literal -1/4 binary64) h) l) (/.f64 (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) d) d))) (pow.f64 (.f64 (/.f64 (.f64 #s(literal -1/4 binary64) h) l) (/.f64 (/.f64 (pow.f64 (*.f64 D M) #s(literal 2 binary64)) d) d)) #s(literal 2 binary64)))))
(+.f64 (.f64 (/.f64 (.f64 #s(literal -1/4 binary64) h) l) (/.f64 (/.f64 (pow.f64 (*.f64 D M) #s(literal 2 binary64)) d) d)) #s(literal 1 binary64))
(+.f64 #s(literal 1 binary64) (.f64 (/.f64 (.f64 #s(literal -1/4 binary64) h) l) (/.f64 (/.f64 (pow.f64 (*.f64 D M) #s(literal 2 binary64)) d) d)))
(.f64 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (/.f64 (.f64 #s(literal -1/4 binary64) h) l) (/.f64 (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) d) d) #s(literal 1 binary64)))) w0)
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (/.f64 (.f64 #s(literal -1/4 binary64) h) l) (/.f64 (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) d) d) #s(literal 1 binary64)))))
(.f64 (pow.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (/.f64 (.f64 #s(literal -1/4 binary64) h) l) (/.f64 (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) d) d) #s(literal 1 binary64))) #s(literal 1/4 binary64)) (pow.f64 #s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (/.f64 (.f64 #s(literal -1/4 binary64) h) l) (/.f64 (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) d) d) #s(literal 1 binary64))) #s(literal 1/4 binary64)))
(pow.f64 #s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (/.f64 (.f64 #s(literal -1/4 binary64) h) l) (/.f64 (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) d) d) #s(literal 1 binary64))) #s(literal 1/2 binary64))
(sqrt.f64 #s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (/.f64 (.f64 #s(literal -1/4 binary64) h) l) (/.f64 (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) d) d) #s(literal 1 binary64))))
(exp.f64 (.f64 (log.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (/.f64 (.f64 #s(literal -1/4 binary64) h) l) (/.f64 (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) d) d) #s(literal 1 binary64)))) #s(literal 1/2 binary64)))
#s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (/.f64 (.f64 #s(literal -1/4 binary64) h) l) (/.f64 (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) d) d) #s(literal 1 binary64)))
(/.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (.f64 (/.f64 (.f64 #s(literal -1/4 binary64) h) l) (/.f64 (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) d) d)) #s(literal 2 binary64))) (-.f64 #s(literal 1 binary64) (.f64 (/.f64 (.f64 #s(literal -1/4 binary64) h) l) (/.f64 (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) d) d))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (.f64 (/.f64 (.f64 #s(literal -1/4 binary64) h) l) (/.f64 (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) d) d)) #s(literal 2 binary64)) #s(literal 1 binary64))) (neg.f64 (fma.f64 (/.f64 (.f64 #s(literal -1/4 binary64) h) l) (/.f64 (/.f64 (pow.f64 (*.f64 D M) #s(literal 2 binary64)) d) d) #s(literal -1 binary64))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (.f64 (/.f64 (.f64 #s(literal -1/4 binary64) h) l) (/.f64 (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) d) d)) #s(literal 3 binary64)) #s(literal -1 binary64))) (neg.f64 (+.f64 (-.f64 #s(literal 1 binary64) (.f64 (/.f64 (.f64 #s(literal -1/4 binary64) h) l) (/.f64 (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) d) d))) (pow.f64 (.f64 (/.f64 (.f64 #s(literal -1/4 binary64) h) l) (/.f64 (/.f64 (pow.f64 (*.f64 D M) #s(literal 2 binary64)) d) d)) #s(literal 2 binary64)))))
(/.f64 (fma.f64 (.f64 (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) d) (.f64 #s(literal -1/4 binary64) h)) #s(literal 2 binary64) (.f64 (.f64 l d) #s(literal 2 binary64))) (.f64 (*.f64 l d) #s(literal 2 binary64)))
(/.f64 (fma.f64 #s(literal 2 binary64) (.f64 l d) (.f64 #s(literal 2 binary64) (.f64 (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) d) (.f64 #s(literal -1/4 binary64) h)))) (.f64 #s(literal 2 binary64) (*.f64 l d)))
(/.f64 (-.f64 (pow.f64 (.f64 (/.f64 (.f64 #s(literal -1/4 binary64) h) l) (/.f64 (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) d) d)) #s(literal 2 binary64)) #s(literal 1 binary64)) (fma.f64 (/.f64 (.f64 #s(literal -1/4 binary64) h) l) (/.f64 (/.f64 (pow.f64 (*.f64 D M) #s(literal 2 binary64)) d) d) #s(literal -1 binary64)))
(/.f64 (-.f64 (pow.f64 (.f64 (/.f64 (.f64 #s(literal -1/4 binary64) h) l) (/.f64 (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) d) d)) #s(literal 3 binary64)) #s(literal -1 binary64)) (+.f64 #s(literal 1 binary64) (-.f64 (pow.f64 (.f64 (/.f64 (.f64 #s(literal -1/4 binary64) h) l) (/.f64 (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) d) d)) #s(literal 2 binary64)) (.f64 (/.f64 (.f64 #s(literal -1/4 binary64) h) l) (/.f64 (/.f64 (pow.f64 (*.f64 D M) #s(literal 2 binary64)) d) d)))))
(/.f64 (-.f64 (pow.f64 (.f64 (/.f64 (.f64 #s(literal -1/4 binary64) h) l) (/.f64 (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) d) d)) #s(literal 3 binary64)) #s(literal -1 binary64)) (+.f64 (-.f64 #s(literal 1 binary64) (.f64 (/.f64 (.f64 #s(literal -1/4 binary64) h) l) (/.f64 (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) d) d))) (pow.f64 (.f64 (/.f64 (.f64 #s(literal -1/4 binary64) h) l) (/.f64 (/.f64 (pow.f64 (*.f64 D M) #s(literal 2 binary64)) d) d)) #s(literal 2 binary64))))
(fma.f64 (.f64 (.f64 (.f64 #s(literal -1/4 binary64) h) M) (/.f64 D (.f64 (.f64 l d) d))) (.f64 D M) #s(literal 1 binary64))
(fma.f64 (.f64 (.f64 (.f64 #s(literal -1/4 binary64) h) M) (.f64 D M)) (/.f64 D (.f64 (.f64 l d) d)) #s(literal 1 binary64))
(fma.f64 (.f64 (.f64 (.f64 #s(literal -1/4 binary64) h) M) M) (.f64 (/.f64 D (.f64 (.f64 l d) d)) D) #s(literal 1 binary64))
(fma.f64 (.f64 (.f64 #s(literal -1/4 binary64) h) (.f64 (.f64 (/.f64 D (.f64 (.f64 l d) d)) M) D)) M #s(literal 1 binary64))
(fma.f64 (.f64 (/.f64 (/.f64 (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) d) l) d) h) #s(literal -1/4 binary64) #s(literal 1 binary64))
(fma.f64 (.f64 (.f64 #s(literal -1/4 binary64) h) (/.f64 (.f64 (.f64 M M) D) l)) (/.f64 (/.f64 D d) d) #s(literal 1 binary64))
(fma.f64 (.f64 (.f64 #s(literal -1/4 binary64) h) (.f64 (.f64 M M) D)) (/.f64 D (.f64 (.f64 l d) d)) #s(literal 1 binary64))
(fma.f64 (/.f64 (.f64 #s(literal -1/4 binary64) h) l) (/.f64 (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) d) d) #s(literal 1 binary64))
(fma.f64 (/.f64 (.f64 #s(literal -1/4 binary64) h) d) (/.f64 (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) d) l) #s(literal 1 binary64))
(fma.f64 (/.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) d) l)) d) h #s(literal 1 binary64))
(fma.f64 (.f64 (.f64 #s(literal -1/4 binary64) h) M) (.f64 (.f64 (.f64 (/.f64 D (.f64 (*.f64 l d) d)) M) D) #s(literal 1 binary64)) #s(literal 1 binary64))
(fma.f64 (.f64 (.f64 #s(literal -1/4 binary64) h) M) (.f64 (.f64 (/.f64 D (.f64 (.f64 l d) d)) M) D) #s(literal 1 binary64))
(fma.f64 (/.f64 (.f64 (.f64 M M) D) l) (.f64 (/.f64 (/.f64 D d) d) (.f64 #s(literal -1/4 binary64) h)) #s(literal 1 binary64))
(fma.f64 (.f64 (/.f64 (.f64 #s(literal -1/4 binary64) h) l) (/.f64 (/.f64 (pow.f64 (*.f64 D M) #s(literal 2 binary64)) d) d)) #s(literal 1 binary64) #s(literal 1 binary64))
(fma.f64 (/.f64 (/.f64 (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) d) l) d) (.f64 (*.f64 #s(literal -1/4 binary64) h) #s(literal 1 binary64)) #s(literal 1 binary64))
(fma.f64 (/.f64 (/.f64 (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) d) l) d) (.f64 #s(literal -1/4 binary64) h) #s(literal 1 binary64))
(fma.f64 (.f64 (.f64 (/.f64 D (.f64 (.f64 l d) d)) M) D) (.f64 (.f64 #s(literal -1/4 binary64) h) M) #s(literal 1 binary64))
(fma.f64 (.f64 #s(literal -1/4 binary64) h) (.f64 (/.f64 (/.f64 (/.f64 (pow.f64 (*.f64 D M) #s(literal 2 binary64)) d) l) d) #s(literal 1 binary64)) #s(literal 1 binary64))
(fma.f64 (.f64 #s(literal -1/4 binary64) h) (/.f64 (/.f64 (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) d) l) d) #s(literal 1 binary64))
(fma.f64 #s(literal -1/4 binary64) (.f64 (/.f64 h (.f64 l d)) (/.f64 (pow.f64 (*.f64 D M) #s(literal 2 binary64)) d)) #s(literal 1 binary64))
(fma.f64 (.f64 (.f64 M M) D) (.f64 (/.f64 D (.f64 (.f64 l d) d)) (.f64 #s(literal -1/4 binary64) h)) #s(literal 1 binary64))
(fma.f64 #s(literal 1 binary64) (.f64 (/.f64 (.f64 #s(literal -1/4 binary64) h) l) (/.f64 (/.f64 (pow.f64 (*.f64 D M) #s(literal 2 binary64)) d) d)) #s(literal 1 binary64))
(fma.f64 M (.f64 (.f64 (.f64 (/.f64 D (.f64 (.f64 l d) d)) M) D) (.f64 #s(literal -1/4 binary64) h)) #s(literal 1 binary64))
(fma.f64 h (.f64 (/.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (/.f64 (pow.f64 (*.f64 D M) #s(literal 2 binary64)) d) l)) d) #s(literal 1 binary64)) #s(literal 1 binary64))
(fma.f64 h (/.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) d) l)) d) #s(literal 1 binary64))
(-.f64 (/.f64 (pow.f64 (.f64 (/.f64 (.f64 #s(literal -1/4 binary64) h) l) (/.f64 (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) d) d)) #s(literal 2 binary64)) (fma.f64 (/.f64 (.f64 #s(literal -1/4 binary64) h) l) (/.f64 (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) d) d) #s(literal -1 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 (/.f64 (.f64 #s(literal -1/4 binary64) h) l) (/.f64 (/.f64 (pow.f64 (*.f64 D M) #s(literal 2 binary64)) d) d) #s(literal -1 binary64))))
(-.f64 (.f64 (/.f64 (.f64 #s(literal -1/4 binary64) h) l) (/.f64 (/.f64 (pow.f64 (*.f64 D M) #s(literal 2 binary64)) d) d)) #s(literal -1 binary64))
(-.f64 #s(literal 1 binary64) (.f64 (neg.f64 (.f64 (.f64 #s(literal -1/4 binary64) h) M)) (.f64 (.f64 (/.f64 D (.f64 (*.f64 l d) d)) M) D)))
(-.f64 #s(literal 1 binary64) (.f64 (neg.f64 (/.f64 (/.f64 (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) d) l) d)) (*.f64 #s(literal -1/4 binary64) h)))
(-.f64 #s(literal 1 binary64) (.f64 (neg.f64 (.f64 #s(literal -1/4 binary64) h)) (/.f64 (/.f64 (/.f64 (pow.f64 (*.f64 D M) #s(literal 2 binary64)) d) l) d)))
(-.f64 #s(literal 1 binary64) (.f64 (neg.f64 h) (/.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (/.f64 (pow.f64 (*.f64 D M) #s(literal 2 binary64)) d) l)) d)))
(+.f64 (/.f64 (pow.f64 (.f64 (/.f64 (.f64 #s(literal -1/4 binary64) h) l) (/.f64 (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) d) d)) #s(literal 3 binary64)) (+.f64 (-.f64 #s(literal 1 binary64) (.f64 (/.f64 (.f64 #s(literal -1/4 binary64) h) l) (/.f64 (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) d) d))) (pow.f64 (.f64 (/.f64 (.f64 #s(literal -1/4 binary64) h) l) (/.f64 (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) d) d)) #s(literal 2 binary64)))) (/.f64 #s(literal 1 binary64) (+.f64 (-.f64 #s(literal 1 binary64) (.f64 (/.f64 (.f64 #s(literal -1/4 binary64) h) l) (/.f64 (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) d) d))) (pow.f64 (.f64 (/.f64 (.f64 #s(literal -1/4 binary64) h) l) (/.f64 (/.f64 (pow.f64 (*.f64 D M) #s(literal 2 binary64)) d) d)) #s(literal 2 binary64)))))
(+.f64 (.f64 (/.f64 (.f64 #s(literal -1/4 binary64) h) l) (/.f64 (/.f64 (pow.f64 (*.f64 D M) #s(literal 2 binary64)) d) d)) #s(literal 1 binary64))
(+.f64 #s(literal 1 binary64) (.f64 (/.f64 (.f64 #s(literal -1/4 binary64) h) l) (/.f64 (/.f64 (pow.f64 (*.f64 D M) #s(literal 2 binary64)) d) d)))
(.f64 (pow.f64 (fma.f64 (neg.f64 (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (/.f64 h l) #s(literal 1 binary64)) #s(literal 1/4 binary64)) (pow.f64 (fma.f64 (neg.f64 (pow.f64 (*.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (/.f64 h l) #s(literal 1 binary64)) #s(literal 1/4 binary64)))
(pow.f64 (fma.f64 (neg.f64 (pow.f64 (*.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (/.f64 h l) #s(literal 1 binary64)) #s(literal 1/2 binary64))
(/.f64 (neg.f64 (sqrt.f64 (.f64 (-.f64 l (.f64 (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64)) h)) #s(literal 2 binary64)))) (neg.f64 (sqrt.f64 (.f64 l #s(literal 2 binary64)))))
(/.f64 (sqrt.f64 (/.f64 (.f64 #s(literal -2 binary64) (-.f64 l (.f64 (pow.f64 (*.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64)) h))) #s(literal -2 binary64))) (sqrt.f64 l))
(/.f64 (sqrt.f64 (.f64 #s(literal -2 binary64) (-.f64 l (.f64 (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64)) h)))) (sqrt.f64 (.f64 #s(literal -2 binary64) l)))
(/.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (.f64 (/.f64 h l) (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64))) #s(literal 2 binary64)))) (sqrt.f64 (fma.f64 (/.f64 h l) (pow.f64 (*.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64)) #s(literal 1 binary64))))
(/.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (.f64 (/.f64 h l) (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64))) #s(literal 3 binary64)))) (sqrt.f64 (fma.f64 (.f64 (/.f64 h l) (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (fma.f64 (/.f64 h l) (pow.f64 (*.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64)) #s(literal 1 binary64)) #s(literal 1 binary64))))
(/.f64 (sqrt.f64 (.f64 (-.f64 l (.f64 (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64)) h)) #s(literal 2 binary64))) (sqrt.f64 (.f64 l #s(literal 2 binary64))))
(sqrt.f64 (fma.f64 (neg.f64 (pow.f64 (*.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64))) (/.f64 h l) #s(literal 1 binary64)))
(exp.f64 (.f64 (log1p.f64 (.f64 (neg.f64 (/.f64 h l)) (pow.f64 (*.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64)))) #s(literal 1/2 binary64)))
(.f64 (.f64 h (/.f64 M #s(literal 2 binary64))) (/.f64 D d))
(.f64 (.f64 h (/.f64 (/.f64 D d) #s(literal 2 binary64))) M)
(.f64 (.f64 M h) (/.f64 (/.f64 D d) #s(literal 2 binary64)))
(.f64 (/.f64 M #s(literal 2 binary64)) (.f64 (/.f64 D d) h))
(.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) h)
(.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) (.f64 M h))
(.f64 M (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) h))
(.f64 h (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M))
(/.f64 (.f64 (.f64 D (/.f64 M #s(literal 2 binary64))) h) d)
(/.f64 (.f64 (.f64 (/.f64 D d) M) h) #s(literal 2 binary64))
(/.f64 (.f64 (.f64 (neg.f64 D) M) h) (*.f64 #s(literal -2 binary64) d))
(/.f64 (.f64 (.f64 M h) (/.f64 (neg.f64 D) d)) #s(literal -2 binary64))
(/.f64 (.f64 (.f64 M h) (/.f64 D d)) #s(literal 2 binary64))
(/.f64 (.f64 (.f64 M h) D) (*.f64 #s(literal 2 binary64) d))
(/.f64 (.f64 h (.f64 D (/.f64 M #s(literal 2 binary64)))) d)
(/.f64 (.f64 h (.f64 (/.f64 D d) M)) #s(literal 2 binary64))
(/.f64 (.f64 h (.f64 (neg.f64 D) M)) (*.f64 #s(literal -2 binary64) d))
(/.f64 (.f64 h (.f64 D M)) (*.f64 #s(literal 2 binary64) d))
(/.f64 (.f64 (.f64 D M) h) (*.f64 #s(literal 2 binary64) d))
(.f64 (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 1/2 binary64)) (pow.f64 (*.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 1/2 binary64)))
(*.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d))
(*.f64 (/.f64 M d) (/.f64 D #s(literal 2 binary64)))
(*.f64 (pow.f64 (/.f64 M #s(literal 2 binary64)) #s(literal 1 binary64)) (pow.f64 (/.f64 D d) #s(literal 1 binary64)))
(*.f64 (pow.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) #s(literal 1 binary64)) (pow.f64 M #s(literal 1 binary64)))
(*.f64 (pow.f64 M #s(literal 1 binary64)) (pow.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) #s(literal 1 binary64)))
(*.f64 (/.f64 M #s(literal 2 binary64)) (/.f64 D d))
(*.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M)
(*.f64 (/.f64 D d) (/.f64 M #s(literal 2 binary64)))
(.f64 D (/.f64 M (.f64 #s(literal 2 binary64) d)))
(*.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64)))
(pow.f64 (*.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 1 binary64))
(/.f64 (*.f64 (/.f64 (neg.f64 D) d) M) #s(literal -2 binary64))
(/.f64 (*.f64 (/.f64 M #s(literal 2 binary64)) (neg.f64 D)) (neg.f64 d))
(/.f64 (*.f64 (/.f64 M #s(literal 2 binary64)) D) d)
(/.f64 (*.f64 M (/.f64 (neg.f64 D) d)) #s(literal -2 binary64))
(/.f64 (neg.f64 (*.f64 D (/.f64 M #s(literal 2 binary64)))) (neg.f64 d))
(/.f64 (neg.f64 (*.f64 (/.f64 D d) M)) #s(literal -2 binary64))
(/.f64 (neg.f64 (.f64 (neg.f64 D) M)) (neg.f64 (.f64 #s(literal -2 binary64) d)))
(/.f64 (*.f64 D (/.f64 M #s(literal 2 binary64))) d)
(/.f64 (*.f64 (/.f64 D d) M) #s(literal 2 binary64))
(/.f64 (.f64 (neg.f64 D) M) (.f64 #s(literal -2 binary64) d))
(/.f64 (.f64 D M) (.f64 #s(literal 2 binary64) d))
(neg.f64 (/.f64 (.f64 (neg.f64 D) M) (.f64 #s(literal 2 binary64) d)))
(neg.f64 (/.f64 (.f64 D M) (.f64 #s(literal -2 binary64) d)))
(exp.f64 (.f64 (log.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M)) #s(literal 1 binary64)))
(.f64 (/.f64 (.f64 (.f64 M M) D) (.f64 l d)) (/.f64 (*.f64 D h) d))
(.f64 (/.f64 (.f64 (.f64 M M) D) (.f64 d d)) (/.f64 (*.f64 D h) l))
(.f64 (/.f64 h (.f64 l d)) (/.f64 (pow.f64 (*.f64 D M) #s(literal 2 binary64)) d))
(.f64 (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) l) (/.f64 (/.f64 h d) d))
(.f64 (/.f64 (.f64 (.f64 M M) D) d) (/.f64 (.f64 D h) (*.f64 l d)))
(.f64 (/.f64 h (.f64 (.f64 l d) d)) (pow.f64 (.f64 D M) #s(literal 2 binary64)))
(.f64 (/.f64 (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) d) l) (/.f64 h d))
(.f64 (/.f64 (.f64 (.f64 M M) D) l) (/.f64 (.f64 D h) (*.f64 d d)))
(.f64 (/.f64 h d) (/.f64 (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) d) l))
(.f64 (/.f64 (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) d) d) (/.f64 h l))
(.f64 (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) d) (/.f64 h (*.f64 l d)))
(.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) (/.f64 h (.f64 (.f64 l d) d)))
(.f64 (.f64 (.f64 M M) D) (/.f64 (.f64 D h) (.f64 (.f64 l d) d)))
(.f64 (.f64 (.f64 M M) D) (.f64 D (/.f64 h (.f64 (.f64 l d) d))))
(.f64 (.f64 M M) (.f64 (.f64 D D) (/.f64 h (.f64 (.f64 l d) d))))
(.f64 (/.f64 (/.f64 h d) d) (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) l))
(.f64 (/.f64 h l) (/.f64 (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) d) d))
(.f64 D (.f64 (.f64 (.f64 M M) D) (/.f64 h (.f64 (.f64 l d) d))))
(.f64 h (/.f64 (/.f64 (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) d) l) d))
(/.f64 (.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) (/.f64 h l)) (*.f64 d d))
(/.f64 (.f64 (/.f64 (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) d) d) (neg.f64 h)) (neg.f64 l))
(/.f64 (.f64 (/.f64 (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) d) d) h) l)
(/.f64 (/.f64 (.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) h) d) (*.f64 l d))
(/.f64 (/.f64 (.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) h) l) (*.f64 d d))
(/.f64 (/.f64 (.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) h) (*.f64 l d)) d)
(/.f64 (neg.f64 (.f64 h (/.f64 (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) d) d))) (neg.f64 l))
(/.f64 (neg.f64 (.f64 (neg.f64 h) (pow.f64 (.f64 D M) #s(literal 2 binary64)))) (neg.f64 (.f64 (.f64 (neg.f64 l) d) d)))
(/.f64 (.f64 h (/.f64 (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) d) d)) l)
(/.f64 (.f64 (neg.f64 h) (pow.f64 (.f64 D M) #s(literal 2 binary64))) (.f64 (.f64 (neg.f64 l) d) d))
(/.f64 (.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) h) (.f64 (.f64 l d) d))
(neg.f64 (/.f64 (.f64 (neg.f64 h) (pow.f64 (.f64 D M) #s(literal 2 binary64))) (.f64 (.f64 l d) d)))
(neg.f64 (/.f64 (.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) h) (.f64 (.f64 (neg.f64 l) d) d)))
(.f64 (.f64 l (fabs.f64 d)) (fabs.f64 d))
(.f64 (.f64 (neg.f64 l) d) (neg.f64 d))
(.f64 (neg.f64 d) (.f64 (neg.f64 l) d))
(.f64 (fabs.f64 d) (.f64 (fabs.f64 d) l))
(.f64 (.f64 l d) d)
(.f64 (.f64 d d) l)
(.f64 l (.f64 d d))
(.f64 d (.f64 l d))
(.f64 (.f64 (/.f64 (/.f64 h d) d) M) (/.f64 M l))
(.f64 (/.f64 h (neg.f64 d)) (/.f64 (.f64 (/.f64 M l) M) (neg.f64 d)))
(.f64 (/.f64 h (fabs.f64 d)) (/.f64 (.f64 (/.f64 M l) M) (fabs.f64 d)))
(.f64 (/.f64 M (.f64 l d)) (/.f64 (*.f64 M h) d))
(.f64 (/.f64 M (.f64 d d)) (/.f64 (*.f64 M h) l))
(.f64 (/.f64 M d) (/.f64 (.f64 M h) (*.f64 l d)))
(.f64 (/.f64 (.f64 M M) (*.f64 d d)) (/.f64 h l))
(.f64 (/.f64 h (.f64 l d)) (/.f64 (*.f64 M M) d))
(.f64 (/.f64 (.f64 M M) d) (/.f64 h (*.f64 l d)))
(.f64 (/.f64 M l) (/.f64 (.f64 M h) (*.f64 d d)))
(.f64 (/.f64 h (.f64 (.f64 l d) d)) (.f64 M M))
(.f64 (/.f64 h d) (.f64 (/.f64 M d) (/.f64 M l)))
(.f64 (.f64 (/.f64 M d) (/.f64 M l)) (/.f64 h d))
(.f64 (neg.f64 M) (.f64 (neg.f64 M) (/.f64 h (.f64 (.f64 l d) d))))
(.f64 (fabs.f64 M) (.f64 (fabs.f64 M) (/.f64 h (.f64 (.f64 l d) d))))
(.f64 (.f64 M M) (/.f64 h (.f64 (.f64 l d) d)))
(.f64 (.f64 (/.f64 M l) M) (/.f64 (/.f64 h d) d))
(.f64 (/.f64 (/.f64 h d) d) (.f64 (/.f64 M l) M))
(.f64 (/.f64 h l) (/.f64 (.f64 M M) (*.f64 d d)))
(.f64 M (/.f64 (.f64 M h) (.f64 (.f64 l d) d)))
(.f64 M (.f64 M (/.f64 h (.f64 (.f64 l d) d))))
(.f64 M (.f64 (/.f64 M l) (/.f64 (/.f64 h d) d)))
(.f64 h (/.f64 (.f64 (/.f64 M l) M) (*.f64 d d)))
(.f64 h (/.f64 (.f64 M M) (.f64 (.f64 l d) d)))
(/.f64 (/.f64 (/.f64 (.f64 (.f64 M M) h) l) (neg.f64 d)) (neg.f64 d))
(/.f64 (/.f64 (/.f64 (.f64 (.f64 M M) h) l) (fabs.f64 d)) (fabs.f64 d))
(/.f64 (.f64 (.f64 (neg.f64 M) M) (/.f64 (/.f64 h d) d)) (neg.f64 l))
(/.f64 (.f64 (neg.f64 h) (.f64 (/.f64 M l) M)) (*.f64 (neg.f64 d) d))
(/.f64 (.f64 (.f64 (/.f64 M d) (/.f64 M l)) h) d)
(/.f64 (.f64 (.f64 (/.f64 M l) M) (neg.f64 h)) (*.f64 (neg.f64 d) d))
(/.f64 (.f64 (/.f64 (/.f64 h d) d) (.f64 (neg.f64 M) M)) (neg.f64 l))
(/.f64 (/.f64 (.f64 (.f64 M M) h) d) (*.f64 l d))
(/.f64 (neg.f64 (/.f64 (/.f64 (.f64 (.f64 M M) h) l) d)) (neg.f64 d))
(/.f64 (neg.f64 (/.f64 (.f64 (.f64 M M) h) l)) (*.f64 (neg.f64 d) d))
(/.f64 (neg.f64 (.f64 (.f64 M M) (/.f64 (/.f64 h d) d))) (neg.f64 l))
(/.f64 (neg.f64 (.f64 (.f64 (neg.f64 M) M) h)) (neg.f64 (.f64 (.f64 (neg.f64 l) d) d)))
(/.f64 (.f64 (.f64 (neg.f64 M) M) (/.f64 h d)) (*.f64 (neg.f64 l) d))
(/.f64 (.f64 (.f64 (neg.f64 M) M) (neg.f64 h)) (.f64 (neg.f64 l) (.f64 (neg.f64 d) d)))
(/.f64 (.f64 (.f64 M M) (/.f64 h d)) (*.f64 l d))
(/.f64 (.f64 (/.f64 h d) (.f64 (neg.f64 M) M)) (*.f64 (neg.f64 l) d))
(/.f64 (.f64 (/.f64 h d) (.f64 M M)) (*.f64 l d))
(/.f64 (.f64 (neg.f64 h) (.f64 (neg.f64 M) M)) (.f64 (.f64 (neg.f64 d) d) (neg.f64 l)))
(/.f64 (/.f64 (/.f64 (.f64 (.f64 M M) h) l) d) d)
(/.f64 (/.f64 (.f64 (.f64 M M) h) l) (*.f64 d d))
(/.f64 (.f64 (.f64 M M) (/.f64 (/.f64 h d) d)) l)
(/.f64 (.f64 (.f64 (neg.f64 M) M) h) (.f64 (.f64 (neg.f64 l) d) d))
(/.f64 (.f64 (.f64 M M) h) (.f64 (.f64 l d) d))
(neg.f64 (/.f64 (.f64 (.f64 (neg.f64 M) M) h) (.f64 (.f64 l d) d)))
(neg.f64 (/.f64 (.f64 (.f64 M M) h) (.f64 (.f64 (neg.f64 l) d) d)))
(.f64 (.f64 h (neg.f64 M)) (neg.f64 M))
(.f64 (.f64 h (fabs.f64 M)) (fabs.f64 M))
(.f64 (.f64 M h) M)
(.f64 (neg.f64 M) (.f64 (neg.f64 M) h))
(.f64 (fabs.f64 M) (.f64 (fabs.f64 M) h))
(.f64 (.f64 M M) h)
(.f64 M (.f64 M h))
(.f64 h (.f64 M M))
(.f64 (.f64 (/.f64 D (.f64 (.f64 l d) d)) M) D)
(.f64 (/.f64 (.f64 D M) (*.f64 l d)) (/.f64 D d))
(.f64 (/.f64 (.f64 D M) (*.f64 d d)) (/.f64 D l))
(.f64 (/.f64 (.f64 D M) l) (/.f64 (/.f64 D d) d))
(.f64 (.f64 (/.f64 D d) M) (/.f64 (/.f64 D d) l))
(.f64 (.f64 (/.f64 D (.f64 (.f64 l d) d)) D) M)
(.f64 (/.f64 D (.f64 (.f64 l d) d)) (.f64 D M))
(.f64 (.f64 D M) (/.f64 D (.f64 (.f64 l d) d)))
(.f64 D (.f64 M (/.f64 D (.f64 (.f64 l d) d))))
(.f64 M (.f64 (/.f64 D (.f64 (.f64 l d) d)) D))
(/.f64 (/.f64 (.f64 (.f64 D M) D) (*.f64 l d)) d)
(/.f64 (/.f64 (.f64 (.f64 D M) D) (*.f64 d d)) l)
(/.f64 (/.f64 (.f64 (.f64 D M) D) l) (*.f64 d d))
(/.f64 (/.f64 (.f64 (.f64 D M) D) d) (*.f64 l d))
(/.f64 (.f64 (/.f64 (/.f64 D d) l) (.f64 D M)) d)
(/.f64 (.f64 (neg.f64 D) (.f64 D M)) (.f64 (.f64 (neg.f64 l) d) d))
(/.f64 (.f64 (.f64 D M) (/.f64 (/.f64 D d) l)) d)
(/.f64 (.f64 (.f64 D M) (neg.f64 D)) (.f64 (.f64 (neg.f64 l) d) d))
(/.f64 (neg.f64 (.f64 (.f64 D M) D)) (.f64 (.f64 (neg.f64 l) d) d))
(/.f64 (.f64 (.f64 D M) D) (.f64 (.f64 l d) d))
(/.f64 (/.f64 D l) (*.f64 d d))
(/.f64 (neg.f64 (/.f64 (/.f64 D d) l)) (neg.f64 d))
(/.f64 (neg.f64 (neg.f64 D)) (neg.f64 (.f64 (.f64 (neg.f64 l) d) d)))
(/.f64 (/.f64 (/.f64 D d) l) d)
(/.f64 (/.f64 (/.f64 D d) d) l)
(/.f64 (/.f64 (neg.f64 D) d) (*.f64 (neg.f64 l) d))
(/.f64 (neg.f64 D) (.f64 (.f64 (neg.f64 l) d) d))
(/.f64 (/.f64 D d) (*.f64 l d))
(/.f64 D (.f64 (.f64 l d) d))
(neg.f64 (/.f64 (neg.f64 D) (.f64 (.f64 l d) d)))
(neg.f64 (/.f64 D (.f64 (.f64 (neg.f64 l) d) d)))
(.f64 (.f64 M (/.f64 D (.f64 (.f64 l d) d))) (*.f64 D M))
(.f64 (/.f64 (.f64 M M) d) (/.f64 (*.f64 (/.f64 D d) D) l))
(.f64 (/.f64 (.f64 (*.f64 M M) D) d) (/.f64 (/.f64 D d) l))
(.f64 (/.f64 (/.f64 D d) l) (/.f64 (.f64 (*.f64 M M) D) d))
(.f64 (/.f64 (/.f64 D d) d) (/.f64 (.f64 (*.f64 M M) D) l))
(.f64 (/.f64 (.f64 (*.f64 M M) D) l) (/.f64 (/.f64 D d) d))
(.f64 (.f64 (.f64 (/.f64 D (.f64 (*.f64 l d) d)) M) D) M)
(.f64 (/.f64 D (.f64 (.f64 l d) d)) (.f64 (*.f64 M M) D))
(.f64 (.f64 (.f64 M M) D) (/.f64 D (.f64 (*.f64 l d) d)))
(.f64 (.f64 M M) (/.f64 (.f64 (/.f64 D d) D) (.f64 l d)))
(.f64 (.f64 M M) (.f64 (/.f64 D (.f64 (*.f64 l d) d)) D))
(.f64 (.f64 (/.f64 M l) M) (/.f64 (*.f64 (/.f64 D d) D) d))
(.f64 (.f64 D M) (.f64 (/.f64 D (.f64 (*.f64 l d) d)) M))
(.f64 (/.f64 D d) (/.f64 (.f64 (.f64 M M) D) (.f64 l d)))
(.f64 D (.f64 (.f64 M M) (/.f64 D (.f64 (*.f64 l d) d))))
(.f64 M (.f64 (.f64 (/.f64 D (.f64 (*.f64 l d) d)) M) D))
(/.f64 (.f64 (.f64 (.f64 D M) D) M) (.f64 (*.f64 l d) d))
(/.f64 (.f64 (/.f64 (.f64 (*.f64 M M) D) l) (/.f64 D d)) d)
(/.f64 (.f64 (.f64 (.f64 M M) D) (neg.f64 D)) (.f64 (*.f64 (neg.f64 l) d) d))
(/.f64 (neg.f64 (/.f64 (/.f64 (pow.f64 (*.f64 D M) #s(literal 2 binary64)) d) l)) (neg.f64 d))
(/.f64 (neg.f64 (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) (neg.f64 d))) (neg.f64 (.f64 (neg.f64 l) d)))
(/.f64 (/.f64 (/.f64 (pow.f64 (*.f64 D M) #s(literal 2 binary64)) d) l) d)
(/.f64 (/.f64 (/.f64 (pow.f64 (*.f64 D M) #s(literal 2 binary64)) d) d) l)
(/.f64 (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) (neg.f64 d)) (.f64 (neg.f64 l) d))
(/.f64 (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) d) (.f64 l d))
(/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) (.f64 (*.f64 l d) d))
(neg.f64 (/.f64 (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) (neg.f64 d)) (.f64 l d)))
(neg.f64 (/.f64 (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) d) (.f64 (neg.f64 l) d)))
(.f64 (.f64 (/.f64 D d) (*.f64 M M)) D)
(.f64 (.f64 (/.f64 D d) M) (*.f64 D M))
(.f64 (.f64 (/.f64 D d) D) (*.f64 M M))
(.f64 (neg.f64 M) (.f64 (neg.f64 M) (*.f64 (/.f64 D d) D)))
(.f64 (fabs.f64 M) (.f64 (fabs.f64 M) (*.f64 (/.f64 D d) D)))
(.f64 (.f64 (*.f64 M M) D) (/.f64 D d))
(.f64 (.f64 M M) (*.f64 (/.f64 D d) D))
(.f64 (/.f64 D d) (.f64 (*.f64 M M) D))
(.f64 D (.f64 (*.f64 M M) (/.f64 D d)))
(.f64 D (/.f64 (.f64 (*.f64 M M) D) d))
(.f64 M (.f64 (*.f64 D M) (/.f64 D d)))
(.f64 M (.f64 M (*.f64 (/.f64 D d) D)))
(/.f64 (.f64 (neg.f64 D) (.f64 (*.f64 M M) D)) (neg.f64 d))
(/.f64 (.f64 (.f64 (*.f64 M M) D) (neg.f64 D)) (neg.f64 d))
(/.f64 (neg.f64 (pow.f64 (*.f64 D M) #s(literal 2 binary64))) (neg.f64 d))
(/.f64 (pow.f64 (*.f64 D M) #s(literal 2 binary64)) d)
(.f64 (.f64 D (fabs.f64 M)) (fabs.f64 M))
(.f64 (.f64 (neg.f64 D) M) (neg.f64 M))
(.f64 (neg.f64 M) (.f64 (neg.f64 D) M))
(.f64 (fabs.f64 M) (.f64 (fabs.f64 M) D))
(.f64 (.f64 M M) D)
(.f64 (.f64 D M) M)
(.f64 D (.f64 M M))
(.f64 M (.f64 D M))

eval97.0ms (1.1%)

Memory: -26.0MiB live, 156.0MiB allocated; 33ms collecting garbage
Compiler: Compiled 35 050 to 4 225 computations (87.9% saved)

prune50.0ms (0.5%)

Memory

-4.7MiB live, 94.9MiB allocated; 16ms collecting garbage

Pruning

25 alts after pruning (22 fresh and 3 done)

	Pruned	Kept	Total
New	682	13	695
Fresh	6	9	15
Picked	4	1	5
Done	0	2	2
Total	692	25	717

Accuracy

92.2%

Counts

717 → 25

Alt Table

Click to see full alt table

Status	Accuracy	Program
	45.0%	(/.f64 (.f64 (sqrt.f64 (.f64 (-.f64 l (.f64 (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64)) h)) #s(literal 2 binary64))) w0) (sqrt.f64 (*.f64 l #s(literal 2 binary64))))
	48.3%	(.f64 w0 (/.f64 (sqrt.f64 (/.f64 (.f64 #s(literal -2 binary64) (-.f64 l (.f64 (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64)) h))) #s(literal -2 binary64))) (sqrt.f64 l)))
	38.5%	(.f64 w0 (/.f64 (sqrt.f64 (.f64 #s(literal -2 binary64) (-.f64 l (.f64 (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64)) h)))) (sqrt.f64 (*.f64 #s(literal -2 binary64) l))))
	84.9%	(.f64 w0 (sqrt.f64 (/.f64 (-.f64 (.f64 #s(literal 2 binary64) l) (.f64 #s(literal 2 binary64) (/.f64 (.f64 (/.f64 (.f64 (.f64 M h) D) (.f64 #s(literal 2 binary64) d)) (.f64 M D)) (.f64 #s(literal 2 binary64) d)))) (.f64 #s(literal 2 binary64) l))))
	13.2%	(.f64 w0 (sqrt.f64 #s(approx (/ (- ( 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)) (.f64 #s(literal -1/4 binary64) (.f64 (.f64 (.f64 (.f64 M M) D) D) (/.f64 h (.f64 (*.f64 d d) l)))))))
	75.5%	(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 (.f64 (/.f64 D (.f64 (.f64 l d) d)) M) D) (.f64 (.f64 #s(literal -1/4 binary64) h) M) #s(literal 1 binary64)))))
	81.3%	(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 (.f64 #s(literal -1/4 binary64) h) (/.f64 (.f64 (.f64 (/.f64 M d) M) D) d)) (/.f64 D l) #s(literal 1 binary64)))))
	67.7%	(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 (.f64 #s(literal -1/4 binary64) h) (/.f64 (.f64 (.f64 M M) D) (*.f64 d d))) (/.f64 D l) #s(literal 1 binary64)))))
	80.3%	(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 (.f64 #s(literal -1/4 binary64) h) (.f64 (.f64 (/.f64 M d) (/.f64 D d)) M)) (/.f64 D l) #s(literal 1 binary64)))))
	81.8%	(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 h #s(literal -1/4 binary64)) (/.f64 (.f64 (.f64 (/.f64 D d) M) (.f64 D M)) (*.f64 l d)) #s(literal 1 binary64)))))
✓	79.1%	(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 h #s(literal -1/4 binary64)) (/.f64 (.f64 (.f64 (.f64 M M) D) (/.f64 D d)) (*.f64 l d)) #s(literal 1 binary64)))))
	70.5%	(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 h #s(literal -1/4 binary64)) (/.f64 (.f64 (.f64 M D) (.f64 M D)) (.f64 (.f64 d l) d)) #s(literal 1 binary64)))))
	67.0%	(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 h #s(literal -1/4 binary64)) (.f64 M (/.f64 (.f64 (.f64 D M) D) (.f64 (.f64 l d) d))) #s(literal 1 binary64)))))
✓	68.8%	(.f64 w0 #s(approx (sqrt (/ (- ( 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(literal 1/2 binary64)))))
	81.4%	(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 (/.f64 M (.f64 l d)) (/.f64 (.f64 M h) d)) D) (*.f64 #s(literal -1/8 binary64) D) #s(literal 1 binary64))))
	61.1%	(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) (.f64 (/.f64 M d) (/.f64 M l))) (/.f64 h d) #s(literal 1 binary64))))
	55.5%	(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) (/.f64 (.f64 (.f64 M h) M) (.f64 (.f64 l d) d)) #s(literal 1 binary64))))
	56.0%	(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) (.f64 M (/.f64 (.f64 M h) (.f64 (.f64 l d) d))) #s(literal 1 binary64))))
	12.8%	(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(approx (+ (* (* (* D D) -1/8) (* (/ h (* d d)) (/ (* M M) l))) 1) (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (.f64 (.f64 (.f64 D M) M) D) h) (.f64 (*.f64 d d) l))))))
	14.8%	(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(approx (+ (* (* (* D D) -1/8) (* (/ h (* d d)) (/ (* M M) l))) 1) (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (.f64 (.f64 M M) D) (.f64 l d)) (/.f64 (.f64 D h) d))))))
	12.9%	(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(approx (+ (* (* (* D D) -1/8) (* (/ h (* d d)) (/ (* M M) l))) 1) (.f64 #s(literal -1/8 binary64) (.f64 (.f64 (.f64 M M) D) (.f64 D (/.f64 h (.f64 (*.f64 l d) d))))))))
	12.6%	(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(approx (+ (* (* (* D D) -1/8) (* (/ h (* d d)) (/ (* M M) l))) 1) (.f64 #s(literal -1/8 binary64) (.f64 (.f64 M M) (.f64 (.f64 D D) (/.f64 h (.f64 (*.f64 l d) d))))))))
	51.1%	#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (fma.f64 (/.f64 (.f64 (.f64 (.f64 (.f64 M M) h) w0) (.f64 D D)) (.f64 (*.f64 d d) l)) #s(literal -1/8 binary64) w0))
	57.0%	#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (fma.f64 (/.f64 (.f64 (.f64 (.f64 (.f64 M M) D) D) (.f64 w0 h)) (.f64 (*.f64 d d) l)) #s(literal -1/8 binary64) w0))
✓	70.1%	#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) w0)

Compiler

Compiled 2 835 to 1 103 computations (61.1% saved)

regimes261.0ms (2.9%)

Memory

1.2MiB live, 336.5MiB allocated; 145ms collecting garbage

Counts

51 → 2

Calls

Call 1

Inputs
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) w0)
(.f64 w0 #s(approx (sqrt (/ (- ( 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(literal 1/2 binary64)))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(approx (+ (* (* (* D D) -1/8) (* (/ h (* d d)) (/ (* M M) l))) 1) (.f64 #s(literal -1/8 binary64) (.f64 (.f64 M M) (.f64 (.f64 D D) (/.f64 h (.f64 (*.f64 l d) d))))))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(approx (+ (* (* (* D D) -1/8) (* (/ h (* d d)) (/ (* M M) l))) 1) (.f64 #s(literal -1/8 binary64) (.f64 (.f64 (.f64 M M) D) (.f64 D (/.f64 h (.f64 (*.f64 l d) d))))))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(approx (+ (* (* (* D D) -1/8) (* (/ h (* d d)) (/ (* M M) l))) 1) (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (.f64 (.f64 (.f64 D M) M) D) h) (.f64 (*.f64 d d) l))))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(approx (+ (* (* (* D D) -1/8) (* (/ h (* d d)) (/ (* M M) l))) 1) (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (.f64 (.f64 (.f64 M M) D) D) h) (.f64 (*.f64 d d) l))))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(approx (+ (* (* (* D D) -1/8) (/ (* (* (/ M d) M) h) (* d l))) 1) (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (.f64 (.f64 M M) h) (.f64 D D)) (.f64 (*.f64 d d) l))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (fma.f64 (/.f64 (.f64 (.f64 (.f64 (.f64 M M) D) D) (.f64 w0 h)) (.f64 (*.f64 d d) l)) #s(literal -1/8 binary64) w0))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (fma.f64 (/.f64 (.f64 (.f64 (.f64 (.f64 M M) h) w0) (.f64 D D)) (.f64 (*.f64 d d) l)) #s(literal -1/8 binary64) w0))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) (.f64 M (/.f64 (.f64 M h) (.f64 (.f64 l d) d))) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) (/.f64 (.f64 (.f64 M M) h) (.f64 (.f64 d d) l)) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) (/.f64 (.f64 (.f64 M M) h) (.f64 (.f64 l d) d)) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) (/.f64 (.f64 (.f64 M h) M) (.f64 (.f64 l d) d)) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(approx (+ (* (* (* D D) -1/8) (* (/ h (* d d)) (/ (* M M) l))) 1) (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (.f64 (.f64 M M) D) (.f64 l d)) (/.f64 (.f64 D h) d))))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) (.f64 (/.f64 M d) (/.f64 (.f64 h M) (*.f64 l d))) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) (.f64 (/.f64 h (.f64 d d)) (/.f64 (*.f64 M M) l)) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) (/.f64 (.f64 (.f64 (/.f64 M d) M) h) (*.f64 d l)) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 (.f64 (/.f64 h (.f64 d d)) M) (/.f64 M l)) D) (*.f64 #s(literal -1/8 binary64) D) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 (/.f64 M (.f64 l d)) (/.f64 (.f64 M h) d)) D) (*.f64 #s(literal -1/8 binary64) D) #s(literal 1 binary64))))
(.f64 w0 (sqrt.f64 #s(approx (/ (- ( 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 (.f64 (.f64 M M) D) D) h) (.f64 (*.f64 d d) l))))))
(.f64 w0 (sqrt.f64 #s(approx (/ (- ( 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)) (.f64 #s(literal -1/4 binary64) (.f64 (.f64 (.f64 (.f64 M M) D) D) (/.f64 h (.f64 (*.f64 d d) l)))))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 h #s(literal -1/4 binary64)) (.f64 M (.f64 (.f64 M D) (/.f64 D (.f64 (.f64 d d) l)))) #s(literal 1 binary64)))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 h #s(literal -1/4 binary64)) (.f64 M (.f64 (.f64 M D) (/.f64 D (.f64 (.f64 l d) d)))) #s(literal 1 binary64)))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 h #s(literal -1/4 binary64)) (.f64 M (/.f64 (.f64 (.f64 D M) D) (.f64 (.f64 l d) d))) #s(literal 1 binary64)))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 h #s(literal -1/4 binary64)) (/.f64 (.f64 (.f64 M D) (.f64 M D)) (.f64 (.f64 d l) d)) #s(literal 1 binary64)))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 h #s(literal -1/4 binary64)) (/.f64 (.f64 (.f64 (.f64 M M) D) D) (.f64 (.f64 d d) l)) #s(literal 1 binary64)))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 h #s(literal -1/4 binary64)) (/.f64 (.f64 (.f64 (.f64 M M) D) D) (.f64 (.f64 d l) d)) #s(literal 1 binary64)))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 (.f64 (/.f64 D (.f64 (.f64 l d) d)) M) D) (.f64 (.f64 #s(literal -1/4 binary64) h) M) #s(literal 1 binary64)))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) (.f64 (/.f64 (/.f64 M d) d) (/.f64 (.f64 h M) l)) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) (.f64 (/.f64 M d) (/.f64 M l))) (/.f64 h d) #s(literal 1 binary64))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 h #s(literal -1/4 binary64)) (.f64 (.f64 (/.f64 M d) M) (/.f64 (.f64 D D) (*.f64 d l))) #s(literal 1 binary64)))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 h #s(literal -1/4 binary64)) (.f64 (/.f64 D (.f64 l d)) (.f64 (*.f64 (/.f64 M d) M) D)) #s(literal 1 binary64)))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 h #s(literal -1/4 binary64)) (.f64 (/.f64 (.f64 (.f64 M M) D) d) (/.f64 D (*.f64 d l))) #s(literal 1 binary64)))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 h #s(literal -1/4 binary64)) (/.f64 (.f64 (.f64 (.f64 M M) D) (/.f64 D d)) (*.f64 l d)) #s(literal 1 binary64)))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 h #s(literal -1/4 binary64)) (/.f64 (.f64 (.f64 (/.f64 D d) M) (.f64 D M)) (*.f64 l d)) #s(literal 1 binary64)))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 (.f64 #s(literal -1/4 binary64) h) (/.f64 (.f64 (.f64 M M) D) (*.f64 d d))) (/.f64 D l) #s(literal 1 binary64)))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (/.f64 (-.f64 l (.f64 (.f64 (.f64 (.f64 (/.f64 h (.f64 d d)) M) M) (.f64 #s(literal 1/4 binary64) D)) D)) l))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 (.f64 #s(literal -1/4 binary64) h) (.f64 (.f64 (/.f64 M d) (/.f64 D d)) M)) (/.f64 D l) #s(literal 1 binary64)))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 (.f64 #s(literal -1/4 binary64) h) (.f64 (/.f64 D d) (.f64 (/.f64 M d) M))) (/.f64 D l) #s(literal 1 binary64)))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 (.f64 #s(literal -1/4 binary64) h) (/.f64 (.f64 (.f64 (/.f64 M d) M) D) d)) (/.f64 D l) #s(literal 1 binary64)))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (/.f64 (-.f64 l (.f64 (.f64 #s(literal 1/4 binary64) (.f64 D D)) (.f64 (/.f64 (*.f64 M M) d) (/.f64 h d)))) l))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (/.f64 (-.f64 l (/.f64 (.f64 (.f64 (.f64 (.f64 #s(literal 1/4 binary64) (*.f64 D D)) M) (/.f64 M d)) h) d)) l))))
(.f64 w0 (sqrt.f64 (-.f64 #s(literal 1 binary64) (.f64 (.f64 (/.f64 h l) (.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d))) (*.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d))))))
(.f64 w0 (sqrt.f64 (/.f64 (-.f64 (.f64 #s(literal 2 binary64) l) (.f64 #s(literal 2 binary64) (/.f64 (.f64 (/.f64 (.f64 (.f64 M h) D) (.f64 #s(literal 2 binary64) d)) (.f64 M D)) (.f64 #s(literal 2 binary64) d)))) (.f64 #s(literal 2 binary64) l))))
(.f64 w0 (sqrt.f64 (/.f64 (-.f64 (.f64 #s(literal 2 binary64) l) (.f64 #s(literal 2 binary64) (/.f64 (.f64 (.f64 h (.f64 M (/.f64 (/.f64 D d) #s(literal 2 binary64)))) (.f64 M D)) (.f64 #s(literal 2 binary64) d)))) (*.f64 #s(literal 2 binary64) l))))
(.f64 w0 (sqrt.f64 (/.f64 (-.f64 (.f64 #s(literal 2 binary64) l) (.f64 #s(literal 2 binary64) (.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) (.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) h)))) (.f64 #s(literal 2 binary64) l))))
(.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 (/.f64 (-.f64 (.f64 #s(literal 2 binary64) l) (.f64 #s(literal 2 binary64) (.f64 h (pow.f64 (.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d)) #s(literal 2 binary64))))) (.f64 #s(literal 2 binary64) l))))
(.f64 w0 (/.f64 (sqrt.f64 (.f64 #s(literal -2 binary64) (-.f64 l (.f64 (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64)) h)))) (sqrt.f64 (*.f64 #s(literal -2 binary64) l))))
(/.f64 (.f64 (sqrt.f64 (.f64 (-.f64 l (.f64 (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64)) h)) #s(literal 2 binary64))) w0) (sqrt.f64 (*.f64 l #s(literal 2 binary64))))
(.f64 w0 (/.f64 (sqrt.f64 (/.f64 (.f64 #s(literal -2 binary64) (-.f64 l (.f64 (pow.f64 (.f64 (/.f64 (/.f64 D d) #s(literal 2 binary64)) M) #s(literal 2 binary64)) h))) #s(literal -2 binary64))) (sqrt.f64 l)))

Outputs

(*.f64 w0 (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 (*.f64 (/.f64 h l) (*.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d))) (*.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d))))))

(*.f64 w0 (sqrt.f64 #s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (*.f64 h #s(literal -1/4 binary64)) (*.f64 (/.f64 D (*.f64 l d)) (*.f64 (*.f64 (/.f64 M d) M) D)) #s(literal 1 binary64)))))

Calls

15 calls:

80.0ms	w0
16.0ms	l
16.0ms	(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))))
15.0ms	M
14.0ms	(/.f64 h l)

Results

Accuracy	Segments	Branch
90.1%	3	`(/.f64 h l)`
89.1%	2	`(*.f64 #s(literal 2 binary64) d)`
86.9%	1	`(*.f64 M D)`
89.4%	2	`(/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d))`
89.4%	2	`(pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64))`
90.2%	2	`(.f64 (pow.f64 (/.f64 (.f64 M D) (*.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) (/.f64 h l))`
90.2%	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)))`
90.2%	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))))`
90.2%	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)))))`
86.9%	1	`w0`
86.9%	1	`M`
89.2%	2	`D`
86.9%	1	`h`
86.9%	1	`l`
89.1%	2	`d`

Compiler

Compiled 93 to 140 computations (-50.5% saved)

regimes151.0ms (1.7%)

Memory

17.7MiB live, 203.1MiB allocated; 12ms collecting garbage

Counts

42 → 3

Calls

Call 1

Inputs
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) w0)
(.f64 w0 #s(approx (sqrt (/ (- ( 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(literal 1/2 binary64)))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(approx (+ (* (* (* D D) -1/8) (* (/ h (* d d)) (/ (* M M) l))) 1) (.f64 #s(literal -1/8 binary64) (.f64 (.f64 M M) (.f64 (.f64 D D) (/.f64 h (.f64 (*.f64 l d) d))))))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(approx (+ (* (* (* D D) -1/8) (* (/ h (* d d)) (/ (* M M) l))) 1) (.f64 #s(literal -1/8 binary64) (.f64 (.f64 (.f64 M M) D) (.f64 D (/.f64 h (.f64 (*.f64 l d) d))))))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(approx (+ (* (* (* D D) -1/8) (* (/ h (* d d)) (/ (* M M) l))) 1) (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (.f64 (.f64 (.f64 D M) M) D) h) (.f64 (*.f64 d d) l))))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(approx (+ (* (* (* D D) -1/8) (* (/ h (* d d)) (/ (* M M) l))) 1) (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (.f64 (.f64 (.f64 M M) D) D) h) (.f64 (*.f64 d d) l))))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(approx (+ (* (* (* D D) -1/8) (/ (* (* (/ M d) M) h) (* d l))) 1) (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (.f64 (.f64 M M) h) (.f64 D D)) (.f64 (*.f64 d d) l))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (fma.f64 (/.f64 (.f64 (.f64 (.f64 (.f64 M M) D) D) (.f64 w0 h)) (.f64 (*.f64 d d) l)) #s(literal -1/8 binary64) w0))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (fma.f64 (/.f64 (.f64 (.f64 (.f64 (.f64 M M) h) w0) (.f64 D D)) (.f64 (*.f64 d d) l)) #s(literal -1/8 binary64) w0))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) (.f64 M (/.f64 (.f64 M h) (.f64 (.f64 l d) d))) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) (/.f64 (.f64 (.f64 M M) h) (.f64 (.f64 d d) l)) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) (/.f64 (.f64 (.f64 M M) h) (.f64 (.f64 l d) d)) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) (/.f64 (.f64 (.f64 M h) M) (.f64 (.f64 l d) d)) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(approx (+ (* (* (* D D) -1/8) (* (/ h (* d d)) (/ (* M M) l))) 1) (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (.f64 (.f64 M M) D) (.f64 l d)) (/.f64 (.f64 D h) d))))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) (.f64 (/.f64 M d) (/.f64 (.f64 h M) (*.f64 l d))) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) (.f64 (/.f64 h (.f64 d d)) (/.f64 (*.f64 M M) l)) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) (/.f64 (.f64 (.f64 (/.f64 M d) M) h) (*.f64 d l)) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 (.f64 (/.f64 h (.f64 d d)) M) (/.f64 M l)) D) (*.f64 #s(literal -1/8 binary64) D) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 (/.f64 M (.f64 l d)) (/.f64 (.f64 M h) d)) D) (*.f64 #s(literal -1/8 binary64) D) #s(literal 1 binary64))))
(.f64 w0 (sqrt.f64 #s(approx (/ (- ( 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 (.f64 (.f64 M M) D) D) h) (.f64 (*.f64 d d) l))))))
(.f64 w0 (sqrt.f64 #s(approx (/ (- ( 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)) (.f64 #s(literal -1/4 binary64) (.f64 (.f64 (.f64 (.f64 M M) D) D) (/.f64 h (.f64 (*.f64 d d) l)))))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 h #s(literal -1/4 binary64)) (.f64 M (.f64 (.f64 M D) (/.f64 D (.f64 (.f64 d d) l)))) #s(literal 1 binary64)))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 h #s(literal -1/4 binary64)) (.f64 M (.f64 (.f64 M D) (/.f64 D (.f64 (.f64 l d) d)))) #s(literal 1 binary64)))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 h #s(literal -1/4 binary64)) (.f64 M (/.f64 (.f64 (.f64 D M) D) (.f64 (.f64 l d) d))) #s(literal 1 binary64)))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 h #s(literal -1/4 binary64)) (/.f64 (.f64 (.f64 M D) (.f64 M D)) (.f64 (.f64 d l) d)) #s(literal 1 binary64)))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 h #s(literal -1/4 binary64)) (/.f64 (.f64 (.f64 (.f64 M M) D) D) (.f64 (.f64 d d) l)) #s(literal 1 binary64)))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 h #s(literal -1/4 binary64)) (/.f64 (.f64 (.f64 (.f64 M M) D) D) (.f64 (.f64 d l) d)) #s(literal 1 binary64)))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 (.f64 (/.f64 D (.f64 (.f64 l d) d)) M) D) (.f64 (.f64 #s(literal -1/4 binary64) h) M) #s(literal 1 binary64)))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) (.f64 (/.f64 (/.f64 M d) d) (/.f64 (.f64 h M) l)) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) (.f64 (/.f64 M d) (/.f64 M l))) (/.f64 h d) #s(literal 1 binary64))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 h #s(literal -1/4 binary64)) (.f64 (.f64 (/.f64 M d) M) (/.f64 (.f64 D D) (*.f64 d l))) #s(literal 1 binary64)))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 h #s(literal -1/4 binary64)) (.f64 (/.f64 D (.f64 l d)) (.f64 (*.f64 (/.f64 M d) M) D)) #s(literal 1 binary64)))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 h #s(literal -1/4 binary64)) (.f64 (/.f64 (.f64 (.f64 M M) D) d) (/.f64 D (*.f64 d l))) #s(literal 1 binary64)))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 h #s(literal -1/4 binary64)) (/.f64 (.f64 (.f64 (.f64 M M) D) (/.f64 D d)) (*.f64 l d)) #s(literal 1 binary64)))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 h #s(literal -1/4 binary64)) (/.f64 (.f64 (.f64 (/.f64 D d) M) (.f64 D M)) (*.f64 l d)) #s(literal 1 binary64)))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 (.f64 #s(literal -1/4 binary64) h) (/.f64 (.f64 (.f64 M M) D) (*.f64 d d))) (/.f64 D l) #s(literal 1 binary64)))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (/.f64 (-.f64 l (.f64 (.f64 (.f64 (.f64 (/.f64 h (.f64 d d)) M) M) (.f64 #s(literal 1/4 binary64) D)) D)) l))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 (.f64 #s(literal -1/4 binary64) h) (.f64 (.f64 (/.f64 M d) (/.f64 D d)) M)) (/.f64 D l) #s(literal 1 binary64)))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 (.f64 #s(literal -1/4 binary64) h) (.f64 (/.f64 D d) (.f64 (/.f64 M d) M))) (/.f64 D l) #s(literal 1 binary64)))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 (.f64 #s(literal -1/4 binary64) h) (/.f64 (.f64 (.f64 (/.f64 M d) M) D) d)) (/.f64 D l) #s(literal 1 binary64)))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (/.f64 (-.f64 l (.f64 (.f64 #s(literal 1/4 binary64) (.f64 D D)) (.f64 (/.f64 (*.f64 M M) d) (/.f64 h d)))) l))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (/.f64 (-.f64 l (/.f64 (.f64 (.f64 (.f64 (.f64 #s(literal 1/4 binary64) (*.f64 D D)) M) (/.f64 M d)) h) d)) l))))

Outputs

(*.f64 w0 (sqrt.f64 #s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (/.f64 (-.f64 l (/.f64 (*.f64 (*.f64 (*.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 D D)) M) (/.f64 M d)) h) d)) l))))

(*.f64 w0 (sqrt.f64 #s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (*.f64 h #s(literal -1/4 binary64)) (/.f64 (*.f64 (*.f64 M D) (*.f64 M D)) (*.f64 (*.f64 d l) d)) #s(literal 1 binary64)))))

(*.f64 w0 (sqrt.f64 #s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (*.f64 (*.f64 #s(literal -1/4 binary64) h) (*.f64 (*.f64 (/.f64 M d) (/.f64 D d)) M)) (/.f64 D l) #s(literal 1 binary64)))))

Calls

15 calls:

12.0ms	M
11.0ms	D
11.0ms	l
10.0ms	(*.f64 #s(literal 2 binary64) d)
10.0ms	d

Results

Accuracy	Segments	Branch
83.3%	1	`w0`
85.2%	2	`M`
88.6%	3	`(*.f64 M D)`
85.3%	2	`h`
87.3%	3	`l`
85.7%	2	`(/.f64 h l)`
85.8%	2	`(*.f64 #s(literal 2 binary64) d)`
85.8%	2	`d`
85.5%	2	`D`
86.9%	2	`(pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64))`
86.9%	2	`(/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d))`
86.0%	2	`(.f64 (pow.f64 (/.f64 (.f64 M D) (*.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) (/.f64 h l))`
86.3%	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)))`
86.3%	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))))`
83.3%	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)

regimes30.0ms (0.3%)

Memory

-4.1MiB live, 41.4MiB allocated; 3ms collecting garbage

Counts

41 → 2

Calls

Call 1

Inputs
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) w0)
(.f64 w0 #s(approx (sqrt (/ (- ( 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(literal 1/2 binary64)))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(approx (+ (* (* (* D D) -1/8) (* (/ h (* d d)) (/ (* M M) l))) 1) (.f64 #s(literal -1/8 binary64) (.f64 (.f64 M M) (.f64 (.f64 D D) (/.f64 h (.f64 (*.f64 l d) d))))))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(approx (+ (* (* (* D D) -1/8) (* (/ h (* d d)) (/ (* M M) l))) 1) (.f64 #s(literal -1/8 binary64) (.f64 (.f64 (.f64 M M) D) (.f64 D (/.f64 h (.f64 (*.f64 l d) d))))))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(approx (+ (* (* (* D D) -1/8) (* (/ h (* d d)) (/ (* M M) l))) 1) (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (.f64 (.f64 (.f64 D M) M) D) h) (.f64 (*.f64 d d) l))))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(approx (+ (* (* (* D D) -1/8) (* (/ h (* d d)) (/ (* M M) l))) 1) (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (.f64 (.f64 (.f64 M M) D) D) h) (.f64 (*.f64 d d) l))))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(approx (+ (* (* (* D D) -1/8) (/ (* (* (/ M d) M) h) (* d l))) 1) (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (.f64 (.f64 M M) h) (.f64 D D)) (.f64 (*.f64 d d) l))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (fma.f64 (/.f64 (.f64 (.f64 (.f64 (.f64 M M) D) D) (.f64 w0 h)) (.f64 (*.f64 d d) l)) #s(literal -1/8 binary64) w0))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (fma.f64 (/.f64 (.f64 (.f64 (.f64 (.f64 M M) h) w0) (.f64 D D)) (.f64 (*.f64 d d) l)) #s(literal -1/8 binary64) w0))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) (.f64 M (/.f64 (.f64 M h) (.f64 (.f64 l d) d))) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) (/.f64 (.f64 (.f64 M M) h) (.f64 (.f64 d d) l)) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) (/.f64 (.f64 (.f64 M M) h) (.f64 (.f64 l d) d)) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) (/.f64 (.f64 (.f64 M h) M) (.f64 (.f64 l d) d)) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(approx (+ (* (* (* D D) -1/8) (* (/ h (* d d)) (/ (* M M) l))) 1) (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (.f64 (.f64 M M) D) (.f64 l d)) (/.f64 (.f64 D h) d))))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) (.f64 (/.f64 M d) (/.f64 (.f64 h M) (*.f64 l d))) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) (.f64 (/.f64 h (.f64 d d)) (/.f64 (*.f64 M M) l)) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) (/.f64 (.f64 (.f64 (/.f64 M d) M) h) (*.f64 d l)) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 (.f64 (/.f64 h (.f64 d d)) M) (/.f64 M l)) D) (*.f64 #s(literal -1/8 binary64) D) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 (/.f64 M (.f64 l d)) (/.f64 (.f64 M h) d)) D) (*.f64 #s(literal -1/8 binary64) D) #s(literal 1 binary64))))
(.f64 w0 (sqrt.f64 #s(approx (/ (- ( 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 (.f64 (.f64 M M) D) D) h) (.f64 (*.f64 d d) l))))))
(.f64 w0 (sqrt.f64 #s(approx (/ (- ( 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)) (.f64 #s(literal -1/4 binary64) (.f64 (.f64 (.f64 (.f64 M M) D) D) (/.f64 h (.f64 (*.f64 d d) l)))))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 h #s(literal -1/4 binary64)) (.f64 M (.f64 (.f64 M D) (/.f64 D (.f64 (.f64 d d) l)))) #s(literal 1 binary64)))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 h #s(literal -1/4 binary64)) (.f64 M (.f64 (.f64 M D) (/.f64 D (.f64 (.f64 l d) d)))) #s(literal 1 binary64)))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 h #s(literal -1/4 binary64)) (.f64 M (/.f64 (.f64 (.f64 D M) D) (.f64 (.f64 l d) d))) #s(literal 1 binary64)))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 h #s(literal -1/4 binary64)) (/.f64 (.f64 (.f64 M D) (.f64 M D)) (.f64 (.f64 d l) d)) #s(literal 1 binary64)))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 h #s(literal -1/4 binary64)) (/.f64 (.f64 (.f64 (.f64 M M) D) D) (.f64 (.f64 d d) l)) #s(literal 1 binary64)))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 h #s(literal -1/4 binary64)) (/.f64 (.f64 (.f64 (.f64 M M) D) D) (.f64 (.f64 d l) d)) #s(literal 1 binary64)))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 (.f64 (/.f64 D (.f64 (.f64 l d) d)) M) D) (.f64 (.f64 #s(literal -1/4 binary64) h) M) #s(literal 1 binary64)))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) (.f64 (/.f64 (/.f64 M d) d) (/.f64 (.f64 h M) l)) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) (.f64 (/.f64 M d) (/.f64 M l))) (/.f64 h d) #s(literal 1 binary64))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 h #s(literal -1/4 binary64)) (.f64 (.f64 (/.f64 M d) M) (/.f64 (.f64 D D) (*.f64 d l))) #s(literal 1 binary64)))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 h #s(literal -1/4 binary64)) (.f64 (/.f64 D (.f64 l d)) (.f64 (*.f64 (/.f64 M d) M) D)) #s(literal 1 binary64)))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 h #s(literal -1/4 binary64)) (.f64 (/.f64 (.f64 (.f64 M M) D) d) (/.f64 D (*.f64 d l))) #s(literal 1 binary64)))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 h #s(literal -1/4 binary64)) (/.f64 (.f64 (.f64 (.f64 M M) D) (/.f64 D d)) (*.f64 l d)) #s(literal 1 binary64)))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 h #s(literal -1/4 binary64)) (/.f64 (.f64 (.f64 (/.f64 D d) M) (.f64 D M)) (*.f64 l d)) #s(literal 1 binary64)))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 (.f64 #s(literal -1/4 binary64) h) (/.f64 (.f64 (.f64 M M) D) (*.f64 d d))) (/.f64 D l) #s(literal 1 binary64)))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (/.f64 (-.f64 l (.f64 (.f64 (.f64 (.f64 (/.f64 h (.f64 d d)) M) M) (.f64 #s(literal 1/4 binary64) D)) D)) l))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 (.f64 #s(literal -1/4 binary64) h) (.f64 (.f64 (/.f64 M d) (/.f64 D d)) M)) (/.f64 D l) #s(literal 1 binary64)))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 (.f64 #s(literal -1/4 binary64) h) (.f64 (/.f64 D d) (.f64 (/.f64 M d) M))) (/.f64 D l) #s(literal 1 binary64)))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 (.f64 #s(literal -1/4 binary64) h) (/.f64 (.f64 (.f64 (/.f64 M d) M) D) d)) (/.f64 D l) #s(literal 1 binary64)))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (/.f64 (-.f64 l (.f64 (.f64 #s(literal 1/4 binary64) (.f64 D D)) (.f64 (/.f64 (*.f64 M M) d) (/.f64 h d)))) l))))

Outputs

(*.f64 w0 (sqrt.f64 #s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (*.f64 h #s(literal -1/4 binary64)) (/.f64 (*.f64 (*.f64 (/.f64 D d) M) (*.f64 D M)) (*.f64 l d)) #s(literal 1 binary64)))))

(*.f64 w0 (sqrt.f64 #s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (*.f64 (*.f64 #s(literal -1/4 binary64) h) (/.f64 (*.f64 (*.f64 (/.f64 M d) M) D) d)) (/.f64 D l) #s(literal 1 binary64)))))

Calls

3 calls:

10.0ms	(/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d))
9.0ms	(*.f64 M D)
8.0ms	(pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64))

Results

Accuracy	Segments	Branch
86.9%	2	`(/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d))`
86.9%	2	`(pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64))`
87.6%	3	`(*.f64 M D)`

Compiler

Compiled 19 to 28 computations (-47.4% saved)

regimes34.0ms (0.4%)

Memory

2.7MiB live, 48.7MiB allocated; 2ms collecting garbage

Counts

39 → 2

Calls

Call 1

Inputs
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) w0)
(.f64 w0 #s(approx (sqrt (/ (- ( 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(literal 1/2 binary64)))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(approx (+ (* (* (* D D) -1/8) (* (/ h (* d d)) (/ (* M M) l))) 1) (.f64 #s(literal -1/8 binary64) (.f64 (.f64 M M) (.f64 (.f64 D D) (/.f64 h (.f64 (*.f64 l d) d))))))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(approx (+ (* (* (* D D) -1/8) (* (/ h (* d d)) (/ (* M M) l))) 1) (.f64 #s(literal -1/8 binary64) (.f64 (.f64 (.f64 M M) D) (.f64 D (/.f64 h (.f64 (*.f64 l d) d))))))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(approx (+ (* (* (* D D) -1/8) (* (/ h (* d d)) (/ (* M M) l))) 1) (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (.f64 (.f64 (.f64 D M) M) D) h) (.f64 (*.f64 d d) l))))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(approx (+ (* (* (* D D) -1/8) (* (/ h (* d d)) (/ (* M M) l))) 1) (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (.f64 (.f64 (.f64 M M) D) D) h) (.f64 (*.f64 d d) l))))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(approx (+ (* (* (* D D) -1/8) (/ (* (* (/ M d) M) h) (* d l))) 1) (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (.f64 (.f64 M M) h) (.f64 D D)) (.f64 (*.f64 d d) l))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (fma.f64 (/.f64 (.f64 (.f64 (.f64 (.f64 M M) D) D) (.f64 w0 h)) (.f64 (*.f64 d d) l)) #s(literal -1/8 binary64) w0))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (fma.f64 (/.f64 (.f64 (.f64 (.f64 (.f64 M M) h) w0) (.f64 D D)) (.f64 (*.f64 d d) l)) #s(literal -1/8 binary64) w0))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) (.f64 M (/.f64 (.f64 M h) (.f64 (.f64 l d) d))) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) (/.f64 (.f64 (.f64 M M) h) (.f64 (.f64 d d) l)) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) (/.f64 (.f64 (.f64 M M) h) (.f64 (.f64 l d) d)) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) (/.f64 (.f64 (.f64 M h) M) (.f64 (.f64 l d) d)) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(approx (+ (* (* (* D D) -1/8) (* (/ h (* d d)) (/ (* M M) l))) 1) (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (.f64 (.f64 M M) D) (.f64 l d)) (/.f64 (.f64 D h) d))))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) (.f64 (/.f64 M d) (/.f64 (.f64 h M) (*.f64 l d))) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) (.f64 (/.f64 h (.f64 d d)) (/.f64 (*.f64 M M) l)) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) (/.f64 (.f64 (.f64 (/.f64 M d) M) h) (*.f64 d l)) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 (.f64 (/.f64 h (.f64 d d)) M) (/.f64 M l)) D) (*.f64 #s(literal -1/8 binary64) D) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 (/.f64 M (.f64 l d)) (/.f64 (.f64 M h) d)) D) (*.f64 #s(literal -1/8 binary64) D) #s(literal 1 binary64))))
(.f64 w0 (sqrt.f64 #s(approx (/ (- ( 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 (.f64 (.f64 M M) D) D) h) (.f64 (*.f64 d d) l))))))
(.f64 w0 (sqrt.f64 #s(approx (/ (- ( 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)) (.f64 #s(literal -1/4 binary64) (.f64 (.f64 (.f64 (.f64 M M) D) D) (/.f64 h (.f64 (*.f64 d d) l)))))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 h #s(literal -1/4 binary64)) (.f64 M (.f64 (.f64 M D) (/.f64 D (.f64 (.f64 d d) l)))) #s(literal 1 binary64)))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 h #s(literal -1/4 binary64)) (.f64 M (.f64 (.f64 M D) (/.f64 D (.f64 (.f64 l d) d)))) #s(literal 1 binary64)))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 h #s(literal -1/4 binary64)) (.f64 M (/.f64 (.f64 (.f64 D M) D) (.f64 (.f64 l d) d))) #s(literal 1 binary64)))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 h #s(literal -1/4 binary64)) (/.f64 (.f64 (.f64 M D) (.f64 M D)) (.f64 (.f64 d l) d)) #s(literal 1 binary64)))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 h #s(literal -1/4 binary64)) (/.f64 (.f64 (.f64 (.f64 M M) D) D) (.f64 (.f64 d d) l)) #s(literal 1 binary64)))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 h #s(literal -1/4 binary64)) (/.f64 (.f64 (.f64 (.f64 M M) D) D) (.f64 (.f64 d l) d)) #s(literal 1 binary64)))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 (.f64 (/.f64 D (.f64 (.f64 l d) d)) M) D) (.f64 (.f64 #s(literal -1/4 binary64) h) M) #s(literal 1 binary64)))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) (.f64 (/.f64 (/.f64 M d) d) (/.f64 (.f64 h M) l)) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) (.f64 (/.f64 M d) (/.f64 M l))) (/.f64 h d) #s(literal 1 binary64))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 h #s(literal -1/4 binary64)) (.f64 (.f64 (/.f64 M d) M) (/.f64 (.f64 D D) (*.f64 d l))) #s(literal 1 binary64)))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 h #s(literal -1/4 binary64)) (.f64 (/.f64 D (.f64 l d)) (.f64 (*.f64 (/.f64 M d) M) D)) #s(literal 1 binary64)))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 h #s(literal -1/4 binary64)) (.f64 (/.f64 (.f64 (.f64 M M) D) d) (/.f64 D (*.f64 d l))) #s(literal 1 binary64)))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 h #s(literal -1/4 binary64)) (/.f64 (.f64 (.f64 (.f64 M M) D) (/.f64 D d)) (*.f64 l d)) #s(literal 1 binary64)))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 h #s(literal -1/4 binary64)) (/.f64 (.f64 (.f64 (/.f64 D d) M) (.f64 D M)) (*.f64 l d)) #s(literal 1 binary64)))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 (.f64 #s(literal -1/4 binary64) h) (/.f64 (.f64 (.f64 M M) D) (*.f64 d d))) (/.f64 D l) #s(literal 1 binary64)))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (/.f64 (-.f64 l (.f64 (.f64 (.f64 (.f64 (/.f64 h (.f64 d d)) M) M) (.f64 #s(literal 1/4 binary64) D)) D)) l))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 (.f64 #s(literal -1/4 binary64) h) (.f64 (.f64 (/.f64 M d) (/.f64 D d)) M)) (/.f64 D l) #s(literal 1 binary64)))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 (.f64 #s(literal -1/4 binary64) h) (.f64 (/.f64 D d) (.f64 (/.f64 M d) M))) (/.f64 D l) #s(literal 1 binary64)))))

Outputs

#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) w0)

(*.f64 w0 (sqrt.f64 #s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (*.f64 (*.f64 #s(literal -1/4 binary64) h) (*.f64 (*.f64 (/.f64 M d) (/.f64 D d)) M)) (/.f64 D l) #s(literal 1 binary64)))))

Calls

4 calls:

8.0ms	(/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d))
8.0ms	(-.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)))
8.0ms	(pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64))
7.0ms	(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))))

Results

Accuracy	Segments	Branch
86.3%	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)))`
86.3%	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))))`
87.3%	3	`(/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d))`
87.3%	3	`(pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64))`

Compiler

Compiled 47 to 52 computations (-10.6% saved)

regimes88.0ms (1%)

Memory

25.2MiB live, 119.4MiB allocated; 9ms collecting garbage

Counts

37 → 2

Calls

Call 1

Inputs
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) w0)
(.f64 w0 #s(approx (sqrt (/ (- ( 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(literal 1/2 binary64)))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(approx (+ (* (* (* D D) -1/8) (* (/ h (* d d)) (/ (* M M) l))) 1) (.f64 #s(literal -1/8 binary64) (.f64 (.f64 M M) (.f64 (.f64 D D) (/.f64 h (.f64 (*.f64 l d) d))))))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(approx (+ (* (* (* D D) -1/8) (* (/ h (* d d)) (/ (* M M) l))) 1) (.f64 #s(literal -1/8 binary64) (.f64 (.f64 (.f64 M M) D) (.f64 D (/.f64 h (.f64 (*.f64 l d) d))))))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(approx (+ (* (* (* D D) -1/8) (* (/ h (* d d)) (/ (* M M) l))) 1) (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (.f64 (.f64 (.f64 D M) M) D) h) (.f64 (*.f64 d d) l))))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(approx (+ (* (* (* D D) -1/8) (* (/ h (* d d)) (/ (* M M) l))) 1) (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (.f64 (.f64 (.f64 M M) D) D) h) (.f64 (*.f64 d d) l))))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(approx (+ (* (* (* D D) -1/8) (/ (* (* (/ M d) M) h) (* d l))) 1) (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (.f64 (.f64 M M) h) (.f64 D D)) (.f64 (*.f64 d d) l))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (fma.f64 (/.f64 (.f64 (.f64 (.f64 (.f64 M M) D) D) (.f64 w0 h)) (.f64 (*.f64 d d) l)) #s(literal -1/8 binary64) w0))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (fma.f64 (/.f64 (.f64 (.f64 (.f64 (.f64 M M) h) w0) (.f64 D D)) (.f64 (*.f64 d d) l)) #s(literal -1/8 binary64) w0))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) (.f64 M (/.f64 (.f64 M h) (.f64 (.f64 l d) d))) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) (/.f64 (.f64 (.f64 M M) h) (.f64 (.f64 d d) l)) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) (/.f64 (.f64 (.f64 M M) h) (.f64 (.f64 l d) d)) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) (/.f64 (.f64 (.f64 M h) M) (.f64 (.f64 l d) d)) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(approx (+ (* (* (* D D) -1/8) (* (/ h (* d d)) (/ (* M M) l))) 1) (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (.f64 (.f64 M M) D) (.f64 l d)) (/.f64 (.f64 D h) d))))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) (.f64 (/.f64 M d) (/.f64 (.f64 h M) (*.f64 l d))) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) (.f64 (/.f64 h (.f64 d d)) (/.f64 (*.f64 M M) l)) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) (/.f64 (.f64 (.f64 (/.f64 M d) M) h) (*.f64 d l)) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 (.f64 (/.f64 h (.f64 d d)) M) (/.f64 M l)) D) (*.f64 #s(literal -1/8 binary64) D) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 (/.f64 M (.f64 l d)) (/.f64 (.f64 M h) d)) D) (*.f64 #s(literal -1/8 binary64) D) #s(literal 1 binary64))))
(.f64 w0 (sqrt.f64 #s(approx (/ (- ( 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 (.f64 (.f64 M M) D) D) h) (.f64 (*.f64 d d) l))))))
(.f64 w0 (sqrt.f64 #s(approx (/ (- ( 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)) (.f64 #s(literal -1/4 binary64) (.f64 (.f64 (.f64 (.f64 M M) D) D) (/.f64 h (.f64 (*.f64 d d) l)))))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 h #s(literal -1/4 binary64)) (.f64 M (.f64 (.f64 M D) (/.f64 D (.f64 (.f64 d d) l)))) #s(literal 1 binary64)))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 h #s(literal -1/4 binary64)) (.f64 M (.f64 (.f64 M D) (/.f64 D (.f64 (.f64 l d) d)))) #s(literal 1 binary64)))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 h #s(literal -1/4 binary64)) (.f64 M (/.f64 (.f64 (.f64 D M) D) (.f64 (.f64 l d) d))) #s(literal 1 binary64)))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 h #s(literal -1/4 binary64)) (/.f64 (.f64 (.f64 M D) (.f64 M D)) (.f64 (.f64 d l) d)) #s(literal 1 binary64)))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 h #s(literal -1/4 binary64)) (/.f64 (.f64 (.f64 (.f64 M M) D) D) (.f64 (.f64 d d) l)) #s(literal 1 binary64)))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 h #s(literal -1/4 binary64)) (/.f64 (.f64 (.f64 (.f64 M M) D) D) (.f64 (.f64 d l) d)) #s(literal 1 binary64)))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 (.f64 (/.f64 D (.f64 (.f64 l d) d)) M) D) (.f64 (.f64 #s(literal -1/4 binary64) h) M) #s(literal 1 binary64)))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) (.f64 (/.f64 (/.f64 M d) d) (/.f64 (.f64 h M) l)) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) (.f64 (/.f64 M d) (/.f64 M l))) (/.f64 h d) #s(literal 1 binary64))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 h #s(literal -1/4 binary64)) (.f64 (.f64 (/.f64 M d) M) (/.f64 (.f64 D D) (*.f64 d l))) #s(literal 1 binary64)))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 h #s(literal -1/4 binary64)) (.f64 (/.f64 D (.f64 l d)) (.f64 (*.f64 (/.f64 M d) M) D)) #s(literal 1 binary64)))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 h #s(literal -1/4 binary64)) (.f64 (/.f64 (.f64 (.f64 M M) D) d) (/.f64 D (*.f64 d l))) #s(literal 1 binary64)))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 h #s(literal -1/4 binary64)) (/.f64 (.f64 (.f64 (.f64 M M) D) (/.f64 D d)) (*.f64 l d)) #s(literal 1 binary64)))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 h #s(literal -1/4 binary64)) (/.f64 (.f64 (.f64 (/.f64 D d) M) (.f64 D M)) (*.f64 l d)) #s(literal 1 binary64)))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 (.f64 #s(literal -1/4 binary64) h) (/.f64 (.f64 (.f64 M M) D) (*.f64 d d))) (/.f64 D l) #s(literal 1 binary64)))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (/.f64 (-.f64 l (.f64 (.f64 (.f64 (.f64 (/.f64 h (.f64 d d)) M) M) (.f64 #s(literal 1/4 binary64) D)) D)) l))))

Outputs

(*.f64 w0 (sqrt.f64 #s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (*.f64 h #s(literal -1/4 binary64)) (/.f64 (*.f64 (*.f64 (/.f64 D d) M) (*.f64 D M)) (*.f64 l d)) #s(literal 1 binary64)))))

(*.f64 w0 (sqrt.f64 #s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (*.f64 h #s(literal -1/4 binary64)) (*.f64 (/.f64 D (*.f64 l d)) (*.f64 (*.f64 (/.f64 M d) M) D)) #s(literal 1 binary64)))))

Calls

10 calls:

11.0ms	(pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64))
9.0ms	d
9.0ms	l
9.0ms	(*.f64 #s(literal 2 binary64) d)
9.0ms	(/.f64 h l)

Results

Accuracy	Segments	Branch
85.7%	2	`(/.f64 h l)`
85.5%	2	`(/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d))`
85.5%	2	`(pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64))`
83.3%	1	`l`
83.3%	1	`(*.f64 #s(literal 2 binary64) d)`
83.3%	1	`d`
85.1%	2	`(.f64 (pow.f64 (/.f64 (.f64 M D) (*.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) (/.f64 h l))`
83.3%	1	`(*.f64 M D)`
85.1%	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)))`
85.1%	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))))`

Compiler

Compiled 71 to 99 computations (-39.4% saved)

regimes72.0ms (0.8%)

Memory

8.3MiB live, 100.1MiB allocated; 5ms collecting garbage

Counts

34 → 2

Calls

Call 1

Inputs
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) w0)
(.f64 w0 #s(approx (sqrt (/ (- ( 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(literal 1/2 binary64)))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(approx (+ (* (* (* D D) -1/8) (* (/ h (* d d)) (/ (* M M) l))) 1) (.f64 #s(literal -1/8 binary64) (.f64 (.f64 M M) (.f64 (.f64 D D) (/.f64 h (.f64 (*.f64 l d) d))))))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(approx (+ (* (* (* D D) -1/8) (* (/ h (* d d)) (/ (* M M) l))) 1) (.f64 #s(literal -1/8 binary64) (.f64 (.f64 (.f64 M M) D) (.f64 D (/.f64 h (.f64 (*.f64 l d) d))))))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(approx (+ (* (* (* D D) -1/8) (* (/ h (* d d)) (/ (* M M) l))) 1) (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (.f64 (.f64 (.f64 D M) M) D) h) (.f64 (*.f64 d d) l))))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(approx (+ (* (* (* D D) -1/8) (* (/ h (* d d)) (/ (* M M) l))) 1) (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (.f64 (.f64 (.f64 M M) D) D) h) (.f64 (*.f64 d d) l))))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(approx (+ (* (* (* D D) -1/8) (/ (* (* (/ M d) M) h) (* d l))) 1) (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (.f64 (.f64 M M) h) (.f64 D D)) (.f64 (*.f64 d d) l))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (fma.f64 (/.f64 (.f64 (.f64 (.f64 (.f64 M M) D) D) (.f64 w0 h)) (.f64 (*.f64 d d) l)) #s(literal -1/8 binary64) w0))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (fma.f64 (/.f64 (.f64 (.f64 (.f64 (.f64 M M) h) w0) (.f64 D D)) (.f64 (*.f64 d d) l)) #s(literal -1/8 binary64) w0))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) (.f64 M (/.f64 (.f64 M h) (.f64 (.f64 l d) d))) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) (/.f64 (.f64 (.f64 M M) h) (.f64 (.f64 d d) l)) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) (/.f64 (.f64 (.f64 M M) h) (.f64 (.f64 l d) d)) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) (/.f64 (.f64 (.f64 M h) M) (.f64 (.f64 l d) d)) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(approx (+ (* (* (* D D) -1/8) (* (/ h (* d d)) (/ (* M M) l))) 1) (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (.f64 (.f64 M M) D) (.f64 l d)) (/.f64 (.f64 D h) d))))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) (.f64 (/.f64 M d) (/.f64 (.f64 h M) (*.f64 l d))) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) (.f64 (/.f64 h (.f64 d d)) (/.f64 (*.f64 M M) l)) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) (/.f64 (.f64 (.f64 (/.f64 M d) M) h) (*.f64 d l)) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 (.f64 (/.f64 h (.f64 d d)) M) (/.f64 M l)) D) (*.f64 #s(literal -1/8 binary64) D) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 (/.f64 M (.f64 l d)) (/.f64 (.f64 M h) d)) D) (*.f64 #s(literal -1/8 binary64) D) #s(literal 1 binary64))))
(.f64 w0 (sqrt.f64 #s(approx (/ (- ( 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 (.f64 (.f64 M M) D) D) h) (.f64 (*.f64 d d) l))))))
(.f64 w0 (sqrt.f64 #s(approx (/ (- ( 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)) (.f64 #s(literal -1/4 binary64) (.f64 (.f64 (.f64 (.f64 M M) D) D) (/.f64 h (.f64 (*.f64 d d) l)))))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 h #s(literal -1/4 binary64)) (.f64 M (.f64 (.f64 M D) (/.f64 D (.f64 (.f64 d d) l)))) #s(literal 1 binary64)))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 h #s(literal -1/4 binary64)) (.f64 M (.f64 (.f64 M D) (/.f64 D (.f64 (.f64 l d) d)))) #s(literal 1 binary64)))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 h #s(literal -1/4 binary64)) (.f64 M (/.f64 (.f64 (.f64 D M) D) (.f64 (.f64 l d) d))) #s(literal 1 binary64)))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 h #s(literal -1/4 binary64)) (/.f64 (.f64 (.f64 M D) (.f64 M D)) (.f64 (.f64 d l) d)) #s(literal 1 binary64)))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 h #s(literal -1/4 binary64)) (/.f64 (.f64 (.f64 (.f64 M M) D) D) (.f64 (.f64 d d) l)) #s(literal 1 binary64)))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 h #s(literal -1/4 binary64)) (/.f64 (.f64 (.f64 (.f64 M M) D) D) (.f64 (.f64 d l) d)) #s(literal 1 binary64)))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 (.f64 (/.f64 D (.f64 (.f64 l d) d)) M) D) (.f64 (.f64 #s(literal -1/4 binary64) h) M) #s(literal 1 binary64)))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) (.f64 (/.f64 (/.f64 M d) d) (/.f64 (.f64 h M) l)) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) (.f64 (/.f64 M d) (/.f64 M l))) (/.f64 h d) #s(literal 1 binary64))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 h #s(literal -1/4 binary64)) (.f64 (.f64 (/.f64 M d) M) (/.f64 (.f64 D D) (*.f64 d l))) #s(literal 1 binary64)))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 h #s(literal -1/4 binary64)) (.f64 (/.f64 D (.f64 l d)) (.f64 (*.f64 (/.f64 M d) M) D)) #s(literal 1 binary64)))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 h #s(literal -1/4 binary64)) (.f64 (/.f64 (.f64 (.f64 M M) D) d) (/.f64 D (*.f64 d l))) #s(literal 1 binary64)))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 h #s(literal -1/4 binary64)) (/.f64 (.f64 (.f64 (.f64 M M) D) (/.f64 D d)) (*.f64 l d)) #s(literal 1 binary64)))))

Outputs

#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) w0)

(*.f64 w0 (sqrt.f64 #s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (*.f64 h #s(literal -1/4 binary64)) (*.f64 (/.f64 D (*.f64 l d)) (*.f64 (*.f64 (/.f64 M d) M) D)) #s(literal 1 binary64)))))

Calls

9 calls:

9.0ms	M
9.0ms	(/.f64 h l)
8.0ms	D
8.0ms	h
8.0ms	(/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d))

Results

Accuracy	Segments	Branch
85.1%	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)))`
85.1%	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))))`
83.3%	1	`(.f64 (pow.f64 (/.f64 (.f64 M D) (*.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) (/.f64 h l))`
83.3%	1	`M`
83.3%	1	`h`
83.3%	1	`(/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d))`
83.3%	1	`(pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64))`
83.3%	1	`D`
83.3%	1	`(/.f64 h l)`

Compiler

Compiled 66 to 90 computations (-36.4% saved)

regimes120.0ms (1.3%)

Memory

-29.3MiB live, 158.0MiB allocated; 22ms collecting garbage

Counts

31 → 2

Calls

Call 1

Inputs
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) w0)
(.f64 w0 #s(approx (sqrt (/ (- ( 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(literal 1/2 binary64)))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(approx (+ (* (* (* D D) -1/8) (* (/ h (* d d)) (/ (* M M) l))) 1) (.f64 #s(literal -1/8 binary64) (.f64 (.f64 M M) (.f64 (.f64 D D) (/.f64 h (.f64 (*.f64 l d) d))))))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(approx (+ (* (* (* D D) -1/8) (* (/ h (* d d)) (/ (* M M) l))) 1) (.f64 #s(literal -1/8 binary64) (.f64 (.f64 (.f64 M M) D) (.f64 D (/.f64 h (.f64 (*.f64 l d) d))))))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(approx (+ (* (* (* D D) -1/8) (* (/ h (* d d)) (/ (* M M) l))) 1) (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (.f64 (.f64 (.f64 D M) M) D) h) (.f64 (*.f64 d d) l))))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(approx (+ (* (* (* D D) -1/8) (* (/ h (* d d)) (/ (* M M) l))) 1) (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (.f64 (.f64 (.f64 M M) D) D) h) (.f64 (*.f64 d d) l))))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(approx (+ (* (* (* D D) -1/8) (/ (* (* (/ M d) M) h) (* d l))) 1) (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (.f64 (.f64 M M) h) (.f64 D D)) (.f64 (*.f64 d d) l))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (fma.f64 (/.f64 (.f64 (.f64 (.f64 (.f64 M M) D) D) (.f64 w0 h)) (.f64 (*.f64 d d) l)) #s(literal -1/8 binary64) w0))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (fma.f64 (/.f64 (.f64 (.f64 (.f64 (.f64 M M) h) w0) (.f64 D D)) (.f64 (*.f64 d d) l)) #s(literal -1/8 binary64) w0))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) (.f64 M (/.f64 (.f64 M h) (.f64 (.f64 l d) d))) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) (/.f64 (.f64 (.f64 M M) h) (.f64 (.f64 d d) l)) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) (/.f64 (.f64 (.f64 M M) h) (.f64 (.f64 l d) d)) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) (/.f64 (.f64 (.f64 M h) M) (.f64 (.f64 l d) d)) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(approx (+ (* (* (* D D) -1/8) (* (/ h (* d d)) (/ (* M M) l))) 1) (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (.f64 (.f64 M M) D) (.f64 l d)) (/.f64 (.f64 D h) d))))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) (.f64 (/.f64 M d) (/.f64 (.f64 h M) (*.f64 l d))) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) (.f64 (/.f64 h (.f64 d d)) (/.f64 (*.f64 M M) l)) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) (/.f64 (.f64 (.f64 (/.f64 M d) M) h) (*.f64 d l)) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 (.f64 (/.f64 h (.f64 d d)) M) (/.f64 M l)) D) (*.f64 #s(literal -1/8 binary64) D) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 (/.f64 M (.f64 l d)) (/.f64 (.f64 M h) d)) D) (*.f64 #s(literal -1/8 binary64) D) #s(literal 1 binary64))))
(.f64 w0 (sqrt.f64 #s(approx (/ (- ( 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 (.f64 (.f64 M M) D) D) h) (.f64 (*.f64 d d) l))))))
(.f64 w0 (sqrt.f64 #s(approx (/ (- ( 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)) (.f64 #s(literal -1/4 binary64) (.f64 (.f64 (.f64 (.f64 M M) D) D) (/.f64 h (.f64 (*.f64 d d) l)))))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 h #s(literal -1/4 binary64)) (.f64 M (.f64 (.f64 M D) (/.f64 D (.f64 (.f64 d d) l)))) #s(literal 1 binary64)))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 h #s(literal -1/4 binary64)) (.f64 M (.f64 (.f64 M D) (/.f64 D (.f64 (.f64 l d) d)))) #s(literal 1 binary64)))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 h #s(literal -1/4 binary64)) (.f64 M (/.f64 (.f64 (.f64 D M) D) (.f64 (.f64 l d) d))) #s(literal 1 binary64)))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 h #s(literal -1/4 binary64)) (/.f64 (.f64 (.f64 M D) (.f64 M D)) (.f64 (.f64 d l) d)) #s(literal 1 binary64)))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 h #s(literal -1/4 binary64)) (/.f64 (.f64 (.f64 (.f64 M M) D) D) (.f64 (.f64 d d) l)) #s(literal 1 binary64)))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 h #s(literal -1/4 binary64)) (/.f64 (.f64 (.f64 (.f64 M M) D) D) (.f64 (.f64 d l) d)) #s(literal 1 binary64)))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 (.f64 (/.f64 D (.f64 (.f64 l d) d)) M) D) (.f64 (.f64 #s(literal -1/4 binary64) h) M) #s(literal 1 binary64)))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) (.f64 (/.f64 (/.f64 M d) d) (/.f64 (.f64 h M) l)) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) (.f64 (/.f64 M d) (/.f64 M l))) (/.f64 h d) #s(literal 1 binary64))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 h #s(literal -1/4 binary64)) (.f64 (.f64 (/.f64 M d) M) (/.f64 (.f64 D D) (*.f64 d l))) #s(literal 1 binary64)))))

Outputs

(*.f64 w0 (sqrt.f64 #s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (*.f64 h #s(literal -1/4 binary64)) (*.f64 (*.f64 (/.f64 M d) M) (/.f64 (*.f64 D D) (*.f64 d l))) #s(literal 1 binary64)))))

(*.f64 w0 #s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (*.f64 (*.f64 (/.f64 M (*.f64 l d)) (/.f64 (*.f64 M h) d)) D) (*.f64 #s(literal -1/8 binary64) D) #s(literal 1 binary64))))

Calls

15 calls:

14.0ms	d
9.0ms	(*.f64 #s(literal 2 binary64) d)
9.0ms	D
8.0ms	l
8.0ms	h

Results

Accuracy	Segments	Branch
84.1%	2	`D`
81.4%	1	`l`
81.4%	1	`(/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d))`
83.2%	2	`(.f64 (pow.f64 (/.f64 (.f64 M D) (*.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) (/.f64 h l))`
81.4%	1	`(/.f64 h l)`
81.4%	1	`(*.f64 #s(literal 2 binary64) d)`
85.2%	3	`(*.f64 M D)`
81.4%	1	`(pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64))`
81.4%	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)))))`
81.4%	1	`d`
81.4%	1	`w0`
81.4%	1	`M`
81.4%	1	`h`
84.7%	3	`(-.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.7%	3	`(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)

regimes16.0ms (0.2%)

Memory

23.9MiB live, 23.9MiB allocated; 0ms collecting garbage

Counts

30 → 3

Calls

Call 1

Inputs
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) w0)
(.f64 w0 #s(approx (sqrt (/ (- ( 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(literal 1/2 binary64)))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(approx (+ (* (* (* D D) -1/8) (* (/ h (* d d)) (/ (* M M) l))) 1) (.f64 #s(literal -1/8 binary64) (.f64 (.f64 M M) (.f64 (.f64 D D) (/.f64 h (.f64 (*.f64 l d) d))))))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(approx (+ (* (* (* D D) -1/8) (* (/ h (* d d)) (/ (* M M) l))) 1) (.f64 #s(literal -1/8 binary64) (.f64 (.f64 (.f64 M M) D) (.f64 D (/.f64 h (.f64 (*.f64 l d) d))))))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(approx (+ (* (* (* D D) -1/8) (* (/ h (* d d)) (/ (* M M) l))) 1) (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (.f64 (.f64 (.f64 D M) M) D) h) (.f64 (*.f64 d d) l))))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(approx (+ (* (* (* D D) -1/8) (* (/ h (* d d)) (/ (* M M) l))) 1) (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (.f64 (.f64 (.f64 M M) D) D) h) (.f64 (*.f64 d d) l))))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(approx (+ (* (* (* D D) -1/8) (/ (* (* (/ M d) M) h) (* d l))) 1) (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (.f64 (.f64 M M) h) (.f64 D D)) (.f64 (*.f64 d d) l))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (fma.f64 (/.f64 (.f64 (.f64 (.f64 (.f64 M M) D) D) (.f64 w0 h)) (.f64 (*.f64 d d) l)) #s(literal -1/8 binary64) w0))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (fma.f64 (/.f64 (.f64 (.f64 (.f64 (.f64 M M) h) w0) (.f64 D D)) (.f64 (*.f64 d d) l)) #s(literal -1/8 binary64) w0))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) (.f64 M (/.f64 (.f64 M h) (.f64 (.f64 l d) d))) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) (/.f64 (.f64 (.f64 M M) h) (.f64 (.f64 d d) l)) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) (/.f64 (.f64 (.f64 M M) h) (.f64 (.f64 l d) d)) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) (/.f64 (.f64 (.f64 M h) M) (.f64 (.f64 l d) d)) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(approx (+ (* (* (* D D) -1/8) (* (/ h (* d d)) (/ (* M M) l))) 1) (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (.f64 (.f64 M M) D) (.f64 l d)) (/.f64 (.f64 D h) d))))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) (.f64 (/.f64 M d) (/.f64 (.f64 h M) (*.f64 l d))) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) (.f64 (/.f64 h (.f64 d d)) (/.f64 (*.f64 M M) l)) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) (/.f64 (.f64 (.f64 (/.f64 M d) M) h) (*.f64 d l)) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 (.f64 (/.f64 h (.f64 d d)) M) (/.f64 M l)) D) (*.f64 #s(literal -1/8 binary64) D) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 (/.f64 M (.f64 l d)) (/.f64 (.f64 M h) d)) D) (*.f64 #s(literal -1/8 binary64) D) #s(literal 1 binary64))))
(.f64 w0 (sqrt.f64 #s(approx (/ (- ( 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 (.f64 (.f64 M M) D) D) h) (.f64 (*.f64 d d) l))))))
(.f64 w0 (sqrt.f64 #s(approx (/ (- ( 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)) (.f64 #s(literal -1/4 binary64) (.f64 (.f64 (.f64 (.f64 M M) D) D) (/.f64 h (.f64 (*.f64 d d) l)))))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 h #s(literal -1/4 binary64)) (.f64 M (.f64 (.f64 M D) (/.f64 D (.f64 (.f64 d d) l)))) #s(literal 1 binary64)))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 h #s(literal -1/4 binary64)) (.f64 M (.f64 (.f64 M D) (/.f64 D (.f64 (.f64 l d) d)))) #s(literal 1 binary64)))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 h #s(literal -1/4 binary64)) (.f64 M (/.f64 (.f64 (.f64 D M) D) (.f64 (.f64 l d) d))) #s(literal 1 binary64)))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 h #s(literal -1/4 binary64)) (/.f64 (.f64 (.f64 M D) (.f64 M D)) (.f64 (.f64 d l) d)) #s(literal 1 binary64)))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 h #s(literal -1/4 binary64)) (/.f64 (.f64 (.f64 (.f64 M M) D) D) (.f64 (.f64 d d) l)) #s(literal 1 binary64)))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 h #s(literal -1/4 binary64)) (/.f64 (.f64 (.f64 (.f64 M M) D) D) (.f64 (.f64 d l) d)) #s(literal 1 binary64)))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 (.f64 (/.f64 D (.f64 (.f64 l d) d)) M) D) (.f64 (.f64 #s(literal -1/4 binary64) h) M) #s(literal 1 binary64)))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) (.f64 (/.f64 (/.f64 M d) d) (/.f64 (.f64 h M) l)) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) (.f64 (/.f64 M d) (/.f64 M l))) (/.f64 h d) #s(literal 1 binary64))))

Outputs

#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) w0)

(*.f64 w0 (sqrt.f64 #s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (*.f64 h #s(literal -1/4 binary64)) (/.f64 (*.f64 (*.f64 M D) (*.f64 M D)) (*.f64 (*.f64 d l) d)) #s(literal 1 binary64)))))

(*.f64 w0 #s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (*.f64 (*.f64 (/.f64 M (*.f64 l d)) (/.f64 (*.f64 M h) d)) D) (*.f64 #s(literal -1/8 binary64) D) #s(literal 1 binary64))))

Calls

2 calls:

8.0ms	D
7.0ms	(*.f64 M D)

Results

Accuracy	Segments	Branch
85.2%	3	`(*.f64 M D)`
81.4%	1	`D`

Compiler

Compiled 4 to 13 computations (-225% saved)

regimes23.0ms (0.3%)

Memory

-12.6MiB live, 33.6MiB allocated; 2ms collecting garbage

Counts

24 → 3

Calls

Call 1

Inputs
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) w0)
(.f64 w0 #s(approx (sqrt (/ (- ( 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(literal 1/2 binary64)))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(approx (+ (* (* (* D D) -1/8) (* (/ h (* d d)) (/ (* M M) l))) 1) (.f64 #s(literal -1/8 binary64) (.f64 (.f64 M M) (.f64 (.f64 D D) (/.f64 h (.f64 (*.f64 l d) d))))))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(approx (+ (* (* (* D D) -1/8) (* (/ h (* d d)) (/ (* M M) l))) 1) (.f64 #s(literal -1/8 binary64) (.f64 (.f64 (.f64 M M) D) (.f64 D (/.f64 h (.f64 (*.f64 l d) d))))))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(approx (+ (* (* (* D D) -1/8) (* (/ h (* d d)) (/ (* M M) l))) 1) (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (.f64 (.f64 (.f64 D M) M) D) h) (.f64 (*.f64 d d) l))))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(approx (+ (* (* (* D D) -1/8) (* (/ h (* d d)) (/ (* M M) l))) 1) (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (.f64 (.f64 (.f64 M M) D) D) h) (.f64 (*.f64 d d) l))))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(approx (+ (* (* (* D D) -1/8) (/ (* (* (/ M d) M) h) (* d l))) 1) (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (.f64 (.f64 M M) h) (.f64 D D)) (.f64 (*.f64 d d) l))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (fma.f64 (/.f64 (.f64 (.f64 (.f64 (.f64 M M) D) D) (.f64 w0 h)) (.f64 (*.f64 d d) l)) #s(literal -1/8 binary64) w0))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (fma.f64 (/.f64 (.f64 (.f64 (.f64 (.f64 M M) h) w0) (.f64 D D)) (.f64 (*.f64 d d) l)) #s(literal -1/8 binary64) w0))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) (.f64 M (/.f64 (.f64 M h) (.f64 (.f64 l d) d))) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) (/.f64 (.f64 (.f64 M M) h) (.f64 (.f64 d d) l)) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) (/.f64 (.f64 (.f64 M M) h) (.f64 (.f64 l d) d)) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) (/.f64 (.f64 (.f64 M h) M) (.f64 (.f64 l d) d)) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(approx (+ (* (* (* D D) -1/8) (* (/ h (* d d)) (/ (* M M) l))) 1) (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (.f64 (.f64 M M) D) (.f64 l d)) (/.f64 (.f64 D h) d))))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) (.f64 (/.f64 M d) (/.f64 (.f64 h M) (*.f64 l d))) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) (.f64 (/.f64 h (.f64 d d)) (/.f64 (*.f64 M M) l)) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) (/.f64 (.f64 (.f64 (/.f64 M d) M) h) (*.f64 d l)) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 (.f64 (/.f64 h (.f64 d d)) M) (/.f64 M l)) D) (*.f64 #s(literal -1/8 binary64) D) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 (/.f64 M (.f64 l d)) (/.f64 (.f64 M h) d)) D) (*.f64 #s(literal -1/8 binary64) D) #s(literal 1 binary64))))
(.f64 w0 (sqrt.f64 #s(approx (/ (- ( 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 (.f64 (.f64 M M) D) D) h) (.f64 (*.f64 d d) l))))))
(.f64 w0 (sqrt.f64 #s(approx (/ (- ( 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)) (.f64 #s(literal -1/4 binary64) (.f64 (.f64 (.f64 (.f64 M M) D) D) (/.f64 h (.f64 (*.f64 d d) l)))))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 h #s(literal -1/4 binary64)) (.f64 M (.f64 (.f64 M D) (/.f64 D (.f64 (.f64 d d) l)))) #s(literal 1 binary64)))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 h #s(literal -1/4 binary64)) (.f64 M (.f64 (.f64 M D) (/.f64 D (.f64 (.f64 l d) d)))) #s(literal 1 binary64)))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 h #s(literal -1/4 binary64)) (.f64 M (/.f64 (.f64 (.f64 D M) D) (.f64 (.f64 l d) d))) #s(literal 1 binary64)))))

Outputs

#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) w0)

(*.f64 w0 (sqrt.f64 #s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (*.f64 h #s(literal -1/4 binary64)) (*.f64 M (/.f64 (*.f64 (*.f64 D M) D) (*.f64 (*.f64 l d) d))) #s(literal 1 binary64)))))

(*.f64 w0 #s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (*.f64 (*.f64 (/.f64 M (*.f64 l d)) (/.f64 (*.f64 M h) d)) D) (*.f64 #s(literal -1/8 binary64) D) #s(literal 1 binary64))))

Calls

4 calls:

6.0ms	(*.f64 M D)
6.0ms	(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))))
5.0ms	(.f64 (pow.f64 (/.f64 (.f64 M D) (*.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) (/.f64 h l))
5.0ms	(-.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)))

Results

Accuracy	Segments	Branch
84.7%	3	`(-.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.7%	3	`(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))))`
83.1%	2	`(.f64 (pow.f64 (/.f64 (.f64 M D) (*.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) (/.f64 h l))`
81.4%	1	`(*.f64 M D)`

Compiler

Compiled 47 to 51 computations (-8.5% saved)

regimes41.0ms (0.4%)

Memory

9.8MiB live, 57.2MiB allocated; 6ms collecting garbage

Counts

23 → 1

Calls

Call 1

Inputs
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) w0)
(.f64 w0 #s(approx (sqrt (/ (- ( 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(literal 1/2 binary64)))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(approx (+ (* (* (* D D) -1/8) (* (/ h (* d d)) (/ (* M M) l))) 1) (.f64 #s(literal -1/8 binary64) (.f64 (.f64 M M) (.f64 (.f64 D D) (/.f64 h (.f64 (*.f64 l d) d))))))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(approx (+ (* (* (* D D) -1/8) (* (/ h (* d d)) (/ (* M M) l))) 1) (.f64 #s(literal -1/8 binary64) (.f64 (.f64 (.f64 M M) D) (.f64 D (/.f64 h (.f64 (*.f64 l d) d))))))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(approx (+ (* (* (* D D) -1/8) (* (/ h (* d d)) (/ (* M M) l))) 1) (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (.f64 (.f64 (.f64 D M) M) D) h) (.f64 (*.f64 d d) l))))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(approx (+ (* (* (* D D) -1/8) (* (/ h (* d d)) (/ (* M M) l))) 1) (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (.f64 (.f64 (.f64 M M) D) D) h) (.f64 (*.f64 d d) l))))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(approx (+ (* (* (* D D) -1/8) (/ (* (* (/ M d) M) h) (* d l))) 1) (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (.f64 (.f64 M M) h) (.f64 D D)) (.f64 (*.f64 d d) l))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (fma.f64 (/.f64 (.f64 (.f64 (.f64 (.f64 M M) D) D) (.f64 w0 h)) (.f64 (*.f64 d d) l)) #s(literal -1/8 binary64) w0))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (fma.f64 (/.f64 (.f64 (.f64 (.f64 (.f64 M M) h) w0) (.f64 D D)) (.f64 (*.f64 d d) l)) #s(literal -1/8 binary64) w0))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) (.f64 M (/.f64 (.f64 M h) (.f64 (.f64 l d) d))) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) (/.f64 (.f64 (.f64 M M) h) (.f64 (.f64 d d) l)) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) (/.f64 (.f64 (.f64 M M) h) (.f64 (.f64 l d) d)) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) (/.f64 (.f64 (.f64 M h) M) (.f64 (.f64 l d) d)) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(approx (+ (* (* (* D D) -1/8) (* (/ h (* d d)) (/ (* M M) l))) 1) (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (.f64 (.f64 M M) D) (.f64 l d)) (/.f64 (.f64 D h) d))))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) (.f64 (/.f64 M d) (/.f64 (.f64 h M) (*.f64 l d))) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) (.f64 (/.f64 h (.f64 d d)) (/.f64 (*.f64 M M) l)) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) (/.f64 (.f64 (.f64 (/.f64 M d) M) h) (*.f64 d l)) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 (.f64 (/.f64 h (.f64 d d)) M) (/.f64 M l)) D) (*.f64 #s(literal -1/8 binary64) D) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 (/.f64 M (.f64 l d)) (/.f64 (.f64 M h) d)) D) (*.f64 #s(literal -1/8 binary64) D) #s(literal 1 binary64))))
(.f64 w0 (sqrt.f64 #s(approx (/ (- ( 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l)) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 (.f64 (.f64 M M) D) D) h) (.f64 (*.f64 d d) l))))))
(.f64 w0 (sqrt.f64 #s(approx (/ (- ( 2 l) (* 2 (/ (* (* h (* M (/ (/ D d) 2))) (* M D)) (* 2 d)))) (* 2 l)) (.f64 #s(literal -1/4 binary64) (.f64 (.f64 (.f64 (.f64 M M) D) D) (/.f64 h (.f64 (*.f64 d d) l)))))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 h #s(literal -1/4 binary64)) (.f64 M (.f64 (.f64 M D) (/.f64 D (.f64 (.f64 d d) l)))) #s(literal 1 binary64)))))
(.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 h #s(literal -1/4 binary64)) (.f64 M (.f64 (.f64 M D) (/.f64 D (.f64 (.f64 l d) d)))) #s(literal 1 binary64)))))

Outputs

(*.f64 w0 #s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (*.f64 (*.f64 (/.f64 M (*.f64 l d)) (/.f64 (*.f64 M h) d)) D) (*.f64 #s(literal -1/8 binary64) D) #s(literal 1 binary64))))

Calls

7 calls:

8.0ms	w0
6.0ms	h
6.0ms	(/.f64 h l)
5.0ms	(pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64))
5.0ms	(.f64 (pow.f64 (/.f64 (.f64 M D) (*.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) (/.f64 h l))

Results

Accuracy	Segments	Branch
81.4%	1	`(/.f64 h l)`
81.4%	1	`(pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64))`
81.4%	1	`w0`
81.4%	1	`h`
81.4%	1	`(.f64 (pow.f64 (/.f64 (.f64 M D) (*.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) (/.f64 h l))`
81.4%	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)))`
81.4%	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))))`

Compiler

Compiled 58 to 74 computations (-27.6% saved)

regimes72.0ms (0.8%)

Memory

12.2MiB live, 104.4MiB allocated; 4ms collecting garbage

Counts

18 → 2

Calls

Call 1

Inputs
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) w0)
(.f64 w0 #s(approx (sqrt (/ (- ( 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(literal 1/2 binary64)))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(approx (+ (* (* (* D D) -1/8) (* (/ h (* d d)) (/ (* M M) l))) 1) (.f64 #s(literal -1/8 binary64) (.f64 (.f64 M M) (.f64 (.f64 D D) (/.f64 h (.f64 (*.f64 l d) d))))))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(approx (+ (* (* (* D D) -1/8) (* (/ h (* d d)) (/ (* M M) l))) 1) (.f64 #s(literal -1/8 binary64) (.f64 (.f64 (.f64 M M) D) (.f64 D (/.f64 h (.f64 (*.f64 l d) d))))))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(approx (+ (* (* (* D D) -1/8) (* (/ h (* d d)) (/ (* M M) l))) 1) (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (.f64 (.f64 (.f64 D M) M) D) h) (.f64 (*.f64 d d) l))))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(approx (+ (* (* (* D D) -1/8) (* (/ h (* d d)) (/ (* M M) l))) 1) (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (.f64 (.f64 (.f64 M M) D) D) h) (.f64 (*.f64 d d) l))))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(approx (+ (* (* (* D D) -1/8) (/ (* (* (/ M d) M) h) (* d l))) 1) (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (.f64 (.f64 M M) h) (.f64 D D)) (.f64 (*.f64 d d) l))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (fma.f64 (/.f64 (.f64 (.f64 (.f64 (.f64 M M) D) D) (.f64 w0 h)) (.f64 (*.f64 d d) l)) #s(literal -1/8 binary64) w0))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (fma.f64 (/.f64 (.f64 (.f64 (.f64 (.f64 M M) h) w0) (.f64 D D)) (.f64 (*.f64 d d) l)) #s(literal -1/8 binary64) w0))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) (.f64 M (/.f64 (.f64 M h) (.f64 (.f64 l d) d))) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) (/.f64 (.f64 (.f64 M M) h) (.f64 (.f64 d d) l)) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) (/.f64 (.f64 (.f64 M M) h) (.f64 (.f64 l d) d)) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) (/.f64 (.f64 (.f64 M h) M) (.f64 (.f64 l d) d)) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(approx (+ (* (* (* D D) -1/8) (* (/ h (* d d)) (/ (* M M) l))) 1) (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (.f64 (.f64 M M) D) (.f64 l d)) (/.f64 (.f64 D h) d))))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) (.f64 (/.f64 M d) (/.f64 (.f64 h M) (*.f64 l d))) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) (.f64 (/.f64 h (.f64 d d)) (/.f64 (*.f64 M M) l)) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) (/.f64 (.f64 (.f64 (/.f64 M d) M) h) (*.f64 d l)) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 (.f64 (/.f64 h (.f64 d d)) M) (/.f64 M l)) D) (*.f64 #s(literal -1/8 binary64) D) #s(literal 1 binary64))))

Outputs

(*.f64 w0 #s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (*.f64 (*.f64 D D) #s(literal -1/8 binary64)) (*.f64 (/.f64 M d) (/.f64 (*.f64 h M) (*.f64 l d))) #s(literal 1 binary64))))

#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) w0)

Calls

15 calls:

5.0ms	(.f64 (pow.f64 (/.f64 (.f64 M D) (*.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) (/.f64 h l))
5.0ms	(*.f64 #s(literal 2 binary64) d)
5.0ms	D
5.0ms	d
5.0ms	h

Results

Accuracy	Segments	Branch
77.4%	2	`(*.f64 #s(literal 2 binary64) d)`
78.2%	2	`D`
77.4%	2	`d`
79.0%	2	`(/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d))`
81.1%	2	`(.f64 (pow.f64 (/.f64 (.f64 M D) (*.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) (/.f64 h l))`
72.3%	2	`l`
79.5%	2	`(*.f64 M D)`
80.8%	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)))))`
79.5%	2	`M`
78.8%	3	`(/.f64 h l)`
79.0%	2	`(pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64))`
80.8%	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)))`
80.8%	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))))`
77.3%	3	`w0`
72.6%	2	`h`

Compiler

Compiled 93 to 140 computations (-50.5% saved)

regimes16.0ms (0.2%)

Memory

-23.0MiB live, 23.1MiB allocated; 2ms collecting garbage

Counts

14 → 2

Calls

Call 1

Inputs
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) w0)
(.f64 w0 #s(approx (sqrt (/ (- ( 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(literal 1/2 binary64)))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(approx (+ (* (* (* D D) -1/8) (* (/ h (* d d)) (/ (* M M) l))) 1) (.f64 #s(literal -1/8 binary64) (.f64 (.f64 M M) (.f64 (.f64 D D) (/.f64 h (.f64 (*.f64 l d) d))))))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(approx (+ (* (* (* D D) -1/8) (* (/ h (* d d)) (/ (* M M) l))) 1) (.f64 #s(literal -1/8 binary64) (.f64 (.f64 (.f64 M M) D) (.f64 D (/.f64 h (.f64 (*.f64 l d) d))))))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(approx (+ (* (* (* D D) -1/8) (* (/ h (* d d)) (/ (* M M) l))) 1) (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (.f64 (.f64 (.f64 D M) M) D) h) (.f64 (*.f64 d d) l))))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(approx (+ (* (* (* D D) -1/8) (* (/ h (* d d)) (/ (* M M) l))) 1) (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (.f64 (.f64 (.f64 M M) D) D) h) (.f64 (*.f64 d d) l))))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(approx (+ (* (* (* D D) -1/8) (/ (* (* (/ M d) M) h) (* d l))) 1) (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (.f64 (.f64 M M) h) (.f64 D D)) (.f64 (*.f64 d d) l))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (fma.f64 (/.f64 (.f64 (.f64 (.f64 (.f64 M M) D) D) (.f64 w0 h)) (.f64 (*.f64 d d) l)) #s(literal -1/8 binary64) w0))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (fma.f64 (/.f64 (.f64 (.f64 (.f64 (.f64 M M) h) w0) (.f64 D D)) (.f64 (*.f64 d d) l)) #s(literal -1/8 binary64) w0))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) (.f64 M (/.f64 (.f64 M h) (.f64 (.f64 l d) d))) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) (/.f64 (.f64 (.f64 M M) h) (.f64 (.f64 d d) l)) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) (/.f64 (.f64 (.f64 M M) h) (.f64 (.f64 l d) d)) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) (/.f64 (.f64 (.f64 M h) M) (.f64 (.f64 l d) d)) #s(literal 1 binary64))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(approx (+ (* (* (* D D) -1/8) (* (/ h (* d d)) (/ (* M M) l))) 1) (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (.f64 (.f64 M M) D) (.f64 l d)) (/.f64 (.f64 D h) d))))))

Outputs

(*.f64 w0 #s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (*.f64 (*.f64 D D) #s(literal -1/8 binary64)) (*.f64 M (/.f64 (*.f64 M h) (*.f64 (*.f64 l d) d))) #s(literal 1 binary64))))

#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) w0)

Calls

4 calls:

4.0ms	(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))))
4.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)))))
3.0ms	(.f64 (pow.f64 (/.f64 (.f64 M D) (*.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) (/.f64 h l))
3.0ms	(-.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)))

Results

Accuracy	Segments	Branch
79.2%	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)))`
79.2%	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))))`
79.2%	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)))))`
79.9%	2	`(.f64 (pow.f64 (/.f64 (.f64 M D) (*.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) (/.f64 h l))`

Compiler

Compiled 62 to 61 computations (1.6% saved)

regimes16.0ms (0.2%)

Memory

26.8MiB live, 26.8MiB allocated; 0ms collecting garbage

Counts

9 → 2

Calls

Call 1

Inputs
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) w0)
(.f64 w0 #s(approx (sqrt (/ (- ( 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(literal 1/2 binary64)))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(approx (+ (* (* (* D D) -1/8) (* (/ h (* d d)) (/ (* M M) l))) 1) (.f64 #s(literal -1/8 binary64) (.f64 (.f64 M M) (.f64 (.f64 D D) (/.f64 h (.f64 (*.f64 l d) d))))))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(approx (+ (* (* (* D D) -1/8) (* (/ h (* d d)) (/ (* M M) l))) 1) (.f64 #s(literal -1/8 binary64) (.f64 (.f64 (.f64 M M) D) (.f64 D (/.f64 h (.f64 (*.f64 l d) d))))))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(approx (+ (* (* (* D D) -1/8) (* (/ h (* d d)) (/ (* M M) l))) 1) (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (.f64 (.f64 (.f64 D M) M) D) h) (.f64 (*.f64 d d) l))))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(approx (+ (* (* (* D D) -1/8) (* (/ h (* d d)) (/ (* M M) l))) 1) (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (.f64 (.f64 (.f64 M M) D) D) h) (.f64 (*.f64 d d) l))))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(approx (+ (* (* (* D D) -1/8) (/ (* (* (/ M d) M) h) (* d l))) 1) (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (.f64 (.f64 M M) h) (.f64 D D)) (.f64 (*.f64 d d) l))))))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (fma.f64 (/.f64 (.f64 (.f64 (.f64 (.f64 M M) D) D) (.f64 w0 h)) (.f64 (*.f64 d d) l)) #s(literal -1/8 binary64) w0))
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) (fma.f64 (/.f64 (.f64 (.f64 (.f64 (.f64 M M) h) w0) (.f64 D D)) (.f64 (*.f64 d d) l)) #s(literal -1/8 binary64) w0))

Outputs

(*.f64 w0 #s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(approx (+ (* (* (* D D) -1/8) (* (/ h (* d d)) (/ (* M M) l))) 1) (*.f64 #s(literal -1/8 binary64) (*.f64 (*.f64 M M) (*.f64 (*.f64 D D) (/.f64 h (*.f64 (*.f64 l d) d))))))))

#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) w0)

Calls

6 calls:

3.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)))))
3.0ms	M
3.0ms	(*.f64 M D)
2.0ms	(.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 1 binary64) (.f64 (pow.f64 (/.f64 (.f64 M D) (*.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) (/.f64 h l)))

Results

Accuracy	Segments	Branch
79.1%	3	`(-.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)))`
79.1%	3	`(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))))`
79.1%	3	`(.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)))))`
73.8%	2	`M`
73.9%	2	`(*.f64 M D)`
79.1%	2	`(.f64 (pow.f64 (/.f64 (.f64 M D) (*.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) (/.f64 h l))`

Compiler

Compiled 66 to 74 computations (-12.1% saved)

regimes21.0ms (0.2%)

Memory

-10.6MiB live, 37.3MiB allocated; 6ms collecting garbage

Accuracy

Total -0.9b remaining (-4.5%)

Threshold costs -0.9b (-4.5%)

Counts

2 → 1

Calls

Call 1

Inputs

#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) w0)

(*.f64 w0 #s(approx (sqrt (/ (- (* 2 l) (* 2 (* h (pow (* (/ D 2) (/ M d)) 2)))) (* 2 l))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(literal 1/2 binary64)))))

Outputs
#s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) w0)

Calls

15 calls:

4.0ms	(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	l
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	(*.f64 #s(literal 2 binary64) d)
1.0ms	d

Results

Accuracy	Segments	Branch
70.1%	1	`l`
70.1%	1	`h`
70.1%	1	`M`
70.1%	1	`(*.f64 M D)`
70.1%	1	`w0`
70.1%	1	`(/.f64 h l)`
70.1%	1	`(*.f64 #s(literal 2 binary64) d)`
70.1%	1	`d`
70.1%	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)))`
70.1%	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))))`
70.1%	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)))))`
70.1%	1	`D`
70.1%	1	`(/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d))`
70.1%	1	`(pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64))`
70.1%	1	`(.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)

bsearch1.0ms (0%)

Memory

1.1MiB live, 1.1MiB allocated; 0ms collecting garbage

Algorithm

1×	left-value

Steps

Time	Left	Right
0.0ms	+inf	NaN

Compiler

Compiled 21 to 26 computations (-23.8% saved)

bsearch1.0ms (0%)

Memory

1.1MiB live, 1.1MiB allocated; 0ms collecting garbage

Algorithm

2×	left-value

Steps

Time	Left	Right
0.0ms	1.0386008420358504e+146	1.924372931964531e+146
0.0ms	8.940488248749012e-121	2.684569485395309e-119

Compiler

Compiled 21 to 26 computations (-23.8% saved)

bsearch1.0ms (0%)

Memory

0.8MiB live, 0.8MiB allocated; 0ms collecting garbage

Algorithm

1×	left-value

Steps

Time	Left	Right
0.0ms	0.000165728303732657	52777315.88266228

Compiler

Compiled 21 to 26 computations (-23.8% saved)

bsearch1.0ms (0%)

Memory

0.8MiB live, 0.8MiB allocated; 0ms collecting garbage

Algorithm

1×	left-value

Steps

Time	Left	Right
0.0ms	25367477.143775832	101717042.54723386

Compiler

Compiled 21 to 26 computations (-23.8% saved)

bsearch1.0ms (0%)

Memory

0.8MiB live, 0.8MiB allocated; 0ms collecting garbage

Algorithm

1×	left-value

Steps

Time	Left	Right
0.0ms	-2.501187374731933e-143	-3.337022368499615e-151

Compiler

Compiled 21 to 26 computations (-23.8% saved)

bsearch1.0ms (0%)

Memory

0.8MiB live, 0.8MiB allocated; 0ms collecting garbage

Algorithm

1×	left-value

Steps

Time	Left	Right
0.0ms	1.0000000000000004	25367477.143775832

Compiler

Compiled 21 to 26 computations (-23.8% saved)

bsearch10.0ms (0.1%)

Memory

13.2MiB live, 13.2MiB allocated; 0ms collecting garbage

Algorithm

1×	binary-search

Stop Event

1×	narrow-enough

Steps

Time	Left	Right
9.0ms	8.53761703013817e+95	1.18178973547061e+96

Samples

6.0ms	64×	0	valid
0.0ms	3×	0	invalid

Compiler

Compiled 317 to 258 computations (18.6% saved)

Precisions

Click to see histograms. Total time spent on operations: 4.0ms

ival-mult: 2.0ms (49.2% of total)

ival-div: 1.0ms (24.6% of total)

ival-pow2: 1.0ms (24.6% of total)

adjust: 0.0ms (0% of total)

ival-assert: 0.0ms (0% of total)

ival-sub: 0.0ms (0% of total)

ival-true: 0.0ms (0% of total)

ival-sqrt: 0.0ms (0% of total)

exact: 0.0ms (0% of total)

bsearch1.0ms (0%)

Memory

0.9MiB live, 0.9MiB allocated; 0ms collecting garbage

Algorithm

2×	left-value

Steps

Time	Left	Right
0.0ms	1.3167215724121598e+148	5.1911432923967895e+150
0.0ms	8.940488248749012e-121	2.684569485395309e-119

Compiler

Compiled 21 to 26 computations (-23.8% saved)

bsearch1.0ms (0%)

Memory

0.9MiB live, 0.9MiB allocated; 0ms collecting garbage

Algorithm

2×	left-value

Steps

Time	Left	Right
0.0ms	2.311095918031061e+78	6.916307599384016e+81
0.0ms	1.0000000000000004	25367477.143775832

Compiler

Compiled 21 to 26 computations (-23.8% saved)

bsearch0.0ms (0%)

Memory

0.7MiB live, 0.7MiB allocated; 0ms collecting garbage

Algorithm

1×	left-value

Steps

Time	Left	Right
0.0ms	-5.3411643423398336e+156	-6.433982966543081e+123

Compiler

Compiled 21 to 26 computations (-23.8% saved)

bsearch0.0ms (0%)

Memory

0.6MiB live, 0.6MiB allocated; 0ms collecting garbage

Algorithm

1×	left-value

Steps

Time	Left	Right
0.0ms	-4.783531080929709e+163	-5.3411643423398336e+156

Compiler

Compiled 21 to 26 computations (-23.8% saved)

bsearch0.0ms (0%)

Memory

0.6MiB live, 0.6MiB allocated; 0ms collecting garbage

Algorithm

1×	left-value

Steps

Time	Left	Right
0.0ms	-4.783531080929709e+163	-5.3411643423398336e+156

Compiler

Compiled 21 to 26 computations (-23.8% saved)

simplify67.0ms (0.7%)

Memory

-17.9MiB live, 73.9MiB allocated; 6ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	181	1135
1	244	1135
2	506	1135
3	2601	1135
4	7721	1135

Stop Event

1×	node limit

Calls

Call 1

Inputs
(if (<=.f64 (.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(literal +inf.0 binary64)) (.f64 w0 (sqrt.f64 (-.f64 #s(literal 1 binary64) (.f64 (.f64 (/.f64 h l) (.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d))) (.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d)))))) (.f64 w0 (sqrt.f64 #s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 h #s(literal -1/4 binary64)) (.f64 (/.f64 D (.f64 l d)) (.f64 (*.f64 (/.f64 M d) M) D)) #s(literal 1 binary64))))))
(if (<=.f64 (.f64 M D) #s(literal 5814709794364855/5814709794364855124394590463104036274829130885498544482251921593445114304907183386609528405710108524486100172850129423468276813028917248 binary64)) (.f64 w0 (sqrt.f64 #s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (/.f64 (-.f64 l (/.f64 (.f64 (.f64 (.f64 (.f64 #s(literal 1/4 binary64) (.f64 D D)) M) (/.f64 M d)) h) d)) l)))) (if (<=.f64 (.f64 M D) #s(literal 150000000000000001135728871441952801480186278049104087614137307346696111157133452847432999902490073959424290028953886576151702384255386885663227904 binary64)) (.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 h #s(literal -1/4 binary64)) (/.f64 (.f64 (.f64 M D) (.f64 M D)) (.f64 (.f64 d l) d)) #s(literal 1 binary64))))) (.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 (.f64 #s(literal -1/4 binary64) h) (.f64 (.f64 (/.f64 M d) (/.f64 D d)) M)) (/.f64 D l) #s(literal 1 binary64)))))))
(if (<=.f64 (pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) #s(literal 7378697629483821/36893488147419103232 binary64)) (.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 h #s(literal -1/4 binary64)) (/.f64 (.f64 (.f64 (/.f64 D d) M) (.f64 D M)) (.f64 l d)) #s(literal 1 binary64))))) (.f64 w0 (sqrt.f64 #s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 (.f64 #s(literal -1/4 binary64) h) (/.f64 (.f64 (.f64 (/.f64 M d) M) D) d)) (/.f64 D l) #s(literal 1 binary64))))))
(if (<=.f64 (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(literal 50000000 binary64)) #s(approx ( w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) w0) (.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 (.f64 #s(literal -1/4 binary64) h) (.f64 (.f64 (/.f64 M d) (/.f64 D d)) M)) (/.f64 D l) #s(literal 1 binary64))))))
(if (<=.f64 (/.f64 h l) #s(literal -2196735251241795/109836762562089755439710412785302291476310964802292886550311415346968690934362496833960954250583272879636740982263693728593951807995466301001184452657840914432 binary64)) (.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 h #s(literal -1/4 binary64)) (/.f64 (.f64 (.f64 (/.f64 D d) M) (.f64 D M)) (.f64 l d)) #s(literal 1 binary64))))) (.f64 w0 (sqrt.f64 #s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 h #s(literal -1/4 binary64)) (.f64 (/.f64 D (.f64 l d)) (.f64 (*.f64 (/.f64 M d) M) D)) #s(literal 1 binary64))))))
(if (<=.f64 (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(literal 2 binary64)) #s(approx ( w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) w0) (.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 h #s(literal -1/4 binary64)) (.f64 (/.f64 D (.f64 l d)) (.f64 (*.f64 (/.f64 M d) M) D)) #s(literal 1 binary64))))))
(if (<=.f64 D #s(literal 1050000000000000058283291639454926873547616342155206141241060792023384697874499407358834203688960 binary64)) (.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 h #s(literal -1/4 binary64)) (.f64 (.f64 (/.f64 M d) M) (/.f64 (.f64 D D) (.f64 d l))) #s(literal 1 binary64))))) (.f64 w0 #s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 (/.f64 M (.f64 l d)) (/.f64 (.f64 M h) d)) D) (*.f64 #s(literal -1/8 binary64) D) #s(literal 1 binary64)))))
(if (<=.f64 (.f64 M D) #s(literal 5814709794364855/5814709794364855124394590463104036274829130885498544482251921593445114304907183386609528405710108524486100172850129423468276813028917248 binary64)) #s(approx ( w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) w0) (if (<=.f64 (.f64 M D) #s(literal 20000000000000000979534531503010411591444540070614877774900847491803365271867695123224630584945529275862261293630205535241068658373251704342045523968 binary64)) (.f64 w0 (sqrt.f64 #s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 h #s(literal -1/4 binary64)) (/.f64 (.f64 (.f64 M D) (.f64 M D)) (.f64 (.f64 d l) d)) #s(literal 1 binary64))))) (.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 (/.f64 M (.f64 l d)) (/.f64 (.f64 M h) d)) D) (*.f64 #s(literal -1/8 binary64) D) #s(literal 1 binary64))))))
(if (<=.f64 (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(literal 2 binary64)) #s(approx ( w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) w0) (if (<=.f64 (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(literal 4000000000000000033974485734758811904595479698395042463579996410811187623624704 binary64)) (.f64 w0 (sqrt.f64 #s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 h #s(literal -1/4 binary64)) (.f64 M (/.f64 (.f64 (.f64 D M) D) (.f64 (.f64 l d) d))) #s(literal 1 binary64))))) (.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 (/.f64 M (.f64 l d)) (/.f64 (.f64 M h) d)) D) (*.f64 #s(literal -1/8 binary64) D) #s(literal 1 binary64))))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 (/.f64 M (.f64 l d)) (/.f64 (.f64 M h) d)) D) (*.f64 #s(literal -1/8 binary64) D) #s(literal 1 binary64))))
(if (<=.f64 (.f64 (pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) (/.f64 h l)) #s(literal -4999999999999999916795901115958608572801861375087352681835038072302342087505062772657389384729693708756186941721815525337672536740822868667327551851630428160 binary64)) (.f64 w0 #s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) (.f64 (/.f64 M d) (/.f64 (.f64 h M) (.f64 l d))) #s(literal 1 binary64)))) #s(approx ( w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) w0))
(if (<=.f64 (.f64 (pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) (/.f64 h l)) #s(literal -39999999999999997513997585524655898658021006377558719415029012636907434355294600099714219878561722437395999184875768520127301083756345973430519596828062056049541120 binary64)) (.f64 w0 #s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) (.f64 M (/.f64 (.f64 M h) (.f64 (.f64 l d) d))) #s(literal 1 binary64)))) #s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) w0))
(if (<=.f64 (.f64 (pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) (/.f64 h l)) #s(literal -39999999999999997513997585524655898658021006377558719415029012636907434355294600099714219878561722437395999184875768520127301083756345973430519596828062056049541120 binary64)) (.f64 w0 #s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(approx (+ (* (* (* D D) -1/8) (* (/ h (* d d)) (/ (* M M) l))) 1) (.f64 #s(literal -1/8 binary64) (.f64 (.f64 M M) (.f64 (.f64 D D) (/.f64 h (.f64 (.f64 l d) d)))))))) #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))))) w0)

Outputs
(if (<=.f64 (.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(literal +inf.0 binary64)) (.f64 w0 (sqrt.f64 (-.f64 #s(literal 1 binary64) (.f64 (.f64 (/.f64 h l) (.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d))) (.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d)))))) (.f64 w0 (sqrt.f64 #s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 h #s(literal -1/4 binary64)) (.f64 (/.f64 D (.f64 l d)) (.f64 (*.f64 (/.f64 M d) M) D)) #s(literal 1 binary64))))))
(if (<=.f64 (.f64 M D) #s(literal 5814709794364855/5814709794364855124394590463104036274829130885498544482251921593445114304907183386609528405710108524486100172850129423468276813028917248 binary64)) (.f64 w0 (sqrt.f64 #s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (/.f64 (-.f64 l (/.f64 (.f64 (.f64 (.f64 (.f64 #s(literal 1/4 binary64) (.f64 D D)) M) (/.f64 M d)) h) d)) l)))) (if (<=.f64 (.f64 M D) #s(literal 150000000000000001135728871441952801480186278049104087614137307346696111157133452847432999902490073959424290028953886576151702384255386885663227904 binary64)) (.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 h #s(literal -1/4 binary64)) (/.f64 (.f64 (.f64 M D) (.f64 M D)) (.f64 (.f64 d l) d)) #s(literal 1 binary64))))) (.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 (.f64 #s(literal -1/4 binary64) h) (.f64 (.f64 (/.f64 M d) (/.f64 D d)) M)) (/.f64 D l) #s(literal 1 binary64)))))))
(if (<=.f64 (pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) #s(literal 7378697629483821/36893488147419103232 binary64)) (.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 h #s(literal -1/4 binary64)) (/.f64 (.f64 (.f64 (/.f64 D d) M) (.f64 D M)) (.f64 l d)) #s(literal 1 binary64))))) (.f64 w0 (sqrt.f64 #s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 (.f64 #s(literal -1/4 binary64) h) (/.f64 (.f64 (.f64 (/.f64 M d) M) D) d)) (/.f64 D l) #s(literal 1 binary64))))))
(if (<=.f64 (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(literal 50000000 binary64)) #s(approx ( w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) w0) (.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 (.f64 #s(literal -1/4 binary64) h) (.f64 (.f64 (/.f64 M d) (/.f64 D d)) M)) (/.f64 D l) #s(literal 1 binary64))))))
(if (<=.f64 (/.f64 h l) #s(literal -2196735251241795/109836762562089755439710412785302291476310964802292886550311415346968690934362496833960954250583272879636740982263693728593951807995466301001184452657840914432 binary64)) (.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 h #s(literal -1/4 binary64)) (/.f64 (.f64 (.f64 (/.f64 D d) M) (.f64 D M)) (.f64 l d)) #s(literal 1 binary64))))) (.f64 w0 (sqrt.f64 #s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 h #s(literal -1/4 binary64)) (.f64 (/.f64 D (.f64 l d)) (.f64 (*.f64 (/.f64 M d) M) D)) #s(literal 1 binary64))))))
(if (<=.f64 (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(literal 2 binary64)) #s(approx ( w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) w0) (.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 h #s(literal -1/4 binary64)) (.f64 (/.f64 D (.f64 l d)) (.f64 (*.f64 (/.f64 M d) M) D)) #s(literal 1 binary64))))))
(if (<=.f64 D #s(literal 1050000000000000058283291639454926873547616342155206141241060792023384697874499407358834203688960 binary64)) (.f64 w0 (sqrt.f64 #s(approx (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 h #s(literal -1/4 binary64)) (.f64 (.f64 (/.f64 M d) M) (/.f64 (.f64 D D) (.f64 d l))) #s(literal 1 binary64))))) (.f64 w0 #s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 (/.f64 M (.f64 l d)) (/.f64 (.f64 M h) d)) D) (*.f64 #s(literal -1/8 binary64) D) #s(literal 1 binary64)))))
(if (<=.f64 (.f64 M D) #s(literal 5814709794364855/5814709794364855124394590463104036274829130885498544482251921593445114304907183386609528405710108524486100172850129423468276813028917248 binary64)) #s(approx ( w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) w0) (if (<=.f64 (.f64 M D) #s(literal 20000000000000000979534531503010411591444540070614877774900847491803365271867695123224630584945529275862261293630205535241068658373251704342045523968 binary64)) (.f64 w0 (sqrt.f64 #s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 h #s(literal -1/4 binary64)) (/.f64 (.f64 (.f64 M D) (.f64 M D)) (.f64 (.f64 d l) d)) #s(literal 1 binary64))))) (.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 (/.f64 M (.f64 l d)) (/.f64 (.f64 M h) d)) D) (*.f64 #s(literal -1/8 binary64) D) #s(literal 1 binary64))))))
(if (<=.f64 (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(literal 2 binary64)) #s(approx ( w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) w0) (if (<=.f64 (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(literal 4000000000000000033974485734758811904595479698395042463579996410811187623624704 binary64)) (.f64 w0 (sqrt.f64 #s(approx (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))) (fma.f64 (.f64 h #s(literal -1/4 binary64)) (.f64 M (/.f64 (.f64 (.f64 D M) D) (.f64 (.f64 l d) d))) #s(literal 1 binary64))))) (.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 (/.f64 M (.f64 l d)) (/.f64 (.f64 M h) d)) D) (*.f64 #s(literal -1/8 binary64) D) #s(literal 1 binary64))))))
(.f64 w0 #s(approx (sqrt (- 1 ( (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 (/.f64 M (.f64 l d)) (/.f64 (.f64 M h) d)) D) (*.f64 #s(literal -1/8 binary64) D) #s(literal 1 binary64))))
(if (<=.f64 (.f64 (pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) (/.f64 h l)) #s(literal -4999999999999999916795901115958608572801861375087352681835038072302342087505062772657389384729693708756186941721815525337672536740822868667327551851630428160 binary64)) (.f64 w0 #s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) (.f64 (/.f64 M d) (/.f64 (.f64 h M) (.f64 l d))) #s(literal 1 binary64)))) #s(approx ( w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) w0))
(if (<=.f64 (.f64 (pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) (/.f64 h l)) #s(literal -39999999999999997513997585524655898658021006377558719415029012636907434355294600099714219878561722437395999184875768520127301083756345973430519596828062056049541120 binary64)) (.f64 w0 #s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) (fma.f64 (.f64 (.f64 D D) #s(literal -1/8 binary64)) (.f64 M (/.f64 (.f64 M h) (.f64 (.f64 l d) d))) #s(literal 1 binary64)))) #s(approx (* w0 (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l))))) w0))
(if (<=.f64 (.f64 (pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) (/.f64 h l)) #s(literal -39999999999999997513997585524655898658021006377558719415029012636907434355294600099714219878561722437395999184875768520127301083756345973430519596828062056049541120 binary64)) (.f64 w0 #s(approx (sqrt (- 1 (* (pow (/ (* M D) (* 2 d)) 2) (/ h l)))) #s(approx (+ (* (* (* D D) -1/8) (* (/ h (* d d)) (/ (* M M) l))) 1) (.f64 #s(literal -1/8 binary64) (.f64 (.f64 M M) (.f64 (.f64 D D) (/.f64 h (.f64 (.f64 l d) d)))))))) #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))))) w0)

derivations307.0ms (3.4%)

Memory

-4.9MiB live, 280.2MiB allocated; 54ms collecting garbage

Stop Event

1×

fuel

Compiler

Compiled 1 135 to 184 computations (83.8% saved)

preprocess123.0ms (1.4%)

Memory

9.6MiB live, 197.1MiB allocated; 18ms collecting garbage

Remove

(negabs w0)

(abs d)

Compiler

Compiled 3 618 to 1 170 computations (67.7% saved)

end0.0ms (0%)

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

start0.0ms (0%)

analyze719.0ms (7.9%)

sample2.8s (30.9%)

explain228.0ms (2.5%)

preprocess151.0ms (1.7%)

eval0.0ms (0%)

prune0.0ms (0%)

simplify92.0ms (1%)

localize61.0ms (0.7%)

series70.0ms (0.8%)

simplify180.0ms (2%)

rewrite61.0ms (0.7%)

eval25.0ms (0.3%)

prune7.0ms (0.1%)

simplify154.0ms (1.7%)

localize215.0ms (2.3%)

series171.0ms (1.9%)

simplify362.0ms (4%)

rewrite125.0ms (1.4%)

eval82.0ms (0.9%)

prune26.0ms (0.3%)

simplify136.0ms (1.5%)

localize254.0ms (2.8%)

series263.0ms (2.9%)

simplify238.0ms (2.6%)

rewrite97.0ms (1.1%)

eval99.0ms (1.1%)

prune36.0ms (0.4%)

simplify140.0ms (1.5%)

localize235.0ms (2.6%)

series132.0ms (1.4%)

simplify237.0ms (2.6%)

rewrite97.0ms (1.1%)

eval97.0ms (1.1%)

prune50.0ms (0.5%)

regimes261.0ms (2.9%)

regimes151.0ms (1.7%)

regimes30.0ms (0.3%)

regimes34.0ms (0.4%)

regimes88.0ms (1%)

regimes72.0ms (0.8%)

regimes120.0ms (1.3%)

regimes16.0ms (0.2%)

regimes23.0ms (0.3%)

regimes41.0ms (0.4%)

regimes72.0ms (0.8%)

regimes16.0ms (0.2%)

regimes16.0ms (0.2%)

regimes21.0ms (0.2%)

bsearch1.0ms (0%)

bsearch1.0ms (0%)

bsearch1.0ms (0%)

bsearch1.0ms (0%)

bsearch1.0ms (0%)

bsearch1.0ms (0%)

bsearch10.0ms (0.1%)

bsearch1.0ms (0%)

bsearch1.0ms (0%)

bsearch0.0ms (0%)

bsearch0.0ms (0%)

bsearch0.0ms (0%)

simplify67.0ms (0.7%)

derivations307.0ms (3.4%)

preprocess123.0ms (1.4%)

end0.0ms (0%)

Profiling