Metrics for Henrywood and Agarwal, Equation (12)

start0.0ms (0%)

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

analyze495.0ms (4.4%)

Memory

-19.6MiB live, 647.2MiB allocated; 162ms 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.6s (49.8%)

Memory

95.5MiB live, 6 866.7MiB allocated; 2.6s collecting garbage

Samples

2.8s	13 139×	0	invalid
1.5s	8 256×	0	valid

Precisions

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

ival-div: 1.5s (44.9% of total)

ival-mult: 849.0ms (25.1% of total)

ival-pow: 611.0ms (18.1% of total)

ival-pow2: 248.0ms (7.3% of total)

ival-sub: 111.0ms (3.3% of total)

exact: 25.0ms (0.7% of total)

adjust: 7.0ms (0.2% of total)

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

Bogosity

explain321.0ms (2.9%)

Memory

-121.4MiB live, 552.5MiB allocated; 67ms 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

96.0ms

512×

valid

Compiler

Compiled 347 to 70 computations (79.8% saved)

Precisions

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

ival-pow: 20.0ms (31.3% of total)

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

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

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

ival-sub: 2.0ms (3.1% of total)

exact: 1.0ms (1.6% of total)

adjust: 0.0ms (0% of total)

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

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

preprocess156.0ms (1.4%)

Memory

-3.3MiB live, 183.6MiB allocated; 15ms 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	25

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 (*.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 h l)) (ratio-of-squares.f64 (*.f64 (/.f64 D #s(literal -2 binary64)) M) d)) #s(literal -1 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.0MiB live, 1.0MiB 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)

series114.0ms (1%)

Memory

17.7MiB live, 120.3MiB allocated; 14ms 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
30.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))
14.0ms	M	@	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))
11.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))
7.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))

rewrite63.0ms (0.6%)

Memory

-22.5MiB live, 69.1MiB allocated; 6ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

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

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 (ratio-of-squares.f64 D d) (/.f64 (.f64 (.f64 M M) h) 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 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)) (.f64 #s(literal 1/8 binary64) (.f64 (ratio-of-squares.f64 D d) (/.f64 (.f64 (.f64 M M) h) l))))
#s(approx (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (.f64 (.f64 (*.f64 D D) (ratio-of-squares.f64 M d)) #s(literal 1/8 binary64)))
#s(approx (pow (/ (* M D) (* 2 d)) 2) (.f64 #s(literal 1/4 binary64) (.f64 (*.f64 D D) (ratio-of-squares.f64 M 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 (.f64 D D) (ratio-of-squares.f64 M 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 #s(literal 1/8 binary64) (.f64 (ratio-of-squares.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 (.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 (ratio-of-squares.f64 D d) (/.f64 (.f64 M M) 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 #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 (ratio-of-squares.f64 D d) (/.f64 (.f64 M M) 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 (/.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 (ratio-of-squares.f64 D d) (/.f64 h l)) #s(literal 1/8 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 (ratio-of-squares.f64 M d) (/.f64 h l)) #s(literal 1/8 binary64))) (.f64 D D)))

eval45.0ms (0.4%)

Memory

23.1MiB live, 71.4MiB allocated; 9ms collecting garbage

Samples

20.0ms

512×

valid

Compiler

Compiled 4 846 to 497 computations (89.7% saved)

Precisions

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

ival-mult: 7.0ms (66.5% of total)

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

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

adjust: 0.0ms (0% of total)

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

prune180.0ms (1.6%)

Memory

0.1MiB live, 278.6MiB allocated; 25ms 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

92.9%

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.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 #s(approx ( (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (.f64 (.f64 (*.f64 D D) (ratio-of-squares.f64 M d)) #s(literal 1/8 binary64))) (/.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)))
	57.5%	(.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 (ratio-of-squares.f64 D d) (/.f64 (.f64 M M) l)) #s(literal 1/8 binary64))) h)))
▶	51.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 D #s(literal -2 binary64)) (.f64 (.f64 (ratio-of-squares.f64 M d) (/.f64 h l)) #s(literal 1/8 binary64))) (.f64 D D))))
	27.5%	(.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 (ratio-of-squares.f64 D d) (/.f64 (.f64 (.f64 M M) h) l)) #s(literal -1/8 binary64))))
	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)))
	23.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 (+.f64 (.f64 (.f64 (.f64 (.f64 D D) (ratio-of-squares.f64 M 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))
	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))

Samples

112.0ms

2 560×

valid

Compiler

Compiled 2 354 to 1 572 computations (33.2% saved)

Precisions

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

ival-mult: 38.0ms (62% of total)

ival-div: 20.0ms (32.6% of total)

ival-true: 2.0ms (3.3% of total)

adjust: 1.0ms (1.6% of total)

ival-assert: 1.0ms (1.6% of total)

series158.0ms (1.4%)

Memory

15.1MiB live, 247.8MiB allocated; 23ms collecting garbage

Counts

63 → 141

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)
(.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))))
(pow.f64 (*.f64 (/.f64 d h) (/.f64 d l)) #s(literal 1/2 binary64))
(*.f64 (/.f64 d h) (/.f64 d 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)
(*.f64 #s(literal 2 binary64) 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)))) #s(approx (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (.f64 (-.f64 (pow.f64 D #s(literal -2 binary64)) (.f64 (.f64 (ratio-of-squares.f64 M d) (/.f64 h l)) #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 (ratio-of-squares.f64 M d) (/.f64 h l)) #s(literal 1/8 binary64))) (.f64 D D)))
(.f64 (-.f64 (pow.f64 D #s(literal -2 binary64)) (.f64 (.f64 (ratio-of-squares.f64 M d) (/.f64 h l)) #s(literal 1/8 binary64))) (.f64 D D))
(-.f64 (pow.f64 D #s(literal -2 binary64)) (.f64 (.f64 (ratio-of-squares.f64 M d) (/.f64 h l)) #s(literal 1/8 binary64)))
(pow.f64 D #s(literal -2 binary64))
#s(literal -2 binary64)
(.f64 (.f64 (ratio-of-squares.f64 M d) (/.f64 h l)) #s(literal 1/8 binary64))
(*.f64 (ratio-of-squares.f64 M d) (/.f64 h l))
(ratio-of-squares.f64 M d)
#s(literal 1/8 binary64)
(*.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 (* (pow (* (/ d h) (/ 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) (/ 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) (/ d l)) 1/2) #s(hole binary64 (* d (sqrt (/ 1 (* h l))))))
#s(approx (* (/ d h) (/ d l)) #s(hole binary64 (/ (pow d 2) (* h 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 -2) (* (* (/ (* M M) (* d d)) (/ h l)) 1/8)) (* D D)) #s(hole binary64 (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l)))))
#s(approx (* (- (pow D -2) (* (* (/ (* M M) (* d d)) (/ h l)) 1/8)) (* 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) (* (* (/ (* M M) (* d d)) (/ h l)) 1/8)) #s(hole binary64 (* -1/8 (/ (* (pow M 2) h) (* (pow d 2) l)))))
#s(approx (- (pow D -2) (* (* (/ (* M M) (* d d)) (/ h l)) 1/8)) #s(hole binary64 (/ (- (/ (pow d 2) (pow D 2)) (* 1/8 (/ (* (pow M 2) h) l))) (pow d 2))))
#s(approx (* (* (/ (* M M) (* d d)) (/ h l)) 1/8) #s(hole binary64 (* 1/8 (/ (* (pow M 2) h) (* (pow d 2) l)))))
#s(approx (* (/ (* M M) (* d d)) (/ h l)) #s(hole binary64 (/ (* (pow M 2) h) (* (pow d 2) l))))
#s(approx (/ (* M M) (* d d)) #s(hole binary64 (/ (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 (* 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 (* (pow (* (/ d h) (/ 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) (/ 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 -2) (* (* (/ (* M M) (* d d)) (/ h l)) 1/8)) (* D D)) #s(hole binary64 1))
#s(approx (* (- (pow D -2) (* (* (/ (* M M) (* d d)) (/ h l)) 1/8)) (* D D)) #s(hole binary64 (+ 1 (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))))))
#s(approx (- (pow D -2) (* (* (/ (* M M) (* d d)) (/ h l)) 1/8)) #s(hole binary64 (/ 1 (pow D 2))))
#s(approx (- (pow D -2) (* (* (/ (* M M) (* d d)) (/ h l)) 1/8)) #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 (* (pow (* (/ d h) (/ d l)) 1/2) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) #s(hole binary64 (* -1 (* d (sqrt (/ 1 (* h l)))))))
#s(approx (* (pow (* (/ d h) (/ d l)) 1/2) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) #s(hole binary64 (* -1 (* 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) (/ d l)) 1/2) #s(hole binary64 (* -1 (* 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 (/ (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 (* (pow (* (/ d h) (/ 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 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 (* 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 (* (pow (* (/ d h) (/ 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 -2) (* (* (/ (* M M) (* d d)) (/ h l)) 1/8)) (* 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) (* (* (/ (* M M) (* d d)) (/ h l)) 1/8)) #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 (* (pow (* (/ d h) (/ 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) (/ 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) (/ d l)) 1/2) #s(hole binary64 (* (* d (pow (sqrt -1) 2)) (sqrt (/ 1 (* h l))))))
#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) (* (* (/ (* M M) (* d d)) (/ h l)) 1/8)) (* 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) (* (* (/ (* M M) (* d d)) (/ h l)) 1/8)) #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 (* (pow (* (/ d h) (/ 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 (- 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) (* (* (/ (* M M) (* d d)) (/ h l)) 1/8)) (* D D)) #s(hole binary64 (/ (+ l (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l)))
#s(approx (- (pow D -2) (* (* (/ (* M M) (* d d)) (/ h l)) 1/8)) #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 (* (pow (* (/ d h) (/ 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 (* (* 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 (* (pow (* (/ d h) (/ 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) (/ 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 (/ 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 D) #s(hole binary64 (* D M)))
#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 (* (pow (* (/ d h) (/ 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 (* (- (pow D -2) (* (* (/ (* M M) (* d d)) (/ h l)) 1/8)) (* 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) (* (* (/ (* M M) (* d d)) (/ h l)) 1/8)) #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) (* (* (/ (* M M) (* d d)) (/ h l)) 1/8)) #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 (* (* (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 (* (pow (* (/ d h) (/ 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)))))))
#s(approx (* (- (pow D -2) (* (* (/ (* M M) (* d d)) (/ h l)) 1/8)) (* 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) (* (* (/ (* M M) (* d d)) (/ h l)) 1/8)) #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	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) (/ d l)) 1/2) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (pow (* (/ d h) (/ d l)) 1/2) (* (/ d h) (/ d 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) (* 2 d) (/ h l) (* (* (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) (* (* (/ (* M M) (* d d)) (/ h l)) 1/8)) (* D D)) (- (pow D -2) (* (* (/ (* M M) (* d d)) (/ h l)) 1/8)) (pow D -2) -2 (* (* (/ (* M M) (* d d)) (/ h l)) 1/8) (* (/ (* M M) (* d d)) (/ h l)) (/ (* M M) (* d d)) 1/8 (* D D))
12.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) (/ d l)) 1/2) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (pow (* (/ d h) (/ d l)) 1/2) (* (/ d h) (/ d 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) (* 2 d) (/ h l) (* (* (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) (* (* (/ (* M M) (* d d)) (/ h l)) 1/8)) (* D D)) (- (pow D -2) (* (* (/ (* M M) (* d d)) (/ h l)) 1/8)) (pow D -2) -2 (* (* (/ (* M M) (* d d)) (/ h l)) 1/8) (* (/ (* M M) (* d d)) (/ h l)) (/ (* M M) (* d d)) 1/8 (* D D))
11.0ms	h	@	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) (/ d l)) 1/2) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (pow (* (/ d h) (/ d l)) 1/2) (* (/ d h) (/ d 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) (* 2 d) (/ h l) (* (* (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) (* (* (/ (* M M) (* d d)) (/ h l)) 1/8)) (* D D)) (- (pow D -2) (* (* (/ (* M M) (* d d)) (/ h l)) 1/8)) (pow D -2) -2 (* (* (/ (* M M) (* d d)) (/ h l)) 1/8) (* (/ (* M M) (* d d)) (/ h l)) (/ (* M M) (* d d)) 1/8 (* D D))
11.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) (/ d l)) 1/2) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (pow (* (/ d h) (/ d l)) 1/2) (* (/ d h) (/ d 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) (* 2 d) (/ h l) (* (* (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) (* (* (/ (* M M) (* d d)) (/ h l)) 1/8)) (* D D)) (- (pow D -2) (* (* (/ (* M M) (* d d)) (/ h l)) 1/8)) (pow D -2) -2 (* (* (/ (* M M) (* d d)) (/ h l)) 1/8) (* (/ (* M M) (* d d)) (/ h l)) (/ (* M M) (* d d)) 1/8 (* D D))
11.0ms	h	@	-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) (/ d l)) 1/2) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (pow (* (/ d h) (/ d l)) 1/2) (* (/ d h) (/ d 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) (* 2 d) (/ h l) (* (* (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) (* (* (/ (* M M) (* d d)) (/ h l)) 1/8)) (* D D)) (- (pow D -2) (* (* (/ (* M M) (* d d)) (/ h l)) 1/8)) (pow D -2) -2 (* (* (/ (* M M) (* d d)) (/ h l)) 1/8) (* (/ (* M M) (* d d)) (/ h l)) (/ (* M M) (* d d)) 1/8 (* D D))

