Metrics for Henrywood and Agarwal, Equation (12)

start0.0ms (0%)

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

analyze472.0ms (5.1%)

Memory

27.5MiB live, 611.9MiB allocated; 66ms 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)

sample4.4s (47.5%)

Memory

39.9MiB live, 6 875.2MiB allocated; 1.6s collecting garbage

Samples

1.7s	12 924×	0	invalid
1.6s	8 255×	0	valid
0.0ms	1×	1	valid

Precisions

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

ival-pow: 954.0ms (38.6% of total)

ival-mult!: 658.0ms (26.6% of total)

ival-div!: 503.0ms (20.3% of total)

ival-pow2: 304.0ms (12.3% of total)

ival-sub!: 52.0ms (2.1% of total)

adjust: 4.0ms (0.2% of total)

Bogosity

explain297.0ms (3.2%)

Memory

-26.3MiB live, 547.3MiB allocated; 27ms collecting garbage

FPErrors

Click to see full error table

Ground Truth	Example	Underpredictions	Example	Subexpression
68	-	4	(1.160419211001722e-206 4.309377807035449e+114 5.258195586026097e+250 4.0484739107711617e+291 -6.527193518793059e-74)	`(pow.f64 (/.f64 d h) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)))`
68	-	2	(1.557583001417545e-134 1.5714866874320334e-102 3.1202906349401807e+184 -3.11170082172854e+37 -1.152507928592292e-213)	`(pow.f64 (/.f64 d l) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)))`
31	-	3	(1.9452970437525028e-97 5.876609564010152e-41 1.7881908675360218e-295 -1.815221174852722e-241 -1.8423381866875174e-14)	`(.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))`
31	-	1	(-5.689628365625465e-75 -1.4706333220217516e+280 -2.56919286120048e+200 -1.9431921551080618e+239 -4.394705999071339e-200)	`(.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	-	1	(-4.661047303232923e-51 -8.117537327435784e-185 -6.348887547830648e-158 1.5223044248404242e-123 7.1298472507393505e-189)	`(/.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 l) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)))`	uflow-rescue	37	0
↳	`(/.f64 d l)`	underflow	37
`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	29	0
↳	`(/.f64 d h)`	overflow	29
`pow.f64`	`(pow.f64 (/.f64 d l) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)))`	oflow-rescue	29	0
↳	`(/.f64 d l)`	overflow	29
`*.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**	15	0
↳	`(/.f64 d h)`	underflow	35
↳	`(/.f64 d l)`	underflow	37
↳	`(*.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	22
↳	`(pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64))`	overflow	78
↳	`(.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	78
↳	`(/.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	90
↳	`(.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	90
↳	`(*.f64 M D)`	overflow	29
↳	`(/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d))`	overflow	44
`*.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**	11	0
`/.f64`	`(/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d))`	o/n	11	0
↳	`(*.f64 M D)`	overflow	29
`*.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**	6	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**	4	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**	3	0
↳	`(pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64))`	overflow	78
↳	`(.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	78
↳	`(*.f64 M D)`	overflow	29
↳	`(/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d))`	overflow	44
↳	`(/.f64 h l)`	underflow	28
`*.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))`	*uo**	1	0
↳	`(pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64))`	underflow	80
↳	`(.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)))`	underflow	80
↳	`(*.f64 M D)`	underflow	33
↳	`(/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d))`	underflow	42
↳	`(/.f64 h l)`	overflow	31
`/.f64`	`(/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d))`	u/n	1	0
↳	`(*.f64 M D)`	underflow	33

Confusion

	Predicted +	Predicted -
+	85	8
-	33	130

Precision

0.7203389830508474

Recall

0.9139784946236559

Confusion?

	Predicted +	Predicted Maybe	Predicted -
+	85	0	8
-	33	0	130

Precision?

0.7203389830508474

Recall?

0.9139784946236559

Freqs

test

number	freq
0	138
1	73
2	27
3	17
4	1

Total Confusion?

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

Precision?

1.0

Recall?

1.0

Samples

81.0ms

512×

valid

Compiler

Compiled 347 to 70 computations (79.8% saved)

Precisions

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

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

ival-div!: 16.0ms (29.6% of total)

ival-mult!: 12.0ms (22.2% of total)

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

ival-sub!: 1.0ms (1.8% of total)

adjust: 0.0ms (0% of total)

preprocess146.0ms (1.6%)

Memory

26.7MiB live, 165.9MiB 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	26

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 (fma.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 h l)) (pow.f64 (*.f64 (/.f64 (/.f64 M d) #s(literal 2 binary64)) D) #s(literal 2 binary64)) #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.5MiB live, 1.5MiB allocated; 0ms collecting garbage

Alt Table

Click to see full alt table

Status	Accuracy	Program
▶	65.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)))) (-.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

▶

65.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)))) (-.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)

series85.0ms (0.9%)

Memory

12.8MiB live, 148.7MiB allocated; 10ms 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
12.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))
6.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))
6.0ms	M	@	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))

rewrite62.0ms (0.7%)

Memory

-18.9MiB live, 80.7MiB allocated; 13ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

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

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

eval79.0ms (0.9%)

Memory: -19.0MiB live, 27.2MiB allocated; 3ms collecting garbage
Compiler: Compiled 4 853 to 488 computations (89.9% saved)

prune22.0ms (0.2%)

Memory

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

Pruning

24 alts after pruning (24 fresh and 0 done)

	Pruned	Kept	Total
New	94	24	118
Fresh	0	0	0
Picked	1	0	1
Done	0	0	0
Total	95	24	119

Accuracy

92.3%

Counts

119 → 24

Alt Table

Click to see full alt table

Status	Accuracy	Program
	55.2%	(.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))))
	63.5%	(.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))))
