Metrics for Henrywood and Agarwal, Equation (12)

start0.0ms (0%)

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

analyze420.0ms (4.8%)

Memory

20.1MiB live, 580.5MiB allocated; 73ms collecting garbage

Algorithm

1×

Search

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

Compiler

Compiled 37 to 24 computations (35.1% saved)

sample5.0s (56.8%)

Memory

95.7MiB live, 6 401.0MiB allocated; 2.1s collecting garbage

Samples

2.1s	8 256×	0	valid
1.7s	13 074×	0	invalid

Precisions

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

ival-pow: 1.2s (39.7% of total)

ival-div!: 698.0ms (24.1% of total)

ival-mult!: 668.0ms (23% of total)

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

ival-sub!: 54.0ms (1.9% of total)

adjust: 5.0ms (0.2% of total)

Bogosity

explain286.0ms (3.3%)

Memory

22.6MiB live, 548.5MiB allocated; 22ms collecting garbage

FPErrors

Click to see full error table

Ground Truth	Example	Underpredictions	Example	Subexpression
55	-	1	(4.732785061991529e-28 9.811332899699481e+295 1.207474263609309e-232 -4.5354484654272125e+283 6.126697950069459e-38)	`(pow.f64 (/.f64 d h) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)))`
55	-	1	(3.76168416395587e-305 4.016606162470004e-38 28997395.414391644 -1.4611029447033436e+230 1.3046317629782068e-182)	`(pow.f64 (/.f64 d l) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)))`
47	-	1	(-3.7247108722328365e-110 -8.568809015423937e-181 -2.6956515259566806e+133 6.536985551221177e+133 3.46440425754456e-181)	`(.f64 (.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) (pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64))) (/.f64 h l))`
25	-	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))))`
18	-	1	(-1.5498211150489974e-115 -3.954016889054191e-229 -2.0945077119379656e+173 -3.629619771477809e-174 -3.0576306021510184e-149)	`(/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d))`
0	-	0	-	`D`
0	-	0	-	`(*.f64 #s(literal 2 binary64) d)`
0	-	0	-	`(/.f64 h l)`
0	-	0	-	`(pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64))`
0	-	0	-	`d`
0	-	0	-	`#s(literal 1 binary64)`
0	-	0	-	`(/.f64 d l)`
0	-	0	-	`(*.f64 M D)`
0	-	0	-	`(/.f64 #s(literal 1 binary64) #s(literal 2 binary64))`
0	-	0	-	`(/.f64 d h)`
0	-	0	-	`(-.f64 #s(literal 1 binary64) (.f64 (.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) (pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64))) (/.f64 h l)))`
0	-	0	-	`#s(literal 2 binary64)`
0	-	0	-	`l`
0	-	0	-	`(*.f64 (pow.f64 (/.f64 d h) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64))) (pow.f64 (/.f64 d l) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64))))`
0	-	0	-	`M`
0	-	0	-	`h`
0	-	0	-	`(.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) (pow.f64 (/.f64 (.f64 M D) (*.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64)))`

Explanations

Click to see full explanations table

Operator	Subexpression	Explanation	Count
`pow.f64`	`(pow.f64 (/.f64 d h) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)))`	oflow-rescue	32	0
↳	`(/.f64 d h)`	overflow	32
`pow.f64`	`(pow.f64 (/.f64 d l) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)))`	oflow-rescue	31	0
↳	`(/.f64 d l)`	overflow	31
`pow.f64`	`(pow.f64 (/.f64 d l) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)))`	uflow-rescue	23	0
↳	`(/.f64 d l)`	underflow	23
`pow.f64`	`(pow.f64 (/.f64 d h) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)))`	uflow-rescue	22	0
↳	`(/.f64 d h)`	underflow	22
`*.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**	13	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))`	*no**	11	0
`/.f64`	`(/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d))`	o/n	10	0
↳	`(*.f64 M D)`	overflow	26
`*.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**	8	0
↳	`(/.f64 d h)`	underflow	22
↳	`(/.f64 d l)`	underflow	23
↳	`(*.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	13
↳	`(pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64))`	overflow	79
↳	`(/.f64 h l)`	overflow	41
↳	`(-.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	26
↳	`(/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d))`	overflow	39
↳	`(.f64 (/.f64 #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	79
↳	`(*.f64 #s(literal 2 binary64) d)`	overflow	1
`*.f64`	`(.f64 (.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) (pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64))) (/.f64 h l))`	*ou**	5	0
↳	`(pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64))`	overflow	79
↳	`(*.f64 M D)`	overflow	26
↳	`(/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d))`	overflow	39
↳	`(.f64 (/.f64 #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	79
↳	`(*.f64 #s(literal 2 binary64) d)`	overflow	1
↳	`(/.f64 h l)`	underflow	31
`*.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))`	*uo**	1	0
↳	`(pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64))`	underflow	82
↳	`(.f64 (/.f64 #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	82
↳	`(*.f64 M D)`	underflow	33
↳	`(/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d))`	underflow	48
↳	`(/.f64 h l)`	overflow	41
`/.f64`	`(/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d))`	u/n	1	0
↳	`(*.f64 M D)`	underflow	33

Confusion

	Predicted +	Predicted -
+	86	6
-	25	139

Precision

0.7747747747747747

Recall

0.9347826086956522

Confusion?

	Predicted +	Predicted Maybe	Predicted -
+	86	0	6
-	25	0	139

Precision?

0.7747747747747747

Recall?

0.9347826086956522

Freqs

test

number	freq
0	145
1	71
2	31
3	8
4	1

Total Confusion?

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

Precision?

1.0

Recall?

1.0

Samples

78.0ms

512×

valid

Compiler

Compiled 347 to 70 computations (79.8% saved)

Precisions

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

ival-pow: 19.0ms (37% of total)

ival-div!: 13.0ms (25.3% of total)

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

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

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

adjust: 0.0ms (0% of total)

preprocess62.0ms (0.7%)

Memory

-31.4MiB live, 60.8MiB allocated; 13ms collecting garbage

Iterations

Useful iterations: 2 (0.0ms)

Iter	Nodes	Cost
0	171	588
1	546	580
2	2128	575
3	6640	575

Stop Event

1×	node-limit

Alt Table

Click to see full alt table

Status	Accuracy	Program
▶	64.8%	(.f64 (.f64 (pow.f64 (/.f64 d h) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64))) (pow.f64 (/.f64 d l) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)))) (-.f64 #s(literal 1 binary64) (.f64 (.f64 (/.f64 #s(literal 1 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

▶

64.8%

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

Symmetry

(abs M)

(abs D)

(sort M D)

Compiler

Compiled 70 to 44 computations (37.1% saved)

series86.0ms (1%)

Memory

39.1MiB live, 134.3MiB allocated; 15ms 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
13.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))
10.0ms	D	@	0	((* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (pow (/ d h) (/ 1 2)) (/ d h) d h (/ 1 2) 1 2 (pow (/ d l) (/ 1 2)) (/ d l) l (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)) (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (pow (/ (* M D) (* 2 d)) 2) (/ (* M D) (* 2 d)) (* M D) M D (* 2 d) (/ h l))
9.0ms	d	@	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	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))
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))

rewrite107.0ms (1.2%)

Memory

-11.1MiB live, 80.9MiB allocated; 9ms 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)))

eval11.0ms (0.1%)

Memory: 18.3MiB live, 18.3MiB allocated; 0ms collecting garbage
Compiler: Compiled 4 853 to 488 computations (89.9% saved)

prune43.0ms (0.5%)

Memory

-6.8MiB live, 41.1MiB allocated; 13ms collecting garbage

Pruning

23 alts after pruning (23 fresh and 0 done)

	Pruned	Kept	Total
New	95	23	118
Fresh	0	0	0
Picked	1	0	1
Done	0	0	0
Total	96	23	119

Accuracy

91.0%

Counts

119 → 23

Alt Table

Click to see full alt table

Status	Accuracy	Program
	54.6%	(.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))))
	65.2%	(.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))))
▶	67.8%	(.f64 (.f64 (pow.f64 (/.f64 d h) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64))) (pow.f64 (/.f64 d l) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)))) (-.f64 #s(literal 1 binary64) (/.f64 (.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)))
	53.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 #s(approx ( (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/.f64 (.f64 #s(literal 1/8 binary64) (pow.f64 (.f64 D M) #s(literal 2 binary64))) (*.f64 d d))) (/.f64 h l))))
	44.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 (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))))
	26.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)))) #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))))
	25.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 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))))
	35.0%	(.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))))
	64.7%	(.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))))
	37.6%	(.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))))
	64.8%	(.f64 (.f64 (sqrt.f64 (/.f64 d l)) (sqrt.f64 (/.f64 d h))) (-.f64 #s(literal 1 binary64) (.f64 (.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) (pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64))) (/.f64 h l))))
	65.2%	(.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))))))
▶	36.1%	(.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.2%	(.f64 #s(approx ( (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (.f64 (sqrt.f64 (pow.f64 (.f64 l h) #s(literal -1 binary64))) d)) (-.f64 #s(literal 1 binary64) (.f64 (.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) (pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64))) (/.f64 h l))))
▶	19.6%	#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (/.f64 (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))
	45.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 (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))
	17.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 #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)))
	32.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 (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))
	18.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 #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)))
▶	17.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 (.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))))))
	18.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 (.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) #s(literal -1 binary64)) d)) (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64))))))
	25.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 binary64) d) (sqrt.f64 (pow.f64 (*.f64 l h) #s(literal -1 binary64)))))
▶	29.6%	#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 (sqrt.f64 (pow.f64 (.f64 l h) #s(literal -1 binary64))) d))

Compiler

Compiled 2 122 to 1 416 computations (33.3% saved)

series133.0ms (1.5%)

Memory

-14.6MiB live, 265.8MiB allocated; 25ms collecting garbage

Counts

58 → 131

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

Calls

15 calls:

Time	Variable		Point	Expression
12.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) d)) (sqrt (/ h (pow l 3)))) (* -1/8 (/ (pow (* D M) 2) d)) -1/8 (/ (pow (* D M) 2) d) (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)))) (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (* (* -1 d) (sqrt (pow (* l h) -1))) (* -1 d) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)) (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (pow (/ (* M D) (* 2 d)) 2) (/ (* M D) (* 2 d)) (* M D) (* 2 d) (/ h l) (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (/ (+ (* (* -1/8 (pow (* D M) 2)) (sqrt (/ h (pow l 3)))) (* (sqrt (pow (* l h) -1)) (* d d))) d) (+ (* (* -1/8 (pow (* D M) 2)) (sqrt (/ h (pow l 3)))) (* (sqrt (pow (* l h) -1)) (* d d))) (* -1/8 (pow (* D M) 2)) (* (sqrt (pow (* l h) -1)) (* d d)) (* d d))
12.0ms	l	@	-inf	((* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (/ (* (* (pow (* (/ M 2) (/ D d)) 2) 1/2) h) l))) (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (pow (/ d h) (/ 1 2)) (/ d h) d h (/ 1 2) 1 2 (pow (/ d l) (/ 1 2)) (/ d l) l (- 1 (/ (* (* (pow (* (/ M 2) (/ D d)) 2) 1/2) h) l)) (/ (* (* (pow (* (/ M 2) (/ D d)) 2) 1/2) h) l) (* (* (pow (* (/ M 2) (/ D d)) 2) 1/2) h) (* (pow (* (/ M 2) (/ D d)) 2) 1/2) (pow (* (/ M 2) (/ D d)) 2) (* (/ M 2) (/ D d)) (/ M 2) M (/ D d) D 1/2 (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (* (sqrt (pow (* l h) -1)) d) (sqrt (pow (* l h) -1)) (pow (* l h) -1) (* l h) -1 (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (* (* -1/8 (/ (pow (* D M) 2) d)) (sqrt (/ h (pow l 3)))) (* -1/8 (/ (pow (* D M) 2) d)) -1/8 (/ (pow (* D M) 2) d) (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)))) (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (* (* -1 d) (sqrt (pow (* l h) -1))) (* -1 d) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)) (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (pow (/ (* M D) (* 2 d)) 2) (/ (* M D) (* 2 d)) (* M D) (* 2 d) (/ h l) (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (/ (+ (* (* -1/8 (pow (* D M) 2)) (sqrt (/ h (pow l 3)))) (* (sqrt (pow (* l h) -1)) (* d d))) d) (+ (* (* -1/8 (pow (* D M) 2)) (sqrt (/ h (pow l 3)))) (* (sqrt (pow (* l h) -1)) (* d d))) (* -1/8 (pow (* D M) 2)) (* (sqrt (pow (* l h) -1)) (* d d)) (* d d))
12.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) d)) (sqrt (/ h (pow l 3)))) (* -1/8 (/ (pow (* D M) 2) d)) -1/8 (/ (pow (* D M) 2) d) (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)))) (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (* (* -1 d) (sqrt (pow (* l h) -1))) (* -1 d) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)) (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (pow (/ (* M D) (* 2 d)) 2) (/ (* M D) (* 2 d)) (* M D) (* 2 d) (/ h l) (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (/ (+ (* (* -1/8 (pow (* D M) 2)) (sqrt (/ h (pow l 3)))) (* (sqrt (pow (* l h) -1)) (* d d))) d) (+ (* (* -1/8 (pow (* D M) 2)) (sqrt (/ h (pow l 3)))) (* (sqrt (pow (* l h) -1)) (* d d))) (* -1/8 (pow (* D M) 2)) (* (sqrt (pow (* l h) -1)) (* d d)) (* d d))
12.0ms	d	@	-inf	((* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (/ (* (* (pow (* (/ M 2) (/ D d)) 2) 1/2) h) l))) (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (pow (/ d h) (/ 1 2)) (/ d h) d h (/ 1 2) 1 2 (pow (/ d l) (/ 1 2)) (/ d l) l (- 1 (/ (* (* (pow (* (/ M 2) (/ D d)) 2) 1/2) h) l)) (/ (* (* (pow (* (/ M 2) (/ D d)) 2) 1/2) h) l) (* (* (pow (* (/ M 2) (/ D d)) 2) 1/2) h) (* (pow (* (/ M 2) (/ D d)) 2) 1/2) (pow (* (/ M 2) (/ D d)) 2) (* (/ M 2) (/ D d)) (/ M 2) M (/ D d) D 1/2 (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (* (sqrt (pow (* l h) -1)) d) (sqrt (pow (* l h) -1)) (pow (* l h) -1) (* l h) -1 (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (* (* -1/8 (/ (pow (* D M) 2) d)) (sqrt (/ h (pow l 3)))) (* -1/8 (/ (pow (* D M) 2) d)) -1/8 (/ (pow (* D M) 2) d) (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)))) (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (* (* -1 d) (sqrt (pow (* l h) -1))) (* -1 d) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)) (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (pow (/ (* M D) (* 2 d)) 2) (/ (* M D) (* 2 d)) (* M D) (* 2 d) (/ h l) (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (/ (+ (* (* -1/8 (pow (* D M) 2)) (sqrt (/ h (pow l 3)))) (* (sqrt (pow (* l h) -1)) (* d d))) d) (+ (* (* -1/8 (pow (* D M) 2)) (sqrt (/ h (pow l 3)))) (* (sqrt (pow (* l h) -1)) (* d d))) (* -1/8 (pow (* D M) 2)) (* (sqrt (pow (* l h) -1)) (* d d)) (* d d))
9.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) d)) (sqrt (/ h (pow l 3)))) (* -1/8 (/ (pow (* D M) 2) d)) -1/8 (/ (pow (* D M) 2) d) (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)))) (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (* (* -1 d) (sqrt (pow (* l h) -1))) (* -1 d) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)) (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (pow (/ (* M D) (* 2 d)) 2) (/ (* M D) (* 2 d)) (* M D) (* 2 d) (/ h l) (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (/ (+ (* (* -1/8 (pow (* D M) 2)) (sqrt (/ h (pow l 3)))) (* (sqrt (pow (* l h) -1)) (* d d))) d) (+ (* (* -1/8 (pow (* D M) 2)) (sqrt (/ h (pow l 3)))) (* (sqrt (pow (* l h) -1)) (* d d))) (* -1/8 (pow (* D M) 2)) (* (sqrt (pow (* l h) -1)) (* d d)) (* d d))

rewrite79.0ms (0.9%)

Memory

9.5MiB live, 104.6MiB allocated; 10ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	426	5411
0	504	4897
0	1670	4851

Stop Event

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

Counts

189 → 311

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

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

eval38.0ms (0.4%)

Memory: -15.1MiB live, 75.9MiB allocated; 8ms collecting garbage
Compiler: Compiled 20 358 to 1 337 computations (93.4% saved)

prune42.0ms (0.5%)

Memory

35.6MiB live, 82.2MiB allocated; 2ms collecting garbage

Pruning

35 alts after pruning (35 fresh and 0 done)

	Pruned	Kept	Total
New	357	27	384
Fresh	10	8	18
Picked	5	0	5
Done	0	0	0
Total	372	35	407

Accuracy

91.1%

Counts

407 → 35

Alt Table

Click to see full alt table

Status	Accuracy	Program
	57.9%	(.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.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)))) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 #s(approx ( (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (.f64 (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) (*.f64 d d)) #s(literal 1/8 binary64))) h) l)))
	44.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 (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))))
	26.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)))) #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))))
	38.5%	(.f64 (.f64 (pow.f64 (/.f64 d h) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64))) (/.f64 (sqrt.f64 d) (sqrt.f64 l))) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (pow.f64 (*.f64 (/.f64 M #s(literal 2 binary64)) (/.f64 D d)) #s(literal 2 binary64)) #s(literal 1/2 binary64)) h) l)))
	67.7%	(.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)))
	40.4%	(.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)))
▶	67.8%	(.f64 (.f64 (sqrt.f64 (/.f64 d l)) (sqrt.f64 (/.f64 d h))) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (pow.f64 (*.f64 (/.f64 M #s(literal 2 binary64)) (/.f64 D d)) #s(literal 2 binary64)) #s(literal 1/2 binary64)) h) l)))
	64.8%	(.f64 (.f64 (sqrt.f64 (/.f64 d l)) (sqrt.f64 (/.f64 d h))) (-.f64 #s(literal 1 binary64) (.f64 (.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) (pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64))) (/.f64 h l))))
	65.2%	(.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))))))
	40.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.1%	(.f64 #s(approx ( (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (.f64 (.f64 #s(literal -1 binary64) d) (/.f64 #s(literal 1 binary64) (sqrt.f64 (.f64 l 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))))
	36.1%	(.f64 #s(approx ( (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (.f64 (.f64 #s(literal -1 binary64) d) (sqrt.f64 (/.f64 (pow.f64 h #s(literal -1 binary64)) 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))))
	36.1%	(.f64 #s(approx ( (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (.f64 (.f64 #s(literal -1 binary64) d) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 l 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))))
	23.6%	#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (/.f64 (fma.f64 (.f64 (pow.f64 (.f64 l h) #s(literal -1/2 binary64)) d) d (.f64 (.f64 (pow.f64 (*.f64 D M) #s(literal 2 binary64)) #s(literal -1/8 binary64)) (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64)))))) d))
	45.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 (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))
	17.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 #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)))
▶	33.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 (pow (* D M) 2)) (sqrt (/ h (pow l 3)))) (* (sqrt (pow (* l h) -1)) (* d d))) (/.f64 (fma.f64 (.f64 (sqrt.f64 (pow.f64 (/.f64 h l) #s(literal 3 binary64))) (pow.f64 (.f64 D M) #s(literal 2 binary64))) #s(literal -1/8 binary64) (.f64 (sqrt.f64 (/.f64 h l)) (.f64 d d))) h)) d))
	13.7%	#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (/.f64 #s(approx (+ (* (* -1/8 (pow (* D M) 2)) (sqrt (/ h (pow l 3)))) (* (sqrt (pow (* l h) -1)) (* d d))) (/.f64 (fma.f64 (.f64 (sqrt.f64 (.f64 l h)) (pow.f64 (.f64 D M) #s(literal 2 binary64))) #s(literal -1/8 binary64) (.f64 (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) h)) (.f64 d d))) (.f64 l l))) d))
	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 #s(approx (+ (* (* -1/8 (pow (* D M) 2)) (sqrt (/ h (pow l 3)))) (* (sqrt (pow (* l h) -1)) (* d d))) (.f64 (pow.f64 (.f64 l h) #s(literal -1/2 binary64)) (*.f64 d 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 (pow (* D M) 2)) (sqrt (/ h (pow l 3)))) (* (sqrt (pow (* l h) -1)) (* d d))) (.f64 (.f64 (pow.f64 (*.f64 D M) #s(literal 2 binary64)) #s(literal -1/8 binary64)) (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64)))))) 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 (pow (* D M) 2)) (sqrt (/ h (pow l 3)))) (* (sqrt (pow (* l h) -1)) (* d d))) (.f64 (.f64 d d) (neg.f64 (pow.f64 (*.f64 l h) #s(literal -1/2 binary64))))) d))
	32.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 (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))
	18.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 (.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 D D)))
	13.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 #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)))
	29.6%	#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 (pow.f64 (.f64 l h) #s(literal -1/2 binary64)) d))
	29.6%	#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (.f64 l h))) d))
▶	18.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 (/.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)))
	17.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 (.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) d)) (sqrt.f64 (/.f64 h (.f64 (*.f64 l l) l)))))
▶	14.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 (.f64 #s(literal -1/8 binary64) (.f64 (.f64 D D) (/.f64 (*.f64 M M) d))) (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64))))))
	25.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 binary64) d) (sqrt.f64 (pow.f64 (*.f64 l h) #s(literal -1 binary64)))))
	29.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 (sqrt.f64 (/.f64 (pow.f64 h #s(literal -1 binary64)) l)) d))
▶	29.6%	#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 l h))) d))
	28.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 (sqrt.f64 (exp.f64 (.f64 (log.f64 (*.f64 l h)) #s(literal -1 binary64)))) d))
	24.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 (neg.f64 d) (pow.f64 (.f64 l h) #s(literal -1/2 binary64))))

Compiler

Compiled 3 590 to 2 360 computations (34.3% saved)

series185.0ms (2.1%)

Memory

-6.3MiB live, 277.7MiB allocated; 47ms collecting garbage

Counts

59 → 157

Calls

Call 1

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

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

Calls

15 calls:

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

rewrite97.0ms (1.1%)

Memory

-4.6MiB live, 132.7MiB allocated; 24ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	510	6734
0	586	6015
0	2060	5924

Stop Event

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

Counts

216 → 357

Calls

Call 1

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

eval44.0ms (0.5%)

Memory: 9.8MiB live, 101.0MiB allocated; 11ms collecting garbage
Compiler: Compiled 26 968 to 1 822 computations (93.2% saved)

prune55.0ms (0.6%)

Memory

9.1MiB live, 109.2MiB allocated; 10ms collecting garbage

Pruning

36 alts after pruning (35 fresh and 1 done)

	Pruned	Kept	Total
New	404	24	428
Fresh	19	11	30
Picked	4	1	5
Done	0	0	0
Total	427	36	463

Accuracy

92.4%

Counts

463 → 36

Alt Table

Click to see full alt table

Status	Accuracy	Program
	57.9%	(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (pow.f64 (.f64 (/.f64 D d) (/.f64 M #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) h)) l)) (sqrt.f64 (*.f64 (/.f64 d l) (/.f64 d h))))
▶	38.5%	(.f64 (.f64 (/.f64 (sqrt.f64 d) (sqrt.f64 l)) (sqrt.f64 (/.f64 d h))) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (pow.f64 (*.f64 (/.f64 M #s(literal 2 binary64)) (/.f64 D d)) #s(literal 2 binary64)) #s(literal 1/2 binary64)) h) l)))
	67.7%	(.f64 (.f64 (.f64 (pow.f64 (/.f64 d l) #s(literal 1/4 binary64)) (pow.f64 (/.f64 d l) #s(literal 1/4 binary64))) (sqrt.f64 (/.f64 d h))) (-.f64 #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)))
	40.4%	(.f64 (.f64 (sqrt.f64 (/.f64 d l)) (/.f64 (sqrt.f64 d) (sqrt.f64 h))) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (pow.f64 (*.f64 (/.f64 M #s(literal 2 binary64)) (/.f64 D d)) #s(literal 2 binary64)) #s(literal 1/2 binary64)) h) l)))
	67.8%	(.f64 (.f64 (sqrt.f64 (/.f64 d l)) (sqrt.f64 (/.f64 d h))) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (.f64 (.f64 (/.f64 D d) (/.f64 M #s(literal 2 binary64))) (*.f64 (/.f64 D d) (/.f64 M #s(literal 2 binary64)))) #s(literal 1/2 binary64)) h) l)))
	55.6%	(.f64 (.f64 (sqrt.f64 (/.f64 d l)) (sqrt.f64 (/.f64 d h))) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 #s(approx ( (pow (* (/ M 2) (/ D d)) 2) 1/2) (/.f64 (.f64 #s(literal 1/8 binary64) (pow.f64 (.f64 D M) #s(literal 2 binary64))) (*.f64 d d))) h) l)))
	65.2%	(.f64 (.f64 (sqrt.f64 (/.f64 d l)) (sqrt.f64 (/.f64 d h))) (-.f64 #s(literal 1 binary64) (.f64 (/.f64 h l) (.f64 #s(literal 1/2 binary64) (pow.f64 (*.f64 (/.f64 D d) (/.f64 M #s(literal 2 binary64))) #s(literal 2 binary64))))))
	64.8%	(.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))))
	44.6%	(.f64 (.f64 (sqrt.f64 (/.f64 d l)) (sqrt.f64 (/.f64 d h))) #s(approx (- 1 (/ (* (* (pow (* (/ M 2) (/ D d)) 2) 1/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))))
	26.2%	(.f64 (.f64 (sqrt.f64 (/.f64 d l)) (sqrt.f64 (/.f64 d h))) #s(approx (- 1 (/ (* (* (pow (* (/ M 2) (/ D d)) 2) 1/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))))
	37.1%	(.f64 (.f64 (sqrt.f64 (/.f64 d l)) (sqrt.f64 (/.f64 d h))) #s(approx (- 1 (/ (* (* (pow (* (/ M 2) (/ D d)) 2) 1/2) h) l)) #s(literal 1 binary64)))
▶	67.8%	(.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))))
▶	36.1%	(.f64 #s(approx ( (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (.f64 (.f64 #s(literal -1 binary64) d) (/.f64 #s(literal 1 binary64) (sqrt.f64 (.f64 l 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))))
	36.1%	(.f64 #s(approx ( (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (.f64 (.f64 #s(literal -1 binary64) d) (sqrt.f64 (/.f64 (pow.f64 h #s(literal -1 binary64)) 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))))
	38.5%	(.f64 #s(approx ( (sqrt (/ d l)) (sqrt (/ d h))) (.f64 d (neg.f64 (pow.f64 (.f64 h 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)))
	53.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 (pow.f64 (/.f64 h l) #s(literal 3/2 binary64)) (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) d)) #s(literal -1/8 binary64) (*.f64 (sqrt.f64 (/.f64 h l)) d)) h))
	45.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 (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))
	17.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 #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)))
	13.7%	#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (/.f64 #s(approx (+ (* (* -1/8 (pow (* D M) 2)) (sqrt (/ h (pow l 3)))) (* (sqrt (pow (* l h) -1)) (* d d))) (/.f64 (fma.f64 (.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) #s(literal -1/8 binary64)) (sqrt.f64 (.f64 h l)) (.f64 (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) h)) (.f64 d d))) (.f64 l l))) d))
	31.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 #s(approx (+ (* (* -1/8 (pow (* D M) 2)) (sqrt (/ h (pow l 3)))) (* (sqrt (pow (* l h) -1)) (* d d))) (/.f64 (fma.f64 (.f64 (.f64 D D) (.f64 (pow.f64 (/.f64 h l) #s(literal 3/2 binary64)) (.f64 M M))) #s(literal -1/8 binary64) (.f64 (sqrt.f64 (/.f64 h l)) (.f64 d d))) h)) d))
	27.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 (pow (* D M) 2)) (sqrt (/ h (pow l 3)))) (* (sqrt (pow (* l h) -1)) (* d d))) (/.f64 (fma.f64 (.f64 (sqrt.f64 (pow.f64 (/.f64 h l) #s(literal 3 binary64))) (.f64 (.f64 M M) (.f64 D D))) #s(literal -1/8 binary64) (.f64 (sqrt.f64 (/.f64 h l)) (.f64 d d))) h)) d))
	33.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 (pow (* D M) 2)) (sqrt (/ h (pow l 3)))) (* (sqrt (pow (* l h) -1)) (* d d))) (/.f64 (fma.f64 (.f64 (sqrt.f64 (pow.f64 (/.f64 h l) #s(literal 3 binary64))) (.f64 (.f64 D M) (.f64 D M))) #s(literal -1/8 binary64) (.f64 (sqrt.f64 (/.f64 h l)) (.f64 d d))) h)) d))
	11.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 #s(approx (+ (* (* -1/8 (pow (* D M) 2)) (sqrt (/ h (pow l 3)))) (* (sqrt (pow (* l h) -1)) (* d d))) (/.f64 #s(approx (+ (* (* (sqrt (pow (/ h l) 3)) (pow (* D M) 2)) -1/8) (* (sqrt (/ h l)) (* d d))) (.f64 (.f64 (*.f64 d d) #s(literal -1 binary64)) (sqrt.f64 (/.f64 h l)))) h)) d))
	18.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 (pow (* D M) 2)) (sqrt (/ h (pow l 3)))) (* (sqrt (pow (* l h) -1)) (* d d))) (/.f64 #s(approx (+ (* (* (sqrt (pow (/ h l) 3)) (pow (* D M) 2)) -1/8) (* (sqrt (/ h l)) (* d d))) (.f64 (sqrt.f64 (/.f64 h l)) (.f64 d d))) h)) d))
▶	24.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 (pow (* D M) 2)) (sqrt (/ h (pow l 3)))) (* (sqrt (pow (* l h) -1)) (* d d))) (.f64 (.f64 (pow.f64 (*.f64 h l) #s(literal -1/2 binary64)) d) d)) d))
	32.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 (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))
▶	29.6%	#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (.f64 l h))) d))
	18.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 (/.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(literal -1/8 binary64)))
	15.6%	#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 (.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (*.f64 M (/.f64 M d))) (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64))))))
	17.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 (.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) d)) (sqrt.f64 (/.f64 h (.f64 (*.f64 l l) l)))))
	14.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 (.f64 #s(literal -1/8 binary64) (.f64 (.f64 D D) (/.f64 (.f64 M M) d))) (sqrt.f64 (/.f64 h (.f64 (*.f64 l l) l)))))
	25.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 binary64) d) (sqrt.f64 (pow.f64 (*.f64 l h) #s(literal -1 binary64)))))
	29.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 (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) l) h)) d))
✓	29.6%	#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 l h))) d))
	28.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 (sqrt.f64 (exp.f64 (.f64 (log.f64 (*.f64 l h)) #s(literal -1 binary64)))) d))
	24.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 (neg.f64 d) (pow.f64 (.f64 l h) #s(literal -1/2 binary64))))

Compiler

Compiled 3 720 to 2 430 computations (34.7% saved)

series222.0ms (2.5%)

Memory

-40.0MiB live, 218.1MiB allocated; 160ms collecting garbage

Counts

60 → 173

Calls

Call 1

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

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

Calls

15 calls:

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

rewrite97.0ms (1.1%)

Memory

-2.1MiB live, 142.8MiB allocated; 10ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	561	7301
0	636	6692
0	2232	6587

Stop Event

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

Counts

233 → 382

Calls

Call 1

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

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

eval36.0ms (0.4%)

Memory: 4.9MiB live, 94.6MiB allocated; 8ms collecting garbage
Compiler: Compiled 15 036 to 1 261 computations (91.6% saved)

prune85.0ms (1%)

Memory

23.3MiB live, 191.0MiB allocated; 35ms collecting garbage

Pruning

41 alts after pruning (38 fresh and 3 done)

	Pruned	Kept	Total
New	321	15	336
Fresh	7	23	30
Picked	3	2	5
Done	0	1	1
Total	331	41	372

Accuracy

92.8%

Counts

372 → 41

Alt Table

Click to see full alt table

Status	Accuracy	Program
	57.9%	(.f64 (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (pow.f64 (.f64 (/.f64 D d) (/.f64 M #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) h)) l)) (sqrt.f64 (*.f64 (/.f64 d l) (/.f64 d h))))
	65.2%	(.f64 (-.f64 #s(literal 1 binary64) (.f64 (pow.f64 (.f64 (/.f64 M #s(literal 2 binary64)) (/.f64 D d)) #s(literal 2 binary64)) (/.f64 (.f64 #s(literal 1/2 binary64) h) l))) (*.f64 (sqrt.f64 (/.f64 d h)) (sqrt.f64 (/.f64 d l))))
	67.7%	(.f64 (.f64 (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 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))))
	38.5%	(.f64 (.f64 (/.f64 (sqrt.f64 d) (sqrt.f64 l)) (sqrt.f64 (/.f64 d h))) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (pow.f64 (.f64 #s(approx (/ M 2) (.f64 #s(literal 1/2 binary64) M)) (/.f64 D d)) #s(literal 2 binary64)) #s(literal 1/2 binary64)) h) l)))
	67.8%	(.f64 (.f64 (sqrt.f64 (/.f64 d l)) (sqrt.f64 (/.f64 d h))) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (.f64 (.f64 (/.f64 D d) (/.f64 M #s(literal 2 binary64))) (*.f64 (/.f64 D d) (/.f64 M #s(literal 2 binary64)))) #s(literal 1/2 binary64)) h) l)))
	55.6%	(.f64 (.f64 (sqrt.f64 (/.f64 d l)) (sqrt.f64 (/.f64 d h))) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 #s(approx ( (pow (* (/ M 2) (/ D d)) 2) 1/2) (/.f64 (.f64 #s(literal 1/8 binary64) (pow.f64 (.f64 D M) #s(literal 2 binary64))) (*.f64 d d))) h) l)))
	64.8%	(.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))))
	44.6%	(.f64 (.f64 (sqrt.f64 (/.f64 d l)) (sqrt.f64 (/.f64 d h))) #s(approx (- 1 (/ (* (* (pow (* (/ M 2) (/ D d)) 2) 1/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))))
	41.2%	(.f64 (sqrt.f64 (/.f64 d l)) (.f64 (/.f64 (sqrt.f64 d) (sqrt.f64 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))))
	67.8%	(.f64 (sqrt.f64 (/.f64 d l)) (.f64 (sqrt.f64 (/.f64 d h)) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (.f64 (/.f64 M #s(literal 2 binary64)) (/.f64 D d)) (.f64 (/.f64 M #s(literal 2 binary64)) (/.f64 D d))) (*.f64 #s(literal 1/2 binary64) h)) l))))
	26.2%	(.f64 (sqrt.f64 (/.f64 d l)) (.f64 (sqrt.f64 (/.f64 d h)) #s(approx (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (/.f64 (.f64 #s(literal -1/8 binary64) (.f64 (pow.f64 (.f64 M D) #s(literal 2 binary64)) h)) (.f64 (*.f64 d d) l)))))
	37.1%	(.f64 (sqrt.f64 (/.f64 d l)) #s(approx ( (sqrt (/ d h)) (- 1 (/ (* (pow (* (/ D d) (/ M 2)) 2) (* 1/2 h)) l))) (sqrt.f64 (/.f64 d h))))
	36.9%	(.f64 #s(approx ( (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (.f64 (.f64 #s(literal -1 binary64) d) (/.f64 #s(literal 1 binary64) (sqrt.f64 (.f64 l 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))))
	28.2%	(.f64 #s(approx ( (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (.f64 (.f64 #s(literal -1 binary64) d) (/.f64 #s(literal 1 binary64) (sqrt.f64 (.f64 l h))))) (-.f64 #s(literal 1 binary64) (.f64 #s(approx (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/.f64 (.f64 #s(literal 1/8 binary64) (pow.f64 (.f64 M D) #s(literal 2 binary64))) (*.f64 d d))) (/.f64 h l))))
	36.1%	(.f64 #s(approx ( (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (.f64 (.f64 #s(literal -1 binary64) d) (sqrt.f64 (/.f64 (pow.f64 h #s(literal -1 binary64)) 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))))
	38.5%	(.f64 #s(approx ( (sqrt (/ d l)) (sqrt (/ d h))) (.f64 d (neg.f64 (pow.f64 (.f64 h 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)))
	53.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 (pow.f64 (/.f64 h l) #s(literal 3/2 binary64)) (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) d)) #s(literal -1/8 binary64) (*.f64 (sqrt.f64 (/.f64 h l)) d)) h))
	45.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 (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))
	17.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 #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)))
	29.6%	#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (/.f64 (.f64 #s(literal 1 binary64) d) (sqrt.f64 (.f64 h l))))
	13.7%	#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (/.f64 #s(approx (+ (* (* -1/8 (pow (* D M) 2)) (sqrt (/ h (pow l 3)))) (* (sqrt (pow (* l h) -1)) (* d d))) (/.f64 (fma.f64 (.f64 (pow.f64 (.f64 M D) #s(literal 2 binary64)) #s(literal -1/8 binary64)) (sqrt.f64 (.f64 h l)) (.f64 (sqrt.f64 (/.f64 (pow.f64 l #s(literal 3 binary64)) h)) (.f64 d d))) (.f64 l l))) d))
	31.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 #s(approx (+ (* (* -1/8 (pow (* D M) 2)) (sqrt (/ h (pow l 3)))) (* (sqrt (pow (* l h) -1)) (* d d))) (/.f64 (fma.f64 (.f64 (.f64 D D) (.f64 (pow.f64 (/.f64 h l) #s(literal 3/2 binary64)) (.f64 M M))) #s(literal -1/8 binary64) (.f64 (sqrt.f64 (/.f64 h l)) (.f64 d d))) h)) d))
	27.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 (pow (* D M) 2)) (sqrt (/ h (pow l 3)))) (* (sqrt (pow (* l h) -1)) (* d d))) (/.f64 (fma.f64 (.f64 (sqrt.f64 (pow.f64 (/.f64 h l) #s(literal 3 binary64))) (.f64 (.f64 M M) (.f64 D D))) #s(literal -1/8 binary64) (.f64 (sqrt.f64 (/.f64 h l)) (.f64 d d))) h)) d))
	33.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 (pow (* D M) 2)) (sqrt (/ h (pow l 3)))) (* (sqrt (pow (* l h) -1)) (* d d))) (/.f64 (fma.f64 (.f64 (sqrt.f64 (pow.f64 (/.f64 h l) #s(literal 3 binary64))) (.f64 (.f64 D M) (.f64 D M))) #s(literal -1/8 binary64) (.f64 (sqrt.f64 (/.f64 h l)) (.f64 d d))) h)) d))
	11.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 #s(approx (+ (* (* -1/8 (pow (* D M) 2)) (sqrt (/ h (pow l 3)))) (* (sqrt (pow (* l h) -1)) (* d d))) (/.f64 #s(approx (+ (* (* (sqrt (pow (/ h l) 3)) (pow (* D M) 2)) -1/8) (* (sqrt (/ h l)) (* d d))) (.f64 (.f64 (*.f64 d d) #s(literal -1 binary64)) (sqrt.f64 (/.f64 h l)))) h)) d))
	18.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 (pow (* D M) 2)) (sqrt (/ h (pow l 3)))) (* (sqrt (pow (* l h) -1)) (* d d))) (/.f64 #s(approx (+ (* (* (sqrt (pow (/ h l) 3)) (pow (* D M) 2)) -1/8) (* (sqrt (/ h l)) (* d d))) (.f64 (sqrt.f64 (/.f64 h l)) (.f64 d d))) h)) d))
✓	24.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 (pow (* D M) 2)) (sqrt (/ h (pow l 3)))) (* (sqrt (pow (* l h) -1)) (* d d))) (.f64 (.f64 (pow.f64 (*.f64 h l) #s(literal -1/2 binary64)) d) d)) d))
	32.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 (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))
	27.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 binary64) (.f64 (sqrt.f64 l) (sqrt.f64 h))) d))
✓	29.6%	#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (.f64 l h))) d))
	29.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 (pow.f64 (.f64 h l) #s(literal -1/4 binary64)) (pow.f64 (.f64 h l) #s(literal -1/4 binary64))) d))
	27.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 (pow.f64 h #s(literal -1/2 binary64)) (pow.f64 l #s(literal -1/2 binary64))) d))
	18.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 (/.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(literal -1/8 binary64)))
	15.6%	#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 (.f64 (.f64 #s(literal -1/8 binary64) (.f64 D D)) (*.f64 M (/.f64 M d))) (sqrt.f64 (/.f64 h (pow.f64 l #s(literal 3 binary64))))))
	17.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 (.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) d)) (sqrt.f64 (/.f64 h (.f64 (*.f64 l l) l)))))
	14.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 (.f64 #s(literal -1/8 binary64) (.f64 (.f64 D D) (/.f64 (.f64 M M) d))) (sqrt.f64 (/.f64 h (.f64 (*.f64 l l) l)))))
	25.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 binary64) d) (sqrt.f64 (pow.f64 (*.f64 l h) #s(literal -1 binary64)))))
	29.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 (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) l) h)) d))
✓	29.6%	#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 l h))) d))
	24.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 (neg.f64 d) (pow.f64 (.f64 l h) #s(literal -1/2 binary64))))
	28.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 (exp.f64 (.f64 (log.f64 (*.f64 h l)) #s(literal -1/2 binary64))) d))

Compiler

Compiled 6 577 to 1 879 computations (71.4% saved)

regimes255.0ms (2.9%)

Memory

17.9MiB live, 311.9MiB allocated; 106ms collecting garbage

Counts

90 → 3

Calls

Call 1

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

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

Calls

7 calls:

61.0ms	D
50.0ms	(*.f64 M D)
50.0ms	l
24.0ms	d
23.0ms	h

Results

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

Compiler

Compiled 43 to 53 computations (-23.3% saved)

regimes76.0ms (0.9%)

Memory

-7.4MiB live, 40.1MiB allocated; 6ms collecting garbage

Counts

56 → 3

Calls

Call 1

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

Outputs

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

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

Calls

3 calls:

44.0ms	h
14.0ms	d
14.0ms	l

Results

Accuracy	Segments	Branch
77.4%	2	`d`
79.7%	3	`h`
79.2%	3	`l`

Compiler

Compiled 3 to 15 computations (-400% saved)

regimes39.0ms (0.4%)

Memory

8.6MiB live, 53.0MiB allocated; 3ms collecting garbage

Counts

45 → 3

Calls

Call 1

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

Outputs

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

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

Calls

3 calls:

13.0ms	l
12.0ms	h
12.0ms	d

Results

Accuracy	Segments	Branch
74.7%	2	`d`
76.6%	3	`l`
77.0%	3	`h`

Compiler

Compiled 3 to 15 computations (-400% saved)

regimes54.0ms (0.6%)

Memory

0.7MiB live, 94.7MiB allocated; 20ms collecting garbage

Counts

42 → 3

Calls

Call 1

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

Outputs

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

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

Calls

4 calls:

16.0ms	h
15.0ms	d
11.0ms	l
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))))

Results

Accuracy	Segments	Branch
71.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))))`
74.1%	3	`d`
74.0%	3	`l`
74.0%	3	`h`

Compiler

Compiled 38 to 37 computations (2.6% saved)

regimes35.0ms (0.4%)

Memory

-9.4MiB live, 81.4MiB allocated; 6ms collecting garbage

Counts

28 → 2

Calls

Call 1

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

Outputs

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

#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

4 calls:

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

Results

Accuracy	Segments	Branch
71.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))))`
69.7%	2	`l`
67.8%	1	`h`
70.2%	2	`d`

Compiler

Compiled 38 to 37 computations (2.6% saved)

regimes43.0ms (0.5%)

Memory

-8.6MiB live, 91.4MiB allocated; 12ms collecting garbage

Counts

18 → 3

Calls

Call 1

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

Outputs

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

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

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

Calls

7 calls:

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

Results

Accuracy	Segments	Branch
41.2%	3	`D`
41.5%	2	`(*.f64 M D)`
49.9%	3	`h`
40.4%	2	`M`
52.4%	4	`l`
52.1%	3	`d`
51.5%	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 43 to 53 computations (-23.3% saved)

regimes8.0ms (0.1%)

Memory

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

Counts

11 → 3

Calls

Call 1

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

Outputs

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

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

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
51.5%	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))))`
48.1%	3	`d`