rewrite87.0ms (0.8%)

Memory

-15.9MiB live, 80.5MiB allocated; 28ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	438	5476
0	522	4869
0	1637	4823

Stop Event

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

Counts

204 → 373

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

eval319.0ms (2.8%)

Memory

25.3MiB live, 532.6MiB allocated; 55ms collecting garbage

Samples

199.0ms	5 090×	0	valid
1.0ms	30×	0	invalid

Compiler

Compiled 19 452 to 1 528 computations (92.1% saved)

Precisions

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

ival-mult: 71.0ms (67.3% of total)

ival-div: 28.0ms (26.6% of total)

ival-true: 3.0ms (2.8% of total)

ival-assert: 2.0ms (1.9% of total)

adjust: 1.0ms (0.9% of total)

prune450.0ms (4%)

Memory

4.5MiB live, 656.6MiB allocated; 98ms collecting garbage

Pruning

41 alts after pruning (41 fresh and 0 done)

	Pruned	Kept	Total
New	369	37	406
Fresh	16	4	20
Picked	5	0	5
Done	0	0	0
Total	390	41	431

Accuracy

93.6%

Counts

431 → 41

Alt Table

Click to see full alt table

Status	Accuracy	Program
	40.7%	(.f64 (pow.f64 (/.f64 (/.f64 (.f64 d d) h) 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))))
	50.4%	(.f64 (pow.f64 (/.f64 (.f64 d (/.f64 d l)) h) #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))))
	54.3%	(.f64 (pow.f64 (.f64 (/.f64 d h) (/.f64 d l)) #s(literal 1/2 binary64)) (-.f64 #s(literal 1 binary64) (.f64 (.f64 #s(literal 1/2 binary64) (pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64))) (/.f64 h l))))
	53.9%	(.f64 (-.f64 #s(literal 1 binary64) (.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)))) (sqrt.f64 (*.f64 (/.f64 d l) (/.f64 d h))))
	59.5%	(.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 #s(approx ( (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (.f64 (ratio-of-squares.f64 (.f64 D M) d) #s(literal 1/8 binary64))) 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)))) (-.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)))
	59.5%	(.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 (ratio-of-squares.f64 (*.f64 D M) d) l) #s(literal 1/8 binary64))) h)))
	51.0%	(.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 (.f64 (ratio-of-squares.f64 M d) h) l) #s(literal 1/8 binary64))) (.f64 D D))))
	51.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 (.f64 (pow.f64 D #s(literal -1 binary64)) (pow.f64 D #s(literal -1 binary64))) (.f64 (.f64 (ratio-of-squares.f64 M d) (/.f64 h l)) #s(literal 1/8 binary64))) (*.f64 D D))))
	53.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 -2 binary64)) (.f64 (ratio-of-squares.f64 M d) (.f64 (/.f64 h l) #s(literal 1/8 binary64)))) D) D)))
	32.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 #s(approx (- (pow D -2) ( (* (/ (* M M) (* d d)) (/ h l)) 1/8)) (/.f64 (-.f64 (ratio-of-squares.f64 d D) (.f64 (/.f64 (.f64 (.f64 M M) h) l) #s(literal 1/8 binary64))) (.f64 d d))) (*.f64 D D))))
	51.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 #s(approx (- (pow D -2) ( (* (/ (* M M) (* d d)) (/ h l)) 1/8)) (.f64 (-.f64 (/.f64 (pow.f64 D #s(literal -2 binary64)) h) (.f64 (/.f64 (ratio-of-squares.f64 M d) l) #s(literal 1/8 binary64))) h)) (*.f64 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)))
▶	24.9%	(.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 (ratio-of-squares.f64 M d) (/.f64 h l)) #s(literal 1/8 binary64))) (.f64 D D))))
	3.4%	(.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 (ratio-of-squares.f64 M d) (/.f64 h l)) #s(literal 1/8 binary64))) (.f64 D D))))
	56.6%	(.f64 (.f64 (pow.f64 (.f64 (/.f64 d l) (/.f64 d h)) #s(literal 1/4 binary64)) (pow.f64 (.f64 (/.f64 d l) (/.f64 d 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)))
▶	68.4%	(.f64 (.f64 (sqrt.f64 (/.f64 d l)) (sqrt.f64 (/.f64 d h))) (-.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)))
	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))))
▶	51.1%	(.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 (ratio-of-squares.f64 M d) (/.f64 h l)) #s(literal 1/8 binary64))) (.f64 D D))))
	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))))))
	51.1%	(.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 (ratio-of-squares.f64 M d) (.f64 (/.f64 h l) #s(literal 1/8 binary64)))) (.f64 D D)))))
	56.7%	(.f64 (sqrt.f64 (.f64 (/.f64 d l) (/.f64 d h))) (-.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)))
	41.1%	(.f64 (sqrt.f64 (.f64 (/.f64 d l) (/.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 (ratio-of-squares.f64 M d) (.f64 (/.f64 h l) #s(literal 1/8 binary64)))) (.f64 D D))))
	35.2%	(.f64 #s(approx (pow ( (/ d h) (/ 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)))
	25.0%	(.f64 #s(approx (pow ( (/ d h) (/ 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 (ratio-of-squares.f64 M d) (/.f64 h l)) #s(literal 1/8 binary64))) (.f64 D D))))
▶	38.4%	(.f64 #s(approx (pow ( (/ d h) (/ d l)) 1/2) (neg.f64 (.f64 (pow.f64 (.f64 l h) #s(literal -1/2 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))))
	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))))
	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))
	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)) (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)))
	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)) (pow.f64 (.f64 l h) #s(literal -1/2 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)))
	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))
	22.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 (exp.f64 (.f64 (log.f64 (*.f64 l h)) #s(literal -1 binary64)))) 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)))) (neg.f64 (.f64 (pow.f64 (.f64 l h) #s(literal -1/2 binary64)) d)))
	27.4%	#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 (pow.f64 (.f64 l h) #s(literal -1/2 binary64)) (.f64 #s(literal 1/8 binary64) (.f64 (ratio-of-squares.f64 (*.f64 D M) d) (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64))))))) d)))

Samples

275.0ms	6 988×	0	valid
9.0ms	180×	0	invalid

Compiler

Compiled 3 780 to 2 558 computations (32.3% saved)

Precisions

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

ival-mult: 92.0ms (64.2% of total)

ival-div: 42.0ms (29.3% of total)

ival-true: 4.0ms (2.8% of total)

ival-assert: 3.0ms (2.1% of total)

adjust: 2.0ms (1.4% of total)

series128.0ms (1.1%)

Memory

34.2MiB live, 179.3MiB allocated; 17ms collecting garbage

Counts

59 → 177

Calls

Call 1

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

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

Calls

15 calls:

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

rewrite102.0ms (0.9%)

Memory

-2.3MiB live, 89.2MiB allocated; 6ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	475	7166
0	554	6476
0	1658	6458

Stop Event

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

Counts

236 → 391

Calls

Call 1

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

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

eval371.0ms (3.3%)

Memory

-2.7MiB live, 417.8MiB allocated; 102ms collecting garbage

Samples

244.0ms

4 864×

valid

Compiler

Compiled 21 848 to 1 473 computations (93.3% saved)

Precisions

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

ival-mult: 120.0ms (77.7% of total)

ival-div: 29.0ms (18.8% of total)

ival-true: 3.0ms (1.9% of total)

ival-assert: 2.0ms (1.3% of total)

adjust: 1.0ms (0.6% of total)

prune482.0ms (4.3%)

Memory

18.5MiB live, 709.8MiB allocated; 153ms collecting garbage

Pruning

41 alts after pruning (40 fresh and 1 done)

	Pruned	Kept	Total
New	437	27	464
Fresh	23	13	36
Picked	4	1	5
Done	0	0	0
Total	464	41	505

Accuracy

93.6%

Counts

505 → 41

Alt Table

Click to see full alt table

Status	Accuracy	Program
	50.4%	(.f64 (pow.f64 (/.f64 (.f64 d (/.f64 d l)) h) #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))))
▶	54.3%	(.f64 (pow.f64 (.f64 (/.f64 d h) (/.f64 d l)) #s(literal 1/2 binary64)) (-.f64 #s(literal 1 binary64) (.f64 (.f64 #s(literal 1/2 binary64) (pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64))) (/.f64 h l))))
	40.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)) #s(approx (pow (* (/ d h) (/ d l)) 1/2) (.f64 (pow.f64 (.f64 h l) #s(literal -1/2 binary64)) (neg.f64 d))))
▶	53.9%	(.f64 (-.f64 #s(literal 1 binary64) (.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)))) (sqrt.f64 (*.f64 (/.f64 d l) (/.f64 d h))))
	25.6%	(.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 (ratio-of-squares.f64 M d) h) l) #s(literal 1/8 binary64))) (.f64 D D))))
	12.6%	(.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) (* (* (/ (* M M) (* d d)) (/ h l)) 1/8)) (* D D)) (.f64 (.f64 (ratio-of-squares.f64 D d) (/.f64 (.f64 (.f64 M M) h) 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) (* (* (/ (* M M) (* d d)) (/ h l)) 1/8)) (* D D)) #s(literal 1 binary64))))
	56.6%	(.f64 (.f64 (pow.f64 (.f64 (/.f64 d l) (/.f64 d h)) #s(literal 1/4 binary64)) (pow.f64 (.f64 (/.f64 d l) (/.f64 d 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)))
	35.9%	(.f64 (.f64 (sqrt.f64 (/.f64 d l)) (/.f64 (sqrt.f64 d) (sqrt.f64 h))) (-.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)))
	25.1%	(.f64 (.f64 (sqrt.f64 (/.f64 d l)) (/.f64 (sqrt.f64 d) (sqrt.f64 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 (ratio-of-squares.f64 M d) (/.f64 h l)) #s(literal 1/8 binary64))) (.f64 D D))))
▶	68.8%	(.f64 (.f64 (sqrt.f64 (/.f64 d l)) (sqrt.f64 (/.f64 d h))) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (pow.f64 (/.f64 (.f64 D M) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) #s(literal 1/2 binary64)) h) l)))
	68.4%	(.f64 (.f64 (sqrt.f64 (/.f64 d l)) (sqrt.f64 (/.f64 d h))) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (.f64 (.f64 (/.f64 D d) (/.f64 M #s(literal 2 binary64))) (*.f64 (/.f64 D d) (/.f64 M #s(literal 2 binary64)))) #s(literal 1/2 binary64)) h) l)))
	56.6%	(.f64 (.f64 (sqrt.f64 (/.f64 d l)) (sqrt.f64 (/.f64 d h))) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 #s(approx ( (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (.f64 (.f64 (*.f64 D D) (ratio-of-squares.f64 M d)) #s(literal 1/8 binary64))) h) l)))
	55.9%	(.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 l (/.f64 (.f64 #s(literal 1/8 binary64) (.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) h)) (.f64 d d))) l)))
	51.0%	(.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 (.f64 (ratio-of-squares.f64 M d) h) l) #s(literal 1/8 binary64))) (.f64 D D))))
	51.1%	(.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 (.f64 (pow.f64 D #s(literal -1 binary64)) (pow.f64 D #s(literal -1 binary64))) (.f64 (.f64 (ratio-of-squares.f64 M d) (/.f64 h l)) #s(literal 1/8 binary64))) (*.f64 D D))))
	27.5%	(.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 (ratio-of-squares.f64 D d) (/.f64 (.f64 (.f64 M M) h) l)) #s(literal -1/8 binary64))))
	53.6%	(.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 (-.f64 (pow.f64 D #s(literal -2 binary64)) (.f64 (ratio-of-squares.f64 M d) (.f64 (/.f64 h l) #s(literal 1/8 binary64)))) D) D)))
	23.9%	(.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 #s(approx (- (pow D -2) ( (* (/ (* M M) (* d d)) (/ h l)) 1/8)) (pow.f64 D #s(literal -2 binary64))) (*.f64 D D))))
	32.3%	(.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 #s(approx (- (pow D -2) ( (* (/ (* M M) (* d d)) (/ h l)) 1/8)) (/.f64 (-.f64 (ratio-of-squares.f64 d D) (.f64 (/.f64 (.f64 (.f64 M M) h) l) #s(literal 1/8 binary64))) (.f64 d d))) (*.f64 D D))))
	35.8%	(.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 #s(approx (- (pow D -2) ( (* (/ (* M M) (* d d)) (/ h l)) 1/8)) (/.f64 (-.f64 (/.f64 l (.f64 D D)) (/.f64 (.f64 #s(literal 1/8 binary64) (.f64 (.f64 M M) h)) (.f64 d d))) l)) (.f64 D D))))
	51.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 #s(approx (- (pow D -2) ( (* (/ (* M M) (* d d)) (/ h l)) 1/8)) (.f64 (-.f64 (/.f64 (pow.f64 D #s(literal -2 binary64)) h) (.f64 (/.f64 (ratio-of-squares.f64 M d) l) #s(literal 1/8 binary64))) h)) (*.f64 D D))))
	32.5%	(.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 #s(approx (- (pow D -2) ( (* (/ (* M M) (* d d)) (/ h l)) 1/8)) (.f64 (.f64 (ratio-of-squares.f64 M d) (/.f64 h l)) #s(literal -1/8 binary64))) (*.f64 D D))))
	35.4%	(.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))) #s(approx (* (- (pow D -2) (* (* (/ (* M M) (* d d)) (/ h l)) 1/8)) (* D D)) #s(literal 1 binary64))))
	51.1%	(.f64 (sqrt.f64 (/.f64 d l)) (.f64 (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 (ratio-of-squares.f64 M d) (.f64 (/.f64 h l) #s(literal 1/8 binary64)))) (.f64 D D)))))
	41.1%	(.f64 (sqrt.f64 (.f64 (/.f64 d l) (/.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 (ratio-of-squares.f64 M d) (.f64 (/.f64 h l) #s(literal 1/8 binary64)))) (.f64 D D))))
	38.4%	(.f64 #s(approx (pow ( (/ d h) (/ d l)) 1/2) (neg.f64 (.f64 (pow.f64 (.f64 l h) #s(literal -1/2 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 d d)) #s(literal 2 binary64))) (/.f64 h l))))
	38.3%	(.f64 #s(approx (pow ( (/ d h) (/ d l)) 1/2) (neg.f64 (.f64 (.f64 (pow.f64 (.f64 h l) #s(literal -1/4 binary64)) (pow.f64 (.f64 h l) #s(literal -1/4 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))))
	49.1%	#s(approx (* (pow (* (/ d h) (/ 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))
	20.0%	#s(approx (* (pow (* (/ d h) (/ 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))))))
	25.1%	#s(approx (* (pow (* (/ d h) (/ d l)) 1/2) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (neg.f64 (.f64 (sqrt.f64 (pow.f64 (.f64 h l) #s(literal -1 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))
	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)) (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)))
	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)) (pow.f64 (.f64 l h) #s(literal -1/2 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)))
	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))))))
▶	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))
	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)))) (neg.f64 (.f64 (pow.f64 (.f64 l h) #s(literal -1/2 binary64)) d)))
	27.4%	#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 (pow.f64 (.f64 l h) #s(literal -1/2 binary64)) (.f64 #s(literal 1/8 binary64) (.f64 (ratio-of-squares.f64 (*.f64 D M) d) (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64))))))) d)))

Samples

310.0ms	7 108×	0	valid
2.0ms	60×	0	invalid

Compiler

Compiled 3 868 to 2 626 computations (32.1% saved)

Precisions

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

ival-mult: 116.0ms (70.4% of total)

ival-div: 40.0ms (24.3% of total)

ival-true: 4.0ms (2.4% of total)

ival-assert: 3.0ms (1.8% of total)

adjust: 2.0ms (1.2% of total)

series98.0ms (0.9%)

Memory

23.1MiB live, 169.2MiB allocated; 23ms collecting garbage

Counts

53 → 145

Calls

Call 1

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

Outputs
#s(approx (* (* (sqrt (/ d l)) (sqrt (/ d h))) (- 1 (/ (* (* (pow (/ (* D M) (* 2 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 (* (* (sqrt (/ d l)) (sqrt (/ d h))) (- 1 (/ (* (* (pow (/ (* D M) (* 2 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 (/ 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 d #s(hole binary64 d))
#s(approx (sqrt (/ d h)) #s(hole binary64 (sqrt (/ d h))))
#s(approx (/ d h) #s(hole binary64 (/ d h)))
#s(approx (- 1 (/ (* (* (pow (/ (* D M) (* 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 (/ (* D M) (* 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 (/ (* D M) (* 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 (/ (* D M) (* 2 d)) 2) 1/2) h) #s(hole binary64 (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))))
#s(approx (* (pow (/ (* D M) (* 2 d)) 2) 1/2) #s(hole binary64 (* 1/8 (/ (* (pow D 2) (pow M 2)) (pow d 2)))))
#s(approx (pow (/ (* D M) (* 2 d)) 2) #s(hole binary64 (* 1/4 (/ (* (pow D 2) (pow M 2)) (pow d 2)))))
#s(approx (/ (* D M) (* 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 (* -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 (* (sqrt (/ (pow h -1) l)) d) #s(hole binary64 (* d (sqrt (/ 1 (* h l))))))
#s(approx (* (- 1 (* (/ h l) (* (pow (* (/ D d) (/ M 2)) 2) 1/2))) (sqrt (* (/ d l) (/ d h)))) #s(hole binary64 (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ h (pow l 3)))))))
#s(approx (* (- 1 (* (/ h l) (* (pow (* (/ D d) (/ M 2)) 2) 1/2))) (sqrt (* (/ d l) (/ 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 (* (/ h l) (* (pow (* (/ D d) (/ M 2)) 2) 1/2))) #s(hole binary64 (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l)))))
#s(approx (- 1 (* (/ h l) (* (pow (* (/ D d) (/ M 2)) 2) 1/2))) #s(hole binary64 (/ (- (pow d 2) (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) l))) (pow d 2))))
#s(approx (* (/ h l) (* (pow (* (/ D d) (/ M 2)) 2) 1/2)) #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) #s(hole binary64 (* 1/8 (/ (* (pow D 2) (pow M 2)) (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 (sqrt (* (/ d l) (/ d h))) #s(hole binary64 (* d (sqrt (/ 1 (* h l))))))
#s(approx (* (/ d l) (/ d h)) #s(hole binary64 (/ (pow d 2) (* h l))))
#s(approx (* (pow (* (/ d h) (/ 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) (/ 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) (/ d l)) 1/2) #s(hole binary64 (* d (sqrt (/ 1 (* h l))))))
#s(approx (* (/ d h) (/ d l)) #s(hole binary64 (/ (pow d 2) (* h 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 (* (* (sqrt (/ d l)) (sqrt (/ d h))) (- 1 (/ (* (* (pow (/ (* D M) (* 2 d)) 2) 1/2) h) l))) #s(hole binary64 (* d (sqrt (/ 1 (* h l))))))
#s(approx (* (* (sqrt (/ d l)) (sqrt (/ d h))) (- 1 (/ (* (* (pow (/ (* D M) (* 2 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 (/ (* D M) (* 2 d)) 2) 1/2) h) l)) #s(hole binary64 1))
#s(approx (- 1 (/ (* (* (pow (/ (* D M) (* 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 (* (- 1 (* (/ h l) (* (pow (* (/ D d) (/ M 2)) 2) 1/2))) (sqrt (* (/ d l) (/ d h)))) #s(hole binary64 (* d (sqrt (/ 1 (* h l))))))
#s(approx (* (- 1 (* (/ h l) (* (pow (* (/ D d) (/ M 2)) 2) 1/2))) (sqrt (* (/ d l) (/ 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 (* (/ h l) (* (pow (* (/ D d) (/ M 2)) 2) 1/2))) #s(hole binary64 1))
#s(approx (- 1 (* (/ h l) (* (pow (* (/ D d) (/ M 2)) 2) 1/2))) #s(hole binary64 (+ 1 (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))))))
#s(approx (* (pow (* (/ d h) (/ 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) (/ 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 (* (* (sqrt (/ d l)) (sqrt (/ d h))) (- 1 (/ (* (* (pow (/ (* D M) (* 2 d)) 2) 1/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 (/ (* (* (pow (/ (* D M) (* 2 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 (/ 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 (* (- 1 (* (/ h l) (* (pow (* (/ D d) (/ M 2)) 2) 1/2))) (sqrt (* (/ d l) (/ d h)))) #s(hole binary64 (* -1 (* d (sqrt (/ 1 (* h l)))))))
#s(approx (* (- 1 (* (/ h l) (* (pow (* (/ D d) (/ M 2)) 2) 1/2))) (sqrt (* (/ d l) (/ d h)))) #s(hole binary64 (* -1 (* 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) (/ d h))) #s(hole binary64 (* -1 (* d (sqrt (/ 1 (* h l)))))))
#s(approx (* (pow (* (/ d h) (/ d l)) 1/2) (- 1 (* (* 1/2 (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) #s(hole binary64 (* -1 (* d (sqrt (/ 1 (* h l)))))))
#s(approx (* (pow (* (/ d h) (/ d l)) 1/2) (- 1 (* (* 1/2 (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) #s(hole binary64 (* -1 (* 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) (/ d l)) 1/2) #s(hole binary64 (* -1 (* d (sqrt (/ 1 (* h l)))))))
#s(approx (* (* (sqrt (/ d l)) (sqrt (/ d h))) (- 1 (/ (* (* (pow (/ (* D M) (* 2 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 (/ 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 (/ (pow h -1) l)) #s(hole binary64 (sqrt (/ 1 (* h l)))))
#s(approx (/ (pow h -1) l) #s(hole binary64 (/ 1 (* h l))))
#s(approx (pow h -1) #s(hole binary64 (/ 1 h)))
#s(approx (* (- 1 (* (/ h l) (* (pow (* (/ D d) (/ M 2)) 2) 1/2))) (sqrt (* (/ d l) (/ 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 (/ h l) #s(hole binary64 (/ h l)))
#s(approx (* (pow (* (/ d h) (/ 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 (/ d l)) (sqrt (/ d h))) (- 1 (/ (* (* (pow (/ (* D M) (* 2 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 (/ (* D M) (* 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 (* (- 1 (* (/ h l) (* (pow (* (/ D d) (/ M 2)) 2) 1/2))) (sqrt (* (/ d l) (/ 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 (* (/ h l) (* (pow (* (/ D d) (/ M 2)) 2) 1/2))) #s(hole binary64 (* h (- (/ 1 h) (* 1/8 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l)))))))
#s(approx (* (pow (* (/ d h) (/ 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 (* (* (sqrt (/ d l)) (sqrt (/ d h))) (- 1 (/ (* (* (pow (/ (* D M) (* 2 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 (* (* (sqrt (/ d l)) (sqrt (/ d h))) (- 1 (/ (* (* (pow (/ (* D M) (* 2 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 (/ 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 (- 1 (/ (* (* (pow (/ (* D M) (* 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 (* (* (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 (* (sqrt (/ (pow h -1) l)) d) #s(hole binary64 (* (* d (pow (sqrt -1) 2)) (sqrt (/ 1 (* h l))))))
#s(approx (sqrt (/ (pow h -1) l)) #s(hole binary64 (* (sqrt (/ 1 (* h l))) (pow (sqrt -1) 2))))
#s(approx (* (- 1 (* (/ h l) (* (pow (* (/ D d) (/ M 2)) 2) 1/2))) (sqrt (* (/ d l) (/ 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 (* (/ h l) (* (pow (* (/ D d) (/ M 2)) 2) 1/2))) (sqrt (* (/ d l) (/ 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 (* (/ h l) (* (pow (* (/ D d) (/ M 2)) 2) 1/2))) #s(hole binary64 (* h (+ (* -1/8 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (/ 1 h)))))
#s(approx (sqrt (* (/ d l) (/ d h))) #s(hole binary64 (* (* d (pow (sqrt -1) 2)) (sqrt (/ 1 (* h l))))))
#s(approx (* (pow (* (/ d h) (/ 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) (/ 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) (/ d l)) 1/2) #s(hole binary64 (* (* d (pow (sqrt -1) 2)) (sqrt (/ 1 (* h l))))))
#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 (* (* (sqrt (/ d l)) (sqrt (/ d h))) (- 1 (/ (* (* (pow (/ (* D M) (* 2 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 (/ (* D M) (* 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 (* (* (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 (* (- 1 (* (/ h l) (* (pow (* (/ D d) (/ M 2)) 2) 1/2))) (sqrt (* (/ d l) (/ 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 (* (/ h l) (* (pow (* (/ D d) (/ M 2)) 2) 1/2))) #s(hole binary64 (/ (- l (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l)))
#s(approx (* (pow (* (/ d h) (/ 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 (- 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 (* (* (sqrt (/ d l)) (sqrt (/ d h))) (- 1 (/ (* (* (pow (/ (* D M) (* 2 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 (* (- 1 (* (/ h l) (* (pow (* (/ D d) (/ M 2)) 2) 1/2))) (sqrt (* (/ d l) (/ 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) (/ 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 (/ (* (* (pow (/ (* D M) (* 2 d)) 2) 1/2) h) l))) #s(hole binary64 (* (* d (pow (sqrt -1) 2)) (sqrt (/ 1 (* h l))))))
#s(approx (* (* (sqrt (/ d l)) (sqrt (/ d h))) (- 1 (/ (* (* (pow (/ (* D M) (* 2 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 (/ 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 (* (- 1 (* (/ h l) (* (pow (* (/ D d) (/ M 2)) 2) 1/2))) (sqrt (* (/ d l) (/ d h)))) #s(hole binary64 (* (* d (pow (sqrt -1) 2)) (sqrt (/ 1 (* h l))))))
#s(approx (* (- 1 (* (/ h l) (* (pow (* (/ D d) (/ M 2)) 2) 1/2))) (sqrt (* (/ d l) (/ 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 (* (pow (* (/ d h) (/ 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) (/ 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 M) #s(hole binary64 (* D M)))
#s(approx M #s(hole binary64 M))
#s(approx (/ M 2) #s(hole binary64 (* 1/2 M)))
#s(approx (* M D) #s(hole binary64 (* D M)))
#s(approx (* (* (sqrt (/ d l)) (sqrt (/ d h))) (- 1 (/ (* (* (pow (/ (* D M) (* 2 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 (/ (* D M) (* 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 (* (- 1 (* (/ h l) (* (pow (* (/ D d) (/ M 2)) 2) 1/2))) (sqrt (* (/ d l) (/ 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 (* (/ h l) (* (pow (* (/ D d) (/ M 2)) 2) 1/2))) #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) (/ 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 (* (* (sqrt (/ d l)) (sqrt (/ d h))) (- 1 (/ (* (* (pow (/ (* D M) (* 2 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 (/ (* D M) (* 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 (* (- 1 (* (/ h l) (* (pow (* (/ D d) (/ M 2)) 2) 1/2))) (sqrt (* (/ d l) (/ 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 (* (/ h l) (* (pow (* (/ D d) (/ M 2)) 2) 1/2))) #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) (/ 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
10.0ms	h	@	0	((* (* (sqrt (/ d l)) (sqrt (/ d h))) (- 1 (/ (* (* (pow (/ (* D M) (* 2 d)) 2) 1/2) h) l))) (* (sqrt (/ d l)) (sqrt (/ d h))) (sqrt (/ d l)) (/ d l) d l (sqrt (/ d h)) (/ d h) h (- 1 (/ (* (* (pow (/ (* D M) (* 2 d)) 2) 1/2) h) l)) 1 (/ (* (* (pow (/ (* D M) (* 2 d)) 2) 1/2) h) l) (* (* (pow (/ (* D M) (* 2 d)) 2) 1/2) h) (* (pow (/ (* D M) (* 2 d)) 2) 1/2) (pow (/ (* D M) (* 2 d)) 2) (/ (* D M) (* 2 d)) (* D M) D M (* 2 d) 2 1/2 (* (* (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)))) (* (sqrt (/ (pow h -1) l)) d) (sqrt (/ (pow h -1) l)) (/ (pow h -1) l) (pow h -1) -1 (* (- 1 (* (/ h l) (* (pow (* (/ D d) (/ M 2)) 2) 1/2))) (sqrt (* (/ d l) (/ d h)))) (- 1 (* (/ h l) (* (pow (* (/ D d) (/ M 2)) 2) 1/2))) (* (/ h l) (* (pow (* (/ D d) (/ M 2)) 2) 1/2)) (/ h l) (* (pow (* (/ D d) (/ M 2)) 2) 1/2) (pow (* (/ D d) (/ M 2)) 2) (* (/ D d) (/ M 2)) (/ D d) (/ M 2) (sqrt (* (/ d l) (/ d h))) (* (/ d l) (/ d h)) (* (pow (* (/ d h) (/ d l)) 1/2) (- 1 (* (* 1/2 (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (pow (* (/ d h) (/ d l)) 1/2) (* (/ d h) (/ d 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))
9.0ms	l	@	inf	((* (* (sqrt (/ d l)) (sqrt (/ d h))) (- 1 (/ (* (* (pow (/ (* D M) (* 2 d)) 2) 1/2) h) l))) (* (sqrt (/ d l)) (sqrt (/ d h))) (sqrt (/ d l)) (/ d l) d l (sqrt (/ d h)) (/ d h) h (- 1 (/ (* (* (pow (/ (* D M) (* 2 d)) 2) 1/2) h) l)) 1 (/ (* (* (pow (/ (* D M) (* 2 d)) 2) 1/2) h) l) (* (* (pow (/ (* D M) (* 2 d)) 2) 1/2) h) (* (pow (/ (* D M) (* 2 d)) 2) 1/2) (pow (/ (* D M) (* 2 d)) 2) (/ (* D M) (* 2 d)) (* D M) D M (* 2 d) 2 1/2 (* (* (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)))) (* (sqrt (/ (pow h -1) l)) d) (sqrt (/ (pow h -1) l)) (/ (pow h -1) l) (pow h -1) -1 (* (- 1 (* (/ h l) (* (pow (* (/ D d) (/ M 2)) 2) 1/2))) (sqrt (* (/ d l) (/ d h)))) (- 1 (* (/ h l) (* (pow (* (/ D d) (/ M 2)) 2) 1/2))) (* (/ h l) (* (pow (* (/ D d) (/ M 2)) 2) 1/2)) (/ h l) (* (pow (* (/ D d) (/ M 2)) 2) 1/2) (pow (* (/ D d) (/ M 2)) 2) (* (/ D d) (/ M 2)) (/ D d) (/ M 2) (sqrt (* (/ d l) (/ d h))) (* (/ d l) (/ d h)) (* (pow (* (/ d h) (/ d l)) 1/2) (- 1 (* (* 1/2 (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (pow (* (/ d h) (/ d l)) 1/2) (* (/ d h) (/ d 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))
8.0ms	d	@	-inf	((* (* (sqrt (/ d l)) (sqrt (/ d h))) (- 1 (/ (* (* (pow (/ (* D M) (* 2 d)) 2) 1/2) h) l))) (* (sqrt (/ d l)) (sqrt (/ d h))) (sqrt (/ d l)) (/ d l) d l (sqrt (/ d h)) (/ d h) h (- 1 (/ (* (* (pow (/ (* D M) (* 2 d)) 2) 1/2) h) l)) 1 (/ (* (* (pow (/ (* D M) (* 2 d)) 2) 1/2) h) l) (* (* (pow (/ (* D M) (* 2 d)) 2) 1/2) h) (* (pow (/ (* D M) (* 2 d)) 2) 1/2) (pow (/ (* D M) (* 2 d)) 2) (/ (* D M) (* 2 d)) (* D M) D M (* 2 d) 2 1/2 (* (* (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)))) (* (sqrt (/ (pow h -1) l)) d) (sqrt (/ (pow h -1) l)) (/ (pow h -1) l) (pow h -1) -1 (* (- 1 (* (/ h l) (* (pow (* (/ D d) (/ M 2)) 2) 1/2))) (sqrt (* (/ d l) (/ d h)))) (- 1 (* (/ h l) (* (pow (* (/ D d) (/ M 2)) 2) 1/2))) (* (/ h l) (* (pow (* (/ D d) (/ M 2)) 2) 1/2)) (/ h l) (* (pow (* (/ D d) (/ M 2)) 2) 1/2) (pow (* (/ D d) (/ M 2)) 2) (* (/ D d) (/ M 2)) (/ D d) (/ M 2) (sqrt (* (/ d l) (/ d h))) (* (/ d l) (/ d h)) (* (pow (* (/ d h) (/ d l)) 1/2) (- 1 (* (* 1/2 (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (pow (* (/ d h) (/ d l)) 1/2) (* (/ d h) (/ d 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))
8.0ms	D	@	0	((* (* (sqrt (/ d l)) (sqrt (/ d h))) (- 1 (/ (* (* (pow (/ (* D M) (* 2 d)) 2) 1/2) h) l))) (* (sqrt (/ d l)) (sqrt (/ d h))) (sqrt (/ d l)) (/ d l) d l (sqrt (/ d h)) (/ d h) h (- 1 (/ (* (* (pow (/ (* D M) (* 2 d)) 2) 1/2) h) l)) 1 (/ (* (* (pow (/ (* D M) (* 2 d)) 2) 1/2) h) l) (* (* (pow (/ (* D M) (* 2 d)) 2) 1/2) h) (* (pow (/ (* D M) (* 2 d)) 2) 1/2) (pow (/ (* D M) (* 2 d)) 2) (/ (* D M) (* 2 d)) (* D M) D M (* 2 d) 2 1/2 (* (* (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)))) (* (sqrt (/ (pow h -1) l)) d) (sqrt (/ (pow h -1) l)) (/ (pow h -1) l) (pow h -1) -1 (* (- 1 (* (/ h l) (* (pow (* (/ D d) (/ M 2)) 2) 1/2))) (sqrt (* (/ d l) (/ d h)))) (- 1 (* (/ h l) (* (pow (* (/ D d) (/ M 2)) 2) 1/2))) (* (/ h l) (* (pow (* (/ D d) (/ M 2)) 2) 1/2)) (/ h l) (* (pow (* (/ D d) (/ M 2)) 2) 1/2) (pow (* (/ D d) (/ M 2)) 2) (* (/ D d) (/ M 2)) (/ D d) (/ M 2) (sqrt (* (/ d l) (/ d h))) (* (/ d l) (/ d h)) (* (pow (* (/ d h) (/ d l)) 1/2) (- 1 (* (* 1/2 (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (pow (* (/ d h) (/ d l)) 1/2) (* (/ d h) (/ d 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))
7.0ms	h	@	-inf	((* (* (sqrt (/ d l)) (sqrt (/ d h))) (- 1 (/ (* (* (pow (/ (* D M) (* 2 d)) 2) 1/2) h) l))) (* (sqrt (/ d l)) (sqrt (/ d h))) (sqrt (/ d l)) (/ d l) d l (sqrt (/ d h)) (/ d h) h (- 1 (/ (* (* (pow (/ (* D M) (* 2 d)) 2) 1/2) h) l)) 1 (/ (* (* (pow (/ (* D M) (* 2 d)) 2) 1/2) h) l) (* (* (pow (/ (* D M) (* 2 d)) 2) 1/2) h) (* (pow (/ (* D M) (* 2 d)) 2) 1/2) (pow (/ (* D M) (* 2 d)) 2) (/ (* D M) (* 2 d)) (* D M) D M (* 2 d) 2 1/2 (* (* (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)))) (* (sqrt (/ (pow h -1) l)) d) (sqrt (/ (pow h -1) l)) (/ (pow h -1) l) (pow h -1) -1 (* (- 1 (* (/ h l) (* (pow (* (/ D d) (/ M 2)) 2) 1/2))) (sqrt (* (/ d l) (/ d h)))) (- 1 (* (/ h l) (* (pow (* (/ D d) (/ M 2)) 2) 1/2))) (* (/ h l) (* (pow (* (/ D d) (/ M 2)) 2) 1/2)) (/ h l) (* (pow (* (/ D d) (/ M 2)) 2) 1/2) (pow (* (/ D d) (/ M 2)) 2) (* (/ D d) (/ M 2)) (/ D d) (/ M 2) (sqrt (* (/ d l) (/ d h))) (* (/ d l) (/ d h)) (* (pow (* (/ d h) (/ d l)) 1/2) (- 1 (* (* 1/2 (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (pow (* (/ d h) (/ d l)) 1/2) (* (/ d h) (/ d 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))

rewrite71.0ms (0.6%)

Memory

-28.1MiB live, 69.8MiB allocated; 9ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	390	5820
0	465	5400
0	1348	5322

Stop Event

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

Counts

198 → 352

Calls

Call 1

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

eval57.0ms (0.5%)

Memory

3.1MiB live, 94.6MiB allocated; 7ms collecting garbage

Samples

23.0ms

512×

valid

Compiler

Compiled 8 726 to 945 computations (89.2% saved)

Precisions

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

ival-mult: 7.0ms (67.7% of total)

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

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

adjust: 0.0ms (0% of total)

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

prune318.0ms (2.8%)

Memory

21.9MiB live, 495.5MiB allocated; 54ms collecting garbage

Pruning

41 alts after pruning (39 fresh and 2 done)

	Pruned	Kept	Total
New	246	10	256
Fresh	6	29	35
Picked	4	1	5
Done	0	1	1
Total	256	41	297

Accuracy

93.7%

Counts

297 → 41

Alt Table

Click to see full alt table

Status	Accuracy	Program
	40.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)) #s(approx (pow (* (/ d h) (/ d l)) 1/2) (.f64 (pow.f64 (.f64 h l) #s(literal -1/2 binary64)) (neg.f64 d))))
	40.6%	(.f64 (-.f64 #s(literal 1 binary64) (.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)))) (sqrt.f64 (/.f64 (/.f64 (*.f64 d d) h) l)))
	50.3%	(.f64 (-.f64 #s(literal 1 binary64) (.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)))) (sqrt.f64 (/.f64 (*.f64 (/.f64 d l) d) h)))
	53.9%	(.f64 (-.f64 #s(literal 1 binary64) (.f64 (/.f64 h l) (.f64 (pow.f64 (.f64 (/.f64 D d) #s(approx (/ M 2) (.f64 #s(literal 1/2 binary64) M))) #s(literal 2 binary64)) #s(literal 1/2 binary64)))) (sqrt.f64 (.f64 (/.f64 d l) (/.f64 d h))))
	25.6%	(.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 (ratio-of-squares.f64 M d) h) l) #s(literal 1/8 binary64))) (.f64 D D))))
	12.6%	(.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) (* (* (/ (* M M) (* d d)) (/ h l)) 1/8)) (* D D)) (.f64 (.f64 (ratio-of-squares.f64 D d) (/.f64 (.f64 (.f64 M M) h) l)) #s(literal -1/8 binary64)))))
	25.1%	(.f64 (.f64 (sqrt.f64 (/.f64 d l)) (/.f64 (sqrt.f64 d) (sqrt.f64 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 (ratio-of-squares.f64 M d) (/.f64 h l)) #s(literal 1/8 binary64))) (.f64 D D))))
	68.4%	(.f64 (.f64 (sqrt.f64 (/.f64 d l)) (sqrt.f64 (/.f64 d h))) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (.f64 (.f64 (/.f64 D d) (/.f64 M #s(literal 2 binary64))) (*.f64 (/.f64 D d) (/.f64 M #s(literal 2 binary64)))) #s(literal 1/2 binary64)) h) l)))
	69.2%	(.f64 (.f64 (sqrt.f64 (/.f64 d l)) (sqrt.f64 (/.f64 d h))) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (.f64 (.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d)) (*.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d))) #s(literal 1/2 binary64)) h) l)))
	56.6%	(.f64 (.f64 (sqrt.f64 (/.f64 d l)) (sqrt.f64 (/.f64 d h))) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 #s(approx ( (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (.f64 (.f64 (*.f64 D D) (ratio-of-squares.f64 M d)) #s(literal 1/8 binary64))) h) l)))
	55.9%	(.f64 (.f64 (sqrt.f64 (/.f64 d l)) (sqrt.f64 (/.f64 d h))) (-.f64 #s(literal 1 binary64) (/.f64 #s(approx (* (* (pow (/ (* D M) (* 2 d)) 2) 1/2) h) (/.f64 (.f64 #s(literal 1/8 binary64) (.f64 (pow.f64 (.f64 M D) #s(literal 2 binary64)) h)) (.f64 d d))) l)))
	51.0%	(.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 (.f64 (ratio-of-squares.f64 M d) h) l) #s(literal 1/8 binary64))) (.f64 D D))))
	51.1%	(.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 (.f64 (pow.f64 D #s(literal -1 binary64)) (pow.f64 D #s(literal -1 binary64))) (.f64 (.f64 (ratio-of-squares.f64 M d) (/.f64 h l)) #s(literal 1/8 binary64))) (*.f64 D D))))
	27.5%	(.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 (ratio-of-squares.f64 D d) (/.f64 (.f64 (.f64 M M) h) l)) #s(literal -1/8 binary64))))
	53.6%	(.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 (-.f64 (pow.f64 D #s(literal -2 binary64)) (.f64 (ratio-of-squares.f64 M d) (.f64 (/.f64 h l) #s(literal 1/8 binary64)))) D) D)))
	23.9%	(.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 #s(approx (- (pow D -2) ( (* (/ (* M M) (* d d)) (/ h l)) 1/8)) (pow.f64 D #s(literal -2 binary64))) (*.f64 D D))))
	32.3%	(.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 #s(approx (- (pow D -2) ( (* (/ (* M M) (* d d)) (/ h l)) 1/8)) (/.f64 (-.f64 (ratio-of-squares.f64 d D) (.f64 (/.f64 (.f64 (.f64 M M) h) l) #s(literal 1/8 binary64))) (.f64 d d))) (*.f64 D D))))
	35.8%	(.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 #s(approx (- (pow D -2) ( (* (/ (* M M) (* d d)) (/ h l)) 1/8)) (/.f64 (-.f64 (/.f64 l (.f64 D D)) (/.f64 (.f64 #s(literal 1/8 binary64) (.f64 (.f64 M M) h)) (.f64 d d))) l)) (.f64 D D))))
	51.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 #s(approx (- (pow D -2) ( (* (/ (* M M) (* d d)) (/ h l)) 1/8)) (.f64 (-.f64 (/.f64 (pow.f64 D #s(literal -2 binary64)) h) (.f64 (/.f64 (ratio-of-squares.f64 M d) l) #s(literal 1/8 binary64))) h)) (*.f64 D D))))
	32.5%	(.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 #s(approx (- (pow D -2) ( (* (/ (* M M) (* d d)) (/ h l)) 1/8)) (.f64 (.f64 (ratio-of-squares.f64 M d) (/.f64 h l)) #s(literal -1/8 binary64))) (*.f64 D D))))
	35.4%	(.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))) #s(approx (* (- (pow D -2) (* (* (/ (* M M) (* d d)) (/ h l)) 1/8)) (* D D)) #s(literal 1 binary64))))
	51.1%	(.f64 (sqrt.f64 (/.f64 d l)) (.f64 (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 (ratio-of-squares.f64 M d) (.f64 (/.f64 h l) #s(literal 1/8 binary64)))) (.f64 D D)))))
	57.1%	(.f64 (sqrt.f64 (.f64 (/.f64 d l) (/.f64 d h))) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (pow.f64 (/.f64 (.f64 D M) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) #s(literal 1/2 binary64)) h) l)))
	41.1%	(.f64 (sqrt.f64 (.f64 (/.f64 d l) (/.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 (ratio-of-squares.f64 M d) (.f64 (/.f64 h l) #s(literal 1/8 binary64)))) (.f64 D D))))
	38.4%	(.f64 #s(approx (pow ( (/ d h) (/ d l)) 1/2) (neg.f64 (.f64 (pow.f64 (.f64 l h) #s(literal -1/2 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 d d)) #s(literal 2 binary64))) (/.f64 h l))))
	38.3%	(.f64 #s(approx (pow ( (/ d h) (/ d l)) 1/2) (neg.f64 (.f64 (.f64 (pow.f64 (.f64 h l) #s(literal -1/4 binary64)) (pow.f64 (.f64 h l) #s(literal -1/4 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))))
	49.1%	#s(approx (* (pow (* (/ d h) (/ 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))
	20.0%	#s(approx (* (pow (* (/ d h) (/ 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))))))
	25.1%	#s(approx (* (pow (* (/ d h) (/ d l)) 1/2) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (neg.f64 (.f64 (sqrt.f64 (pow.f64 (.f64 h l) #s(literal -1 binary64))) d)))
	25.1%	#s(approx (* (pow (* (/ d h) (/ d l)) 1/2) (- 1 (* (* 1/2 (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (neg.f64 (*.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 (.f64 #s(literal 1 binary64) d) (sqrt.f64 (.f64 h l))))
	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))
	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)) (pow.f64 (.f64 l h) #s(literal -1/2 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)))
	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))))))
	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.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) h) 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))
	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)))) (neg.f64 (.f64 (pow.f64 (.f64 l h) #s(literal -1/2 binary64)) d)))
	27.4%	#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 (pow.f64 (.f64 l h) #s(literal -1/2 binary64)) (.f64 #s(literal 1/8 binary64) (.f64 (ratio-of-squares.f64 (*.f64 D M) d) (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64))))))) d)))

Samples

190.0ms	4 548×	0	valid
2.0ms	60×	0	invalid

Compiler

Compiled 6 540 to 1 829 computations (72% saved)

Precisions

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

ival-mult: 65.0ms (67.4% of total)

ival-div: 25.0ms (25.9% of total)

ival-true: 3.0ms (3.1% of total)

ival-assert: 2.0ms (2.1% of total)

adjust: 1.0ms (1% of total)

regimes187.0ms (1.7%)

Memory

4.8MiB live, 283.6MiB allocated; 22ms collecting garbage

Counts

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

(*.f64 (*.f64 (sqrt.f64 (/.f64 d l)) (/.f64 (sqrt.f64 d) (sqrt.f64 h))) (-.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)))

Calls

7 calls:

28.0ms	d
28.0ms	D
26.0ms	M
26.0ms	h
25.0ms	(*.f64 M D)

Results

Accuracy	Segments	Branch
69.2%	1	`(*.f64 M D)`
74.0%	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))))`
78.4%	4	`d`
74.6%	2	`h`
77.1%	3	`l`
69.2%	1	`M`
69.2%	1	`D`

Compiler

Compiled 43 to 53 computations (-23.3% saved)

regimes68.0ms (0.6%)

Memory

-3.1MiB live, 97.7MiB allocated; 18ms collecting garbage

Counts

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

Outputs

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

Calls

4 calls:

20.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))))
16.0ms	d
14.0ms	l
14.0ms	h

Results

Accuracy	Segments	Branch
71.5%	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))))`
72.2%	2	`h`
74.8%	3	`d`
72.5%	2	`l`

Compiler

Compiled 38 to 37 computations (2.6% saved)

regimes30.0ms (0.3%)

Memory

13.4MiB live, 57.5MiB allocated; 4ms collecting garbage

Counts

47 → 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 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 (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) 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 (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) (.f64 (sqrt.f64 l) (sqrt.f64 h))) d))
(.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))) #s(approx (* (- (pow D -2) (* (* (/ (* M M) (* d d)) (/ h l)) 1/8)) (* D D)) #s(literal 1 binary64))))
(.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 #s(approx (- (pow D -2) ( (* (/ (* M M) (* d d)) (/ h l)) 1/8)) (.f64 (.f64 (ratio-of-squares.f64 M d) (/.f64 h l)) #s(literal -1/8 binary64))) (*.f64 D D))))
(.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 (ratio-of-squares.f64 D d) (/.f64 (.f64 (.f64 M M) h) l)) #s(literal -1/8 binary64))))
(.f64 (.f64 (sqrt.f64 (/.f64 d l)) (sqrt.f64 (/.f64 d h))) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 #s(approx ( (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (.f64 (.f64 (*.f64 D D) (ratio-of-squares.f64 M d)) #s(literal 1/8 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 (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)))) (neg.f64 (.f64 (pow.f64 (.f64 l h) #s(literal -1/2 binary64)) d)))
(.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 #s(approx (- (pow D -2) ( (* (/ (* M M) (* d d)) (/ h l)) 1/8)) (/.f64 (-.f64 (ratio-of-squares.f64 d D) (.f64 (/.f64 (.f64 (.f64 M M) h) l) #s(literal 1/8 binary64))) (.f64 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 (sqrt.f64 (pow.f64 (.f64 l h) #s(literal -1 binary64))) d))
#s(approx (* (pow (* (/ d h) (/ d l)) 1/2) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (neg.f64 (.f64 (sqrt.f64 (pow.f64 (.f64 h l) #s(literal -1 binary64))) d)))
(.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 #s(approx (- (pow D -2) ( (* (/ (* M M) (* d d)) (/ h l)) 1/8)) (/.f64 (-.f64 (/.f64 l (.f64 D D)) (/.f64 (.f64 #s(literal 1/8 binary64) (.f64 (.f64 M M) h)) (.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 #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))
#s(approx (* (pow (* (/ d h) (/ d l)) 1/2) (- 1 (* (* 1/2 (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (neg.f64 (*.f64 (sqrt.f64 (/.f64 (pow.f64 h #s(literal -1 binary64)) l)) d)))
(.f64 (.f64 (sqrt.f64 (/.f64 d l)) (sqrt.f64 (/.f64 d h))) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (.f64 (.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d)) (*.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d))) #s(literal 1/2 binary64)) h) l)))
(.f64 (.f64 (sqrt.f64 (/.f64 d l)) (sqrt.f64 (/.f64 d h))) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (.f64 (.f64 (/.f64 D d) (/.f64 M #s(literal 2 binary64))) (*.f64 (/.f64 D d) (/.f64 M #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 #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))))))
(.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 #s(approx (- (pow D -2) ( (* (/ (* M M) (* d d)) (/ h l)) 1/8)) (pow.f64 D #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))) #s(approx (* (- (pow D -2) (* (* (/ (* M M) (* d d)) (/ h l)) 1/8)) (* D D)) #s(literal 1 binary64))))
(.f64 (sqrt.f64 (.f64 (/.f64 d l) (/.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 (ratio-of-squares.f64 M d) (.f64 (/.f64 h l) #s(literal 1/8 binary64)))) (.f64 D D))))
(.f64 (sqrt.f64 (.f64 (/.f64 d l) (/.f64 d h))) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (pow.f64 (/.f64 (.f64 D M) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) #s(literal 1/2 binary64)) h) l)))
(.f64 (-.f64 #s(literal 1 binary64) (.f64 (/.f64 h l) (.f64 (pow.f64 (.f64 (/.f64 D d) #s(approx (/ M 2) (.f64 #s(literal 1/2 binary64) M))) #s(literal 2 binary64)) #s(literal 1/2 binary64)))) (sqrt.f64 (.f64 (/.f64 d l) (/.f64 d h))))
(.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 (ratio-of-squares.f64 M d) (.f64 (/.f64 h l) #s(literal 1/8 binary64)))) (.f64 D D)))))
(.f64 (sqrt.f64 (/.f64 d l)) (.f64 (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 (ratio-of-squares.f64 M d) (.f64 (/.f64 h l) #s(literal 1/8 binary64)))) (.f64 D D)))))
(.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 (-.f64 (pow.f64 D #s(literal -2 binary64)) (.f64 (ratio-of-squares.f64 M d) (.f64 (/.f64 h l) #s(literal 1/8 binary64)))) D) D)))
(.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 (ratio-of-squares.f64 M d) (/.f64 h l)) #s(literal 1/8 binary64))) (.f64 D D))))
(.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 (.f64 (ratio-of-squares.f64 M d) h) l) #s(literal 1/8 binary64))) (.f64 D D))))
(.f64 (sqrt.f64 (.f64 (/.f64 d l) (/.f64 d h))) (-.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 h l) (.f64 (pow.f64 (.f64 (/.f64 D d) (/.f64 M #s(literal 2 binary64))) #s(literal 2 binary64)) #s(literal 1/2 binary64)))) (sqrt.f64 (*.f64 (/.f64 d l) (/.f64 d h))))
(.f64 (-.f64 #s(literal 1 binary64) (.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)))) (sqrt.f64 (/.f64 (*.f64 (/.f64 d l) d) h)))
(.f64 (-.f64 #s(literal 1 binary64) (.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)))) (sqrt.f64 (/.f64 (/.f64 (*.f64 d d) h) l)))
(.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 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 (sqrt.f64 (/.f64 d l)) (sqrt.f64 (/.f64 d h))) (-.f64 #s(literal 1 binary64) (/.f64 #s(approx (* (* (pow (/ (* D M) (* 2 d)) 2) 1/2) h) (/.f64 (.f64 #s(literal 1/8 binary64) (.f64 (pow.f64 (.f64 M D) #s(literal 2 binary64)) h)) (.f64 d d))) l)))
(.f64 (.f64 (sqrt.f64 (/.f64 d l)) (sqrt.f64 (/.f64 d h))) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (pow.f64 (/.f64 (.f64 D M) (.f64 #s(literal 2 binary64) 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))) #s(approx (* (- (pow D -2) (* (* (/ (* M M) (* d d)) (/ h l)) 1/8)) (* D D)) (.f64 (.f64 (ratio-of-squares.f64 D d) (/.f64 (.f64 (.f64 M M) h) l)) #s(literal -1/8 binary64)))))
(.f64 (.f64 (sqrt.f64 (/.f64 d l)) (/.f64 (sqrt.f64 d) (sqrt.f64 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 (ratio-of-squares.f64 M d) (/.f64 h l)) #s(literal 1/8 binary64))) (.f64 D D))))
(.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 (.f64 (sqrt.f64 (/.f64 d l)) (sqrt.f64 (/.f64 d h))) (-.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 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))) #s(approx (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (.f64 #s(approx (- (pow D -2) ( (* (/ (* M M) (* d d)) (/ h l)) 1/8)) (.f64 (-.f64 (/.f64 (pow.f64 D #s(literal -2 binary64)) h) (.f64 (/.f64 (ratio-of-squares.f64 M d) l) #s(literal 1/8 binary64))) h)) (*.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)) (pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64))) (/.f64 h l))))

Outputs

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

Calls

2 calls:

15.0ms	d
12.0ms	l

Results

Accuracy	Segments	Branch
72.5%	2	`l`
69.2%	1	`d`

Compiler

Compiled 2 to 10 computations (-400% saved)

regimes17.0ms (0.1%)

Memory

-21.7MiB live, 23.7MiB allocated; 4ms collecting garbage

Counts

39 → 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 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 (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) 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 (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) (.f64 (sqrt.f64 l) (sqrt.f64 h))) d))
(.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))) #s(approx (* (- (pow D -2) (* (* (/ (* M M) (* d d)) (/ h l)) 1/8)) (* D D)) #s(literal 1 binary64))))
(.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 #s(approx (- (pow D -2) ( (* (/ (* M M) (* d d)) (/ h l)) 1/8)) (.f64 (.f64 (ratio-of-squares.f64 M d) (/.f64 h l)) #s(literal -1/8 binary64))) (*.f64 D D))))
(.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 (ratio-of-squares.f64 D d) (/.f64 (.f64 (.f64 M M) h) l)) #s(literal -1/8 binary64))))
(.f64 (.f64 (sqrt.f64 (/.f64 d l)) (sqrt.f64 (/.f64 d h))) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 #s(approx ( (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (.f64 (.f64 (*.f64 D D) (ratio-of-squares.f64 M d)) #s(literal 1/8 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 (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)))) (neg.f64 (.f64 (pow.f64 (.f64 l h) #s(literal -1/2 binary64)) d)))
(.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 #s(approx (- (pow D -2) ( (* (/ (* M M) (* d d)) (/ h l)) 1/8)) (/.f64 (-.f64 (ratio-of-squares.f64 d D) (.f64 (/.f64 (.f64 (.f64 M M) h) l) #s(literal 1/8 binary64))) (.f64 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 (sqrt.f64 (pow.f64 (.f64 l h) #s(literal -1 binary64))) d))
#s(approx (* (pow (* (/ d h) (/ d l)) 1/2) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (neg.f64 (.f64 (sqrt.f64 (pow.f64 (.f64 h l) #s(literal -1 binary64))) d)))
(.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 #s(approx (- (pow D -2) ( (* (/ (* M M) (* d d)) (/ h l)) 1/8)) (/.f64 (-.f64 (/.f64 l (.f64 D D)) (/.f64 (.f64 #s(literal 1/8 binary64) (.f64 (.f64 M M) h)) (.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 #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))
#s(approx (* (pow (* (/ d h) (/ d l)) 1/2) (- 1 (* (* 1/2 (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (neg.f64 (*.f64 (sqrt.f64 (/.f64 (pow.f64 h #s(literal -1 binary64)) l)) d)))
(.f64 (.f64 (sqrt.f64 (/.f64 d l)) (sqrt.f64 (/.f64 d h))) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (.f64 (.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d)) (*.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d))) #s(literal 1/2 binary64)) h) l)))
(.f64 (.f64 (sqrt.f64 (/.f64 d l)) (sqrt.f64 (/.f64 d h))) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (.f64 (.f64 (/.f64 D d) (/.f64 M #s(literal 2 binary64))) (*.f64 (/.f64 D d) (/.f64 M #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 #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))))))
(.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 #s(approx (- (pow D -2) ( (* (/ (* M M) (* d d)) (/ h l)) 1/8)) (pow.f64 D #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))) #s(approx (* (- (pow D -2) (* (* (/ (* M M) (* d d)) (/ h l)) 1/8)) (* D D)) #s(literal 1 binary64))))
(.f64 (sqrt.f64 (.f64 (/.f64 d l) (/.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 (ratio-of-squares.f64 M d) (.f64 (/.f64 h l) #s(literal 1/8 binary64)))) (.f64 D D))))
(.f64 (sqrt.f64 (.f64 (/.f64 d l) (/.f64 d h))) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (pow.f64 (/.f64 (.f64 D M) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) #s(literal 1/2 binary64)) h) l)))
(.f64 (-.f64 #s(literal 1 binary64) (.f64 (/.f64 h l) (.f64 (pow.f64 (.f64 (/.f64 D d) #s(approx (/ M 2) (.f64 #s(literal 1/2 binary64) M))) #s(literal 2 binary64)) #s(literal 1/2 binary64)))) (sqrt.f64 (.f64 (/.f64 d l) (/.f64 d h))))
(.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 (ratio-of-squares.f64 M d) (.f64 (/.f64 h l) #s(literal 1/8 binary64)))) (.f64 D D)))))
(.f64 (sqrt.f64 (/.f64 d l)) (.f64 (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 (ratio-of-squares.f64 M d) (.f64 (/.f64 h l) #s(literal 1/8 binary64)))) (.f64 D D)))))
(.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 (-.f64 (pow.f64 D #s(literal -2 binary64)) (.f64 (ratio-of-squares.f64 M d) (.f64 (/.f64 h l) #s(literal 1/8 binary64)))) D) D)))
(.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 (ratio-of-squares.f64 M d) (/.f64 h l)) #s(literal 1/8 binary64))) (.f64 D D))))
(.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 (.f64 (ratio-of-squares.f64 M d) h) l) #s(literal 1/8 binary64))) (.f64 D D))))
(.f64 (sqrt.f64 (.f64 (/.f64 d l) (/.f64 d h))) (-.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 h l) (.f64 (pow.f64 (.f64 (/.f64 D d) (/.f64 M #s(literal 2 binary64))) #s(literal 2 binary64)) #s(literal 1/2 binary64)))) (sqrt.f64 (*.f64 (/.f64 d l) (/.f64 d h))))
(.f64 (-.f64 #s(literal 1 binary64) (.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)))) (sqrt.f64 (/.f64 (*.f64 (/.f64 d l) d) h)))
(.f64 (-.f64 #s(literal 1 binary64) (.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)))) (sqrt.f64 (/.f64 (/.f64 (*.f64 d d) h) l)))
(.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 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 (sqrt.f64 (/.f64 d l)) (sqrt.f64 (/.f64 d h))) (-.f64 #s(literal 1 binary64) (/.f64 #s(approx (* (* (pow (/ (* D M) (* 2 d)) 2) 1/2) h) (/.f64 (.f64 #s(literal 1/8 binary64) (.f64 (pow.f64 (.f64 M D) #s(literal 2 binary64)) h)) (.f64 d d))) l)))

Outputs

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

Calls

1 calls:

10.0ms

Results

Accuracy	Segments	Branch
72.5%	2	`l`

Compiler

Compiled 1 to 5 computations (-400% saved)

regimes43.0ms (0.4%)

Memory

29.0MiB live, 75.0MiB allocated; 5ms collecting garbage

Counts

19 → 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 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 (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) 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 (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) (.f64 (sqrt.f64 l) (sqrt.f64 h))) d))
(.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))) #s(approx (* (- (pow D -2) (* (* (/ (* M M) (* d d)) (/ h l)) 1/8)) (* D D)) #s(literal 1 binary64))))
(.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 #s(approx (- (pow D -2) ( (* (/ (* M M) (* d d)) (/ h l)) 1/8)) (.f64 (.f64 (ratio-of-squares.f64 M d) (/.f64 h l)) #s(literal -1/8 binary64))) (*.f64 D D))))
(.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 (ratio-of-squares.f64 D d) (/.f64 (.f64 (.f64 M M) h) l)) #s(literal -1/8 binary64))))
(.f64 (.f64 (sqrt.f64 (/.f64 d l)) (sqrt.f64 (/.f64 d h))) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 #s(approx ( (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (.f64 (.f64 (*.f64 D D) (ratio-of-squares.f64 M d)) #s(literal 1/8 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 (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)))) (neg.f64 (.f64 (pow.f64 (.f64 l h) #s(literal -1/2 binary64)) d)))
(.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 #s(approx (- (pow D -2) ( (* (/ (* M M) (* d d)) (/ h l)) 1/8)) (/.f64 (-.f64 (ratio-of-squares.f64 d D) (.f64 (/.f64 (.f64 (.f64 M M) h) l) #s(literal 1/8 binary64))) (.f64 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 (sqrt.f64 (pow.f64 (.f64 l h) #s(literal -1 binary64))) d))
#s(approx (* (pow (* (/ d h) (/ d l)) 1/2) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (neg.f64 (.f64 (sqrt.f64 (pow.f64 (.f64 h l) #s(literal -1 binary64))) d)))
(.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 #s(approx (- (pow D -2) ( (* (/ (* M M) (* d d)) (/ h l)) 1/8)) (/.f64 (-.f64 (/.f64 l (.f64 D D)) (/.f64 (.f64 #s(literal 1/8 binary64) (.f64 (.f64 M M) h)) (.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 #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))
#s(approx (* (pow (* (/ d h) (/ d l)) 1/2) (- 1 (* (* 1/2 (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (neg.f64 (*.f64 (sqrt.f64 (/.f64 (pow.f64 h #s(literal -1 binary64)) l)) d)))

Outputs

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

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

Calls

7 calls:

9.0ms	d
6.0ms	D
6.0ms	M
5.0ms	l
5.0ms	h

Results

Accuracy	Segments	Branch
56.6%	1	`(*.f64 M D)`
56.6%	1	`D`
64.4%	3	`d`
60.2%	2	`M`
66.4%	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))))`
56.6%	1	`h`
62.2%	2	`l`

Compiler

Compiled 43 to 53 computations (-23.3% saved)

regimes4.0ms (0%)

Memory

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

Counts

11 → 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 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 (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) 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 (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) (.f64 (sqrt.f64 l) (sqrt.f64 h))) d))
(.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))) #s(approx (* (- (pow D -2) (* (* (/ (* M M) (* d d)) (/ h l)) 1/8)) (* D D)) #s(literal 1 binary64))))
(.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 #s(approx (- (pow D -2) ( (* (/ (* M M) (* d d)) (/ h l)) 1/8)) (.f64 (.f64 (ratio-of-squares.f64 M d) (/.f64 h l)) #s(literal -1/8 binary64))) (*.f64 D D))))
(.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 (ratio-of-squares.f64 D d) (/.f64 (.f64 (.f64 M M) h) l)) #s(literal -1/8 binary64))))
(.f64 (.f64 (sqrt.f64 (/.f64 d l)) (sqrt.f64 (/.f64 d h))) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 #s(approx ( (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (.f64 (.f64 (*.f64 D D) (ratio-of-squares.f64 M d)) #s(literal 1/8 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 (pow.f64 (.f64 l h) #s(literal -1/2 binary64)) d))

Outputs

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

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

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
64.3%	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 35 to 22 computations (37.1% saved)

regimes4.0ms (0%)

Memory

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

Counts

9 → 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 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 (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) 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 (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) (.f64 (sqrt.f64 l) (sqrt.f64 h))) d))
(.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))) #s(approx (* (- (pow D -2) (* (* (/ (* M M) (* d d)) (/ h l)) 1/8)) (* D D)) #s(literal 1 binary64))))
(.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 #s(approx (- (pow D -2) ( (* (/ (* M M) (* d d)) (/ h l)) 1/8)) (.f64 (.f64 (ratio-of-squares.f64 M d) (/.f64 h l)) #s(literal -1/8 binary64))) (*.f64 D D))))
(.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 (ratio-of-squares.f64 D d) (/.f64 (.f64 (.f64 M M) h) l)) #s(literal -1/8 binary64))))

Outputs

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

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

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
63.2%	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 35 to 22 computations (37.1% saved)

regimes24.0ms (0.2%)

Memory

-11.8MiB live, 39.6MiB allocated; 8ms collecting garbage

Counts

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

Outputs

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

Calls

7 calls:

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))))
3.0ms	d
3.0ms	D
3.0ms	h
3.0ms	M

Results

Accuracy	Segments	Branch
37.1%	2	`(*.f64 M D)`
35.4%	1	`D`
41.1%	2	`h`
37.5%	2	`M`
41.1%	2	`l`
41.1%	2	`d`
39.7%	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 43 to 53 computations (-23.3% saved)

regimes20.0ms (0.2%)

Memory

-10.1MiB live, 36.0MiB allocated; 4ms collecting garbage

Counts

6 → 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 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 (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) 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 (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) (.f64 (sqrt.f64 l) (sqrt.f64 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 (*.f64 #s(literal 1 binary64) d) (sqrt.f64 (*.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 binary64) (*.f64 (sqrt.f64 l) (sqrt.f64 h))) d))

Calls

7 calls:

6.0ms	h
2.0ms	d
2.0ms	D
2.0ms	M
2.0ms	l

Results

Accuracy	Segments	Branch
23.7%	1	`D`
23.7%	1	`(*.f64 M D)`
25.4%	2	`M`
26.9%	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))))`
27.7%	2	`h`
27.7%	2	`l`
27.7%	2	`d`

Compiler

Compiled 43 to 53 computations (-23.3% saved)

regimes11.0ms (0.1%)

Memory

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

Counts

5 → 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 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 (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) 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 (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

5 calls:

2.0ms	d
2.0ms	h
2.0ms	M
2.0ms	l
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.7%	1	`M`
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	`h`
23.7%	1	`l`
23.7%	1	`d`

Compiler

Compiled 39 to 42 computations (-7.7% saved)

regimes17.0ms (0.2%)

Memory

-16.1MiB live, 30.2MiB allocated; 5ms 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 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 (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) h) 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 (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) h) l)) d))

Calls

7 calls:

5.0ms	l
2.0ms	D
2.0ms	d
2.0ms	h
2.0ms	M

Results

Accuracy	Segments	Branch
23.7%	1	`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	`M`
23.7%	1	`(*.f64 M D)`
23.7%	1	`d`
23.7%	1	`h`
23.7%	1	`l`

Compiler

Compiled 43 to 53 computations (-23.3% saved)

regimes15.0ms (0.1%)

Memory

-17.6MiB live, 28.6MiB allocated; 4ms 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 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)))) (/.f64 (.f64 #s(literal 1 binary64) d) (sqrt.f64 (.f64 h l))))

Calls

7 calls:

5.0ms	M
2.0ms	l
2.0ms	D
2.0ms	h
2.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	`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)

regimes9.0ms (0.1%)

Memory

24.3MiB live, 24.3MiB allocated; 0ms 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:

1.0ms	l
1.0ms	d
1.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	D
1.0ms	M

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)

bsearch105.0ms (0.9%)

Memory

-6.7MiB live, 185.6MiB allocated; 13ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
55.0ms	-6.83037367744018e-307	2.4734747563797705e-307
40.0ms	-1.743687691826462e-27	-4.290639907610729e-28

Samples

42.0ms	248×	0	invalid
35.0ms	224×	0	valid

Compiler

Compiled 940 to 766 computations (18.5% saved)

Precisions

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

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

ival-mult: 16.0ms (26.5% of total)

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

ival-pow2: 10.0ms (16.6% of total)

ival-sub: 2.0ms (3.3% of total)

exact: 1.0ms (1.7% of total)

adjust: 0.0ms (0% of total)

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

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

bsearch105.0ms (0.9%)

Memory

10.5MiB live, 153.7MiB allocated; 11ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
55.0ms	2.9427377760568497e-308	1.223793528432316e-298
39.0ms	-1.0217322222706763e-101	-4.7836035694579645e-104

Samples

40.0ms	256×	0	valid
36.0ms	253×	0	invalid

Compiler

Compiled 1 375 to 983 computations (28.5% saved)

Precisions

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

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

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

ival-pow: 10.0ms (17.5% of total)

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

ival-sub: 2.0ms (3.5% of total)

exact: 1.0ms (1.8% of total)

adjust: 0.0ms (0% of total)

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

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

bsearch77.0ms (0.7%)

Memory

-65.7MiB live, 73.8MiB allocated; 39ms collecting garbage

Algorithm

1×	binary-search

Stop Event

1×	narrow-enough

Steps

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

Samples

22.0ms	128×	0	valid
15.0ms	106×	0	invalid

Compiler

Compiled 614 to 454 computations (26.1% saved)

Precisions

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

ival-mult: 10.0ms (34.3% of total)

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

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

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

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

3.2MiB live, 3.2MiB 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)

bsearch1.0ms (0%)

Memory

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

Algorithm

2×	left-value

Steps

Time	Left	Right
0.0ms	1.1981816373873267e+245	+inf
0.0ms	-6.349408711149091e-150	-0.0

Compiler

Compiled 38 to 30 computations (21.1% saved)

bsearch0.0ms (0%)

Memory

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

Algorithm

1×	left-value

Steps

Time	Left	Right
0.0ms	-6.349408711149091e-150	-0.0

Compiler

Compiled 38 to 30 computations (21.1% saved)

bsearch0.0ms (0%)

Memory

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

Algorithm

1×	left-value

Steps

Time	Left	Right
0.0ms	-6.349408711149091e-150	-0.0

Compiler

Compiled 38 to 30 computations (21.1% saved)

bsearch40.0ms (0.4%)

Memory

14.8MiB live, 61.4MiB allocated; 3ms collecting garbage

Algorithm

1×	binary-search

Stop Event

1×	narrow-enough

Steps

Time	Left	Right
36.0ms	4.873681125741713e-238	3.205975975366213e-236

Samples

19.0ms	112×	0	valid
10.0ms	82×	0	invalid

Compiler

Compiled 724 to 499 computations (31.1% saved)

Precisions

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

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

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

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

ival-pow: 4.0ms (17.9% of total)

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

adjust: 0.0ms (0% of total)

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

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

exact: 0.0ms (0% of total)

bsearch44.0ms (0.4%)

Memory

-30.2MiB live, 63.3MiB allocated; 6ms collecting garbage

Algorithm

1×	binary-search

Stop Event

1×	narrow-enough

Steps

Time	Left	Right
38.0ms	3.757728059074835e-125	2.014434596990263e-123

Samples

17.0ms	112×	0	valid
13.0ms	96×	0	invalid

Compiler

Compiled 661 to 443 computations (33% saved)

Precisions

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

ival-div: 7.0ms (32.7% of total)

ival-mult: 7.0ms (32.7% of total)

ival-pow: 4.0ms (18.7% of total)

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

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

simplify70.0ms (0.6%)

Memory

39.2MiB live, 88.8MiB allocated; 4ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	186	1136
1	281	1136
2	664	1136
3	3268	1136

Stop Event

1×	node limit

Calls

Call 1

Inputs
(if (<=.f64 l #s(literal -1742245718635205/1393796574908163946345982392040522594123776 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)))) (if (<=.f64 l #s(literal -101201126653655/202402253307310618352495346718917307049556649764142118356901358027430339567995346891960383701437124495187077864316811911389808737385793476867013399940738509921517424276566361364466907742093216341239767678472745068562007483424692698618103355649159556340810056512358769552333414615230502532186327508646006263307707741093494784 binary64)) (.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)) #s(approx (pow (* (/ d h) (/ d l)) 1/2) (.f64 (pow.f64 (.f64 h l) #s(literal -1/2 binary64)) (neg.f64 d)))) (.f64 (.f64 (sqrt.f64 (/.f64 d l)) (/.f64 (sqrt.f64 d) (sqrt.f64 h))) (-.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)))))
(if (<=.f64 d #s(literal -3873374817130363/80695308690215893426747474125094121072803306025913234775958104891895238188026287332176417290004307232371974124148359168 binary64)) (.f64 (.f64 (sqrt.f64 (/.f64 d l)) (sqrt.f64 (/.f64 d h))) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (pow.f64 (/.f64 (.f64 D M) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) #s(literal 1/2 binary64)) h) l))) (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 D M) (.f64 D M)) #s(literal -1 binary64)) d)) (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64)))))) (.f64 (.f64 (sqrt.f64 (/.f64 d l)) (/.f64 (sqrt.f64 d) (sqrt.f64 h))) (-.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)))))
(if (<=.f64 l #s(literal 47999999999999997038090838744094605471098658389967992250133113563059532531258004665923867455532516247227867839805238159175302808338432 binary64)) (.f64 (.f64 (sqrt.f64 (/.f64 d l)) (sqrt.f64 (/.f64 d h))) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (pow.f64 (/.f64 (.f64 D M) (.f64 #s(literal 2 binary64) 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 #s(literal 1 binary64) (.f64 (sqrt.f64 l) (sqrt.f64 h))) d)))
(if (<=.f64 l #s(literal 47999999999999997038090838744094605471098658389967992250133113563059532531258004665923867455532516247227867839805238159175302808338432 binary64)) (.f64 (.f64 (sqrt.f64 (/.f64 d l)) (sqrt.f64 (/.f64 d h))) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (.f64 (.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d)) (.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d))) #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 #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)) (.f64 (.f64 (sqrt.f64 (/.f64 d l)) (sqrt.f64 (/.f64 d h))) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 #s(approx ( (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (.f64 (.f64 (.f64 D D) (ratio-of-squares.f64 M d)) #s(literal 1/8 binary64))) h) 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 200000000000000008865591331916694877000857933217272512160395875661926954165237823719168356730340153384902021777125683944200820531246613453659458355377824296650910559620209942066205153823999633833272476105465504214545753911342860863491894855860224 binary64)) (.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))) #s(approx (* (- (pow D -2) (* (* (/ (* M M) (* d d)) (/ h l)) 1/8)) (* D D)) #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 (pow.f64 (.f64 l h) #s(literal -1/2 binary64)) 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)) (.f64 (.f64 (sqrt.f64 (/.f64 d l)) (sqrt.f64 (/.f64 d h))) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 #s(approx ( (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (.f64 (.f64 (.f64 D D) (ratio-of-squares.f64 M d)) #s(literal 1/8 binary64))) h) l))) (.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))) #s(approx (* (- (pow D -2) (* (* (/ (* M M) (* d d)) (/ h l)) 1/8)) (* D D)) #s(literal 1 binary64)))))
(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)) (.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 #s(approx (- (pow D -2) ( (* (/ (* M M) (* d d)) (/ h l)) 1/8)) (.f64 (.f64 (ratio-of-squares.f64 M d) (/.f64 h l)) #s(literal -1/8 binary64))) (.f64 D D)))) (.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))) #s(approx (* (- (pow D -2) (* (* (/ (* M M) (* d d)) (/ h l)) 1/8)) (* D D)) #s(literal 1 binary64)))))
(if (<=.f64 d #s(literal 6598403462816631/7331559403129590068331208687020758653624765228075687047537011123791632385370343464792392772051104864109916034360063928339045596353810784435313926666640532382851295822842678298180301122938618566718730242107326783353838221723324821405531849499257419595776 binary64)) (.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))) #s(approx (* (- (pow D -2) (* (* (/ (* M M) (* d d)) (/ h l)) 1/8)) (* D D)) #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) (.f64 (sqrt.f64 l) (sqrt.f64 h))) d)))
(if (<=.f64 d #s(literal 5716092316252427/11908525658859223294760121268437066290850060053501019099651935423375594096449911575776314174894302258147533153997065059263030913083222523904 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 (.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 binary64) (.f64 (sqrt.f64 l) (sqrt.f64 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 (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) 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 #s(literal 1 binary64) d) (sqrt.f64 (.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 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 l h))) d))

Outputs
(if (<=.f64 l #s(literal -1742245718635205/1393796574908163946345982392040522594123776 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)))) (if (<=.f64 l #s(literal -101201126653655/202402253307310618352495346718917307049556649764142118356901358027430339567995346891960383701437124495187077864316811911389808737385793476867013399940738509921517424276566361364466907742093216341239767678472745068562007483424692698618103355649159556340810056512358769552333414615230502532186327508646006263307707741093494784 binary64)) (.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)) #s(approx (pow (* (/ d h) (/ d l)) 1/2) (.f64 (pow.f64 (.f64 h l) #s(literal -1/2 binary64)) (neg.f64 d)))) (.f64 (.f64 (sqrt.f64 (/.f64 d l)) (/.f64 (sqrt.f64 d) (sqrt.f64 h))) (-.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)))))
(if (<=.f64 d #s(literal -3873374817130363/80695308690215893426747474125094121072803306025913234775958104891895238188026287332176417290004307232371974124148359168 binary64)) (.f64 (.f64 (sqrt.f64 (/.f64 d l)) (sqrt.f64 (/.f64 d h))) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (pow.f64 (/.f64 (.f64 D M) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) #s(literal 1/2 binary64)) h) l))) (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 D M) (.f64 D M)) #s(literal -1 binary64)) d)) (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64)))))) (.f64 (.f64 (sqrt.f64 (/.f64 d l)) (/.f64 (sqrt.f64 d) (sqrt.f64 h))) (-.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)))))
(if (<=.f64 l #s(literal 47999999999999997038090838744094605471098658389967992250133113563059532531258004665923867455532516247227867839805238159175302808338432 binary64)) (.f64 (.f64 (sqrt.f64 (/.f64 d l)) (sqrt.f64 (/.f64 d h))) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (pow.f64 (/.f64 (.f64 D M) (.f64 #s(literal 2 binary64) 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 #s(literal 1 binary64) (.f64 (sqrt.f64 l) (sqrt.f64 h))) d)))
(if (<=.f64 l #s(literal 47999999999999997038090838744094605471098658389967992250133113563059532531258004665923867455532516247227867839805238159175302808338432 binary64)) (.f64 (.f64 (sqrt.f64 (/.f64 d l)) (sqrt.f64 (/.f64 d h))) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (.f64 (.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d)) (.f64 (/.f64 D #s(literal 2 binary64)) (/.f64 M d))) #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 #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)) (.f64 (.f64 (sqrt.f64 (/.f64 d l)) (sqrt.f64 (/.f64 d h))) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 #s(approx ( (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (.f64 (.f64 (.f64 D D) (ratio-of-squares.f64 M d)) #s(literal 1/8 binary64))) h) 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 200000000000000008865591331916694877000857933217272512160395875661926954165237823719168356730340153384902021777125683944200820531246613453659458355377824296650910559620209942066205153823999633833272476105465504214545753911342860863491894855860224 binary64)) (.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))) #s(approx (* (- (pow D -2) (* (* (/ (* M M) (* d d)) (/ h l)) 1/8)) (* D D)) #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 (pow.f64 (.f64 l h) #s(literal -1/2 binary64)) 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)) (.f64 (.f64 (sqrt.f64 (/.f64 d l)) (sqrt.f64 (/.f64 d h))) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 #s(approx ( (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (.f64 (.f64 (.f64 D D) (ratio-of-squares.f64 M d)) #s(literal 1/8 binary64))) h) 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 200000000000000008865591331916694877000857933217272512160395875661926954165237823719168356730340153384902021777125683944200820531246613453659458355377824296650910559620209942066205153823999633833272476105465504214545753911342860863491894855860224 binary64)) (.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))) #s(approx (* (- (pow D -2) (* (* (/ (* M M) (* d d)) (/ h l)) 1/8)) (* D D)) #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 (pow.f64 (.f64 l h) #s(literal -1/2 binary64)) (neg.f64 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)) (.f64 (.f64 (sqrt.f64 (/.f64 d l)) (sqrt.f64 (/.f64 d h))) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 #s(approx ( (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (.f64 (.f64 (.f64 D D) (ratio-of-squares.f64 M d)) #s(literal 1/8 binary64))) h) l))) (.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))) #s(approx (* (- (pow D -2) (* (* (/ (* M M) (* d d)) (/ h l)) 1/8)) (* D D)) #s(literal 1 binary64)))))
(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)) (.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 #s(approx (- (pow D -2) ( (* (/ (* M M) (* d d)) (/ h l)) 1/8)) (.f64 (.f64 (ratio-of-squares.f64 M d) (/.f64 h l)) #s(literal -1/8 binary64))) (.f64 D D)))) (.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))) #s(approx (* (- (pow D -2) (* (* (/ (* M M) (* d d)) (/ h l)) 1/8)) (* D D)) #s(literal 1 binary64)))))
(if (<=.f64 d #s(literal 6598403462816631/7331559403129590068331208687020758653624765228075687047537011123791632385370343464792392772051104864109916034360063928339045596353810784435313926666640532382851295822842678298180301122938618566718730242107326783353838221723324821405531849499257419595776 binary64)) (.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))) #s(approx (* (- (pow D -2) (* (* (/ (* M M) (* d d)) (/ h l)) 1/8)) (* D D)) #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) (.f64 (sqrt.f64 l) (sqrt.f64 h))) d)))
(if (<=.f64 d #s(literal 5716092316252427/11908525658859223294760121268437066290850060053501019099651935423375594096449911575776314174894302258147533153997065059263030913083222523904 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 (.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 binary64) (.f64 (sqrt.f64 l) (sqrt.f64 h))) d)))
(if (<=.f64 d #s(literal 5716092316252427/11908525658859223294760121268437066290850060053501019099651935423375594096449911575776314174894302258147533153997065059263030913083222523904 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 (sqrt.f64 (.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 binary64) (.f64 (sqrt.f64 l) (sqrt.f64 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 (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) 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 #s(literal 1 binary64) d) (sqrt.f64 (.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 d (sqrt.f64 (*.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 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 l h))) d))

derivations107.0ms (1%)

Memory

6.9MiB live, 148.0MiB allocated; 6ms collecting garbage

Stop Event

1×

fuel

Samples

10.0ms

256×

valid

Compiler

Compiled 1 239 to 188 computations (84.8% saved)

Precisions

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

ival-mult: 3.0ms (56.8% of total)

ival-div: 2.0ms (37.8% of total)

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

adjust: 0.0ms (0% of total)

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

preprocess635.0ms (5.6%)

Memory

-9.0MiB live, 982.1MiB allocated; 154ms collecting garbage

Remove

(abs D)

(abs M)

Samples

357.0ms

8 256×

valid

Compiler

Compiled 4 164 to 1 380 computations (66.9% saved)

Precisions

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

ival-mult: 118.0ms (64.6% of total)

ival-div: 54.0ms (29.6% of total)

ival-true: 5.0ms (2.7% of total)

ival-assert: 3.0ms (1.6% of total)

adjust: 2.0ms (1.1% of total)

end0.0ms (0%)

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

start0.0ms (0%)

analyze495.0ms (4.4%)

sample5.6s (49.8%)

explain321.0ms (2.9%)

preprocess156.0ms (1.4%)

eval0.0ms (0%)

prune1.0ms (0%)

series114.0ms (1%)

rewrite63.0ms (0.6%)

eval45.0ms (0.4%)

prune180.0ms (1.6%)

series158.0ms (1.4%)

rewrite87.0ms (0.8%)

eval319.0ms (2.8%)

prune450.0ms (4%)

series128.0ms (1.1%)

rewrite102.0ms (0.9%)

eval371.0ms (3.3%)

prune482.0ms (4.3%)

series98.0ms (0.9%)

rewrite71.0ms (0.6%)

eval57.0ms (0.5%)

prune318.0ms (2.8%)

regimes187.0ms (1.7%)

regimes68.0ms (0.6%)

regimes30.0ms (0.3%)

regimes17.0ms (0.1%)

regimes43.0ms (0.4%)

regimes4.0ms (0%)

regimes4.0ms (0%)

regimes24.0ms (0.2%)

regimes20.0ms (0.2%)

regimes11.0ms (0.1%)

regimes17.0ms (0.2%)

regimes15.0ms (0.1%)

regimes9.0ms (0.1%)

bsearch105.0ms (0.9%)

bsearch105.0ms (0.9%)

bsearch77.0ms (0.7%)

bsearch2.0ms (0%)

bsearch1.0ms (0%)

bsearch0.0ms (0%)

bsearch0.0ms (0%)

bsearch40.0ms (0.4%)

bsearch44.0ms (0.4%)

simplify70.0ms (0.6%)

derivations107.0ms (1%)

preprocess635.0ms (5.6%)

end0.0ms (0%)

Profiling