▶	66.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 (pow.f64 (*.f64 (/.f64 M #s(literal 2 binary64)) (/.f64 D d)) #s(literal 2 binary64)) #s(literal 1/2 binary64)) h) l)))
	23.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 #s(literal -1/8 binary64) (.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) h)) (.f64 (*.f64 d d) l))))
	51.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 (fma.f64 (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) (.f64 (.f64 d d) l)) #s(literal -1/8 binary64) (pow.f64 h #s(literal -1 binary64))) h)))
▶	38.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 (pow.f64 D #s(literal -2 binary64)) (/.f64 (.f64 #s(literal 1/8 binary64) (.f64 (.f64 M M) h)) (.f64 (.f64 d d) l))) (*.f64 D D))))
	33.1%	(.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))))
	65.0%	(.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))))
	36.7%	(.f64 (.f64 (/.f64 (sqrt.f64 d) (sqrt.f64 h)) (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))))
	65.0%	(.f64 (.f64 (.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 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))))
	65.0%	(.f64 (.f64 (sqrt.f64 (/.f64 d l)) (sqrt.f64 (/.f64 d h))) (-.f64 #s(literal 1 binary64) (.f64 (.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) (pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64))) (/.f64 h l))))
	63.1%	(.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))))))
	34.7%	(.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))))
	36.0%	(.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))))
	18.4%	#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (/.f64 (fma.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)))) (.f64 (sqrt.f64 (pow.f64 (.f64 l h) #s(literal -1 binary64))) (*.f64 d d))) d))
	53.4%	#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (/.f64 (fma.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))) (*.f64 (sqrt.f64 (/.f64 h l)) d)) h))
	20.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 (fma.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) d)) (sqrt.f64 (.f64 l h)) (.f64 (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) h)) d)) (*.f64 l l)))
	20.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 (fma.f64 (.f64 (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) (.f64 d d)) (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64))))) #s(literal -1/8 binary64) (sqrt.f64 (pow.f64 (*.f64 l h) #s(literal -1 binary64)))) d))
	33.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 (fma.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))) (.f64 (sqrt.f64 (pow.f64 (.f64 (pow.f64 h #s(literal 3 binary64)) l) #s(literal -1 binary64))) d)) h))
▶	19.4%	#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 M M) d)) (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64)))) (.f64 (/.f64 d (.f64 D D)) (sqrt.f64 (pow.f64 (.f64 l h) #s(literal -1 binary64))))) (*.f64 D D)))
	20.3%	#s(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))))))
▶	19.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/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))))))
	26.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 binary64) d) (sqrt.f64 (pow.f64 (*.f64 l h) #s(literal -1 binary64)))))
▶	23.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 (sqrt.f64 (pow.f64 (.f64 l h) #s(literal -1 binary64))) d))

Compiler

Compiled 2 230 to 1 482 computations (33.5% saved)

series210.0ms (2.3%)

Memory

-19.4MiB live, 357.2MiB allocated; 47ms collecting garbage

Counts

62 → 152

Calls

Call 1

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

Outputs
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (/ (* (* (pow (* (/ M 2) (/ D d)) 2) 1/2) h) l))) #s(hole binary64 (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ h (pow l 3)))))))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (/ (* (* (pow (* (/ M 2) (/ D d)) 2) 1/2) h) l))) #s(hole binary64 (/ (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3))))) (* (pow d 2) (sqrt (/ 1 (* h l))))) d)))
#s(approx (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) #s(hole binary64 (* d (sqrt (/ 1 (* h l))))))
#s(approx (pow (/ d h) (/ 1 2)) #s(hole binary64 (sqrt (/ d h))))
#s(approx (/ d h) #s(hole binary64 (/ d h)))
#s(approx d #s(hole binary64 d))
#s(approx (pow (/ d l) (/ 1 2)) #s(hole binary64 (sqrt (/ d l))))
#s(approx (/ d l) #s(hole binary64 (/ d l)))
#s(approx (- 1 (/ (* (* (pow (* (/ M 2) (/ D d)) 2) 1/2) h) l)) #s(hole binary64 (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l)))))
#s(approx (- 1 (/ (* (* (pow (* (/ M 2) (/ D d)) 2) 1/2) h) l)) #s(hole binary64 (/ (- (pow d 2) (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) l))) (pow d 2))))
#s(approx (/ (* (* (pow (* (/ M 2) (/ D d)) 2) 1/2) h) l) #s(hole binary64 (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l)))))
#s(approx (* (* (pow (* (/ M 2) (/ D d)) 2) 1/2) h) #s(hole binary64 (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))))
#s(approx (* (pow (* (/ M 2) (/ D d)) 2) 1/2) #s(hole binary64 (* 1/8 (/ (* (pow D 2) (pow M 2)) (pow d 2)))))
#s(approx (pow (* (/ M 2) (/ D d)) 2) #s(hole binary64 (* 1/4 (/ (* (pow D 2) (pow M 2)) (pow d 2)))))
#s(approx (* (/ M 2) (/ D d)) #s(hole binary64 (* 1/2 (/ (* D M) d))))
#s(approx (/ D d) #s(hole binary64 (/ D d)))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) #s(hole binary64 (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ h (pow l 3)))))))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) #s(hole binary64 (/ (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3))))) (* (pow d 2) (sqrt (/ 1 (* h l))))) d)))
#s(approx (* (sqrt (pow (* l h) -1)) d) #s(hole binary64 (* d (sqrt (/ 1 (* h l))))))
#s(approx (* (* -1/8 (/ (* (pow (* D M) 2) -1) d)) (sqrt (/ h (pow l 3)))) #s(hole binary64 (* 1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ h (pow l 3)))))))
#s(approx (* -1/8 (/ (* (pow (* D M) 2) -1) d)) #s(hole binary64 (* 1/8 (/ (* (pow D 2) (pow M 2)) d))))
#s(approx (/ (* (pow (* D M) 2) -1) d) #s(hole binary64 (* -1 (/ (* (pow D 2) (pow M 2)) d))))
#s(approx (* (+ (* (* -1/8 (/ (* M M) d)) (sqrt (/ h (pow l 3)))) (* (/ d (* D D)) (sqrt (pow (* l h) -1)))) (* D D)) #s(hole binary64 (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ h (pow l 3)))))))
#s(approx (* (+ (* (* -1/8 (/ (* M M) d)) (sqrt (/ h (pow l 3)))) (* (/ d (* D D)) (sqrt (pow (* l h) -1)))) (* D D)) #s(hole binary64 (/ (+ (* -1/8 (* (* (pow D 2) (pow M 2)) (sqrt (/ h (pow l 3))))) (* (pow d 2) (sqrt (/ 1 (* h l))))) d)))
#s(approx (+ (* (* -1/8 (/ (* M M) d)) (sqrt (/ h (pow l 3)))) (* (/ d (* D D)) (sqrt (pow (* l h) -1)))) #s(hole binary64 (* -1/8 (* (/ (pow M 2) d) (sqrt (/ h (pow l 3)))))))
#s(approx (+ (* (* -1/8 (/ (* M M) d)) (sqrt (/ h (pow l 3)))) (* (/ d (* D D)) (sqrt (pow (* l h) -1)))) #s(hole binary64 (/ (+ (* -1/8 (* (pow M 2) (sqrt (/ h (pow l 3))))) (* (/ (pow d 2) (pow D 2)) (sqrt (/ 1 (* h l))))) d)))
#s(approx (* -1/8 (/ (* M M) d)) #s(hole binary64 (* -1/8 (/ (pow M 2) d))))
#s(approx (/ (* M M) d) #s(hole binary64 (/ (pow M 2) d)))
#s(approx (* (/ d (* D D)) (sqrt (pow (* l h) -1))) #s(hole binary64 (* (/ d (pow D 2)) (sqrt (/ 1 (* h l))))))
#s(approx (/ d (* D D)) #s(hole binary64 (/ d (pow D 2))))
#s(approx (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) #s(hole binary64 (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l)))))
#s(approx (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) #s(hole binary64 (/ (- (pow d 2) (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) l))) (pow d 2))))
#s(approx (* (- (pow D -2) (/ (* 1/8 (* (* M M) h)) (* (* d d) l))) (* D D)) #s(hole binary64 (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l)))))
#s(approx (* (- (pow D -2) (/ (* 1/8 (* (* M M) h)) (* (* d d) l))) (* D D)) #s(hole binary64 (/ (+ (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) l)) (pow d 2)) (pow d 2))))
#s(approx (- (pow D -2) (/ (* 1/8 (* (* M M) h)) (* (* d d) l))) #s(hole binary64 (* -1/8 (/ (* (pow M 2) h) (* (pow d 2) l)))))
#s(approx (- (pow D -2) (/ (* 1/8 (* (* M M) h)) (* (* d d) l))) #s(hole binary64 (/ (- (/ (pow d 2) (pow D 2)) (* 1/8 (/ (* (pow M 2) h) l))) (pow d 2))))
#s(approx (/ (* 1/8 (* (* M M) h)) (* (* d d) l)) #s(hole binary64 (* 1/8 (/ (* (pow M 2) h) (* (pow d 2) l)))))
#s(approx (* (* d d) l) #s(hole binary64 (* (pow d 2) l)))
#s(approx (* d d) #s(hole binary64 (pow d 2)))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (/ (* (* (pow (* (/ M 2) (/ D d)) 2) 1/2) h) l))) #s(hole binary64 (* d (sqrt (/ 1 (* h l))))))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (/ (* (* (pow (* (/ M 2) (/ D d)) 2) 1/2) h) l))) #s(hole binary64 (* d (+ (sqrt (/ 1 (* h l))) (* -1/8 (* (/ (* (pow D 2) (pow M 2)) (pow d 2)) (sqrt (/ h (pow l 3)))))))))
#s(approx (- 1 (/ (* (* (pow (* (/ M 2) (/ D d)) 2) 1/2) h) l)) #s(hole binary64 1))
#s(approx (- 1 (/ (* (* (pow (* (/ M 2) (/ D d)) 2) 1/2) h) l)) #s(hole binary64 (+ 1 (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))))))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) #s(hole binary64 (* d (sqrt (/ 1 (* h l))))))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) #s(hole binary64 (* d (+ (sqrt (/ 1 (* h l))) (* -1/8 (* (/ (* (pow D 2) (pow M 2)) (pow d 2)) (sqrt (/ h (pow l 3)))))))))
#s(approx (* (+ (* (* -1/8 (/ (* M M) d)) (sqrt (/ h (pow l 3)))) (* (/ d (* D D)) (sqrt (pow (* l h) -1)))) (* D D)) #s(hole binary64 (* d (sqrt (/ 1 (* h l))))))
#s(approx (* (+ (* (* -1/8 (/ (* M M) d)) (sqrt (/ h (pow l 3)))) (* (/ d (* D D)) (sqrt (pow (* l h) -1)))) (* D D)) #s(hole binary64 (* d (+ (sqrt (/ 1 (* h l))) (* -1/8 (* (/ (* (pow D 2) (pow M 2)) (pow d 2)) (sqrt (/ h (pow l 3)))))))))
#s(approx (+ (* (* -1/8 (/ (* M M) d)) (sqrt (/ h (pow l 3)))) (* (/ d (* D D)) (sqrt (pow (* l h) -1)))) #s(hole binary64 (* (/ d (pow D 2)) (sqrt (/ 1 (* h l))))))
#s(approx (+ (* (* -1/8 (/ (* M M) d)) (sqrt (/ h (pow l 3)))) (* (/ d (* D D)) (sqrt (pow (* l h) -1)))) #s(hole binary64 (* d (+ (* -1/8 (* (/ (pow M 2) (pow d 2)) (sqrt (/ h (pow l 3))))) (* (/ 1 (pow D 2)) (sqrt (/ 1 (* h l))))))))
#s(approx (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) #s(hole binary64 1))
#s(approx (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) #s(hole binary64 (+ 1 (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))))))
#s(approx (* (- (pow D -2) (/ (* 1/8 (* (* M M) h)) (* (* d d) l))) (* D D)) #s(hole binary64 1))
#s(approx (* (- (pow D -2) (/ (* 1/8 (* (* M M) h)) (* (* d d) l))) (* D D)) #s(hole binary64 (+ 1 (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))))))
#s(approx (- (pow D -2) (/ (* 1/8 (* (* M M) h)) (* (* d d) l))) #s(hole binary64 (/ 1 (pow D 2))))
#s(approx (- (pow D -2) (/ (* 1/8 (* (* M M) h)) (* (* d d) l))) #s(hole binary64 (+ (* -1/8 (/ (* (pow M 2) h) (* (pow d 2) l))) (/ 1 (pow D 2)))))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (/ (* (* (pow (* (/ M 2) (/ D d)) 2) 1/2) h) l))) #s(hole binary64 (* -1 (* (* d (pow (sqrt -1) 2)) (sqrt (/ 1 (* h l)))))))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (/ (* (* (pow (* (/ M 2) (/ D d)) 2) 1/2) h) l))) #s(hole binary64 (* -1 (* d (+ (* -1/8 (* (/ (* (pow D 2) (* (pow M 2) (pow (sqrt -1) 2))) (pow d 2)) (sqrt (/ h (pow l 3))))) (* (sqrt (/ 1 (* h l))) (pow (sqrt -1) 2)))))))
#s(approx (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) #s(hole binary64 (* -1 (* (* d (pow (sqrt -1) 2)) (sqrt (/ 1 (* h l)))))))
#s(approx (pow (/ d h) (/ 1 2)) #s(hole binary64 (* -1 (* (sqrt (/ d h)) (pow (sqrt -1) 2)))))
#s(approx (pow (/ d l) (/ 1 2)) #s(hole binary64 (* -1 (* (sqrt (/ d l)) (pow (sqrt -1) 2)))))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) #s(hole binary64 (* -1 (* (* d (pow (sqrt -1) 2)) (sqrt (/ 1 (* h l)))))))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) #s(hole binary64 (* -1 (* d (+ (* -1/8 (* (/ (* (pow D 2) (* (pow M 2) (pow (sqrt -1) 2))) (pow d 2)) (sqrt (/ h (pow l 3))))) (* (sqrt (/ 1 (* h l))) (pow (sqrt -1) 2)))))))
#s(approx (* (+ (* (* -1/8 (/ (* M M) d)) (sqrt (/ h (pow l 3)))) (* (/ d (* D D)) (sqrt (pow (* l h) -1)))) (* D D)) #s(hole binary64 (* -1 (* d (+ (* -1 (sqrt (/ 1 (* h l)))) (* 1/8 (* (/ (* (pow D 2) (pow M 2)) (pow d 2)) (sqrt (/ h (pow l 3))))))))))
#s(approx (+ (* (* -1/8 (/ (* M M) d)) (sqrt (/ h (pow l 3)))) (* (/ d (* D D)) (sqrt (pow (* l h) -1)))) #s(hole binary64 (* -1 (* d (+ (* -1 (* (/ 1 (pow D 2)) (sqrt (/ 1 (* h l))))) (* 1/8 (* (/ (pow M 2) (pow d 2)) (sqrt (/ h (pow l 3))))))))))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (/ (* (* (pow (* (/ M 2) (/ D d)) 2) 1/2) h) l))) #s(hole binary64 (/ (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ (pow h 3) (pow l 3))))) (* d (sqrt (/ h l)))) h)))
#s(approx h #s(hole binary64 h))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) #s(hole binary64 (/ (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ (pow h 3) (pow l 3))))) (* d (sqrt (/ h l)))) h)))
#s(approx (sqrt (pow (* l h) -1)) #s(hole binary64 (sqrt (/ 1 (* h l)))))
#s(approx (pow (* l h) -1) #s(hole binary64 (/ 1 (* h l))))
#s(approx (* l h) #s(hole binary64 (* h l)))
#s(approx (sqrt (/ h (pow l 3))) #s(hole binary64 (sqrt (/ h (pow l 3)))))
#s(approx (/ h (pow l 3)) #s(hole binary64 (/ h (pow l 3))))
#s(approx (* (+ (* (* -1/8 (/ (* M M) d)) (sqrt (/ h (pow l 3)))) (* (/ d (* D D)) (sqrt (pow (* l h) -1)))) (* D D)) #s(hole binary64 (/ (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ (pow h 3) (pow l 3))))) (* d (sqrt (/ h l)))) h)))
#s(approx (+ (* (* -1/8 (/ (* M M) d)) (sqrt (/ h (pow l 3)))) (* (/ d (* D D)) (sqrt (pow (* l h) -1)))) #s(hole binary64 (/ (+ (* -1/8 (* (/ (pow M 2) d) (sqrt (/ (pow h 3) (pow l 3))))) (* (/ d (pow D 2)) (sqrt (/ h l)))) h)))
#s(approx (* 1/8 (* (* M M) h)) #s(hole binary64 (* 1/8 (* (pow M 2) h))))
#s(approx (* (* M M) h) #s(hole binary64 (* (pow M 2) h)))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (/ (* (* (pow (* (/ M 2) (/ D d)) 2) 1/2) h) l))) #s(hole binary64 (* h (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3)))))) (* d (sqrt (/ 1 (* (pow h 3) l))))))))
#s(approx (- 1 (/ (* (* (pow (* (/ M 2) (/ D d)) 2) 1/2) h) l)) #s(hole binary64 (* h (- (/ 1 h) (* 1/8 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l)))))))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) #s(hole binary64 (* h (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3)))))) (* d (sqrt (/ 1 (* (pow h 3) l))))))))
#s(approx (* (+ (* (* -1/8 (/ (* M M) d)) (sqrt (/ h (pow l 3)))) (* (/ d (* D D)) (sqrt (pow (* l h) -1)))) (* D D)) #s(hole binary64 (* h (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ 1 (* h (pow l 3)))))) (* d (sqrt (/ 1 (* (pow h 3) l))))))))
#s(approx (+ (* (* -1/8 (/ (* M M) d)) (sqrt (/ h (pow l 3)))) (* (/ d (* D D)) (sqrt (pow (* l h) -1)))) #s(hole binary64 (* h (+ (* -1/8 (* (/ (pow M 2) d) (sqrt (/ 1 (* h (pow l 3)))))) (* (/ d (pow D 2)) (sqrt (/ 1 (* (pow h 3) l))))))))
#s(approx (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) #s(hole binary64 (* h (- (/ 1 h) (* 1/8 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l)))))))
#s(approx (* (- (pow D -2) (/ (* 1/8 (* (* M M) h)) (* (* d d) l))) (* D D)) #s(hole binary64 (* h (+ (* -1/8 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (/ 1 h)))))
#s(approx (- (pow D -2) (/ (* 1/8 (* (* M M) h)) (* (* d d) l))) #s(hole binary64 (* h (- (/ 1 (* (pow D 2) h)) (* 1/8 (/ (pow M 2) (* (pow d 2) l)))))))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (/ (* (* (pow (* (/ M 2) (/ D d)) 2) 1/2) h) l))) #s(hole binary64 (* -1/8 (* (/ (* (pow D 2) (* (pow M 2) (pow (sqrt -1) 2))) d) (sqrt (/ h (pow l 3)))))))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (/ (* (* (pow (* (/ M 2) (/ D d)) 2) 1/2) h) l))) #s(hole binary64 (* -1 (* h (+ (* -1 (* (* d (pow (sqrt -1) 2)) (sqrt (/ 1 (* (pow h 3) l))))) (* 1/8 (* (/ (* (pow D 2) (* (pow M 2) (pow (sqrt -1) 2))) d) (sqrt (/ 1 (* h (pow l 3)))))))))))
#s(approx (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) #s(hole binary64 (* (* d (pow (sqrt -1) 2)) (sqrt (/ 1 (* h l))))))
#s(approx (pow (/ d h) (/ 1 2)) #s(hole binary64 (* (sqrt (/ d h)) (pow (sqrt -1) 2))))
#s(approx (- 1 (/ (* (* (pow (* (/ M 2) (/ D d)) 2) 1/2) h) l)) #s(hole binary64 (* h (+ (* -1/8 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (/ 1 h)))))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) #s(hole binary64 (* -1/8 (* (/ (* (pow D 2) (* (pow M 2) (pow (sqrt -1) 2))) d) (sqrt (/ h (pow l 3)))))))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) #s(hole binary64 (* -1 (* h (+ (* -1 (* (* d (pow (sqrt -1) 2)) (sqrt (/ 1 (* (pow h 3) l))))) (* 1/8 (* (/ (* (pow D 2) (* (pow M 2) (pow (sqrt -1) 2))) d) (sqrt (/ 1 (* h (pow l 3)))))))))))
#s(approx (* (sqrt (pow (* l h) -1)) d) #s(hole binary64 (* (* d (pow (sqrt -1) 2)) (sqrt (/ 1 (* h l))))))
#s(approx (sqrt (pow (* l h) -1)) #s(hole binary64 (* (sqrt (/ 1 (* h l))) (pow (sqrt -1) 2))))
#s(approx (* (* -1/8 (/ (* (pow (* D M) 2) -1) d)) (sqrt (/ h (pow l 3)))) #s(hole binary64 (* -1/8 (* (/ (* (pow D 2) (* (pow M 2) (pow (sqrt -1) 2))) d) (sqrt (/ h (pow l 3)))))))
#s(approx (sqrt (/ h (pow l 3))) #s(hole binary64 (* -1 (* (sqrt (/ h (pow l 3))) (pow (sqrt -1) 2)))))
#s(approx (* (+ (* (* -1/8 (/ (* M M) d)) (sqrt (/ h (pow l 3)))) (* (/ d (* D D)) (sqrt (pow (* l h) -1)))) (* D D)) #s(hole binary64 (* 1/8 (* (/ (* (pow D 2) (* (pow M 2) (pow (sqrt -1) 2))) d) (sqrt (/ h (pow l 3)))))))
#s(approx (* (+ (* (* -1/8 (/ (* M M) d)) (sqrt (/ h (pow l 3)))) (* (/ d (* D D)) (sqrt (pow (* l h) -1)))) (* D D)) #s(hole binary64 (* -1 (* h (+ (* -1 (* (* d (pow (sqrt -1) 2)) (sqrt (/ 1 (* (pow h 3) l))))) (* -1/8 (* (/ (* (pow D 2) (* (pow M 2) (pow (sqrt -1) 2))) d) (sqrt (/ 1 (* h (pow l 3)))))))))))
#s(approx (+ (* (* -1/8 (/ (* M M) d)) (sqrt (/ h (pow l 3)))) (* (/ d (* D D)) (sqrt (pow (* l h) -1)))) #s(hole binary64 (* 1/8 (* (/ (* (pow M 2) (pow (sqrt -1) 2)) d) (sqrt (/ h (pow l 3)))))))
#s(approx (+ (* (* -1/8 (/ (* M M) d)) (sqrt (/ h (pow l 3)))) (* (/ d (* D D)) (sqrt (pow (* l h) -1)))) #s(hole binary64 (* -1 (* h (+ (* -1 (* (/ (* d (pow (sqrt -1) 2)) (pow D 2)) (sqrt (/ 1 (* (pow h 3) l))))) (* -1/8 (* (/ (* (pow M 2) (pow (sqrt -1) 2)) d) (sqrt (/ 1 (* h (pow l 3)))))))))))
#s(approx (* (/ d (* D D)) (sqrt (pow (* l h) -1))) #s(hole binary64 (* (/ (* d (pow (sqrt -1) 2)) (pow D 2)) (sqrt (/ 1 (* h l))))))
#s(approx (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) #s(hole binary64 (* h (+ (* -1/8 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (/ 1 h)))))
#s(approx (* (- (pow D -2) (/ (* 1/8 (* (* M M) h)) (* (* d d) l))) (* D D)) #s(hole binary64 (* -1 (* h (- (* 1/8 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (/ 1 h))))))
#s(approx (- (pow D -2) (/ (* 1/8 (* (* M M) h)) (* (* d d) l))) #s(hole binary64 (* h (+ (* -1/8 (/ (pow M 2) (* (pow d 2) l))) (/ 1 (* (pow D 2) h))))))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (/ (* (* (pow (* (/ M 2) (/ D d)) 2) 1/2) h) l))) #s(hole binary64 (/ (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (* h l)))) (* d (sqrt (/ (pow l 3) h)))) (pow l 2))))
#s(approx l #s(hole binary64 l))
#s(approx (- 1 (/ (* (* (pow (* (/ M 2) (/ D d)) 2) 1/2) h) l)) #s(hole binary64 (/ (- l (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l)))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) #s(hole binary64 (/ (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (* h l)))) (* d (sqrt (/ (pow l 3) h)))) (pow l 2))))
#s(approx (pow l 3) #s(hole binary64 (pow l 3)))
#s(approx (* (+ (* (* -1/8 (/ (* M M) d)) (sqrt (/ h (pow l 3)))) (* (/ d (* D D)) (sqrt (pow (* l h) -1)))) (* D D)) #s(hole binary64 (/ (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (* h l)))) (* d (sqrt (/ (pow l 3) h)))) (pow l 2))))
#s(approx (+ (* (* -1/8 (/ (* M M) d)) (sqrt (/ h (pow l 3)))) (* (/ d (* D D)) (sqrt (pow (* l h) -1)))) #s(hole binary64 (/ (+ (* -1/8 (* (/ (pow M 2) d) (sqrt (* h l)))) (* (/ d (pow D 2)) (sqrt (/ (pow l 3) h)))) (pow l 2))))
#s(approx (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) #s(hole binary64 (/ (- l (* 1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l)))
#s(approx (* (- (pow D -2) (/ (* 1/8 (* (* M M) h)) (* (* d d) l))) (* D D)) #s(hole binary64 (/ (+ l (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l)))
#s(approx (- (pow D -2) (/ (* 1/8 (* (* M M) h)) (* (* d d) l))) #s(hole binary64 (/ (- (/ l (pow D 2)) (* 1/8 (/ (* (pow M 2) h) (pow d 2)))) l)))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (/ (* (* (pow (* (/ M 2) (/ D d)) 2) 1/2) h) l))) #s(hole binary64 (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ h (pow l 3))))) (* d (sqrt (/ 1 (* h l)))))))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) #s(hole binary64 (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ h (pow l 3))))) (* d (sqrt (/ 1 (* h l)))))))
#s(approx (* (+ (* (* -1/8 (/ (* M M) d)) (sqrt (/ h (pow l 3)))) (* (/ d (* D D)) (sqrt (pow (* l h) -1)))) (* D D)) #s(hole binary64 (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ h (pow l 3))))) (* d (sqrt (/ 1 (* h l)))))))
#s(approx (+ (* (* -1/8 (/ (* M M) d)) (sqrt (/ h (pow l 3)))) (* (/ d (* D D)) (sqrt (pow (* l h) -1)))) #s(hole binary64 (+ (* -1/8 (* (/ (pow M 2) d) (sqrt (/ h (pow l 3))))) (* (/ d (pow D 2)) (sqrt (/ 1 (* h l)))))))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (/ (* (* (pow (* (/ M 2) (/ D d)) 2) 1/2) h) l))) #s(hole binary64 (* (* d (pow (sqrt -1) 2)) (sqrt (/ 1 (* h l))))))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (/ (* (* (pow (* (/ M 2) (/ D d)) 2) 1/2) h) l))) #s(hole binary64 (+ (* -1/8 (* (/ (* (pow D 2) (* (pow M 2) (pow (sqrt -1) 2))) d) (sqrt (/ h (pow l 3))))) (* (* d (pow (sqrt -1) 2)) (sqrt (/ 1 (* h l)))))))
#s(approx (pow (/ d l) (/ 1 2)) #s(hole binary64 (* (sqrt (/ d l)) (pow (sqrt -1) 2))))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) #s(hole binary64 (* (* d (pow (sqrt -1) 2)) (sqrt (/ 1 (* h l))))))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) #s(hole binary64 (+ (* -1/8 (* (/ (* (pow D 2) (* (pow M 2) (pow (sqrt -1) 2))) d) (sqrt (/ h (pow l 3))))) (* (* d (pow (sqrt -1) 2)) (sqrt (/ 1 (* h l)))))))
#s(approx (* (+ (* (* -1/8 (/ (* M M) d)) (sqrt (/ h (pow l 3)))) (* (/ d (* D D)) (sqrt (pow (* l h) -1)))) (* D D)) #s(hole binary64 (* (* d (pow (sqrt -1) 2)) (sqrt (/ 1 (* h l))))))
#s(approx (* (+ (* (* -1/8 (/ (* M M) d)) (sqrt (/ h (pow l 3)))) (* (/ d (* D D)) (sqrt (pow (* l h) -1)))) (* D D)) #s(hole binary64 (+ (* 1/8 (* (/ (* (pow D 2) (* (pow M 2) (pow (sqrt -1) 2))) d) (sqrt (/ h (pow l 3))))) (* (* d (pow (sqrt -1) 2)) (sqrt (/ 1 (* h l)))))))
#s(approx (+ (* (* -1/8 (/ (* M M) d)) (sqrt (/ h (pow l 3)))) (* (/ d (* D D)) (sqrt (pow (* l h) -1)))) #s(hole binary64 (* (/ (* d (pow (sqrt -1) 2)) (pow D 2)) (sqrt (/ 1 (* h l))))))
#s(approx (+ (* (* -1/8 (/ (* M M) d)) (sqrt (/ h (pow l 3)))) (* (/ d (* D D)) (sqrt (pow (* l h) -1)))) #s(hole binary64 (+ (* 1/8 (* (/ (* (pow M 2) (pow (sqrt -1) 2)) d) (sqrt (/ h (pow l 3))))) (* (/ (* d (pow (sqrt -1) 2)) (pow D 2)) (sqrt (/ 1 (* h l)))))))
#s(approx (/ M 2) #s(hole binary64 (* 1/2 M)))
#s(approx M #s(hole binary64 M))
#s(approx (* (pow (* D M) 2) -1) #s(hole binary64 (* -1 (* (pow D 2) (pow M 2)))))
#s(approx (pow (* D M) 2) #s(hole binary64 (* (pow D 2) (pow M 2))))
#s(approx (* D M) #s(hole binary64 (* D M)))
#s(approx (* M M) #s(hole binary64 (pow M 2)))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (/ (* (* (pow (* (/ M 2) (/ D d)) 2) 1/2) h) l))) #s(hole binary64 (* (pow M 2) (+ (* -1/8 (* (/ (pow D 2) d) (sqrt (/ h (pow l 3))))) (* (/ d (pow M 2)) (sqrt (/ 1 (* h l))))))))
#s(approx (- 1 (/ (* (* (pow (* (/ M 2) (/ D d)) 2) 1/2) h) l)) #s(hole binary64 (* (pow M 2) (- (/ 1 (pow M 2)) (* 1/8 (/ (* (pow D 2) h) (* (pow d 2) l)))))))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) #s(hole binary64 (* (pow M 2) (+ (* -1/8 (* (/ (pow D 2) d) (sqrt (/ h (pow l 3))))) (* (/ d (pow M 2)) (sqrt (/ 1 (* h l))))))))
#s(approx (* (+ (* (* -1/8 (/ (* M M) d)) (sqrt (/ h (pow l 3)))) (* (/ d (* D D)) (sqrt (pow (* l h) -1)))) (* D D)) #s(hole binary64 (* (pow M 2) (+ (* -1/8 (* (/ (pow D 2) d) (sqrt (/ h (pow l 3))))) (* (/ d (pow M 2)) (sqrt (/ 1 (* h l))))))))
#s(approx (+ (* (* -1/8 (/ (* M M) d)) (sqrt (/ h (pow l 3)))) (* (/ d (* D D)) (sqrt (pow (* l h) -1)))) #s(hole binary64 (* (pow M 2) (+ (* -1/8 (* (/ 1 d) (sqrt (/ h (pow l 3))))) (* (/ d (* (pow D 2) (pow M 2))) (sqrt (/ 1 (* h l))))))))
#s(approx (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) #s(hole binary64 (* (pow M 2) (- (/ 1 (pow M 2)) (* 1/8 (/ (* (pow D 2) h) (* (pow d 2) l)))))))
#s(approx (* (- (pow D -2) (/ (* 1/8 (* (* M M) h)) (* (* d d) l))) (* D D)) #s(hole binary64 (* (pow M 2) (+ (* -1/8 (/ (* (pow D 2) h) (* (pow d 2) l))) (/ 1 (pow M 2))))))
#s(approx (- (pow D -2) (/ (* 1/8 (* (* M M) h)) (* (* d d) l))) #s(hole binary64 (* (pow M 2) (- (/ 1 (* (pow D 2) (pow M 2))) (* 1/8 (/ h (* (pow d 2) l)))))))
#s(approx D #s(hole binary64 D))
#s(approx (+ (* (* -1/8 (/ (* M M) d)) (sqrt (/ h (pow l 3)))) (* (/ d (* D D)) (sqrt (pow (* l h) -1)))) #s(hole binary64 (/ (+ (* -1/8 (* (/ (* (pow D 2) (pow M 2)) d) (sqrt (/ h (pow l 3))))) (* d (sqrt (/ 1 (* h l))))) (pow D 2))))
#s(approx (* D D) #s(hole binary64 (pow D 2)))
#s(approx (- (pow D -2) (/ (* 1/8 (* (* M M) h)) (* (* d d) l))) #s(hole binary64 (/ (+ 1 (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l)))) (pow D 2))))
#s(approx (pow D -2) #s(hole binary64 (/ 1 (pow D 2))))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (/ (* (* (pow (* (/ M 2) (/ D d)) 2) 1/2) h) l))) #s(hole binary64 (* (pow D 2) (+ (* -1/8 (* (/ (pow M 2) d) (sqrt (/ h (pow l 3))))) (* (/ d (pow D 2)) (sqrt (/ 1 (* h l))))))))
#s(approx (- 1 (/ (* (* (pow (* (/ M 2) (/ D d)) 2) 1/2) h) l)) #s(hole binary64 (* (pow D 2) (- (/ 1 (pow D 2)) (* 1/8 (/ (* (pow M 2) h) (* (pow d 2) l)))))))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) #s(hole binary64 (* (pow D 2) (+ (* -1/8 (* (/ (pow M 2) d) (sqrt (/ h (pow l 3))))) (* (/ d (pow D 2)) (sqrt (/ 1 (* h l))))))))
#s(approx (* (+ (* (* -1/8 (/ (* M M) d)) (sqrt (/ h (pow l 3)))) (* (/ d (* D D)) (sqrt (pow (* l h) -1)))) (* D D)) #s(hole binary64 (* (pow D 2) (+ (* -1/8 (* (/ (pow M 2) d) (sqrt (/ h (pow l 3))))) (* (/ d (pow D 2)) (sqrt (/ 1 (* h l))))))))
#s(approx (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) #s(hole binary64 (* (pow D 2) (- (/ 1 (pow D 2)) (* 1/8 (/ (* (pow M 2) h) (* (pow d 2) l)))))))
#s(approx (* (- (pow D -2) (/ (* 1/8 (* (* M M) h)) (* (* d d) l))) (* D D)) #s(hole binary64 (* (pow D 2) (+ (* -1/8 (/ (* (pow M 2) h) (* (pow d 2) l))) (/ 1 (pow D 2))))))
#s(approx (- (pow D -2) (/ (* 1/8 (* (* M M) h)) (* (* d d) l))) #s(hole binary64 (- (/ 1 (pow D 2)) (* 1/8 (/ (* (pow M 2) h) (* (pow d 2) l))))))

Calls

15 calls:

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

rewrite89.0ms (1%)

Memory

27.0MiB live, 122.9MiB allocated; 7ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	514	6380
0	601	5845
0	2114	5757

Stop Event

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

Counts

214 → 363

Calls

Call 1

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

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

eval53.0ms (0.6%)

Memory: -31.2MiB live, 105.7MiB allocated; 12ms collecting garbage
Compiler: Compiled 29 144 to 1 833 computations (93.7% saved)

prune90.0ms (1%)

Memory

8.5MiB live, 107.6MiB allocated; 6ms collecting garbage

Pruning

40 alts after pruning (40 fresh and 0 done)

	Pruned	Kept	Total
New	473	28	501
Fresh	7	12	19
Picked	5	0	5
Done	0	0	0
Total	485	40	525

Accuracy

93.3%

Counts

525 → 40

Alt Table

Click to see full alt table

Status	Accuracy	Program
	56.7%	(.f64 (pow.f64 (.f64 (/.f64 d h) (/.f64 d l)) #s(literal 1/2 binary64)) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (pow.f64 (*.f64 (/.f64 M #s(literal 2 binary64)) (/.f64 D d)) #s(literal 2 binary64)) #s(literal 1/2 binary64)) h) l)))
	55.2%	(.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))))
	63.5%	(.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))))
	23.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 #s(literal -1/8 binary64) (.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) h)) (.f64 (*.f64 d d) l))))
	40.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)))) #s(approx (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (.f64 (.f64 (fma.f64 (.f64 (.f64 M M) (/.f64 h (.f64 (.f64 d d) l))) #s(literal -1/8 binary64) (pow.f64 D #s(literal -2 binary64))) D) D)))
	33.1%	(.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))))