Compiler

Compiled 36 to 27 computations (25% saved)

regimes12.0ms (0.1%)

Memory

-23.1MiB live, 22.8MiB allocated; 4ms collecting garbage

Counts

9 → 3

Calls

Call 1

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

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

Calls

3 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
43.7%	2	`h`
46.5%	3	`l`
49.5%	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 37 to 32 computations (13.5% saved)

regimes9.0ms (0.1%)

Memory

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

Counts

8 → 3

Calls

Call 1

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

Outputs

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

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

Calls

3 calls:

3.0ms

2.0ms

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

Results

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

Compiler

Compiled 37 to 32 computations (13.5% saved)

regimes16.0ms (0.2%)

Memory

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

Outputs

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

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

Results

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

Compiler

Compiled 43 to 53 computations (-23.3% saved)

regimes9.0ms (0.1%)

Memory

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

Counts

4 → 1

Calls

Call 1

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

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

Calls

5 calls:

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

Results

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

Compiler

Compiled 41 to 43 computations (-4.9% saved)

regimes12.0ms (0.1%)

Memory

-20.5MiB live, 26.5MiB allocated; 2ms collecting garbage

Accuracy

Total -0.1b remaining (-0.2%)

Threshold costs -0.1b (-0.2%)

Counts

3 → 1

