Metrics for Henrywood and Agarwal, Equation (12)

start0.0ms (0%)

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

analyze629.0ms (6%)

Memory

-7.2MiB live, 1 035.3MiB allocated; 242ms collecting garbage

Algorithm

1×

Search

Probability	Valid	Unknown	Precondition	Infinite	Domain	Can't	Iter
0%	0%	99.8%	0.2%	0%	0%	0%	0
0%	0%	99.8%	0.2%	0%	0%	0%	1
0%	0%	99.8%	0.2%	0%	0%	0%	2
0%	0%	99.8%	0.2%	0%	0%	0%	3
12.5%	12.5%	87.3%	0.2%	0%	0%	0%	4
12.5%	12.5%	87.3%	0.2%	0%	0%	0%	5
12.5%	12.5%	87.3%	0.2%	0%	0%	0%	6
15.4%	12.5%	68.6%	0.2%	0%	18.7%	0%	7
16.7%	12.5%	62.3%	0.2%	0%	24.9%	0%	8
20%	14%	56.1%	0.2%	0%	29.6%	0%	9
20%	14%	56.1%	0.2%	0%	29.6%	0%	10
20%	14%	56.1%	0.2%	0%	29.6%	0%	11
22.9%	14.8%	49.9%	0.2%	0%	35.1%	0%	12

Compiler

Compiled 37 to 24 computations (35.1% saved)

sample5.9s (56.7%)

Memory

50.4MiB live, 7 579.9MiB allocated; 2.4s collecting garbage

Samples

2.9s	13 139×	0	invalid
1.9s	8 256×	0	valid

Precisions

Click to see histograms. Total time spent on operations: 3.0s

ival-mult: 989.0ms (32.9% of total)

ival-div: 949.0ms (31.6% of total)

ival-pow: 621.0ms (20.7% of total)

ival-pow2: 288.0ms (9.6% of total)

ival-sub: 120.0ms (4% of total)

exact: 23.0ms (0.8% of total)

adjust: 7.0ms (0.2% of total)

ival-assert: 7.0ms (0.2% of total)

Bogosity

explain387.0ms (3.7%)

Memory

28.6MiB live, 688.1MiB allocated; 120ms collecting garbage

FPErrors

Click to see full error table

Ground Truth	Example	Underpredictions	Example	Subexpression
68	-	5	(-2.094940144254385e-47 -2.9463886477292917e+265 -2.0903413650756243e+148 -486762347401.8691 2.2446119251437247e+260)	`(pow.f64 (/.f64 d h) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)))`
58	-	4	(5.2346499390457676e-141 2.427951229946019e-251 4.803588338616935e+170 6.750160001483815e+152 -1.092737304344951e-66)	`(pow.f64 (/.f64 d l) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)))`
41	-	2	(6.787688360359194e-222 5.871782854408131e-127 8.292939795285831e+186 2.820515235356473e+31 5.697156164941015e-226)	`(.f64 (.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) (pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64))) (/.f64 h l))`
26	-	1	(-5.908117307909541e-233 -3.224517669180776e+36 -1.6563562859779083e+136 1.9806359886958367e-174 1.0778298537497736e+43)	`(.f64 (.f64 (pow.f64 (/.f64 d h) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64))) (pow.f64 (/.f64 d l) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)))) (-.f64 #s(literal 1 binary64) (.f64 (.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) (pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64))) (/.f64 h l))))`
16	-	1	(-1.9670539713104167e-8 -5.889116286214478e+95 -1.069958090521333e+59 -1.0611492679837145e-65 -3.2947890007671494e-250)	`(/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d))`
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 d l)`
0	-	0	-	`(*.f64 M D)`
0	-	0	-	`(/.f64 #s(literal 1 binary64) #s(literal 2 binary64))`
0	-	0	-	`(/.f64 d h)`
0	-	0	-	`(-.f64 #s(literal 1 binary64) (.f64 (.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) (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	-	`(*.f64 (pow.f64 (/.f64 d h) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64))) (pow.f64 (/.f64 d l) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64))))`
0	-	0	-	`M`
0	-	0	-	`h`
0	-	0	-	`(.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) (pow.f64 (/.f64 (.f64 M D) (*.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)))`

Explanations

Click to see full explanations table

Operator	Subexpression	Explanation	Count
`pow.f64`	`(pow.f64 (/.f64 d h) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)))`	uflow-rescue	35	0
↳	`(/.f64 d h)`	underflow	35
`pow.f64`	`(pow.f64 (/.f64 d h) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)))`	oflow-rescue	28	0
↳	`(/.f64 d h)`	overflow	28
`pow.f64`	`(pow.f64 (/.f64 d l) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)))`	uflow-rescue	27	0
↳	`(/.f64 d l)`	underflow	27
`pow.f64`	`(pow.f64 (/.f64 d l) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)))`	oflow-rescue	27	0
↳	`(/.f64 d l)`	overflow	27
`*.f64`	`(.f64 (.f64 (pow.f64 (/.f64 d h) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64))) (pow.f64 (/.f64 d l) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)))) (-.f64 #s(literal 1 binary64) (.f64 (.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) (pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64))) (/.f64 h l))))`	*uo**	12	0
↳	`(/.f64 d h)`	underflow	35
↳	`(/.f64 d l)`	underflow	27
↳	`(*.f64 (pow.f64 (/.f64 d h) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64))) (pow.f64 (/.f64 d l) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64))))`	underflow	24
↳	`(pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64))`	overflow	83
↳	`(.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) (pow.f64 (/.f64 (.f64 M D) (*.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)))`	overflow	83
↳	`(/.f64 h l)`	overflow	31
↳	`(-.f64 #s(literal 1 binary64) (.f64 (.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) (pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64))) (/.f64 h l)))`	overflow	87
↳	`(.f64 (.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) (pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64))) (/.f64 h l))`	overflow	87
↳	`(*.f64 M D)`	overflow	30
↳	`(/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d))`	overflow	41
`*.f64`	`(.f64 (.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) (pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64))) (/.f64 h l))`	*no**	10	0
`/.f64`	`(/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d))`	o/n	10	0
↳	`(*.f64 M D)`	overflow	30
`*.f64`	`(.f64 (.f64 (pow.f64 (/.f64 d h) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64))) (pow.f64 (/.f64 d l) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)))) (-.f64 #s(literal 1 binary64) (.f64 (.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) (pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64))) (/.f64 h l))))`	*no**	8	0
`*.f64`	`(.f64 (.f64 (pow.f64 (/.f64 d h) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64))) (pow.f64 (/.f64 d l) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)))) (-.f64 #s(literal 1 binary64) (.f64 (.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) (pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64))) (/.f64 h l))))`	*nu**	5	0
`*.f64`	`(.f64 (.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) (pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64))) (/.f64 h l))`	*ou**	5	0
↳	`(pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64))`	overflow	83
↳	`(.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) (pow.f64 (/.f64 (.f64 M D) (*.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)))`	overflow	83
↳	`(*.f64 M D)`	overflow	30
↳	`(/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d))`	overflow	41
↳	`(/.f64 h l)`	underflow	31
`/.f64`	`(/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d))`	u/n	1	0
↳	`(*.f64 M D)`	underflow	26

Confusion

	Predicted +	Predicted -
+	84	6
-	33	133

Precision

0.717948717948718

Recall

0.9333333333333333

Confusion?

	Predicted +	Predicted Maybe	Predicted -
+	84	0	6
-	33	0	133

Precision?

0.717948717948718

Recall?

0.9333333333333333

Freqs

test

number	freq
0	139
1	78
2	27
3	12

Total Confusion?

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

Precision?

1.0

Recall?

1.0

Samples

95.0ms

512×

valid

Compiler

Compiled 347 to 70 computations (79.8% saved)

Precisions

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

ival-pow: 22.0ms (32.9% of total)

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

ival-mult: 17.0ms (25.4% of total)

ival-pow2: 6.0ms (9% of total)

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

exact: 1.0ms (1.5% of total)

adjust: 0.0ms (0% of total)

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

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

preprocess149.0ms (1.4%)

Memory

10.5MiB live, 147.5MiB allocated; 30ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	171	588
1	546	580
2	2128	575
3	6640	575
0	22	29
0	38	27
1	67	27
2	180	27
3	1202	27
4	4872	27
0	8241	27

Stop Event

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

Calls

Call 1

Inputs

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

Outputs

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

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

Symmetry

(abs M)

(abs D)

(sort M D)

Compiler

Compiled 35 to 22 computations (37.1% saved)

eval0.0ms (0%)

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

prune1.0ms (0%)

Memory

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

Alt Table

Click to see full alt table

Status	Accuracy	Program
▶	66.4%	(.f64 (.f64 (pow.f64 (/.f64 d h) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64))) (pow.f64 (/.f64 d l) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)))) (-.f64 #s(literal 1 binary64) (.f64 (.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) (pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64))) (/.f64 h l))))

Status

Accuracy

Program

▶

66.4%

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

Compiler

Compiled 35 to 22 computations (37.1% saved)

series108.0ms (1%)

Memory

8.7MiB live, 149.3MiB allocated; 35ms collecting garbage

Counts

22 → 48

Calls

Call 1

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

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

Calls

15 calls:

Time	Variable		Point	Expression
27.0ms	D	@	0	((* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (pow (/ d h) (/ 1 2)) (/ d h) d h (/ 1 2) 1 2 (pow (/ d l) (/ 1 2)) (/ d l) l (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)) (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (pow (/ (* M D) (* 2 d)) 2) (/ (* M D) (* 2 d)) (* M D) M D (* 2 d) (/ h l))
10.0ms	d	@	0	((* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (pow (/ d h) (/ 1 2)) (/ d h) d h (/ 1 2) 1 2 (pow (/ d l) (/ 1 2)) (/ d l) l (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)) (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (pow (/ (* M D) (* 2 d)) 2) (/ (* M D) (* 2 d)) (* M D) M D (* 2 d) (/ h l))
9.0ms	d	@	inf	((* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (pow (/ d h) (/ 1 2)) (/ d h) d h (/ 1 2) 1 2 (pow (/ d l) (/ 1 2)) (/ d l) l (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)) (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (pow (/ (* M D) (* 2 d)) 2) (/ (* M D) (* 2 d)) (* M D) M D (* 2 d) (/ h l))
9.0ms	l	@	inf	((* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (pow (/ d h) (/ 1 2)) (/ d h) d h (/ 1 2) 1 2 (pow (/ d l) (/ 1 2)) (/ d l) l (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)) (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (pow (/ (* M D) (* 2 d)) 2) (/ (* M D) (* 2 d)) (* M D) M D (* 2 d) (/ h l))
8.0ms	h	@	0	((* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (pow (/ d h) (/ 1 2)) (/ d h) d h (/ 1 2) 1 2 (pow (/ d l) (/ 1 2)) (/ d l) l (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)) (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (pow (/ (* M D) (* 2 d)) 2) (/ (* M D) (* 2 d)) (* M D) M D (* 2 d) (/ h l))

rewrite62.0ms (0.6%)

Memory

9.6MiB live, 54.7MiB allocated; 9ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	229	1681
0	254	1533
0	981	1533

Stop Event

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

Counts

70 → 102

Calls

Call 1

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

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

eval25.0ms (0.2%)

Memory: -23.2MiB live, 22.2MiB allocated; 6ms collecting garbage
Compiler: Compiled 4 868 to 496 computations (89.8% saved)

prune28.0ms (0.3%)

Memory

-6.4MiB live, 39.4MiB allocated; 4ms collecting garbage

Pruning

25 alts after pruning (25 fresh and 0 done)

	Pruned	Kept	Total
New	93	25	118
Fresh	0	0	0
Picked	1	0	1
Done	0	0	0
Total	94	25	119

Accuracy

93.2%

Counts

119 → 25

Alt Table

Click to see full alt table

Status	Accuracy	Program
	54.3%	(.f64 (pow.f64 (.f64 (/.f64 d h) (/.f64 d l)) #s(literal 1/2 binary64)) (-.f64 #s(literal 1 binary64) (.f64 (.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) (pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64))) (/.f64 h l))))
	66.0%	(.f64 (-.f64 #s(literal 1 binary64) (.f64 (/.f64 h l) (.f64 (pow.f64 (.f64 (/.f64 M #s(literal 2 binary64)) (/.f64 D d)) #s(literal 2 binary64)) #s(literal 1/2 binary64)))) (*.f64 (sqrt.f64 (/.f64 d l)) (sqrt.f64 (/.f64 d h))))
▶	68.4%	(.f64 (.f64 (pow.f64 (/.f64 d h) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64))) (pow.f64 (/.f64 d l) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)))) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (pow.f64 (*.f64 (/.f64 M #s(literal 2 binary64)) (/.f64 D d)) #s(literal 2 binary64)) #s(literal 1/2 binary64)) h) l)))
	54.8%	(.f64 (.f64 (pow.f64 (/.f64 d h) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64))) (pow.f64 (/.f64 d l) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)))) (-.f64 #s(literal 1 binary64) (.f64 #s(approx ( (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/.f64 (.f64 #s(literal 1/8 binary64) (pow.f64 (.f64 D M) #s(literal 2 binary64))) (*.f64 d d))) (/.f64 h l))))
	55.9%	(.f64 (.f64 (pow.f64 (/.f64 d h) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64))) (pow.f64 (/.f64 d l) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)))) #s(approx (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (/.f64 (-.f64 l (/.f64 (.f64 #s(literal 1/8 binary64) (.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) h)) (.f64 d d))) l)))
	26.7%	(.f64 (.f64 (pow.f64 (/.f64 d h) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64))) (pow.f64 (/.f64 d l) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)))) #s(approx (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (/.f64 (.f64 #s(literal -1/8 binary64) (.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) h)) (.f64 (*.f64 d d) l))))
	54.1%	(.f64 (.f64 (pow.f64 (/.f64 d h) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64))) (pow.f64 (/.f64 d l) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)))) #s(approx (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (.f64 (-.f64 (pow.f64 h #s(literal -1 binary64)) (/.f64 (.f64 #s(literal 1/8 binary64) (pow.f64 (.f64 D M) #s(literal 2 binary64))) (.f64 (*.f64 d d) l))) h)))
	29.3%	(.f64 (.f64 (pow.f64 (/.f64 d h) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64))) (pow.f64 (/.f64 d l) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)))) #s(approx (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (.f64 (-.f64 (pow.f64 M #s(literal -2 binary64)) (/.f64 (.f64 #s(literal 1/8 binary64) (.f64 (.f64 D D) h)) (.f64 (.f64 d d) l))) (*.f64 M M))))