▶	19.3%	(.f64 (.f64 (pow.f64 (/.f64 d h) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64))) (/.f64 (sqrt.f64 d) (sqrt.f64 l))) #s(approx (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (.f64 (-.f64 (pow.f64 D #s(literal -2 binary64)) (/.f64 (.f64 #s(literal 1/8 binary64) (.f64 (.f64 M M) h)) (.f64 (.f64 d d) l))) (*.f64 D D))))
▶	66.1%	(.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 (pow.f64 (.f64 (/.f64 M #s(literal 2 binary64)) (/.f64 D d)) #s(literal 2 binary64)) #s(literal 1/2 binary64)) h) l)))
	37.9%	(.f64 (.f64 (/.f64 (sqrt.f64 d) (sqrt.f64 h)) (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)))
	65.0%	(.f64 (.f64 (.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 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))))
	65.0%	(.f64 (.f64 (sqrt.f64 (/.f64 d l)) (sqrt.f64 (/.f64 d h))) (-.f64 #s(literal 1 binary64) (.f64 (.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) (pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64))) (/.f64 h l))))
▶	38.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 (fma.f64 (.f64 (.f64 M M) (/.f64 h (.f64 (.f64 d d) l))) #s(literal -1/8 binary64) (pow.f64 D #s(literal -2 binary64))) (.f64 D D))))
	38.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 (pow.f64 D #s(literal -2 binary64)) (/.f64 (.f64 #s(literal 1/8 binary64) (.f64 (.f64 M M) h)) (.f64 (.f64 d d) l))) (*.f64 D D))))
	65.4%	(.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))))
	63.1%	(.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.6%	(.f64 #s(approx ( (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (.f64 (pow.f64 (.f64 l h) #s(literal -1/2 binary64)) d)) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (pow.f64 (*.f64 (/.f64 M #s(literal 2 binary64)) (/.f64 D d)) #s(literal 2 binary64)) #s(literal 1/2 binary64)) h) l)))
	20.9%	(.f64 #s(approx ( (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (.f64 (pow.f64 (.f64 l h) #s(literal -1/2 binary64)) d)) #s(approx (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (.f64 (-.f64 (pow.f64 D #s(literal -2 binary64)) (/.f64 (.f64 #s(literal 1/8 binary64) (.f64 (.f64 M M) h)) (.f64 (.f64 d d) l))) (*.f64 D D))))
	36.0%	(.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))))
	36.0%	(.f64 #s(approx ( (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (.f64 d (neg.f64 (pow.f64 (.f64 l h) #s(literal -1/2 binary64))))) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (pow.f64 (*.f64 (/.f64 M #s(literal 2 binary64)) (/.f64 D d)) #s(literal 2 binary64)) #s(literal 1/2 binary64)) h) l)))
▶	22.3%	(.f64 #s(approx ( (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (.f64 d (neg.f64 (pow.f64 (.f64 l h) #s(literal -1/2 binary64))))) #s(approx (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (.f64 (-.f64 (pow.f64 D #s(literal -2 binary64)) (/.f64 (.f64 #s(literal 1/8 binary64) (.f64 (.f64 M M) h)) (.f64 (.f64 d d) l))) (*.f64 D D))))
	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 (fma.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))
	53.4%	#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (/.f64 (fma.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))) (*.f64 (sqrt.f64 (/.f64 h l)) d)) h))
	20.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 (fma.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) d)) (sqrt.f64 (.f64 l h)) (.f64 (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) h)) d)) (*.f64 l l)))
	21.3%	#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 (fma.f64 (.f64 (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) (.f64 d d)) (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64))))) #s(literal -1/8 binary64) (pow.f64 (*.f64 l h) #s(literal -1/2 binary64))) d))
	33.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 (fma.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))) (.f64 (sqrt.f64 (pow.f64 (.f64 (pow.f64 h #s(literal 3 binary64)) l) #s(literal -1 binary64))) d)) h))
	21.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 (fma.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 M M) d)) (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64)))) (.f64 (/.f64 d (.f64 D D)) #s(approx (sqrt (pow ( l h) -1)) (neg.f64 (pow.f64 (.f64 l h) #s(literal -1/2 binary64)))))) (.f64 D 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 (pow.f64 (.f64 l h) #s(literal -1/2 binary64)) d))
	23.5%	#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (.f64 l h))) d))
	21.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 (fma.f64 (/.f64 d (.f64 D D)) (pow.f64 (.f64 l h) #s(literal -1/2 binary64)) (.f64 (.f64 (/.f64 (*.f64 M M) d) #s(literal -1/8 binary64)) (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64)))))) D) D))
	20.3%	#s(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)))
	19.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/8 binary64) (/.f64 (.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) #s(literal -1 binary64)) d)) (sqrt.f64 (/.f64 h (.f64 (.f64 l l) l)))))
	14.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 #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))))))
	26.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 binary64) d) (sqrt.f64 (pow.f64 (*.f64 l h) #s(literal -1 binary64)))))
	23.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 (sqrt.f64 (/.f64 (pow.f64 h #s(literal -1 binary64)) l)) d))
▶	23.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 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 l h))) d))
	15.2%	#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 #s(approx (+ ( (* -1/8 (/ (* M M) d)) (sqrt (/ h (pow l 3)))) (* (/ d (* D D)) (sqrt (pow (* l h) -1)))) (/.f64 (fma.f64 (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) h)) (/.f64 d (.f64 D D)) (.f64 (.f64 (/.f64 (.f64 M M) d) #s(literal -1/8 binary64)) (sqrt.f64 (.f64 l h)))) (.f64 l l))) (*.f64 D D)))
	38.4%	#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 #s(approx (+ ( (* -1/8 (/ (* M M) d)) (sqrt (/ h (pow l 3)))) (* (/ d (* D D)) (sqrt (pow (* l h) -1)))) (/.f64 (fma.f64 (sqrt.f64 (/.f64 h l)) (/.f64 d (.f64 D D)) (.f64 (.f64 (/.f64 (.f64 M M) d) #s(literal -1/8 binary64)) (sqrt.f64 (pow.f64 (/.f64 h l) #s(literal 3 binary64))))) h)) (*.f64 D D)))
	12.4%	#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 #s(approx (+ ( (* -1/8 (/ (* M M) d)) (sqrt (/ h (pow l 3)))) (* (/ d (* D D)) (sqrt (pow (* l h) -1)))) (.f64 (/.f64 d (.f64 D D)) (pow.f64 (.f64 l h) #s(literal -1/2 binary64)))) (.f64 D D)))
	15.8%	#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 #s(approx (+ ( (* -1/8 (/ (* M M) d)) (sqrt (/ h (pow l 3)))) (* (/ d (* D D)) (sqrt (pow (* l h) -1)))) (.f64 (.f64 (/.f64 (.f64 M M) d) #s(literal -1/8 binary64)) (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64)))))) (.f64 D D)))
	25.2%	#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 #s(approx (sqrt (pow ( l h) -1)) (neg.f64 (pow.f64 (*.f64 l h) #s(literal -1/2 binary64)))) d))

Compiler

Compiled 4 124 to 2 706 computations (34.4% saved)

series246.0ms (2.7%)

Memory

-18.6MiB live, 472.5MiB allocated; 82ms collecting garbage

Counts

64 → 188

Calls

Call 1

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

Outputs
#s(approx (* (* (pow (/ d h) (/ 1 2)) (* (pow (/ d l) 1/4) (pow (/ d l) 1/4))) (- 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/4) (pow (/ d l) 1/4))) (- 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/4) (pow (/ d l) 1/4))) #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/4) (pow (/ d l) 1/4)) #s(hole binary64 (sqrt (/ d l))))
#s(approx (pow (/ d l) 1/4) #s(hole binary64 (exp (* 1/4 (+ (log d) (log (/ 1 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 (/ 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 (* (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 (sqrt (/ d h)) #s(hole binary64 (sqrt (/ d h))))
#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 (* (+ (* (* (* M M) (/ h (* (* d d) l))) -1/8) (pow D -2)) (* D D)) #s(hole binary64 (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l)))))
#s(approx (* (+ (* (* (* M M) (/ h (* (* d d) l))) -1/8) (pow D -2)) (* D D)) #s(hole binary64 (/ (+ (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) l)) (pow d 2)) (pow d 2))))
#s(approx (+ (* (* (* M M) (/ h (* (* d d) l))) -1/8) (pow D -2)) #s(hole binary64 (* -1/8 (/ (* (pow M 2) h) (* (pow d 2) l)))))
#s(approx (+ (* (* (* M M) (/ h (* (* d d) l))) -1/8) (pow D -2)) #s(hole binary64 (/ (+ (* -1/8 (/ (* (pow M 2) h) l)) (/ (pow d 2) (pow D 2))) (pow d 2))))
#s(approx (* (* M M) (/ h (* (* d d) l))) #s(hole binary64 (/ (* (pow M 2) h) (* (pow d 2) l))))
#s(approx (/ h (* (* d d) l)) #s(hole binary64 (/ h (* (pow d 2) l))))
#s(approx (* (* d d) l) #s(hole binary64 (* (pow d 2) l)))
#s(approx (* d d) #s(hole binary64 (pow d 2)))
#s(approx (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) #s(hole binary64 (* d (sqrt (/ 1 (* h l))))))
#s(approx (* d (neg (pow (* l h) -1/2))) #s(hole binary64 (* -1 (* d (sqrt (/ 1 (* h l)))))))
#s(approx (* (- (pow D -2) (/ (* 1/8 (* (* M M) h)) (* (* d d) l))) (* D D)) #s(hole binary64 (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l)))))
#s(approx (* (- (pow D -2) (/ (* 1/8 (* (* M M) h)) (* (* d d) l))) (* D D)) #s(hole binary64 (/ (+ (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) l)) (pow d 2)) (pow d 2))))
#s(approx (- (pow D -2) (/ (* 1/8 (* (* M M) h)) (* (* d d) l))) #s(hole binary64 (* -1/8 (/ (* (pow M 2) h) (* (pow d 2) l)))))
#s(approx (- (pow D -2) (/ (* 1/8 (* (* M M) h)) (* (* d d) l))) #s(hole binary64 (/ (- (/ (pow d 2) (pow D 2)) (* 1/8 (/ (* (pow M 2) h) l))) (pow d 2))))
#s(approx (/ (* 1/8 (* (* M M) h)) (* (* d d) l)) #s(hole binary64 (* 1/8 (/ (* (pow M 2) h) (* (pow d 2) l)))))
#s(approx (* (* (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 (/ (sqrt d) (sqrt l)) #s(hole binary64 (sqrt (/ d l))))
#s(approx (sqrt d) #s(hole binary64 (sqrt d)))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (* (pow (/ d l) 1/4) (pow (/ d l) 1/4))) (- 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/4) (pow (/ d l) 1/4))) (- 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 (pow (/ d l) 1/4) #s(hole binary64 (exp (* 1/4 (+ (log (/ 1 l)) (* -1 (log (/ 1 d))))))))
#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 (* (+ (* (* (* M M) (/ h (* (* d d) l))) -1/8) (pow D -2)) (* D D)) #s(hole binary64 1))
#s(approx (* (+ (* (* (* M M) (/ h (* (* d d) l))) -1/8) (pow D -2)) (* D D)) #s(hole binary64 (+ 1 (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))))))
#s(approx (+ (* (* (* M M) (/ h (* (* d d) l))) -1/8) (pow D -2)) #s(hole binary64 (/ 1 (pow D 2))))
#s(approx (+ (* (* (* M M) (/ h (* (* d d) l))) -1/8) (pow D -2)) #s(hole binary64 (+ (* -1/8 (/ (* (pow M 2) h) (* (pow d 2) l))) (/ 1 (pow D 2)))))
#s(approx (* (- (pow D -2) (/ (* 1/8 (* (* M M) h)) (* (* d d) l))) (* D D)) #s(hole binary64 1))
#s(approx (* (- (pow D -2) (/ (* 1/8 (* (* M M) h)) (* (* d d) l))) (* D D)) #s(hole binary64 (+ 1 (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l))))))
#s(approx (- (pow D -2) (/ (* 1/8 (* (* M M) h)) (* (* d d) l))) #s(hole binary64 (/ 1 (pow D 2))))
#s(approx (- (pow D -2) (/ (* 1/8 (* (* M M) h)) (* (* d d) l))) #s(hole binary64 (+ (* -1/8 (/ (* (pow M 2) h) (* (pow d 2) l))) (/ 1 (pow D 2)))))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (/ (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 (* (* (pow (/ d h) (/ 1 2)) (* (pow (/ d l) 1/4) (pow (/ d l) 1/4))) (- 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/4) (pow (/ d l) 1/4))) (- 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/4) (pow (/ d l) 1/4))) #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/4) (pow (/ d l) 1/4)) #s(hole binary64 (* -1 (* (sqrt (/ d l)) (pow (sqrt -1) 2)))))
#s(approx (pow (/ d l) 1/4) #s(hole binary64 (exp (* 1/4 (+ (log (/ -1 l)) (* -1 (log (/ -1 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 (* (* 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 (* (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))) #s(hole binary64 (* -1 (* (* d (pow (sqrt -1) 2)) (sqrt (/ 1 (* h l)))))))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (/ (sqrt d) (sqrt l))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) #s(hole binary64 (* -1 (* (* d (pow (sqrt -1) 2)) (sqrt (/ 1 (* h l)))))))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (/ (sqrt d) (sqrt l))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) #s(hole binary64 (* -1 (* d (+ (* -1/8 (* (/ (* (pow D 2) (* (pow M 2) (pow (sqrt -1) 2))) (pow d 2)) (sqrt (/ h (pow l 3))))) (* (sqrt (/ 1 (* h l))) (pow (sqrt -1) 2)))))))
#s(approx (* (pow (/ d h) (/ 1 2)) (/ (sqrt d) (sqrt l))) #s(hole binary64 (* -1 (* (* d (pow (sqrt -1) 2)) (sqrt (/ 1 (* h l)))))))
#s(approx (/ (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 (* (* (pow (/ d h) (/ 1 2)) (* (pow (/ d l) 1/4) (pow (/ d l) 1/4))) (- 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 (neg (pow (* l h) -1/2)) #s(hole binary64 (* -1 (sqrt (/ 1 (* h l))))))
#s(approx (pow (* l h) -1/2) #s(hole binary64 (sqrt (/ 1 (* h l)))))
#s(approx (* 1/8 (* (* M M) h)) #s(hole binary64 (* 1/8 (* (pow M 2) h))))
#s(approx (* (* M M) h) #s(hole binary64 (* (pow M 2) h)))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (/ (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 (* (* (pow (/ d h) (/ 1 2)) (* (pow (/ d l) 1/4) (pow (/ d l) 1/4))) (- 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 (* (+ (* (* (* M M) (/ h (* (* d d) l))) -1/8) (pow D -2)) (* D D)) #s(hole binary64 (* h (+ (* -1/8 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (/ 1 h)))))
#s(approx (+ (* (* (* M M) (/ h (* (* d d) l))) -1/8) (pow D -2)) #s(hole binary64 (* h (+ (* -1/8 (/ (pow M 2) (* (pow d 2) l))) (/ 1 (* (pow D 2) h))))))
#s(approx (* (- (pow D -2) (/ (* 1/8 (* (* M M) h)) (* (* d d) l))) (* D D)) #s(hole binary64 (* h (+ (* -1/8 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (/ 1 h)))))
#s(approx (- (pow D -2) (/ (* 1/8 (* (* M M) h)) (* (* d d) l))) #s(hole binary64 (* h (- (/ 1 (* (pow D 2) h)) (* 1/8 (/ (pow M 2) (* (pow d 2) l)))))))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (/ (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 (* (* (pow (/ d h) (/ 1 2)) (* (pow (/ d l) 1/4) (pow (/ d l) 1/4))) (- 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/4) (pow (/ d l) 1/4))) (- 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/4) (pow (/ d l) 1/4))) #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 (/ 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 (* (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 (* (* (/ 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 (* (+ (* (* (* M M) (/ h (* (* d d) l))) -1/8) (pow D -2)) (* D D)) #s(hole binary64 (* -1 (* h (- (* 1/8 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (/ 1 h))))))
#s(approx (+ (* (* (* M M) (/ h (* (* d d) l))) -1/8) (pow D -2)) #s(hole binary64 (* -1 (* 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))) #s(hole binary64 (* (* d (pow (sqrt -1) 2)) (sqrt (/ 1 (* h l))))))
#s(approx (* d (neg (pow (* l h) -1/2))) #s(hole binary64 (* -1 (* (* d (pow (sqrt -1) 2)) (sqrt (/ 1 (* h l)))))))
#s(approx (neg (pow (* l h) -1/2)) #s(hole binary64 (* -1 (* (sqrt (/ 1 (* h l))) (pow (sqrt -1) 2)))))
#s(approx (pow (* l h) -1/2) #s(hole binary64 (* (sqrt (/ 1 (* h l))) (pow (sqrt -1) 2))))
#s(approx (* (- (pow D -2) (/ (* 1/8 (* (* M M) h)) (* (* d d) l))) (* D D)) #s(hole binary64 (* -1 (* h (- (* 1/8 (/ (* (pow D 2) (pow M 2)) (* (pow d 2) l))) (/ 1 h))))))
#s(approx (- (pow D -2) (/ (* 1/8 (* (* M M) h)) (* (* d d) l))) #s(hole binary64 (* h (+ (* -1/8 (/ (pow M 2) (* (pow d 2) l))) (/ 1 (* (pow D 2) h))))))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (/ (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)) (* (pow (/ d l) 1/4) (pow (/ d l) 1/4))) (- 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 (pow (/ d l) 1/4) #s(hole binary64 (exp (* 1/4 (+ (log d) (* -1 (log l)))))))
#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 (* (+ (* (* (* M M) (/ h (* (* d d) l))) -1/8) (pow D -2)) (* D D)) #s(hole binary64 (/ (+ l (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l)))
#s(approx (+ (* (* (* M M) (/ h (* (* d d) l))) -1/8) (pow D -2)) #s(hole binary64 (/ (+ (* -1/8 (/ (* (pow M 2) h) (pow d 2))) (/ l (pow D 2))) l)))
#s(approx (* (- (pow D -2) (/ (* 1/8 (* (* M M) h)) (* (* d d) l))) (* D D)) #s(hole binary64 (/ (+ l (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))) l)))
#s(approx (- (pow D -2) (/ (* 1/8 (* (* M M) h)) (* (* d d) l))) #s(hole binary64 (/ (- (/ l (pow D 2)) (* 1/8 (/ (* (pow M 2) h) (pow d 2)))) l)))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (/ (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 (* (* (pow (/ d h) (/ 1 2)) (* (pow (/ d l) 1/4) (pow (/ d l) 1/4))) (- 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) (/ 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 (* (* (pow (/ d h) (/ 1 2)) (* (pow (/ d l) 1/4) (pow (/ d l) 1/4))) (- 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/4) (pow (/ d l) 1/4))) (- 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/4) (pow (/ d l) 1/4)) #s(hole binary64 (* (sqrt (/ d l)) (pow (sqrt -1) 2))))
#s(approx (pow (/ d l) 1/4) #s(hole binary64 (exp (* 1/4 (+ (log (* -1 d)) (log (/ -1 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 (* (* (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 (sqrt (/ d l)) #s(hole binary64 (* (sqrt (/ d l)) (pow (sqrt -1) 2))))
#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 M) #s(hole binary64 (pow M 2)))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (* (pow (/ d l) 1/4) (pow (/ d l) 1/4))) (- 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 (* (+ (* (* (* M M) (/ h (* (* d d) l))) -1/8) (pow D -2)) (* D D)) #s(hole binary64 (* (pow M 2) (+ (* -1/8 (/ (* (pow D 2) h) (* (pow d 2) l))) (/ 1 (pow M 2))))))
#s(approx (+ (* (* (* M M) (/ h (* (* d d) l))) -1/8) (pow D -2)) #s(hole binary64 (* (pow M 2) (+ (* -1/8 (/ h (* (pow d 2) l))) (/ 1 (* (pow D 2) (pow M 2)))))))
#s(approx (* (- (pow D -2) (/ (* 1/8 (* (* M M) h)) (* (* d d) l))) (* D D)) #s(hole binary64 (* (pow M 2) (+ (* -1/8 (/ (* (pow D 2) h) (* (pow d 2) l))) (/ 1 (pow M 2))))))
#s(approx (- (pow D -2) (/ (* 1/8 (* (* M M) h)) (* (* d d) l))) #s(hole binary64 (* (pow M 2) (- (/ 1 (* (pow D 2) (pow M 2))) (* 1/8 (/ h (* (pow d 2) l)))))))
#s(approx (* (* (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 (+ (* (* (* M M) (/ h (* (* d d) l))) -1/8) (pow D -2)) #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 -2) (/ (* 1/8 (* (* M M) h)) (* (* d d) l))) #s(hole binary64 (/ (+ 1 (* -1/8 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow d 2) l)))) (pow D 2))))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (* (pow (/ d l) 1/4) (pow (/ d l) 1/4))) (- 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 (* (+ (* (* (* M M) (/ h (* (* d d) l))) -1/8) (pow D -2)) (* D D)) #s(hole binary64 (* (pow D 2) (+ (* -1/8 (/ (* (pow M 2) h) (* (pow d 2) l))) (/ 1 (pow D 2))))))
#s(approx (* (- (pow D -2) (/ (* 1/8 (* (* M M) h)) (* (* d d) l))) (* D D)) #s(hole binary64 (* (pow D 2) (+ (* -1/8 (/ (* (pow M 2) h) (* (pow d 2) l))) (/ 1 (pow D 2))))))
#s(approx (- (pow D -2) (/ (* 1/8 (* (* M M) h)) (* (* d d) l))) #s(hole binary64 (- (/ 1 (pow D 2)) (* 1/8 (/ (* (pow M 2) h) (* (pow d 2) l))))))
#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
51.0ms	d	@	-inf	((* (* (pow (/ d h) (/ 1 2)) (* (pow (/ d l) 1/4) (pow (/ d l) 1/4))) (- 1 (/ (* (* (pow (* (/ M 2) (/ D d)) 2) 1/2) h) l))) (* (pow (/ d h) (/ 1 2)) (* (pow (/ d l) 1/4) (pow (/ d l) 1/4))) (pow (/ d h) (/ 1 2)) (/ d h) d h (/ 1 2) 1 2 (* (pow (/ d l) 1/4) (pow (/ d l) 1/4)) (pow (/ d l) 1/4) (/ d l) l 1/4 (- 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 (/ 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)))) (* (sqrt (/ d l)) (sqrt (/ d h))) (sqrt (/ d l)) (sqrt (/ d h)) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (* (+ (* (* (* M M) (/ h (* (* d d) l))) -1/8) (pow D -2)) (* D D)) (+ (* (* (* M M) (/ h (* (* d d) l))) -1/8) (pow D -2)) (* (* M M) (/ h (* (* d d) l))) (* M M) (/ h (* (* d d) l)) (* (* d d) l) (* d d) -1/8 (pow D -2) -2 (* D D) (* (* (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))) (* d (neg (pow (* l h) -1/2))) (neg (pow (* l h) -1/2)) (pow (* l h) -1/2) -1/2 (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (* (- (pow D -2) (/ (* 1/8 (* (* M M) h)) (* (* d d) l))) (* D D)) (- (pow D -2) (/ (* 1/8 (* (* M M) h)) (* (* d d) l))) (/ (* 1/8 (* (* M M) h)) (* (* d d) l)) (* 1/8 (* (* M M) h)) 1/8 (* (* M M) h) (* (* (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))) (/ (sqrt d) (sqrt l)) (sqrt d) (sqrt l))
49.0ms	l	@	-inf	((* (* (pow (/ d h) (/ 1 2)) (* (pow (/ d l) 1/4) (pow (/ d l) 1/4))) (- 1 (/ (* (* (pow (* (/ M 2) (/ D d)) 2) 1/2) h) l))) (* (pow (/ d h) (/ 1 2)) (* (pow (/ d l) 1/4) (pow (/ d l) 1/4))) (pow (/ d h) (/ 1 2)) (/ d h) d h (/ 1 2) 1 2 (* (pow (/ d l) 1/4) (pow (/ d l) 1/4)) (pow (/ d l) 1/4) (/ d l) l 1/4 (- 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 (/ 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)))) (* (sqrt (/ d l)) (sqrt (/ d h))) (sqrt (/ d l)) (sqrt (/ d h)) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (* (+ (* (* (* M M) (/ h (* (* d d) l))) -1/8) (pow D -2)) (* D D)) (+ (* (* (* M M) (/ h (* (* d d) l))) -1/8) (pow D -2)) (* (* M M) (/ h (* (* d d) l))) (* M M) (/ h (* (* d d) l)) (* (* d d) l) (* d d) -1/8 (pow D -2) -2 (* D D) (* (* (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))) (* d (neg (pow (* l h) -1/2))) (neg (pow (* l h) -1/2)) (pow (* l h) -1/2) -1/2 (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (* (- (pow D -2) (/ (* 1/8 (* (* M M) h)) (* (* d d) l))) (* D D)) (- (pow D -2) (/ (* 1/8 (* (* M M) h)) (* (* d d) l))) (/ (* 1/8 (* (* M M) h)) (* (* d d) l)) (* 1/8 (* (* M M) h)) 1/8 (* (* M M) h) (* (* (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))) (/ (sqrt d) (sqrt l)) (sqrt d) (sqrt l))
32.0ms	d	@	0	((* (* (pow (/ d h) (/ 1 2)) (* (pow (/ d l) 1/4) (pow (/ d l) 1/4))) (- 1 (/ (* (* (pow (* (/ M 2) (/ D d)) 2) 1/2) h) l))) (* (pow (/ d h) (/ 1 2)) (* (pow (/ d l) 1/4) (pow (/ d l) 1/4))) (pow (/ d h) (/ 1 2)) (/ d h) d h (/ 1 2) 1 2 (* (pow (/ d l) 1/4) (pow (/ d l) 1/4)) (pow (/ d l) 1/4) (/ d l) l 1/4 (- 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 (/ 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)))) (* (sqrt (/ d l)) (sqrt (/ d h))) (sqrt (/ d l)) (sqrt (/ d h)) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (* (+ (* (* (* M M) (/ h (* (* d d) l))) -1/8) (pow D -2)) (* D D)) (+ (* (* (* M M) (/ h (* (* d d) l))) -1/8) (pow D -2)) (* (* M M) (/ h (* (* d d) l))) (* M M) (/ h (* (* d d) l)) (* (* d d) l) (* d d) -1/8 (pow D -2) -2 (* D D) (* (* (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))) (* d (neg (pow (* l h) -1/2))) (neg (pow (* l h) -1/2)) (pow (* l h) -1/2) -1/2 (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (* (- (pow D -2) (/ (* 1/8 (* (* M M) h)) (* (* d d) l))) (* D D)) (- (pow D -2) (/ (* 1/8 (* (* M M) h)) (* (* d d) l))) (/ (* 1/8 (* (* M M) h)) (* (* d d) l)) (* 1/8 (* (* M M) h)) 1/8 (* (* M M) h) (* (* (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))) (/ (sqrt d) (sqrt l)) (sqrt d) (sqrt l))
21.0ms	l	@	0	((* (* (pow (/ d h) (/ 1 2)) (* (pow (/ d l) 1/4) (pow (/ d l) 1/4))) (- 1 (/ (* (* (pow (* (/ M 2) (/ D d)) 2) 1/2) h) l))) (* (pow (/ d h) (/ 1 2)) (* (pow (/ d l) 1/4) (pow (/ d l) 1/4))) (pow (/ d h) (/ 1 2)) (/ d h) d h (/ 1 2) 1 2 (* (pow (/ d l) 1/4) (pow (/ d l) 1/4)) (pow (/ d l) 1/4) (/ d l) l 1/4 (- 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 (/ 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)))) (* (sqrt (/ d l)) (sqrt (/ d h))) (sqrt (/ d l)) (sqrt (/ d h)) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (* (+ (* (* (* M M) (/ h (* (* d d) l))) -1/8) (pow D -2)) (* D D)) (+ (* (* (* M M) (/ h (* (* d d) l))) -1/8) (pow D -2)) (* (* M M) (/ h (* (* d d) l))) (* M M) (/ h (* (* d d) l)) (* (* d d) l) (* d d) -1/8 (pow D -2) -2 (* D D) (* (* (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))) (* d (neg (pow (* l h) -1/2))) (neg (pow (* l h) -1/2)) (pow (* l h) -1/2) -1/2 (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (* (- (pow D -2) (/ (* 1/8 (* (* M M) h)) (* (* d d) l))) (* D D)) (- (pow D -2) (/ (* 1/8 (* (* M M) h)) (* (* d d) l))) (/ (* 1/8 (* (* M M) h)) (* (* d d) l)) (* 1/8 (* (* M M) h)) 1/8 (* (* M M) h) (* (* (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))) (/ (sqrt d) (sqrt l)) (sqrt d) (sqrt l))
16.0ms	d	@	inf	((* (* (pow (/ d h) (/ 1 2)) (* (pow (/ d l) 1/4) (pow (/ d l) 1/4))) (- 1 (/ (* (* (pow (* (/ M 2) (/ D d)) 2) 1/2) h) l))) (* (pow (/ d h) (/ 1 2)) (* (pow (/ d l) 1/4) (pow (/ d l) 1/4))) (pow (/ d h) (/ 1 2)) (/ d h) d h (/ 1 2) 1 2 (* (pow (/ d l) 1/4) (pow (/ d l) 1/4)) (pow (/ d l) 1/4) (/ d l) l 1/4 (- 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 (/ 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)))) (* (sqrt (/ d l)) (sqrt (/ d h))) (sqrt (/ d l)) (sqrt (/ d h)) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (* (+ (* (* (* M M) (/ h (* (* d d) l))) -1/8) (pow D -2)) (* D D)) (+ (* (* (* M M) (/ h (* (* d d) l))) -1/8) (pow D -2)) (* (* M M) (/ h (* (* d d) l))) (* M M) (/ h (* (* d d) l)) (* (* d d) l) (* d d) -1/8 (pow D -2) -2 (* D D) (* (* (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))) (* d (neg (pow (* l h) -1/2))) (neg (pow (* l h) -1/2)) (pow (* l h) -1/2) -1/2 (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (* (- (pow D -2) (/ (* 1/8 (* (* M M) h)) (* (* d d) l))) (* D D)) (- (pow D -2) (/ (* 1/8 (* (* M M) h)) (* (* d d) l))) (/ (* 1/8 (* (* M M) h)) (* (* d d) l)) (* 1/8 (* (* M M) h)) 1/8 (* (* M M) h) (* (* (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))) (/ (sqrt d) (sqrt l)) (sqrt d) (sqrt l))