Calls

Call 1

Inputs

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

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

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

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

Calls

7 calls:

3.0ms	M
1.0ms	l
1.0ms	d
1.0ms	h
1.0ms	D

Results

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

Compiler

Compiled 43 to 53 computations (-23.3% saved)

bsearch127.0ms (1.4%)

Memory

-7.9MiB live, 131.3MiB allocated; 14ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
74.0ms	4.1863179320664424e+94	9.599675558357056e+100
39.0ms	-1.926463194891163e-308	1.470032733194001e-305

Samples

67.0ms	272×	0	valid
28.0ms	242×	0	invalid

Compiler

Compiled 1 275 to 1 005 computations (21.2% saved)

Precisions

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

ival-div!: 41.0ms (53.2% of total)

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

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

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

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

adjust: 0.0ms (0% of total)

bsearch133.0ms (1.5%)

Memory

22.4MiB live, 211.5MiB allocated; 42ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
74.0ms	-6.1920653394089475e-295	1.4678680810156797e-301
43.0ms	-4.3854957885536346e+126	-4.0373952969679705e+122

Samples

43.0ms	304×	0	valid
35.0ms	311×	0	invalid

Compiler

Compiled 1 446 to 1 105 computations (23.6% saved)

Precisions

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

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

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

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

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

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

adjust: 0.0ms (0% of total)