▶	39.7%	(.f64 (.f64 (pow.f64 (/.f64 d h) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64))) (pow.f64 (/.f64 d l) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)))) #s(approx (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (.f64 (-.f64 (pow.f64 D #s(literal -2 binary64)) (/.f64 (.f64 #s(literal 1/8 binary64) (.f64 (.f64 M M) h)) (.f64 (.f64 d d) l))) (*.f64 D D))))
	34.2%	(.f64 (.f64 (pow.f64 (/.f64 d h) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64))) (/.f64 (sqrt.f64 d) (sqrt.f64 l))) (-.f64 #s(literal 1 binary64) (.f64 (.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) (pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64))) (/.f64 h l))))
	66.4%	(.f64 (.f64 (pow.f64 (/.f64 d h) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64))) (.f64 (pow.f64 (/.f64 d l) #s(literal 1/4 binary64)) (pow.f64 (/.f64 d l) #s(literal 1/4 binary64)))) (-.f64 #s(literal 1 binary64) (.f64 (.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) (pow.f64 (/.f64 (.f64 M D) (*.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64))) (/.f64 h l))))
	64.3%	(.f64 (.f64 (pow.f64 (/.f64 d h) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64))) (exp.f64 (.f64 (log.f64 (/.f64 d l)) #s(literal 1/2 binary64)))) (-.f64 #s(literal 1 binary64) (.f64 (.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) (pow.f64 (/.f64 (.f64 M D) (*.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64))) (/.f64 h l))))
	66.4%	(.f64 (.f64 (sqrt.f64 (/.f64 d l)) (sqrt.f64 (/.f64 d h))) (-.f64 #s(literal 1 binary64) (.f64 (.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) (pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64))) (/.f64 h l))))
	65.7%	(.f64 (sqrt.f64 (/.f64 d h)) (.f64 (sqrt.f64 (/.f64 d l)) (-.f64 #s(literal 1 binary64) (.f64 (/.f64 h l) (.f64 (pow.f64 (*.f64 (/.f64 M #s(literal 2 binary64)) (/.f64 D d)) #s(literal 2 binary64)) #s(literal 1/2 binary64))))))
	37.9%	(.f64 #s(approx ( (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (.f64 (.f64 #s(literal -1 binary64) d) (sqrt.f64 (pow.f64 (.f64 l h) #s(literal -1 binary64))))) (-.f64 #s(literal 1 binary64) (.f64 (.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) (pow.f64 (/.f64 (.f64 M D) (*.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64))) (/.f64 h l))))
	35.1%	(.f64 #s(approx ( (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (.f64 (sqrt.f64 (pow.f64 (.f64 l h) #s(literal -1 binary64))) d)) (-.f64 #s(literal 1 binary64) (.f64 (.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) (pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64))) (/.f64 h l))))
	19.6%	#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (/.f64 (+.f64 (.f64 (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) h)) d) (.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) d)) (sqrt.f64 (.f64 l h)))) (.f64 l l)))
	49.1%	#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (/.f64 (+.f64 (.f64 (sqrt.f64 (/.f64 h l)) d) (.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) d)) (sqrt.f64 (pow.f64 (/.f64 h l) #s(literal 3 binary64))))) h))
	12.9%	#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 (+.f64 (.f64 (/.f64 d (.f64 M M)) (sqrt.f64 (pow.f64 (.f64 l h) #s(literal -1 binary64)))) (.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 D D) d)) (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64)))))) (.f64 M M)))
▶	19.6%	#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 (+.f64 (.f64 (/.f64 d (.f64 D D)) (sqrt.f64 (pow.f64 (.f64 l h) #s(literal -1 binary64)))) (.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 M M) d)) (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64)))))) (.f64 D D)))
	33.1%	#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 (+.f64 (.f64 (sqrt.f64 (pow.f64 (.f64 (pow.f64 h #s(literal 3 binary64)) l) #s(literal -1 binary64))) d) (.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) d)) (sqrt.f64 (pow.f64 (*.f64 (pow.f64 l #s(literal 3 binary64)) h) #s(literal -1 binary64))))) h))
	20.0%	#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 (*.f64 D M) #s(literal 2 binary64)) d)) (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64))))))
▶	22.0%	#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) #s(literal -1 binary64)) d)) (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64))))))
	25.1%	#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 (.f64 #s(literal -1 binary64) d) (sqrt.f64 (pow.f64 (*.f64 l h) #s(literal -1 binary64)))))
▶	23.6%	#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 (sqrt.f64 (pow.f64 (.f64 l h) #s(literal -1 binary64))) d))

Compiler

Compiled 2 366 to 1 580 computations (33.2% saved)

series259.0ms (2.5%)

Memory

21.1MiB live, 328.4MiB allocated; 111ms collecting garbage

Counts

63 → 154

Calls

Call 1

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

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

Calls

15 calls:

Time	Variable		Point	Expression
49.0ms	D	@	0	((* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (/ (* (* (pow (* (/ M 2) (/ D d)) 2) 1/2) h) l))) (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (pow (/ d h) (/ 1 2)) (/ d h) d h (/ 1 2) 1 2 (pow (/ d l) (/ 1 2)) (/ d l) l (- 1 (/ (* (* (pow (* (/ M 2) (/ D d)) 2) 1/2) h) l)) (/ (* (* (pow (* (/ M 2) (/ D d)) 2) 1/2) h) l) (* (* (pow (* (/ M 2) (/ D d)) 2) 1/2) h) (* (pow (* (/ M 2) (/ D d)) 2) 1/2) (pow (* (/ M 2) (/ D d)) 2) (* (/ M 2) (/ D d)) (/ M 2) M (/ D d) D 1/2 (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (* (sqrt (pow (* l h) -1)) d) (sqrt (pow (* l h) -1)) (pow (* l h) -1) (* l h) -1 (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (* (* -1/8 (/ (* (pow (* D M) 2) -1) d)) (sqrt (/ h (pow l 3)))) (* -1/8 (/ (* (pow (* D M) 2) -1) d)) -1/8 (/ (* (pow (* D M) 2) -1) d) (* (pow (* D M) 2) -1) (pow (* D M) 2) (* D M) (sqrt (/ h (pow l 3))) (/ h (pow l 3)) (pow l 3) 3 (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (* (+ (* (/ d (* D D)) (sqrt (pow (* l h) -1))) (* (* -1/8 (/ (* M M) d)) (sqrt (/ h (pow l 3))))) (* D D)) (+ (* (/ d (* D D)) (sqrt (pow (* l h) -1))) (* (* -1/8 (/ (* M M) d)) (sqrt (/ h (pow l 3))))) (* (/ d (* D D)) (sqrt (pow (* l h) -1))) (/ d (* D D)) (* D D) (* (* -1/8 (/ (* M M) d)) (sqrt (/ h (pow l 3)))) (* -1/8 (/ (* M M) d)) (/ (* M M) d) (* M M) (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (* (- (pow D -2) (/ (* 1/8 (* (* M M) h)) (* (* d d) l))) (* D D)) (- (pow D -2) (/ (* 1/8 (* (* M M) h)) (* (* d d) l))) (pow D -2) -2 (/ (* 1/8 (* (* M M) h)) (* (* d d) l)) (* 1/8 (* (* M M) h)) 1/8 (* (* M M) h) (* (* d d) l) (* d d))
35.0ms	M	@	0	((* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (/ (* (* (pow (* (/ M 2) (/ D d)) 2) 1/2) h) l))) (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (pow (/ d h) (/ 1 2)) (/ d h) d h (/ 1 2) 1 2 (pow (/ d l) (/ 1 2)) (/ d l) l (- 1 (/ (* (* (pow (* (/ M 2) (/ D d)) 2) 1/2) h) l)) (/ (* (* (pow (* (/ M 2) (/ D d)) 2) 1/2) h) l) (* (* (pow (* (/ M 2) (/ D d)) 2) 1/2) h) (* (pow (* (/ M 2) (/ D d)) 2) 1/2) (pow (* (/ M 2) (/ D d)) 2) (* (/ M 2) (/ D d)) (/ M 2) M (/ D d) D 1/2 (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (* (sqrt (pow (* l h) -1)) d) (sqrt (pow (* l h) -1)) (pow (* l h) -1) (* l h) -1 (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (* (* -1/8 (/ (* (pow (* D M) 2) -1) d)) (sqrt (/ h (pow l 3)))) (* -1/8 (/ (* (pow (* D M) 2) -1) d)) -1/8 (/ (* (pow (* D M) 2) -1) d) (* (pow (* D M) 2) -1) (pow (* D M) 2) (* D M) (sqrt (/ h (pow l 3))) (/ h (pow l 3)) (pow l 3) 3 (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (* (+ (* (/ d (* D D)) (sqrt (pow (* l h) -1))) (* (* -1/8 (/ (* M M) d)) (sqrt (/ h (pow l 3))))) (* D D)) (+ (* (/ d (* D D)) (sqrt (pow (* l h) -1))) (* (* -1/8 (/ (* M M) d)) (sqrt (/ h (pow l 3))))) (* (/ d (* D D)) (sqrt (pow (* l h) -1))) (/ d (* D D)) (* D D) (* (* -1/8 (/ (* M M) d)) (sqrt (/ h (pow l 3)))) (* -1/8 (/ (* M M) d)) (/ (* M M) d) (* M M) (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (* (- (pow D -2) (/ (* 1/8 (* (* M M) h)) (* (* d d) l))) (* D D)) (- (pow D -2) (/ (* 1/8 (* (* M M) h)) (* (* d d) l))) (pow D -2) -2 (/ (* 1/8 (* (* M M) h)) (* (* d d) l)) (* 1/8 (* (* M M) h)) 1/8 (* (* M M) h) (* (* d d) l) (* d d))
29.0ms	d	@	-inf	((* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (/ (* (* (pow (* (/ M 2) (/ D d)) 2) 1/2) h) l))) (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (pow (/ d h) (/ 1 2)) (/ d h) d h (/ 1 2) 1 2 (pow (/ d l) (/ 1 2)) (/ d l) l (- 1 (/ (* (* (pow (* (/ M 2) (/ D d)) 2) 1/2) h) l)) (/ (* (* (pow (* (/ M 2) (/ D d)) 2) 1/2) h) l) (* (* (pow (* (/ M 2) (/ D d)) 2) 1/2) h) (* (pow (* (/ M 2) (/ D d)) 2) 1/2) (pow (* (/ M 2) (/ D d)) 2) (* (/ M 2) (/ D d)) (/ M 2) M (/ D d) D 1/2 (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (* (sqrt (pow (* l h) -1)) d) (sqrt (pow (* l h) -1)) (pow (* l h) -1) (* l h) -1 (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (* (* -1/8 (/ (* (pow (* D M) 2) -1) d)) (sqrt (/ h (pow l 3)))) (* -1/8 (/ (* (pow (* D M) 2) -1) d)) -1/8 (/ (* (pow (* D M) 2) -1) d) (* (pow (* D M) 2) -1) (pow (* D M) 2) (* D M) (sqrt (/ h (pow l 3))) (/ h (pow l 3)) (pow l 3) 3 (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (* (+ (* (/ d (* D D)) (sqrt (pow (* l h) -1))) (* (* -1/8 (/ (* M M) d)) (sqrt (/ h (pow l 3))))) (* D D)) (+ (* (/ d (* D D)) (sqrt (pow (* l h) -1))) (* (* -1/8 (/ (* M M) d)) (sqrt (/ h (pow l 3))))) (* (/ d (* D D)) (sqrt (pow (* l h) -1))) (/ d (* D D)) (* D D) (* (* -1/8 (/ (* M M) d)) (sqrt (/ h (pow l 3)))) (* -1/8 (/ (* M M) d)) (/ (* M M) d) (* M M) (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (* (- (pow D -2) (/ (* 1/8 (* (* M M) h)) (* (* d d) l))) (* D D)) (- (pow D -2) (/ (* 1/8 (* (* M M) h)) (* (* d d) l))) (pow D -2) -2 (/ (* 1/8 (* (* M M) h)) (* (* d d) l)) (* 1/8 (* (* M M) h)) 1/8 (* (* M M) h) (* (* d d) l) (* d d))
22.0ms	l	@	0	((* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (/ (* (* (pow (* (/ M 2) (/ D d)) 2) 1/2) h) l))) (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (pow (/ d h) (/ 1 2)) (/ d h) d h (/ 1 2) 1 2 (pow (/ d l) (/ 1 2)) (/ d l) l (- 1 (/ (* (* (pow (* (/ M 2) (/ D d)) 2) 1/2) h) l)) (/ (* (* (pow (* (/ M 2) (/ D d)) 2) 1/2) h) l) (* (* (pow (* (/ M 2) (/ D d)) 2) 1/2) h) (* (pow (* (/ M 2) (/ D d)) 2) 1/2) (pow (* (/ M 2) (/ D d)) 2) (* (/ M 2) (/ D d)) (/ M 2) M (/ D d) D 1/2 (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (* (sqrt (pow (* l h) -1)) d) (sqrt (pow (* l h) -1)) (pow (* l h) -1) (* l h) -1 (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (* (* -1/8 (/ (* (pow (* D M) 2) -1) d)) (sqrt (/ h (pow l 3)))) (* -1/8 (/ (* (pow (* D M) 2) -1) d)) -1/8 (/ (* (pow (* D M) 2) -1) d) (* (pow (* D M) 2) -1) (pow (* D M) 2) (* D M) (sqrt (/ h (pow l 3))) (/ h (pow l 3)) (pow l 3) 3 (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (* (+ (* (/ d (* D D)) (sqrt (pow (* l h) -1))) (* (* -1/8 (/ (* M M) d)) (sqrt (/ h (pow l 3))))) (* D D)) (+ (* (/ d (* D D)) (sqrt (pow (* l h) -1))) (* (* -1/8 (/ (* M M) d)) (sqrt (/ h (pow l 3))))) (* (/ d (* D D)) (sqrt (pow (* l h) -1))) (/ d (* D D)) (* D D) (* (* -1/8 (/ (* M M) d)) (sqrt (/ h (pow l 3)))) (* -1/8 (/ (* M M) d)) (/ (* M M) d) (* M M) (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (* (- (pow D -2) (/ (* 1/8 (* (* M M) h)) (* (* d d) l))) (* D D)) (- (pow D -2) (/ (* 1/8 (* (* M M) h)) (* (* d d) l))) (pow D -2) -2 (/ (* 1/8 (* (* M M) h)) (* (* d d) l)) (* 1/8 (* (* M M) h)) 1/8 (* (* M M) h) (* (* d d) l) (* d d))
18.0ms	l	@	-inf	((* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (/ (* (* (pow (* (/ M 2) (/ D d)) 2) 1/2) h) l))) (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (pow (/ d h) (/ 1 2)) (/ d h) d h (/ 1 2) 1 2 (pow (/ d l) (/ 1 2)) (/ d l) l (- 1 (/ (* (* (pow (* (/ M 2) (/ D d)) 2) 1/2) h) l)) (/ (* (* (pow (* (/ M 2) (/ D d)) 2) 1/2) h) l) (* (* (pow (* (/ M 2) (/ D d)) 2) 1/2) h) (* (pow (* (/ M 2) (/ D d)) 2) 1/2) (pow (* (/ M 2) (/ D d)) 2) (* (/ M 2) (/ D d)) (/ M 2) M (/ D d) D 1/2 (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (* (sqrt (pow (* l h) -1)) d) (sqrt (pow (* l h) -1)) (pow (* l h) -1) (* l h) -1 (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (* (* -1/8 (/ (* (pow (* D M) 2) -1) d)) (sqrt (/ h (pow l 3)))) (* -1/8 (/ (* (pow (* D M) 2) -1) d)) -1/8 (/ (* (pow (* D M) 2) -1) d) (* (pow (* D M) 2) -1) (pow (* D M) 2) (* D M) (sqrt (/ h (pow l 3))) (/ h (pow l 3)) (pow l 3) 3 (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (* (+ (* (/ d (* D D)) (sqrt (pow (* l h) -1))) (* (* -1/8 (/ (* M M) d)) (sqrt (/ h (pow l 3))))) (* D D)) (+ (* (/ d (* D D)) (sqrt (pow (* l h) -1))) (* (* -1/8 (/ (* M M) d)) (sqrt (/ h (pow l 3))))) (* (/ d (* D D)) (sqrt (pow (* l h) -1))) (/ d (* D D)) (* D D) (* (* -1/8 (/ (* M M) d)) (sqrt (/ h (pow l 3)))) (* -1/8 (/ (* M M) d)) (/ (* M M) d) (* M M) (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (* (- (pow D -2) (/ (* 1/8 (* (* M M) h)) (* (* d d) l))) (* D D)) (- (pow D -2) (/ (* 1/8 (* (* M M) h)) (* (* d d) l))) (pow D -2) -2 (/ (* 1/8 (* (* M M) h)) (* (* d d) l)) (* 1/8 (* (* M M) h)) 1/8 (* (* M M) h) (* (* d d) l) (* d d))

rewrite104.0ms (1%)

Memory

-22.8MiB live, 209.0MiB allocated; 22ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	517	6490
0	604	5956
0	2123	5956

Stop Event

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

Counts

217 → 359

Calls

Call 1

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

Outputs
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (pow.f64 (.f64 (/.f64 D d) (/.f64 M #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) h)) l)) (*.f64 (sqrt.f64 (/.f64 d l)) (sqrt.f64 (/.f64 d h))))
(.f64 (.f64 (sqrt.f64 (/.f64 d l)) (sqrt.f64 (/.f64 d h))) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (pow.f64 (.f64 (/.f64 D d) (/.f64 M #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 #s(literal 1/2 binary64) h)) l)))
(.f64 (sqrt.f64 (/.f64 d h)) (.f64 (sqrt.f64 (/.f64 d l)) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (pow.f64 (.f64 (/.f64 D d) (/.f64 M #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 #s(literal 1/2 binary64) h)) l))))
(*.f64 (sqrt.f64 (/.f64 d l)) (sqrt.f64 (/.f64 d h)))
(*.f64 (sqrt.f64 (/.f64 d h)) (sqrt.f64 (/.f64 d l)))
(pow.f64 (*.f64 (/.f64 d h) (/.f64 d l)) #s(literal 1/2 binary64))
(*.f64 (pow.f64 (/.f64 d h) #s(literal 1/4 binary64)) (pow.f64 (/.f64 d h) #s(literal 1/4 binary64)))
(pow.f64 (/.f64 d h) #s(literal 1/2 binary64))
(/.f64 (sqrt.f64 d) (sqrt.f64 h))
(sqrt.f64 (/.f64 d h))
(exp.f64 (*.f64 (log.f64 (/.f64 d h)) #s(literal 1/2 binary64)))
(/.f64 (neg.f64 d) (neg.f64 h))
(/.f64 d h)
d
h
#s(literal 1/2 binary64)
#s(literal 1 binary64)
#s(literal 2 binary64)
(*.f64 (pow.f64 (/.f64 d l) #s(literal 1/4 binary64)) (pow.f64 (/.f64 d l) #s(literal 1/4 binary64)))
(pow.f64 (/.f64 d l) #s(literal 1/2 binary64))
(/.f64 (sqrt.f64 d) (sqrt.f64 l))
(sqrt.f64 (/.f64 d l))
(exp.f64 (*.f64 (log.f64 (/.f64 d l)) #s(literal 1/2 binary64)))
(/.f64 (neg.f64 d) (neg.f64 l))
(/.f64 d l)
l
(/.f64 (-.f64 #s(literal 1 binary64) (.f64 (/.f64 (.f64 (pow.f64 (.f64 (/.f64 D d) (/.f64 M #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) h)) l) (/.f64 (.f64 (pow.f64 (.f64 (/.f64 D d) (/.f64 M #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) h)) l))) (+.f64 #s(literal 1 binary64) (/.f64 (.f64 (pow.f64 (.f64 (/.f64 D d) (/.f64 M #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) h)) l)))
(/.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (/.f64 (.f64 (pow.f64 (.f64 (/.f64 D d) (/.f64 M #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) h)) l) #s(literal 3 binary64))) (+.f64 #s(literal 1 binary64) (+.f64 (.f64 (/.f64 (.f64 (pow.f64 (.f64 (/.f64 D d) (/.f64 M #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) h)) l) (/.f64 (.f64 (pow.f64 (.f64 (/.f64 D d) (/.f64 M #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) h)) l)) (.f64 #s(literal 1 binary64) (/.f64 (.f64 (pow.f64 (.f64 (/.f64 D d) (/.f64 M #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) h)) l)))))
(-.f64 #s(literal 1 binary64) (/.f64 (.f64 (pow.f64 (.f64 (/.f64 D d) (/.f64 M #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 #s(literal 1/2 binary64) h)) l))
(+.f64 #s(literal 1 binary64) (.f64 (neg.f64 (.f64 (pow.f64 (*.f64 (/.f64 D d) (/.f64 M #s(literal 2 binary64))) #s(literal 2 binary64)) #s(literal 1/2 binary64))) (/.f64 h l)))
(.f64 (.f64 (pow.f64 (*.f64 (/.f64 D d) (/.f64 M #s(literal 2 binary64))) #s(literal 2 binary64)) #s(literal 1/2 binary64)) (/.f64 h l))
(.f64 (/.f64 h l) (.f64 (pow.f64 (*.f64 (/.f64 D d) (/.f64 M #s(literal 2 binary64))) #s(literal 2 binary64)) #s(literal 1/2 binary64)))
(.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (*.f64 (/.f64 D d) (/.f64 M #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 h l)))
(/.f64 (neg.f64 (.f64 (pow.f64 (.f64 (/.f64 D d) (/.f64 M #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 #s(literal 1/2 binary64) h))) (neg.f64 l))
(/.f64 (.f64 (pow.f64 (.f64 (/.f64 D d) (/.f64 M #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 #s(literal 1/2 binary64) h)) l)
(.f64 (.f64 (pow.f64 (*.f64 (/.f64 D d) (/.f64 M #s(literal 2 binary64))) #s(literal 2 binary64)) #s(literal 1/2 binary64)) h)
(.f64 (pow.f64 (.f64 (/.f64 D d) (/.f64 M #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 #s(literal 1/2 binary64) h))
(.f64 h (.f64 (pow.f64 (*.f64 (/.f64 D d) (/.f64 M #s(literal 2 binary64))) #s(literal 2 binary64)) #s(literal 1/2 binary64)))
(.f64 (pow.f64 (.f64 (/.f64 D d) (/.f64 M #s(literal 2 binary64))) #s(literal 2 binary64)) #s(literal 1/2 binary64))
(.f64 #s(literal 1/2 binary64) (pow.f64 (.f64 (/.f64 D d) (/.f64 M #s(literal 2 binary64))) #s(literal 2 binary64)))
(.f64 (pow.f64 (.f64 (/.f64 D d) (/.f64 M #s(literal 2 binary64))) #s(literal 1 binary64)) (pow.f64 (*.f64 (/.f64 D d) (/.f64 M #s(literal 2 binary64))) #s(literal 1 binary64)))
(*.f64 (pow.f64 (/.f64 M #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (/.f64 D d) #s(literal 2 binary64)))
(.f64 (.f64 (/.f64 D d) (/.f64 M #s(literal 2 binary64))) (*.f64 (/.f64 D d) (/.f64 M #s(literal 2 binary64))))
(pow.f64 (*.f64 (/.f64 D d) (/.f64 M #s(literal 2 binary64))) #s(literal 2 binary64))
(exp.f64 (.f64 (log.f64 (.f64 (/.f64 D d) (/.f64 M #s(literal 2 binary64)))) #s(literal 2 binary64)))
(*.f64 (/.f64 D d) (/.f64 M #s(literal 2 binary64)))
(*.f64 (/.f64 M #s(literal 2 binary64)) (/.f64 D d))
(.f64 M (/.f64 D (.f64 #s(literal 2 binary64) d)))
(/.f64 (/.f64 (*.f64 D M) #s(literal 2 binary64)) d)
(/.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 M)) (neg.f64 (.f64 #s(literal 2 binary64) d)))
(/.f64 (.f64 D M) (.f64 #s(literal 2 binary64) d))
(/.f64 (neg.f64 M) #s(literal -2 binary64))
(/.f64 M #s(literal 2 binary64))
M
(/.f64 (neg.f64 D) (neg.f64 d))
(/.f64 D d)
D
#s(literal 1/2 binary64)
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 (pow.f64 (.f64 l h) #s(literal -1/2 binary64)) d))
(.f64 (pow.f64 (.f64 l h) #s(literal -1/2 binary64)) d)
(.f64 d (pow.f64 (.f64 l h) #s(literal -1/2 binary64)))
(pow.f64 (pow.f64 (*.f64 l h) #s(literal -1 binary64)) #s(literal 1/2 binary64))
(pow.f64 (*.f64 l h) #s(literal -1/2 binary64))
(/.f64 #s(literal 1 binary64) (sqrt.f64 (*.f64 l h)))
(sqrt.f64 (pow.f64 (*.f64 l h) #s(literal -1 binary64)))
(*.f64 (pow.f64 l #s(literal -1 binary64)) (pow.f64 h #s(literal -1 binary64)))
(.f64 (pow.f64 (.f64 l h) #s(literal -1/2 binary64)) (pow.f64 (*.f64 l h) #s(literal -1/2 binary64)))
(pow.f64 (*.f64 l h) #s(literal -1 binary64))
(/.f64 (pow.f64 h #s(literal -1 binary64)) l)
(/.f64 #s(literal -1 binary64) (neg.f64 (*.f64 l h)))
(/.f64 #s(literal 1 binary64) (*.f64 l h))
(exp.f64 (.f64 (log.f64 (.f64 l h)) #s(literal -1 binary64)))
(*.f64 l h)
(*.f64 h l)
#s(literal -1 binary64)
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 (.f64 (neg.f64 (/.f64 (pow.f64 (*.f64 D M) #s(literal 2 binary64)) d)) (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64))))) #s(literal -1/8 binary64)))
(.f64 (.f64 (neg.f64 (/.f64 (pow.f64 (*.f64 D M) #s(literal 2 binary64)) d)) (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64))))) #s(literal -1/8 binary64))
(.f64 (.f64 (neg.f64 (/.f64 (pow.f64 (*.f64 D M) #s(literal 2 binary64)) d)) #s(literal -1/8 binary64)) (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64)))))
(.f64 (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64)))) (.f64 (neg.f64 (/.f64 (pow.f64 (*.f64 D M) #s(literal 2 binary64)) d)) #s(literal -1/8 binary64)))
(.f64 #s(literal -1/8 binary64) (.f64 (neg.f64 (/.f64 (pow.f64 (*.f64 D M) #s(literal 2 binary64)) d)) (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64))))))
(.f64 (neg.f64 (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) d)) #s(literal -1/8 binary64))
(.f64 #s(literal -1/8 binary64) (neg.f64 (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) d)))
(/.f64 (.f64 #s(literal -1/8 binary64) (neg.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)))) d)
#s(literal -1/8 binary64)
(.f64 (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) d) #s(literal -1 binary64))
(.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) (/.f64 #s(literal -1 binary64) d))
(.f64 (.f64 D D) (/.f64 (.f64 (.f64 M M) #s(literal -1 binary64)) d))
(.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) d))
(/.f64 (neg.f64 (neg.f64 (pow.f64 (*.f64 D M) #s(literal 2 binary64)))) (neg.f64 d))
(/.f64 (neg.f64 (pow.f64 (*.f64 D M) #s(literal 2 binary64))) d)
(neg.f64 (/.f64 (pow.f64 (*.f64 D M) #s(literal 2 binary64)) d))
(.f64 (.f64 #s(literal -1 binary64) (.f64 D D)) (.f64 M M))
(.f64 (.f64 (.f64 M M) #s(literal -1 binary64)) (.f64 D D))
(.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) #s(literal -1 binary64))
(.f64 (.f64 D D) (.f64 (.f64 M M) #s(literal -1 binary64)))
(.f64 #s(literal -1 binary64) (pow.f64 (.f64 D M) #s(literal 2 binary64)))
(neg.f64 (pow.f64 (*.f64 D M) #s(literal 2 binary64)))
(.f64 (pow.f64 (.f64 D M) #s(literal 1 binary64)) (pow.f64 (*.f64 D M) #s(literal 1 binary64)))
(.f64 (.f64 D M) (*.f64 D M))
(.f64 (.f64 M M) (*.f64 D D))
(.f64 (.f64 D D) (*.f64 M M))
(pow.f64 (*.f64 D M) #s(literal 2 binary64))
(exp.f64 (.f64 (log.f64 (.f64 D M)) #s(literal 2 binary64)))
(*.f64 D M)
(*.f64 M D)
(pow.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64))) #s(literal 1/2 binary64))
(/.f64 (sqrt.f64 h) (sqrt.f64 (pow.f64 l #s(literal 3 binary64))))
(sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64))))
(/.f64 (neg.f64 h) (neg.f64 (pow.f64 l #s(literal 3 binary64))))
(/.f64 h (pow.f64 l #s(literal 3 binary64)))
(*.f64 (pow.f64 l #s(literal 3/2 binary64)) (pow.f64 l #s(literal 3/2 binary64)))
(.f64 (.f64 l l) l)
(.f64 l (.f64 l l))
(pow.f64 l #s(literal 3 binary64))
(exp.f64 (*.f64 (log.f64 l) #s(literal 3 binary64)))
#s(literal 3 binary64)
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 (+.f64 (.f64 (/.f64 d (.f64 D D)) (pow.f64 (.f64 l h) #s(literal -1/2 binary64))) (.f64 (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64)))) (.f64 (/.f64 (.f64 M M) d) #s(literal -1/8 binary64)))) (.f64 D D)))
(.f64 (.f64 (+.f64 (.f64 (/.f64 d (.f64 D D)) (pow.f64 (.f64 l h) #s(literal -1/2 binary64))) (.f64 (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64)))) (.f64 (/.f64 (.f64 M M) d) #s(literal -1/8 binary64)))) D) D)
(.f64 (+.f64 (.f64 (/.f64 d (.f64 D D)) (pow.f64 (.f64 l h) #s(literal -1/2 binary64))) (.f64 (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64)))) (.f64 (/.f64 (.f64 M M) d) #s(literal -1/8 binary64)))) (.f64 D D))
(.f64 (.f64 D D) (+.f64 (.f64 (/.f64 d (.f64 D D)) (pow.f64 (.f64 l h) #s(literal -1/2 binary64))) (.f64 (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64)))) (.f64 (/.f64 (.f64 M M) d) #s(literal -1/8 binary64)))))
(+.f64 (.f64 (.f64 (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64)))) (.f64 (/.f64 (.f64 M M) d) #s(literal -1/8 binary64))) (.f64 D D)) (.f64 (.f64 (/.f64 d (.f64 D D)) (pow.f64 (.f64 l h) #s(literal -1/2 binary64))) (.f64 D D)))
(+.f64 (.f64 (.f64 D D) (.f64 (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64)))) (.f64 (/.f64 (.f64 M M) d) #s(literal -1/8 binary64)))) (.f64 (.f64 D D) (.f64 (/.f64 d (.f64 D D)) (pow.f64 (.f64 l h) #s(literal -1/2 binary64)))))
(/.f64 (-.f64 (.f64 (.f64 (/.f64 d (.f64 D D)) (pow.f64 (.f64 l h) #s(literal -1/2 binary64))) (.f64 (/.f64 d (.f64 D D)) (pow.f64 (.f64 l h) #s(literal -1/2 binary64)))) (.f64 (.f64 (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64)))) (.f64 (/.f64 (.f64 M M) d) #s(literal -1/8 binary64))) (.f64 (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64)))) (.f64 (/.f64 (.f64 M M) d) #s(literal -1/8 binary64))))) (-.f64 (.f64 (/.f64 d (.f64 D D)) (pow.f64 (.f64 l h) #s(literal -1/2 binary64))) (.f64 (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64)))) (.f64 (/.f64 (.f64 M M) d) #s(literal -1/8 binary64)))))
(/.f64 (-.f64 (.f64 (.f64 (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64)))) (.f64 (/.f64 (.f64 M M) d) #s(literal -1/8 binary64))) (.f64 (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64)))) (.f64 (/.f64 (.f64 M M) d) #s(literal -1/8 binary64)))) (.f64 (.f64 (/.f64 d (.f64 D D)) (pow.f64 (.f64 l h) #s(literal -1/2 binary64))) (.f64 (/.f64 d (.f64 D D)) (pow.f64 (.f64 l h) #s(literal -1/2 binary64))))) (-.f64 (.f64 (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64)))) (.f64 (/.f64 (.f64 M M) d) #s(literal -1/8 binary64))) (.f64 (/.f64 d (.f64 D D)) (pow.f64 (.f64 l h) #s(literal -1/2 binary64)))))
(/.f64 (+.f64 (pow.f64 (.f64 (/.f64 d (.f64 D D)) (pow.f64 (.f64 l h) #s(literal -1/2 binary64))) #s(literal 3 binary64)) (pow.f64 (.f64 (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64)))) (.f64 (/.f64 (.f64 M M) d) #s(literal -1/8 binary64))) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (/.f64 d (.f64 D D)) (pow.f64 (.f64 l h) #s(literal -1/2 binary64))) (.f64 (/.f64 d (.f64 D D)) (pow.f64 (.f64 l h) #s(literal -1/2 binary64)))) (-.f64 (.f64 (.f64 (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64)))) (.f64 (/.f64 (.f64 M M) d) #s(literal -1/8 binary64))) (.f64 (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64)))) (.f64 (/.f64 (.f64 M M) d) #s(literal -1/8 binary64)))) (.f64 (.f64 (/.f64 d (.f64 D D)) (pow.f64 (.f64 l h) #s(literal -1/2 binary64))) (.f64 (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64)))) (.f64 (/.f64 (*.f64 M M) d) #s(literal -1/8 binary64)))))))
(/.f64 (+.f64 (pow.f64 (.f64 (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64)))) (.f64 (/.f64 (.f64 M M) d) #s(literal -1/8 binary64))) #s(literal 3 binary64)) (pow.f64 (.f64 (/.f64 d (.f64 D D)) (pow.f64 (.f64 l h) #s(literal -1/2 binary64))) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64)))) (.f64 (/.f64 (.f64 M M) d) #s(literal -1/8 binary64))) (.f64 (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64)))) (.f64 (/.f64 (.f64 M M) d) #s(literal -1/8 binary64)))) (-.f64 (.f64 (.f64 (/.f64 d (.f64 D D)) (pow.f64 (.f64 l h) #s(literal -1/2 binary64))) (.f64 (/.f64 d (.f64 D D)) (pow.f64 (.f64 l h) #s(literal -1/2 binary64)))) (.f64 (.f64 (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64)))) (.f64 (/.f64 (.f64 M M) d) #s(literal -1/8 binary64))) (.f64 (/.f64 d (.f64 D D)) (pow.f64 (*.f64 l h) #s(literal -1/2 binary64)))))))
(-.f64 (.f64 (/.f64 d (.f64 D D)) (pow.f64 (.f64 l h) #s(literal -1/2 binary64))) (.f64 (neg.f64 (.f64 (/.f64 (.f64 M M) d) #s(literal -1/8 binary64))) (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64))))))
(-.f64 (.f64 (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64)))) (.f64 (/.f64 (.f64 M M) d) #s(literal -1/8 binary64))) (.f64 (neg.f64 (/.f64 d (.f64 D D))) (pow.f64 (.f64 l h) #s(literal -1/2 binary64))))
(+.f64 (.f64 (/.f64 d (.f64 D D)) (pow.f64 (.f64 l h) #s(literal -1/2 binary64))) (.f64 (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64)))) (.f64 (/.f64 (.f64 M M) d) #s(literal -1/8 binary64))))
(+.f64 (.f64 (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64)))) (.f64 (/.f64 (.f64 M M) d) #s(literal -1/8 binary64))) (.f64 (/.f64 d (.f64 D D)) (pow.f64 (.f64 l h) #s(literal -1/2 binary64))))
(.f64 (/.f64 d (.f64 D D)) (pow.f64 (*.f64 l h) #s(literal -1/2 binary64)))
(.f64 (pow.f64 (.f64 l h) #s(literal -1/2 binary64)) (/.f64 d (*.f64 D D)))
(/.f64 (.f64 (pow.f64 (.f64 l h) #s(literal -1/2 binary64)) d) (*.f64 D D))
(/.f64 (/.f64 d D) D)
(/.f64 (neg.f64 d) (neg.f64 (*.f64 D D)))
(/.f64 d (*.f64 D D))
(*.f64 (pow.f64 D #s(literal 1 binary64)) (pow.f64 D #s(literal 1 binary64)))
(*.f64 (neg.f64 D) (neg.f64 D))
(*.f64 (fabs.f64 D) (fabs.f64 D))
(*.f64 D D)
(pow.f64 D #s(literal 2 binary64))
(exp.f64 (*.f64 (log.f64 D) #s(literal 2 binary64)))
(.f64 (.f64 (/.f64 (*.f64 M M) d) (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64))))) #s(literal -1/8 binary64))
(.f64 (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64)))) (.f64 (/.f64 (*.f64 M M) d) #s(literal -1/8 binary64)))
(.f64 (.f64 (/.f64 (*.f64 M M) d) #s(literal -1/8 binary64)) (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64)))))
(.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (*.f64 M M) d) (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64))))))
(.f64 (/.f64 (.f64 M M) d) #s(literal -1/8 binary64))
(.f64 #s(literal -1/8 binary64) (/.f64 (.f64 M M) d))
(/.f64 (.f64 #s(literal -1/8 binary64) (.f64 M M)) d)
(*.f64 M (/.f64 M d))
(/.f64 (neg.f64 (*.f64 M M)) (neg.f64 d))
(/.f64 (*.f64 M M) d)
(*.f64 (pow.f64 M #s(literal 1 binary64)) (pow.f64 M #s(literal 1 binary64)))
(*.f64 (neg.f64 M) (neg.f64 M))
(*.f64 (fabs.f64 M) (fabs.f64 M))
(*.f64 M M)
(pow.f64 M #s(literal 2 binary64))
(exp.f64 (*.f64 (log.f64 M) #s(literal 2 binary64)))
(.f64 #s(approx (- 1 ( (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (.f64 (-.f64 (pow.f64 D #s(literal -2 binary64)) (.f64 (/.f64 #s(literal 1/8 binary64) (.f64 d d)) (/.f64 (.f64 (.f64 M M) h) l))) (.f64 D D))) (*.f64 (sqrt.f64 (/.f64 d l)) (sqrt.f64 (/.f64 d h))))
(.f64 (.f64 (sqrt.f64 (/.f64 d l)) (sqrt.f64 (/.f64 d h))) #s(approx (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (.f64 (-.f64 (pow.f64 D #s(literal -2 binary64)) (.f64 (/.f64 #s(literal 1/8 binary64) (.f64 d d)) (/.f64 (.f64 (.f64 M M) h) l))) (.f64 D D))))
(.f64 (sqrt.f64 (/.f64 d h)) (.f64 (sqrt.f64 (/.f64 d l)) #s(approx (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (.f64 (-.f64 (pow.f64 D #s(literal -2 binary64)) (.f64 (/.f64 #s(literal 1/8 binary64) (.f64 d d)) (/.f64 (.f64 (.f64 M M) h) l))) (.f64 D D)))))
#s(approx (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (.f64 (-.f64 (pow.f64 D #s(literal -2 binary64)) (.f64 (/.f64 #s(literal 1/8 binary64) (.f64 d d)) (/.f64 (.f64 (.f64 M M) h) l))) (.f64 D D)))
(.f64 (.f64 (-.f64 (pow.f64 D #s(literal -2 binary64)) (.f64 (/.f64 #s(literal 1/8 binary64) (.f64 d d)) (/.f64 (.f64 (.f64 M M) h) l))) D) D)
(.f64 (-.f64 (pow.f64 D #s(literal -2 binary64)) (.f64 (/.f64 #s(literal 1/8 binary64) (.f64 d d)) (/.f64 (.f64 (.f64 M M) h) l))) (.f64 D D))
(.f64 (.f64 D D) (-.f64 (pow.f64 D #s(literal -2 binary64)) (.f64 (/.f64 #s(literal 1/8 binary64) (.f64 d d)) (/.f64 (.f64 (.f64 M M) h) l))))
(+.f64 (.f64 (/.f64 (.f64 #s(literal -1/8 binary64) (.f64 (.f64 M M) h)) (.f64 (.f64 d d) l)) (.f64 D D)) (.f64 (pow.f64 D #s(literal -2 binary64)) (*.f64 D D)))
(+.f64 (.f64 (.f64 D D) (/.f64 (.f64 #s(literal -1/8 binary64) (.f64 (.f64 M M) h)) (.f64 (.f64 d d) l))) (.f64 (*.f64 D D) (pow.f64 D #s(literal -2 binary64))))
(/.f64 (-.f64 (.f64 (pow.f64 D #s(literal -2 binary64)) (pow.f64 D #s(literal -2 binary64))) (.f64 (.f64 (/.f64 #s(literal 1/8 binary64) (.f64 d d)) (/.f64 (.f64 (.f64 M M) h) l)) (.f64 (/.f64 #s(literal 1/8 binary64) (.f64 d d)) (/.f64 (.f64 (.f64 M M) h) l)))) (+.f64 (pow.f64 D #s(literal -2 binary64)) (.f64 (/.f64 #s(literal 1/8 binary64) (.f64 d d)) (/.f64 (.f64 (.f64 M M) h) l))))
(/.f64 (-.f64 (.f64 (/.f64 (.f64 #s(literal -1/8 binary64) (.f64 (.f64 M M) h)) (.f64 (.f64 d d) l)) (/.f64 (.f64 #s(literal -1/8 binary64) (.f64 (.f64 M M) h)) (.f64 (.f64 d d) l))) (.f64 (pow.f64 D #s(literal -2 binary64)) (pow.f64 D #s(literal -2 binary64)))) (-.f64 (/.f64 (.f64 #s(literal -1/8 binary64) (.f64 (.f64 M M) h)) (.f64 (*.f64 d d) l)) (pow.f64 D #s(literal -2 binary64))))
(/.f64 (-.f64 (pow.f64 (pow.f64 D #s(literal -2 binary64)) #s(literal 3 binary64)) (pow.f64 (.f64 (/.f64 #s(literal 1/8 binary64) (.f64 d d)) (/.f64 (.f64 (.f64 M M) h) l)) #s(literal 3 binary64))) (+.f64 (.f64 (pow.f64 D #s(literal -2 binary64)) (pow.f64 D #s(literal -2 binary64))) (+.f64 (.f64 (.f64 (/.f64 #s(literal 1/8 binary64) (.f64 d d)) (/.f64 (.f64 (.f64 M M) h) l)) (.f64 (/.f64 #s(literal 1/8 binary64) (.f64 d d)) (/.f64 (.f64 (.f64 M M) h) l))) (.f64 (pow.f64 D #s(literal -2 binary64)) (.f64 (/.f64 #s(literal 1/8 binary64) (.f64 d d)) (/.f64 (.f64 (*.f64 M M) h) l))))))
(/.f64 (+.f64 (pow.f64 (/.f64 (.f64 #s(literal -1/8 binary64) (.f64 (.f64 M M) h)) (.f64 (.f64 d d) l)) #s(literal 3 binary64)) (pow.f64 (pow.f64 D #s(literal -2 binary64)) #s(literal 3 binary64))) (+.f64 (.f64 (/.f64 (.f64 #s(literal -1/8 binary64) (.f64 (.f64 M M) h)) (.f64 (.f64 d d) l)) (/.f64 (.f64 #s(literal -1/8 binary64) (.f64 (.f64 M M) h)) (.f64 (.f64 d d) l))) (-.f64 (.f64 (pow.f64 D #s(literal -2 binary64)) (pow.f64 D #s(literal -2 binary64))) (.f64 (/.f64 (.f64 #s(literal -1/8 binary64) (.f64 (.f64 M M) h)) (.f64 (*.f64 d d) l)) (pow.f64 D #s(literal -2 binary64))))))
(-.f64 (pow.f64 D #s(literal -2 binary64)) (.f64 (/.f64 #s(literal 1/8 binary64) (.f64 d d)) (/.f64 (.f64 (.f64 M M) h) l)))
(+.f64 (pow.f64 D #s(literal -2 binary64)) (/.f64 (.f64 #s(literal -1/8 binary64) (.f64 (.f64 M M) h)) (.f64 (*.f64 d d) l)))
(+.f64 (/.f64 (.f64 #s(literal -1/8 binary64) (.f64 (.f64 M M) h)) (.f64 (*.f64 d d) l)) (pow.f64 D #s(literal -2 binary64)))
(*.f64 (pow.f64 D #s(literal -1 binary64)) (pow.f64 D #s(literal -1 binary64)))
(pow.f64 (*.f64 D D) #s(literal -1 binary64))
(pow.f64 D #s(literal -2 binary64))
(/.f64 #s(literal -1 binary64) (neg.f64 (*.f64 D D)))
(/.f64 #s(literal 1 binary64) (*.f64 D D))
(exp.f64 (*.f64 (log.f64 D) #s(literal -2 binary64)))
#s(literal -2 binary64)
(.f64 (/.f64 #s(literal 1/8 binary64) (.f64 d d)) (/.f64 (.f64 (.f64 M M) h) l))
(.f64 (.f64 (.f64 M M) (/.f64 h (.f64 (*.f64 d d) l))) #s(literal 1/8 binary64))
(.f64 #s(literal 1/8 binary64) (.f64 (.f64 M M) (/.f64 h (.f64 (*.f64 d d) l))))
(/.f64 (neg.f64 (.f64 (.f64 #s(literal 1/8 binary64) (.f64 M M)) h)) (neg.f64 (.f64 (*.f64 d d) l)))
(/.f64 (/.f64 (.f64 (.f64 #s(literal 1/8 binary64) (.f64 M M)) h) (.f64 d d)) l)
(/.f64 (.f64 (.f64 #s(literal 1/8 binary64) (.f64 M M)) h) (.f64 (*.f64 d d) l))
(.f64 (.f64 #s(literal 1/8 binary64) (*.f64 M M)) h)
(.f64 (.f64 (*.f64 M M) h) #s(literal 1/8 binary64))
(.f64 #s(literal 1/8 binary64) (.f64 (*.f64 M M) h))
#s(literal 1/8 binary64)
(.f64 (.f64 M M) h)
(.f64 M (.f64 M h))
(.f64 h (.f64 M M))
(.f64 (.f64 d d) l)
(.f64 l (.f64 d d))
(.f64 d (.f64 d l))
(*.f64 (pow.f64 d #s(literal 1 binary64)) (pow.f64 d #s(literal 1 binary64)))
(*.f64 (neg.f64 d) (neg.f64 d))
(*.f64 (fabs.f64 d) (fabs.f64 d))
(*.f64 d d)
(pow.f64 d #s(literal 2 binary64))
(exp.f64 (*.f64 (log.f64 d) #s(literal 2 binary64)))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 (.f64 (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64)))) (/.f64 (pow.f64 (*.f64 D M) #s(literal 2 binary64)) d)) #s(literal -1/8 binary64)))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (/.f64 (+.f64 (.f64 (pow.f64 (.f64 l h) #s(literal -1/2 binary64)) (.f64 d d)) (.f64 (.f64 (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64)))) (pow.f64 (.f64 D M) #s(literal 2 binary64))) #s(literal -1/8 binary64))) d))
#s(approx (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (.f64 (pow.f64 (.f64 l h) #s(literal -1/2 binary64)) d))
#s(approx (pow (/ d h) (/ 1 2)) (sqrt.f64 (/.f64 d h)))
#s(approx (/ d h) (/.f64 d h))
#s(approx d d)
#s(approx (pow (/ d l) (/ 1 2)) (sqrt.f64 (/.f64 d l)))
#s(approx (/ d l) (/.f64 d l))
#s(approx (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (.f64 (/.f64 (.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) h) (.f64 (*.f64 d d) l)) #s(literal -1/8 binary64)))
#s(approx (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (/.f64 (-.f64 (.f64 d d) (.f64 (/.f64 (.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) h) l) #s(literal 1/8 binary64))) (*.f64 d d)))
#s(approx (/ (* (* (pow (* (/ M 2) (/ D d)) 2) 1/2) h) l) (.f64 (/.f64 (.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) h) (.f64 (*.f64 d d) l)) #s(literal 1/8 binary64)))
#s(approx (* (* (pow (* (/ M 2) (/ D d)) 2) 1/2) h) (.f64 (/.f64 (.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) h) (.f64 d d)) #s(literal 1/8 binary64)))
#s(approx (* (pow (* (/ M 2) (/ D d)) 2) 1/2) (.f64 (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) (*.f64 d d)) #s(literal 1/8 binary64)))
#s(approx (pow (* (/ M 2) (/ D d)) 2) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) (*.f64 d d))))
#s(approx (* (/ M 2) (/ D d)) (.f64 (/.f64 (.f64 D M) d) #s(literal 1/2 binary64)))
#s(approx (/ D d) (/.f64 D d))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 (.f64 (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64)))) (/.f64 (pow.f64 (*.f64 D M) #s(literal 2 binary64)) d)) #s(literal -1/8 binary64)))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (/.f64 (+.f64 (.f64 (pow.f64 (.f64 l h) #s(literal -1/2 binary64)) (.f64 d d)) (.f64 (.f64 (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64)))) (pow.f64 (.f64 D M) #s(literal 2 binary64))) #s(literal -1/8 binary64))) d))
#s(approx (* (sqrt (pow (* l h) -1)) d) (.f64 (pow.f64 (.f64 l h) #s(literal -1/2 binary64)) d))
#s(approx (* (* -1/8 (/ (* (pow (* D M) 2) -1) d)) (sqrt (/ h (pow l 3)))) (.f64 (.f64 (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64)))) (/.f64 (pow.f64 (*.f64 D M) #s(literal 2 binary64)) d)) #s(literal 1/8 binary64)))
#s(approx (* -1/8 (/ (* (pow (* D M) 2) -1) d)) (.f64 (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) d) #s(literal 1/8 binary64)))
#s(approx (/ (* (pow (* D M) 2) -1) d) (neg.f64 (/.f64 (pow.f64 (*.f64 D M) #s(literal 2 binary64)) d)))
#s(approx (* (+ (* (/ d (* D D)) (sqrt (pow (* l h) -1))) (* (* -1/8 (/ (* M M) d)) (sqrt (/ h (pow l 3))))) (* D D)) (.f64 (.f64 (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64)))) (/.f64 (pow.f64 (*.f64 D M) #s(literal 2 binary64)) d)) #s(literal -1/8 binary64)))
#s(approx (* (+ (* (/ d (* D D)) (sqrt (pow (* l h) -1))) (* (* -1/8 (/ (* M M) d)) (sqrt (/ h (pow l 3))))) (* D D)) (/.f64 (+.f64 (.f64 (pow.f64 (.f64 l h) #s(literal -1/2 binary64)) (.f64 d d)) (.f64 (.f64 (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64)))) (pow.f64 (.f64 D M) #s(literal 2 binary64))) #s(literal -1/8 binary64))) d))
#s(approx (+ (* (/ d (* D D)) (sqrt (pow (* l h) -1))) (* (* -1/8 (/ (* M M) d)) (sqrt (/ h (pow l 3))))) (.f64 (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64)))) (.f64 (/.f64 (*.f64 M M) d) #s(literal -1/8 binary64))))
#s(approx (+ (* (/ d (* D D)) (sqrt (pow (* l h) -1))) (* (* -1/8 (/ (* M M) d)) (sqrt (/ h (pow l 3))))) (/.f64 (+.f64 (/.f64 (.f64 (pow.f64 (.f64 l h) #s(literal -1/2 binary64)) (.f64 d d)) (.f64 D D)) (.f64 (.f64 #s(literal -1/8 binary64) (*.f64 M M)) (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64)))))) d))
#s(approx (* (/ d (* D D)) (sqrt (pow (* l h) -1))) (.f64 (/.f64 d (.f64 D D)) (pow.f64 (*.f64 l h) #s(literal -1/2 binary64))))
#s(approx (/ d (* D D)) (/.f64 d (*.f64 D D)))
#s(approx (* (* -1/8 (/ (* M M) d)) (sqrt (/ h (pow l 3)))) (.f64 (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64)))) (.f64 (/.f64 (*.f64 M M) d) #s(literal -1/8 binary64))))
#s(approx (* -1/8 (/ (* M M) d)) (.f64 (/.f64 (.f64 M M) d) #s(literal -1/8 binary64)))
#s(approx (/ (* M M) d) (/.f64 (*.f64 M M) d))
#s(approx (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (.f64 (/.f64 (.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) h) (.f64 (*.f64 d d) l)) #s(literal -1/8 binary64)))
#s(approx (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (/.f64 (-.f64 (.f64 d d) (.f64 (/.f64 (.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) h) l) #s(literal 1/8 binary64))) (*.f64 d d)))
#s(approx (* (- (pow D -2) (/ (* 1/8 (* (* M M) h)) (* (* d d) l))) (* D D)) (.f64 (/.f64 (.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) h) (.f64 (*.f64 d d) l)) #s(literal -1/8 binary64)))
#s(approx (* (- (pow D -2) (/ (* 1/8 (* (* M M) h)) (* (* d d) l))) (* D D)) (/.f64 (-.f64 (.f64 d d) (.f64 (/.f64 (.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) h) l) #s(literal 1/8 binary64))) (*.f64 d d)))
#s(approx (- (pow D -2) (/ (* 1/8 (* (* M M) h)) (* (* d d) l))) (/.f64 (.f64 #s(literal -1/8 binary64) (.f64 (.f64 M M) h)) (.f64 (*.f64 d d) l)))
#s(approx (- (pow D -2) (/ (* 1/8 (* (* M M) h)) (* (* d d) l))) (/.f64 (-.f64 (/.f64 (.f64 d d) (.f64 D D)) (.f64 (/.f64 (.f64 (.f64 M M) h) l) #s(literal 1/8 binary64))) (.f64 d d)))
#s(approx (/ (* 1/8 (* (* M M) h)) (* (* d d) l)) (.f64 (/.f64 #s(literal 1/8 binary64) (.f64 d d)) (/.f64 (.f64 (.f64 M M) h) l)))
#s(approx (* (* d d) l) (.f64 (.f64 d d) l))
#s(approx (* d d) (*.f64 d d))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 (pow.f64 (.f64 l h) #s(literal -1/2 binary64)) d))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 (+.f64 (.f64 (.f64 (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) (.f64 d d)) (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64))))) #s(literal -1/8 binary64)) (pow.f64 (.f64 l h) #s(literal -1/2 binary64))) d))
#s(approx (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) #s(literal 1 binary64))
#s(approx (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (-.f64 #s(literal 1 binary64) (.f64 (/.f64 (.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) h) (.f64 (*.f64 d d) l)) #s(literal 1/8 binary64))))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 (pow.f64 (.f64 l h) #s(literal -1/2 binary64)) d))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 (+.f64 (.f64 (.f64 (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) (.f64 d d)) (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64))))) #s(literal -1/8 binary64)) (pow.f64 (.f64 l h) #s(literal -1/2 binary64))) d))
#s(approx (* (+ (* (/ d (* D D)) (sqrt (pow (* l h) -1))) (* (* -1/8 (/ (* M M) d)) (sqrt (/ h (pow l 3))))) (* D D)) (.f64 (pow.f64 (.f64 l h) #s(literal -1/2 binary64)) d))
#s(approx (* (+ (* (/ d (* D D)) (sqrt (pow (* l h) -1))) (* (* -1/8 (/ (* M M) d)) (sqrt (/ h (pow l 3))))) (* D D)) (.f64 (+.f64 (.f64 (.f64 (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) (.f64 d d)) (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64))))) #s(literal -1/8 binary64)) (pow.f64 (.f64 l h) #s(literal -1/2 binary64))) d))
#s(approx (+ (* (/ d (* D D)) (sqrt (pow (* l h) -1))) (* (* -1/8 (/ (* M M) d)) (sqrt (/ h (pow l 3))))) (.f64 (/.f64 d (.f64 D D)) (pow.f64 (*.f64 l h) #s(literal -1/2 binary64))))
#s(approx (+ (* (/ d (* D D)) (sqrt (pow (* l h) -1))) (* (* -1/8 (/ (* M M) d)) (sqrt (/ h (pow l 3))))) (.f64 (+.f64 (.f64 (pow.f64 D #s(literal -2 binary64)) (pow.f64 (.f64 l h) #s(literal -1/2 binary64))) (.f64 (.f64 (/.f64 (.f64 M M) (*.f64 d d)) (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64))))) #s(literal -1/8 binary64))) d))
#s(approx (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) #s(literal 1 binary64))
#s(approx (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (-.f64 #s(literal 1 binary64) (.f64 (/.f64 (.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) h) (.f64 (*.f64 d d) l)) #s(literal 1/8 binary64))))
#s(approx (* (- (pow D -2) (/ (* 1/8 (* (* M M) h)) (* (* d d) l))) (* D D)) #s(literal 1 binary64))
#s(approx (* (- (pow D -2) (/ (* 1/8 (* (* M M) h)) (* (* d d) l))) (* D D)) (-.f64 #s(literal 1 binary64) (.f64 (/.f64 (.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) h) (.f64 (*.f64 d d) l)) #s(literal 1/8 binary64))))
#s(approx (- (pow D -2) (/ (* 1/8 (* (* M M) h)) (* (* d d) l))) (pow.f64 D #s(literal -2 binary64)))
#s(approx (- (pow D -2) (/ (* 1/8 (* (* M M) h)) (* (* d d) l))) (-.f64 (pow.f64 D #s(literal -2 binary64)) (.f64 (/.f64 #s(literal 1/8 binary64) (.f64 d d)) (/.f64 (.f64 (.f64 M M) h) l))))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (neg.f64 (.f64 d (neg.f64 (pow.f64 (.f64 l h) #s(literal -1/2 binary64))))))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (neg.f64 (.f64 (+.f64 (neg.f64 (pow.f64 (.f64 l h) #s(literal -1/2 binary64))) (.f64 (.f64 (/.f64 (neg.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64))) (.f64 d d)) (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64))))) #s(literal -1/8 binary64))) d)))
#s(approx (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (neg.f64 (.f64 d (neg.f64 (pow.f64 (.f64 l h) #s(literal -1/2 binary64))))))
#s(approx (pow (/ d h) (/ 1 2)) (neg.f64 (*.f64 #s(literal -1 binary64) (sqrt.f64 (/.f64 d h)))))
#s(approx (pow (/ d l) (/ 1 2)) (neg.f64 (*.f64 #s(literal -1 binary64) (sqrt.f64 (/.f64 d l)))))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (neg.f64 (.f64 d (neg.f64 (pow.f64 (.f64 l h) #s(literal -1/2 binary64))))))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (neg.f64 (.f64 (+.f64 (neg.f64 (pow.f64 (.f64 l h) #s(literal -1/2 binary64))) (.f64 (.f64 (/.f64 (neg.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64))) (.f64 d d)) (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64))))) #s(literal -1/8 binary64))) d)))
#s(approx (* (+ (* (/ d (* D D)) (sqrt (pow (* l h) -1))) (* (* -1/8 (/ (* M M) d)) (sqrt (/ h (pow l 3))))) (* D D)) (neg.f64 (.f64 (-.f64 (neg.f64 (pow.f64 (.f64 l h) #s(literal -1/2 binary64))) (.f64 (.f64 (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) (.f64 d d)) (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64))))) #s(literal -1/8 binary64))) d)))
#s(approx (+ (* (/ d (* D D)) (sqrt (pow (* l h) -1))) (* (* -1/8 (/ (* M M) d)) (sqrt (/ h (pow l 3))))) (neg.f64 (.f64 (-.f64 (neg.f64 (.f64 (pow.f64 D #s(literal -2 binary64)) (pow.f64 (.f64 l h) #s(literal -1/2 binary64)))) (.f64 (.f64 (/.f64 (.f64 M M) (*.f64 d d)) (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64))))) #s(literal -1/8 binary64))) d)))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (/.f64 (+.f64 (.f64 (sqrt.f64 (/.f64 h l)) d) (.f64 (.f64 (sqrt.f64 (pow.f64 (/.f64 h l) #s(literal 3 binary64))) (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) d)) #s(literal -1/8 binary64))) h))
#s(approx h h)
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (/.f64 (+.f64 (.f64 (sqrt.f64 (/.f64 h l)) d) (.f64 (.f64 (sqrt.f64 (pow.f64 (/.f64 h l) #s(literal 3 binary64))) (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) d)) #s(literal -1/8 binary64))) h))
#s(approx (sqrt (pow (* l h) -1)) (pow.f64 (*.f64 l h) #s(literal -1/2 binary64)))
#s(approx (pow (* l h) -1) (pow.f64 (*.f64 l h) #s(literal -1 binary64)))
#s(approx (* l h) (*.f64 l h))
#s(approx (sqrt (/ h (pow l 3))) (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64)))))
#s(approx (/ h (pow l 3)) (/.f64 h (pow.f64 l #s(literal 3 binary64))))
#s(approx (* (+ (* (/ d (* D D)) (sqrt (pow (* l h) -1))) (* (* -1/8 (/ (* M M) d)) (sqrt (/ h (pow l 3))))) (* D D)) (/.f64 (+.f64 (.f64 (sqrt.f64 (/.f64 h l)) d) (.f64 (.f64 (sqrt.f64 (pow.f64 (/.f64 h l) #s(literal 3 binary64))) (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) d)) #s(literal -1/8 binary64))) h))
#s(approx (+ (* (/ d (* D D)) (sqrt (pow (* l h) -1))) (* (* -1/8 (/ (* M M) d)) (sqrt (/ h (pow l 3))))) (/.f64 (+.f64 (.f64 (sqrt.f64 (/.f64 h l)) (/.f64 d (.f64 D D))) (.f64 (.f64 (/.f64 (*.f64 M M) d) #s(literal -1/8 binary64)) (sqrt.f64 (pow.f64 (/.f64 h l) #s(literal 3 binary64))))) h))
#s(approx (* 1/8 (* (* M M) h)) (.f64 (.f64 #s(literal 1/8 binary64) (*.f64 M M)) h))
#s(approx (* (* M M) h) (.f64 (.f64 M M) h))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 (+.f64 (.f64 (sqrt.f64 (pow.f64 (.f64 (pow.f64 h #s(literal 3 binary64)) l) #s(literal -1 binary64))) d) (.f64 (.f64 (sqrt.f64 (pow.f64 (.f64 (pow.f64 l #s(literal 3 binary64)) h) #s(literal -1 binary64))) (/.f64 (pow.f64 (*.f64 D M) #s(literal 2 binary64)) d)) #s(literal -1/8 binary64))) h))
#s(approx (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (.f64 (-.f64 (pow.f64 h #s(literal -1 binary64)) (.f64 (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) (.f64 (*.f64 d d) l)) #s(literal 1/8 binary64))) h))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 (+.f64 (.f64 (sqrt.f64 (pow.f64 (.f64 (pow.f64 h #s(literal 3 binary64)) l) #s(literal -1 binary64))) d) (.f64 (.f64 (sqrt.f64 (pow.f64 (.f64 (pow.f64 l #s(literal 3 binary64)) h) #s(literal -1 binary64))) (/.f64 (pow.f64 (*.f64 D M) #s(literal 2 binary64)) d)) #s(literal -1/8 binary64))) h))
#s(approx (* (+ (* (/ d (* D D)) (sqrt (pow (* l h) -1))) (* (* -1/8 (/ (* M M) d)) (sqrt (/ h (pow l 3))))) (* D D)) (.f64 (+.f64 (.f64 (sqrt.f64 (pow.f64 (.f64 (pow.f64 h #s(literal 3 binary64)) l) #s(literal -1 binary64))) d) (.f64 (.f64 (sqrt.f64 (pow.f64 (.f64 (pow.f64 l #s(literal 3 binary64)) h) #s(literal -1 binary64))) (/.f64 (pow.f64 (*.f64 D M) #s(literal 2 binary64)) d)) #s(literal -1/8 binary64))) h))
#s(approx (+ (* (/ d (* D D)) (sqrt (pow (* l h) -1))) (* (* -1/8 (/ (* M M) d)) (sqrt (/ h (pow l 3))))) (.f64 (+.f64 (.f64 (sqrt.f64 (pow.f64 (.f64 (pow.f64 h #s(literal 3 binary64)) l) #s(literal -1 binary64))) (/.f64 d (.f64 D D))) (.f64 (.f64 (/.f64 (.f64 M M) d) #s(literal -1/8 binary64)) (sqrt.f64 (pow.f64 (.f64 (pow.f64 l #s(literal 3 binary64)) h) #s(literal -1 binary64))))) h))
#s(approx (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (.f64 (-.f64 (pow.f64 h #s(literal -1 binary64)) (.f64 (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) (.f64 (*.f64 d d) l)) #s(literal 1/8 binary64))) h))
#s(approx (* (- (pow D -2) (/ (* 1/8 (* (* M M) h)) (* (* d d) l))) (* D D)) (.f64 (-.f64 (pow.f64 h #s(literal -1 binary64)) (.f64 (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) (.f64 (*.f64 d d) l)) #s(literal 1/8 binary64))) h))
#s(approx (- (pow D -2) (/ (* 1/8 (* (* M M) h)) (* (* d d) l))) (.f64 (-.f64 (/.f64 (pow.f64 D #s(literal -2 binary64)) h) (/.f64 (.f64 #s(literal 1/8 binary64) (.f64 M M)) (.f64 (*.f64 d d) l))) h))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 (.f64 (neg.f64 (/.f64 (pow.f64 (*.f64 D M) #s(literal 2 binary64)) d)) (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64))))) #s(literal -1/8 binary64)))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (neg.f64 (.f64 (+.f64 (.f64 (.f64 (neg.f64 (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) d)) (sqrt.f64 (pow.f64 (.f64 (pow.f64 l #s(literal 3 binary64)) h) #s(literal -1 binary64)))) #s(literal 1/8 binary64)) (neg.f64 (.f64 (sqrt.f64 (pow.f64 (.f64 (pow.f64 h #s(literal 3 binary64)) l) #s(literal -1 binary64))) (.f64 #s(literal -1 binary64) d)))) h)))
#s(approx (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (.f64 d (neg.f64 (pow.f64 (.f64 l h) #s(literal -1/2 binary64)))))
#s(approx (pow (/ d h) (/ 1 2)) (*.f64 #s(literal -1 binary64) (sqrt.f64 (/.f64 d h))))
#s(approx (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (.f64 (-.f64 (pow.f64 h #s(literal -1 binary64)) (.f64 (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) (.f64 (*.f64 d d) l)) #s(literal 1/8 binary64))) h))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 (.f64 (neg.f64 (/.f64 (pow.f64 (*.f64 D M) #s(literal 2 binary64)) d)) (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64))))) #s(literal -1/8 binary64)))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (neg.f64 (.f64 (+.f64 (.f64 (.f64 (neg.f64 (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) d)) (sqrt.f64 (pow.f64 (.f64 (pow.f64 l #s(literal 3 binary64)) h) #s(literal -1 binary64)))) #s(literal 1/8 binary64)) (neg.f64 (.f64 (sqrt.f64 (pow.f64 (.f64 (pow.f64 h #s(literal 3 binary64)) l) #s(literal -1 binary64))) (.f64 #s(literal -1 binary64) d)))) h)))
#s(approx (* (sqrt (pow (* l h) -1)) d) (.f64 d (neg.f64 (pow.f64 (.f64 l h) #s(literal -1/2 binary64)))))
#s(approx (sqrt (pow (* l h) -1)) (neg.f64 (pow.f64 (*.f64 l h) #s(literal -1/2 binary64))))
#s(approx (* (* -1/8 (/ (* (pow (* D M) 2) -1) d)) (sqrt (/ h (pow l 3)))) (.f64 (.f64 (neg.f64 (/.f64 (pow.f64 (*.f64 D M) #s(literal 2 binary64)) d)) (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64))))) #s(literal -1/8 binary64)))
#s(approx (sqrt (/ h (pow l 3))) (neg.f64 (*.f64 (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64)))) #s(literal -1 binary64))))
#s(approx (* (+ (* (/ d (* D D)) (sqrt (pow (* l h) -1))) (* (* -1/8 (/ (* M M) d)) (sqrt (/ h (pow l 3))))) (* D D)) (.f64 (.f64 (neg.f64 (/.f64 (pow.f64 (*.f64 D M) #s(literal 2 binary64)) d)) (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64))))) #s(literal 1/8 binary64)))
#s(approx (* (+ (* (/ d (* D D)) (sqrt (pow (* l h) -1))) (* (* -1/8 (/ (* M M) d)) (sqrt (/ h (pow l 3))))) (* D D)) (neg.f64 (.f64 (-.f64 (neg.f64 (.f64 (sqrt.f64 (pow.f64 (.f64 (pow.f64 h #s(literal 3 binary64)) l) #s(literal -1 binary64))) (.f64 #s(literal -1 binary64) d))) (.f64 (.f64 (neg.f64 (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) d)) (sqrt.f64 (pow.f64 (.f64 (pow.f64 l #s(literal 3 binary64)) h) #s(literal -1 binary64)))) #s(literal 1/8 binary64))) h)))
#s(approx (+ (* (/ d (* D D)) (sqrt (pow (* l h) -1))) (* (* -1/8 (/ (* M M) d)) (sqrt (/ h (pow l 3))))) (.f64 (.f64 #s(literal 1/8 binary64) (/.f64 (.f64 (.f64 M M) #s(literal -1 binary64)) d)) (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64))))))
#s(approx (+ (* (/ d (* D D)) (sqrt (pow (* l h) -1))) (* (* -1/8 (/ (* M M) d)) (sqrt (/ h (pow l 3))))) (neg.f64 (.f64 (+.f64 (.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (.f64 M M) #s(literal -1 binary64)) d)) (sqrt.f64 (pow.f64 (.f64 (pow.f64 l #s(literal 3 binary64)) h) #s(literal -1 binary64)))) (neg.f64 (.f64 (.f64 d (/.f64 #s(literal -1 binary64) (.f64 D D))) (sqrt.f64 (pow.f64 (.f64 (pow.f64 h #s(literal 3 binary64)) l) #s(literal -1 binary64)))))) h)))
#s(approx (* (/ d (* D D)) (sqrt (pow (* l h) -1))) (/.f64 (.f64 d (neg.f64 (pow.f64 (.f64 l h) #s(literal -1/2 binary64)))) (*.f64 D D)))
#s(approx (* (* -1/8 (/ (* M M) d)) (sqrt (/ h (pow l 3)))) (.f64 (.f64 #s(literal 1/8 binary64) (/.f64 (.f64 (.f64 M M) #s(literal -1 binary64)) d)) (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64))))))
#s(approx (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (.f64 (-.f64 (pow.f64 h #s(literal -1 binary64)) (.f64 (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) (.f64 (*.f64 d d) l)) #s(literal 1/8 binary64))) h))
#s(approx (* (- (pow D -2) (/ (* 1/8 (* (* M M) h)) (* (* d d) l))) (* D D)) (neg.f64 (.f64 (-.f64 (.f64 (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) (.f64 (*.f64 d d) l)) #s(literal 1/8 binary64)) (pow.f64 h #s(literal -1 binary64))) h)))
#s(approx (- (pow D -2) (/ (* 1/8 (* (* M M) h)) (* (* d d) l))) (.f64 (-.f64 (/.f64 (pow.f64 D #s(literal -2 binary64)) h) (/.f64 (.f64 #s(literal 1/8 binary64) (.f64 M M)) (.f64 (*.f64 d d) l))) h))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (/.f64 (+.f64 (.f64 (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) h)) d) (.f64 (.f64 (sqrt.f64 (.f64 l h)) (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) d)) #s(literal -1/8 binary64))) (.f64 l l)))
#s(approx l l)
#s(approx (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (/.f64 (-.f64 l (.f64 (/.f64 (.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) h) (.f64 d d)) #s(literal 1/8 binary64))) l))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (/.f64 (+.f64 (.f64 (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) h)) d) (.f64 (.f64 (sqrt.f64 (.f64 l h)) (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) d)) #s(literal -1/8 binary64))) (.f64 l l)))
#s(approx (pow l 3) (pow.f64 l #s(literal 3 binary64)))
#s(approx (* (+ (* (/ d (* D D)) (sqrt (pow (* l h) -1))) (* (* -1/8 (/ (* M M) d)) (sqrt (/ h (pow l 3))))) (* D D)) (/.f64 (+.f64 (.f64 (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) h)) d) (.f64 (.f64 (sqrt.f64 (.f64 l h)) (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) d)) #s(literal -1/8 binary64))) (.f64 l l)))
#s(approx (+ (* (/ d (* D D)) (sqrt (pow (* l h) -1))) (* (* -1/8 (/ (* M M) d)) (sqrt (/ h (pow l 3))))) (/.f64 (+.f64 (.f64 (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) h)) (/.f64 d (.f64 D D))) (.f64 (.f64 (/.f64 (.f64 M M) d) #s(literal -1/8 binary64)) (sqrt.f64 (.f64 l h)))) (*.f64 l l)))
#s(approx (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (/.f64 (-.f64 l (.f64 (/.f64 (.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) h) (.f64 d d)) #s(literal 1/8 binary64))) l))
#s(approx (* (- (pow D -2) (/ (* 1/8 (* (* M M) h)) (* (* d d) l))) (* D D)) (/.f64 (-.f64 l (.f64 (/.f64 (.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) h) (.f64 d d)) #s(literal 1/8 binary64))) l))
#s(approx (- (pow D -2) (/ (* 1/8 (* (* M M) h)) (* (* d d) l))) (/.f64 (-.f64 (/.f64 l (.f64 D D)) (/.f64 (.f64 (.f64 #s(literal 1/8 binary64) (.f64 M M)) h) (*.f64 d d))) l))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (+.f64 (.f64 (pow.f64 (.f64 l h) #s(literal -1/2 binary64)) d) (.f64 (.f64 (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64)))) (/.f64 (pow.f64 (*.f64 D M) #s(literal 2 binary64)) d)) #s(literal -1/8 binary64))))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (+.f64 (.f64 (pow.f64 (.f64 l h) #s(literal -1/2 binary64)) d) (.f64 (.f64 (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64)))) (/.f64 (pow.f64 (*.f64 D M) #s(literal 2 binary64)) d)) #s(literal -1/8 binary64))))
#s(approx (* (+ (* (/ d (* D D)) (sqrt (pow (* l h) -1))) (* (* -1/8 (/ (* M M) d)) (sqrt (/ h (pow l 3))))) (* D D)) (+.f64 (.f64 (pow.f64 (.f64 l h) #s(literal -1/2 binary64)) d) (.f64 (.f64 (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64)))) (/.f64 (pow.f64 (*.f64 D M) #s(literal 2 binary64)) d)) #s(literal -1/8 binary64))))
#s(approx (+ (* (/ d (* D D)) (sqrt (pow (* l h) -1))) (* (* -1/8 (/ (* M M) d)) (sqrt (/ h (pow l 3))))) (+.f64 (.f64 (/.f64 d (.f64 D D)) (pow.f64 (.f64 l h) #s(literal -1/2 binary64))) (.f64 (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64)))) (.f64 (/.f64 (.f64 M M) d) #s(literal -1/8 binary64)))))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 d (neg.f64 (pow.f64 (.f64 l h) #s(literal -1/2 binary64)))))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (+.f64 (.f64 (.f64 (neg.f64 (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) d)) (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64))))) #s(literal -1/8 binary64)) (.f64 d (neg.f64 (pow.f64 (*.f64 l h) #s(literal -1/2 binary64))))))
#s(approx (pow (/ d l) (/ 1 2)) (*.f64 #s(literal -1 binary64) (sqrt.f64 (/.f64 d l))))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 d (neg.f64 (pow.f64 (.f64 l h) #s(literal -1/2 binary64)))))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (+.f64 (.f64 (.f64 (neg.f64 (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) d)) (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64))))) #s(literal -1/8 binary64)) (.f64 d (neg.f64 (pow.f64 (*.f64 l h) #s(literal -1/2 binary64))))))
#s(approx (* (+ (* (/ d (* D D)) (sqrt (pow (* l h) -1))) (* (* -1/8 (/ (* M M) d)) (sqrt (/ h (pow l 3))))) (* D D)) (.f64 d (neg.f64 (pow.f64 (.f64 l h) #s(literal -1/2 binary64)))))
#s(approx (* (+ (* (/ d (* D D)) (sqrt (pow (* l h) -1))) (* (* -1/8 (/ (* M M) d)) (sqrt (/ h (pow l 3))))) (* D D)) (+.f64 (.f64 (.f64 (neg.f64 (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) d)) (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64))))) #s(literal 1/8 binary64)) (.f64 d (neg.f64 (pow.f64 (*.f64 l h) #s(literal -1/2 binary64))))))
#s(approx (+ (* (/ d (* D D)) (sqrt (pow (* l h) -1))) (* (* -1/8 (/ (* M M) d)) (sqrt (/ h (pow l 3))))) (/.f64 (.f64 d (neg.f64 (pow.f64 (.f64 l h) #s(literal -1/2 binary64)))) (*.f64 D D)))
#s(approx (+ (* (/ d (* D D)) (sqrt (pow (* l h) -1))) (* (* -1/8 (/ (* M M) d)) (sqrt (/ h (pow l 3))))) (+.f64 (/.f64 (.f64 d (neg.f64 (pow.f64 (.f64 l h) #s(literal -1/2 binary64)))) (.f64 D D)) (.f64 (.f64 #s(literal 1/8 binary64) (/.f64 (.f64 (*.f64 M M) #s(literal -1 binary64)) d)) (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64)))))))
#s(approx (/ M 2) (*.f64 #s(literal 1/2 binary64) M))
#s(approx M M)
#s(approx (* (pow (* D M) 2) -1) (neg.f64 (pow.f64 (*.f64 D M) #s(literal 2 binary64))))
#s(approx (pow (* D M) 2) (pow.f64 (*.f64 D M) #s(literal 2 binary64)))
#s(approx (* D M) (*.f64 D M))
#s(approx (* M M) (*.f64 M M))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 (+.f64 (.f64 (/.f64 d (.f64 M M)) (pow.f64 (.f64 l h) #s(literal -1/2 binary64))) (.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 D D) d)) (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64)))))) (.f64 M M)))
#s(approx (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (.f64 (-.f64 (pow.f64 M #s(literal -2 binary64)) (/.f64 (.f64 #s(literal 1/8 binary64) (.f64 (.f64 D D) h)) (.f64 (.f64 d d) l))) (*.f64 M M)))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 (+.f64 (.f64 (/.f64 d (.f64 M M)) (pow.f64 (.f64 l h) #s(literal -1/2 binary64))) (.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 D D) d)) (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64)))))) (.f64 M M)))
#s(approx (* (+ (* (/ d (* D D)) (sqrt (pow (* l h) -1))) (* (* -1/8 (/ (* M M) d)) (sqrt (/ h (pow l 3))))) (* D D)) (.f64 (+.f64 (.f64 (/.f64 d (.f64 M M)) (pow.f64 (.f64 l h) #s(literal -1/2 binary64))) (.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 D D) d)) (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64)))))) (.f64 M M)))
#s(approx (+ (* (/ d (* D D)) (sqrt (pow (* l h) -1))) (* (* -1/8 (/ (* M M) d)) (sqrt (/ h (pow l 3))))) (.f64 (+.f64 (.f64 (/.f64 d (pow.f64 (.f64 D M) #s(literal 2 binary64))) (pow.f64 (.f64 l h) #s(literal -1/2 binary64))) (.f64 (.f64 #s(literal -1/8 binary64) (pow.f64 d #s(literal -1 binary64))) (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64)))))) (*.f64 M M)))
#s(approx (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (.f64 (-.f64 (pow.f64 M #s(literal -2 binary64)) (/.f64 (.f64 #s(literal 1/8 binary64) (.f64 (.f64 D D) h)) (.f64 (.f64 d d) l))) (*.f64 M M)))
#s(approx (* (- (pow D -2) (/ (* 1/8 (* (* M M) h)) (* (* d d) l))) (* D D)) (.f64 (-.f64 (pow.f64 M #s(literal -2 binary64)) (/.f64 (.f64 #s(literal 1/8 binary64) (.f64 (.f64 D D) h)) (.f64 (.f64 d d) l))) (*.f64 M M)))
#s(approx (- (pow D -2) (/ (* 1/8 (* (* M M) h)) (* (* d d) l))) (.f64 (-.f64 (/.f64 (pow.f64 D #s(literal -2 binary64)) (.f64 M M)) (.f64 (/.f64 h (.f64 (.f64 d d) l)) #s(literal 1/8 binary64))) (.f64 M M)))
#s(approx D D)
#s(approx (+ (* (/ d (* D D)) (sqrt (pow (* l h) -1))) (* (* -1/8 (/ (* M M) d)) (sqrt (/ h (pow l 3))))) (/.f64 (+.f64 (.f64 (pow.f64 (.f64 l h) #s(literal -1/2 binary64)) d) (.f64 (.f64 (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64)))) (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) d)) #s(literal -1/8 binary64))) (.f64 D D)))
#s(approx (* D D) (*.f64 D D))
#s(approx (- (pow D -2) (/ (* 1/8 (* (* M M) h)) (* (* d d) l))) (/.f64 (-.f64 #s(literal 1 binary64) (.f64 (/.f64 (.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) h) (.f64 (.f64 d d) l)) #s(literal 1/8 binary64))) (.f64 D D)))
#s(approx (pow D -2) (pow.f64 D #s(literal -2 binary64)))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 (+.f64 (.f64 (/.f64 d (.f64 D D)) (pow.f64 (.f64 l h) #s(literal -1/2 binary64))) (.f64 (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64)))) (.f64 (/.f64 (.f64 M M) d) #s(literal -1/8 binary64)))) (.f64 D D)))
#s(approx (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (.f64 (-.f64 (pow.f64 D #s(literal -2 binary64)) (.f64 (/.f64 #s(literal 1/8 binary64) (.f64 d d)) (/.f64 (.f64 (.f64 M M) h) l))) (.f64 D D)))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 (+.f64 (.f64 (/.f64 d (.f64 D D)) (pow.f64 (.f64 l h) #s(literal -1/2 binary64))) (.f64 (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64)))) (.f64 (/.f64 (.f64 M M) d) #s(literal -1/8 binary64)))) (.f64 D D)))
#s(approx (* (+ (* (/ d (* D D)) (sqrt (pow (* l h) -1))) (* (* -1/8 (/ (* M M) d)) (sqrt (/ h (pow l 3))))) (* D D)) (.f64 (+.f64 (.f64 (/.f64 d (.f64 D D)) (pow.f64 (.f64 l h) #s(literal -1/2 binary64))) (.f64 (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64)))) (.f64 (/.f64 (.f64 M M) d) #s(literal -1/8 binary64)))) (.f64 D D)))
#s(approx (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (.f64 (-.f64 (pow.f64 D #s(literal -2 binary64)) (.f64 (/.f64 #s(literal 1/8 binary64) (.f64 d d)) (/.f64 (.f64 (.f64 M M) h) l))) (.f64 D D)))
#s(approx (* (- (pow D -2) (/ (* 1/8 (* (* M M) h)) (* (* d d) l))) (* D D)) (.f64 (-.f64 (pow.f64 D #s(literal -2 binary64)) (.f64 (/.f64 #s(literal 1/8 binary64) (.f64 d d)) (/.f64 (.f64 (.f64 M M) h) l))) (.f64 D D)))
#s(approx (- (pow D -2) (/ (* 1/8 (* (* M M) h)) (* (* d d) l))) (-.f64 (pow.f64 D #s(literal -2 binary64)) (.f64 (/.f64 #s(literal 1/8 binary64) (.f64 d d)) (/.f64 (.f64 (.f64 M M) h) l))))

eval56.0ms (0.5%)

Memory: 6.0MiB live, 151.4MiB allocated; 15ms collecting garbage
Compiler: Compiled 29 254 to 1 873 computations (93.6% saved)

prune68.0ms (0.7%)

Memory

28.9MiB live, 173.8MiB allocated; 8ms collecting garbage

Pruning

40 alts after pruning (40 fresh and 0 done)

	Pruned	Kept	Total
New	467	30	497
Fresh	10	10	20
Picked	5	0	5
Done	0	0	0
Total	482	40	522

Accuracy

94.7%

Counts

522 → 40

Alt Table

Click to see full alt table

Status	Accuracy	Program
	56.7%	(.f64 (pow.f64 (.f64 (/.f64 d h) (/.f64 d l)) #s(literal 1/2 binary64)) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (pow.f64 (*.f64 (/.f64 M #s(literal 2 binary64)) (/.f64 D d)) #s(literal 2 binary64)) #s(literal 1/2 binary64)) h) l)))
	54.3%	(.f64 (pow.f64 (.f64 (/.f64 d h) (/.f64 d l)) #s(literal 1/2 binary64)) (-.f64 #s(literal 1 binary64) (.f64 (.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) (pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64))) (/.f64 h l))))
	32.1%	(.f64 (pow.f64 (.f64 (/.f64 d h) (/.f64 d l)) #s(literal 1/2 binary64)) #s(approx (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (.f64 (-.f64 (pow.f64 D #s(literal -2 binary64)) (/.f64 (.f64 #s(literal 1/8 binary64) (.f64 (.f64 M M) h)) (.f64 (.f64 d d) l))) (*.f64 D D))))
▶	68.5%	(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (pow.f64 (.f64 (/.f64 D d) (/.f64 M #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) h)) l)) (*.f64 (sqrt.f64 (/.f64 d l)) (sqrt.f64 (/.f64 d h))))
	66.0%	(.f64 (-.f64 #s(literal 1 binary64) (.f64 (/.f64 h l) (.f64 (pow.f64 (.f64 (/.f64 M #s(literal 2 binary64)) (/.f64 D d)) #s(literal 2 binary64)) #s(literal 1/2 binary64)))) (*.f64 (sqrt.f64 (/.f64 d l)) (sqrt.f64 (/.f64 d h))))
	55.9%	(.f64 (.f64 (pow.f64 (/.f64 d h) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64))) (pow.f64 (/.f64 d l) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)))) (-.f64 #s(literal 1 binary64) (/.f64 #s(approx (* (* (pow (* (/ M 2) (/ D d)) 2) 1/2) h) (.f64 (/.f64 (.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) h) (.f64 d d)) #s(literal 1/8 binary64))) l)))
	54.8%	(.f64 (.f64 (pow.f64 (/.f64 d h) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64))) (pow.f64 (/.f64 d l) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)))) (-.f64 #s(literal 1 binary64) (.f64 #s(approx ( (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/.f64 (.f64 #s(literal 1/8 binary64) (pow.f64 (.f64 D M) #s(literal 2 binary64))) (*.f64 d d))) (/.f64 h l))))
	26.7%	(.f64 (.f64 (pow.f64 (/.f64 d h) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64))) (pow.f64 (/.f64 d l) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)))) #s(approx (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (/.f64 (.f64 #s(literal -1/8 binary64) (.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) h)) (.f64 (*.f64 d d) l))))
	29.3%	(.f64 (.f64 (pow.f64 (/.f64 d h) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64))) (pow.f64 (/.f64 d l) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)))) #s(approx (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (.f64 (-.f64 (pow.f64 M #s(literal -2 binary64)) (/.f64 (.f64 #s(literal 1/8 binary64) (.f64 (.f64 D D) h)) (.f64 (.f64 d d) l))) (*.f64 M M))))
	39.6%	(.f64 (.f64 (pow.f64 (/.f64 d h) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64))) (pow.f64 (/.f64 d l) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)))) #s(approx (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (.f64 (-.f64 (.f64 (pow.f64 D #s(literal -1 binary64)) (pow.f64 D #s(literal -1 binary64))) (/.f64 (.f64 #s(literal 1/8 binary64) (.f64 (.f64 M M) h)) (.f64 (.f64 d d) l))) (.f64 D D))))
	43.7%	(.f64 (.f64 (pow.f64 (/.f64 d h) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64))) (pow.f64 (/.f64 d l) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)))) #s(approx (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (.f64 (.f64 (-.f64 (pow.f64 D #s(literal -2 binary64)) (.f64 (/.f64 #s(literal 1/8 binary64) (.f64 d d)) (/.f64 (.f64 (.f64 M M) h) l))) D) D)))
	34.7%	(.f64 (.f64 (pow.f64 (/.f64 d h) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64))) (/.f64 (sqrt.f64 d) (sqrt.f64 l))) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (pow.f64 (*.f64 (/.f64 M #s(literal 2 binary64)) (/.f64 D d)) #s(literal 2 binary64)) #s(literal 1/2 binary64)) h) l)))
▶	19.2%	(.f64 (.f64 (pow.f64 (/.f64 d h) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64))) (/.f64 (sqrt.f64 d) (sqrt.f64 l))) #s(approx (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (.f64 (-.f64 (pow.f64 D #s(literal -2 binary64)) (/.f64 (.f64 #s(literal 1/8 binary64) (.f64 (.f64 M M) h)) (.f64 (.f64 d d) l))) (*.f64 D D))))
	66.3%	(.f64 (.f64 (pow.f64 (/.f64 d h) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64))) (exp.f64 (.f64 (log.f64 (/.f64 d l)) #s(literal 1/2 binary64)))) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (pow.f64 (.f64 (/.f64 M #s(literal 2 binary64)) (/.f64 D d)) #s(literal 2 binary64)) #s(literal 1/2 binary64)) h) l)))
	0.8%	(.f64 (.f64 (pow.f64 (/.f64 d h) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64))) #s(approx (pow (/ d l) (/ 1 2)) (.f64 #s(literal -1 binary64) (sqrt.f64 (/.f64 d l))))) #s(approx (- 1 ( (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (.f64 (-.f64 (pow.f64 D #s(literal -2 binary64)) (/.f64 (.f64 #s(literal 1/8 binary64) (.f64 (.f64 M M) h)) (.f64 (.f64 d d) l))) (*.f64 D D))))
	66.4%	(.f64 (.f64 (sqrt.f64 (/.f64 d l)) (sqrt.f64 (/.f64 d h))) (-.f64 #s(literal 1 binary64) (.f64 (.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) (pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64))) (/.f64 h l))))
	39.7%	(.f64 (.f64 (sqrt.f64 (/.f64 d l)) (sqrt.f64 (/.f64 d h))) #s(approx (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (.f64 (-.f64 (pow.f64 D #s(literal -2 binary64)) (/.f64 (.f64 #s(literal 1/8 binary64) (.f64 (.f64 M M) h)) (.f64 (.f64 d d) l))) (*.f64 D D))))
	68.1%	(.f64 (sqrt.f64 (/.f64 d h)) (.f64 (sqrt.f64 (/.f64 d l)) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (pow.f64 (.f64 (/.f64 D d) (/.f64 M #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 #s(literal 1/2 binary64) h)) l))))
	65.7%	(.f64 (sqrt.f64 (/.f64 d h)) (.f64 (sqrt.f64 (/.f64 d l)) (-.f64 #s(literal 1 binary64) (.f64 (/.f64 h l) (.f64 (pow.f64 (*.f64 (/.f64 M #s(literal 2 binary64)) (/.f64 D d)) #s(literal 2 binary64)) #s(literal 1/2 binary64))))))
	35.2%	(.f64 #s(approx ( (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (.f64 (pow.f64 (.f64 l h) #s(literal -1/2 binary64)) d)) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (pow.f64 (*.f64 (/.f64 M #s(literal 2 binary64)) (/.f64 D d)) #s(literal 2 binary64)) #s(literal 1/2 binary64)) h) l)))
	18.9%	(.f64 #s(approx ( (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (.f64 (pow.f64 (.f64 l h) #s(literal -1/2 binary64)) d)) #s(approx (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (.f64 (-.f64 (pow.f64 D #s(literal -2 binary64)) (/.f64 (.f64 #s(literal 1/8 binary64) (.f64 (.f64 M M) h)) (.f64 (.f64 d d) l))) (*.f64 D D))))
	37.9%	(.f64 #s(approx ( (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (.f64 (.f64 #s(literal -1 binary64) d) (sqrt.f64 (pow.f64 (.f64 l h) #s(literal -1 binary64))))) (-.f64 #s(literal 1 binary64) (.f64 (.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) (pow.f64 (/.f64 (.f64 M D) (*.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64))) (/.f64 h l))))
	35.1%	(.f64 #s(approx ( (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (.f64 (sqrt.f64 (pow.f64 (.f64 l h) #s(literal -1 binary64))) d)) (-.f64 #s(literal 1 binary64) (.f64 (.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) (pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64))) (/.f64 h l))))
▶	40.7%	(.f64 #s(approx ( (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (.f64 d (neg.f64 (pow.f64 (.f64 l h) #s(literal -1/2 binary64))))) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (pow.f64 (*.f64 (/.f64 M #s(literal 2 binary64)) (/.f64 D d)) #s(literal 2 binary64)) #s(literal 1/2 binary64)) h) l)))
	19.6%	#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (/.f64 (+.f64 (.f64 (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) h)) d) (.f64 (.f64 (sqrt.f64 (.f64 l h)) (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) d)) #s(literal -1/8 binary64))) (.f64 l l)))
	49.1%	#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (/.f64 (+.f64 (.f64 (sqrt.f64 (/.f64 h l)) d) (.f64 (.f64 (sqrt.f64 (pow.f64 (/.f64 h l) #s(literal 3 binary64))) (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) d)) #s(literal -1/8 binary64))) h))
	23.6%	#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 (pow.f64 (.f64 l h) #s(literal -1/2 binary64)) d))
	23.5%	#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (.f64 l h))) d))
	21.6%	#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 (+.f64 (.f64 (/.f64 d (.f64 D D)) (sqrt.f64 (pow.f64 (.f64 l h) #s(literal -1 binary64)))) (.f64 (.f64 #s(literal -1/8 binary64) (.f64 M (/.f64 M d))) (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64)))))) (.f64 D D)))
	20.0%	#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 (.f64 (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64)))) (/.f64 (pow.f64 (*.f64 D M) #s(literal 2 binary64)) d)) #s(literal -1/8 binary64)))
▶	22.0%	#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (.f64 (.f64 D M) (.f64 D M)) #s(literal -1 binary64)) d)) (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64))))))
	18.1%	#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 (.f64 #s(literal -1/8 binary64) (.f64 (.f64 D D) (/.f64 (.f64 (.f64 M M) #s(literal -1 binary64)) d))) (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64))))))
	25.1%	#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 (.f64 #s(literal -1 binary64) d) (sqrt.f64 (pow.f64 (*.f64 l h) #s(literal -1 binary64)))))
	23.7%	#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (*.f64 (sqrt.f64 (/.f64 (pow.f64 h #s(literal -1 binary64)) l)) d))
▶	23.6%	#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 l h))) d))
	35.0%	#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 #s(approx (+ ( (/ d (* D D)) (sqrt (pow (* l h) -1))) (* (* -1/8 (/ (* M M) d)) (sqrt (/ h (pow l 3))))) (/.f64 (+.f64 (.f64 (sqrt.f64 (/.f64 h l)) (/.f64 d (.f64 D D))) (.f64 (.f64 (/.f64 (.f64 M M) d) #s(literal -1/8 binary64)) (sqrt.f64 (pow.f64 (/.f64 h l) #s(literal 3 binary64))))) h)) (.f64 D D)))
	12.8%	#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 #s(approx (+ ( (/ d (* D D)) (sqrt (pow (* l h) -1))) (* (* -1/8 (/ (* M M) d)) (sqrt (/ h (pow l 3))))) (/.f64 (.f64 d (neg.f64 (pow.f64 (.f64 l h) #s(literal -1/2 binary64)))) (.f64 D D))) (.f64 D D)))
	11.9%	#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 #s(approx (+ ( (/ d (* D D)) (sqrt (pow (* l h) -1))) (* (* -1/8 (/ (* M M) d)) (sqrt (/ h (pow l 3))))) (.f64 (/.f64 d (.f64 D D)) (pow.f64 (.f64 l h) #s(literal -1/2 binary64)))) (.f64 D D)))
	16.2%	#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 #s(approx (+ ( (/ d (* D D)) (sqrt (pow (* l h) -1))) (* (* -1/8 (/ (* M M) d)) (sqrt (/ h (pow l 3))))) (.f64 (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64)))) (.f64 (/.f64 (.f64 M M) d) #s(literal -1/8 binary64)))) (.f64 D D)))
	25.5%	#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 #s(approx (sqrt (pow ( l h) -1)) (neg.f64 (pow.f64 (*.f64 l h) #s(literal -1/2 binary64)))) d))

Compiler

Compiled 3 998 to 2 668 computations (33.3% saved)

series162.0ms (1.5%)

Memory

-29.3MiB live, 350.5MiB allocated; 35ms collecting garbage

Counts

72 → 182

Calls

Call 1

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

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

Calls

15 calls:

Time	Variable		Point	Expression
23.0ms	h	@	-inf	((* (- 1 (/ (* (pow (* (/ D d) (/ M 2)) 2) (* 1/2 h)) l)) (* (sqrt (/ d l)) (sqrt (/ d h)))) (- 1 (/ (* (pow (* (/ D d) (/ M 2)) 2) (* 1/2 h)) l)) 1 (/ (* (pow (* (/ D d) (/ M 2)) 2) (* 1/2 h)) l) (* (pow (* (/ D d) (/ M 2)) 2) (* 1/2 h)) (pow (* (/ D d) (/ M 2)) 2) (* (/ D d) (/ M 2)) (/ D d) D d (/ M 2) M 2 (* 1/2 h) 1/2 h l (* (sqrt (/ d l)) (sqrt (/ d h))) (sqrt (/ d l)) (/ d l) (sqrt (/ d h)) (/ d h) (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (* (sqrt (/ 1 (* l h))) d) (sqrt (/ 1 (* l h))) (/ 1 (* l h)) (* l h) (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (* (* -1/8 (/ (* (* (* D M) (* D M)) -1) d)) (sqrt (/ h (pow l 3)))) (* -1/8 (/ (* (* (* D M) (* D M)) -1) d)) -1/8 (/ (* (* (* D M) (* D M)) -1) d) (* (* (* D M) (* D M)) -1) (* (* D M) (* D M)) (* D M) -1 (sqrt (/ h (pow l 3))) (/ h (pow l 3)) (pow l 3) 3 (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (/ (* (* (pow (* (/ M 2) (/ D d)) 2) 1/2) h) l))) (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (* d (neg (pow (* l h) -1/2))) (neg (pow (* l h) -1/2)) (pow (* l h) -1/2) -1/2 (- 1 (/ (* (* (pow (* (/ M 2) (/ D d)) 2) 1/2) h) l)) (/ (* (* (pow (* (/ M 2) (/ D d)) 2) 1/2) h) l) (* (* (pow (* (/ M 2) (/ D d)) 2) 1/2) h) (* (pow (* (/ M 2) (/ D d)) 2) 1/2) (pow (* (/ M 2) (/ D d)) 2) (* (/ M 2) (/ D d)) (* (* (pow (/ d h) (/ 1 2)) (/ (sqrt d) (sqrt l))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (* (pow (/ d h) (/ 1 2)) (/ (sqrt d) (sqrt l))) (pow (/ d h) (/ 1 2)) (/ 1 2) (/ (sqrt d) (sqrt l)) (sqrt d) (sqrt l) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (* (- (pow D -2) (/ (* 1/8 (* (* M M) h)) (* (* d d) l))) (* D D)) (- (pow D -2) (/ (* 1/8 (* (* M M) h)) (* (* d d) l))) (pow D -2) -2 (/ (* 1/8 (* (* M M) h)) (* (* d d) l)) (* 1/8 (* (* M M) h)) 1/8 (* (* M M) h) (* M M) (* (* d d) l) (* d d) (* D D))
13.0ms	h	@	inf	((* (- 1 (/ (* (pow (* (/ D d) (/ M 2)) 2) (* 1/2 h)) l)) (* (sqrt (/ d l)) (sqrt (/ d h)))) (- 1 (/ (* (pow (* (/ D d) (/ M 2)) 2) (* 1/2 h)) l)) 1 (/ (* (pow (* (/ D d) (/ M 2)) 2) (* 1/2 h)) l) (* (pow (* (/ D d) (/ M 2)) 2) (* 1/2 h)) (pow (* (/ D d) (/ M 2)) 2) (* (/ D d) (/ M 2)) (/ D d) D d (/ M 2) M 2 (* 1/2 h) 1/2 h l (* (sqrt (/ d l)) (sqrt (/ d h))) (sqrt (/ d l)) (/ d l) (sqrt (/ d h)) (/ d h) (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (* (sqrt (/ 1 (* l h))) d) (sqrt (/ 1 (* l h))) (/ 1 (* l h)) (* l h) (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (* (* -1/8 (/ (* (* (* D M) (* D M)) -1) d)) (sqrt (/ h (pow l 3)))) (* -1/8 (/ (* (* (* D M) (* D M)) -1) d)) -1/8 (/ (* (* (* D M) (* D M)) -1) d) (* (* (* D M) (* D M)) -1) (* (* D M) (* D M)) (* D M) -1 (sqrt (/ h (pow l 3))) (/ h (pow l 3)) (pow l 3) 3 (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (/ (* (* (pow (* (/ M 2) (/ D d)) 2) 1/2) h) l))) (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (* d (neg (pow (* l h) -1/2))) (neg (pow (* l h) -1/2)) (pow (* l h) -1/2) -1/2 (- 1 (/ (* (* (pow (* (/ M 2) (/ D d)) 2) 1/2) h) l)) (/ (* (* (pow (* (/ M 2) (/ D d)) 2) 1/2) h) l) (* (* (pow (* (/ M 2) (/ D d)) 2) 1/2) h) (* (pow (* (/ M 2) (/ D d)) 2) 1/2) (pow (* (/ M 2) (/ D d)) 2) (* (/ M 2) (/ D d)) (* (* (pow (/ d h) (/ 1 2)) (/ (sqrt d) (sqrt l))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (* (pow (/ d h) (/ 1 2)) (/ (sqrt d) (sqrt l))) (pow (/ d h) (/ 1 2)) (/ 1 2) (/ (sqrt d) (sqrt l)) (sqrt d) (sqrt l) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (* (- (pow D -2) (/ (* 1/8 (* (* M M) h)) (* (* d d) l))) (* D D)) (- (pow D -2) (/ (* 1/8 (* (* M M) h)) (* (* d d) l))) (pow D -2) -2 (/ (* 1/8 (* (* M M) h)) (* (* d d) l)) (* 1/8 (* (* M M) h)) 1/8 (* (* M M) h) (* M M) (* (* d d) l) (* d d) (* D D))
11.0ms	d	@	0	((* (- 1 (/ (* (pow (* (/ D d) (/ M 2)) 2) (* 1/2 h)) l)) (* (sqrt (/ d l)) (sqrt (/ d h)))) (- 1 (/ (* (pow (* (/ D d) (/ M 2)) 2) (* 1/2 h)) l)) 1 (/ (* (pow (* (/ D d) (/ M 2)) 2) (* 1/2 h)) l) (* (pow (* (/ D d) (/ M 2)) 2) (* 1/2 h)) (pow (* (/ D d) (/ M 2)) 2) (* (/ D d) (/ M 2)) (/ D d) D d (/ M 2) M 2 (* 1/2 h) 1/2 h l (* (sqrt (/ d l)) (sqrt (/ d h))) (sqrt (/ d l)) (/ d l) (sqrt (/ d h)) (/ d h) (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (* (sqrt (/ 1 (* l h))) d) (sqrt (/ 1 (* l h))) (/ 1 (* l h)) (* l h) (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (* (* -1/8 (/ (* (* (* D M) (* D M)) -1) d)) (sqrt (/ h (pow l 3)))) (* -1/8 (/ (* (* (* D M) (* D M)) -1) d)) -1/8 (/ (* (* (* D M) (* D M)) -1) d) (* (* (* D M) (* D M)) -1) (* (* D M) (* D M)) (* D M) -1 (sqrt (/ h (pow l 3))) (/ h (pow l 3)) (pow l 3) 3 (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (/ (* (* (pow (* (/ M 2) (/ D d)) 2) 1/2) h) l))) (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (* d (neg (pow (* l h) -1/2))) (neg (pow (* l h) -1/2)) (pow (* l h) -1/2) -1/2 (- 1 (/ (* (* (pow (* (/ M 2) (/ D d)) 2) 1/2) h) l)) (/ (* (* (pow (* (/ M 2) (/ D d)) 2) 1/2) h) l) (* (* (pow (* (/ M 2) (/ D d)) 2) 1/2) h) (* (pow (* (/ M 2) (/ D d)) 2) 1/2) (pow (* (/ M 2) (/ D d)) 2) (* (/ M 2) (/ D d)) (* (* (pow (/ d h) (/ 1 2)) (/ (sqrt d) (sqrt l))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (* (pow (/ d h) (/ 1 2)) (/ (sqrt d) (sqrt l))) (pow (/ d h) (/ 1 2)) (/ 1 2) (/ (sqrt d) (sqrt l)) (sqrt d) (sqrt l) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (* (- (pow D -2) (/ (* 1/8 (* (* M M) h)) (* (* d d) l))) (* D D)) (- (pow D -2) (/ (* 1/8 (* (* M M) h)) (* (* d d) l))) (pow D -2) -2 (/ (* 1/8 (* (* M M) h)) (* (* d d) l)) (* 1/8 (* (* M M) h)) 1/8 (* (* M M) h) (* M M) (* (* d d) l) (* d d) (* D D))
11.0ms	l	@	-inf	((* (- 1 (/ (* (pow (* (/ D d) (/ M 2)) 2) (* 1/2 h)) l)) (* (sqrt (/ d l)) (sqrt (/ d h)))) (- 1 (/ (* (pow (* (/ D d) (/ M 2)) 2) (* 1/2 h)) l)) 1 (/ (* (pow (* (/ D d) (/ M 2)) 2) (* 1/2 h)) l) (* (pow (* (/ D d) (/ M 2)) 2) (* 1/2 h)) (pow (* (/ D d) (/ M 2)) 2) (* (/ D d) (/ M 2)) (/ D d) D d (/ M 2) M 2 (* 1/2 h) 1/2 h l (* (sqrt (/ d l)) (sqrt (/ d h))) (sqrt (/ d l)) (/ d l) (sqrt (/ d h)) (/ d h) (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (* (sqrt (/ 1 (* l h))) d) (sqrt (/ 1 (* l h))) (/ 1 (* l h)) (* l h) (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (* (* -1/8 (/ (* (* (* D M) (* D M)) -1) d)) (sqrt (/ h (pow l 3)))) (* -1/8 (/ (* (* (* D M) (* D M)) -1) d)) -1/8 (/ (* (* (* D M) (* D M)) -1) d) (* (* (* D M) (* D M)) -1) (* (* D M) (* D M)) (* D M) -1 (sqrt (/ h (pow l 3))) (/ h (pow l 3)) (pow l 3) 3 (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (/ (* (* (pow (* (/ M 2) (/ D d)) 2) 1/2) h) l))) (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (* d (neg (pow (* l h) -1/2))) (neg (pow (* l h) -1/2)) (pow (* l h) -1/2) -1/2 (- 1 (/ (* (* (pow (* (/ M 2) (/ D d)) 2) 1/2) h) l)) (/ (* (* (pow (* (/ M 2) (/ D d)) 2) 1/2) h) l) (* (* (pow (* (/ M 2) (/ D d)) 2) 1/2) h) (* (pow (* (/ M 2) (/ D d)) 2) 1/2) (pow (* (/ M 2) (/ D d)) 2) (* (/ M 2) (/ D d)) (* (* (pow (/ d h) (/ 1 2)) (/ (sqrt d) (sqrt l))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (* (pow (/ d h) (/ 1 2)) (/ (sqrt d) (sqrt l))) (pow (/ d h) (/ 1 2)) (/ 1 2) (/ (sqrt d) (sqrt l)) (sqrt d) (sqrt l) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (* (- (pow D -2) (/ (* 1/8 (* (* M M) h)) (* (* d d) l))) (* D D)) (- (pow D -2) (/ (* 1/8 (* (* M M) h)) (* (* d d) l))) (pow D -2) -2 (/ (* 1/8 (* (* M M) h)) (* (* d d) l)) (* 1/8 (* (* M M) h)) 1/8 (* (* M M) h) (* M M) (* (* d d) l) (* d d) (* D D))
11.0ms	d	@	-inf	((* (- 1 (/ (* (pow (* (/ D d) (/ M 2)) 2) (* 1/2 h)) l)) (* (sqrt (/ d l)) (sqrt (/ d h)))) (- 1 (/ (* (pow (* (/ D d) (/ M 2)) 2) (* 1/2 h)) l)) 1 (/ (* (pow (* (/ D d) (/ M 2)) 2) (* 1/2 h)) l) (* (pow (* (/ D d) (/ M 2)) 2) (* 1/2 h)) (pow (* (/ D d) (/ M 2)) 2) (* (/ D d) (/ M 2)) (/ D d) D d (/ M 2) M 2 (* 1/2 h) 1/2 h l (* (sqrt (/ d l)) (sqrt (/ d h))) (sqrt (/ d l)) (/ d l) (sqrt (/ d h)) (/ d h) (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (* (sqrt (/ 1 (* l h))) d) (sqrt (/ 1 (* l h))) (/ 1 (* l h)) (* l h) (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (* (* -1/8 (/ (* (* (* D M) (* D M)) -1) d)) (sqrt (/ h (pow l 3)))) (* -1/8 (/ (* (* (* D M) (* D M)) -1) d)) -1/8 (/ (* (* (* D M) (* D M)) -1) d) (* (* (* D M) (* D M)) -1) (* (* D M) (* D M)) (* D M) -1 (sqrt (/ h (pow l 3))) (/ h (pow l 3)) (pow l 3) 3 (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (/ (* (* (pow (* (/ M 2) (/ D d)) 2) 1/2) h) l))) (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (* d (neg (pow (* l h) -1/2))) (neg (pow (* l h) -1/2)) (pow (* l h) -1/2) -1/2 (- 1 (/ (* (* (pow (* (/ M 2) (/ D d)) 2) 1/2) h) l)) (/ (* (* (pow (* (/ M 2) (/ D d)) 2) 1/2) h) l) (* (* (pow (* (/ M 2) (/ D d)) 2) 1/2) h) (* (pow (* (/ M 2) (/ D d)) 2) 1/2) (pow (* (/ M 2) (/ D d)) 2) (* (/ M 2) (/ D d)) (* (* (pow (/ d h) (/ 1 2)) (/ (sqrt d) (sqrt l))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (* (pow (/ d h) (/ 1 2)) (/ (sqrt d) (sqrt l))) (pow (/ d h) (/ 1 2)) (/ 1 2) (/ (sqrt d) (sqrt l)) (sqrt d) (sqrt l) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (* (- (pow D -2) (/ (* 1/8 (* (* M M) h)) (* (* d d) l))) (* D D)) (- (pow D -2) (/ (* 1/8 (* (* M M) h)) (* (* d d) l))) (pow D -2) -2 (/ (* 1/8 (* (* M M) h)) (* (* d d) l)) (* 1/8 (* (* M M) h)) 1/8 (* (* M M) h) (* M M) (* (* d d) l) (* d d) (* D D))

rewrite85.0ms (0.8%)

Memory

-8.7MiB live, 130.3MiB allocated; 7ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	506	7092
0	597	6417
0	1789	6417

Stop Event

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

Counts

254 → 430

Calls

Call 1

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

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

eval47.0ms (0.5%)

Memory: 30.0MiB live, 120.5MiB allocated; 14ms collecting garbage
Compiler: Compiled 18 971 to 1 598 computations (91.6% saved)

prune57.0ms (0.5%)

Memory

-14.8MiB live, 130.2MiB allocated; 15ms collecting garbage

Pruning

42 alts after pruning (41 fresh and 1 done)

	Pruned	Kept	Total
New	361	30	391
Fresh	24	11	35
Picked	4	1	5
Done	0	0	0
Total	389	42	431

Accuracy

94.7%

Counts

431 → 42

Alt Table

Click to see full alt table

Status	Accuracy	Program
	54.3%	(.f64 (pow.f64 (.f64 (/.f64 d h) (/.f64 d l)) #s(literal 1/2 binary64)) (-.f64 #s(literal 1 binary64) (.f64 (.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) (pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64))) (/.f64 h l))))
▶	68.9%	(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) h)) l)) (.f64 (sqrt.f64 (/.f64 d l)) (sqrt.f64 (/.f64 d h))))
	34.7%	(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (pow.f64 (.f64 (/.f64 D d) (/.f64 M #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) h)) l)) (/.f64 (*.f64 (sqrt.f64 (/.f64 d h)) (sqrt.f64 d)) (sqrt.f64 l)))
	68.4%	(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (pow.f64 (.f64 (/.f64 D d) (/.f64 M #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) h)) l)) (.f64 (.f64 (pow.f64 (/.f64 d l) #s(literal 1/4 binary64)) (pow.f64 (/.f64 d l) #s(literal 1/4 binary64))) (sqrt.f64 (/.f64 d h))))
	35.9%	(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (pow.f64 (.f64 (/.f64 D d) (/.f64 M #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) h)) l)) (*.f64 (sqrt.f64 (/.f64 d l)) (/.f64 (sqrt.f64 d) (sqrt.f64 h))))
	66.3%	(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (pow.f64 (.f64 (/.f64 D d) (/.f64 M #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) h)) l)) (.f64 (exp.f64 (.f64 (log.f64 (/.f64 d l)) #s(literal 1/2 binary64))) (sqrt.f64 (/.f64 d h))))
	68.5%	(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (.f64 (/.f64 M #s(literal 2 binary64)) (/.f64 D d)) (.f64 (/.f64 M #s(literal 2 binary64)) (/.f64 D d))) (.f64 #s(literal 1/2 binary64) h)) l)) (*.f64 (sqrt.f64 (/.f64 d l)) (sqrt.f64 (/.f64 d h))))
	53.9%	(.f64 (-.f64 #s(literal 1 binary64) (.f64 (pow.f64 (.f64 (/.f64 M #s(literal 2 binary64)) (/.f64 D d)) #s(literal 2 binary64)) (/.f64 (.f64 h #s(literal 1/2 binary64)) l))) (sqrt.f64 (*.f64 (/.f64 d l) (/.f64 d h))))
	53.3%	(.f64 (-.f64 #s(literal 1 binary64) #s(approx (/ ( (* (pow (* (/ M 2) (/ D d)) 2) 1/2) h) l) (.f64 (/.f64 (.f64 (pow.f64 (.f64 M D) #s(literal 2 binary64)) h) (.f64 (.f64 d d) l)) #s(literal 1/8 binary64)))) (.f64 (sqrt.f64 (/.f64 d l)) (sqrt.f64 (/.f64 d h))))
	54.8%	(.f64 (.f64 (pow.f64 (/.f64 d h) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64))) (pow.f64 (/.f64 d l) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)))) (-.f64 #s(literal 1 binary64) (.f64 #s(approx ( (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/.f64 (.f64 #s(literal 1/8 binary64) (pow.f64 (.f64 D M) #s(literal 2 binary64))) (*.f64 d d))) (/.f64 h l))))
	20.2%	(.f64 (.f64 (pow.f64 (/.f64 d h) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64))) (/.f64 (sqrt.f64 d) (sqrt.f64 l))) #s(approx (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (.f64 (-.f64 (pow.f64 D #s(literal -2 binary64)) (.f64 (.f64 (.f64 M M) (/.f64 h (.f64 (.f64 d d) l))) #s(literal 1/8 binary64))) (*.f64 D D))))
	20.8%	(.f64 (.f64 (pow.f64 (/.f64 d h) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64))) (/.f64 (sqrt.f64 d) (sqrt.f64 l))) #s(approx (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (.f64 (.f64 (-.f64 (pow.f64 D #s(literal -2 binary64)) (.f64 (/.f64 #s(literal 1/8 binary64) (.f64 d d)) (/.f64 (.f64 (.f64 M M) h) l))) D) D)))
	9.5%	(.f64 (.f64 (pow.f64 (/.f64 d h) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64))) (/.f64 (sqrt.f64 d) (sqrt.f64 l))) #s(approx (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (.f64 #s(approx (- (pow D -2) (/ ( 1/8 (* (* M M) h)) (* (* d d) l))) (/.f64 (.f64 #s(literal -1/8 binary64) (.f64 (.f64 M M) h)) (.f64 (.f64 d d) l))) (.f64 D D))))
	28.0%	(.f64 (.f64 (pow.f64 (/.f64 d h) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64))) (/.f64 (sqrt.f64 d) (sqrt.f64 l))) #s(approx (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) #s(approx (* (- (pow D -2) (/ (* 1/8 (* (* M M) h)) (* (* d d) l))) (* D D)) (/.f64 (-.f64 l (.f64 (/.f64 (.f64 (pow.f64 (.f64 M D) #s(literal 2 binary64)) h) (.f64 d d)) #s(literal 1/8 binary64))) l))))
	13.4%	(.f64 (.f64 (pow.f64 (/.f64 d h) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64))) (/.f64 (sqrt.f64 d) (sqrt.f64 l))) #s(approx (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) #s(approx (* (- (pow D -2) (/ (* 1/8 (* (* M M) h)) (* (* d d) l))) (* D D)) (.f64 (/.f64 (.f64 (pow.f64 (.f64 M D) #s(literal 2 binary64)) h) (.f64 (*.f64 d d) l)) #s(literal -1/8 binary64)))))
	19.0%	(.f64 (.f64 (pow.f64 (/.f64 d h) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64))) (/.f64 (sqrt.f64 d) (sqrt.f64 l))) #s(approx (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) #s(approx (* (- (pow D -2) (/ (* 1/8 (* (* M M) h)) (* (* d d) l))) (* D D)) #s(literal 1 binary64))))
	65.7%	(.f64 (.f64 (-.f64 #s(literal 1 binary64) (.f64 (pow.f64 (.f64 (/.f64 M #s(literal 2 binary64)) (/.f64 D d)) #s(literal 2 binary64)) (/.f64 (*.f64 h #s(literal 1/2 binary64)) l))) (sqrt.f64 (/.f64 d l))) (sqrt.f64 (/.f64 d h)))
▶	66.4%	(.f64 (.f64 (sqrt.f64 (/.f64 d l)) (sqrt.f64 (/.f64 d h))) (-.f64 #s(literal 1 binary64) (.f64 (.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) (pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64))) (/.f64 h l))))
	39.7%	(.f64 (.f64 (sqrt.f64 (/.f64 d l)) (sqrt.f64 (/.f64 d h))) #s(approx (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (.f64 (-.f64 (pow.f64 D #s(literal -2 binary64)) (/.f64 (.f64 #s(literal 1/8 binary64) (.f64 (.f64 M M) h)) (.f64 (.f64 d d) l))) (*.f64 D D))))
	33.3%	(.f64 (sqrt.f64 (.f64 (/.f64 d l) (/.f64 d h))) #s(approx (- 1 (/ (* (* (pow (* (/ M 2) (/ D d)) 2) 1/2) h) l)) (.f64 (-.f64 (pow.f64 D #s(literal -2 binary64)) (.f64 (/.f64 #s(literal 1/8 binary64) (.f64 d d)) (/.f64 (.f64 (.f64 M M) h) l))) (.f64 D D))))
	55.9%	(.f64 #s(approx (- 1 (/ ( (* (pow (* (/ M 2) (/ D d)) 2) 1/2) h) l)) (/.f64 (-.f64 l (.f64 (/.f64 (.f64 (pow.f64 (.f64 M D) #s(literal 2 binary64)) h) (.f64 d d)) #s(literal 1/8 binary64))) l)) (*.f64 (sqrt.f64 (/.f64 d l)) (sqrt.f64 (/.f64 d h))))
	26.7%	(.f64 #s(approx (- 1 (/ ( (* (pow (* (/ M 2) (/ D d)) 2) 1/2) h) l)) (.f64 (/.f64 (.f64 (pow.f64 (.f64 M D) #s(literal 2 binary64)) h) (.f64 (.f64 d d) l)) #s(literal -1/8 binary64))) (.f64 (sqrt.f64 (/.f64 d l)) (sqrt.f64 (/.f64 d h))))
	29.3%	(.f64 #s(approx (- 1 (/ ( (* (pow (* (/ M 2) (/ D d)) 2) 1/2) h) l)) (.f64 (-.f64 (pow.f64 M #s(literal -2 binary64)) (/.f64 (.f64 #s(literal 1/8 binary64) (.f64 (.f64 D D) h)) (.f64 (.f64 d d) l))) (.f64 M M))) (.f64 (sqrt.f64 (/.f64 d l)) (sqrt.f64 (/.f64 d h))))
	35.4%	(.f64 #s(approx (- 1 (/ ( (* (pow (* (/ M 2) (/ D d)) 2) 1/2) h) l)) #s(literal 1 binary64)) (*.f64 (sqrt.f64 (/.f64 d l)) (sqrt.f64 (/.f64 d h))))
	37.9%	(.f64 #s(approx ( (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (.f64 (.f64 #s(literal -1 binary64) d) (sqrt.f64 (pow.f64 (.f64 l h) #s(literal -1 binary64))))) (-.f64 #s(literal 1 binary64) (.f64 (.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) (pow.f64 (/.f64 (.f64 M D) (*.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64))) (/.f64 h l))))
	40.7%	(.f64 #s(approx ( (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (.f64 d (neg.f64 (pow.f64 (.f64 l h) #s(literal -1/2 binary64))))) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (pow.f64 (.f64 #s(approx (/ M 2) (.f64 #s(literal 1/2 binary64) M)) (/.f64 D d)) #s(literal 2 binary64)) #s(literal 1/2 binary64)) h) l)))
	33.1%	(.f64 #s(approx ( (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (.f64 d (neg.f64 (pow.f64 (.f64 l h) #s(literal -1/2 binary64))))) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 #s(approx ( (pow (* (/ M 2) (/ D d)) 2) 1/2) (.f64 (/.f64 (pow.f64 (.f64 M D) #s(literal 2 binary64)) (*.f64 d d)) #s(literal 1/8 binary64))) h) l)))
	40.6%	(.f64 #s(approx ( (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (.f64 d (neg.f64 (.f64 (pow.f64 (.f64 l h) #s(literal -1/4 binary64)) (pow.f64 (.f64 l h) #s(literal -1/4 binary64)))))) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (pow.f64 (*.f64 (/.f64 M #s(literal 2 binary64)) (/.f64 D d)) #s(literal 2 binary64)) #s(literal 1/2 binary64)) h) l)))
	19.6%	#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (/ (* (* (pow (* (/ M 2) (/ D d)) 2) 1/2) h) l))) (/.f64 (+.f64 (.f64 (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) h)) d) (.f64 (.f64 (sqrt.f64 (.f64 l h)) (/.f64 (pow.f64 (.f64 M D) #s(literal 2 binary64)) d)) #s(literal -1/8 binary64))) (.f64 l l)))
▶	49.1%	#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (/ (* (* (pow (* (/ M 2) (/ D d)) 2) 1/2) h) l))) (/.f64 (+.f64 (.f64 (sqrt.f64 (/.f64 h l)) d) (.f64 (.f64 (sqrt.f64 (pow.f64 (/.f64 h l) #s(literal 3 binary64))) (/.f64 (pow.f64 (.f64 M D) #s(literal 2 binary64)) d)) #s(literal -1/8 binary64))) h))
	20.0%	#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (/ (* (* (pow (* (/ M 2) (/ D d)) 2) 1/2) h) l))) (.f64 (.f64 (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64)))) (/.f64 (pow.f64 (*.f64 M D) #s(literal 2 binary64)) d)) #s(literal -1/8 binary64)))
	25.1%	#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (/ (* (* (pow (* (/ M 2) (/ D d)) 2) 1/2) h) l))) (.f64 d (neg.f64 (sqrt.f64 (pow.f64 (.f64 l h) #s(literal -1 binary64))))))
▶	23.5%	#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (.f64 l h))) d))
▶	22.0%	#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (.f64 (.f64 (.f64 M D) D) M) #s(literal -1 binary64)) d)) (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64))))))
	22.0%	#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (.f64 (.f64 D M) (.f64 D M)) #s(literal -1 binary64)) d)) (sqrt.f64 (/.f64 h (.f64 (.f64 l l) l)))))
	23.7%	#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (*.f64 (sqrt.f64 (/.f64 (pow.f64 h #s(literal -1 binary64)) l)) d))
	23.7%	#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (*.f64 (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) l) h)) d))
✓	23.6%	#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 l h))) d))
	35.0%	#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 #s(approx (+ ( (/ d (* D D)) (sqrt (pow (* l h) -1))) (* (* -1/8 (/ (* M M) d)) (sqrt (/ h (pow l 3))))) (/.f64 (+.f64 (.f64 (sqrt.f64 (/.f64 h l)) (/.f64 d (.f64 D D))) (.f64 (.f64 (/.f64 (.f64 M M) d) #s(literal -1/8 binary64)) (sqrt.f64 (pow.f64 (/.f64 h l) #s(literal 3 binary64))))) h)) (.f64 D D)))
	11.9%	#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 #s(approx (+ ( (/ d (* D D)) (sqrt (pow (* l h) -1))) (* (* -1/8 (/ (* M M) d)) (sqrt (/ h (pow l 3))))) (.f64 (/.f64 d (.f64 D D)) (pow.f64 (.f64 l h) #s(literal -1/2 binary64)))) (.f64 D D)))
	16.2%	#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 #s(approx (+ ( (/ d (* D D)) (sqrt (pow (* l h) -1))) (* (* -1/8 (/ (* M M) d)) (sqrt (/ h (pow l 3))))) (.f64 (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64)))) (.f64 (/.f64 (.f64 M M) d) #s(literal -1/8 binary64)))) (.f64 D D)))
	25.5%	#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 #s(approx (sqrt (pow ( l h) -1)) (neg.f64 (pow.f64 (*.f64 l h) #s(literal -1/2 binary64)))) d))

Compiler

Compiled 4 016 to 2 766 computations (31.1% saved)

series169.0ms (1.6%)

Memory

6.4MiB live, 287.4MiB allocated; 66ms collecting garbage

Counts

57 → 171

Calls

Call 1

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

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

Calls

15 calls:

Time	Variable		Point	Expression
18.0ms	M	@	inf	((* (- 1 (/ (* (pow (/ (* M D) (* 2 d)) 2) (* 1/2 h)) l)) (* (sqrt (/ d l)) (sqrt (/ d h)))) (- 1 (/ (* (pow (/ (* M D) (* 2 d)) 2) (* 1/2 h)) l)) 1 (/ (* (pow (/ (* M D) (* 2 d)) 2) (* 1/2 h)) l) (* (pow (/ (* M D) (* 2 d)) 2) (* 1/2 h)) (pow (/ (* M D) (* 2 d)) 2) (/ (* M D) (* 2 d)) (* M D) M D (* 2 d) 2 d (* 1/2 h) 1/2 h l (* (sqrt (/ d l)) (sqrt (/ d h))) (sqrt (/ d l)) (/ d l) (sqrt (/ d h)) (/ d h) (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (* (/ 1 (sqrt (* l h))) d) (/ 1 (sqrt (* l h))) (sqrt (* l h)) (* l h) (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (* (* -1/8 (/ (* (* (* (* M D) D) M) -1) d)) (sqrt (/ h (pow l 3)))) (* -1/8 (/ (* (* (* (* M D) D) M) -1) d)) -1/8 (/ (* (* (* (* M D) D) M) -1) d) (* (* (* (* M D) D) M) -1) (* (* (* M D) D) M) (* (* M D) D) -1 (sqrt (/ h (pow l 3))) (/ h (pow l 3)) (pow l 3) 3 (* (* (sqrt (/ d l)) (sqrt (/ d h))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)) (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ 1 2) (/ h l) (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (/ (* (* (pow (* (/ M 2) (/ D d)) 2) 1/2) h) l))) (/ (+ (* (sqrt (/ h l)) d) (* (* (sqrt (pow (/ h l) 3)) (/ (pow (* M D) 2) d)) -1/8)) h) (+ (* (sqrt (/ h l)) d) (* (* (sqrt (pow (/ h l) 3)) (/ (pow (* M D) 2) d)) -1/8)) (* (sqrt (/ h l)) d) (sqrt (/ h l)) (* (* (sqrt (pow (/ h l) 3)) (/ (pow (* M D) 2) d)) -1/8) (* (sqrt (pow (/ h l) 3)) (/ (pow (* M D) 2) d)) (sqrt (pow (/ h l) 3)) (pow (/ h l) 3) (/ (pow (* M D) 2) d) (pow (* M D) 2))
14.0ms	d	@	inf	((* (- 1 (/ (* (pow (/ (* M D) (* 2 d)) 2) (* 1/2 h)) l)) (* (sqrt (/ d l)) (sqrt (/ d h)))) (- 1 (/ (* (pow (/ (* M D) (* 2 d)) 2) (* 1/2 h)) l)) 1 (/ (* (pow (/ (* M D) (* 2 d)) 2) (* 1/2 h)) l) (* (pow (/ (* M D) (* 2 d)) 2) (* 1/2 h)) (pow (/ (* M D) (* 2 d)) 2) (/ (* M D) (* 2 d)) (* M D) M D (* 2 d) 2 d (* 1/2 h) 1/2 h l (* (sqrt (/ d l)) (sqrt (/ d h))) (sqrt (/ d l)) (/ d l) (sqrt (/ d h)) (/ d h) (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (* (/ 1 (sqrt (* l h))) d) (/ 1 (sqrt (* l h))) (sqrt (* l h)) (* l h) (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (* (* -1/8 (/ (* (* (* (* M D) D) M) -1) d)) (sqrt (/ h (pow l 3)))) (* -1/8 (/ (* (* (* (* M D) D) M) -1) d)) -1/8 (/ (* (* (* (* M D) D) M) -1) d) (* (* (* (* M D) D) M) -1) (* (* (* M D) D) M) (* (* M D) D) -1 (sqrt (/ h (pow l 3))) (/ h (pow l 3)) (pow l 3) 3 (* (* (sqrt (/ d l)) (sqrt (/ d h))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)) (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ 1 2) (/ h l) (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (/ (* (* (pow (* (/ M 2) (/ D d)) 2) 1/2) h) l))) (/ (+ (* (sqrt (/ h l)) d) (* (* (sqrt (pow (/ h l) 3)) (/ (pow (* M D) 2) d)) -1/8)) h) (+ (* (sqrt (/ h l)) d) (* (* (sqrt (pow (/ h l) 3)) (/ (pow (* M D) 2) d)) -1/8)) (* (sqrt (/ h l)) d) (sqrt (/ h l)) (* (* (sqrt (pow (/ h l) 3)) (/ (pow (* M D) 2) d)) -1/8) (* (sqrt (pow (/ h l) 3)) (/ (pow (* M D) 2) d)) (sqrt (pow (/ h l) 3)) (pow (/ h l) 3) (/ (pow (* M D) 2) d) (pow (* M D) 2))
13.0ms	D	@	-inf	((* (- 1 (/ (* (pow (/ (* M D) (* 2 d)) 2) (* 1/2 h)) l)) (* (sqrt (/ d l)) (sqrt (/ d h)))) (- 1 (/ (* (pow (/ (* M D) (* 2 d)) 2) (* 1/2 h)) l)) 1 (/ (* (pow (/ (* M D) (* 2 d)) 2) (* 1/2 h)) l) (* (pow (/ (* M D) (* 2 d)) 2) (* 1/2 h)) (pow (/ (* M D) (* 2 d)) 2) (/ (* M D) (* 2 d)) (* M D) M D (* 2 d) 2 d (* 1/2 h) 1/2 h l (* (sqrt (/ d l)) (sqrt (/ d h))) (sqrt (/ d l)) (/ d l) (sqrt (/ d h)) (/ d h) (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (* (/ 1 (sqrt (* l h))) d) (/ 1 (sqrt (* l h))) (sqrt (* l h)) (* l h) (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (* (* -1/8 (/ (* (* (* (* M D) D) M) -1) d)) (sqrt (/ h (pow l 3)))) (* -1/8 (/ (* (* (* (* M D) D) M) -1) d)) -1/8 (/ (* (* (* (* M D) D) M) -1) d) (* (* (* (* M D) D) M) -1) (* (* (* M D) D) M) (* (* M D) D) -1 (sqrt (/ h (pow l 3))) (/ h (pow l 3)) (pow l 3) 3 (* (* (sqrt (/ d l)) (sqrt (/ d h))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)) (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ 1 2) (/ h l) (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (/ (* (* (pow (* (/ M 2) (/ D d)) 2) 1/2) h) l))) (/ (+ (* (sqrt (/ h l)) d) (* (* (sqrt (pow (/ h l) 3)) (/ (pow (* M D) 2) d)) -1/8)) h) (+ (* (sqrt (/ h l)) d) (* (* (sqrt (pow (/ h l) 3)) (/ (pow (* M D) 2) d)) -1/8)) (* (sqrt (/ h l)) d) (sqrt (/ h l)) (* (* (sqrt (pow (/ h l) 3)) (/ (pow (* M D) 2) d)) -1/8) (* (sqrt (pow (/ h l) 3)) (/ (pow (* M D) 2) d)) (sqrt (pow (/ h l) 3)) (pow (/ h l) 3) (/ (pow (* M D) 2) d) (pow (* M D) 2))
13.0ms	D	@	0	((* (- 1 (/ (* (pow (/ (* M D) (* 2 d)) 2) (* 1/2 h)) l)) (* (sqrt (/ d l)) (sqrt (/ d h)))) (- 1 (/ (* (pow (/ (* M D) (* 2 d)) 2) (* 1/2 h)) l)) 1 (/ (* (pow (/ (* M D) (* 2 d)) 2) (* 1/2 h)) l) (* (pow (/ (* M D) (* 2 d)) 2) (* 1/2 h)) (pow (/ (* M D) (* 2 d)) 2) (/ (* M D) (* 2 d)) (* M D) M D (* 2 d) 2 d (* 1/2 h) 1/2 h l (* (sqrt (/ d l)) (sqrt (/ d h))) (sqrt (/ d l)) (/ d l) (sqrt (/ d h)) (/ d h) (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (* (/ 1 (sqrt (* l h))) d) (/ 1 (sqrt (* l h))) (sqrt (* l h)) (* l h) (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (* (* -1/8 (/ (* (* (* (* M D) D) M) -1) d)) (sqrt (/ h (pow l 3)))) (* -1/8 (/ (* (* (* (* M D) D) M) -1) d)) -1/8 (/ (* (* (* (* M D) D) M) -1) d) (* (* (* (* M D) D) M) -1) (* (* (* M D) D) M) (* (* M D) D) -1 (sqrt (/ h (pow l 3))) (/ h (pow l 3)) (pow l 3) 3 (* (* (sqrt (/ d l)) (sqrt (/ d h))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)) (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ 1 2) (/ h l) (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (/ (* (* (pow (* (/ M 2) (/ D d)) 2) 1/2) h) l))) (/ (+ (* (sqrt (/ h l)) d) (* (* (sqrt (pow (/ h l) 3)) (/ (pow (* M D) 2) d)) -1/8)) h) (+ (* (sqrt (/ h l)) d) (* (* (sqrt (pow (/ h l) 3)) (/ (pow (* M D) 2) d)) -1/8)) (* (sqrt (/ h l)) d) (sqrt (/ h l)) (* (* (sqrt (pow (/ h l) 3)) (/ (pow (* M D) 2) d)) -1/8) (* (sqrt (pow (/ h l) 3)) (/ (pow (* M D) 2) d)) (sqrt (pow (/ h l) 3)) (pow (/ h l) 3) (/ (pow (* M D) 2) d) (pow (* M D) 2))
12.0ms	l	@	inf	((* (- 1 (/ (* (pow (/ (* M D) (* 2 d)) 2) (* 1/2 h)) l)) (* (sqrt (/ d l)) (sqrt (/ d h)))) (- 1 (/ (* (pow (/ (* M D) (* 2 d)) 2) (* 1/2 h)) l)) 1 (/ (* (pow (/ (* M D) (* 2 d)) 2) (* 1/2 h)) l) (* (pow (/ (* M D) (* 2 d)) 2) (* 1/2 h)) (pow (/ (* M D) (* 2 d)) 2) (/ (* M D) (* 2 d)) (* M D) M D (* 2 d) 2 d (* 1/2 h) 1/2 h l (* (sqrt (/ d l)) (sqrt (/ d h))) (sqrt (/ d l)) (/ d l) (sqrt (/ d h)) (/ d h) (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (* (/ 1 (sqrt (* l h))) d) (/ 1 (sqrt (* l h))) (sqrt (* l h)) (* l h) (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (* (* -1/8 (/ (* (* (* (* M D) D) M) -1) d)) (sqrt (/ h (pow l 3)))) (* -1/8 (/ (* (* (* (* M D) D) M) -1) d)) -1/8 (/ (* (* (* (* M D) D) M) -1) d) (* (* (* (* M D) D) M) -1) (* (* (* M D) D) M) (* (* M D) D) -1 (sqrt (/ h (pow l 3))) (/ h (pow l 3)) (pow l 3) 3 (* (* (sqrt (/ d l)) (sqrt (/ d h))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)) (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ 1 2) (/ h l) (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (/ (* (* (pow (* (/ M 2) (/ D d)) 2) 1/2) h) l))) (/ (+ (* (sqrt (/ h l)) d) (* (* (sqrt (pow (/ h l) 3)) (/ (pow (* M D) 2) d)) -1/8)) h) (+ (* (sqrt (/ h l)) d) (* (* (sqrt (pow (/ h l) 3)) (/ (pow (* M D) 2) d)) -1/8)) (* (sqrt (/ h l)) d) (sqrt (/ h l)) (* (* (sqrt (pow (/ h l) 3)) (/ (pow (* M D) 2) d)) -1/8) (* (sqrt (pow (/ h l) 3)) (/ (pow (* M D) 2) d)) (sqrt (pow (/ h l) 3)) (pow (/ h l) 3) (/ (pow (* M D) 2) d) (pow (* M D) 2))

rewrite102.0ms (1%)

Memory

-2.6MiB live, 139.3MiB allocated; 35ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	484	7432
0	565	6653
0	1829	6653

Stop Event

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

Counts

228 → 365

Calls

Call 1

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

Outputs
(.f64 (.f64 (-.f64 #s(literal 1 binary64) (.f64 (pow.f64 (.f64 (/.f64 D d) (/.f64 M #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (*.f64 h #s(literal 1/2 binary64)) l))) (sqrt.f64 (/.f64 d l))) (sqrt.f64 (/.f64 d h)))
(.f64 (sqrt.f64 (.f64 (/.f64 d l) (/.f64 d h))) (-.f64 #s(literal 1 binary64) (.f64 (pow.f64 (.f64 (/.f64 D d) (/.f64 M #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (*.f64 h #s(literal 1/2 binary64)) l))))
(.f64 (sqrt.f64 (/.f64 d h)) (.f64 (sqrt.f64 (/.f64 d l)) (-.f64 #s(literal 1 binary64) (.f64 (pow.f64 (.f64 (/.f64 D d) (/.f64 M #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (*.f64 h #s(literal 1/2 binary64)) l)))))
(.f64 (sqrt.f64 (/.f64 d l)) (.f64 (sqrt.f64 (/.f64 d h)) (-.f64 #s(literal 1 binary64) (.f64 (pow.f64 (.f64 (/.f64 D d) (/.f64 M #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (*.f64 h #s(literal 1/2 binary64)) l)))))
(.f64 (-.f64 #s(literal 1 binary64) (.f64 (pow.f64 (.f64 (/.f64 D d) (/.f64 M #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 h #s(literal 1/2 binary64)) l))) (sqrt.f64 (*.f64 (/.f64 d l) (/.f64 d h))))
(/.f64 (-.f64 #s(literal 1 binary64) (.f64 (.f64 (pow.f64 (.f64 (/.f64 D d) (/.f64 M #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 h #s(literal 1/2 binary64)) l)) (.f64 (pow.f64 (.f64 (/.f64 D d) (/.f64 M #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 h #s(literal 1/2 binary64)) l)))) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 (.f64 (/.f64 D d) (/.f64 M #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 h #s(literal 1/2 binary64)) l))))
(/.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (.f64 (pow.f64 (.f64 (/.f64 D d) (/.f64 M #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 h #s(literal 1/2 binary64)) l)) #s(literal 3 binary64))) (+.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (pow.f64 (.f64 (/.f64 D d) (/.f64 M #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 h #s(literal 1/2 binary64)) l)) (.f64 (pow.f64 (.f64 (/.f64 D d) (/.f64 M #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 h #s(literal 1/2 binary64)) l))) (.f64 #s(literal 1 binary64) (.f64 (pow.f64 (.f64 (/.f64 D d) (/.f64 M #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 h #s(literal 1/2 binary64)) l))))))
(-.f64 #s(literal 1 binary64) (.f64 (pow.f64 (.f64 (/.f64 D d) (/.f64 M #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (*.f64 h #s(literal 1/2 binary64)) l)))
(+.f64 #s(literal 1 binary64) (.f64 (neg.f64 (.f64 #s(literal 1/2 binary64) (pow.f64 (*.f64 (/.f64 D d) (/.f64 M #s(literal 2 binary64))) #s(literal 2 binary64)))) (/.f64 h l)))
#s(literal 1 binary64)
(.f64 (.f64 #s(literal 1/2 binary64) (pow.f64 (*.f64 (/.f64 D d) (/.f64 M #s(literal 2 binary64))) #s(literal 2 binary64))) (/.f64 h l))
(.f64 (/.f64 h l) (.f64 #s(literal 1/2 binary64) (pow.f64 (*.f64 (/.f64 D d) (/.f64 M #s(literal 2 binary64))) #s(literal 2 binary64))))
(.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (*.f64 (/.f64 D d) (/.f64 M #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 h l)))
(.f64 (pow.f64 (.f64 (/.f64 D d) (/.f64 M #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (*.f64 h #s(literal 1/2 binary64)) l))
(/.f64 (neg.f64 (.f64 (.f64 h #s(literal 1/2 binary64)) (pow.f64 (*.f64 (/.f64 D d) (/.f64 M #s(literal 2 binary64))) #s(literal 2 binary64)))) (neg.f64 l))
(/.f64 (.f64 (.f64 h #s(literal 1/2 binary64)) (pow.f64 (*.f64 (/.f64 D d) (/.f64 M #s(literal 2 binary64))) #s(literal 2 binary64))) l)
(.f64 (.f64 h #s(literal 1/2 binary64)) (pow.f64 (*.f64 (/.f64 D d) (/.f64 M #s(literal 2 binary64))) #s(literal 2 binary64)))
(.f64 (.f64 #s(literal 1/2 binary64) (pow.f64 (*.f64 (/.f64 D d) (/.f64 M #s(literal 2 binary64))) #s(literal 2 binary64))) h)
(.f64 h (.f64 #s(literal 1/2 binary64) (pow.f64 (*.f64 (/.f64 D d) (/.f64 M #s(literal 2 binary64))) #s(literal 2 binary64))))
(.f64 (pow.f64 (.f64 (/.f64 D d) (/.f64 M #s(literal 2 binary64))) #s(literal 2 binary64)) (*.f64 h #s(literal 1/2 binary64)))
(.f64 (pow.f64 (.f64 (/.f64 D d) (/.f64 M #s(literal 2 binary64))) #s(literal 1 binary64)) (pow.f64 (*.f64 (/.f64 D d) (/.f64 M #s(literal 2 binary64))) #s(literal 1 binary64)))
(*.f64 (pow.f64 (/.f64 M #s(literal 2 binary64)) #s(literal 2 binary64)) (pow.f64 (/.f64 D d) #s(literal 2 binary64)))
(.f64 (.f64 (/.f64 D d) (/.f64 M #s(literal 2 binary64))) (*.f64 (/.f64 D d) (/.f64 M #s(literal 2 binary64))))
(pow.f64 (*.f64 (/.f64 D d) (/.f64 M #s(literal 2 binary64))) #s(literal 2 binary64))
(exp.f64 (.f64 (log.f64 (.f64 (/.f64 D d) (/.f64 M #s(literal 2 binary64)))) #s(literal 2 binary64)))
(*.f64 (/.f64 D d) (/.f64 M #s(literal 2 binary64)))
(*.f64 (/.f64 M #s(literal 2 binary64)) (/.f64 D d))
(.f64 M (/.f64 D (.f64 d #s(literal 2 binary64))))
(/.f64 (/.f64 (*.f64 D M) #s(literal 2 binary64)) d)
(/.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 M)) (neg.f64 (.f64 d #s(literal 2 binary64))))
(/.f64 (.f64 D M) (.f64 d #s(literal 2 binary64)))
(*.f64 D M)
(*.f64 M D)
M
D
(*.f64 d #s(literal 2 binary64))
(*.f64 #s(literal 2 binary64) d)
(+.f64 d d)
#s(literal 2 binary64)
d
(*.f64 h #s(literal 1/2 binary64))
(*.f64 #s(literal 1/2 binary64) h)
#s(literal 1/2 binary64)
h
l
(*.f64 (sqrt.f64 (/.f64 d h)) (sqrt.f64 (/.f64 d l)))
(*.f64 (sqrt.f64 (/.f64 d l)) (sqrt.f64 (/.f64 d h)))
(pow.f64 (*.f64 (/.f64 d h) (/.f64 d l)) #s(literal 1/2 binary64))
(sqrt.f64 (*.f64 (/.f64 d l) (/.f64 d h)))
(*.f64 (pow.f64 (/.f64 d l) #s(literal 1/4 binary64)) (pow.f64 (/.f64 d l) #s(literal 1/4 binary64)))
(pow.f64 (/.f64 d l) #s(literal 1/2 binary64))
(/.f64 (sqrt.f64 d) (sqrt.f64 l))
(sqrt.f64 (/.f64 d l))
(exp.f64 (*.f64 (log.f64 (/.f64 d l)) #s(literal 1/2 binary64)))
(/.f64 (neg.f64 d) (neg.f64 l))
(/.f64 d l)
(*.f64 (pow.f64 (/.f64 d h) #s(literal 1/4 binary64)) (pow.f64 (/.f64 d h) #s(literal 1/4 binary64)))
(pow.f64 (/.f64 d h) #s(literal 1/2 binary64))
(/.f64 (sqrt.f64 d) (sqrt.f64 h))
(sqrt.f64 (/.f64 d h))
(exp.f64 (*.f64 (log.f64 (/.f64 d h)) #s(literal 1/2 binary64)))
(/.f64 (neg.f64 d) (neg.f64 h))
(/.f64 d h)
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 (sqrt.f64 (pow.f64 (.f64 l h) #s(literal -1 binary64))) d))
(.f64 (sqrt.f64 (pow.f64 (.f64 l h) #s(literal -1 binary64))) d)
(.f64 d (sqrt.f64 (pow.f64 (.f64 l h) #s(literal -1 binary64))))
(/.f64 (.f64 #s(literal 1 binary64) d) (sqrt.f64 (.f64 l h)))
(pow.f64 (sqrt.f64 (*.f64 l h)) #s(literal -1 binary64))
(pow.f64 (pow.f64 (*.f64 l h) #s(literal -1 binary64)) #s(literal 1/2 binary64))
(/.f64 #s(literal -1 binary64) (neg.f64 (sqrt.f64 (*.f64 l h))))
(/.f64 #s(literal 1 binary64) (sqrt.f64 (*.f64 l h)))
(sqrt.f64 (pow.f64 (*.f64 l h) #s(literal -1 binary64)))
(*.f64 (sqrt.f64 l) (sqrt.f64 h))
(*.f64 (sqrt.f64 h) (sqrt.f64 l))
(pow.f64 (*.f64 l h) #s(literal 1/2 binary64))
(sqrt.f64 (*.f64 l h))
(*.f64 l h)
(*.f64 h l)
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 (.f64 (neg.f64 (/.f64 (pow.f64 (*.f64 D M) #s(literal 2 binary64)) d)) (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64))))) #s(literal -1/8 binary64)))
(.f64 (.f64 (neg.f64 (/.f64 (pow.f64 (*.f64 D M) #s(literal 2 binary64)) d)) (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64))))) #s(literal -1/8 binary64))
(.f64 (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64)))) (.f64 (neg.f64 (/.f64 (pow.f64 (*.f64 D M) #s(literal 2 binary64)) d)) #s(literal -1/8 binary64)))
(.f64 (.f64 (neg.f64 (/.f64 (pow.f64 (*.f64 D M) #s(literal 2 binary64)) d)) #s(literal -1/8 binary64)) (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64)))))
(.f64 #s(literal -1/8 binary64) (.f64 (neg.f64 (/.f64 (pow.f64 (*.f64 D M) #s(literal 2 binary64)) d)) (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64))))))
(.f64 (neg.f64 (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) d)) #s(literal -1/8 binary64))
(.f64 #s(literal -1/8 binary64) (neg.f64 (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) d)))
(/.f64 (.f64 #s(literal -1/8 binary64) (neg.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)))) d)
#s(literal -1/8 binary64)
(.f64 (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) d) #s(literal -1 binary64))
(.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) (/.f64 #s(literal -1 binary64) d))
(.f64 (.f64 D D) (/.f64 (.f64 (.f64 M M) #s(literal -1 binary64)) d))
(.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) d))
(/.f64 (neg.f64 (neg.f64 (pow.f64 (*.f64 D M) #s(literal 2 binary64)))) (neg.f64 d))
(/.f64 (neg.f64 (pow.f64 (*.f64 D M) #s(literal 2 binary64))) d)
(neg.f64 (/.f64 (pow.f64 (*.f64 D M) #s(literal 2 binary64)) d))
(.f64 (.f64 #s(literal -1 binary64) (.f64 D D)) (.f64 M M))
(.f64 (.f64 (.f64 M M) #s(literal -1 binary64)) (.f64 D D))
(.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) #s(literal -1 binary64))
(.f64 (.f64 D D) (.f64 (.f64 M M) #s(literal -1 binary64)))
(.f64 #s(literal -1 binary64) (pow.f64 (.f64 D M) #s(literal 2 binary64)))
(.f64 (.f64 (.f64 D M) D) (.f64 M #s(literal -1 binary64)))
(neg.f64 (pow.f64 (*.f64 D M) #s(literal 2 binary64)))
(.f64 (pow.f64 (.f64 D M) #s(literal 1 binary64)) (pow.f64 (*.f64 D M) #s(literal 1 binary64)))
(.f64 (.f64 M M) (*.f64 D D))
(.f64 (.f64 D D) (*.f64 M M))
(.f64 (.f64 (*.f64 D M) D) M)
(.f64 (.f64 D M) (*.f64 D M))
(.f64 M (.f64 (*.f64 D M) D))
(pow.f64 (*.f64 D M) #s(literal 2 binary64))
(exp.f64 (.f64 (log.f64 (.f64 D M)) #s(literal 2 binary64)))
(.f64 (.f64 D D) M)
(.f64 (.f64 D M) D)
(.f64 D (.f64 D M))
(.f64 M (.f64 D D))
#s(literal -1 binary64)
(pow.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64))) #s(literal 1/2 binary64))
(/.f64 (sqrt.f64 h) (sqrt.f64 (pow.f64 l #s(literal 3 binary64))))
(sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64))))
(/.f64 (neg.f64 h) (neg.f64 (pow.f64 l #s(literal 3 binary64))))
(/.f64 h (pow.f64 l #s(literal 3 binary64)))
(*.f64 (pow.f64 l #s(literal 3/2 binary64)) (pow.f64 l #s(literal 3/2 binary64)))
(.f64 (.f64 l l) l)
(.f64 l (.f64 l l))
(pow.f64 l #s(literal 3 binary64))
(exp.f64 (*.f64 (log.f64 l) #s(literal 3 binary64)))
#s(literal 3 binary64)
(.f64 (.f64 (-.f64 #s(literal 1 binary64) (.f64 (pow.f64 (.f64 (/.f64 D d) (/.f64 M #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (*.f64 h #s(literal 1/2 binary64)) l))) (sqrt.f64 (/.f64 d l))) (sqrt.f64 (/.f64 d h)))
(.f64 (sqrt.f64 (.f64 (/.f64 d l) (/.f64 d h))) (-.f64 #s(literal 1 binary64) (.f64 (pow.f64 (.f64 (/.f64 D d) (/.f64 M #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (*.f64 h #s(literal 1/2 binary64)) l))))
(.f64 (sqrt.f64 (/.f64 d h)) (.f64 (sqrt.f64 (/.f64 d l)) (-.f64 #s(literal 1 binary64) (.f64 (pow.f64 (.f64 (/.f64 D d) (/.f64 M #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (*.f64 h #s(literal 1/2 binary64)) l)))))
(.f64 (sqrt.f64 (/.f64 d l)) (.f64 (sqrt.f64 (/.f64 d h)) (-.f64 #s(literal 1 binary64) (.f64 (pow.f64 (.f64 (/.f64 D d) (/.f64 M #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (*.f64 h #s(literal 1/2 binary64)) l)))))
(.f64 (-.f64 #s(literal 1 binary64) (.f64 (pow.f64 (.f64 (/.f64 D d) (/.f64 M #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 h #s(literal 1/2 binary64)) l))) (sqrt.f64 (*.f64 (/.f64 d l) (/.f64 d h))))
(/.f64 (-.f64 #s(literal 1 binary64) (.f64 (.f64 (pow.f64 (.f64 (/.f64 D d) (/.f64 M #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 h #s(literal 1/2 binary64)) l)) (.f64 (pow.f64 (.f64 (/.f64 D d) (/.f64 M #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 h #s(literal 1/2 binary64)) l)))) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 (.f64 (/.f64 D d) (/.f64 M #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 h #s(literal 1/2 binary64)) l))))
(/.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (.f64 (pow.f64 (.f64 (/.f64 D d) (/.f64 M #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 h #s(literal 1/2 binary64)) l)) #s(literal 3 binary64))) (+.f64 #s(literal 1 binary64) (+.f64 (.f64 (.f64 (pow.f64 (.f64 (/.f64 D d) (/.f64 M #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 h #s(literal 1/2 binary64)) l)) (.f64 (pow.f64 (.f64 (/.f64 D d) (/.f64 M #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 h #s(literal 1/2 binary64)) l))) (.f64 #s(literal 1 binary64) (.f64 (pow.f64 (.f64 (/.f64 D d) (/.f64 M #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (.f64 h #s(literal 1/2 binary64)) l))))))
(-.f64 #s(literal 1 binary64) (.f64 (pow.f64 (.f64 (/.f64 D d) (/.f64 M #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (*.f64 h #s(literal 1/2 binary64)) l)))
(+.f64 #s(literal 1 binary64) (.f64 (neg.f64 (.f64 #s(literal 1/2 binary64) (pow.f64 (*.f64 (/.f64 D d) (/.f64 M #s(literal 2 binary64))) #s(literal 2 binary64)))) (/.f64 h l)))
(.f64 (.f64 #s(literal 1/2 binary64) (pow.f64 (*.f64 (/.f64 D d) (/.f64 M #s(literal 2 binary64))) #s(literal 2 binary64))) (/.f64 h l))
(.f64 (/.f64 h l) (.f64 #s(literal 1/2 binary64) (pow.f64 (*.f64 (/.f64 D d) (/.f64 M #s(literal 2 binary64))) #s(literal 2 binary64))))
(.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 (*.f64 (/.f64 D d) (/.f64 M #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 h l)))
(.f64 (pow.f64 (.f64 (/.f64 D d) (/.f64 M #s(literal 2 binary64))) #s(literal 2 binary64)) (/.f64 (*.f64 h #s(literal 1/2 binary64)) l))
(/.f64 (neg.f64 (.f64 (.f64 h #s(literal 1/2 binary64)) (pow.f64 (*.f64 (/.f64 D d) (/.f64 M #s(literal 2 binary64))) #s(literal 2 binary64)))) (neg.f64 l))
(/.f64 (.f64 (.f64 h #s(literal 1/2 binary64)) (pow.f64 (*.f64 (/.f64 D d) (/.f64 M #s(literal 2 binary64))) #s(literal 2 binary64))) l)
(.f64 #s(literal 1/2 binary64) (pow.f64 (.f64 (/.f64 D d) (/.f64 M #s(literal 2 binary64))) #s(literal 2 binary64)))
(.f64 (pow.f64 (.f64 (/.f64 D d) (/.f64 M #s(literal 2 binary64))) #s(literal 2 binary64)) #s(literal 1/2 binary64))
#s(literal 1/2 binary64)
(/.f64 (neg.f64 h) (neg.f64 l))
(/.f64 h l)
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (/.f64 (+.f64 (.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) d)) (pow.f64 (/.f64 h l) #s(literal 3/2 binary64))) (.f64 (sqrt.f64 (/.f64 h l)) d)) h))
(/.f64 (neg.f64 (+.f64 (.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) d)) (pow.f64 (/.f64 h l) #s(literal 3/2 binary64))) (.f64 (sqrt.f64 (/.f64 h l)) d))) (neg.f64 h))
(/.f64 (+.f64 (.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) d)) (pow.f64 (/.f64 h l) #s(literal 3/2 binary64))) (.f64 (sqrt.f64 (/.f64 h l)) d)) h)
(+.f64 (/.f64 (.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) d)) (pow.f64 (/.f64 h l) #s(literal 3/2 binary64))) h) (/.f64 (.f64 (sqrt.f64 (/.f64 h l)) d) h))
(+.f64 (/.f64 (.f64 (sqrt.f64 (/.f64 h l)) d) h) (/.f64 (.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) d)) (pow.f64 (/.f64 h l) #s(literal 3/2 binary64))) h))
(/.f64 (-.f64 (.f64 (.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) d)) (pow.f64 (/.f64 h l) #s(literal 3/2 binary64))) (.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) d)) (pow.f64 (/.f64 h l) #s(literal 3/2 binary64)))) (.f64 (.f64 (sqrt.f64 (/.f64 h l)) d) (.f64 (sqrt.f64 (/.f64 h l)) d))) (-.f64 (.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) d)) (pow.f64 (/.f64 h l) #s(literal 3/2 binary64))) (.f64 (sqrt.f64 (/.f64 h l)) d)))
(/.f64 (-.f64 (.f64 (.f64 (sqrt.f64 (/.f64 h l)) d) (.f64 (sqrt.f64 (/.f64 h l)) d)) (.f64 (.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) d)) (pow.f64 (/.f64 h l) #s(literal 3/2 binary64))) (.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) d)) (pow.f64 (/.f64 h l) #s(literal 3/2 binary64))))) (-.f64 (.f64 (sqrt.f64 (/.f64 h l)) d) (.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) d)) (pow.f64 (/.f64 h l) #s(literal 3/2 binary64)))))
(/.f64 (+.f64 (pow.f64 (.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) d)) (pow.f64 (/.f64 h l) #s(literal 3/2 binary64))) #s(literal 3 binary64)) (pow.f64 (.f64 (sqrt.f64 (/.f64 h l)) d) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) d)) (pow.f64 (/.f64 h l) #s(literal 3/2 binary64))) (.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) d)) (pow.f64 (/.f64 h l) #s(literal 3/2 binary64)))) (-.f64 (.f64 (.f64 (sqrt.f64 (/.f64 h l)) d) (.f64 (sqrt.f64 (/.f64 h l)) d)) (.f64 (.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) d)) (pow.f64 (/.f64 h l) #s(literal 3/2 binary64))) (*.f64 (sqrt.f64 (/.f64 h l)) d)))))
(/.f64 (+.f64 (pow.f64 (.f64 (sqrt.f64 (/.f64 h l)) d) #s(literal 3 binary64)) (pow.f64 (.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) d)) (pow.f64 (/.f64 h l) #s(literal 3/2 binary64))) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (sqrt.f64 (/.f64 h l)) d) (.f64 (sqrt.f64 (/.f64 h l)) d)) (-.f64 (.f64 (.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) d)) (pow.f64 (/.f64 h l) #s(literal 3/2 binary64))) (.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) d)) (pow.f64 (/.f64 h l) #s(literal 3/2 binary64)))) (.f64 (.f64 (sqrt.f64 (/.f64 h l)) d) (.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 (*.f64 D M) #s(literal 2 binary64)) d)) (pow.f64 (/.f64 h l) #s(literal 3/2 binary64)))))))
(-.f64 (.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) d)) (pow.f64 (/.f64 h l) #s(literal 3/2 binary64))) (.f64 (neg.f64 d) (sqrt.f64 (/.f64 h l))))
(-.f64 (.f64 (sqrt.f64 (/.f64 h l)) d) (.f64 (neg.f64 (.f64 (pow.f64 (/.f64 h l) #s(literal 3/2 binary64)) (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) d))) #s(literal -1/8 binary64)))
(+.f64 (.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) d)) (pow.f64 (/.f64 h l) #s(literal 3/2 binary64))) (.f64 (sqrt.f64 (/.f64 h l)) d))
(+.f64 (.f64 (sqrt.f64 (/.f64 h l)) d) (.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) d)) (pow.f64 (/.f64 h l) #s(literal 3/2 binary64))))
(*.f64 (sqrt.f64 (/.f64 h l)) d)
(*.f64 d (sqrt.f64 (/.f64 h l)))
(pow.f64 (/.f64 h l) #s(literal 1/2 binary64))
(/.f64 (sqrt.f64 h) (sqrt.f64 l))
(sqrt.f64 (/.f64 h l))
(.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 (*.f64 D M) #s(literal 2 binary64)) d)) (pow.f64 (/.f64 h l) #s(literal 3/2 binary64)))
(.f64 (pow.f64 (/.f64 h l) #s(literal 3/2 binary64)) (.f64 (/.f64 (pow.f64 (*.f64 D M) #s(literal 2 binary64)) d) #s(literal -1/8 binary64)))
(.f64 (.f64 (pow.f64 (/.f64 h l) #s(literal 3/2 binary64)) (/.f64 (pow.f64 (*.f64 D M) #s(literal 2 binary64)) d)) #s(literal -1/8 binary64))
(.f64 #s(literal -1/8 binary64) (.f64 (pow.f64 (/.f64 h l) #s(literal 3/2 binary64)) (/.f64 (pow.f64 (*.f64 D M) #s(literal 2 binary64)) d)))
(.f64 (pow.f64 (/.f64 h l) #s(literal 3/2 binary64)) (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) d))
(.f64 (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) d) (pow.f64 (/.f64 h l) #s(literal 3/2 binary64)))
(/.f64 (.f64 (pow.f64 (/.f64 h l) #s(literal 3/2 binary64)) (pow.f64 (.f64 D M) #s(literal 2 binary64))) d)
(pow.f64 (pow.f64 (/.f64 h l) #s(literal 3 binary64)) #s(literal 1/2 binary64))
(pow.f64 (/.f64 h l) #s(literal 3/2 binary64))
(/.f64 (sqrt.f64 (pow.f64 h #s(literal 3 binary64))) (sqrt.f64 (pow.f64 l #s(literal 3 binary64))))
(sqrt.f64 (pow.f64 (/.f64 h l) #s(literal 3 binary64)))
(.f64 (.f64 (/.f64 h l) (/.f64 h l)) (/.f64 h l))
(*.f64 (pow.f64 (/.f64 h l) #s(literal 3/2 binary64)) (pow.f64 (/.f64 h l) #s(literal 3/2 binary64)))
(.f64 (/.f64 h l) (.f64 (/.f64 h l) (/.f64 h l)))
(pow.f64 (/.f64 h l) #s(literal 3 binary64))
(/.f64 (neg.f64 (pow.f64 h #s(literal 3 binary64))) (neg.f64 (pow.f64 l #s(literal 3 binary64))))
(/.f64 (pow.f64 h #s(literal 3 binary64)) (pow.f64 l #s(literal 3 binary64)))
(exp.f64 (*.f64 (log.f64 (/.f64 h l)) #s(literal 3 binary64)))
(.f64 (.f64 D D) (/.f64 (*.f64 M M) 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 (pow.f64 (.f64 D M) #s(literal 1 binary64)) (pow.f64 (*.f64 D M) #s(literal 1 binary64)))
(.f64 (.f64 M M) (*.f64 D D))
(.f64 (.f64 D D) (*.f64 M M))
(.f64 (.f64 (*.f64 D M) D) M)
(.f64 (.f64 D M) (*.f64 D M))
(.f64 M (.f64 (*.f64 D M) D))
(pow.f64 (*.f64 D M) #s(literal 2 binary64))
(exp.f64 (.f64 (log.f64 (.f64 D M)) #s(literal 2 binary64)))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 (*.f64 D M) #s(literal 2 binary64)) d)) (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64))))))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (/.f64 (+.f64 (.f64 (sqrt.f64 (pow.f64 (.f64 l h) #s(literal -1 binary64))) (.f64 d d)) (.f64 (.f64 #s(literal -1/8 binary64) (pow.f64 (.f64 D M) #s(literal 2 binary64))) (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64)))))) d))
#s(approx (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (/.f64 (.f64 #s(literal -1/8 binary64) (.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) h)) (.f64 (*.f64 d d) l)))
#s(approx (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (/.f64 (-.f64 (.f64 d d) (.f64 (/.f64 (.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) h) l) #s(literal 1/8 binary64))) (*.f64 d d)))
#s(approx (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)) (/.f64 (.f64 #s(literal 1/8 binary64) (.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) h)) (.f64 (*.f64 d d) l)))
#s(approx (* (pow (/ (* M D) (* 2 d)) 2) (* 1/2 h)) (/.f64 (.f64 #s(literal 1/8 binary64) (.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) h)) (.f64 d d)))
#s(approx (pow (/ (* M D) (* 2 d)) 2) (/.f64 (.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 D M) #s(literal 2 binary64))) (*.f64 d d)))
#s(approx (/ (* M D) (* 2 d)) (.f64 (/.f64 (.f64 D M) d) #s(literal 1/2 binary64)))
#s(approx (* 2 d) (*.f64 d #s(literal 2 binary64)))
#s(approx d d)
#s(approx (* (sqrt (/ d l)) (sqrt (/ d h))) (.f64 (sqrt.f64 (pow.f64 (.f64 l h) #s(literal -1 binary64))) d))
#s(approx (sqrt (/ d l)) (sqrt.f64 (/.f64 d l)))
#s(approx (/ d l) (/.f64 d l))
#s(approx (sqrt (/ d h)) (sqrt.f64 (/.f64 d h)))
#s(approx (/ d h) (/.f64 d h))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 (*.f64 D M) #s(literal 2 binary64)) d)) (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64))))))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (/.f64 (+.f64 (.f64 (sqrt.f64 (pow.f64 (.f64 l h) #s(literal -1 binary64))) (.f64 d d)) (.f64 (.f64 #s(literal -1/8 binary64) (pow.f64 (.f64 D M) #s(literal 2 binary64))) (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64)))))) d))
#s(approx (* (/ 1 (sqrt (* l h))) d) (.f64 (sqrt.f64 (pow.f64 (.f64 l h) #s(literal -1 binary64))) d))
#s(approx (* (* -1/8 (/ (* (* (* (* M D) D) M) -1) d)) (sqrt (/ h (pow l 3)))) (.f64 (.f64 #s(literal 1/8 binary64) (/.f64 (pow.f64 (*.f64 D M) #s(literal 2 binary64)) d)) (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64))))))
#s(approx (* -1/8 (/ (* (* (* (* M D) D) M) -1) d)) (.f64 #s(literal 1/8 binary64) (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) d)))
#s(approx (/ (* (* (* (* M D) D) M) -1) d) (neg.f64 (/.f64 (pow.f64 (*.f64 D M) #s(literal 2 binary64)) d)))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 (*.f64 D M) #s(literal 2 binary64)) d)) (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64))))))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (/.f64 (+.f64 (.f64 (sqrt.f64 (pow.f64 (.f64 l h) #s(literal -1 binary64))) (.f64 d d)) (.f64 (.f64 #s(literal -1/8 binary64) (pow.f64 (.f64 D M) #s(literal 2 binary64))) (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64)))))) d))
#s(approx (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (/.f64 (.f64 #s(literal -1/8 binary64) (.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) h)) (.f64 (*.f64 d d) l)))
#s(approx (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (/.f64 (-.f64 (.f64 d d) (.f64 (/.f64 (.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) h) l) #s(literal 1/8 binary64))) (*.f64 d d)))
#s(approx (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)) (/.f64 (.f64 #s(literal 1/8 binary64) (.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) h)) (.f64 (*.f64 d d) l)))
#s(approx (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/.f64 (.f64 #s(literal 1/8 binary64) (pow.f64 (.f64 D M) #s(literal 2 binary64))) (*.f64 d d)))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 (*.f64 D M) #s(literal 2 binary64)) d)) (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64))))))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (/.f64 (+.f64 (.f64 (sqrt.f64 (pow.f64 (.f64 l h) #s(literal -1 binary64))) (.f64 d d)) (.f64 (.f64 #s(literal -1/8 binary64) (pow.f64 (.f64 D M) #s(literal 2 binary64))) (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64)))))) d))
#s(approx (/ (+ (* (sqrt (/ h l)) d) (* (* (sqrt (pow (/ h l) 3)) (/ (pow (* M D) 2) d)) -1/8)) h) (.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 (*.f64 D M) #s(literal 2 binary64)) d)) (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64))))))
#s(approx (/ (+ (* (sqrt (/ h l)) d) (* (* (sqrt (pow (/ h l) 3)) (/ (pow (* M D) 2) d)) -1/8)) h) (/.f64 (+.f64 (.f64 (sqrt.f64 (pow.f64 (.f64 l h) #s(literal -1 binary64))) (.f64 d d)) (.f64 (.f64 #s(literal -1/8 binary64) (pow.f64 (.f64 D M) #s(literal 2 binary64))) (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64)))))) d))
#s(approx (+ (* (sqrt (/ h l)) d) (* (* (sqrt (pow (/ h l) 3)) (/ (pow (* M D) 2) d)) -1/8)) (.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 (*.f64 D M) #s(literal 2 binary64)) d)) (pow.f64 (/.f64 h l) #s(literal 3/2 binary64))))
#s(approx (+ (* (sqrt (/ h l)) d) (* (* (sqrt (pow (/ h l) 3)) (/ (pow (* M D) 2) d)) -1/8)) (/.f64 (+.f64 (.f64 (sqrt.f64 (/.f64 h l)) (.f64 d d)) (.f64 (.f64 #s(literal -1/8 binary64) (pow.f64 (*.f64 D M) #s(literal 2 binary64))) (pow.f64 (/.f64 h l) #s(literal 3/2 binary64)))) d))
#s(approx (* (sqrt (/ h l)) d) (*.f64 (sqrt.f64 (/.f64 h l)) d))
#s(approx (* (* (sqrt (pow (/ h l) 3)) (/ (pow (* M D) 2) d)) -1/8) (.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 (*.f64 D M) #s(literal 2 binary64)) d)) (pow.f64 (/.f64 h l) #s(literal 3/2 binary64))))
#s(approx (* (sqrt (pow (/ h l) 3)) (/ (pow (* M D) 2) d)) (.f64 (pow.f64 (/.f64 h l) #s(literal 3/2 binary64)) (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) d)))
#s(approx (/ (pow (* M D) 2) d) (/.f64 (pow.f64 (*.f64 D M) #s(literal 2 binary64)) d))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 (sqrt.f64 (pow.f64 (.f64 l h) #s(literal -1 binary64))) d))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 (-.f64 (sqrt.f64 (pow.f64 (.f64 l h) #s(literal -1 binary64))) (.f64 (/.f64 (.f64 #s(literal 1/8 binary64) (pow.f64 (.f64 D M) #s(literal 2 binary64))) (.f64 d d)) (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64)))))) d))
#s(approx (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) #s(literal 1 binary64))
#s(approx (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 #s(literal 1/8 binary64) (.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) h)) (.f64 (*.f64 d d) l))))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 (sqrt.f64 (pow.f64 (.f64 l h) #s(literal -1 binary64))) d))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 (-.f64 (sqrt.f64 (pow.f64 (.f64 l h) #s(literal -1 binary64))) (.f64 (/.f64 (.f64 #s(literal 1/8 binary64) (pow.f64 (.f64 D M) #s(literal 2 binary64))) (.f64 d d)) (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64)))))) d))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 (sqrt.f64 (pow.f64 (.f64 l h) #s(literal -1 binary64))) d))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 (-.f64 (sqrt.f64 (pow.f64 (.f64 l h) #s(literal -1 binary64))) (.f64 (/.f64 (.f64 #s(literal 1/8 binary64) (pow.f64 (.f64 D M) #s(literal 2 binary64))) (.f64 d d)) (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64)))))) d))
#s(approx (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) #s(literal 1 binary64))
#s(approx (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 #s(literal 1/8 binary64) (.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) h)) (.f64 (*.f64 d d) l))))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 (sqrt.f64 (pow.f64 (.f64 l h) #s(literal -1 binary64))) d))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 (-.f64 (sqrt.f64 (pow.f64 (.f64 l h) #s(literal -1 binary64))) (.f64 (/.f64 (.f64 #s(literal 1/8 binary64) (pow.f64 (.f64 D M) #s(literal 2 binary64))) (.f64 d d)) (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64)))))) d))
#s(approx (/ (+ (* (sqrt (/ h l)) d) (* (* (sqrt (pow (/ h l) 3)) (/ (pow (* M D) 2) d)) -1/8)) h) (.f64 (sqrt.f64 (pow.f64 (.f64 l h) #s(literal -1 binary64))) d))
#s(approx (/ (+ (* (sqrt (/ h l)) d) (* (* (sqrt (pow (/ h l) 3)) (/ (pow (* M D) 2) d)) -1/8)) h) (.f64 (-.f64 (sqrt.f64 (pow.f64 (.f64 l h) #s(literal -1 binary64))) (.f64 (/.f64 (.f64 #s(literal 1/8 binary64) (pow.f64 (.f64 D M) #s(literal 2 binary64))) (.f64 d d)) (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64)))))) d))
#s(approx (+ (* (sqrt (/ h l)) d) (* (* (sqrt (pow (/ h l) 3)) (/ (pow (* M D) 2) d)) -1/8)) (*.f64 (sqrt.f64 (/.f64 h l)) d))
#s(approx (+ (* (sqrt (/ h l)) d) (* (* (sqrt (pow (/ h l) 3)) (/ (pow (* M D) 2) d)) -1/8)) (.f64 (-.f64 (sqrt.f64 (/.f64 h l)) (.f64 (/.f64 (.f64 #s(literal 1/8 binary64) (pow.f64 (.f64 D M) #s(literal 2 binary64))) (*.f64 d d)) (pow.f64 (/.f64 h l) #s(literal 3/2 binary64)))) d))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (neg.f64 (.f64 d (neg.f64 (sqrt.f64 (pow.f64 (.f64 l h) #s(literal -1 binary64)))))))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (neg.f64 (.f64 (+.f64 (neg.f64 (sqrt.f64 (pow.f64 (.f64 l h) #s(literal -1 binary64)))) (.f64 (.f64 (/.f64 (neg.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64))) (.f64 d d)) (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64))))) #s(literal -1/8 binary64))) d)))
#s(approx (* (sqrt (/ d l)) (sqrt (/ d h))) (neg.f64 (.f64 d (neg.f64 (sqrt.f64 (pow.f64 (.f64 l h) #s(literal -1 binary64)))))))
#s(approx (sqrt (/ d l)) (neg.f64 (*.f64 (sqrt.f64 (/.f64 d l)) #s(literal -1 binary64))))
#s(approx (sqrt (/ d h)) (neg.f64 (*.f64 (sqrt.f64 (/.f64 d h)) #s(literal -1 binary64))))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (neg.f64 (.f64 d (neg.f64 (sqrt.f64 (pow.f64 (.f64 l h) #s(literal -1 binary64)))))))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (neg.f64 (.f64 (+.f64 (neg.f64 (sqrt.f64 (pow.f64 (.f64 l h) #s(literal -1 binary64)))) (.f64 (.f64 (/.f64 (neg.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64))) (.f64 d d)) (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64))))) #s(literal -1/8 binary64))) d)))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (neg.f64 (.f64 d (neg.f64 (sqrt.f64 (pow.f64 (.f64 l h) #s(literal -1 binary64)))))))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (neg.f64 (.f64 (+.f64 (neg.f64 (sqrt.f64 (pow.f64 (.f64 l h) #s(literal -1 binary64)))) (.f64 (.f64 (/.f64 (neg.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64))) (.f64 d d)) (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64))))) #s(literal -1/8 binary64))) d)))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (neg.f64 (.f64 d (neg.f64 (sqrt.f64 (pow.f64 (.f64 l h) #s(literal -1 binary64)))))))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (neg.f64 (.f64 (+.f64 (neg.f64 (sqrt.f64 (pow.f64 (.f64 l h) #s(literal -1 binary64)))) (.f64 (.f64 (/.f64 (neg.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64))) (.f64 d d)) (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64))))) #s(literal -1/8 binary64))) d)))
#s(approx (/ (+ (* (sqrt (/ h l)) d) (* (* (sqrt (pow (/ h l) 3)) (/ (pow (* M D) 2) d)) -1/8)) h) (neg.f64 (.f64 (+.f64 (.f64 (/.f64 (.f64 #s(literal 1/8 binary64) (pow.f64 (.f64 D M) #s(literal 2 binary64))) (.f64 d d)) (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64))))) (neg.f64 (sqrt.f64 (pow.f64 (.f64 l h) #s(literal -1 binary64))))) d)))
#s(approx (+ (* (sqrt (/ h l)) d) (* (* (sqrt (pow (/ h l) 3)) (/ (pow (* M D) 2) d)) -1/8)) (neg.f64 (.f64 (+.f64 (.f64 (/.f64 (.f64 #s(literal 1/8 binary64) (pow.f64 (.f64 D M) #s(literal 2 binary64))) (*.f64 d d)) (pow.f64 (/.f64 h l) #s(literal 3/2 binary64))) (neg.f64 (sqrt.f64 (/.f64 h l)))) d)))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (/.f64 (+.f64 (.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) d)) (pow.f64 (/.f64 h l) #s(literal 3/2 binary64))) (.f64 (sqrt.f64 (/.f64 h l)) d)) h))
#s(approx (* 1/2 h) (*.f64 h #s(literal 1/2 binary64)))
#s(approx h h)
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (/.f64 (+.f64 (.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) d)) (pow.f64 (/.f64 h l) #s(literal 3/2 binary64))) (.f64 (sqrt.f64 (/.f64 h l)) d)) h))
#s(approx (/ 1 (sqrt (* l h))) (sqrt.f64 (pow.f64 (*.f64 l h) #s(literal -1 binary64))))
#s(approx (sqrt (* l h)) (sqrt.f64 (*.f64 l h)))
#s(approx (* l h) (*.f64 l h))
#s(approx (sqrt (/ h (pow l 3))) (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64)))))
#s(approx (/ h (pow l 3)) (/.f64 h (pow.f64 l #s(literal 3 binary64))))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (/.f64 (+.f64 (.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) d)) (pow.f64 (/.f64 h l) #s(literal 3/2 binary64))) (.f64 (sqrt.f64 (/.f64 h l)) d)) h))
#s(approx (/ h l) (/.f64 h l))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (/.f64 (+.f64 (.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) d)) (pow.f64 (/.f64 h l) #s(literal 3/2 binary64))) (.f64 (sqrt.f64 (/.f64 h l)) d)) h))
#s(approx (/ (+ (* (sqrt (/ h l)) d) (* (* (sqrt (pow (/ h l) 3)) (/ (pow (* M D) 2) d)) -1/8)) h) (/.f64 (+.f64 (.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) d)) (pow.f64 (/.f64 h l) #s(literal 3/2 binary64))) (.f64 (sqrt.f64 (/.f64 h l)) d)) h))
#s(approx (+ (* (sqrt (/ h l)) d) (* (* (sqrt (pow (/ h l) 3)) (/ (pow (* M D) 2) d)) -1/8)) (+.f64 (.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) d)) (pow.f64 (/.f64 h l) #s(literal 3/2 binary64))) (.f64 (sqrt.f64 (/.f64 h l)) d)))
#s(approx (sqrt (/ h l)) (sqrt.f64 (/.f64 h l)))
#s(approx (sqrt (pow (/ h l) 3)) (pow.f64 (/.f64 h l) #s(literal 3/2 binary64)))
#s(approx (pow (/ h l) 3) (pow.f64 (/.f64 h l) #s(literal 3 binary64)))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 (+.f64 (.f64 (sqrt.f64 (pow.f64 (.f64 (pow.f64 h #s(literal 3 binary64)) l) #s(literal -1 binary64))) d) (.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) d)) (sqrt.f64 (pow.f64 (*.f64 (pow.f64 l #s(literal 3 binary64)) h) #s(literal -1 binary64))))) h))
#s(approx (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (.f64 (-.f64 (pow.f64 h #s(literal -1 binary64)) (/.f64 (.f64 #s(literal 1/8 binary64) (pow.f64 (.f64 D M) #s(literal 2 binary64))) (.f64 (*.f64 d d) l))) h))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 (+.f64 (.f64 (sqrt.f64 (pow.f64 (.f64 (pow.f64 h #s(literal 3 binary64)) l) #s(literal -1 binary64))) d) (.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) d)) (sqrt.f64 (pow.f64 (*.f64 (pow.f64 l #s(literal 3 binary64)) h) #s(literal -1 binary64))))) h))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 (+.f64 (.f64 (sqrt.f64 (pow.f64 (.f64 (pow.f64 h #s(literal 3 binary64)) l) #s(literal -1 binary64))) d) (.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) d)) (sqrt.f64 (pow.f64 (*.f64 (pow.f64 l #s(literal 3 binary64)) h) #s(literal -1 binary64))))) h))
#s(approx (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (.f64 (-.f64 (pow.f64 h #s(literal -1 binary64)) (/.f64 (.f64 #s(literal 1/8 binary64) (pow.f64 (.f64 D M) #s(literal 2 binary64))) (.f64 (*.f64 d d) l))) h))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 (+.f64 (.f64 (sqrt.f64 (pow.f64 (.f64 (pow.f64 h #s(literal 3 binary64)) l) #s(literal -1 binary64))) d) (.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) d)) (sqrt.f64 (pow.f64 (*.f64 (pow.f64 l #s(literal 3 binary64)) h) #s(literal -1 binary64))))) h))
#s(approx (/ (+ (* (sqrt (/ h l)) d) (* (* (sqrt (pow (/ h l) 3)) (/ (pow (* M D) 2) d)) -1/8)) h) (.f64 (+.f64 (.f64 (sqrt.f64 (pow.f64 (.f64 (pow.f64 h #s(literal 3 binary64)) l) #s(literal -1 binary64))) d) (.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) d)) (sqrt.f64 (pow.f64 (*.f64 (pow.f64 l #s(literal 3 binary64)) h) #s(literal -1 binary64))))) h))
#s(approx (+ (* (sqrt (/ h l)) d) (* (* (sqrt (pow (/ h l) 3)) (/ (pow (* M D) 2) d)) -1/8)) (.f64 (.f64 h h) (+.f64 (.f64 (sqrt.f64 (pow.f64 (.f64 (pow.f64 h #s(literal 3 binary64)) l) #s(literal -1 binary64))) d) (.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) d)) (sqrt.f64 (pow.f64 (.f64 (pow.f64 l #s(literal 3 binary64)) h) #s(literal -1 binary64)))))))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 (.f64 (neg.f64 (/.f64 (pow.f64 (*.f64 D M) #s(literal 2 binary64)) d)) (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64))))) #s(literal -1/8 binary64)))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (neg.f64 (.f64 (+.f64 (.f64 (.f64 #s(literal 1/8 binary64) (neg.f64 (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) d))) (sqrt.f64 (pow.f64 (.f64 (pow.f64 l #s(literal 3 binary64)) h) #s(literal -1 binary64)))) (neg.f64 (.f64 (sqrt.f64 (pow.f64 (.f64 (pow.f64 h #s(literal 3 binary64)) l) #s(literal -1 binary64))) (.f64 #s(literal -1 binary64) d)))) h)))
#s(approx (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (.f64 (-.f64 (pow.f64 h #s(literal -1 binary64)) (/.f64 (.f64 #s(literal 1/8 binary64) (pow.f64 (.f64 D M) #s(literal 2 binary64))) (.f64 (*.f64 d d) l))) h))
#s(approx (* (sqrt (/ d l)) (sqrt (/ d h))) (.f64 d (neg.f64 (sqrt.f64 (pow.f64 (.f64 l h) #s(literal -1 binary64))))))
#s(approx (sqrt (/ d h)) (*.f64 (sqrt.f64 (/.f64 d h)) #s(literal -1 binary64)))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 (.f64 (neg.f64 (/.f64 (pow.f64 (*.f64 D M) #s(literal 2 binary64)) d)) (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64))))) #s(literal -1/8 binary64)))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (neg.f64 (.f64 (+.f64 (.f64 (.f64 #s(literal 1/8 binary64) (neg.f64 (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) d))) (sqrt.f64 (pow.f64 (.f64 (pow.f64 l #s(literal 3 binary64)) h) #s(literal -1 binary64)))) (neg.f64 (.f64 (sqrt.f64 (pow.f64 (.f64 (pow.f64 h #s(literal 3 binary64)) l) #s(literal -1 binary64))) (.f64 #s(literal -1 binary64) d)))) h)))
#s(approx (sqrt (* l h)) (neg.f64 (.f64 (sqrt.f64 (.f64 l h)) #s(literal -1 binary64))))
#s(approx (* (* -1/8 (/ (* (* (* (* M D) D) M) -1) d)) (sqrt (/ h (pow l 3)))) (.f64 (.f64 (neg.f64 (/.f64 (pow.f64 (*.f64 D M) #s(literal 2 binary64)) d)) (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64))))) #s(literal -1/8 binary64)))
#s(approx (sqrt (/ h (pow l 3))) (neg.f64 (*.f64 (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64)))) #s(literal -1 binary64))))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 (.f64 (neg.f64 (/.f64 (pow.f64 (*.f64 D M) #s(literal 2 binary64)) d)) (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64))))) #s(literal -1/8 binary64)))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (neg.f64 (.f64 (+.f64 (.f64 (.f64 #s(literal 1/8 binary64) (neg.f64 (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) d))) (sqrt.f64 (pow.f64 (.f64 (pow.f64 l #s(literal 3 binary64)) h) #s(literal -1 binary64)))) (neg.f64 (.f64 (sqrt.f64 (pow.f64 (.f64 (pow.f64 h #s(literal 3 binary64)) l) #s(literal -1 binary64))) (.f64 #s(literal -1 binary64) d)))) h)))
#s(approx (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (.f64 (-.f64 (pow.f64 h #s(literal -1 binary64)) (/.f64 (.f64 #s(literal 1/8 binary64) (pow.f64 (.f64 D M) #s(literal 2 binary64))) (.f64 (*.f64 d d) l))) h))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 (.f64 (neg.f64 (/.f64 (pow.f64 (*.f64 D M) #s(literal 2 binary64)) d)) (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64))))) #s(literal -1/8 binary64)))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (neg.f64 (.f64 (+.f64 (.f64 (.f64 #s(literal 1/8 binary64) (neg.f64 (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) d))) (sqrt.f64 (pow.f64 (.f64 (pow.f64 l #s(literal 3 binary64)) h) #s(literal -1 binary64)))) (neg.f64 (.f64 (sqrt.f64 (pow.f64 (.f64 (pow.f64 h #s(literal 3 binary64)) l) #s(literal -1 binary64))) (.f64 #s(literal -1 binary64) d)))) h)))
#s(approx (/ (+ (* (sqrt (/ h l)) d) (* (* (sqrt (pow (/ h l) 3)) (/ (pow (* M D) 2) d)) -1/8)) h) (.f64 (.f64 (neg.f64 (/.f64 (pow.f64 (*.f64 D M) #s(literal 2 binary64)) d)) (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64))))) #s(literal -1/8 binary64)))
#s(approx (/ (+ (* (sqrt (/ h l)) d) (* (* (sqrt (pow (/ h l) 3)) (/ (pow (* M D) 2) d)) -1/8)) h) (neg.f64 (.f64 (+.f64 (.f64 (.f64 #s(literal 1/8 binary64) (neg.f64 (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) d))) (sqrt.f64 (pow.f64 (.f64 (pow.f64 l #s(literal 3 binary64)) h) #s(literal -1 binary64)))) (.f64 (sqrt.f64 (pow.f64 (.f64 (pow.f64 h #s(literal 3 binary64)) l) #s(literal -1 binary64))) (.f64 #s(literal -1 binary64) d))) h)))
#s(approx (+ (* (sqrt (/ h l)) d) (* (* (sqrt (pow (/ h l) 3)) (/ (pow (* M D) 2) d)) -1/8)) (.f64 (.f64 (neg.f64 (/.f64 (pow.f64 (*.f64 D M) #s(literal 2 binary64)) d)) (pow.f64 (/.f64 h l) #s(literal 3/2 binary64))) #s(literal -1/8 binary64)))
#s(approx (+ (* (sqrt (/ h l)) d) (* (* (sqrt (pow (/ h l) 3)) (/ (pow (* M D) 2) d)) -1/8)) (.f64 (-.f64 (neg.f64 (.f64 (sqrt.f64 (pow.f64 (.f64 (pow.f64 h #s(literal 3 binary64)) l) #s(literal -1 binary64))) (.f64 #s(literal -1 binary64) d))) (.f64 (.f64 #s(literal 1/8 binary64) (neg.f64 (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) d))) (sqrt.f64 (pow.f64 (.f64 (pow.f64 l #s(literal 3 binary64)) h) #s(literal -1 binary64))))) (*.f64 h h)))
#s(approx (* (sqrt (/ h l)) d) (neg.f64 (*.f64 d (neg.f64 (sqrt.f64 (/.f64 h l))))))
#s(approx (sqrt (/ h l)) (neg.f64 (neg.f64 (sqrt.f64 (/.f64 h l)))))
#s(approx (* (* (sqrt (pow (/ h l) 3)) (/ (pow (* M D) 2) d)) -1/8) (.f64 (.f64 (neg.f64 (/.f64 (pow.f64 (*.f64 D M) #s(literal 2 binary64)) d)) (pow.f64 (/.f64 h l) #s(literal 3/2 binary64))) #s(literal -1/8 binary64)))
#s(approx (* (sqrt (pow (/ h l) 3)) (/ (pow (* M D) 2) d)) (.f64 (neg.f64 (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) d)) (pow.f64 (/.f64 h l) #s(literal 3/2 binary64))))
#s(approx (sqrt (pow (/ h l) 3)) (*.f64 (pow.f64 (/.f64 h l) #s(literal 3/2 binary64)) #s(literal -1 binary64)))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (/.f64 (+.f64 (.f64 (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) h)) d) (.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) d)) (sqrt.f64 (.f64 l h)))) (.f64 l l)))
#s(approx (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (/.f64 (-.f64 l (/.f64 (.f64 #s(literal 1/8 binary64) (.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) h)) (.f64 d d))) l))
#s(approx l l)
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (/.f64 (+.f64 (.f64 (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) h)) d) (.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) d)) (sqrt.f64 (.f64 l h)))) (.f64 l l)))
#s(approx (pow l 3) (pow.f64 l #s(literal 3 binary64)))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (/.f64 (+.f64 (.f64 (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) h)) d) (.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) d)) (sqrt.f64 (.f64 l h)))) (.f64 l l)))
#s(approx (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (/.f64 (-.f64 l (/.f64 (.f64 #s(literal 1/8 binary64) (.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) h)) (.f64 d d))) l))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (/.f64 (+.f64 (.f64 (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) h)) d) (.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) d)) (sqrt.f64 (.f64 l h)))) (.f64 l l)))
#s(approx (/ (+ (* (sqrt (/ h l)) d) (* (* (sqrt (pow (/ h l) 3)) (/ (pow (* M D) 2) d)) -1/8)) h) (/.f64 (+.f64 (.f64 (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) h)) d) (.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) d)) (sqrt.f64 (.f64 l h)))) (.f64 l l)))
#s(approx (+ (* (sqrt (/ h l)) d) (* (* (sqrt (pow (/ h l) 3)) (/ (pow (* M D) 2) d)) -1/8)) (/.f64 (+.f64 (.f64 (sqrt.f64 (.f64 (pow.f64 l #s(literal 3 binary64)) h)) d) (.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) d)) (sqrt.f64 (.f64 (pow.f64 h #s(literal 3 binary64)) l)))) (*.f64 l l)))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (+.f64 (.f64 (sqrt.f64 (pow.f64 (.f64 l h) #s(literal -1 binary64))) d) (.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 (*.f64 D M) #s(literal 2 binary64)) d)) (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64)))))))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (+.f64 (.f64 (sqrt.f64 (pow.f64 (.f64 l h) #s(literal -1 binary64))) d) (.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 (*.f64 D M) #s(literal 2 binary64)) d)) (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64)))))))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (+.f64 (.f64 (sqrt.f64 (pow.f64 (.f64 l h) #s(literal -1 binary64))) d) (.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 (*.f64 D M) #s(literal 2 binary64)) d)) (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64)))))))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (+.f64 (.f64 (sqrt.f64 (pow.f64 (.f64 l h) #s(literal -1 binary64))) d) (.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 (*.f64 D M) #s(literal 2 binary64)) d)) (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64)))))))
#s(approx (/ (+ (* (sqrt (/ h l)) d) (* (* (sqrt (pow (/ h l) 3)) (/ (pow (* M D) 2) d)) -1/8)) h) (+.f64 (.f64 (sqrt.f64 (pow.f64 (.f64 l h) #s(literal -1 binary64))) d) (.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 (*.f64 D M) #s(literal 2 binary64)) d)) (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64)))))))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 d (neg.f64 (sqrt.f64 (pow.f64 (.f64 l h) #s(literal -1 binary64))))))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (+.f64 (.f64 (.f64 (neg.f64 (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) d)) (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64))))) #s(literal -1/8 binary64)) (.f64 d (neg.f64 (sqrt.f64 (pow.f64 (*.f64 l h) #s(literal -1 binary64)))))))
#s(approx (sqrt (/ d l)) (*.f64 (sqrt.f64 (/.f64 d l)) #s(literal -1 binary64)))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 d (neg.f64 (sqrt.f64 (pow.f64 (.f64 l h) #s(literal -1 binary64))))))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (+.f64 (.f64 (.f64 (neg.f64 (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) d)) (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64))))) #s(literal -1/8 binary64)) (.f64 d (neg.f64 (sqrt.f64 (pow.f64 (*.f64 l h) #s(literal -1 binary64)))))))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 d (neg.f64 (sqrt.f64 (pow.f64 (.f64 l h) #s(literal -1 binary64))))))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (+.f64 (.f64 (.f64 (neg.f64 (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) d)) (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64))))) #s(literal -1/8 binary64)) (.f64 d (neg.f64 (sqrt.f64 (pow.f64 (*.f64 l h) #s(literal -1 binary64)))))))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 d (neg.f64 (sqrt.f64 (pow.f64 (.f64 l h) #s(literal -1 binary64))))))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (+.f64 (.f64 (.f64 (neg.f64 (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) d)) (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64))))) #s(literal -1/8 binary64)) (.f64 d (neg.f64 (sqrt.f64 (pow.f64 (*.f64 l h) #s(literal -1 binary64)))))))
#s(approx (/ (+ (* (sqrt (/ h l)) d) (* (* (sqrt (pow (/ h l) 3)) (/ (pow (* M D) 2) d)) -1/8)) h) (.f64 d (neg.f64 (sqrt.f64 (pow.f64 (.f64 l h) #s(literal -1 binary64))))))
#s(approx (/ (+ (* (sqrt (/ h l)) d) (* (* (sqrt (pow (/ h l) 3)) (/ (pow (* M D) 2) d)) -1/8)) h) (+.f64 (.f64 (.f64 #s(literal 1/8 binary64) (neg.f64 (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) d))) (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64))))) (.f64 d (neg.f64 (sqrt.f64 (pow.f64 (*.f64 l h) #s(literal -1 binary64)))))))
#s(approx (+ (* (sqrt (/ h l)) d) (* (* (sqrt (pow (/ h l) 3)) (/ (pow (* M D) 2) d)) -1/8)) (*.f64 d (neg.f64 (sqrt.f64 (/.f64 h l)))))
#s(approx (+ (* (sqrt (/ h l)) d) (* (* (sqrt (pow (/ h l) 3)) (/ (pow (* M D) 2) d)) -1/8)) (+.f64 (.f64 (.f64 #s(literal 1/8 binary64) (neg.f64 (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) d))) (pow.f64 (/.f64 h l) #s(literal 3/2 binary64))) (.f64 d (neg.f64 (sqrt.f64 (/.f64 h l))))))
#s(approx (* (sqrt (/ h l)) d) (*.f64 d (neg.f64 (sqrt.f64 (/.f64 h l)))))
#s(approx (sqrt (/ h l)) (neg.f64 (sqrt.f64 (/.f64 h l))))
#s(approx (* (* (sqrt (pow (/ h l) 3)) (/ (pow (* M D) 2) d)) -1/8) (.f64 (.f64 #s(literal 1/8 binary64) (neg.f64 (/.f64 (pow.f64 (*.f64 D M) #s(literal 2 binary64)) d))) (pow.f64 (/.f64 h l) #s(literal 3/2 binary64))))
#s(approx (* (sqrt (pow (/ h l) 3)) (/ (pow (* M D) 2) d)) (neg.f64 (.f64 (neg.f64 (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) d)) (pow.f64 (/.f64 h l) #s(literal 3/2 binary64)))))
#s(approx (sqrt (pow (/ h l) 3)) (neg.f64 (*.f64 (pow.f64 (/.f64 h l) #s(literal 3/2 binary64)) #s(literal -1 binary64))))
#s(approx (* M D) (*.f64 D M))
#s(approx M M)
#s(approx (* (* (* (* M D) D) M) -1) (neg.f64 (pow.f64 (*.f64 D M) #s(literal 2 binary64))))
#s(approx (pow (* M D) 2) (pow.f64 (*.f64 D M) #s(literal 2 binary64)))
#s(approx (* (* M D) D) (.f64 (.f64 D M) D))
#s(approx (pow (* M D) 2) (pow.f64 (*.f64 D M) #s(literal 2 binary64)))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 (+.f64 (.f64 (/.f64 d (.f64 M M)) (sqrt.f64 (pow.f64 (.f64 l h) #s(literal -1 binary64)))) (.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 D D) d)) (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64)))))) (.f64 M M)))
#s(approx (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (.f64 (-.f64 (pow.f64 M #s(literal -2 binary64)) (/.f64 (.f64 #s(literal 1/8 binary64) (.f64 (.f64 D D) h)) (.f64 (.f64 d d) l))) (*.f64 M M)))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 (+.f64 (.f64 (/.f64 d (.f64 M M)) (sqrt.f64 (pow.f64 (.f64 l h) #s(literal -1 binary64)))) (.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 D D) d)) (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64)))))) (.f64 M M)))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 (+.f64 (.f64 (/.f64 d (.f64 M M)) (sqrt.f64 (pow.f64 (.f64 l h) #s(literal -1 binary64)))) (.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 D D) d)) (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64)))))) (.f64 M M)))
#s(approx (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (.f64 (-.f64 (pow.f64 M #s(literal -2 binary64)) (/.f64 (.f64 #s(literal 1/8 binary64) (.f64 (.f64 D D) h)) (.f64 (.f64 d d) l))) (*.f64 M M)))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 (+.f64 (.f64 (/.f64 d (.f64 M M)) (sqrt.f64 (pow.f64 (.f64 l h) #s(literal -1 binary64)))) (.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 D D) d)) (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64)))))) (.f64 M M)))
#s(approx (/ (+ (* (sqrt (/ h l)) d) (* (* (sqrt (pow (/ h l) 3)) (/ (pow (* M D) 2) d)) -1/8)) h) (.f64 (+.f64 (.f64 (/.f64 d (.f64 M M)) (sqrt.f64 (pow.f64 (.f64 l h) #s(literal -1 binary64)))) (.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 D D) d)) (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64)))))) (.f64 M M)))
#s(approx (+ (* (sqrt (/ h l)) d) (* (* (sqrt (pow (/ h l) 3)) (/ (pow (* M D) 2) d)) -1/8)) (.f64 (+.f64 (.f64 (/.f64 d (.f64 M M)) (sqrt.f64 (/.f64 h l))) (.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 D D) d)) (pow.f64 (/.f64 h l) #s(literal 3/2 binary64)))) (*.f64 M M)))
#s(approx D D)
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 (+.f64 (.f64 (/.f64 d (.f64 D D)) (sqrt.f64 (pow.f64 (.f64 l h) #s(literal -1 binary64)))) (.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 M M) d)) (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64)))))) (.f64 D D)))
#s(approx (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (.f64 (-.f64 (pow.f64 D #s(literal -2 binary64)) (/.f64 (.f64 #s(literal 1/8 binary64) (.f64 (.f64 M M) h)) (.f64 (.f64 d d) l))) (*.f64 D D)))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 (+.f64 (.f64 (/.f64 d (.f64 D D)) (sqrt.f64 (pow.f64 (.f64 l h) #s(literal -1 binary64)))) (.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 M M) d)) (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64)))))) (.f64 D D)))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 (+.f64 (.f64 (/.f64 d (.f64 D D)) (sqrt.f64 (pow.f64 (.f64 l h) #s(literal -1 binary64)))) (.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 M M) d)) (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64)))))) (.f64 D D)))
#s(approx (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (.f64 (-.f64 (pow.f64 D #s(literal -2 binary64)) (/.f64 (.f64 #s(literal 1/8 binary64) (.f64 (.f64 M M) h)) (.f64 (.f64 d d) l))) (*.f64 D D)))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 (+.f64 (.f64 (/.f64 d (.f64 D D)) (sqrt.f64 (pow.f64 (.f64 l h) #s(literal -1 binary64)))) (.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 M M) d)) (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64)))))) (.f64 D D)))
#s(approx (/ (+ (* (sqrt (/ h l)) d) (* (* (sqrt (pow (/ h l) 3)) (/ (pow (* M D) 2) d)) -1/8)) h) (.f64 (+.f64 (.f64 (/.f64 d (.f64 D D)) (sqrt.f64 (pow.f64 (.f64 l h) #s(literal -1 binary64)))) (.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 M M) d)) (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64)))))) (.f64 D D)))
#s(approx (+ (* (sqrt (/ h l)) d) (* (* (sqrt (pow (/ h l) 3)) (/ (pow (* M D) 2) d)) -1/8)) (.f64 (+.f64 (.f64 (/.f64 d (.f64 D D)) (sqrt.f64 (/.f64 h l))) (.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 M M) d)) (pow.f64 (/.f64 h l) #s(literal 3/2 binary64)))) (*.f64 D D)))

eval52.0ms (0.5%)

Memory: 20.0MiB live, 109.0MiB allocated; 27ms collecting garbage
Compiler: Compiled 20 077 to 1 536 computations (92.3% saved)

prune87.0ms (0.8%)

Memory

11.5MiB live, 206.3MiB allocated; 22ms collecting garbage

Pruning

43 alts after pruning (41 fresh and 2 done)

	Pruned	Kept	Total
New	395	20	415
Fresh	15	21	36
Picked	4	1	5
Done	0	1	1
Total	414	43	457

Accuracy

95.5%

Counts

457 → 43

Alt Table

Click to see full alt table

Status	Accuracy	Program
	35.4%	(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) h)) l)) (.f64 (/.f64 (sqrt.f64 d) (sqrt.f64 l)) (sqrt.f64 (/.f64 d h))))
	68.8%	(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) h)) l)) (.f64 (*.f64 (pow.f64 (/.f64 d l) #s(literal 1/4 binary64)) (pow.f64 (/.f64 d l) #s(literal 1/4 binary64))) (sqrt.f64 (/.f64 d h))))
	36.3%	(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) h)) l)) (.f64 (sqrt.f64 (/.f64 d l)) (/.f64 (sqrt.f64 d) (sqrt.f64 h))))
	66.6%	(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) h)) l)) (.f64 (exp.f64 (*.f64 (log.f64 (/.f64 d l)) #s(literal 1/2 binary64))) (sqrt.f64 (/.f64 d h))))
	57.1%	(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) h)) l)) (sqrt.f64 (.f64 (/.f64 d l) (/.f64 d h))))
	40.6%	(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) h)) l)) #s(approx ( (sqrt (/ d l)) (sqrt (/ d h))) (.f64 d (neg.f64 (sqrt.f64 (pow.f64 (.f64 l h) #s(literal -1 binary64)))))))
	34.7%	(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (pow.f64 (.f64 (/.f64 D d) (/.f64 M #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) h)) l)) (/.f64 (*.f64 (sqrt.f64 (/.f64 d h)) (sqrt.f64 d)) (sqrt.f64 l)))
	68.5%	(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (.f64 (/.f64 M #s(literal 2 binary64)) (/.f64 D d)) (.f64 (/.f64 M #s(literal 2 binary64)) (/.f64 D d))) (.f64 #s(literal 1/2 binary64) h)) l)) (*.f64 (sqrt.f64 (/.f64 d l)) (sqrt.f64 (/.f64 d h))))
	20.2%	(.f64 (.f64 (pow.f64 (/.f64 d h) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64))) (/.f64 (sqrt.f64 d) (sqrt.f64 l))) #s(approx (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (.f64 (-.f64 (pow.f64 D #s(literal -2 binary64)) (.f64 (.f64 (.f64 M M) (/.f64 h (.f64 (.f64 d d) l))) #s(literal 1/8 binary64))) (*.f64 D D))))
	20.8%	(.f64 (.f64 (pow.f64 (/.f64 d h) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64))) (/.f64 (sqrt.f64 d) (sqrt.f64 l))) #s(approx (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (.f64 (.f64 (-.f64 (pow.f64 D #s(literal -2 binary64)) (.f64 (/.f64 #s(literal 1/8 binary64) (.f64 d d)) (/.f64 (.f64 (.f64 M M) h) l))) D) D)))
	28.0%	(.f64 (.f64 (pow.f64 (/.f64 d h) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64))) (/.f64 (sqrt.f64 d) (sqrt.f64 l))) #s(approx (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) #s(approx (* (- (pow D -2) (/ (* 1/8 (* (* M M) h)) (* (* d d) l))) (* D D)) (/.f64 (-.f64 l (.f64 (/.f64 (.f64 (pow.f64 (.f64 M D) #s(literal 2 binary64)) h) (.f64 d d)) #s(literal 1/8 binary64))) l))))
	13.4%	(.f64 (.f64 (pow.f64 (/.f64 d h) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64))) (/.f64 (sqrt.f64 d) (sqrt.f64 l))) #s(approx (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) #s(approx (* (- (pow D -2) (/ (* 1/8 (* (* M M) h)) (* (* d d) l))) (* D D)) (.f64 (/.f64 (.f64 (pow.f64 (.f64 M D) #s(literal 2 binary64)) h) (.f64 (*.f64 d d) l)) #s(literal -1/8 binary64)))))
	65.7%	(.f64 (.f64 (-.f64 #s(literal 1 binary64) (.f64 (pow.f64 (.f64 (/.f64 M #s(literal 2 binary64)) (/.f64 D d)) #s(literal 2 binary64)) (/.f64 (*.f64 h #s(literal 1/2 binary64)) l))) (sqrt.f64 (/.f64 d l))) (sqrt.f64 (/.f64 d h)))
	66.0%	(.f64 (.f64 (sqrt.f64 (/.f64 d l)) (sqrt.f64 (/.f64 d h))) (-.f64 #s(literal 1 binary64) (.f64 (.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) (.f64 (.f64 (/.f64 D d) (/.f64 M #s(literal 2 binary64))) (*.f64 (/.f64 D d) (/.f64 M #s(literal 2 binary64))))) (/.f64 h l))))
	54.8%	(.f64 (.f64 (sqrt.f64 (/.f64 d l)) (sqrt.f64 (/.f64 d h))) (-.f64 #s(literal 1 binary64) (.f64 #s(approx ( (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/.f64 (.f64 #s(literal 1/8 binary64) (pow.f64 (.f64 D M) #s(literal 2 binary64))) (*.f64 d d))) (/.f64 h l))))
	54.3%	(.f64 (sqrt.f64 (.f64 (/.f64 d l) (/.f64 d h))) (-.f64 #s(literal 1 binary64) (.f64 (.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) (pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64))) (/.f64 h l))))
	33.3%	(.f64 (sqrt.f64 (.f64 (/.f64 d l) (/.f64 d h))) #s(approx (- 1 (/ (* (* (pow (* (/ M 2) (/ D d)) 2) 1/2) h) l)) (.f64 (-.f64 (pow.f64 D #s(literal -2 binary64)) (.f64 (/.f64 #s(literal 1/8 binary64) (.f64 d d)) (/.f64 (.f64 (.f64 M M) h) l))) (.f64 D D))))
	55.9%	(.f64 #s(approx (- 1 (/ ( (* (pow (* (/ M 2) (/ D d)) 2) 1/2) h) l)) (/.f64 (-.f64 l (.f64 (/.f64 (.f64 (pow.f64 (.f64 M D) #s(literal 2 binary64)) h) (.f64 d d)) #s(literal 1/8 binary64))) l)) (*.f64 (sqrt.f64 (/.f64 d l)) (sqrt.f64 (/.f64 d h))))
	26.7%	(.f64 #s(approx (- 1 (/ ( (* (pow (* (/ M 2) (/ D d)) 2) 1/2) h) l)) (.f64 (/.f64 (.f64 (pow.f64 (.f64 M D) #s(literal 2 binary64)) h) (.f64 (.f64 d d) l)) #s(literal -1/8 binary64))) (.f64 (sqrt.f64 (/.f64 d l)) (sqrt.f64 (/.f64 d h))))
	29.3%	(.f64 #s(approx (- 1 (/ ( (* (pow (* (/ M 2) (/ D d)) 2) 1/2) h) l)) (.f64 (-.f64 (pow.f64 M #s(literal -2 binary64)) (/.f64 (.f64 #s(literal 1/8 binary64) (.f64 (.f64 D D) h)) (.f64 (.f64 d d) l))) (.f64 M M))) (.f64 (sqrt.f64 (/.f64 d l)) (sqrt.f64 (/.f64 d h))))
	35.4%	(.f64 #s(approx (- 1 (/ ( (* (pow (* (/ M 2) (/ D d)) 2) 1/2) h) l)) #s(literal 1 binary64)) (*.f64 (sqrt.f64 (/.f64 d l)) (sqrt.f64 (/.f64 d h))))
	40.7%	(.f64 #s(approx ( (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (.f64 d (neg.f64 (pow.f64 (.f64 l h) #s(literal -1/2 binary64))))) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (pow.f64 (.f64 #s(approx (/ M 2) (.f64 #s(literal 1/2 binary64) M)) (/.f64 D d)) #s(literal 2 binary64)) #s(literal 1/2 binary64)) h) l)))
	33.1%	(.f64 #s(approx ( (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (.f64 d (neg.f64 (pow.f64 (.f64 l h) #s(literal -1/2 binary64))))) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 #s(approx ( (pow (* (/ M 2) (/ D d)) 2) 1/2) (.f64 (/.f64 (pow.f64 (.f64 M D) #s(literal 2 binary64)) (*.f64 d d)) #s(literal 1/8 binary64))) h) l)))
	40.6%	(.f64 #s(approx ( (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (.f64 d (neg.f64 (.f64 (pow.f64 (.f64 l h) #s(literal -1/4 binary64)) (pow.f64 (.f64 l h) #s(literal -1/4 binary64)))))) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (pow.f64 (*.f64 (/.f64 M #s(literal 2 binary64)) (/.f64 D d)) #s(literal 2 binary64)) #s(literal 1/2 binary64)) h) l)))
	56.2%	#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (/ (* (* (pow (* (/ M 2) (/ D d)) 2) 1/2) h) l))) (/.f64 (+.f64 (.f64 (sqrt.f64 (/.f64 h l)) d) (.f64 (/.f64 (.f64 (pow.f64 (/.f64 h l) #s(literal 3/2 binary64)) (pow.f64 (.f64 D M) #s(literal 2 binary64))) d) #s(literal -1/8 binary64))) h))
	38.9%	#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (/ (* (* (pow (* (/ M 2) (/ D d)) 2) 1/2) h) l))) (/.f64 (+.f64 (.f64 (sqrt.f64 (/.f64 h l)) d) (.f64 (.f64 (sqrt.f64 (pow.f64 (/.f64 h l) #s(literal 3 binary64))) (.f64 (.f64 D D) (/.f64 (.f64 M M) d))) #s(literal -1/8 binary64))) h))
	49.2%	#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (/ (* (* (pow (* (/ M 2) (/ D d)) 2) 1/2) h) l))) (/.f64 (+.f64 (.f64 (sqrt.f64 (/.f64 h l)) d) (.f64 (.f64 (sqrt.f64 (.f64 (/.f64 h l) (.f64 (/.f64 h l) (/.f64 h l)))) (/.f64 (pow.f64 (.f64 M D) #s(literal 2 binary64)) d)) #s(literal -1/8 binary64))) h))
	29.3%	#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (/ (* (* (pow (* (/ M 2) (/ D d)) 2) 1/2) h) l))) (/.f64 #s(approx (+ (* (sqrt (/ h l)) d) (* (* (sqrt (pow (/ h l) 3)) (/ (pow (* M D) 2) d)) -1/8)) (.f64 (+.f64 (.f64 (/.f64 d (.f64 M M)) (sqrt.f64 (/.f64 h l))) (.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 D D) d)) (pow.f64 (/.f64 h l) #s(literal 3/2 binary64)))) (*.f64 M M))) h))
	39.8%	#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (/ (* (* (pow (* (/ M 2) (/ D d)) 2) 1/2) h) l))) (/.f64 #s(approx (+ (* (sqrt (/ h l)) d) (* (* (sqrt (pow (/ h l) 3)) (/ (pow (* M D) 2) d)) -1/8)) (.f64 (+.f64 (.f64 (/.f64 d (.f64 D D)) (sqrt.f64 (/.f64 h l))) (.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 M M) d)) (pow.f64 (/.f64 h l) #s(literal 3/2 binary64)))) (*.f64 D D))) h))
	42.2%	#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (/ (* (* (pow (* (/ M 2) (/ D d)) 2) 1/2) h) l))) (/.f64 #s(approx (+ (* (sqrt (/ h l)) d) (* (* (sqrt (pow (/ h l) 3)) (/ (pow (* M D) 2) d)) -1/8)) (.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 (*.f64 D M) #s(literal 2 binary64)) d)) (pow.f64 (/.f64 h l) #s(literal 3/2 binary64)))) h))
	33.3%	#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (/ (* (* (pow (* (/ M 2) (/ D d)) 2) 1/2) h) l))) (/.f64 #s(approx (+ (* (sqrt (/ h l)) d) (* (* (sqrt (pow (/ h l) 3)) (/ (pow (* M D) 2) d)) -1/8)) (*.f64 (sqrt.f64 (/.f64 h l)) d)) h))
	14.7%	#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (/ (* (* (pow (* (/ M 2) (/ D d)) 2) 1/2) h) l))) (/.f64 #s(approx (+ (* (sqrt (/ h l)) d) (* (* (sqrt (pow (/ h l) 3)) (/ (pow (* M D) 2) d)) -1/8)) (*.f64 d (neg.f64 (sqrt.f64 (/.f64 h l))))) h))
	25.1%	#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (/ (* (* (pow (* (/ M 2) (/ D d)) 2) 1/2) h) l))) (.f64 d (neg.f64 (sqrt.f64 (pow.f64 (.f64 l h) #s(literal -1 binary64))))))
	23.6%	#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (/.f64 (.f64 #s(literal 1 binary64) d) (sqrt.f64 (.f64 l h))))
	21.9%	#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 (/.f64 #s(literal 1 binary64) (.f64 (sqrt.f64 l) (sqrt.f64 h))) d))
✓	23.5%	#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (.f64 l h))) d))
	22.0%	#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (.f64 (.f64 (.f64 M D) D) M) #s(literal -1 binary64)) d)) (sqrt.f64 (/.f64 h (.f64 (.f64 l l) l)))))
	23.7%	#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (*.f64 (sqrt.f64 (/.f64 (pow.f64 h #s(literal -1 binary64)) l)) d))
	23.7%	#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (*.f64 (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) l) h)) d))
✓	23.6%	#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 l h))) d))
	35.0%	#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 #s(approx (+ ( (/ d (* D D)) (sqrt (pow (* l h) -1))) (* (* -1/8 (/ (* M M) d)) (sqrt (/ h (pow l 3))))) (/.f64 (+.f64 (.f64 (sqrt.f64 (/.f64 h l)) (/.f64 d (.f64 D D))) (.f64 (.f64 (/.f64 (.f64 M M) d) #s(literal -1/8 binary64)) (sqrt.f64 (pow.f64 (/.f64 h l) #s(literal 3 binary64))))) h)) (.f64 D D)))
	16.2%	#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 #s(approx (+ ( (/ d (* D D)) (sqrt (pow (* l h) -1))) (* (* -1/8 (/ (* M M) d)) (sqrt (/ h (pow l 3))))) (.f64 (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64)))) (.f64 (/.f64 (.f64 M M) d) #s(literal -1/8 binary64)))) (.f64 D D)))
	25.5%	#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 #s(approx (sqrt (pow ( l h) -1)) (neg.f64 (pow.f64 (*.f64 l h) #s(literal -1/2 binary64)))) d))

Compiler

Compiled 7 358 to 2 018 computations (72.6% saved)

regimes314.0ms (3%)

Memory

15.7MiB live, 465.5MiB allocated; 132ms collecting garbage

Counts

106 → 4

Calls

Call 1

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

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

Calls

7 calls:

69.0ms	d
56.0ms	h
56.0ms	(*.f64 M D)
36.0ms	D
32.0ms	M

Results

Accuracy	Segments	Branch
68.9%	1	`(*.f64 M D)`
77.0%	3	`(.f64 (.f64 (pow.f64 (/.f64 d h) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64))) (pow.f64 (/.f64 d l) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)))) (-.f64 #s(literal 1 binary64) (.f64 (.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) (pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64))) (/.f64 h l))))`
79.7%	4	`d`
75.0%	2	`h`
77.5%	3	`l`
68.9%	1	`M`
68.9%	1	`D`

Compiler

Compiled 43 to 53 computations (-23.3% saved)

regimes37.0ms (0.4%)

Memory

16.1MiB live, 55.0MiB allocated; 23ms collecting garbage

Counts

58 → 3

Calls

Call 1

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

Outputs

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

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

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

Calls

1 calls:

33.0ms

Results

Accuracy	Segments	Branch
78.0%	3	`d`

Compiler

Compiled 1 to 5 computations (-400% saved)

regimes138.0ms (1.3%)

Memory

10.3MiB live, 207.3MiB allocated; 81ms collecting garbage

Counts

55 → 3

Calls

Call 1

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

Outputs

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

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

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

Calls

4 calls:

44.0ms	l
43.0ms	h
24.0ms	d
23.0ms	(.f64 (.f64 (pow.f64 (/.f64 d h) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64))) (pow.f64 (/.f64 d l) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)))) (-.f64 #s(literal 1 binary64) (.f64 (.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) (pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64))) (/.f64 h l))))

Results

Accuracy	Segments	Branch
72.6%	2	`h`
73.6%	3	`(.f64 (.f64 (pow.f64 (/.f64 d h) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64))) (pow.f64 (/.f64 d l) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)))) (-.f64 #s(literal 1 binary64) (.f64 (.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) (pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64))) (/.f64 h l))))`
72.6%	2	`l`
75.2%	3	`d`

Compiler

Compiled 38 to 37 computations (2.6% saved)

regimes108.0ms (1%)

Memory

-2.8MiB live, 94.5MiB allocated; 33ms collecting garbage

Counts

44 → 2

Calls

Call 1

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

Outputs

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

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

Calls

3 calls:

81.0ms	l
13.0ms	d
11.0ms	h

Results

Accuracy	Segments	Branch
68.9%	1	`h`
72.5%	2	`l`
70.6%	2	`d`

Compiler

Compiled 3 to 15 computations (-400% saved)

regimes47.0ms (0.4%)

Memory

-10.5MiB live, 38.2MiB allocated; 4ms collecting garbage

Counts

33 → 2

Calls

Call 1

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

Outputs

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

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

Calls

2 calls:

37.0ms

8.0ms

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

Results

Accuracy	Segments	Branch
73.2%	3	`(.f64 (.f64 (pow.f64 (/.f64 d h) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64))) (pow.f64 (/.f64 d l) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)))) (-.f64 #s(literal 1 binary64) (.f64 (.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) (pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64))) (/.f64 h l))))`
71.7%	2	`l`

Compiler

Compiled 36 to 27 computations (25% saved)

regimes38.0ms (0.4%)

Memory

-11.0MiB live, 81.1MiB allocated; 5ms collecting garbage

Counts

16 → 3

Calls

Call 1

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

Outputs

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

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

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

Calls

7 calls:

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

Results

Accuracy	Segments	Branch
45.3%	3	`h`
42.9%	2	`(*.f64 M D)`
40.8%	2	`D`
41.9%	2	`M`
51.8%	3	`d`
53.1%	4	`(.f64 (.f64 (pow.f64 (/.f64 d h) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64))) (pow.f64 (/.f64 d l) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)))) (-.f64 #s(literal 1 binary64) (.f64 (.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) (pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64))) (/.f64 h l))))`
48.9%	3	`l`

Compiler

Compiled 43 to 53 computations (-23.3% saved)

regimes8.0ms (0.1%)

Memory

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

Counts

11 → 4

Calls

Call 1

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

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

Calls

2 calls:

4.0ms

3.0ms

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

Results

Accuracy	Segments	Branch
53.1%	4	`(.f64 (.f64 (pow.f64 (/.f64 d h) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64))) (pow.f64 (/.f64 d l) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)))) (-.f64 #s(literal 1 binary64) (.f64 (.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) (pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64))) (/.f64 h l))))`
50.8%	3	`d`

Compiler

Compiled 36 to 27 computations (25% saved)

regimes4.0ms (0%)

Memory

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

Counts

9 → 4

Calls

Call 1

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

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

Calls

1 calls:

3.0ms

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

Results

Accuracy	Segments	Branch
53.1%	4	`(.f64 (.f64 (pow.f64 (/.f64 d h) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64))) (pow.f64 (/.f64 d l) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)))) (-.f64 #s(literal 1 binary64) (.f64 (.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) (pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64))) (/.f64 h l))))`

Compiler

Compiled 35 to 22 computations (37.1% saved)

regimes70.0ms (0.7%)

Memory

-66.0MiB live, 22.8MiB allocated; 98ms collecting garbage

Counts

8 → 3

Calls

Call 1

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

Outputs

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

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

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

Calls

4 calls:

60.0ms	d
3.0ms	h
3.0ms	l
3.0ms	(.f64 (.f64 (pow.f64 (/.f64 d h) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64))) (pow.f64 (/.f64 d l) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)))) (-.f64 #s(literal 1 binary64) (.f64 (.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) (pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64))) (/.f64 h l))))

Results

Accuracy	Segments	Branch
41.1%	2	`h`
45.2%	3	`l`
44.0%	3	`d`
46.3%	4	`(.f64 (.f64 (pow.f64 (/.f64 d h) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64))) (pow.f64 (/.f64 d l) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)))) (-.f64 #s(literal 1 binary64) (.f64 (.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) (pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64))) (/.f64 h l))))`

Compiler

Compiled 38 to 37 computations (2.6% saved)

regimes9.0ms (0.1%)

Memory

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

Counts

7 → 3

Calls

Call 1

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

Outputs

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

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

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

Calls

3 calls:

3.0ms

(*.f64 M D)

2.0ms

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

Results

Accuracy	Segments	Branch
36.4%	2	`(*.f64 M D)`
42.3%	3	`(.f64 (.f64 (pow.f64 (/.f64 d h) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64))) (pow.f64 (/.f64 d l) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)))) (-.f64 #s(literal 1 binary64) (.f64 (.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) (pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64))) (/.f64 h l))))`
44.2%	3	`l`

Compiler

Compiled 39 to 33 computations (15.4% saved)

regimes20.0ms (0.2%)

Memory

-17.2MiB live, 32.8MiB allocated; 9ms collecting garbage

Counts

6 → 3

Calls

Call 1

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

Outputs

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

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

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

Calls

6 calls:

7.0ms	h
2.0ms	d
2.0ms	(.f64 (.f64 (pow.f64 (/.f64 d h) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64))) (pow.f64 (/.f64 d l) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)))) (-.f64 #s(literal 1 binary64) (.f64 (.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) (pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64))) (/.f64 h l))))
2.0ms	D
2.0ms	l

Results

Accuracy	Segments	Branch
42.3%	3	`(.f64 (.f64 (pow.f64 (/.f64 d h) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64))) (pow.f64 (/.f64 d l) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)))) (-.f64 #s(literal 1 binary64) (.f64 (.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) (pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64))) (/.f64 h l))))`
33.3%	1	`D`
40.7%	4	`h`
36.2%	2	`M`
37.2%	2	`d`
41.6%	3	`l`

Compiler

Compiled 40 to 47 computations (-17.5% saved)

regimes5.0ms (0%)

Memory

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

Counts

5 → 2

Calls

Call 1

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

Outputs

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

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

Calls

2 calls:

2.0ms

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

Results

Accuracy	Segments	Branch
37.7%	2	`l`
36.8%	2	`(.f64 (.f64 (pow.f64 (/.f64 d h) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64))) (pow.f64 (/.f64 d l) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)))) (-.f64 #s(literal 1 binary64) (.f64 (.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) (pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64))) (/.f64 h l))))`

Compiler

Compiled 36 to 27 computations (25% saved)

regimes16.0ms (0.1%)

Memory

-17.2MiB live, 28.3MiB allocated; 4ms collecting garbage

Counts

4 → 1

Calls

Call 1

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

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

Calls

7 calls:

4.0ms	M
2.0ms	D
2.0ms	d
2.0ms	l
2.0ms	h

Results

Accuracy	Segments	Branch
23.7%	1	`D`
23.7%	1	`M`
23.7%	1	`(*.f64 M D)`
23.7%	1	`(.f64 (.f64 (pow.f64 (/.f64 d h) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64))) (pow.f64 (/.f64 d l) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)))) (-.f64 #s(literal 1 binary64) (.f64 (.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) (pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64))) (/.f64 h l))))`
23.7%	1	`d`
23.7%	1	`h`
23.7%	1	`l`

Compiler

Compiled 43 to 53 computations (-23.3% saved)

regimes12.0ms (0.1%)

Memory

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

Counts

3 → 1

Calls

Call 1

Inputs

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

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

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

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

Calls

7 calls:

2.0ms	M
2.0ms	D
2.0ms	h
2.0ms	d
2.0ms	(.f64 (.f64 (pow.f64 (/.f64 d h) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64))) (pow.f64 (/.f64 d l) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)))) (-.f64 #s(literal 1 binary64) (.f64 (.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) (pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64))) (/.f64 h l))))

Results

Accuracy	Segments	Branch
23.6%	1	`D`
23.6%	1	`(.f64 (.f64 (pow.f64 (/.f64 d h) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64))) (pow.f64 (/.f64 d l) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)))) (-.f64 #s(literal 1 binary64) (.f64 (.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) (pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64))) (/.f64 h l))))`
23.6%	1	`M`
23.6%	1	`(*.f64 M D)`
23.6%	1	`d`
23.6%	1	`h`
23.6%	1	`l`

Compiler

Compiled 43 to 53 computations (-23.3% saved)

regimes26.0ms (0.2%)

Memory

-28.6MiB live, 17.7MiB allocated; 2ms collecting garbage

Accuracy

Total -0.0b remaining (-0.1%)

Threshold costs -0b (-0.1%)

Counts

2 → 1

Calls

Call 1

Inputs

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

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

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

Calls

7 calls:

17.0ms	(.f64 (.f64 (pow.f64 (/.f64 d h) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64))) (pow.f64 (/.f64 d l) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)))) (-.f64 #s(literal 1 binary64) (.f64 (.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) (pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64))) (/.f64 h l))))
1.0ms	h
1.0ms	l
1.0ms	D
1.0ms	d

Results

Accuracy	Segments	Branch
23.6%	1	`D`
23.6%	1	`(.f64 (.f64 (pow.f64 (/.f64 d h) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64))) (pow.f64 (/.f64 d l) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)))) (-.f64 #s(literal 1 binary64) (.f64 (.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) (pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64))) (/.f64 h l))))`
23.6%	1	`(*.f64 M D)`
23.6%	1	`d`
23.6%	1	`M`
23.6%	1	`h`
23.6%	1	`l`

Compiler

Compiled 43 to 53 computations (-23.3% saved)

bsearch192.0ms (1.8%)

Memory

26.6MiB live, 256.7MiB allocated; 40ms collecting garbage

Algorithm

3×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
61.0ms	4.5299834083446525e-164	2.884766568836594e-163
46.0ms	-1.0217322222706763e-101	-4.7836035694579645e-104
53.0ms	-9.006255143050851e+234	-1.6699969468605367e+230

Samples

86.0ms	336×	0	valid
44.0ms	319×	0	invalid

Compiler

Compiled 1 954 to 1 441 computations (26.3% saved)

Precisions

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

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

ival-mult: 34.0ms (35.1% of total)

ival-pow: 15.0ms (15.5% of total)

ival-pow2: 7.0ms (7.2% of total)

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

exact: 1.0ms (1% of total)

adjust: 0.0ms (0% of total)

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

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

bsearch7.0ms (0.1%)

Memory

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

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
2.0ms	4.5299834083446525e-164	2.884766568836594e-163
3.0ms	-1.0217322222706763e-101	-4.7836035694579645e-104

Compiler

Compiled 1 370 to 985 computations (28.1% saved)

bsearch113.0ms (1.1%)

Memory

0.3MiB live, 138.6MiB allocated; 13ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
103.0ms	2.9427377760568497e-308	1.223793528432316e-298
2.0ms	-1.0217322222706763e-101	-4.7836035694579645e-104

Samples

57.0ms	144×	0	valid
29.0ms	163×	0	invalid

Compiler

Compiled 1 407 to 999 computations (29% saved)

Precisions

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

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

ival-div: 15.0ms (21.2% of total)

ival-pow: 8.0ms (11.3% of total)

ival-pow2: 4.0ms (5.6% of total)

ival-sub: 3.0ms (4.2% 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)

bsearch58.0ms (0.6%)

Memory

5.6MiB live, 103.7MiB allocated; 13ms collecting garbage

Algorithm

1×	binary-search

Stop Event

1×	narrow-enough

Steps

Time	Left	Right
52.0ms	4.954956196885047e+131	1.333168225640107e+134

Samples

23.0ms	128×	0	valid
16.0ms	111×	0	invalid

Compiler

Compiled 614 to 454 computations (26.1% saved)

Precisions

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

ival-div: 11.0ms (36.7% of total)

ival-mult: 8.0ms (26.7% of total)

ival-pow: 7.0ms (23.4% of total)

ival-pow2: 3.0ms (10% of total)

ival-sub: 1.0ms (3.3% 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)

bsearch2.0ms (0%)

Memory

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

Algorithm

1×	binary-search

Stop Event

1×	narrow-enough

Steps

Time	Left	Right
1.0ms	4.954956196885047e+131	1.333168225640107e+134

Compiler

Compiled 662 to 454 computations (31.4% saved)

bsearch176.0ms (1.7%)

Memory

-36.5MiB live, 153.6MiB allocated; 47ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
57.0ms	-5.2197361327687645e-306	2.9427377760568497e-308
100.0ms	-2.6279701651395606e-16	-4.3033102676437844e-19

Samples

86.0ms	256×	0	valid
40.0ms	284×	0	invalid

Compiler

Compiled 1 734 to 1 134 computations (34.6% saved)

Precisions

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

ival-pow2: 51.0ms (50.4% of total)

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

ival-mult: 18.0ms (17.8% of total)

ival-pow: 11.0ms (10.9% of total)

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

exact: 1.0ms (1% of total)

adjust: 0.0ms (0% of total)

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

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

bsearch1.0ms (0%)

Memory

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

Algorithm

3×	left-value

Steps

Time	Left	Right
0.0ms	+inf	NaN
0.0ms	1.3256638003765124e+172	1.7879574626098672e+189
0.0ms	0.0	8.756515912039565e-234

Compiler

Compiled 38 to 30 computations (21.1% saved)

bsearch1.0ms (0%)

Memory

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

Algorithm

3×	left-value

Steps

Time	Left	Right
0.0ms	+inf	NaN
0.0ms	1.3256638003765124e+172	1.7879574626098672e+189
0.0ms	0.0	8.756515912039565e-234

Compiler

Compiled 38 to 30 computations (21.1% saved)

bsearch109.0ms (1%)

Memory

32.8MiB live, 221.1MiB allocated; 23ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
47.0ms	2.3185372542680013e-209	4.34832203560694e-208
53.0ms	-1.0319006797555573e-220	-8.515895931823212e-224

Samples

44.0ms	240×	0	valid
38.0ms	227×	0	invalid

Compiler

Compiled 1 590 to 1 100 computations (30.8% saved)

Precisions

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

ival-mult: 23.0ms (35.6% of total)

ival-div: 16.0ms (24.8% of total)

ival-pow: 14.0ms (21.7% of total)

ival-pow2: 8.0ms (12.4% of total)

ival-sub: 2.0ms (3.1% 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)

bsearch68.0ms (0.6%)

Memory

-31.1MiB live, 112.9MiB allocated; 18ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
1.0ms	2.3185372542680013e-209	4.34832203560694e-208
58.0ms	-1.2885080570716065e-190	-3.5436619379144714e-198

Samples

25.0ms	144×	0	valid
23.0ms	128×	0	invalid

Compiler

Compiled 2 019 to 1 331 computations (34.1% saved)

Precisions

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

ival-pow: 12.0ms (31.5% of total)

ival-mult: 11.0ms (28.9% of total)

ival-div: 10.0ms (26.2% of total)

ival-pow2: 3.0ms (7.9% of total)

ival-sub: 1.0ms (2.6% 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)

bsearch1.0ms (0%)

Memory

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

Algorithm

2×	left-value

Steps

Time	Left	Right
0.0ms	+inf	NaN
0.0ms	-6.349408711149091e-150	-0.0

Compiler

Compiled 38 to 30 computations (21.1% saved)

bsearch2.0ms (0%)

Memory

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

Algorithm

1×	binary-search

Stop Event

1×	narrow-enough

Steps

Time	Left	Right
1.0ms	-1.2885080570716065e-190	-3.5436619379144714e-198

Compiler

Compiled 1 028 to 678 computations (34% saved)

simplify77.0ms (0.7%)

Memory

31.3MiB live, 77.7MiB allocated; 3ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	210	2034
1	306	2034
2	587	2034
3	2574	2034

Stop Event

1×	node limit

Calls

Call 1

Inputs
(if (<=.f64 d #s(literal -260000000000000006410128470682437819765470548169224484009977279052750177285666236944898806876935865381749721114646572394429814640593903983128745351103754263274476573052456281968853777635703847508962868078411089472629091562888695382016 binary64)) (.f64 #s(approx ( (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (.f64 d (neg.f64 (pow.f64 (.f64 l h) #s(literal -1/2 binary64))))) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (pow.f64 (.f64 #s(approx (/ M 2) (.f64 #s(literal 1/2 binary64) M)) (/.f64 D d)) #s(literal 2 binary64)) #s(literal 1/2 binary64)) h) l))) (if (<=.f64 d #s(literal -3873374817130363/80695308690215893426747474125094121072803306025913234775958104891895238188026287332176417290004307232371974124148359168 binary64)) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) h)) l)) (.f64 (sqrt.f64 (/.f64 d l)) (sqrt.f64 (/.f64 d h)))) (if (<=.f64 d #s(literal 3371481399715807/64836180763765514976756372870174392984569472378788076562432145776416450178326689787495422639798496785753091978301574830974924235553308989185732419283030682610330965678148586307584 binary64)) #s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (/ (* (* (pow (* (/ M 2) (/ D d)) 2) 1/2) h) l))) (/.f64 #s(approx (+ (* (sqrt (/ h l)) d) (* (* (sqrt (pow (/ h l) 3)) (/ (pow (* M D) 2) d)) -1/8)) (.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) d)) (pow.f64 (/.f64 h l) #s(literal 3/2 binary64)))) h)) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (pow.f64 (.f64 (/.f64 D d) (/.f64 M #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) h)) l)) (.f64 (sqrt.f64 (/.f64 d l)) (/.f64 (sqrt.f64 d) (sqrt.f64 h)))))))
(if (<=.f64 d #s(literal -3873374817130363/80695308690215893426747474125094121072803306025913234775958104891895238188026287332176417290004307232371974124148359168 binary64)) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) h)) l)) (.f64 (sqrt.f64 (/.f64 d l)) (sqrt.f64 (/.f64 d h)))) (if (<=.f64 d #s(literal 3371481399715807/64836180763765514976756372870174392984569472378788076562432145776416450178326689787495422639798496785753091978301574830974924235553308989185732419283030682610330965678148586307584 binary64)) #s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (/ (* (* (pow (* (/ M 2) (/ D d)) 2) 1/2) h) l))) (/.f64 #s(approx (+ (* (sqrt (/ h l)) d) (* (* (sqrt (pow (/ h l) 3)) (/ (pow (* M D) 2) d)) -1/8)) (.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) d)) (pow.f64 (/.f64 h l) #s(literal 3/2 binary64)))) h)) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (pow.f64 (.f64 (/.f64 D d) (/.f64 M #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) h)) l)) (.f64 (sqrt.f64 (/.f64 d l)) (/.f64 (sqrt.f64 d) (sqrt.f64 h))))))
(if (<=.f64 d #s(literal -3873374817130363/80695308690215893426747474125094121072803306025913234775958104891895238188026287332176417290004307232371974124148359168 binary64)) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) h)) l)) (.f64 (sqrt.f64 (/.f64 d l)) (sqrt.f64 (/.f64 d h)))) (if (<=.f64 d #s(literal 6072067599219319/202402253307310618352495346718917307049556649764142118356901358027430339567995346891960383701437124495187077864316811911389808737385793476867013399940738509921517424276566361364466907742093216341239767678472745068562007483424692698618103355649159556340810056512358769552333414615230502532186327508646006263307707741093494784 binary64)) #s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (.f64 (.f64 (.f64 M D) D) M) #s(literal -1 binary64)) d)) (sqrt.f64 (/.f64 h (.f64 (.f64 l l) l))))) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) h)) l)) (.f64 (sqrt.f64 (/.f64 d l)) (/.f64 (sqrt.f64 d) (sqrt.f64 h))))))
(if (<=.f64 l #s(literal 2149999999999999909359958761566682029823936847203837711622267600175184673774111090189943119376085275748965585535186309406796961284096 binary64)) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) h)) l)) (.f64 (sqrt.f64 (/.f64 d l)) (sqrt.f64 (/.f64 d h)))) #s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 (/.f64 #s(literal 1 binary64) (.f64 (sqrt.f64 l) (sqrt.f64 h))) d)))
(if (<=.f64 l #s(literal 2149999999999999909359958761566682029823936847203837711622267600175184673774111090189943119376085275748965585535186309406796961284096 binary64)) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (.f64 (/.f64 M #s(literal 2 binary64)) (/.f64 D d)) (.f64 (/.f64 M #s(literal 2 binary64)) (/.f64 D d))) (.f64 #s(literal 1/2 binary64) h)) l)) (.f64 (sqrt.f64 (/.f64 d l)) (sqrt.f64 (/.f64 d h)))) #s(approx ( (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 (/.f64 #s(literal 1 binary64) (.f64 (sqrt.f64 l) (sqrt.f64 h))) d)))
(if (<=.f64 d #s(literal -8048060130728983/649037107316853453566312041152512 binary64)) #s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 #s(approx (sqrt (pow ( l h) -1)) (neg.f64 (pow.f64 (.f64 l h) #s(literal -1/2 binary64)))) d)) (if (<=.f64 d #s(literal -101201126653655/202402253307310618352495346718917307049556649764142118356901358027430339567995346891960383701437124495187077864316811911389808737385793476867013399940738509921517424276566361364466907742093216341239767678472745068562007483424692698618103355649159556340810056512358769552333414615230502532186327508646006263307707741093494784 binary64)) #s(approx ( (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (.f64 (.f64 (.f64 M D) D) M) #s(literal -1 binary64)) d)) (sqrt.f64 (/.f64 h (.f64 (.f64 l l) l))))) #s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 (/.f64 #s(literal 1 binary64) (.f64 (sqrt.f64 l) (sqrt.f64 h))) d))))
(if (<=.f64 (.f64 (.f64 (pow.f64 (/.f64 d h) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64))) (pow.f64 (/.f64 d l) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)))) (-.f64 #s(literal 1 binary64) (.f64 (.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) (pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64))) (/.f64 h l)))) #s(literal 0 binary64)) #s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (.f64 (.f64 (.f64 M D) D) M) #s(literal -1 binary64)) d)) (sqrt.f64 (/.f64 h (.f64 (.f64 l l) l))))) (if (<=.f64 (.f64 (.f64 (pow.f64 (/.f64 d h) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64))) (pow.f64 (/.f64 d l) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)))) (-.f64 #s(literal 1 binary64) (.f64 (.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) (pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64))) (/.f64 h l)))) #s(literal 20000000000000001653743257142116047352872553930304470672653068617665342788622713458745463328244347793434385285046531376697860133668799545398951154360213100458157779359629312 binary64)) (.f64 #s(approx (- 1 (/ ( (* (pow (* (/ M 2) (/ D d)) 2) 1/2) h) l)) #s(literal 1 binary64)) (.f64 (sqrt.f64 (/.f64 d l)) (sqrt.f64 (/.f64 d h)))) (if (<=.f64 (.f64 (.f64 (pow.f64 (/.f64 d h) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64))) (pow.f64 (/.f64 d l) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)))) (-.f64 #s(literal 1 binary64) (.f64 (.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) (pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64))) (/.f64 h l)))) #s(literal +inf.0 binary64)) #s(approx ( (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (/ (* (* (pow (* (/ M 2) (/ D d)) 2) 1/2) h) l))) (/.f64 #s(approx (+ (* (sqrt (/ h l)) d) (* (* (sqrt (pow (/ h l) 3)) (/ (pow (* M D) 2) d)) -1/8)) (.f64 (sqrt.f64 (/.f64 h l)) d)) h)) #s(approx ( (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (/ (* (* (pow (* (/ M 2) (/ D d)) 2) 1/2) h) l))) (/.f64 #s(approx (+ (* (sqrt (/ h l)) d) (* (* (sqrt (pow (/ h l) 3)) (/ (pow (* M D) 2) d)) -1/8)) (*.f64 d (neg.f64 (sqrt.f64 (/.f64 h l))))) h)))))
(if (<=.f64 (.f64 (.f64 (pow.f64 (/.f64 d h) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64))) (pow.f64 (/.f64 d l) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)))) (-.f64 #s(literal 1 binary64) (.f64 (.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) (pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64))) (/.f64 h l)))) #s(literal 0 binary64)) #s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (.f64 (.f64 D M) (.f64 D M)) #s(literal -1 binary64)) d)) (sqrt.f64 (/.f64 h (.f64 (.f64 l l) l))))) (if (<=.f64 (.f64 (.f64 (pow.f64 (/.f64 d h) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64))) (pow.f64 (/.f64 d l) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)))) (-.f64 #s(literal 1 binary64) (.f64 (.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) (pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64))) (/.f64 h l)))) #s(literal 20000000000000001653743257142116047352872553930304470672653068617665342788622713458745463328244347793434385285046531376697860133668799545398951154360213100458157779359629312 binary64)) (.f64 #s(approx (- 1 (/ ( (* (pow (* (/ M 2) (/ D d)) 2) 1/2) h) l)) #s(literal 1 binary64)) (.f64 (sqrt.f64 (/.f64 d l)) (sqrt.f64 (/.f64 d h)))) (if (<=.f64 (.f64 (.f64 (pow.f64 (/.f64 d h) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64))) (pow.f64 (/.f64 d l) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)))) (-.f64 #s(literal 1 binary64) (.f64 (.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) (pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64))) (/.f64 h l)))) #s(literal +inf.0 binary64)) #s(approx ( (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (/ (* (* (pow (* (/ M 2) (/ D d)) 2) 1/2) h) l))) (/.f64 #s(approx (+ (* (sqrt (/ h l)) d) (* (* (sqrt (pow (/ h l) 3)) (/ (pow (* M D) 2) d)) -1/8)) (.f64 (sqrt.f64 (/.f64 h l)) d)) h)) #s(approx ( (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (/ (* (* (pow (* (/ M 2) (/ D d)) 2) 1/2) h) l))) (/.f64 #s(approx (+ (* (sqrt (/ h l)) d) (* (* (sqrt (pow (/ h l) 3)) (/ (pow (* M D) 2) d)) -1/8)) (*.f64 d (neg.f64 (sqrt.f64 (/.f64 h l))))) h)))))
(if (<=.f64 l #s(literal -2604693137843693/1627933211152308172382776316094057079381044512284157265721742629825204403764070329961287158415906809263410622703474912218234570716337735615323084973713581554222450580936038710562274972146438970881094974642550439936936217782587026682413056 binary64)) (.f64 #s(approx (- 1 (/ ( (* (pow (* (/ M 2) (/ D d)) 2) 1/2) h) l)) #s(literal 1 binary64)) (.f64 (sqrt.f64 (/.f64 d l)) (sqrt.f64 (/.f64 d h)))) (if (<=.f64 l #s(literal 7958206888309775/92537289398950870940028398541361245826297164983552492328825714470508751433275752444915676643171696540742381256647769999871944191701103114571826891603540250015524326325705641838924007751440909196452081155402449891024401596416 binary64)) #s(approx ( (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (/ (* (* (pow (* (/ M 2) (/ D d)) 2) 1/2) h) l))) (/.f64 #s(approx (+ (* (sqrt (/ h l)) d) (* (* (sqrt (pow (/ h l) 3)) (/ (pow (* M D) 2) d)) -1/8)) (.f64 d (neg.f64 (sqrt.f64 (/.f64 h l))))) h)) #s(approx ( (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 (/.f64 #s(literal 1 binary64) (.f64 (sqrt.f64 l) (sqrt.f64 h))) d))))
(if (<=.f64 l #s(literal -5049730465486439/10520271803096747014481979765760257331100679605646347718996561806137464308594161644227333072555176902453965937712356435426038864500367607726255629541303761699910447342256889196383327515768645434542586503471562752 binary64)) #s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (/ (* (* (pow (* (/ M 2) (/ D d)) 2) 1/2) h) l))) (/.f64 #s(approx (+ (* (sqrt (/ h l)) d) (* (* (sqrt (pow (/ h l) 3)) (/ (pow (* M D) 2) d)) -1/8)) (.f64 (sqrt.f64 (/.f64 h l)) d)) h)) (if (<=.f64 l #s(literal 7958206888309775/92537289398950870940028398541361245826297164983552492328825714470508751433275752444915676643171696540742381256647769999871944191701103114571826891603540250015524326325705641838924007751440909196452081155402449891024401596416 binary64)) #s(approx ( (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (/ (* (* (pow (* (/ M 2) (/ D d)) 2) 1/2) h) l))) (/.f64 #s(approx (+ (* (sqrt (/ h l)) d) (* (* (sqrt (pow (/ h l) 3)) (/ (pow (* M D) 2) d)) -1/8)) (.f64 d (neg.f64 (sqrt.f64 (/.f64 h l))))) h)) #s(approx ( (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 (/.f64 #s(literal 1 binary64) (.f64 (sqrt.f64 l) (sqrt.f64 h))) d))))
(if (<=.f64 (.f64 (.f64 (pow.f64 (/.f64 d h) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64))) (pow.f64 (/.f64 d l) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)))) (-.f64 #s(literal 1 binary64) (.f64 (.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) (pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64))) (/.f64 h l)))) #s(literal -4606887725612233/921377545122446619199598286374089084696513969828232526459034741270904336521520715841339532514076847544303802497745079321233052888165232576308943909041185557531590656 binary64)) #s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (/ (* (* (pow (* (/ M 2) (/ D d)) 2) 1/2) h) l))) (/.f64 #s(approx (+ (* (sqrt (/ h l)) d) (* (* (sqrt (pow (/ h l) 3)) (/ (pow (* M D) 2) d)) -1/8)) (.f64 d (neg.f64 (sqrt.f64 (/.f64 h l))))) h)) (if (<=.f64 (.f64 (.f64 (pow.f64 (/.f64 d h) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64))) (pow.f64 (/.f64 d l) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)))) (-.f64 #s(literal 1 binary64) (.f64 (.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) (pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64))) (/.f64 h l)))) #s(literal +inf.0 binary64)) #s(approx ( (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (/ (* (* (pow (* (/ M 2) (/ D d)) 2) 1/2) h) l))) (/.f64 #s(approx (+ (* (sqrt (/ h l)) d) (* (* (sqrt (pow (/ h l) 3)) (/ (pow (* M D) 2) d)) -1/8)) (.f64 (sqrt.f64 (/.f64 h l)) d)) h)) #s(approx ( (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (/ (* (* (pow (* (/ M 2) (/ D d)) 2) 1/2) h) l))) (/.f64 #s(approx (+ (* (sqrt (/ h l)) d) (* (* (sqrt (pow (/ h l) 3)) (/ (pow (* M D) 2) d)) -1/8)) (*.f64 d (neg.f64 (sqrt.f64 (/.f64 h l))))) h))))
(if (<=.f64 l #s(literal -5049730465486439/10520271803096747014481979765760257331100679605646347718996561806137464308594161644227333072555176902453965937712356435426038864500367607726255629541303761699910447342256889196383327515768645434542586503471562752 binary64)) #s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (/ (* (* (pow (* (/ M 2) (/ D d)) 2) 1/2) h) l))) (/.f64 #s(approx (+ (* (sqrt (/ h l)) d) (* (* (sqrt (pow (/ h l) 3)) (/ (pow (* M D) 2) d)) -1/8)) (.f64 (sqrt.f64 (/.f64 h l)) d)) h)) #s(approx ( (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (*.f64 (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) l) h)) d)))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (*.f64 (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) l) h)) d))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (/.f64 (.f64 #s(literal 1 binary64) d) (sqrt.f64 (.f64 l h))))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 l h))) d))

Outputs
(if (<=.f64 d #s(literal -260000000000000006410128470682437819765470548169224484009977279052750177285666236944898806876935865381749721114646572394429814640593903983128745351103754263274476573052456281968853777635703847508962868078411089472629091562888695382016 binary64)) (.f64 #s(approx ( (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (.f64 d (neg.f64 (pow.f64 (.f64 l h) #s(literal -1/2 binary64))))) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (pow.f64 (.f64 #s(approx (/ M 2) (.f64 #s(literal 1/2 binary64) M)) (/.f64 D d)) #s(literal 2 binary64)) #s(literal 1/2 binary64)) h) l))) (if (<=.f64 d #s(literal -3873374817130363/80695308690215893426747474125094121072803306025913234775958104891895238188026287332176417290004307232371974124148359168 binary64)) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) h)) l)) (.f64 (sqrt.f64 (/.f64 d l)) (sqrt.f64 (/.f64 d h)))) (if (<=.f64 d #s(literal 3371481399715807/64836180763765514976756372870174392984569472378788076562432145776416450178326689787495422639798496785753091978301574830974924235553308989185732419283030682610330965678148586307584 binary64)) #s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (/ (* (* (pow (* (/ M 2) (/ D d)) 2) 1/2) h) l))) (/.f64 #s(approx (+ (* (sqrt (/ h l)) d) (* (* (sqrt (pow (/ h l) 3)) (/ (pow (* M D) 2) d)) -1/8)) (.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) d)) (pow.f64 (/.f64 h l) #s(literal 3/2 binary64)))) h)) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (pow.f64 (.f64 (/.f64 D d) (/.f64 M #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) h)) l)) (.f64 (sqrt.f64 (/.f64 d l)) (/.f64 (sqrt.f64 d) (sqrt.f64 h)))))))
(if (<=.f64 d #s(literal -260000000000000006410128470682437819765470548169224484009977279052750177285666236944898806876935865381749721114646572394429814640593903983128745351103754263274476573052456281968853777635703847508962868078411089472629091562888695382016 binary64)) (.f64 #s(approx ( (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (.f64 (neg.f64 d) (pow.f64 (.f64 l h) #s(literal -1/2 binary64)))) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (pow.f64 (.f64 #s(approx (/ M 2) (.f64 #s(literal 1/2 binary64) M)) (/.f64 D d)) #s(literal 2 binary64)) #s(literal 1/2 binary64)) h) l))) (if (<=.f64 d #s(literal -3873374817130363/80695308690215893426747474125094121072803306025913234775958104891895238188026287332176417290004307232371974124148359168 binary64)) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) h)) l)) (.f64 (sqrt.f64 (/.f64 d l)) (sqrt.f64 (/.f64 d h)))) (if (<=.f64 d #s(literal 3371481399715807/64836180763765514976756372870174392984569472378788076562432145776416450178326689787495422639798496785753091978301574830974924235553308989185732419283030682610330965678148586307584 binary64)) #s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (/ (* (* (pow (* (/ M 2) (/ D d)) 2) 1/2) h) l))) (/.f64 #s(approx (+ (* (sqrt (/ h l)) d) (* (* (sqrt (pow (/ h l) 3)) (/ (pow (* M D) 2) d)) -1/8)) (.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) d)) (pow.f64 (/.f64 h l) #s(literal 3/2 binary64)))) h)) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (pow.f64 (.f64 (/.f64 D d) (/.f64 M #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) h)) l)) (.f64 (sqrt.f64 (/.f64 d l)) (/.f64 (sqrt.f64 d) (sqrt.f64 h)))))))
(if (<=.f64 d #s(literal -3873374817130363/80695308690215893426747474125094121072803306025913234775958104891895238188026287332176417290004307232371974124148359168 binary64)) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) h)) l)) (.f64 (sqrt.f64 (/.f64 d l)) (sqrt.f64 (/.f64 d h)))) (if (<=.f64 d #s(literal 3371481399715807/64836180763765514976756372870174392984569472378788076562432145776416450178326689787495422639798496785753091978301574830974924235553308989185732419283030682610330965678148586307584 binary64)) #s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (/ (* (* (pow (* (/ M 2) (/ D d)) 2) 1/2) h) l))) (/.f64 #s(approx (+ (* (sqrt (/ h l)) d) (* (* (sqrt (pow (/ h l) 3)) (/ (pow (* M D) 2) d)) -1/8)) (.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) d)) (pow.f64 (/.f64 h l) #s(literal 3/2 binary64)))) h)) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (pow.f64 (.f64 (/.f64 D d) (/.f64 M #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) h)) l)) (.f64 (sqrt.f64 (/.f64 d l)) (/.f64 (sqrt.f64 d) (sqrt.f64 h))))))
(if (<=.f64 d #s(literal -3873374817130363/80695308690215893426747474125094121072803306025913234775958104891895238188026287332176417290004307232371974124148359168 binary64)) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) h)) l)) (.f64 (sqrt.f64 (/.f64 d l)) (sqrt.f64 (/.f64 d h)))) (if (<=.f64 d #s(literal 6072067599219319/202402253307310618352495346718917307049556649764142118356901358027430339567995346891960383701437124495187077864316811911389808737385793476867013399940738509921517424276566361364466907742093216341239767678472745068562007483424692698618103355649159556340810056512358769552333414615230502532186327508646006263307707741093494784 binary64)) #s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (.f64 (.f64 (.f64 M D) D) M) #s(literal -1 binary64)) d)) (sqrt.f64 (/.f64 h (.f64 (.f64 l l) l))))) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) h)) l)) (.f64 (sqrt.f64 (/.f64 d l)) (/.f64 (sqrt.f64 d) (sqrt.f64 h))))))
(if (<=.f64 d #s(literal -3873374817130363/80695308690215893426747474125094121072803306025913234775958104891895238188026287332176417290004307232371974124148359168 binary64)) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) h)) l)) (.f64 (sqrt.f64 (/.f64 d l)) (sqrt.f64 (/.f64 d h)))) (if (<=.f64 d #s(literal 6072067599219319/202402253307310618352495346718917307049556649764142118356901358027430339567995346891960383701437124495187077864316811911389808737385793476867013399940738509921517424276566361364466907742093216341239767678472745068562007483424692698618103355649159556340810056512358769552333414615230502532186327508646006263307707741093494784 binary64)) #s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (/ (* (* (pow (* (/ M 2) (/ D d)) 2) 1/2) h) l))) (.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (.f64 (.f64 (.f64 M D) D) M) #s(literal -1 binary64)) d)) (sqrt.f64 (/.f64 h (.f64 (.f64 l l) l))))) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) h)) l)) (.f64 (sqrt.f64 (/.f64 d l)) (/.f64 (sqrt.f64 d) (sqrt.f64 h))))))
(if (<=.f64 l #s(literal 2149999999999999909359958761566682029823936847203837711622267600175184673774111090189943119376085275748965585535186309406796961284096 binary64)) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) h)) l)) (.f64 (sqrt.f64 (/.f64 d l)) (sqrt.f64 (/.f64 d h)))) #s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 (/.f64 #s(literal 1 binary64) (.f64 (sqrt.f64 l) (sqrt.f64 h))) d)))
(if (<=.f64 l #s(literal 2149999999999999909359958761566682029823936847203837711622267600175184673774111090189943119376085275748965585535186309406796961284096 binary64)) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) h)) l)) (.f64 (sqrt.f64 (/.f64 d l)) (sqrt.f64 (/.f64 d h)))) #s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (/ (* (* (pow (* (/ M 2) (/ D d)) 2) 1/2) h) l))) (.f64 (/.f64 #s(literal 1 binary64) (.f64 (sqrt.f64 l) (sqrt.f64 h))) d)))
(if (<=.f64 l #s(literal 2149999999999999909359958761566682029823936847203837711622267600175184673774111090189943119376085275748965585535186309406796961284096 binary64)) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (.f64 (/.f64 M #s(literal 2 binary64)) (/.f64 D d)) (.f64 (/.f64 M #s(literal 2 binary64)) (/.f64 D d))) (.f64 #s(literal 1/2 binary64) h)) l)) (.f64 (sqrt.f64 (/.f64 d l)) (sqrt.f64 (/.f64 d h)))) #s(approx ( (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 (/.f64 #s(literal 1 binary64) (.f64 (sqrt.f64 l) (sqrt.f64 h))) d)))
(if (<=.f64 l #s(literal 2149999999999999909359958761566682029823936847203837711622267600175184673774111090189943119376085275748965585535186309406796961284096 binary64)) (.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (.f64 (/.f64 M #s(literal 2 binary64)) (/.f64 D d)) (.f64 (/.f64 M #s(literal 2 binary64)) (/.f64 D d))) (.f64 #s(literal 1/2 binary64) h)) l)) (.f64 (sqrt.f64 (/.f64 d l)) (sqrt.f64 (/.f64 d h)))) #s(approx ( (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (/ (* (* (pow (* (/ M 2) (/ D d)) 2) 1/2) h) l))) (.f64 (/.f64 #s(literal 1 binary64) (.f64 (sqrt.f64 l) (sqrt.f64 h))) d)))
(if (<=.f64 d #s(literal -8048060130728983/649037107316853453566312041152512 binary64)) #s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 #s(approx (sqrt (pow ( l h) -1)) (neg.f64 (pow.f64 (.f64 l h) #s(literal -1/2 binary64)))) d)) (if (<=.f64 d #s(literal -101201126653655/202402253307310618352495346718917307049556649764142118356901358027430339567995346891960383701437124495187077864316811911389808737385793476867013399940738509921517424276566361364466907742093216341239767678472745068562007483424692698618103355649159556340810056512358769552333414615230502532186327508646006263307707741093494784 binary64)) #s(approx ( (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (.f64 (.f64 (.f64 M D) D) M) #s(literal -1 binary64)) d)) (sqrt.f64 (/.f64 h (.f64 (.f64 l l) l))))) #s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 (/.f64 #s(literal 1 binary64) (.f64 (sqrt.f64 l) (sqrt.f64 h))) d))))
(if (<=.f64 d #s(literal -8048060130728983/649037107316853453566312041152512 binary64)) #s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (/ (* (* (pow (* (/ M 2) (/ D d)) 2) 1/2) h) l))) (.f64 #s(approx (sqrt (pow ( l h) -1)) (neg.f64 (pow.f64 (.f64 l h) #s(literal -1/2 binary64)))) d)) (if (<=.f64 d #s(literal -101201126653655/202402253307310618352495346718917307049556649764142118356901358027430339567995346891960383701437124495187077864316811911389808737385793476867013399940738509921517424276566361364466907742093216341239767678472745068562007483424692698618103355649159556340810056512358769552333414615230502532186327508646006263307707741093494784 binary64)) #s(approx ( (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (/ (* (* (pow (* (/ M 2) (/ D d)) 2) 1/2) h) l))) (.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (.f64 (.f64 (.f64 M D) D) M) #s(literal -1 binary64)) d)) (sqrt.f64 (/.f64 h (.f64 (.f64 l l) l))))) #s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (/ (* (* (pow (* (/ M 2) (/ D d)) 2) 1/2) h) l))) (.f64 (/.f64 #s(literal 1 binary64) (.f64 (sqrt.f64 l) (sqrt.f64 h))) d))))
(if (<=.f64 (.f64 (.f64 (pow.f64 (/.f64 d h) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64))) (pow.f64 (/.f64 d l) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)))) (-.f64 #s(literal 1 binary64) (.f64 (.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) (pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64))) (/.f64 h l)))) #s(literal 0 binary64)) #s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (.f64 (.f64 (.f64 M D) D) M) #s(literal -1 binary64)) d)) (sqrt.f64 (/.f64 h (.f64 (.f64 l l) l))))) (if (<=.f64 (.f64 (.f64 (pow.f64 (/.f64 d h) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64))) (pow.f64 (/.f64 d l) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)))) (-.f64 #s(literal 1 binary64) (.f64 (.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) (pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64))) (/.f64 h l)))) #s(literal 20000000000000001653743257142116047352872553930304470672653068617665342788622713458745463328244347793434385285046531376697860133668799545398951154360213100458157779359629312 binary64)) (.f64 #s(approx (- 1 (/ ( (* (pow (* (/ M 2) (/ D d)) 2) 1/2) h) l)) #s(literal 1 binary64)) (.f64 (sqrt.f64 (/.f64 d l)) (sqrt.f64 (/.f64 d h)))) (if (<=.f64 (.f64 (.f64 (pow.f64 (/.f64 d h) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64))) (pow.f64 (/.f64 d l) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)))) (-.f64 #s(literal 1 binary64) (.f64 (.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) (pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64))) (/.f64 h l)))) #s(literal +inf.0 binary64)) #s(approx ( (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (/ (* (* (pow (* (/ M 2) (/ D d)) 2) 1/2) h) l))) (/.f64 #s(approx (+ (* (sqrt (/ h l)) d) (* (* (sqrt (pow (/ h l) 3)) (/ (pow (* M D) 2) d)) -1/8)) (.f64 (sqrt.f64 (/.f64 h l)) d)) h)) #s(approx ( (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (/ (* (* (pow (* (/ M 2) (/ D d)) 2) 1/2) h) l))) (/.f64 #s(approx (+ (* (sqrt (/ h l)) d) (* (* (sqrt (pow (/ h l) 3)) (/ (pow (* M D) 2) d)) -1/8)) (*.f64 d (neg.f64 (sqrt.f64 (/.f64 h l))))) h)))))
(if (<=.f64 (.f64 (.f64 (pow.f64 (/.f64 d h) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64))) (pow.f64 (/.f64 d l) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)))) (-.f64 #s(literal 1 binary64) (.f64 (.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) (pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64))) (/.f64 h l)))) #s(literal 0 binary64)) #s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (/ (* (* (pow (* (/ M 2) (/ D d)) 2) 1/2) h) l))) (.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (.f64 (.f64 (.f64 M D) D) M) #s(literal -1 binary64)) d)) (sqrt.f64 (/.f64 h (.f64 (.f64 l l) l))))) (if (<=.f64 (.f64 (.f64 (pow.f64 (/.f64 d h) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64))) (pow.f64 (/.f64 d l) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)))) (-.f64 #s(literal 1 binary64) (.f64 (.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) (pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64))) (/.f64 h l)))) #s(literal 20000000000000001653743257142116047352872553930304470672653068617665342788622713458745463328244347793434385285046531376697860133668799545398951154360213100458157779359629312 binary64)) (.f64 #s(approx (- 1 (/ ( (* (pow (* (/ M 2) (/ D d)) 2) 1/2) h) l)) #s(literal 1 binary64)) (.f64 (sqrt.f64 (/.f64 d l)) (sqrt.f64 (/.f64 d h)))) (if (<=.f64 (.f64 (.f64 (pow.f64 (/.f64 d h) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64))) (pow.f64 (/.f64 d l) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)))) (-.f64 #s(literal 1 binary64) (.f64 (.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) (pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64))) (/.f64 h l)))) #s(literal +inf.0 binary64)) #s(approx ( (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (/ (* (* (pow (* (/ M 2) (/ D d)) 2) 1/2) h) l))) (/.f64 #s(approx (+ (* (sqrt (/ h l)) d) (* (* (sqrt (pow (/ h l) 3)) (/ (pow (* M D) 2) d)) -1/8)) (.f64 (sqrt.f64 (/.f64 h l)) d)) h)) #s(approx ( (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (/ (* (* (pow (* (/ M 2) (/ D d)) 2) 1/2) h) l))) (/.f64 #s(approx (+ (* (sqrt (/ h l)) d) (* (* (sqrt (pow (/ h l) 3)) (/ (pow (* M D) 2) d)) -1/8)) (*.f64 (neg.f64 d) (sqrt.f64 (/.f64 h l)))) h)))))
(if (<=.f64 (.f64 (.f64 (pow.f64 (/.f64 d h) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64))) (pow.f64 (/.f64 d l) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)))) (-.f64 #s(literal 1 binary64) (.f64 (.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) (pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64))) (/.f64 h l)))) #s(literal 0 binary64)) #s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (.f64 (.f64 D M) (.f64 D M)) #s(literal -1 binary64)) d)) (sqrt.f64 (/.f64 h (.f64 (.f64 l l) l))))) (if (<=.f64 (.f64 (.f64 (pow.f64 (/.f64 d h) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64))) (pow.f64 (/.f64 d l) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)))) (-.f64 #s(literal 1 binary64) (.f64 (.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) (pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64))) (/.f64 h l)))) #s(literal 20000000000000001653743257142116047352872553930304470672653068617665342788622713458745463328244347793434385285046531376697860133668799545398951154360213100458157779359629312 binary64)) (.f64 #s(approx (- 1 (/ ( (* (pow (* (/ M 2) (/ D d)) 2) 1/2) h) l)) #s(literal 1 binary64)) (.f64 (sqrt.f64 (/.f64 d l)) (sqrt.f64 (/.f64 d h)))) (if (<=.f64 (.f64 (.f64 (pow.f64 (/.f64 d h) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64))) (pow.f64 (/.f64 d l) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)))) (-.f64 #s(literal 1 binary64) (.f64 (.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) (pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64))) (/.f64 h l)))) #s(literal +inf.0 binary64)) #s(approx ( (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (/ (* (* (pow (* (/ M 2) (/ D d)) 2) 1/2) h) l))) (/.f64 #s(approx (+ (* (sqrt (/ h l)) d) (* (* (sqrt (pow (/ h l) 3)) (/ (pow (* M D) 2) d)) -1/8)) (.f64 (sqrt.f64 (/.f64 h l)) d)) h)) #s(approx ( (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (/ (* (* (pow (* (/ M 2) (/ D d)) 2) 1/2) h) l))) (/.f64 #s(approx (+ (* (sqrt (/ h l)) d) (* (* (sqrt (pow (/ h l) 3)) (/ (pow (* M D) 2) d)) -1/8)) (*.f64 d (neg.f64 (sqrt.f64 (/.f64 h l))))) h)))))
(if (<=.f64 (.f64 (.f64 (pow.f64 (/.f64 d h) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64))) (pow.f64 (/.f64 d l) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)))) (-.f64 #s(literal 1 binary64) (.f64 (.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) (pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64))) (/.f64 h l)))) #s(literal 0 binary64)) #s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (/ (* (* (pow (* (/ M 2) (/ D d)) 2) 1/2) h) l))) (.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (.f64 (.f64 D M) (.f64 D M)) #s(literal -1 binary64)) d)) (sqrt.f64 (/.f64 h (.f64 (.f64 l l) l))))) (if (<=.f64 (.f64 (.f64 (pow.f64 (/.f64 d h) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64))) (pow.f64 (/.f64 d l) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)))) (-.f64 #s(literal 1 binary64) (.f64 (.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) (pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64))) (/.f64 h l)))) #s(literal 20000000000000001653743257142116047352872553930304470672653068617665342788622713458745463328244347793434385285046531376697860133668799545398951154360213100458157779359629312 binary64)) (.f64 #s(approx (- 1 (/ ( (* (pow (* (/ M 2) (/ D d)) 2) 1/2) h) l)) #s(literal 1 binary64)) (.f64 (sqrt.f64 (/.f64 d l)) (sqrt.f64 (/.f64 d h)))) (if (<=.f64 (.f64 (.f64 (pow.f64 (/.f64 d h) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64))) (pow.f64 (/.f64 d l) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)))) (-.f64 #s(literal 1 binary64) (.f64 (.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) (pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64))) (/.f64 h l)))) #s(literal +inf.0 binary64)) #s(approx ( (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (/ (* (* (pow (* (/ M 2) (/ D d)) 2) 1/2) h) l))) (/.f64 #s(approx (+ (* (sqrt (/ h l)) d) (* (* (sqrt (pow (/ h l) 3)) (/ (pow (* M D) 2) d)) -1/8)) (.f64 (sqrt.f64 (/.f64 h l)) d)) h)) #s(approx ( (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (/ (* (* (pow (* (/ M 2) (/ D d)) 2) 1/2) h) l))) (/.f64 #s(approx (+ (* (sqrt (/ h l)) d) (* (* (sqrt (pow (/ h l) 3)) (/ (pow (* M D) 2) d)) -1/8)) (*.f64 (neg.f64 d) (sqrt.f64 (/.f64 h l)))) h)))))
(if (<=.f64 l #s(literal -2604693137843693/1627933211152308172382776316094057079381044512284157265721742629825204403764070329961287158415906809263410622703474912218234570716337735615323084973713581554222450580936038710562274972146438970881094974642550439936936217782587026682413056 binary64)) (.f64 #s(approx (- 1 (/ ( (* (pow (* (/ M 2) (/ D d)) 2) 1/2) h) l)) #s(literal 1 binary64)) (.f64 (sqrt.f64 (/.f64 d l)) (sqrt.f64 (/.f64 d h)))) (if (<=.f64 l #s(literal 7958206888309775/92537289398950870940028398541361245826297164983552492328825714470508751433275752444915676643171696540742381256647769999871944191701103114571826891603540250015524326325705641838924007751440909196452081155402449891024401596416 binary64)) #s(approx ( (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (/ (* (* (pow (* (/ M 2) (/ D d)) 2) 1/2) h) l))) (/.f64 #s(approx (+ (* (sqrt (/ h l)) d) (* (* (sqrt (pow (/ h l) 3)) (/ (pow (* M D) 2) d)) -1/8)) (.f64 d (neg.f64 (sqrt.f64 (/.f64 h l))))) h)) #s(approx ( (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 (/.f64 #s(literal 1 binary64) (.f64 (sqrt.f64 l) (sqrt.f64 h))) d))))
(if (<=.f64 l #s(literal -2604693137843693/1627933211152308172382776316094057079381044512284157265721742629825204403764070329961287158415906809263410622703474912218234570716337735615323084973713581554222450580936038710562274972146438970881094974642550439936936217782587026682413056 binary64)) (.f64 #s(approx (- 1 (/ ( (* (pow (* (/ M 2) (/ D d)) 2) 1/2) h) l)) #s(literal 1 binary64)) (.f64 (sqrt.f64 (/.f64 d l)) (sqrt.f64 (/.f64 d h)))) (if (<=.f64 l #s(literal 7958206888309775/92537289398950870940028398541361245826297164983552492328825714470508751433275752444915676643171696540742381256647769999871944191701103114571826891603540250015524326325705641838924007751440909196452081155402449891024401596416 binary64)) #s(approx ( (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (/ (* (* (pow (* (/ M 2) (/ D d)) 2) 1/2) h) l))) (/.f64 #s(approx (+ (* (sqrt (/ h l)) d) (* (* (sqrt (pow (/ h l) 3)) (/ (pow (* M D) 2) d)) -1/8)) (.f64 (neg.f64 d) (sqrt.f64 (/.f64 h l)))) h)) #s(approx ( (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (/ (* (* (pow (* (/ M 2) (/ D d)) 2) 1/2) h) l))) (.f64 (/.f64 #s(literal 1 binary64) (.f64 (sqrt.f64 l) (sqrt.f64 h))) d))))
(if (<=.f64 l #s(literal -5049730465486439/10520271803096747014481979765760257331100679605646347718996561806137464308594161644227333072555176902453965937712356435426038864500367607726255629541303761699910447342256889196383327515768645434542586503471562752 binary64)) #s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (/ (* (* (pow (* (/ M 2) (/ D d)) 2) 1/2) h) l))) (/.f64 #s(approx (+ (* (sqrt (/ h l)) d) (* (* (sqrt (pow (/ h l) 3)) (/ (pow (* M D) 2) d)) -1/8)) (.f64 (sqrt.f64 (/.f64 h l)) d)) h)) (if (<=.f64 l #s(literal 7958206888309775/92537289398950870940028398541361245826297164983552492328825714470508751433275752444915676643171696540742381256647769999871944191701103114571826891603540250015524326325705641838924007751440909196452081155402449891024401596416 binary64)) #s(approx ( (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (/ (* (* (pow (* (/ M 2) (/ D d)) 2) 1/2) h) l))) (/.f64 #s(approx (+ (* (sqrt (/ h l)) d) (* (* (sqrt (pow (/ h l) 3)) (/ (pow (* M D) 2) d)) -1/8)) (.f64 d (neg.f64 (sqrt.f64 (/.f64 h l))))) h)) #s(approx ( (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 (/.f64 #s(literal 1 binary64) (.f64 (sqrt.f64 l) (sqrt.f64 h))) d))))
(if (<=.f64 l #s(literal -5049730465486439/10520271803096747014481979765760257331100679605646347718996561806137464308594161644227333072555176902453965937712356435426038864500367607726255629541303761699910447342256889196383327515768645434542586503471562752 binary64)) #s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (/ (* (* (pow (* (/ M 2) (/ D d)) 2) 1/2) h) l))) (/.f64 #s(approx (+ (* (sqrt (/ h l)) d) (* (* (sqrt (pow (/ h l) 3)) (/ (pow (* M D) 2) d)) -1/8)) (.f64 (sqrt.f64 (/.f64 h l)) d)) h)) (if (<=.f64 l #s(literal 7958206888309775/92537289398950870940028398541361245826297164983552492328825714470508751433275752444915676643171696540742381256647769999871944191701103114571826891603540250015524326325705641838924007751440909196452081155402449891024401596416 binary64)) #s(approx ( (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (/ (* (* (pow (* (/ M 2) (/ D d)) 2) 1/2) h) l))) (/.f64 #s(approx (+ (* (sqrt (/ h l)) d) (* (* (sqrt (pow (/ h l) 3)) (/ (pow (* M D) 2) d)) -1/8)) (.f64 (neg.f64 d) (sqrt.f64 (/.f64 h l)))) h)) #s(approx ( (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (/ (* (* (pow (* (/ M 2) (/ D d)) 2) 1/2) h) l))) (.f64 (/.f64 #s(literal 1 binary64) (.f64 (sqrt.f64 l) (sqrt.f64 h))) d))))
(if (<=.f64 (.f64 (.f64 (pow.f64 (/.f64 d h) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64))) (pow.f64 (/.f64 d l) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)))) (-.f64 #s(literal 1 binary64) (.f64 (.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) (pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64))) (/.f64 h l)))) #s(literal -4606887725612233/921377545122446619199598286374089084696513969828232526459034741270904336521520715841339532514076847544303802497745079321233052888165232576308943909041185557531590656 binary64)) #s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (/ (* (* (pow (* (/ M 2) (/ D d)) 2) 1/2) h) l))) (/.f64 #s(approx (+ (* (sqrt (/ h l)) d) (* (* (sqrt (pow (/ h l) 3)) (/ (pow (* M D) 2) d)) -1/8)) (.f64 d (neg.f64 (sqrt.f64 (/.f64 h l))))) h)) (if (<=.f64 (.f64 (.f64 (pow.f64 (/.f64 d h) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64))) (pow.f64 (/.f64 d l) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)))) (-.f64 #s(literal 1 binary64) (.f64 (.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) (pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64))) (/.f64 h l)))) #s(literal +inf.0 binary64)) #s(approx ( (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (/ (* (* (pow (* (/ M 2) (/ D d)) 2) 1/2) h) l))) (/.f64 #s(approx (+ (* (sqrt (/ h l)) d) (* (* (sqrt (pow (/ h l) 3)) (/ (pow (* M D) 2) d)) -1/8)) (.f64 (sqrt.f64 (/.f64 h l)) d)) h)) #s(approx ( (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (/ (* (* (pow (* (/ M 2) (/ D d)) 2) 1/2) h) l))) (/.f64 #s(approx (+ (* (sqrt (/ h l)) d) (* (* (sqrt (pow (/ h l) 3)) (/ (pow (* M D) 2) d)) -1/8)) (*.f64 d (neg.f64 (sqrt.f64 (/.f64 h l))))) h))))
(if (or (<=.f64 (.f64 (.f64 (pow.f64 (/.f64 d h) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64))) (pow.f64 (/.f64 d l) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)))) (-.f64 #s(literal 1 binary64) (.f64 (.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) (pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64))) (/.f64 h l)))) #s(literal -4606887725612233/921377545122446619199598286374089084696513969828232526459034741270904336521520715841339532514076847544303802497745079321233052888165232576308943909041185557531590656 binary64)) (not (<=.f64 (.f64 (.f64 (pow.f64 (/.f64 d h) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64))) (pow.f64 (/.f64 d l) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)))) (-.f64 #s(literal 1 binary64) (.f64 (.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) (pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64))) (/.f64 h l)))) #s(literal +inf.0 binary64)))) #s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (/ (* (* (pow (* (/ M 2) (/ D d)) 2) 1/2) h) l))) (/.f64 #s(approx (+ (* (sqrt (/ h l)) d) (* (* (sqrt (pow (/ h l) 3)) (/ (pow (* M D) 2) d)) -1/8)) (.f64 (neg.f64 d) (sqrt.f64 (/.f64 h l)))) h)) #s(approx ( (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (/ (* (* (pow (* (/ M 2) (/ D d)) 2) 1/2) h) l))) (/.f64 #s(approx (+ (* (sqrt (/ h l)) d) (* (* (sqrt (pow (/ h l) 3)) (/ (pow (* M D) 2) d)) -1/8)) (*.f64 (sqrt.f64 (/.f64 h l)) d)) h)))
(if (<=.f64 l #s(literal -5049730465486439/10520271803096747014481979765760257331100679605646347718996561806137464308594161644227333072555176902453965937712356435426038864500367607726255629541303761699910447342256889196383327515768645434542586503471562752 binary64)) #s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (/ (* (* (pow (* (/ M 2) (/ D d)) 2) 1/2) h) l))) (/.f64 #s(approx (+ (* (sqrt (/ h l)) d) (* (* (sqrt (pow (/ h l) 3)) (/ (pow (* M D) 2) d)) -1/8)) (.f64 (sqrt.f64 (/.f64 h l)) d)) h)) #s(approx ( (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (*.f64 (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) l) h)) d)))
(if (<=.f64 l #s(literal -5049730465486439/10520271803096747014481979765760257331100679605646347718996561806137464308594161644227333072555176902453965937712356435426038864500367607726255629541303761699910447342256889196383327515768645434542586503471562752 binary64)) #s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (/ (* (* (pow (* (/ M 2) (/ D d)) 2) 1/2) h) l))) (/.f64 #s(approx (+ (* (sqrt (/ h l)) d) (* (* (sqrt (pow (/ h l) 3)) (/ (pow (* M D) 2) d)) -1/8)) (.f64 (sqrt.f64 (/.f64 h l)) d)) h)) #s(approx ( (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (/ (* (* (pow (* (/ M 2) (/ D d)) 2) 1/2) h) l))) (*.f64 (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) l) h)) d)))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (*.f64 (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) l) h)) d))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (/ (* (* (pow (* (/ M 2) (/ D d)) 2) 1/2) h) l))) (*.f64 (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) l) h)) d))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (/.f64 (.f64 #s(literal 1 binary64) d) (sqrt.f64 (.f64 l h))))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (/ (* (* (pow (* (/ M 2) (/ D d)) 2) 1/2) h) l))) (/.f64 d (sqrt.f64 (*.f64 l h))))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 l h))) d))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (/ (* (* (pow (* (/ M 2) (/ D d)) 2) 1/2) h) l))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 l h))) d))

derivations90.0ms (0.9%)

Memory

10.1MiB live, 102.6MiB allocated; 4ms collecting garbage

Stop Event

1×

fuel

Compiler

Compiled 2 196 to 209 computations (90.5% saved)

preprocess148.0ms (1.4%)

Memory

1.6MiB live, 286.0MiB allocated; 45ms collecting garbage

Remove

(abs D)

(sort M D)

(abs M)

Compiler

Compiled 10 478 to 3 694 computations (64.7% saved)

end0.0ms (0%)

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

start0.0ms (0%)

analyze629.0ms (6%)

sample5.9s (56.7%)

explain387.0ms (3.7%)

preprocess149.0ms (1.4%)

eval0.0ms (0%)

prune1.0ms (0%)

series108.0ms (1%)

rewrite62.0ms (0.6%)

eval25.0ms (0.2%)

prune28.0ms (0.3%)

series259.0ms (2.5%)

rewrite104.0ms (1%)

eval56.0ms (0.5%)

prune68.0ms (0.7%)

series162.0ms (1.5%)

rewrite85.0ms (0.8%)

eval47.0ms (0.5%)

prune57.0ms (0.5%)

series169.0ms (1.6%)

rewrite102.0ms (1%)

eval52.0ms (0.5%)

prune87.0ms (0.8%)

regimes314.0ms (3%)

regimes37.0ms (0.4%)

regimes138.0ms (1.3%)

regimes108.0ms (1%)

regimes47.0ms (0.4%)

regimes38.0ms (0.4%)

regimes8.0ms (0.1%)

regimes4.0ms (0%)

regimes70.0ms (0.7%)

regimes9.0ms (0.1%)

regimes20.0ms (0.2%)

regimes5.0ms (0%)

regimes16.0ms (0.1%)

regimes12.0ms (0.1%)

regimes26.0ms (0.2%)

bsearch192.0ms (1.8%)

bsearch7.0ms (0.1%)

bsearch113.0ms (1.1%)

bsearch58.0ms (0.6%)

bsearch2.0ms (0%)

bsearch176.0ms (1.7%)

bsearch1.0ms (0%)

bsearch1.0ms (0%)

bsearch109.0ms (1%)

bsearch68.0ms (0.6%)

bsearch1.0ms (0%)

bsearch2.0ms (0%)

simplify77.0ms (0.7%)

derivations90.0ms (0.9%)

preprocess148.0ms (1.4%)

end0.0ms (0%)

Profiling