rewrite89.0ms (1%)

Memory

34.2MiB live, 130.7MiB allocated; 7ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	538	7496
0	624	6659
0	2018	6583

Stop Event

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

Counts

252 → 425

Calls

Call 1

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

eval46.0ms (0.5%)

Memory: 1.3MiB live, 92.8MiB allocated; 6ms collecting garbage
Compiler: Compiled 25 797 to 1 669 computations (93.5% saved)

prune64.0ms (0.7%)

Memory

6.2MiB live, 146.5MiB allocated; 17ms collecting garbage

Pruning

44 alts after pruning (43 fresh and 1 done)

	Pruned	Kept	Total
New	464	19	483
Fresh	11	24	35
Picked	4	1	5
Done	0	0	0
Total	479	44	523

Accuracy

93.3%

Counts

523 → 44

Alt Table

Click to see full alt table

Status	Accuracy	Program
	55.2%	(.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))))
	34.0%	(.f64 (/.f64 (.f64 (sqrt.f64 (/.f64 d h)) (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)))
	56.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)) (sqrt.f64 (*.f64 (/.f64 d l) (/.f64 d h))))
	63.5%	(.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))))
	33.1%	(.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))))
▶	68.0%	(.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 (pow.f64 (/.f64 (.f64 D M) (*.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) #s(literal 1/2 binary64)) h) l)))
	37.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)))) #s(approx (- 1 ( (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) #s(literal 1 binary64)))
	37.9%	(.f64 (.f64 (/.f64 (sqrt.f64 d) (sqrt.f64 h)) (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)))
	65.0%	(.f64 (.f64 (.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 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))))
	65.0%	(.f64 (.f64 (sqrt.f64 (/.f64 d l)) (sqrt.f64 (/.f64 d h))) (-.f64 #s(literal 1 binary64) (.f64 (.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) (pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64))) (/.f64 h l))))
	38.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 (fma.f64 (.f64 (.f64 M M) (/.f64 h (.f64 (.f64 d d) l))) #s(literal -1/8 binary64) (/.f64 #s(literal 1 binary64) (.f64 D D))) (*.f64 D D))))
▶	42.2%	(.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 (fma.f64 #s(literal -1/8 binary64) (.f64 (.f64 M M) (/.f64 (/.f64 h (*.f64 d d)) l)) (pow.f64 D #s(literal -2 binary64))) D) D)))
	26.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 #s(approx (+ ( (* (* M M) (/ h (* (* d d) l))) -1/8) (pow D -2)) (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 (+ ( (* (* M M) (/ h (* (* d d) l))) -1/8) (pow D -2)) (/.f64 (fma.f64 (/.f64 (.f64 (.f64 M M) h) l) #s(literal -1/8 binary64) (/.f64 (.f64 d d) (.f64 D D))) (.f64 d d))) (.f64 D D))))
	40.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 #s(approx (+ ( (* (* M M) (/ h (* (* d d) l))) -1/8) (pow D -2)) (/.f64 (fma.f64 (.f64 (.f64 M M) (/.f64 h (.f64 d d))) #s(literal -1/8 binary64) (/.f64 l (.f64 D D))) l)) (*.f64 D D))))
	19.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 #s(approx (+ ( (* (* M M) (/ h (* (* d d) l))) -1/8) (pow D -2)) (/.f64 (.f64 #s(literal -1/8 binary64) (.f64 (.f64 M M) h)) (.f64 (.f64 d d) l))) (.f64 D D))))
	50.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))) #s(approx (* (+ (* (* (* M M) (/ h (* (* d d) l))) -1/8) (pow D -2)) (* D D)) (fma.f64 (/.f64 (.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) h) (.f64 (.f64 d d) l)) #s(literal -1/8 binary64) #s(literal 1 binary64)))))
	23.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))) #s(approx (* (+ (* (* (* M M) (/ h (* (* d d) l))) -1/8) (pow D -2)) (* D D)) (.f64 (/.f64 (.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) h) (.f64 (*.f64 d d) l)) #s(literal -1/8 binary64)))))
	37.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))) #s(approx (* (+ (* (* (* M M) (/ h (* (* d d) l))) -1/8) (pow D -2)) (* D D)) #s(literal 1 binary64))))
	19.3%	(.f64 (.f64 (sqrt.f64 (/.f64 d h)) (/.f64 (sqrt.f64 d) (sqrt.f64 l))) #s(approx (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (.f64 (-.f64 (pow.f64 D #s(literal -2 binary64)) (/.f64 (.f64 #s(literal 1/8 binary64) (.f64 (.f64 M M) h)) (.f64 (.f64 d d) l))) (*.f64 D D))))
	40.5%	(.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 (fma.f64 #s(literal -1/8 binary64) (.f64 (.f64 M M) (/.f64 (/.f64 h (.f64 d d)) l)) (pow.f64 D #s(literal -2 binary64))) (*.f64 D D)))))
	37.6%	(.f64 #s(approx ( (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (.f64 (pow.f64 (.f64 l h) #s(literal -1/2 binary64)) d)) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (pow.f64 (*.f64 (/.f64 M #s(literal 2 binary64)) (/.f64 D d)) #s(literal 2 binary64)) #s(literal 1/2 binary64)) h) l)))
	36.0%	(.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))))
	23.9%	(.f64 #s(approx ( (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (.f64 d (neg.f64 (pow.f64 (.f64 l h) #s(literal -1/2 binary64))))) #s(approx (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (.f64 (-.f64 (pow.f64 D #s(literal -2 binary64)) (/.f64 (.f64 #s(literal 1/8 binary64) (.f64 M (.f64 M h))) (.f64 (.f64 d d) l))) (*.f64 D D))))
	22.3%	(.f64 #s(approx ( (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (.f64 d (neg.f64 (pow.f64 (.f64 l h) #s(literal -1/2 binary64))))) #s(approx (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (.f64 (-.f64 (/.f64 #s(literal 1 binary64) (.f64 D D)) (/.f64 (.f64 #s(literal 1/8 binary64) (.f64 (.f64 M M) h)) (.f64 (.f64 d d) l))) (.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 (fma.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))
	53.4%	#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (/.f64 (fma.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))) (*.f64 (sqrt.f64 (/.f64 h l)) d)) h))
	20.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 (fma.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) d)) (sqrt.f64 (.f64 l h)) (.f64 (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) h)) d)) (*.f64 l l)))
	21.3%	#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 (fma.f64 (.f64 (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) (.f64 d d)) (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64))))) #s(literal -1/8 binary64) (pow.f64 (*.f64 l h) #s(literal -1/2 binary64))) d))
	33.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 (fma.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))) (.f64 (sqrt.f64 (pow.f64 (.f64 (pow.f64 h #s(literal 3 binary64)) l) #s(literal -1 binary64))) d)) h))
	21.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 (fma.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 M M) d)) (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64)))) (.f64 (/.f64 d (.f64 D D)) #s(approx (sqrt (pow ( l h) -1)) (neg.f64 (pow.f64 (.f64 l h) #s(literal -1/2 binary64)))))) (.f64 D 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 (pow.f64 (.f64 l h) #s(literal -1/2 binary64)) d))
▶	23.5%	#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (.f64 l h))) d))
▶	21.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 (fma.f64 (/.f64 d (.f64 D D)) (pow.f64 (.f64 l h) #s(literal -1/2 binary64)) (.f64 (.f64 (/.f64 (*.f64 M M) d) #s(literal -1/8 binary64)) (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64)))))) D) D))
	20.3%	#s(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)))
	19.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/8 binary64) (/.f64 (.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) #s(literal -1 binary64)) d)) (sqrt.f64 (/.f64 h (.f64 (.f64 l l) l)))))
	14.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 #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.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 (sqrt.f64 (/.f64 (pow.f64 l #s(literal -1 binary64)) h)) d))
✓	23.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 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 l h))) d))
	26.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 (neg.f64 d) (sqrt.f64 (pow.f64 (.f64 l h) #s(literal -1 binary64)))))
	15.2%	#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 #s(approx (+ ( (* -1/8 (/ (* M M) d)) (sqrt (/ h (pow l 3)))) (* (/ d (* D D)) (sqrt (pow (* l h) -1)))) (/.f64 (fma.f64 (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) h)) (/.f64 d (.f64 D D)) (.f64 (.f64 (/.f64 (.f64 M M) d) #s(literal -1/8 binary64)) (sqrt.f64 (.f64 l h)))) (.f64 l l))) (*.f64 D D)))
	38.4%	#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 #s(approx (+ ( (* -1/8 (/ (* M M) d)) (sqrt (/ h (pow l 3)))) (* (/ d (* D D)) (sqrt (pow (* l h) -1)))) (/.f64 (fma.f64 (sqrt.f64 (/.f64 h l)) (/.f64 d (.f64 D D)) (.f64 (.f64 (/.f64 (.f64 M M) d) #s(literal -1/8 binary64)) (sqrt.f64 (pow.f64 (/.f64 h l) #s(literal 3 binary64))))) h)) (*.f64 D D)))
▶	15.8%	#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 #s(approx (+ ( (* -1/8 (/ (* M M) d)) (sqrt (/ h (pow l 3)))) (* (/ d (* D D)) (sqrt (pow (* l h) -1)))) (.f64 (.f64 (/.f64 (.f64 M M) d) #s(literal -1/8 binary64)) (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64)))))) (.f64 D D)))
	25.2%	#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 #s(approx (sqrt (pow ( l h) -1)) (neg.f64 (pow.f64 (*.f64 l h) #s(literal -1/2 binary64)))) d))

Compiler

Compiled 4 652 to 3 048 computations (34.5% saved)

series754.0ms (8.2%)

Memory

-57.0MiB live, 467.4MiB allocated; 1.1s collecting garbage

Counts

64 → 232

Calls

Call 1

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

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

Calls

15 calls:

Time	Variable		Point	Expression
439.0ms	l	@	0	((* (* (pow (/ d h) (/ 1 2)) (* (pow (/ d l) 1/4) (pow (/ d l) 1/4))) (- 1 (/ (* (* (pow (/ (* D M) (* 2 d)) 2) 1/2) h) l))) (* (pow (/ d h) (/ 1 2)) (* (pow (/ d l) 1/4) (pow (/ d l) 1/4))) (pow (/ d h) (/ 1 2)) (/ d h) d h (/ 1 2) 1 2 (* (pow (/ d l) 1/4) (pow (/ d l) 1/4)) (pow (/ d l) 1/4) (/ d l) l 1/4 (- 1 (/ (* (* (pow (/ (* D M) (* 2 d)) 2) 1/2) h) l)) (/ (* (* (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) 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)))) (* (+ (* (* -1/8 (/ (* M M) d)) (sqrt (/ h (pow l 3)))) (* (/ d (* D D)) (sqrt (pow (* l h) -1)))) (* D D)) (+ (* (* -1/8 (/ (* M M) d)) (sqrt (/ h (pow l 3)))) (* (/ d (* D D)) (sqrt (pow (* l h) -1)))) (* (* (/ (* M M) d) -1/8) (sqrt (/ h (pow l 3)))) (* (/ (* M M) d) -1/8) (/ (* M M) d) (* M M) -1/8 (sqrt (/ h (pow l 3))) (/ h (pow l 3)) (pow l 3) 3 (* D D) (* (* (sqrt (/ d l)) (sqrt (/ d h))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (* (sqrt (/ d l)) (sqrt (/ d h))) (sqrt (/ d l)) (sqrt (/ d h)) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (* (* (+ (* -1/8 (* (* M M) (/ (/ h (* d d)) l))) (pow D -2)) D) D) (* (+ (* -1/8 (* (* M M) (/ (/ h (* d d)) l))) (pow D -2)) D) (+ (* -1/8 (* (* M M) (/ (/ h (* d d)) l))) (pow D -2)) (* (* M M) (/ (/ h (* d d)) l)) (/ (/ h (* d d)) l) (/ h (* d d)) (* d d) (pow D -2) -2 (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (* (* (+ (* (/ d (* D D)) (pow (* l h) -1/2)) (* (* (/ (* M M) d) -1/8) (sqrt (/ h (pow l 3))))) D) D) (* (+ (* (/ d (* D D)) (pow (* l h) -1/2)) (* (* (/ (* M M) d) -1/8) (sqrt (/ h (pow l 3))))) D) (+ (* (/ d (* D D)) (pow (* l h) -1/2)) (* (* (/ (* M M) d) -1/8) (sqrt (/ h (pow l 3))))) (/ d (* D D)) (pow (* l h) -1/2) -1/2)
43.0ms	l	@	-inf	((* (* (pow (/ d h) (/ 1 2)) (* (pow (/ d l) 1/4) (pow (/ d l) 1/4))) (- 1 (/ (* (* (pow (/ (* D M) (* 2 d)) 2) 1/2) h) l))) (* (pow (/ d h) (/ 1 2)) (* (pow (/ d l) 1/4) (pow (/ d l) 1/4))) (pow (/ d h) (/ 1 2)) (/ d h) d h (/ 1 2) 1 2 (* (pow (/ d l) 1/4) (pow (/ d l) 1/4)) (pow (/ d l) 1/4) (/ d l) l 1/4 (- 1 (/ (* (* (pow (/ (* D M) (* 2 d)) 2) 1/2) h) l)) (/ (* (* (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) 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)))) (* (+ (* (* -1/8 (/ (* M M) d)) (sqrt (/ h (pow l 3)))) (* (/ d (* D D)) (sqrt (pow (* l h) -1)))) (* D D)) (+ (* (* -1/8 (/ (* M M) d)) (sqrt (/ h (pow l 3)))) (* (/ d (* D D)) (sqrt (pow (* l h) -1)))) (* (* (/ (* M M) d) -1/8) (sqrt (/ h (pow l 3)))) (* (/ (* M M) d) -1/8) (/ (* M M) d) (* M M) -1/8 (sqrt (/ h (pow l 3))) (/ h (pow l 3)) (pow l 3) 3 (* D D) (* (* (sqrt (/ d l)) (sqrt (/ d h))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (* (sqrt (/ d l)) (sqrt (/ d h))) (sqrt (/ d l)) (sqrt (/ d h)) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (* (* (+ (* -1/8 (* (* M M) (/ (/ h (* d d)) l))) (pow D -2)) D) D) (* (+ (* -1/8 (* (* M M) (/ (/ h (* d d)) l))) (pow D -2)) D) (+ (* -1/8 (* (* M M) (/ (/ h (* d d)) l))) (pow D -2)) (* (* M M) (/ (/ h (* d d)) l)) (/ (/ h (* d d)) l) (/ h (* d d)) (* d d) (pow D -2) -2 (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (* (* (+ (* (/ d (* D D)) (pow (* l h) -1/2)) (* (* (/ (* M M) d) -1/8) (sqrt (/ h (pow l 3))))) D) D) (* (+ (* (/ d (* D D)) (pow (* l h) -1/2)) (* (* (/ (* M M) d) -1/8) (sqrt (/ h (pow l 3))))) D) (+ (* (/ d (* D D)) (pow (* l h) -1/2)) (* (* (/ (* M M) d) -1/8) (sqrt (/ h (pow l 3))))) (/ d (* D D)) (pow (* l h) -1/2) -1/2)
39.0ms	D	@	-inf	((* (* (pow (/ d h) (/ 1 2)) (* (pow (/ d l) 1/4) (pow (/ d l) 1/4))) (- 1 (/ (* (* (pow (/ (* D M) (* 2 d)) 2) 1/2) h) l))) (* (pow (/ d h) (/ 1 2)) (* (pow (/ d l) 1/4) (pow (/ d l) 1/4))) (pow (/ d h) (/ 1 2)) (/ d h) d h (/ 1 2) 1 2 (* (pow (/ d l) 1/4) (pow (/ d l) 1/4)) (pow (/ d l) 1/4) (/ d l) l 1/4 (- 1 (/ (* (* (pow (/ (* D M) (* 2 d)) 2) 1/2) h) l)) (/ (* (* (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) 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)))) (* (+ (* (* -1/8 (/ (* M M) d)) (sqrt (/ h (pow l 3)))) (* (/ d (* D D)) (sqrt (pow (* l h) -1)))) (* D D)) (+ (* (* -1/8 (/ (* M M) d)) (sqrt (/ h (pow l 3)))) (* (/ d (* D D)) (sqrt (pow (* l h) -1)))) (* (* (/ (* M M) d) -1/8) (sqrt (/ h (pow l 3)))) (* (/ (* M M) d) -1/8) (/ (* M M) d) (* M M) -1/8 (sqrt (/ h (pow l 3))) (/ h (pow l 3)) (pow l 3) 3 (* D D) (* (* (sqrt (/ d l)) (sqrt (/ d h))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (* (sqrt (/ d l)) (sqrt (/ d h))) (sqrt (/ d l)) (sqrt (/ d h)) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (* (* (+ (* -1/8 (* (* M M) (/ (/ h (* d d)) l))) (pow D -2)) D) D) (* (+ (* -1/8 (* (* M M) (/ (/ h (* d d)) l))) (pow D -2)) D) (+ (* -1/8 (* (* M M) (/ (/ h (* d d)) l))) (pow D -2)) (* (* M M) (/ (/ h (* d d)) l)) (/ (/ h (* d d)) l) (/ h (* d d)) (* d d) (pow D -2) -2 (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (* (* (+ (* (/ d (* D D)) (pow (* l h) -1/2)) (* (* (/ (* M M) d) -1/8) (sqrt (/ h (pow l 3))))) D) D) (* (+ (* (/ d (* D D)) (pow (* l h) -1/2)) (* (* (/ (* M M) d) -1/8) (sqrt (/ h (pow l 3))))) D) (+ (* (/ d (* D D)) (pow (* l h) -1/2)) (* (* (/ (* M M) d) -1/8) (sqrt (/ h (pow l 3))))) (/ d (* D D)) (pow (* l h) -1/2) -1/2)
37.0ms	M	@	0	((* (* (pow (/ d h) (/ 1 2)) (* (pow (/ d l) 1/4) (pow (/ d l) 1/4))) (- 1 (/ (* (* (pow (/ (* D M) (* 2 d)) 2) 1/2) h) l))) (* (pow (/ d h) (/ 1 2)) (* (pow (/ d l) 1/4) (pow (/ d l) 1/4))) (pow (/ d h) (/ 1 2)) (/ d h) d h (/ 1 2) 1 2 (* (pow (/ d l) 1/4) (pow (/ d l) 1/4)) (pow (/ d l) 1/4) (/ d l) l 1/4 (- 1 (/ (* (* (pow (/ (* D M) (* 2 d)) 2) 1/2) h) l)) (/ (* (* (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) 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)))) (* (+ (* (* -1/8 (/ (* M M) d)) (sqrt (/ h (pow l 3)))) (* (/ d (* D D)) (sqrt (pow (* l h) -1)))) (* D D)) (+ (* (* -1/8 (/ (* M M) d)) (sqrt (/ h (pow l 3)))) (* (/ d (* D D)) (sqrt (pow (* l h) -1)))) (* (* (/ (* M M) d) -1/8) (sqrt (/ h (pow l 3)))) (* (/ (* M M) d) -1/8) (/ (* M M) d) (* M M) -1/8 (sqrt (/ h (pow l 3))) (/ h (pow l 3)) (pow l 3) 3 (* D D) (* (* (sqrt (/ d l)) (sqrt (/ d h))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (* (sqrt (/ d l)) (sqrt (/ d h))) (sqrt (/ d l)) (sqrt (/ d h)) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (* (* (+ (* -1/8 (* (* M M) (/ (/ h (* d d)) l))) (pow D -2)) D) D) (* (+ (* -1/8 (* (* M M) (/ (/ h (* d d)) l))) (pow D -2)) D) (+ (* -1/8 (* (* M M) (/ (/ h (* d d)) l))) (pow D -2)) (* (* M M) (/ (/ h (* d d)) l)) (/ (/ h (* d d)) l) (/ h (* d d)) (* d d) (pow D -2) -2 (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (* (* (+ (* (/ d (* D D)) (pow (* l h) -1/2)) (* (* (/ (* M M) d) -1/8) (sqrt (/ h (pow l 3))))) D) D) (* (+ (* (/ d (* D D)) (pow (* l h) -1/2)) (* (* (/ (* M M) d) -1/8) (sqrt (/ h (pow l 3))))) D) (+ (* (/ d (* D D)) (pow (* l h) -1/2)) (* (* (/ (* M M) d) -1/8) (sqrt (/ h (pow l 3))))) (/ d (* D D)) (pow (* l h) -1/2) -1/2)
34.0ms	h	@	0	((* (* (pow (/ d h) (/ 1 2)) (* (pow (/ d l) 1/4) (pow (/ d l) 1/4))) (- 1 (/ (* (* (pow (/ (* D M) (* 2 d)) 2) 1/2) h) l))) (* (pow (/ d h) (/ 1 2)) (* (pow (/ d l) 1/4) (pow (/ d l) 1/4))) (pow (/ d h) (/ 1 2)) (/ d h) d h (/ 1 2) 1 2 (* (pow (/ d l) 1/4) (pow (/ d l) 1/4)) (pow (/ d l) 1/4) (/ d l) l 1/4 (- 1 (/ (* (* (pow (/ (* D M) (* 2 d)) 2) 1/2) h) l)) (/ (* (* (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) 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)))) (* (+ (* (* -1/8 (/ (* M M) d)) (sqrt (/ h (pow l 3)))) (* (/ d (* D D)) (sqrt (pow (* l h) -1)))) (* D D)) (+ (* (* -1/8 (/ (* M M) d)) (sqrt (/ h (pow l 3)))) (* (/ d (* D D)) (sqrt (pow (* l h) -1)))) (* (* (/ (* M M) d) -1/8) (sqrt (/ h (pow l 3)))) (* (/ (* M M) d) -1/8) (/ (* M M) d) (* M M) -1/8 (sqrt (/ h (pow l 3))) (/ h (pow l 3)) (pow l 3) 3 (* D D) (* (* (sqrt (/ d l)) (sqrt (/ d h))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (* (sqrt (/ d l)) (sqrt (/ d h))) (sqrt (/ d l)) (sqrt (/ d h)) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (* (* (+ (* -1/8 (* (* M M) (/ (/ h (* d d)) l))) (pow D -2)) D) D) (* (+ (* -1/8 (* (* M M) (/ (/ h (* d d)) l))) (pow D -2)) D) (+ (* -1/8 (* (* M M) (/ (/ h (* d d)) l))) (pow D -2)) (* (* M M) (/ (/ h (* d d)) l)) (/ (/ h (* d d)) l) (/ h (* d d)) (* d d) (pow D -2) -2 (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (* (* (+ (* (/ d (* D D)) (pow (* l h) -1/2)) (* (* (/ (* M M) d) -1/8) (sqrt (/ h (pow l 3))))) D) D) (* (+ (* (/ d (* D D)) (pow (* l h) -1/2)) (* (* (/ (* M M) d) -1/8) (sqrt (/ h (pow l 3))))) D) (+ (* (/ d (* D D)) (pow (* l h) -1/2)) (* (* (/ (* M M) d) -1/8) (sqrt (/ h (pow l 3))))) (/ d (* D D)) (pow (* l h) -1/2) -1/2)

rewrite135.0ms (1.5%)

Memory

17.0MiB live, 153.7MiB allocated; 34ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	733	10640
0	814	9642
0	3054	9532

Stop Event

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

Counts

296 → 480

Calls

Call 1

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

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

eval79.0ms (0.9%)

Memory: -15.4MiB live, 127.9MiB allocated; 41ms collecting garbage
Compiler: Compiled 31 878 to 2 200 computations (93.1% saved)

prune85.0ms (0.9%)

Memory

-2.1MiB live, 191.8MiB allocated; 20ms collecting garbage

Pruning

47 alts after pruning (45 fresh and 2 done)

	Pruned	Kept	Total
New	504	20	524
Fresh	13	25	38
Picked	4	1	5
Done	0	1	1
Total	521	47	568

Accuracy

93.7%

Counts

568 → 47

Alt Table

Click to see full alt table

Status	Accuracy	Program
	34.0%	(.f64 (/.f64 (.f64 (sqrt.f64 (/.f64 d h)) (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)))
	54.1%	(.f64 (-.f64 #s(literal 1 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))) (sqrt.f64 (*.f64 (/.f64 d l) (/.f64 d h))))
	33.1%	(.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))))
	37.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)))) #s(approx (- 1 (/ ( (* (pow (/ (* D M) (* 2 d)) 2) 1/2) h) l)) #s(literal 1 binary64)))
	37.9%	(.f64 (.f64 (/.f64 (sqrt.f64 d) (sqrt.f64 h)) (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)))
	65.0%	(.f64 (.f64 (.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 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))))
	68.0%	(.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)))
	65.0%	(.f64 (.f64 (sqrt.f64 (/.f64 d l)) (sqrt.f64 (/.f64 d h))) (-.f64 #s(literal 1 binary64) (.f64 (.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) (pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64))) (/.f64 h l))))
	41.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 (fma.f64 #s(literal -1/8 binary64) (.f64 (.f64 M M) (/.f64 (/.f64 h (.f64 d d)) l)) (/.f64 #s(literal 1 binary64) (.f64 D D))) D) D)))
	20.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 #s(approx (+ (* -1/8 (* (* M M) (/ (/ h (* d d)) l))) (pow D -2)) (.f64 (.f64 #s(literal -1/8 binary64) (.f64 M M)) (/.f64 (/.f64 h (.f64 d d)) l))) D) D)))
	26.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 #s(approx (+ ( (* (* M M) (/ h (* (* d d) l))) -1/8) (pow D -2)) (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 (+ ( (* (* M M) (/ h (* (* d d) l))) -1/8) (pow D -2)) (/.f64 (fma.f64 (/.f64 (.f64 (.f64 M M) h) l) #s(literal -1/8 binary64) (/.f64 (.f64 d d) (.f64 D D))) (.f64 d d))) (.f64 D D))))
	19.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 #s(approx (+ ( (* (* M M) (/ h (* (* d d) l))) -1/8) (pow D -2)) (/.f64 (.f64 #s(literal -1/8 binary64) (.f64 (.f64 M M) h)) (.f64 (.f64 d d) l))) (.f64 D D))))
	48.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 ( (+ (* -1/8 (* (* M M) (/ (/ h (* d d)) l))) (pow D -2)) D) (/.f64 (fma.f64 (/.f64 (.f64 (.f64 (.f64 M M) h) D) (.f64 d d)) #s(literal -1/8 binary64) (/.f64 l D)) l)) D)))
	20.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 #s(approx ( (+ (* -1/8 (* (* M M) (/ (/ h (* d d)) l))) (pow D -2)) D) (/.f64 (.f64 #s(literal -1/8 binary64) (.f64 (.f64 (.f64 M M) h) D)) (.f64 (.f64 d d) l))) D)))
	23.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))) #s(approx (* (+ (* (* (* M M) (/ h (* (* d d) l))) -1/8) (pow D -2)) (* D D)) (.f64 (/.f64 (.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) h) (.f64 (*.f64 d d) l)) #s(literal -1/8 binary64)))))
	37.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))) #s(approx (* (+ (* (* (* M M) (/ h (* (* d d) l))) -1/8) (pow D -2)) (* D D)) #s(literal 1 binary64))))
	19.3%	(.f64 (.f64 (sqrt.f64 (/.f64 d h)) (/.f64 (sqrt.f64 d) (sqrt.f64 l))) #s(approx (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (.f64 (-.f64 (pow.f64 D #s(literal -2 binary64)) (/.f64 (.f64 #s(literal 1/8 binary64) (.f64 (.f64 M M) h)) (.f64 (.f64 d d) l))) (*.f64 D D))))
	63.5%	(.f64 (sqrt.f64 (/.f64 d l)) (.f64 (sqrt.f64 (/.f64 d h)) (-.f64 #s(literal 1 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)))))
	58.2%	(.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)))
	37.6%	(.f64 #s(approx ( (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (.f64 (pow.f64 (.f64 l h) #s(literal -1/2 binary64)) d)) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (pow.f64 (*.f64 (/.f64 M #s(literal 2 binary64)) (/.f64 D d)) #s(literal 2 binary64)) #s(literal 1/2 binary64)) h) l)))
	36.0%	(.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))))
	23.9%	(.f64 #s(approx ( (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (.f64 d (neg.f64 (pow.f64 (.f64 l h) #s(literal -1/2 binary64))))) #s(approx (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (.f64 (-.f64 (pow.f64 D #s(literal -2 binary64)) (/.f64 (.f64 #s(literal 1/8 binary64) (.f64 M (.f64 M h))) (.f64 (.f64 d d) l))) (*.f64 D D))))
	22.3%	(.f64 #s(approx ( (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (.f64 d (neg.f64 (pow.f64 (.f64 l h) #s(literal -1/2 binary64))))) #s(approx (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (.f64 (-.f64 (/.f64 #s(literal 1 binary64) (.f64 D D)) (/.f64 (.f64 #s(literal 1/8 binary64) (.f64 (.f64 M M) h)) (.f64 (.f64 d d) l))) (.f64 D D))))
	38.8%	(.f64 #s(approx ( (sqrt (/ d l)) (sqrt (/ d h))) (.f64 (pow.f64 (.f64 l h) #s(literal -1/2 binary64)) d)) (-.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)))
	36.7%	(.f64 #s(approx ( (sqrt (/ d l)) (sqrt (/ d h))) (.f64 (neg.f64 d) (pow.f64 (.f64 l h) #s(literal -1/2 binary64)))) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (pow.f64 (/.f64 (.f64 D M) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)) #s(literal 1/2 binary64)) h) l)))
	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 (fma.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))
	53.4%	#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (/.f64 (fma.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))) (*.f64 (sqrt.f64 (/.f64 h l)) d)) h))
	20.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 (fma.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) d)) (sqrt.f64 (.f64 l h)) (.f64 (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) h)) d)) (*.f64 l l)))
	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) d) (sqrt.f64 (.f64 l h))))
	33.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 (fma.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))) (.f64 (sqrt.f64 (pow.f64 (.f64 (pow.f64 h #s(literal 3 binary64)) l) #s(literal -1 binary64))) d)) h))
	22.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) (.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))
	20.3%	#s(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)))
	19.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/8 binary64) (/.f64 (.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) #s(literal -1 binary64)) d)) (sqrt.f64 (/.f64 h (.f64 (.f64 l l) l)))))
	14.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 #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.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 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 l h))) d))
	26.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 (neg.f64 d) (sqrt.f64 (pow.f64 (.f64 l h) #s(literal -1 binary64)))))
	15.2%	#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 #s(approx (+ ( (* -1/8 (/ (* M M) d)) (sqrt (/ h (pow l 3)))) (* (/ d (* D D)) (sqrt (pow (* l h) -1)))) (/.f64 (fma.f64 (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) h)) (/.f64 d (.f64 D D)) (.f64 (.f64 (/.f64 (.f64 M M) d) #s(literal -1/8 binary64)) (sqrt.f64 (.f64 l h)))) (.f64 l l))) (*.f64 D D)))
	13.5%	#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 #s(approx (+ ( (* -1/8 (/ (* M M) d)) (sqrt (/ h (pow l 3)))) (* (/ d (* D D)) (sqrt (pow (* l h) -1)))) (.f64 (/.f64 (neg.f64 d) (.f64 D D)) (pow.f64 (.f64 l h) #s(literal -1/2 binary64)))) (.f64 D D)))
	14.0%	#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 #s(approx (+ ( (* -1/8 (/ (* M M) d)) (sqrt (/ h (pow l 3)))) (* (/ d (* D D)) (sqrt (pow (* l h) -1)))) (.f64 (.f64 (/.f64 (.f64 M M) d) #s(literal -1/8 binary64)) (/.f64 (sqrt.f64 h) (sqrt.f64 (pow.f64 l #s(literal 3 binary64)))))) (.f64 D D)))
	15.8%	#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 #s(approx (+ ( (* -1/8 (/ (* M M) d)) (sqrt (/ h (pow l 3)))) (* (/ d (* D D)) (sqrt (pow (* l h) -1)))) (.f64 (.f64 (/.f64 (.f64 M M) d) #s(literal -1/8 binary64)) (sqrt.f64 (/.f64 h (.f64 (.f64 l l) l))))) (.f64 D D)))
	17.8%	#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 #s(approx (+ ( (* -1/8 (/ (* M M) d)) (sqrt (/ h (pow l 3)))) (* (/ d (* D D)) (sqrt (pow (* l h) -1)))) (.f64 (.f64 (.f64 M (/.f64 M d)) #s(literal -1/8 binary64)) (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64)))))) (.f64 D D)))
	49.5%	#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 #s(approx ( (+ (* (/ d (* D D)) (pow (* l h) -1/2)) (* (* (/ (* M M) d) -1/8) (sqrt (/ h (pow l 3))))) D) (/.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D (/.f64 (.f64 M M) d))) (sqrt.f64 (pow.f64 (/.f64 h l) #s(literal 3 binary64))) (.f64 (sqrt.f64 (/.f64 h l)) (/.f64 d D))) h)) D))
	17.9%	#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 #s(approx ( (+ (* (/ d (* D D)) (pow (* l h) -1/2)) (* (* (/ (* M M) d) -1/8) (sqrt (/ h (pow l 3))))) D) (/.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D (/.f64 (.f64 M M) d))) (sqrt.f64 (.f64 l h)) (.f64 (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) h)) (/.f64 d D))) (.f64 l l))) D))
	21.8%	#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 #s(approx ( (+ (* (/ d (* D D)) (pow (* l h) -1/2)) (* (* (/ (* M M) d) -1/8) (sqrt (/ h (pow l 3))))) D) (.f64 (/.f64 (neg.f64 d) D) (pow.f64 (.f64 l h) #s(literal -1/2 binary64)))) D))
	25.2%	#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 #s(approx (sqrt (pow ( l h) -1)) (neg.f64 (pow.f64 (*.f64 l h) #s(literal -1/2 binary64)))) d))

Compiler

Compiled 7 450 to 2 210 computations (70.3% saved)

regimes202.0ms (2.2%)

Memory

-6.4MiB live, 281.1MiB allocated; 59ms collecting garbage

Counts

92 → 4

Calls

Call 1

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

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

Calls

7 calls:

57.0ms	M
26.0ms	(*.f64 M D)
24.0ms	D
24.0ms	d
23.0ms	l

Results

Accuracy	Segments	Branch
68.0%	1	`(*.f64 M D)`
71.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))))`
79.4%	4	`d`
77.3%	3	`h`
76.5%	3	`l`
68.0%	1	`M`
68.0%	1	`D`

Compiler

Compiled 43 to 53 computations (-23.3% saved)

regimes66.0ms (0.7%)

Memory

-2.1MiB live, 87.4MiB allocated; 7ms collecting garbage

Counts

72 → 3

Calls

Call 1

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

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

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

3 calls:

20.0ms	h
18.0ms	l
18.0ms	d

Results

Accuracy	Segments	Branch
76.4%	3	`l`
73.9%	2	`h`
76.0%	3	`d`

Compiler

Compiled 3 to 15 computations (-400% saved)

regimes57.0ms (0.6%)

Memory

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

Counts

55 → 3

Calls

Call 1

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

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

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

Calls

4 calls:

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

Results

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

Compiler

Compiled 38 to 37 computations (2.6% saved)

regimes57.0ms (0.6%)

Memory

-0.2MiB live, 46.7MiB allocated; 2ms 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 l h))))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 (/.f64 #s(literal 1 binary64) (.f64 (sqrt.f64 l) (sqrt.f64 h))) d))
(.f64 (.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 (* (+ (* (* (* M M) (/ h (* (* d d) l))) -1/8) (pow D -2)) (* 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 #s(approx (+ ( (* -1/8 (/ (* M M) d)) (sqrt (/ h (pow l 3)))) (* (/ d (* D D)) (sqrt (pow (* l h) -1)))) (.f64 (.f64 (/.f64 (.f64 M M) d) #s(literal -1/8 binary64)) (sqrt.f64 (/.f64 h (.f64 (.f64 l l) l))))) (.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 #s(approx ( (+ (* -1/8 (* (* M M) (/ (/ h (* d d)) l))) (pow D -2)) D) (/.f64 (.f64 #s(literal -1/8 binary64) (.f64 (.f64 (.f64 M M) h) D)) (.f64 (.f64 d d) l))) 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 (+ ( (* (* M M) (/ h (* (* d d) l))) -1/8) (pow D -2)) (/.f64 (.f64 #s(literal -1/8 binary64) (.f64 (.f64 M M) h)) (.f64 (.f64 d d) l))) (.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 #s(approx (+ (* -1/8 (* (* M M) (/ (/ h (* d d)) l))) (pow D -2)) (.f64 (.f64 #s(literal -1/8 binary64) (.f64 M M)) (/.f64 (/.f64 h (.f64 d d)) l))) D) D)))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 (pow.f64 (.f64 l h) #s(literal -1/2 binary64)) d))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 #s(approx (sqrt (pow ( l h) -1)) (neg.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 (fma.f64 (.f64 (.f64 M M) (/.f64 h (.f64 (.f64 d d) l))) #s(literal -1/8 binary64) (/.f64 #s(literal 1 binary64) (.f64 D D))) (*.f64 D D))))
(.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 ( (+ (* -1/8 (* (* M M) (/ (/ h (* d d)) l))) (pow D -2)) D) (/.f64 (fma.f64 (/.f64 (.f64 (.f64 (.f64 M M) h) D) (.f64 d d)) #s(literal -1/8 binary64) (/.f64 l D)) 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 (pow.f64 (.f64 l h) #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 (+ ( (* (* M M) (/ h (* (* d d) l))) -1/8) (pow D -2)) (/.f64 (fma.f64 (.f64 (.f64 M M) (/.f64 h (.f64 d d))) #s(literal -1/8 binary64) (/.f64 l (.f64 D D))) l)) (*.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 (fma.f64 #s(literal -1/8 binary64) (.f64 (.f64 M M) (/.f64 (/.f64 h (.f64 d d)) l)) (/.f64 #s(literal 1 binary64) (.f64 D D))) 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 (neg.f64 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 #s(literal -1 binary64) d) (sqrt.f64 (pow.f64 (*.f64 l h) #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 (+ ( (* (* M M) (/ h (* (* d d) l))) -1/8) (pow D -2)) (/.f64 (fma.f64 (/.f64 (.f64 (.f64 M M) h) l) #s(literal -1/8 binary64) (/.f64 (.f64 d d) (.f64 D D))) (.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 (/.f64 (pow.f64 h #s(literal -1 binary64)) 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 (pow.f64 l #s(literal -1 binary64)) 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 #s(approx ( (+ (* (/ d (* D D)) (pow (* l h) -1/2)) (* (* (/ (* M M) d) -1/8) (sqrt (/ h (pow l 3))))) D) (.f64 (/.f64 (neg.f64 d) D) (pow.f64 (.f64 l h) #s(literal -1/2 binary64)))) D))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 #s(approx (+ ( (* -1/8 (/ (* M M) d)) (sqrt (/ h (pow l 3)))) (* (/ d (* D D)) (sqrt (pow (* l h) -1)))) (.f64 (/.f64 d (.f64 D D)) (pow.f64 (.f64 l h) #s(literal -1/2 binary64)))) (.f64 D D)))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 #s(approx (+ ( (* -1/8 (/ (* M M) d)) (sqrt (/ h (pow l 3)))) (* (/ d (* D D)) (sqrt (pow (* l h) -1)))) (.f64 (/.f64 (neg.f64 d) (.f64 D D)) (pow.f64 (.f64 l h) #s(literal -1/2 binary64)))) (.f64 D D)))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 #s(approx (+ ( (* -1/8 (/ (* M M) d)) (sqrt (/ h (pow l 3)))) (* (/ d (* D D)) (sqrt (pow (* l h) -1)))) (.f64 (.f64 (.f64 M (/.f64 M d)) #s(literal -1/8 binary64)) (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 #s(approx (+ ( (* -1/8 (/ (* M M) d)) (sqrt (/ h (pow l 3)))) (* (/ d (* D D)) (sqrt (pow (* l h) -1)))) (.f64 (.f64 (/.f64 (.f64 M M) d) #s(literal -1/8 binary64)) (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 #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 (pow.f64 (.f64 D M) #s(literal 2 binary64)) #s(literal -1 binary64)) d)) (sqrt.f64 (/.f64 h (.f64 (.f64 l l) 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 #s(approx (+ ( (* (* M M) (/ h (* (* d d) l))) -1/8) (pow D -2)) (pow.f64 D #s(literal -2 binary64))) (*.f64 D D))))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 #s(approx (+ ( (* -1/8 (/ (* M M) d)) (sqrt (/ h (pow l 3)))) (* (/ d (* D D)) (sqrt (pow (* l h) -1)))) (.f64 (.f64 (/.f64 (.f64 M M) d) #s(literal -1/8 binary64)) (/.f64 (sqrt.f64 h) (sqrt.f64 (pow.f64 l #s(literal 3 binary64)))))) (.f64 D D)))
(.f64 #s(approx ( (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (.f64 d (neg.f64 (pow.f64 (.f64 l h) #s(literal -1/2 binary64))))) #s(approx (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (.f64 (-.f64 (/.f64 #s(literal 1 binary64) (.f64 D D)) (/.f64 (.f64 #s(literal 1/8 binary64) (.f64 (.f64 M M) h)) (.f64 (.f64 d d) l))) (.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 (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 (* (+ (* (* (* M M) (/ h (* (* d d) l))) -1/8) (pow D -2)) (* D D)) (.f64 (/.f64 (.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) h) (.f64 (*.f64 d d) l)) #s(literal -1/8 binary64)))))
(.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 (* (+ (* (* (* M M) (/ h (* (* d d) l))) -1/8) (pow D -2)) (* D D)) (fma.f64 (/.f64 (.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) h) (.f64 (.f64 d d) l)) #s(literal -1/8 binary64) #s(literal 1 binary64)))))
(.f64 (-.f64 #s(literal 1 binary64) (.f64 (.f64 (pow.f64 (.f64 (/.f64 M #s(literal 2 binary64)) (/.f64 D d)) #s(literal 2 binary64)) #s(literal 1/2 binary64)) (/.f64 h l))) (sqrt.f64 (*.f64 (/.f64 d l) (/.f64 d h))))
(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (pow.f64 (.f64 (/.f64 D d) (/.f64 M #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) h)) l)) (sqrt.f64 (*.f64 (/.f64 d l) (/.f64 d h))))
(.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 (sqrt.f64 (/.f64 d l)) (sqrt.f64 (/.f64 d h))) #s(approx (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (.f64 (fma.f64 (.f64 (.f64 M M) (/.f64 h (.f64 (.f64 d d) l))) #s(literal -1/8 binary64) (pow.f64 D #s(literal -2 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 #s(literal 1/8 binary64) (.f64 (.f64 M M) h)) (.f64 (.f64 d d) l))) (*.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 (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 M #s(literal 2 binary64)) (/.f64 D d)) #s(literal 2 binary64)) #s(literal 1/2 binary64)) (/.f64 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))))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 #s(approx ( (+ (* (/ d (* D D)) (pow (* l h) -1/2)) (* (* (/ (* M M) d) -1/8) (sqrt (/ h (pow l 3))))) D) (/.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D (/.f64 (.f64 M M) d))) (sqrt.f64 (.f64 l h)) (.f64 (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) h)) (/.f64 d D))) (.f64 l l))) 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 (fma.f64 #s(literal -1/8 binary64) (.f64 (.f64 M M) (/.f64 (/.f64 h (.f64 d d)) l)) (pow.f64 D #s(literal -2 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 (fma.f64 #s(literal -1/8 binary64) (.f64 (.f64 M M) (/.f64 (/.f64 h (*.f64 d d)) l)) (pow.f64 D #s(literal -2 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)))) (.f64 #s(approx ( (+ (* (/ d (* D D)) (pow (* l h) -1/2)) (* (* (/ (* M M) d) -1/8) (sqrt (/ h (pow l 3))))) D) (/.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 D (/.f64 (.f64 M M) d))) (sqrt.f64 (pow.f64 (/.f64 h l) #s(literal 3 binary64))) (.f64 (sqrt.f64 (/.f64 h l)) (/.f64 d D))) h)) D))

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:

12.0ms

10.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
71.2%	2	`l`
72.6%	3	`(.f64 (.f64 (pow.f64 (/.f64 d h) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64))) (pow.f64 (/.f64 d l) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)))) (-.f64 #s(literal 1 binary64) (.f64 (.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) (pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64))) (/.f64 h l))))`

Compiler

Compiled 36 to 27 computations (25% saved)

regimes77.0ms (0.8%)

Memory

6.0MiB live, 141.4MiB allocated; 19ms collecting garbage

Counts

36 → 2

Calls

Call 1

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

Outputs

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

Calls

7 calls:

12.0ms	(*.f64 M D)
10.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))))
10.0ms	l
9.0ms	d
9.0ms	h