bsearch5.0ms (0.1%)

Memory

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

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
2.0ms	-6.1920653394089475e-295	1.4678680810156797e-301
2.0ms	-4.3854957885536346e+126	-4.0373952969679705e+122

Compiler

Compiled 1 490 to 1 138 computations (23.6% saved)

bsearch161.0ms (1.8%)

Memory

-26.7MiB live, 164.0MiB allocated; 14ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
44.0ms	3.233618926794039e+87	1.3853098324994026e+102
46.0ms	-5.741926736391845e-286	-1.2414198118760493e-294

Samples

45.0ms	304×	0	valid
26.0ms	273×	0	invalid

Compiler

Compiled 1 511 to 1 064 computations (29.6% saved)

Precisions

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

ival-div!: 18.0ms (35.2% of total)

ival-mult!: 13.0ms (25.4% of total)

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

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

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

adjust: 0.0ms (0% of total)

bsearch1.0ms (0%)

Memory

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

Algorithm

1×	left-value

Steps

Time	Left	Right
0.0ms	8.168803780862881e+232	+inf

Compiler

Compiled 38 to 30 computations (21.1% saved)

bsearch138.0ms (1.6%)

Memory

37.2MiB live, 172.0MiB allocated; 31ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
71.0ms	7.029637853830581e-43	4.676665188364978e-30
55.0ms	5.411213090897977e-298	8.76728368478215e-292