Results

Accuracy	Segments	Branch
62.5%	3	`D`
62.9%	3	`(*.f64 M D)`
60.3%	2	`M`
58.2%	1	`h`
64.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))))`
58.2%	1	`d`
63.3%	2	`l`

Compiler

Compiled 43 to 53 computations (-23.3% saved)

regimes68.0ms (0.7%)

Memory

-41.4MiB live, 105.9MiB allocated; 14ms collecting garbage

Counts

31 → 5

Calls

Call 1

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

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

Calls

7 calls:

12.0ms	D
12.0ms	h
9.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))))
8.0ms	M
8.0ms	l

Results

Accuracy	Segments	Branch
53.1%	3	`h`
61.0%	5	`d`
55.6%	2	`M`
53.5%	2	`D`
54.8%	2	`(*.f64 M D)`
56.7%	3	`l`
56.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 43 to 53 computations (-23.3% saved)

regimes16.0ms (0.2%)

Memory

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

Counts

27 → 2

Calls

Call 1

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

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

Calls

2 calls:

7.0ms

6.0ms

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

Results

Accuracy	Segments	Branch
56.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))))`
60.6%	5	`d`

Compiler

Compiled 36 to 27 computations (25% saved)

regimes65.0ms (0.7%)

Memory

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

Counts

12 → 2

Calls

Call 1

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

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

Calls

2 calls:

61.0ms

3.0ms

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

Results

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

Compiler

Compiled 36 to 27 computations (25% saved)

regimes6.0ms (0.1%)

Memory

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

Counts

8 → 2

Calls

Call 1

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

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

Calls

2 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
48.5%	2	`M`
55.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 36 to 27 computations (25% saved)

regimes17.0ms (0.2%)

Memory

30.7MiB live, 30.7MiB allocated; 0ms 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 l h))))
#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 (/.f64 #s(literal 1 binary64) (.f64 (sqrt.f64 l) (sqrt.f64 h))) d))
(.f64 (.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 (* (+ (* (* (* M M) (/ h (* (* d d) l))) -1/8) (pow D -2)) (* 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 #s(approx (+ ( (* -1/8 (/ (* M M) d)) (sqrt (/ h (pow l 3)))) (* (/ d (* D D)) (sqrt (pow (* l h) -1)))) (.f64 (.f64 (/.f64 (.f64 M M) d) #s(literal -1/8 binary64)) (sqrt.f64 (/.f64 h (.f64 (.f64 l l) l))))) (.f64 D D)))

Outputs

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

Calls

7 calls:

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

Results

Accuracy	Segments	Branch
45.0%	2	`M`
47.2%	3	`d`
44.5%	2	`h`
41.1%	2	`D`
45.8%	2	`(*.f64 M D)`
47.6%	3	`l`
47.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))))`

Compiler

Compiled 43 to 53 computations (-23.3% saved)

regimes25.0ms (0.3%)

Memory

-20.0MiB live, 26.0MiB allocated; 3ms collecting garbage

Counts

5 → 2

Calls

Call 1

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

5 calls:

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

Results

Accuracy	Segments	Branch
39.1%	2	`M`
44.5%	2	`d`
39.6%	2	`(*.f64 M D)`
44.5%	2	`l`
41.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 41 to 43 computations (-4.9% saved)

regimes26.0ms (0.3%)

Memory

-17.1MiB live, 32.8MiB allocated; 25ms collecting garbage

Counts

4 → 2

Calls

Call 1

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

Calls

7 calls:

13.0ms	(*.f64 M D)
2.0ms	M
2.0ms	l
2.0ms	D
2.0ms	h

Results

Accuracy	Segments	Branch
25.4%	2	`M`
25.4%	2	`(*.f64 M D)`
25.3%	2	`D`
26.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))))`
27.1%	2	`h`
27.1%	2	`d`
27.1%	2	`l`