Samples

69.0ms	304×	0	valid
28.0ms	292×	0	invalid

Compiler

Compiled 1 948 to 1 256 computations (35.5% saved)

Precisions

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

ival-pow: 29.0ms (46.3% of total)

ival-mult!: 13.0ms (20.7% of total)

ival-div!: 12.0ms (19.1% of total)

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

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

adjust: 0.0ms (0% of total)

bsearch1.0ms (0%)

Memory

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

Algorithm

2×	left-value

Steps

Time	Left	Right
0.0ms	8.168803780862881e+232	+inf
0.0ms	-5.64010501361967e+120	-1.6570196195488078e+116

Compiler

Compiled 38 to 30 computations (21.1% saved)

bsearch1.0ms (0%)

Memory

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

Algorithm

2×	left-value

Steps

Time	Left	Right
0.0ms	8.168803780862881e+232	+inf
0.0ms	0.0	4.2927189079747654e-263

Compiler

Compiled 38 to 30 computations (21.1% saved)

bsearch100.0ms (1.1%)

Memory

-23.9MiB live, 127.9MiB allocated; 25ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
25.0ms	2.166538432643911e-299	7.830811371354623e-299
67.0ms	-4.926727554537595e-247	-1.5227936479732565e-250

Samples

44.0ms	208×	0	valid
34.0ms	196×	0	invalid

Compiler

Compiled 1 091 to 765 computations (29.9% saved)

Precisions

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

ival-pow: 24.0ms (51.3% of total)

ival-div!: 9.0ms (19.2% of total)

ival-mult!: 9.0ms (19.2% of total)

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

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

adjust: 0.0ms (0% of total)

bsearch48.0ms (0.5%)

Memory

-0.3MiB live, 93.2MiB allocated; 6ms collecting garbage

Algorithm

1×	binary-search

Stop Event

1×	narrow-enough

Steps

Time	Left	Right
43.0ms	2.0328044574052842e-291	9.009997558558437e-288

Samples

18.0ms	128×	0	valid
16.0ms	126×	0	invalid

Compiler

Compiled 750 to 502 computations (33.1% saved)

Precisions

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

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

ival-div!: 7.0ms (29.9% of total)

ival-mult!: 6.0ms (25.7% of total)

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

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

adjust: 0.0ms (0% of total)

derivations142.0ms (1.6%)

Memory

1.4MiB live, 150.9MiB allocated; 20ms collecting garbage

Stop Event

1×

fuel

Compiler

Compiled 1 511 to 221 computations (85.4% saved)

preprocess251.0ms (2.8%)

Memory

-14.7MiB live, 361.8MiB allocated; 49ms collecting garbage