Compiler

Compiled 43 to 53 computations (-23.3% saved)

regimes12.0ms (0.1%)

Memory

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

Counts

3 → 1

Calls

Call 1

Inputs

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

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

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

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

Calls

7 calls:

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

Results

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

Compiler

Compiled 43 to 53 computations (-23.3% saved)

regimes11.0ms (0.1%)

Memory

-17.6MiB live, 29.7MiB allocated; 2ms collecting garbage

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

Calls

7 calls:

2.0ms	l
1.0ms	d
1.0ms	M
1.0ms	h
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))))

Results

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

Compiler

Compiled 43 to 53 computations (-23.3% saved)

regimes8.0ms (0.1%)

Memory

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

Accuracy

Total 0.0b remaining (0%)

Threshold costs 0b (0%)

Counts

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

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	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	l
1.0ms	D
1.0ms	h

Results

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

Compiler

Compiled 43 to 53 computations (-23.3% saved)

bsearch121.0ms (1.3%)

Memory

-36.7MiB live, 199.3MiB allocated; 17ms collecting garbage

Algorithm

3×	binary-search

Stop Event

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

Steps

Time	Left	Right
32.0ms	1.557583001417545e-134	6.913638630200155e-133
52.0ms	-5.690848050890988e-294	4.263307591466534e-305
20.0ms	-9.000030198606898e-93	-4.8953072717936125e-93