Remove

(sort M D)

(abs D)

(abs M)

Compiler

Compiled 14 826 to 5 800 computations (60.9% saved)

end0.0ms (0%)

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

start0.0ms (0%)

analyze420.0ms (4.8%)

sample5.0s (56.8%)

explain286.0ms (3.3%)

preprocess62.0ms (0.7%)

series86.0ms (1%)

rewrite107.0ms (1.2%)

eval11.0ms (0.1%)

prune43.0ms (0.5%)

series133.0ms (1.5%)

rewrite79.0ms (0.9%)

eval38.0ms (0.4%)

prune42.0ms (0.5%)

series185.0ms (2.1%)

rewrite97.0ms (1.1%)

eval44.0ms (0.5%)

prune55.0ms (0.6%)

series222.0ms (2.5%)

rewrite97.0ms (1.1%)

eval36.0ms (0.4%)

prune85.0ms (1%)

regimes255.0ms (2.9%)

regimes76.0ms (0.9%)

regimes39.0ms (0.4%)

regimes54.0ms (0.6%)

regimes35.0ms (0.4%)

regimes43.0ms (0.5%)

regimes8.0ms (0.1%)

regimes12.0ms (0.1%)

regimes9.0ms (0.1%)

regimes16.0ms (0.2%)

regimes9.0ms (0.1%)

regimes12.0ms (0.1%)

bsearch127.0ms (1.4%)

bsearch133.0ms (1.5%)

bsearch5.0ms (0.1%)

bsearch161.0ms (1.8%)

bsearch1.0ms (0%)

bsearch138.0ms (1.6%)

bsearch1.0ms (0%)

bsearch1.0ms (0%)

bsearch100.0ms (1.1%)

bsearch48.0ms (0.5%)

derivations142.0ms (1.6%)

preprocess251.0ms (2.8%)

end0.0ms (0%)

Profiling