Samples

43.0ms	336×	0	valid
31.0ms	327×	0	invalid

Compiler

Compiled 1 615 to 1 247 computations (22.8% saved)

Precisions

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

ival-div!: 15.0ms (28.8% of total)

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

ival-mult!: 14.0ms (26.8% of total)

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

ival-sub!: 2.0ms (3.8% of total)

adjust: 0.0ms (0% of total)

bsearch90.0ms (1%)

Memory

26.8MiB live, 122.1MiB allocated; 11ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
48.0ms	2.1774056039727272e+160	2.5897906605241483e+163
33.0ms	3.3087543865435993e-237	3.8080151096329172e-236

Samples

36.0ms	263×	0	invalid
27.0ms	224×	0	valid

Compiler

Compiled 1 050 to 800 computations (23.8% saved)

Precisions

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

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

ival-div!: 10.0ms (23.5% of total)

ival-mult!: 10.0ms (23.5% of total)

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

ival-sub!: 1.0ms (2.4% of total)

adjust: 0.0ms (0% of total)

bsearch1.0ms (0%)

Memory

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

Algorithm

2×	left-value

Steps

Time	Left	Right
0.0ms	+inf	NaN
0.0ms	1.7024625584047912e+292	+inf

Compiler

Compiled 38 to 30 computations (21.1% saved)

bsearch20.0ms (0.2%)

Memory

-18.3MiB live, 27.4MiB allocated; 4ms collecting garbage

Algorithm

1×	binary-search

Stop Event

1×	narrow-enough

Steps

Time	Left	Right
17.0ms	3.150031279487966e+100	3.9340181816474364e+100

Samples

8.0ms	48×	0	valid
6.0ms	52×	0	invalid

Compiler

Compiled 254 to 189 computations (25.6% saved)

Precisions

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

ival-mult!: 4.0ms (38.6% of total)

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

ival-div!: 2.0ms (19.3% of total)

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

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

adjust: 0.0ms (0% of total)

bsearch1.0ms (0%)

Memory

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

Algorithm

1×	left-value

Steps

Time	Left	Right
0.0ms	-1.741907924298001e-189	0.0

Compiler

Compiled 38 to 30 computations (21.1% saved)

bsearch221.0ms (2.4%)

Memory

16.2MiB live, 249.0MiB allocated; 17ms collecting garbage

Algorithm

4×	binary-search

Stop Event

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

Steps

Time	Left	Right
43.0ms	2.989268044471248e+135	1.5619362368103004e+140
37.0ms	1.621490203667434e-166	3.1673447946262675e-163
38.0ms	6.947914188948141e-299	3.009958009455117e-294
48.0ms	-7.414548663499163e-162	-3.589298862811542e-170

Samples

66.0ms	528×	0	valid
61.0ms	504×	0	invalid

Compiler

Compiled 4 412 to 2 897 computations (34.3% saved)

Precisions

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

ival-mult!: 29.0ms (31.5% of total)

ival-pow: 21.0ms (22.8% of total)

ival-div!: 21.0ms (22.8% of total)

ival-pow2: 11.0ms (11.9% of total)

ival-sub!: 10.0ms (10.9% of total)

adjust: 0.0ms (0% of total)

bsearch1.0ms (0%)

Memory

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

Algorithm

1×	left-value

Steps

Time	Left	Right
0.0ms	-1.7341133024817337e-74	-6.894536039847897e-97

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	-2.6967724473389353e-45	-1.5760975874387385e-58

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.894536039847897e-97	-1.741907924298001e-189

Compiler

Compiled 38 to 30 computations (21.1% saved)

bsearch0.0ms (0%)

Memory

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

Algorithm

1×	left-value

Steps

Time	Left	Right
0.0ms	-6.894536039847897e-97	-1.741907924298001e-189

Compiler

Compiled 38 to 30 computations (21.1% saved)

bsearch38.0ms (0.4%)

Memory

19.5MiB live, 63.0MiB allocated; 6ms collecting garbage

Algorithm

1×	binary-search

Stop Event

1×	narrow-enough

Steps

Time	Left	Right
34.0ms	1.7881908675360218e-295	1.6173318425115055e-294

Samples

15.0ms	101×	0	invalid
12.0ms	96×	0	valid

Compiler

Compiled 626 to 438 computations (30% saved)

Precisions

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

ival-div!: 8.0ms (39.2% of total)

ival-pow: 6.0ms (29.4% of total)

ival-mult!: 4.0ms (19.6% of total)

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

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

adjust: 0.0ms (0% of total)

bsearch100.0ms (1.1%)

Memory

-42.2MiB live, 69.2MiB allocated; 115ms collecting garbage

Algorithm

1×	binary-search

Stop Event

1×	narrow-enough

Steps

Time	Left	Right
97.0ms	4.1948626309067176e-148	2.8398788664611414e-147

Samples

82.0ms	96×	0	valid
8.0ms	86×	0	invalid

Compiler

Compiled 572 to 384 computations (32.9% saved)

Precisions

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

ival-pow: 67.0ms (79.8% of total)

ival-div!: 10.0ms (11.9% of total)

ival-mult!: 4.0ms (4.8% of total)

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

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

adjust: 0.0ms (0% of total)

derivations192.0ms (2.1%)

Memory

32.5MiB live, 172.7MiB allocated; 17ms collecting garbage

Stop Event

1×

fuel

Compiler

Compiled 2 017 to 269 computations (86.7% saved)

preprocess237.0ms (2.6%)

Memory

-20.3MiB live, 404.1MiB allocated; 36ms collecting garbage

Remove

(sort M D)

(abs D)

(abs M)

Compiler

Compiled 20 378 to 7 998 computations (60.8% saved)

end0.0ms (0%)

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

start0.0ms (0%)

analyze472.0ms (5.1%)

sample4.4s (47.5%)

explain297.0ms (3.2%)

preprocess146.0ms (1.6%)

eval0.0ms (0%)

prune1.0ms (0%)

series85.0ms (0.9%)

rewrite62.0ms (0.7%)

eval79.0ms (0.9%)

prune22.0ms (0.2%)

series210.0ms (2.3%)

rewrite89.0ms (1%)

eval53.0ms (0.6%)

prune90.0ms (1%)

series246.0ms (2.7%)

rewrite89.0ms (1%)

eval46.0ms (0.5%)

prune64.0ms (0.7%)

series754.0ms (8.2%)

rewrite135.0ms (1.5%)

eval79.0ms (0.9%)

prune85.0ms (0.9%)

regimes202.0ms (2.2%)

regimes66.0ms (0.7%)

regimes57.0ms (0.6%)

regimes57.0ms (0.6%)

regimes77.0ms (0.8%)

regimes68.0ms (0.7%)

regimes16.0ms (0.2%)

regimes65.0ms (0.7%)

regimes6.0ms (0.1%)

regimes17.0ms (0.2%)

regimes25.0ms (0.3%)

regimes26.0ms (0.3%)

regimes12.0ms (0.1%)

regimes11.0ms (0.1%)

regimes8.0ms (0.1%)

bsearch121.0ms (1.3%)

bsearch90.0ms (1%)

bsearch1.0ms (0%)

bsearch20.0ms (0.2%)

bsearch1.0ms (0%)

bsearch221.0ms (2.4%)

bsearch1.0ms (0%)

bsearch0.0ms (0%)

bsearch0.0ms (0%)

bsearch0.0ms (0%)

bsearch38.0ms (0.4%)

bsearch100.0ms (1.1%)

derivations192.0ms (2.1%)

preprocess237.0ms (2.6%)

end0.0ms (0%)

Profiling