Metrics for Henrywood and Agarwal, Equation (12)

start0.0ms (0%)

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

analyze480.0ms (5%)

Memory

18.4MiB live, 595.6MiB allocated; 143ms 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.1s (52.8%)

Memory

54.7MiB live, 6 477.4MiB allocated; 1.9s collecting garbage

Samples

2.4s	13 526×	0	invalid
1.4s	8 256×	0	valid

Precisions

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

ival-div!: 751.0ms (30.6% of total)

ival-pow: 691.0ms (28.2% of total)

ival-mult!: 612.0ms (25% of total)

ival-pow2: 333.0ms (13.6% of total)

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

adjust: 5.0ms (0.2% of total)

Bogosity

preprocess43.0ms (0.4%)

Memory

-25.3MiB live, 20.9MiB allocated; 7ms 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
▶	67.0%	(.f64 (.f64 (pow.f64 (/.f64 d h) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64))) (pow.f64 (/.f64 d l) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)))) (-.f64 #s(literal 1 binary64) (.f64 (.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) (pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64))) (/.f64 h l))))

Status

Accuracy

Program

▶

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

Symmetry

(abs M)

(abs D)

(sort M D)

Compiler

Compiled 62 to 44 computations (29% saved)

series99.0ms (1%)

Memory

11.9MiB live, 109.6MiB allocated; 12ms 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
25.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))
9.0ms	h	@	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))
7.0ms	h	@	0	((* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (pow (/ d h) (/ 1 2)) (/ d h) d h (/ 1 2) 1 2 (pow (/ d l) (/ 1 2)) (/ d l) l (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)) (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (pow (/ (* M D) (* 2 d)) 2) (/ (* M D) (* 2 d)) (* M D) M D (* 2 d) (/ h l))
7.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))

rewrite56.0ms (0.6%)

Memory

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

eval9.0ms (0.1%)

Memory: 12.7MiB live, 12.7MiB allocated; 0ms collecting garbage
Compiler: Compiled 1 374 to 498 computations (63.8% saved)

prune20.0ms (0.2%)

Memory

-16.4MiB live, 29.7MiB allocated; 3ms collecting garbage

Pruning

22 alts after pruning (22 fresh and 0 done)

	Pruned	Kept	Total
New	73	22	95
Fresh	0	0	0
Picked	1	0	1
Done	0	0	0
Total	74	22	96

Accuracy

88.4%

Counts

96 → 22

Alt Table

Click to see full alt table

Status	Accuracy	Program
	57.5%	(.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))))
	37.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 (-.f64 #s(literal 1 binary64) (pow.f64 (.f64 (.f64 (.f64 (.f64 M (/.f64 D (+.f64 d d))) (.f64 M (/.f64 D (+.f64 d d)))) #s(literal 1/2 binary64)) (/.f64 h l)) #s(literal 3 binary64))) (+.f64 #s(literal 1 binary64) (fma.f64 (.f64 (.f64 (.f64 (.f64 M (/.f64 D (+.f64 d d))) (.f64 M (/.f64 D (+.f64 d d)))) #s(literal 1/2 binary64)) (/.f64 h l)) (.f64 (.f64 (.f64 (.f64 M (/.f64 D (+.f64 d d))) (.f64 M (/.f64 D (+.f64 d d)))) #s(literal 1/2 binary64)) (/.f64 h l)) (.f64 #s(literal 1 binary64) (.f64 (.f64 (.f64 (.f64 M (/.f64 D (+.f64 d d))) (*.f64 M (/.f64 D (+.f64 d d)))) #s(literal 1/2 binary64)) (/.f64 h l)))))))
▶	67.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 (.f64 (.f64 M (/.f64 D (+.f64 d d))) (*.f64 M (/.f64 D (+.f64 d d)))) #s(literal 1/2 binary64)) h) l)))
	42.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 l (.f64 (/.f64 (.f64 (.f64 (.f64 M M) h) (.f64 D D)) (.f64 d d)) #s(literal 1/8 binary64))) l)))
	40.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)))) #s(approx (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (.f64 (fma.f64 (/.f64 (.f64 (.f64 M M) (.f64 D D)) (.f64 (.f64 d d) l)) #s(literal -1/8 binary64) (/.f64 #s(literal 1 binary64) h)) h)))
	20.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)))) #s(approx (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (.f64 (/.f64 (.f64 (.f64 (.f64 M M) h) (.f64 D D)) (.f64 (*.f64 d d) l)) #s(literal -1/8 binary64))))
	66.9%	(.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))))
▶	40.1%	(.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))))
	66.9%	(.f64 (.f64 (.f64 (pow.f64 (/.f64 d h) #s(literal 1/4 binary64)) (pow.f64 (/.f64 d h) #s(literal 1/4 binary64))) (pow.f64 (/.f64 d l) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)))) (-.f64 #s(literal 1 binary64) (.f64 (.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) (pow.f64 (/.f64 (.f64 M D) (*.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64))) (/.f64 h l))))
	67.0%	(.f64 (.f64 (sqrt.f64 (/.f64 d l)) (sqrt.f64 (/.f64 d h))) (-.f64 #s(literal 1 binary64) (.f64 (.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) (pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64))) (/.f64 h l))))
	66.5%	(.f64 (sqrt.f64 (/.f64 d h)) (.f64 (sqrt.f64 (/.f64 d l)) (-.f64 #s(literal 1 binary64) (.f64 (.f64 (.f64 (.f64 M (/.f64 D (+.f64 d d))) (*.f64 M (/.f64 D (+.f64 d d)))) #s(literal 1/2 binary64)) (/.f64 h l)))))
	34.6%	(.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))))
▶	34.7%	(.f64 #s(approx ( (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 l h))) 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))))
	24.2%	#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 (sqrt.f64 (/.f64 h (.f64 (.f64 l l) l))) (.f64 (.f64 D D) (/.f64 (.f64 M M) d))) #s(literal -1/8 binary64) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 l h))) d)))
	20.0%	#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (/.f64 (fma.f64 (/.f64 (.f64 (.f64 (.f64 M M) (.f64 D D)) (sqrt.f64 (.f64 l h))) d) #s(literal -1/8 binary64) (.f64 (sqrt.f64 (/.f64 (.f64 (.f64 l l) l) h)) d)) (*.f64 l l)))
	24.2%	#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (/.f64 (fma.f64 (.f64 (.f64 (.f64 D D) (/.f64 (.f64 M M) d)) (sqrt.f64 (/.f64 (.f64 (.f64 h h) h) (.f64 (.f64 l l) l)))) #s(literal -1/8 binary64) (*.f64 (sqrt.f64 (/.f64 h l)) d)) h))
▶	17.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 (fma.f64 (.f64 (/.f64 (.f64 (.f64 M M) (.f64 D D)) (.f64 d d)) (sqrt.f64 (/.f64 h (.f64 (.f64 l l) l)))) #s(literal -1/8 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 l h)))) d))
	29.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 (fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (.f64 (.f64 h h) h) l))) d (.f64 (.f64 #s(literal -1/8 binary64) (.f64 (.f64 D D) (/.f64 (.f64 M M) d))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (.f64 (.f64 l l) l) h))))) h))
	18.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 (.f64 (.f64 D D) (/.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) d)) (sqrt.f64 (/.f64 h (.f64 (.f64 l l) l)))) #s(literal -1/8 binary64)))
	19.6%	#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 (.f64 #s(literal -1/8 binary64) (.f64 (.f64 D D) (/.f64 (.f64 M M) d))) (sqrt.f64 (/.f64 h (.f64 (*.f64 l l) l)))))
	26.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 #s(literal 1 binary64) (*.f64 l h)))))
▶	20.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 #s(literal 1 binary64) (.f64 l h))) d))

Compiler

Compiled 1 594 to 1 370 computations (14.1% saved)

series141.0ms (1.5%)

Memory

7.2MiB live, 194.7MiB allocated; 14ms collecting garbage

Counts

57 → 150

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

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

Calls

15 calls:

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

rewrite89.0ms (0.9%)

Memory

-13.9MiB live, 125.0MiB allocated; 18ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	454	6626
0	534	5743
0	1752	5687

Stop Event

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

Counts

207 → 358

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

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

eval30.0ms (0.3%)

Memory: 41.5MiB live, 87.1MiB allocated; 6ms collecting garbage
Compiler: Compiled 4 478 to 1 602 computations (64.2% saved)

prune48.0ms (0.5%)

Memory

-41.1MiB live, 107.4MiB allocated; 30ms collecting garbage

Pruning

32 alts after pruning (31 fresh and 1 done)

	Pruned	Kept	Total
New	304	22	326
Fresh	8	9	17
Picked	4	1	5
Done	0	0	0
Total	316	32	348

Accuracy

89.2%

Counts

348 → 32

Alt Table

Click to see full alt table

Status	Accuracy	Program
	58.3%	(.f64 (pow.f64 (.f64 (/.f64 d h) (/.f64 d l)) #s(literal 1/2 binary64)) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (.f64 (.f64 M (/.f64 D (+.f64 d d))) (*.f64 M (/.f64 D (+.f64 d d)))) #s(literal 1/2 binary64)) h) l)))
	39.7%	(.f64 (/.f64 (.f64 (sqrt.f64 d) (sqrt.f64 (/.f64 d l))) (sqrt.f64 h)) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (.f64 (.f64 M (/.f64 D (+.f64 d d))) (*.f64 M (/.f64 D (+.f64 d d)))) #s(literal 1/2 binary64)) h) l)))
	33.5%	(.f64 (-.f64 #s(literal 1 binary64) (.f64 (.f64 #s(literal 1/2 binary64) (.f64 M (.f64 (/.f64 D (+.f64 d d)) (.f64 (/.f64 D (+.f64 d d)) M)))) (/.f64 h l))) #s(approx (* (/ (sqrt d) (sqrt h)) (pow (/ d l) (/ 1 2))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 l h))) d)))
	49.0%	(.f64 (.f64 (pow.f64 (/.f64 d h) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64))) (pow.f64 (/.f64 d l) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)))) #s(approx (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (.f64 (fma.f64 (/.f64 (.f64 (.f64 (.f64 M M) D) D) (.f64 (.f64 d d) l)) #s(literal -1/8 binary64) (/.f64 #s(literal 1 binary64) h)) h)))
	20.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)))) #s(approx (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l))) (.f64 (/.f64 (.f64 (.f64 (.f64 M M) h) (.f64 D D)) (.f64 (*.f64 d d) l)) #s(literal -1/8 binary64))))
	66.9%	(.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))))
	40.0%	(.f64 (.f64 (/.f64 (sqrt.f64 d) (sqrt.f64 h)) (.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))))
	67.2%	(.f64 (.f64 (.f64 (pow.f64 (/.f64 d h) #s(literal 1/4 binary64)) (pow.f64 (/.f64 d h) #s(literal 1/4 binary64))) (pow.f64 (/.f64 d l) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)))) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (.f64 (.f64 M (/.f64 D (+.f64 d d))) (.f64 M (/.f64 D (+.f64 d d)))) #s(literal 1/2 binary64)) h) l)))
▶	67.3%	(.f64 (.f64 (sqrt.f64 (/.f64 d l)) (sqrt.f64 (/.f64 d h))) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (.f64 (.f64 M (/.f64 D (+.f64 d d))) (*.f64 M (/.f64 D (+.f64 d d)))) #s(literal 1/2 binary64)) h) l)))
	67.0%	(.f64 (.f64 (sqrt.f64 (/.f64 d l)) (sqrt.f64 (/.f64 d h))) (-.f64 #s(literal 1 binary64) (.f64 (.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) (pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64))) (/.f64 h l))))
	65.6%	(.f64 (.f64 (exp.f64 (.f64 (log.f64 (/.f64 d h)) #s(literal 1/2 binary64))) (pow.f64 (/.f64 d l) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)))) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (.f64 (.f64 M (/.f64 D (+.f64 d d))) (.f64 M (/.f64 D (+.f64 d d)))) #s(literal 1/2 binary64)) h) l)))
	66.5%	(.f64 (sqrt.f64 (/.f64 d h)) (.f64 (sqrt.f64 (/.f64 d l)) (-.f64 #s(literal 1 binary64) (.f64 (.f64 (.f64 (.f64 M (/.f64 D (+.f64 d d))) (*.f64 M (/.f64 D (+.f64 d d)))) #s(literal 1/2 binary64)) (/.f64 h l)))))
	35.4%	(.f64 #s(approx ( (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (.f64 l h))) 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))))
	34.6%	(.f64 #s(approx ( (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (.f64 #s(approx (sqrt (/ 1 ( l h))) (neg.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 l h))))) 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))))
	37.6%	(.f64 #s(approx ( (/ (sqrt d) (sqrt h)) (pow (/ d l) (/ 1 2))) (.f64 d (neg.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 l h)))))) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (.f64 (.f64 M (/.f64 D (+.f64 d d))) (*.f64 M (/.f64 D (+.f64 d d)))) #s(literal 1/2 binary64)) h) l)))
▶	35.2%	(.f64 #s(approx ( (/ (sqrt d) (sqrt h)) (pow (/ d l) (/ 1 2))) (neg.f64 (.f64 d (neg.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 l h))))))) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (.f64 (.f64 M (/.f64 D (+.f64 d d))) (*.f64 M (/.f64 D (+.f64 d d)))) #s(literal 1/2 binary64)) h) l)))
▶	24.2%	#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 (sqrt.f64 (/.f64 h (.f64 (.f64 l l) l))) (.f64 (.f64 D D) (/.f64 (.f64 M M) d))) #s(literal -1/8 binary64) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 l h))) d)))
	24.2%	#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (/.f64 (fma.f64 (.f64 (.f64 (.f64 D D) (/.f64 (.f64 M M) d)) (sqrt.f64 (/.f64 (.f64 (.f64 h h) h) (.f64 (.f64 l l) l)))) #s(literal -1/8 binary64) (*.f64 (sqrt.f64 (/.f64 h l)) d)) h))
	20.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 (/.f64 (.f64 (.f64 D M) (.f64 D M)) (.f64 d d)) (sqrt.f64 (/.f64 h (.f64 (.f64 l l) l)))) #s(literal -1/8 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 l h)))) d))
	29.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 (fma.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (.f64 (.f64 h h) h) l))) d (.f64 (.f64 #s(literal -1/8 binary64) (.f64 (.f64 D D) (/.f64 (.f64 M M) d))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (.f64 (.f64 l l) l) h))))) h))
▶	20.3%	#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (.f64 l h))) d))
	18.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 (.f64 (.f64 D D) (/.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) d)) (sqrt.f64 (/.f64 h (.f64 (.f64 l l) l)))) #s(literal -1/8 binary64)))
	19.6%	#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 (.f64 #s(literal -1/8 binary64) (.f64 (.f64 D D) (/.f64 (.f64 M M) d))) (sqrt.f64 (/.f64 h (.f64 (*.f64 l l) l)))))
	20.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))
	20.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) h) l)) d))
✓	20.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 #s(literal 1 binary64) (.f64 l h))) d))
	22.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 (+ ( (* (/ (* (* M M) (* D D)) (* d d)) (sqrt (/ h (* (* l l) l)))) -1/8) (sqrt (/ 1 (* l h)))) (/.f64 (fma.f64 (.f64 (sqrt.f64 (/.f64 (.f64 (.f64 h h) h) (.f64 (.f64 l l) l))) (/.f64 (.f64 (.f64 (.f64 M M) D) D) (*.f64 d d))) #s(literal -1/8 binary64) (sqrt.f64 (/.f64 h l))) h)) d))
	12.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 (+ ( (* (/ (* (* M M) (* D D)) (* d d)) (sqrt (/ h (* (* l l) l)))) -1/8) (sqrt (/ 1 (* l h)))) (.f64 (.f64 (/.f64 (.f64 (.f64 (.f64 M M) D) D) (.f64 d d)) (sqrt.f64 (/.f64 h (.f64 (.f64 l l) l)))) #s(literal -1/8 binary64))) d))
	26.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 (+ ( (* (/ (* (* M M) (* D D)) (* d d)) (sqrt (/ h (* (* l l) l)))) -1/8) (sqrt (/ 1 (* l h)))) (neg.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 l h))))) d))
	20.4%	#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) #s(approx (* (+ (* (* (/ (* (* M M) (* D D)) (* d d)) (sqrt (/ h (* (* l l) l)))) -1/8) (sqrt (/ 1 (* l h)))) d) (/.f64 (fma.f64 (/.f64 (.f64 (.f64 (.f64 (.f64 M M) D) D) (sqrt.f64 (.f64 l h))) d) #s(literal -1/8 binary64) (.f64 (sqrt.f64 (/.f64 (.f64 (.f64 l l) l) h)) d)) (*.f64 l l))))
	19.9%	#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) #s(approx (* (+ (* (* (/ (* (* M M) (* D D)) (* d d)) (sqrt (/ h (* (* l l) l)))) -1/8) (sqrt (/ 1 (* l h)))) d) (/.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) (.f64 (.f64 (.f64 M M) D) D)) (sqrt.f64 (/.f64 h (.f64 (.f64 l l) l))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 l h))) (*.f64 d d))) d)))
▶	31.4%	#s(approx (* (* (/ (sqrt d) (sqrt h)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (neg.f64 (.f64 (fma.f64 (/.f64 (.f64 (.f64 (.f64 (.f64 M M) D) D) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (.f64 (.f64 l l) l) h)))) d) #s(literal 1/8 binary64) (neg.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (.f64 (.f64 h h) h) l))) d))) h)))

Compiler

Compiled 2 354 to 2 162 computations (8.2% saved)

series249.0ms (2.6%)

Memory

16.9MiB live, 249.1MiB allocated; 21ms collecting garbage

Counts

65 → 210

Calls

Call 1

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

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

Calls

15 calls:

Time	Variable		Point	Expression
44.0ms	d	@	-inf	((* (* (sqrt (/ d l)) (sqrt (/ d h))) (- 1 (/ (* (* (* (* M (/ D (+ d d))) (* M (/ D (+ d d)))) 1/2) h) l))) (* (sqrt (/ d l)) (sqrt (/ d h))) (sqrt (/ d l)) (/ d l) d l (sqrt (/ d h)) (/ d h) h (- 1 (/ (* (* (* (* M (/ D (+ d d))) (* M (/ D (+ d d)))) 1/2) h) l)) 1 (/ (* (* (* (* M (/ D (+ d d))) (* M (/ D (+ d d)))) 1/2) h) l) (* (* (* (* M (/ D (+ d d))) (* M (/ D (+ d d)))) 1/2) h) (* (* (* M (/ D (+ d d))) (* M (/ D (+ d d)))) 1/2) (* (* M (/ D (+ d d))) (* M (/ D (+ d d)))) (* M (/ D (+ d d))) M (/ D (+ d d)) 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)))) (* (/ 1 (sqrt (* l h))) d) (/ 1 (sqrt (* l h))) (sqrt (* l h)) (* l h) (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (+ (* (* (sqrt (/ h (* (* l l) l))) (* (* D D) (/ (* M M) d))) -1/8) (* (sqrt (/ 1 (* l h))) d)) (* (sqrt (/ h (* (* l l) l))) (* (* D D) (/ (* M M) d))) (sqrt (/ h (* (* l l) l))) (/ h (* (* l l) l)) (* (* l l) l) (* l l) (* (* D D) (/ (* M M) d)) (* D D) (/ (* M M) d) (* M M) -1/8 (* (sqrt (/ 1 (* l h))) d) (sqrt (/ 1 (* l h))) (/ 1 (* l h)) (* (* (/ (sqrt d) (sqrt h)) (pow (/ d l) (/ 1 2))) (- 1 (/ (* (* (* (* M (/ D (+ d d))) (* M (/ D (+ d d)))) 1/2) h) l))) (* (/ (sqrt d) (sqrt h)) (pow (/ d l) (/ 1 2))) (neg (* d (neg (sqrt (/ 1 (* l h)))))) (* d (neg (sqrt (/ 1 (* l h))))) (neg (sqrt (/ 1 (* l h)))) (* (* (/ (sqrt d) (sqrt h)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (neg (* (+ (* (/ (* (* (* (* M M) D) D) (sqrt (/ 1 (* (* (* l l) l) h)))) d) 1/8) (neg (* (sqrt (/ 1 (* (* (* h h) h) l))) d))) h)) (* (+ (* (/ (* (* (* (* M M) D) D) (sqrt (/ 1 (* (* (* l l) l) h)))) d) 1/8) (neg (* (sqrt (/ 1 (* (* (* h h) h) l))) d))) h) (+ (* (/ (* (* (* (* M M) D) D) (sqrt (/ 1 (* (* (* l l) l) h)))) d) 1/8) (neg (* (sqrt (/ 1 (* (* (* h h) h) l))) d))) (/ (* (* (* (* M M) D) D) (sqrt (/ 1 (* (* (* l l) l) h)))) d) (* (* (* (* M M) D) D) (sqrt (/ 1 (* (* (* l l) l) h)))) (* (* (* M M) D) D) (* (* M M) D) (sqrt (/ 1 (* (* (* l l) l) h))) (/ 1 (* (* (* l l) l) h)) (* (* (* l l) l) h) 1/8 (neg (* (sqrt (/ 1 (* (* (* h h) h) l))) d)) (* (sqrt (/ 1 (* (* (* h h) h) l))) d) (sqrt (/ 1 (* (* (* h h) h) l))) (/ 1 (* (* (* h h) h) l)) (* (* (* h h) h) l) (* (* h h) h) (* h h))
34.0ms	l	@	-inf	((* (* (sqrt (/ d l)) (sqrt (/ d h))) (- 1 (/ (* (* (* (* M (/ D (+ d d))) (* M (/ D (+ d d)))) 1/2) h) l))) (* (sqrt (/ d l)) (sqrt (/ d h))) (sqrt (/ d l)) (/ d l) d l (sqrt (/ d h)) (/ d h) h (- 1 (/ (* (* (* (* M (/ D (+ d d))) (* M (/ D (+ d d)))) 1/2) h) l)) 1 (/ (* (* (* (* M (/ D (+ d d))) (* M (/ D (+ d d)))) 1/2) h) l) (* (* (* (* M (/ D (+ d d))) (* M (/ D (+ d d)))) 1/2) h) (* (* (* M (/ D (+ d d))) (* M (/ D (+ d d)))) 1/2) (* (* M (/ D (+ d d))) (* M (/ D (+ d d)))) (* M (/ D (+ d d))) M (/ D (+ d d)) 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)))) (* (/ 1 (sqrt (* l h))) d) (/ 1 (sqrt (* l h))) (sqrt (* l h)) (* l h) (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (+ (* (* (sqrt (/ h (* (* l l) l))) (* (* D D) (/ (* M M) d))) -1/8) (* (sqrt (/ 1 (* l h))) d)) (* (sqrt (/ h (* (* l l) l))) (* (* D D) (/ (* M M) d))) (sqrt (/ h (* (* l l) l))) (/ h (* (* l l) l)) (* (* l l) l) (* l l) (* (* D D) (/ (* M M) d)) (* D D) (/ (* M M) d) (* M M) -1/8 (* (sqrt (/ 1 (* l h))) d) (sqrt (/ 1 (* l h))) (/ 1 (* l h)) (* (* (/ (sqrt d) (sqrt h)) (pow (/ d l) (/ 1 2))) (- 1 (/ (* (* (* (* M (/ D (+ d d))) (* M (/ D (+ d d)))) 1/2) h) l))) (* (/ (sqrt d) (sqrt h)) (pow (/ d l) (/ 1 2))) (neg (* d (neg (sqrt (/ 1 (* l h)))))) (* d (neg (sqrt (/ 1 (* l h))))) (neg (sqrt (/ 1 (* l h)))) (* (* (/ (sqrt d) (sqrt h)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (neg (* (+ (* (/ (* (* (* (* M M) D) D) (sqrt (/ 1 (* (* (* l l) l) h)))) d) 1/8) (neg (* (sqrt (/ 1 (* (* (* h h) h) l))) d))) h)) (* (+ (* (/ (* (* (* (* M M) D) D) (sqrt (/ 1 (* (* (* l l) l) h)))) d) 1/8) (neg (* (sqrt (/ 1 (* (* (* h h) h) l))) d))) h) (+ (* (/ (* (* (* (* M M) D) D) (sqrt (/ 1 (* (* (* l l) l) h)))) d) 1/8) (neg (* (sqrt (/ 1 (* (* (* h h) h) l))) d))) (/ (* (* (* (* M M) D) D) (sqrt (/ 1 (* (* (* l l) l) h)))) d) (* (* (* (* M M) D) D) (sqrt (/ 1 (* (* (* l l) l) h)))) (* (* (* M M) D) D) (* (* M M) D) (sqrt (/ 1 (* (* (* l l) l) h))) (/ 1 (* (* (* l l) l) h)) (* (* (* l l) l) h) 1/8 (neg (* (sqrt (/ 1 (* (* (* h h) h) l))) d)) (* (sqrt (/ 1 (* (* (* h h) h) l))) d) (sqrt (/ 1 (* (* (* h h) h) l))) (/ 1 (* (* (* h h) h) l)) (* (* (* h h) h) l) (* (* h h) h) (* h h))
24.0ms	D	@	-inf	((* (* (sqrt (/ d l)) (sqrt (/ d h))) (- 1 (/ (* (* (* (* M (/ D (+ d d))) (* M (/ D (+ d d)))) 1/2) h) l))) (* (sqrt (/ d l)) (sqrt (/ d h))) (sqrt (/ d l)) (/ d l) d l (sqrt (/ d h)) (/ d h) h (- 1 (/ (* (* (* (* M (/ D (+ d d))) (* M (/ D (+ d d)))) 1/2) h) l)) 1 (/ (* (* (* (* M (/ D (+ d d))) (* M (/ D (+ d d)))) 1/2) h) l) (* (* (* (* M (/ D (+ d d))) (* M (/ D (+ d d)))) 1/2) h) (* (* (* M (/ D (+ d d))) (* M (/ D (+ d d)))) 1/2) (* (* M (/ D (+ d d))) (* M (/ D (+ d d)))) (* M (/ D (+ d d))) M (/ D (+ d d)) 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)))) (* (/ 1 (sqrt (* l h))) d) (/ 1 (sqrt (* l h))) (sqrt (* l h)) (* l h) (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (+ (* (* (sqrt (/ h (* (* l l) l))) (* (* D D) (/ (* M M) d))) -1/8) (* (sqrt (/ 1 (* l h))) d)) (* (sqrt (/ h (* (* l l) l))) (* (* D D) (/ (* M M) d))) (sqrt (/ h (* (* l l) l))) (/ h (* (* l l) l)) (* (* l l) l) (* l l) (* (* D D) (/ (* M M) d)) (* D D) (/ (* M M) d) (* M M) -1/8 (* (sqrt (/ 1 (* l h))) d) (sqrt (/ 1 (* l h))) (/ 1 (* l h)) (* (* (/ (sqrt d) (sqrt h)) (pow (/ d l) (/ 1 2))) (- 1 (/ (* (* (* (* M (/ D (+ d d))) (* M (/ D (+ d d)))) 1/2) h) l))) (* (/ (sqrt d) (sqrt h)) (pow (/ d l) (/ 1 2))) (neg (* d (neg (sqrt (/ 1 (* l h)))))) (* d (neg (sqrt (/ 1 (* l h))))) (neg (sqrt (/ 1 (* l h)))) (* (* (/ (sqrt d) (sqrt h)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (neg (* (+ (* (/ (* (* (* (* M M) D) D) (sqrt (/ 1 (* (* (* l l) l) h)))) d) 1/8) (neg (* (sqrt (/ 1 (* (* (* h h) h) l))) d))) h)) (* (+ (* (/ (* (* (* (* M M) D) D) (sqrt (/ 1 (* (* (* l l) l) h)))) d) 1/8) (neg (* (sqrt (/ 1 (* (* (* h h) h) l))) d))) h) (+ (* (/ (* (* (* (* M M) D) D) (sqrt (/ 1 (* (* (* l l) l) h)))) d) 1/8) (neg (* (sqrt (/ 1 (* (* (* h h) h) l))) d))) (/ (* (* (* (* M M) D) D) (sqrt (/ 1 (* (* (* l l) l) h)))) d) (* (* (* (* M M) D) D) (sqrt (/ 1 (* (* (* l l) l) h)))) (* (* (* M M) D) D) (* (* M M) D) (sqrt (/ 1 (* (* (* l l) l) h))) (/ 1 (* (* (* l l) l) h)) (* (* (* l l) l) h) 1/8 (neg (* (sqrt (/ 1 (* (* (* h h) h) l))) d)) (* (sqrt (/ 1 (* (* (* h h) h) l))) d) (sqrt (/ 1 (* (* (* h h) h) l))) (/ 1 (* (* (* h h) h) l)) (* (* (* h h) h) l) (* (* h h) h) (* h h))
19.0ms	h	@	inf	((* (* (sqrt (/ d l)) (sqrt (/ d h))) (- 1 (/ (* (* (* (* M (/ D (+ d d))) (* M (/ D (+ d d)))) 1/2) h) l))) (* (sqrt (/ d l)) (sqrt (/ d h))) (sqrt (/ d l)) (/ d l) d l (sqrt (/ d h)) (/ d h) h (- 1 (/ (* (* (* (* M (/ D (+ d d))) (* M (/ D (+ d d)))) 1/2) h) l)) 1 (/ (* (* (* (* M (/ D (+ d d))) (* M (/ D (+ d d)))) 1/2) h) l) (* (* (* (* M (/ D (+ d d))) (* M (/ D (+ d d)))) 1/2) h) (* (* (* M (/ D (+ d d))) (* M (/ D (+ d d)))) 1/2) (* (* M (/ D (+ d d))) (* M (/ D (+ d d)))) (* M (/ D (+ d d))) M (/ D (+ d d)) 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)))) (* (/ 1 (sqrt (* l h))) d) (/ 1 (sqrt (* l h))) (sqrt (* l h)) (* l h) (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (+ (* (* (sqrt (/ h (* (* l l) l))) (* (* D D) (/ (* M M) d))) -1/8) (* (sqrt (/ 1 (* l h))) d)) (* (sqrt (/ h (* (* l l) l))) (* (* D D) (/ (* M M) d))) (sqrt (/ h (* (* l l) l))) (/ h (* (* l l) l)) (* (* l l) l) (* l l) (* (* D D) (/ (* M M) d)) (* D D) (/ (* M M) d) (* M M) -1/8 (* (sqrt (/ 1 (* l h))) d) (sqrt (/ 1 (* l h))) (/ 1 (* l h)) (* (* (/ (sqrt d) (sqrt h)) (pow (/ d l) (/ 1 2))) (- 1 (/ (* (* (* (* M (/ D (+ d d))) (* M (/ D (+ d d)))) 1/2) h) l))) (* (/ (sqrt d) (sqrt h)) (pow (/ d l) (/ 1 2))) (neg (* d (neg (sqrt (/ 1 (* l h)))))) (* d (neg (sqrt (/ 1 (* l h))))) (neg (sqrt (/ 1 (* l h)))) (* (* (/ (sqrt d) (sqrt h)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (neg (* (+ (* (/ (* (* (* (* M M) D) D) (sqrt (/ 1 (* (* (* l l) l) h)))) d) 1/8) (neg (* (sqrt (/ 1 (* (* (* h h) h) l))) d))) h)) (* (+ (* (/ (* (* (* (* M M) D) D) (sqrt (/ 1 (* (* (* l l) l) h)))) d) 1/8) (neg (* (sqrt (/ 1 (* (* (* h h) h) l))) d))) h) (+ (* (/ (* (* (* (* M M) D) D) (sqrt (/ 1 (* (* (* l l) l) h)))) d) 1/8) (neg (* (sqrt (/ 1 (* (* (* h h) h) l))) d))) (/ (* (* (* (* M M) D) D) (sqrt (/ 1 (* (* (* l l) l) h)))) d) (* (* (* (* M M) D) D) (sqrt (/ 1 (* (* (* l l) l) h)))) (* (* (* M M) D) D) (* (* M M) D) (sqrt (/ 1 (* (* (* l l) l) h))) (/ 1 (* (* (* l l) l) h)) (* (* (* l l) l) h) 1/8 (neg (* (sqrt (/ 1 (* (* (* h h) h) l))) d)) (* (sqrt (/ 1 (* (* (* h h) h) l))) d) (sqrt (/ 1 (* (* (* h h) h) l))) (/ 1 (* (* (* h h) h) l)) (* (* (* h h) h) l) (* (* h h) h) (* h h))
14.0ms	h	@	-inf	((* (* (sqrt (/ d l)) (sqrt (/ d h))) (- 1 (/ (* (* (* (* M (/ D (+ d d))) (* M (/ D (+ d d)))) 1/2) h) l))) (* (sqrt (/ d l)) (sqrt (/ d h))) (sqrt (/ d l)) (/ d l) d l (sqrt (/ d h)) (/ d h) h (- 1 (/ (* (* (* (* M (/ D (+ d d))) (* M (/ D (+ d d)))) 1/2) h) l)) 1 (/ (* (* (* (* M (/ D (+ d d))) (* M (/ D (+ d d)))) 1/2) h) l) (* (* (* (* M (/ D (+ d d))) (* M (/ D (+ d d)))) 1/2) h) (* (* (* M (/ D (+ d d))) (* M (/ D (+ d d)))) 1/2) (* (* M (/ D (+ d d))) (* M (/ D (+ d d)))) (* M (/ D (+ d d))) M (/ D (+ d d)) 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)))) (* (/ 1 (sqrt (* l h))) d) (/ 1 (sqrt (* l h))) (sqrt (* l h)) (* l h) (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (+ (* (* (sqrt (/ h (* (* l l) l))) (* (* D D) (/ (* M M) d))) -1/8) (* (sqrt (/ 1 (* l h))) d)) (* (sqrt (/ h (* (* l l) l))) (* (* D D) (/ (* M M) d))) (sqrt (/ h (* (* l l) l))) (/ h (* (* l l) l)) (* (* l l) l) (* l l) (* (* D D) (/ (* M M) d)) (* D D) (/ (* M M) d) (* M M) -1/8 (* (sqrt (/ 1 (* l h))) d) (sqrt (/ 1 (* l h))) (/ 1 (* l h)) (* (* (/ (sqrt d) (sqrt h)) (pow (/ d l) (/ 1 2))) (- 1 (/ (* (* (* (* M (/ D (+ d d))) (* M (/ D (+ d d)))) 1/2) h) l))) (* (/ (sqrt d) (sqrt h)) (pow (/ d l) (/ 1 2))) (neg (* d (neg (sqrt (/ 1 (* l h)))))) (* d (neg (sqrt (/ 1 (* l h))))) (neg (sqrt (/ 1 (* l h)))) (* (* (/ (sqrt d) (sqrt h)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (neg (* (+ (* (/ (* (* (* (* M M) D) D) (sqrt (/ 1 (* (* (* l l) l) h)))) d) 1/8) (neg (* (sqrt (/ 1 (* (* (* h h) h) l))) d))) h)) (* (+ (* (/ (* (* (* (* M M) D) D) (sqrt (/ 1 (* (* (* l l) l) h)))) d) 1/8) (neg (* (sqrt (/ 1 (* (* (* h h) h) l))) d))) h) (+ (* (/ (* (* (* (* M M) D) D) (sqrt (/ 1 (* (* (* l l) l) h)))) d) 1/8) (neg (* (sqrt (/ 1 (* (* (* h h) h) l))) d))) (/ (* (* (* (* M M) D) D) (sqrt (/ 1 (* (* (* l l) l) h)))) d) (* (* (* (* M M) D) D) (sqrt (/ 1 (* (* (* l l) l) h)))) (* (* (* M M) D) D) (* (* M M) D) (sqrt (/ 1 (* (* (* l l) l) h))) (/ 1 (* (* (* l l) l) h)) (* (* (* l l) l) h) 1/8 (neg (* (sqrt (/ 1 (* (* (* h h) h) l))) d)) (* (sqrt (/ 1 (* (* (* h h) h) l))) d) (sqrt (/ 1 (* (* (* h h) h) l))) (/ 1 (* (* (* h h) h) l)) (* (* (* h h) h) l) (* (* h h) h) (* h h))

rewrite128.0ms (1.3%)

Memory

5.7MiB live, 150.7MiB allocated; 13ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	609	10284
0	709	8712
0	2434	8639

Stop Event

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

Counts

275 → 477

Calls

Call 1

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

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

eval131.0ms (1.4%)

Memory: -8.7MiB live, 131.6MiB allocated; 20ms collecting garbage
Compiler: Compiled 8 816 to 2 609 computations (70.4% saved)

prune49.0ms (0.5%)

Memory

13.4MiB live, 152.5MiB allocated; 7ms collecting garbage

Pruning

40 alts after pruning (38 fresh and 2 done)

	Pruned	Kept	Total
New	502	29	531
Fresh	17	9	26
Picked	4	1	5
Done	0	1	1
Total	523	40	563

Accuracy

91.0%

Counts

563 → 40

Alt Table

Click to see full alt table

Status	Accuracy	Program
	54.0%	(.f64 (-.f64 #s(literal 1 binary64) (.f64 (.f64 #s(literal 1/2 binary64) (.f64 M (.f64 (/.f64 D (+.f64 d d)) (.f64 (/.f64 D (+.f64 d d)) M)))) (/.f64 h l))) (sqrt.f64 (*.f64 (/.f64 d l) (/.f64 d h))))
	66.9%	(.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))))
	67.2%	(.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 (.f64 (.f64 M (/.f64 D (+.f64 d d))) (.f64 M (/.f64 D (+.f64 d d)))) #s(literal 1/2 binary64)) h) l)))
▶	67.2%	(.f64 (.f64 (sqrt.f64 (/.f64 d l)) (.f64 (pow.f64 (/.f64 d h) #s(literal 1/4 binary64)) (pow.f64 (/.f64 d h) #s(literal 1/4 binary64)))) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (.f64 (.f64 M (/.f64 D (+.f64 d d))) (.f64 M (/.f64 D (+.f64 d d)))) #s(literal 1/2 binary64)) h) l)))
	66.9%	(.f64 (.f64 (sqrt.f64 (/.f64 d l)) (sqrt.f64 (/.f64 d h))) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (.f64 (/.f64 (.f64 D M) (+.f64 d d)) (*.f64 M (/.f64 D (+.f64 d d)))) #s(literal 1/2 binary64)) h) l)))
	52.4%	(.f64 (.f64 (sqrt.f64 (/.f64 d l)) (sqrt.f64 (/.f64 d h))) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 #s(approx ( (* (* M (/ D (+ d d))) (* M (/ D (+ d d)))) 1/2) (.f64 (/.f64 (.f64 (.f64 M (.f64 D M)) D) (*.f64 d d)) #s(literal 1/8 binary64))) h) l)))
	47.9%	(.f64 (.f64 (sqrt.f64 (/.f64 d l)) (sqrt.f64 (/.f64 d h))) #s(approx (- 1 (/ (* (* (* (* M (/ D (+ d d))) (* M (/ D (+ d d)))) 1/2) h) l)) (fma.f64 (/.f64 (.f64 (.f64 (.f64 M (.f64 D M)) D) h) (.f64 (.f64 d d) l)) #s(literal -1/8 binary64) #s(literal 1 binary64))))
	50.3%	(.f64 (.f64 (sqrt.f64 (/.f64 d l)) (sqrt.f64 (/.f64 d h))) #s(approx (- 1 (/ (* (* (* (* M (/ D (+ d d))) (* M (/ D (+ d d)))) 1/2) h) l)) (.f64 (fma.f64 (/.f64 (.f64 (.f64 M (.f64 D M)) D) (.f64 (.f64 d d) l)) #s(literal -1/8 binary64) (/.f64 #s(literal 1 binary64) h)) h)))
	22.5%	(.f64 (.f64 (sqrt.f64 (/.f64 d l)) (sqrt.f64 (/.f64 d h))) #s(approx (- 1 (/ (* (* (* (* M (/ D (+ d d))) (* M (/ D (+ d d)))) 1/2) h) l)) (.f64 (/.f64 (.f64 (.f64 (.f64 M (.f64 D M)) D) h) (.f64 (*.f64 d d) l)) #s(literal -1/8 binary64))))
	34.8%	(.f64 (.f64 (sqrt.f64 (/.f64 d l)) (sqrt.f64 (/.f64 d h))) #s(approx (- 1 (/ (* (* (* (* M (/ D (+ d d))) (* M (/ D (+ d d)))) 1/2) h) l)) #s(literal 1 binary64)))
	65.6%	(.f64 (.f64 (sqrt.f64 (/.f64 d l)) (exp.f64 (.f64 (log.f64 (/.f64 d h)) #s(literal 1/2 binary64)))) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (.f64 (.f64 M (/.f64 D (+.f64 d d))) (.f64 M (/.f64 D (+.f64 d d)))) #s(literal 1/2 binary64)) h) l)))
▶	66.5%	(.f64 (sqrt.f64 (/.f64 d h)) (.f64 (sqrt.f64 (/.f64 d l)) (-.f64 #s(literal 1 binary64) (.f64 (.f64 (.f64 (.f64 M (/.f64 D (+.f64 d d))) (*.f64 M (/.f64 D (+.f64 d d)))) #s(literal 1/2 binary64)) (/.f64 h l)))))
	58.3%	(.f64 (sqrt.f64 (.f64 (/.f64 d l) (/.f64 d h))) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (.f64 (.f64 M (/.f64 D (+.f64 d d))) (*.f64 M (/.f64 D (+.f64 d d)))) #s(literal 1/2 binary64)) h) l)))
	34.6%	(.f64 #s(approx ( (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (.f64 #s(approx (sqrt (/ 1 ( l h))) (neg.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 l h))))) d)) (-.f64 #s(literal 1 binary64) (.f64 (.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) (pow.f64 (/.f64 (.f64 M D) (*.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64))) (/.f64 h l))))
	35.2%	(.f64 #s(approx ( (/ (sqrt d) (sqrt h)) (pow (/ d l) (/ 1 2))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 h l))) d)) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (.f64 (.f64 M (/.f64 D (+.f64 d d))) (*.f64 M (/.f64 D (+.f64 d d)))) #s(literal 1/2 binary64)) h) l)))
	37.6%	(.f64 #s(approx ( (/ (sqrt d) (sqrt h)) (pow (/ d l) (/ 1 2))) (.f64 d (neg.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 l h)))))) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (.f64 (.f64 M (/.f64 D (+.f64 d d))) (*.f64 M (/.f64 D (+.f64 d d)))) #s(literal 1/2 binary64)) h) l)))
	24.3%	(.f64 #s(approx ( (/ (sqrt d) (sqrt h)) (pow (/ d l) (/ 1 2))) (neg.f64 (.f64 d (neg.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 l h))))))) #s(approx (- 1 (/ (* (* (* (* M (/ D (+ d d))) (* M (/ D (+ d d)))) 1/2) h) l)) (fma.f64 (/.f64 (.f64 (.f64 (.f64 M (.f64 D M)) D) h) (.f64 (.f64 d d) l)) #s(literal -1/8 binary64) #s(literal 1 binary64))))
	12.9%	(.f64 #s(approx ( (/ (sqrt d) (sqrt h)) (pow (/ d l) (/ 1 2))) (neg.f64 (.f64 d (neg.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 l h))))))) #s(approx (- 1 (/ (* (* (* (* M (/ D (+ d d))) (* M (/ D (+ d d)))) 1/2) h) l)) (.f64 (/.f64 (.f64 (.f64 (.f64 M (.f64 D M)) D) h) (.f64 (*.f64 d d) l)) #s(literal -1/8 binary64))))
	16.3%	(.f64 #s(approx ( (/ (sqrt d) (sqrt h)) (pow (/ d l) (/ 1 2))) (neg.f64 (.f64 d (neg.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 l h))))))) #s(approx (- 1 (/ (* (* (* (* M (/ D (+ d d))) (* M (/ D (+ d d)))) 1/2) h) l)) (.f64 (.f64 M M) (-.f64 (/.f64 #s(literal 1 binary64) (.f64 M M)) (.f64 (.f64 (.f64 D D) (/.f64 h (.f64 (.f64 d d) l))) #s(literal 1/8 binary64))))))
▶	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)))) (fma.f64 (.f64 (sqrt.f64 (/.f64 h (.f64 (.f64 l l) l))) (.f64 (.f64 D D) (.f64 M (/.f64 M d)))) #s(literal -1/8 binary64) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 l h))) d)))
	27.1%	#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 (sqrt.f64 (/.f64 h (.f64 (.f64 l l) l))) (.f64 D (.f64 D (/.f64 (.f64 M M) d)))) #s(literal -1/8 binary64) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 l h))) d)))
▶	20.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 binary64) d) (sqrt.f64 (.f64 h l))))
	21.3%	#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 (/.f64 #s(literal 1 binary64) (.f64 (sqrt.f64 l) (sqrt.f64 h))) d))
✓	20.3%	#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (.f64 l h))) d))
	18.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 (.f64 (.f64 D D) (/.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) d)) (sqrt.f64 (/.f64 h (.f64 (.f64 l l) l)))) #s(literal -1/8 binary64)))
	20.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))
	20.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) h) l)) d))
✓	20.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 #s(literal 1 binary64) (.f64 l h))) d))
	12.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 (+ ( (* (/ (* (* M M) (* D D)) (* d d)) (sqrt (/ h (* (* l l) l)))) -1/8) (sqrt (/ 1 (* l h)))) (.f64 (.f64 (/.f64 (.f64 (.f64 (.f64 M M) D) D) (.f64 d d)) (sqrt.f64 (/.f64 h (.f64 (.f64 l l) l)))) #s(literal -1/8 binary64))) d))
	26.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 (+ ( (* (/ (* (* M M) (* D D)) (* d d)) (sqrt (/ h (* (* l l) l)))) -1/8) (sqrt (/ 1 (* l h)))) (neg.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 l h))))) d))
	27.9%	#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) #s(approx (+ (* (* (sqrt (/ h (* (* l l) l))) (* (* D D) (/ (* M M) d))) -1/8) (* (sqrt (/ 1 (* l h))) d)) (/.f64 (fma.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (.f64 M (.f64 D M)) D) d)) (sqrt.f64 (/.f64 (.f64 (.f64 h h) h) (.f64 (.f64 l l) l))) (*.f64 (sqrt.f64 (/.f64 h l)) d)) h)))
	22.6%	#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) #s(approx (+ (* (* (sqrt (/ h (* (* l l) l))) (* (* D D) (/ (* M M) d))) -1/8) (* (sqrt (/ 1 (* l h))) d)) (.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (.f64 M (.f64 D M)) D) d)) (sqrt.f64 (/.f64 h (.f64 (*.f64 l l) l))))))
▶	19.7%	#s(approx (* (* (/ (sqrt d) (sqrt h)) (pow (/ d l) (/ 1 2))) (- 1 (/ (* (* (* (* M (/ D (+ d d))) (* M (/ D (+ d d)))) 1/2) h) l))) (.f64 (.f64 (/.f64 (.f64 (.f64 (.f64 M (.f64 D M)) D) #s(literal -1 binary64)) d) (sqrt.f64 (/.f64 h (.f64 (.f64 l l) l)))) #s(literal -1/8 binary64)))
	34.1%	#s(approx (* (* (/ (sqrt d) (sqrt h)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (neg.f64 (.f64 (fma.f64 (/.f64 (.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (.f64 (.f64 l l) l) h)))) d) #s(literal 1/8 binary64) (neg.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (.f64 (.f64 h h) h) l))) d))) h)))
	19.2%	#s(approx (* (* (/ (sqrt d) (sqrt h)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (neg.f64 (.f64 (fma.f64 (/.f64 (.f64 (.f64 (.f64 (.f64 M M) D) D) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (.f64 (pow.f64 l #s(literal 3/2 binary64)) (pow.f64 l #s(literal 3/2 binary64))) h)))) d) #s(literal 1/8 binary64) (neg.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (.f64 (*.f64 h h) h) l))) d))) h)))
	34.0%	#s(approx (* (* (/ (sqrt d) (sqrt h)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (neg.f64 (.f64 (fma.f64 (/.f64 (.f64 (.f64 (.f64 (.f64 M M) D) D) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (.f64 (.f64 l l) l) h)))) d) #s(literal 1/8 binary64) (neg.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (.f64 h h) (.f64 h l)))) d))) h)))
	23.5%	#s(approx (* (* (/ (sqrt d) (sqrt h)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (neg.f64 (.f64 #s(approx (+ ( (/ (* (* (* (* M M) D) D) (sqrt (/ 1 (* (* (* l l) l) h)))) d) 1/8) (neg (* (sqrt (/ 1 (* (* (* h h) h) l))) d))) (/.f64 (fma.f64 (.f64 #s(literal 1/8 binary64) (/.f64 (.f64 (.f64 M (.f64 D M)) D) d)) (sqrt.f64 (/.f64 l h)) (neg.f64 (.f64 (sqrt.f64 (/.f64 (.f64 (.f64 l l) l) (.f64 (.f64 h h) h))) d))) (.f64 l l))) h)))
	36.3%	#s(approx (* (* (/ (sqrt d) (sqrt h)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (neg.f64 (.f64 #s(approx (+ ( (/ (* (* (* (* M M) D) D) (sqrt (/ 1 (* (* (* l l) l) h)))) d) 1/8) (neg (* (sqrt (/ 1 (* (* (* h h) h) l))) d))) (.f64 (.f64 #s(literal 1/8 binary64) (/.f64 (.f64 (.f64 M (.f64 D M)) D) d)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (.f64 l l) (.f64 h l)))))) h)))
	17.9%	#s(approx (* (* (/ (sqrt d) (sqrt h)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (neg.f64 (.f64 #s(approx (+ ( (/ (* (* (* (* M M) D) D) (sqrt (/ 1 (* (* (* l l) l) h)))) d) 1/8) (neg (* (sqrt (/ 1 (* (* (* h h) h) l))) d))) (.f64 (neg.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (.f64 (.f64 h h) h) l)))) d)) h)))
	12.5%	#s(approx (* (* (/ (sqrt d) (sqrt h)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (neg.f64 (.f64 #s(approx (+ ( (/ (* (* (* (* M M) D) D) (sqrt (/ 1 (* (* (* l l) l) h)))) d) 1/8) (neg (* (sqrt (/ 1 (* (* (* h h) h) l))) d))) (neg.f64 (.f64 (neg.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (.f64 (.f64 h h) h) l)))) d))) h)))

Compiler

Compiled 3 060 to 2 850 computations (6.9% saved)

series296.0ms (3.1%)

Memory

1.8MiB live, 522.0MiB allocated; 59ms collecting garbage

Counts

59 → 174

Calls

Call 1

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

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

rewrite96.0ms (1%)

Memory

15.7MiB live, 163.7MiB allocated; 8ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	557	8144
0	641	6720
0	2221	6652

Stop Event

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

Counts

233 → 377

Calls

Call 1

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

eval38.0ms (0.4%)

Memory: 3.8MiB live, 96.5MiB allocated; 6ms collecting garbage
Compiler: Compiled 5 256 to 1 856 computations (64.7% saved)

prune135.0ms (1.4%)

Memory

-52.3MiB live, 160.7MiB allocated; 108ms collecting garbage

Pruning

45 alts after pruning (41 fresh and 4 done)

	Pruned	Kept	Total
New	377	15	392
Fresh	7	26	33
Picked	3	2	5
Done	0	2	2
Total	387	45	432

Accuracy

91.4%

Counts

432 → 45

Alt Table

Click to see full alt table

Status	Accuracy	Program
	54.0%	(.f64 (-.f64 #s(literal 1 binary64) (.f64 (.f64 #s(literal 1/2 binary64) (.f64 M (.f64 (/.f64 D (+.f64 d d)) (.f64 (/.f64 D (+.f64 d d)) M)))) (/.f64 h l))) (sqrt.f64 (*.f64 (/.f64 d l) (/.f64 d h))))
	67.2%	(.f64 (.f64 (sqrt.f64 (/.f64 d l)) (pow.f64 (pow.f64 (/.f64 d h) #s(literal 1/4 binary64)) #s(literal 2 binary64))) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (.f64 (.f64 M (/.f64 D (+.f64 d d))) (*.f64 M (/.f64 D (+.f64 d d)))) #s(literal 1/2 binary64)) h) l)))
	67.2%	(.f64 (.f64 (sqrt.f64 (/.f64 d l)) (.f64 (pow.f64 (/.f64 d h) #s(literal 1/4 binary64)) (.f64 (pow.f64 (/.f64 d h) #s(literal 1/8 binary64)) (pow.f64 (/.f64 d h) #s(literal 1/8 binary64))))) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (.f64 (.f64 M (/.f64 D (+.f64 d d))) (*.f64 M (/.f64 D (+.f64 d d)))) #s(literal 1/2 binary64)) h) l)))
	66.9%	(.f64 (.f64 (sqrt.f64 (/.f64 d l)) (sqrt.f64 (/.f64 d h))) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (.f64 (/.f64 (.f64 D M) (+.f64 d d)) (*.f64 M (/.f64 D (+.f64 d d)))) #s(literal 1/2 binary64)) h) l)))
	52.4%	(.f64 (.f64 (sqrt.f64 (/.f64 d l)) (sqrt.f64 (/.f64 d h))) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 #s(approx ( (* (* M (/ D (+ d d))) (* M (/ D (+ d d)))) 1/2) (.f64 (/.f64 (.f64 (.f64 M (.f64 D M)) D) (*.f64 d d)) #s(literal 1/8 binary64))) h) l)))
	47.9%	(.f64 (.f64 (sqrt.f64 (/.f64 d l)) (sqrt.f64 (/.f64 d h))) #s(approx (- 1 (/ (* (* (* (* M (/ D (+ d d))) (* M (/ D (+ d d)))) 1/2) h) l)) (fma.f64 (/.f64 (.f64 (.f64 (.f64 M (.f64 D M)) D) h) (.f64 (.f64 d d) l)) #s(literal -1/8 binary64) #s(literal 1 binary64))))
	50.3%	(.f64 (.f64 (sqrt.f64 (/.f64 d l)) (sqrt.f64 (/.f64 d h))) #s(approx (- 1 (/ (* (* (* (* M (/ D (+ d d))) (* M (/ D (+ d d)))) 1/2) h) l)) (.f64 (fma.f64 (/.f64 (.f64 (.f64 M (.f64 D M)) D) (.f64 (.f64 d d) l)) #s(literal -1/8 binary64) (/.f64 #s(literal 1 binary64) h)) h)))
	22.5%	(.f64 (.f64 (sqrt.f64 (/.f64 d l)) (sqrt.f64 (/.f64 d h))) #s(approx (- 1 (/ (* (* (* (* M (/ D (+ d d))) (* M (/ D (+ d d)))) 1/2) h) l)) (.f64 (/.f64 (.f64 (.f64 (.f64 M (.f64 D M)) D) h) (.f64 (*.f64 d d) l)) #s(literal -1/8 binary64))))
	65.6%	(.f64 (.f64 (sqrt.f64 (/.f64 d l)) (exp.f64 (.f64 (log.f64 (/.f64 d h)) #s(literal 1/2 binary64)))) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (.f64 (.f64 M (/.f64 D (+.f64 d d))) (.f64 M (/.f64 D (+.f64 d d)))) #s(literal 1/2 binary64)) h) l)))
	37.0%	(.f64 (sqrt.f64 (/.f64 d h)) (.f64 (/.f64 (sqrt.f64 d) (sqrt.f64 l)) (-.f64 #s(literal 1 binary64) (.f64 (.f64 (.f64 (.f64 M (/.f64 D (+.f64 d d))) (*.f64 M (/.f64 D (+.f64 d d)))) #s(literal 1/2 binary64)) (/.f64 h l)))))
	66.5%	(.f64 (sqrt.f64 (/.f64 d h)) (.f64 (sqrt.f64 (/.f64 d l)) (-.f64 #s(literal 1 binary64) (.f64 (.f64 (.f64 (.f64 (*.f64 (/.f64 D (+.f64 d d)) M) M) (/.f64 D (+.f64 d d))) #s(literal 1/2 binary64)) (/.f64 h l)))))
	9.8%	(.f64 (sqrt.f64 (/.f64 d h)) #s(approx ( (sqrt (/ d l)) (- 1 (* (* (* (* M (/ D (+ d d))) (* M (/ D (+ d d)))) 1/2) (/ h l)))) (*.f64 (sqrt.f64 (/.f64 d l)) #s(literal -1 binary64))))
	34.8%	(.f64 (sqrt.f64 (/.f64 d h)) #s(approx ( (sqrt (/ d l)) (- 1 (* (* (* (* M (/ D (+ d d))) (* M (/ D (+ d d)))) 1/2) (/ h l)))) (sqrt.f64 (/.f64 d l))))
	58.3%	(.f64 (sqrt.f64 (.f64 (/.f64 d l) (/.f64 d h))) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (.f64 (.f64 M (/.f64 D (+.f64 d d))) (*.f64 M (/.f64 D (+.f64 d d)))) #s(literal 1/2 binary64)) h) l)))
	34.6%	(.f64 #s(approx ( (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (.f64 #s(approx (sqrt (/ 1 ( l h))) (neg.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 l h))))) d)) (-.f64 #s(literal 1 binary64) (.f64 (.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) (pow.f64 (/.f64 (.f64 M D) (*.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64))) (/.f64 h l))))
	35.2%	(.f64 #s(approx ( (/ (sqrt d) (sqrt h)) (pow (/ d l) (/ 1 2))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 h l))) d)) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (.f64 (.f64 M (/.f64 D (+.f64 d d))) (*.f64 M (/.f64 D (+.f64 d d)))) #s(literal 1/2 binary64)) h) l)))
	37.6%	(.f64 #s(approx ( (/ (sqrt d) (sqrt h)) (pow (/ d l) (/ 1 2))) (.f64 d (neg.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 l h)))))) (-.f64 #s(literal 1 binary64) (/.f64 (.f64 (.f64 (.f64 (.f64 M (/.f64 D (+.f64 d d))) (*.f64 M (/.f64 D (+.f64 d d)))) #s(literal 1/2 binary64)) h) l)))
	24.3%	(.f64 #s(approx ( (/ (sqrt d) (sqrt h)) (pow (/ d l) (/ 1 2))) (neg.f64 (.f64 d (neg.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 l h))))))) #s(approx (- 1 (/ (* (* (* (* M (/ D (+ d d))) (* M (/ D (+ d d)))) 1/2) h) l)) (fma.f64 (/.f64 (.f64 (.f64 (.f64 M (.f64 D M)) D) h) (.f64 (.f64 d d) l)) #s(literal -1/8 binary64) #s(literal 1 binary64))))
	12.9%	(.f64 #s(approx ( (/ (sqrt d) (sqrt h)) (pow (/ d l) (/ 1 2))) (neg.f64 (.f64 d (neg.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 l h))))))) #s(approx (- 1 (/ (* (* (* (* M (/ D (+ d d))) (* M (/ D (+ d d)))) 1/2) h) l)) (.f64 (/.f64 (.f64 (.f64 (.f64 M (.f64 D M)) D) h) (.f64 (*.f64 d d) l)) #s(literal -1/8 binary64))))
	16.3%	(.f64 #s(approx ( (/ (sqrt d) (sqrt h)) (pow (/ d l) (/ 1 2))) (neg.f64 (.f64 d (neg.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 l h))))))) #s(approx (- 1 (/ (* (* (* (* M (/ D (+ d d))) (* M (/ D (+ d d)))) 1/2) h) l)) (.f64 (.f64 M M) (-.f64 (/.f64 #s(literal 1 binary64) (.f64 M M)) (.f64 (.f64 (.f64 D D) (/.f64 h (.f64 (.f64 d d) l))) #s(literal 1/8 binary64))))))
✓	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)))) (fma.f64 (.f64 (sqrt.f64 (/.f64 h (.f64 (.f64 l l) l))) (.f64 (.f64 D D) (.f64 M (/.f64 M d)))) #s(literal -1/8 binary64) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 l h))) d)))
	28.1%	#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 (sqrt.f64 (/.f64 h (.f64 (.f64 l l) l))) (.f64 D (.f64 D (.f64 (/.f64 M d) M)))) #s(literal -1/8 binary64) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 l h))) d)))
	21.3%	#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (/.f64 (.f64 #s(literal 1 binary64) d) (.f64 (sqrt.f64 h) (sqrt.f64 l))))
	20.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 d (sqrt.f64 (*.f64 h l))))
	21.3%	#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 (/.f64 #s(literal 1 binary64) (.f64 (sqrt.f64 l) (sqrt.f64 h))) d))
✓	20.3%	#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (.f64 l h))) d))
	18.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 (.f64 (.f64 D D) (/.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) d)) (sqrt.f64 (/.f64 h (.f64 (.f64 l l) l)))) #s(literal -1/8 binary64)))
	20.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))
	20.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) h) l)) d))
✓	20.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 #s(literal 1 binary64) (.f64 l h))) d))
	12.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 (+ ( (* (/ (* (* M M) (* D D)) (* d d)) (sqrt (/ h (* (* l l) l)))) -1/8) (sqrt (/ 1 (* l h)))) (.f64 (.f64 (/.f64 (.f64 (.f64 (.f64 M M) D) D) (.f64 d d)) (sqrt.f64 (/.f64 h (.f64 (.f64 l l) l)))) #s(literal -1/8 binary64))) d))
	26.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 (+ ( (* (/ (* (* M M) (* D D)) (* d d)) (sqrt (/ h (* (* l l) l)))) -1/8) (sqrt (/ 1 (* l h)))) (neg.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (*.f64 l h))))) d))
	22.6%	#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) #s(approx (+ (* (* (sqrt (/ h (* (* l l) l))) (* (* D D) (/ (* M M) d))) -1/8) (* (sqrt (/ 1 (* l h))) d)) (.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (.f64 (.f64 M (.f64 D M)) D) d)) (sqrt.f64 (/.f64 h (.f64 (*.f64 l l) l))))))
	25.1%	#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) #s(approx (+ (* (* (sqrt (/ h (* (* l l) l))) (* (* D D) (* M (/ M d)))) -1/8) (* (sqrt (/ 1 (* l h))) d)) (/.f64 (fma.f64 (.f64 (.f64 (.f64 (.f64 D D) M) (/.f64 M d)) (sqrt.f64 (/.f64 (.f64 (.f64 h h) h) (.f64 (.f64 l l) l)))) #s(literal -1/8 binary64) (*.f64 (sqrt.f64 (/.f64 h l)) d)) h)))
	21.3%	#s(approx (* (* (pow (/ d h) (/ 1 2)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) #s(approx (+ (* (* (sqrt (/ h (* (* l l) l))) (* (* D D) (* M (/ M d)))) -1/8) (* (sqrt (/ 1 (* l h))) d)) (.f64 (.f64 #s(literal -1/8 binary64) (.f64 (.f64 (.f64 D D) M) (/.f64 M d))) (sqrt.f64 (/.f64 h (.f64 (*.f64 l l) l))))))
	20.5%	#s(approx (* (* (/ (sqrt d) (sqrt h)) (pow (/ d l) (/ 1 2))) (- 1 (/ (* (* (* (* M (/ D (+ d d))) (* M (/ D (+ d d)))) 1/2) h) l))) (.f64 (/.f64 (.f64 (.f64 (.f64 (.f64 (.f64 D M) M) D) #s(literal -1 binary64)) (sqrt.f64 (/.f64 h (.f64 (.f64 l l) l)))) d) #s(literal -1/8 binary64)))
	20.8%	#s(approx (* (* (/ (sqrt d) (sqrt h)) (pow (/ d l) (/ 1 2))) (- 1 (/ (* (* (* (* M (/ D (+ d d))) (* M (/ D (+ d d)))) 1/2) h) l))) (.f64 (.f64 (/.f64 (.f64 (.f64 (.f64 M (.f64 D M)) D) #s(literal -1 binary64)) d) (sqrt.f64 (/.f64 (/.f64 h (*.f64 l l)) l))) #s(literal -1/8 binary64)))
✓	19.7%	#s(approx (* (* (/ (sqrt d) (sqrt h)) (pow (/ d l) (/ 1 2))) (- 1 (/ (* (* (* (* M (/ D (+ d d))) (* M (/ D (+ d d)))) 1/2) h) l))) (.f64 (.f64 (/.f64 (.f64 (.f64 (.f64 M (.f64 D M)) D) #s(literal -1 binary64)) d) (sqrt.f64 (/.f64 h (.f64 (.f64 l l) l)))) #s(literal -1/8 binary64)))
	18.2%	#s(approx (* (* (/ (sqrt d) (sqrt h)) (pow (/ d l) (/ 1 2))) (- 1 (/ (* (* (* (* M (/ D (+ d d))) (* M (/ D (+ d d)))) 1/2) h) l))) (.f64 (.f64 (/.f64 #s(approx (* (* (* M (* D M)) D) -1) (neg.f64 (.f64 (.f64 M M) (.f64 D D)))) d) (sqrt.f64 (/.f64 h (.f64 (*.f64 l l) l)))) #s(literal -1/8 binary64)))
	19.1%	#s(approx (* (* (/ (sqrt d) (sqrt h)) (pow (/ d l) (/ 1 2))) (- 1 (/ (* (* (* (* M (/ D (+ d d))) (* M (/ D (+ d d)))) 1/2) h) l))) #s(approx (* (* (/ (* (* (* M (* D M)) D) -1) d) (sqrt (/ h (* (* l l) l)))) -1/8) (.f64 (.f64 #s(literal 1/8 binary64) (.f64 (.f64 (.f64 D D) M) (/.f64 M d))) (sqrt.f64 (/.f64 h (.f64 (*.f64 l l) l))))))
	34.1%	#s(approx (* (* (/ (sqrt d) (sqrt h)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (neg.f64 (.f64 (fma.f64 (/.f64 (.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (.f64 (.f64 l l) l) h)))) d) #s(literal 1/8 binary64) (neg.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (.f64 (.f64 h h) h) l))) d))) h)))
	34.0%	#s(approx (* (* (/ (sqrt d) (sqrt h)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (neg.f64 (.f64 (fma.f64 (/.f64 (.f64 (.f64 (.f64 (.f64 M M) D) D) (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (.f64 (.f64 l l) l) h)))) d) #s(literal 1/8 binary64) (neg.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (.f64 h h) (.f64 h l)))) d))) h)))
	23.5%	#s(approx (* (* (/ (sqrt d) (sqrt h)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (neg.f64 (.f64 #s(approx (+ ( (/ (* (* (* (* M M) D) D) (sqrt (/ 1 (* (* (* l l) l) h)))) d) 1/8) (neg (* (sqrt (/ 1 (* (* (* h h) h) l))) d))) (/.f64 (fma.f64 (.f64 #s(literal 1/8 binary64) (/.f64 (.f64 (.f64 M (.f64 D M)) D) d)) (sqrt.f64 (/.f64 l h)) (neg.f64 (.f64 (sqrt.f64 (/.f64 (.f64 (.f64 l l) l) (.f64 (.f64 h h) h))) d))) (.f64 l l))) h)))
	17.9%	#s(approx (* (* (/ (sqrt d) (sqrt h)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (neg.f64 (.f64 #s(approx (+ ( (/ (* (* (* (* M M) D) D) (sqrt (/ 1 (* (* (* l l) l) h)))) d) 1/8) (neg (* (sqrt (/ 1 (* (* (* h h) h) l))) d))) (.f64 (neg.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (.f64 (.f64 h h) h) l)))) d)) h)))
	12.5%	#s(approx (* (* (/ (sqrt d) (sqrt h)) (pow (/ d l) (/ 1 2))) (- 1 (* (* (/ 1 2) (pow (/ (* M D) (* 2 d)) 2)) (/ h l)))) (neg.f64 (.f64 #s(approx (+ ( (/ (* (* (* (* M M) D) D) (sqrt (/ 1 (* (* (* l l) l) h)))) d) 1/8) (neg (* (sqrt (/ 1 (* (* (* h h) h) l))) d))) (neg.f64 (.f64 (neg.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (.f64 (.f64 (.f64 h h) h) l)))) d))) h)))

Compiler

Compiled 3 297 to 2 182 computations (33.8% saved)

regimes231.0ms (2.4%)

Memory

37.5MiB live, 324.0MiB allocated; 13ms collecting garbage

Counts

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

Outputs

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

Calls

7 calls:

51.0ms	h
40.0ms	d
35.0ms	l
33.0ms	M
23.0ms	(*.f64 M D)

Results

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

Compiler

Compiled 39 to 53 computations (-35.9% saved)

regimes66.0ms (0.7%)

Memory

8.4MiB live, 151.6MiB allocated; 10ms collecting garbage

Counts

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

Outputs

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

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

Calls

3 calls:

21.0ms	h
21.0ms	d
20.0ms	l

Results

Accuracy	Segments	Branch
75.8%	2	`h`
75.8%	2	`l`
75.8%	2	`d`

Compiler

Compiled 3 to 15 computations (-400% saved)

regimes51.0ms (0.5%)

Memory

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

Outputs

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

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

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

Calls

3 calls:

16.0ms	l
16.0ms	h
15.0ms	d

Results

Accuracy	Segments	Branch
73.1%	2	`h`
73.1%	2	`l`
75.7%	3	`d`

Compiler

Compiled 3 to 15 computations (-400% saved)

regimes21.0ms (0.2%)

Memory

-5.7MiB live, 47.0MiB allocated; 5ms collecting garbage

Counts

55 → 3

Calls

Call 1

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

Outputs

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

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

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

Calls

1 calls:

18.0ms

Results

Accuracy	Segments	Branch
74.7%	3	`d`

Compiler

Compiled 1 to 5 computations (-400% saved)

regimes19.0ms (0.2%)

Memory

-2.5MiB live, 44.4MiB allocated; 2ms collecting garbage

Counts

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

Outputs

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

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

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

Calls

1 calls:

15.0ms

Results

Accuracy	Segments	Branch
74.7%	3	`d`

Compiler

Compiled 1 to 5 computations (-400% saved)

regimes46.0ms (0.5%)

Memory

10.2MiB live, 104.5MiB allocated; 2ms collecting garbage

Counts

51 → 4

Calls

Call 1

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

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

Calls

3 calls:

14.0ms	d
14.0ms	h
14.0ms	l

Results

Accuracy	Segments	Branch
70.1%	2	`h`
75.6%	4	`l`
75.2%	4	`d`

Compiler

Compiled 3 to 15 computations (-400% saved)

regimes88.0ms (0.9%)

Memory

20.3MiB live, 212.7MiB allocated; 5ms collecting garbage

Counts

45 → 6

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

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

Calls

7 calls:

13.0ms	l
13.0ms	h
13.0ms	M
13.0ms	d
12.0ms	D

Results

Accuracy	Segments	Branch
62.9%	3	`(*.f64 M D)`
60.5%	2	`M`
58.3%	1	`D`
65.8%	4	`h`
72.4%	6	`d`
67.1%	3	`(.f64 (.f64 (pow.f64 (/.f64 d h) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64))) (pow.f64 (/.f64 d l) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)))) (-.f64 #s(literal 1 binary64) (.f64 (.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) (pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64))) (/.f64 h l))))`
71.7%	6	`l`

Compiler

Compiled 39 to 53 computations (-35.9% saved)

regimes36.0ms (0.4%)

Memory

-9.4MiB live, 88.3MiB allocated; 2ms collecting garbage

Counts

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

Outputs

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

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

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

Calls

3 calls:

11.0ms

10.0ms

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

Results

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

Compiler

Compiled 33 to 32 computations (3% saved)

regimes52.0ms (0.5%)

Memory

-12.5MiB live, 132.2MiB allocated; 4ms collecting garbage

Counts

25 → 4

Calls

Call 1

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

Calls

7 calls:

8.0ms	l
8.0ms	M
7.0ms	d
7.0ms	D
7.0ms	h

Results

Accuracy	Segments	Branch
45.4%	4	`D`
47.8%	3	`M`
47.4%	2	`(*.f64 M D)`
57.8%	4	`l`
56.6%	4	`d`
54.8%	4	`h`
53.7%	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 39 to 53 computations (-35.9% saved)

regimes9.0ms (0.1%)

Memory

-26.0MiB live, 21.4MiB allocated; 1ms collecting garbage

Counts

23 → 4

Calls

Call 1

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

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

Calls

1 calls:

7.0ms

Results

Accuracy	Segments	Branch
57.0%	4	`l`

Compiler

Compiled 1 to 5 computations (-400% saved)

regimes8.0ms (0.1%)

Memory

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

Counts

20 → 4

Calls

Call 1

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

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

Calls

1 calls:

6.0ms

Results

Accuracy	Segments	Branch
56.7%	4	`l`

Compiler

Compiled 1 to 5 computations (-400% saved)

regimes14.0ms (0.1%)

Memory

-8.5MiB live, 34.9MiB allocated; 3ms collecting garbage

Counts

17 → 4

Calls

Call 1

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

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

Calls

2 calls:

7.0ms	d
5.0ms	l

Results

Accuracy	Segments	Branch
55.2%	4	`d`
55.6%	4	`l`

Compiler

Compiled 2 to 10 computations (-400% saved)

regimes42.0ms (0.4%)

Memory

36.1MiB live, 72.1MiB allocated; 18ms collecting garbage

Counts

16 → 3

Calls

Call 1

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

Outputs

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

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

Calls

4 calls:

26.0ms	d
5.0ms	l
5.0ms	h
4.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.9%	3	`h`
49.7%	3	`d`
49.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))))`
48.1%	3	`l`

Compiler

Compiled 34 to 37 computations (-8.8% saved)

regimes54.0ms (0.6%)

Memory

-1.2MiB live, 95.4MiB allocated; 32ms collecting garbage

Counts

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

Outputs

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

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

Calls

6 calls:

19.0ms	d
16.0ms	l
5.0ms	h
5.0ms	M
4.0ms	(*.f64 M D)

Results

Accuracy	Segments	Branch
43.3%	2	`h`
41.3%	2	`M`
43.8%	2	`l`
42.1%	2	`(*.f64 M D)`
46.0%	3	`(.f64 (.f64 (pow.f64 (/.f64 d h) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64))) (pow.f64 (/.f64 d l) (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)))) (-.f64 #s(literal 1 binary64) (.f64 (.f64 (/.f64 #s(literal 1 binary64) #s(literal 2 binary64)) (pow.f64 (/.f64 (.f64 M D) (.f64 #s(literal 2 binary64) d)) #s(literal 2 binary64))) (/.f64 h l))))`
43.3%	2	`d`

Compiler

Compiled 38 to 48 computations (-26.3% saved)

regimes19.0ms (0.2%)

Memory

-16.9MiB live, 26.6MiB allocated; 11ms collecting garbage

Counts

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

Outputs

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

Calls

2 calls:

14.0ms

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

Compiler

Compiled 32 to 27 computations (15.6% saved)

regimes4.0ms (0%)

Memory

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

Counts

8 → 2

Calls

Call 1

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

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 (+ (* (* (/ (* (* M M) (* D D)) (* d d)) (sqrt (/ h (* (* l l) l)))) -1/8) (sqrt (/ 1 (* l h)))) (neg.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

1 calls:

3.0ms

Results

Accuracy	Segments	Branch
43.8%	2	`l`

Compiler

Compiled 1 to 5 computations (-400% saved)

regimes32.0ms (0.3%)

Memory

17.4MiB live, 55.8MiB allocated; 14ms collecting garbage

Counts

7 → 2

Calls

Call 1

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

Outputs

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

Calls

7 calls:

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

Results

Accuracy	Segments	Branch
30.4%	3	`M`
26.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.1%	2	`(*.f64 M D)`
31.5%	4	`D`
38.9%	2	`h`
38.9%	2	`d`
39.5%	2	`l`

Compiler

Compiled 39 to 53 computations (-35.9% saved)

regimes50.0ms (0.5%)

Memory

-12.1MiB live, 47.0MiB allocated; 36ms collecting garbage

Counts

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

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

Calls

7 calls:

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

Results

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

Compiler

Compiled 39 to 53 computations (-35.9% saved)

regimes11.0ms (0.1%)

Memory

-29.7MiB live, 20.5MiB allocated; 5ms collecting garbage

Accuracy

Total -0.0b remaining (-0%)

Threshold costs -0b (-0%)

Counts

1 → 1

Calls

Call 1

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

Calls

7 calls:

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

Results

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

Compiler

Compiled 39 to 53 computations (-35.9% saved)

bsearch51.0ms (0.5%)

Memory

41.5MiB live, 88.6MiB allocated; 2ms collecting garbage

Algorithm

1×	binary-search

Stop Event

1×	narrow-enough

Steps

Time	Left	Right
44.0ms	2.416810100720692e-306	1.932359658570943e-295

Samples

21.0ms	160×	0	valid
13.0ms	140×	0	invalid

Compiler

Compiled 678 to 590 computations (13% saved)

Precisions

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

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

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

ival-mult!: 7.0ms (28.9% of total)

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

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

adjust: 0.0ms (0% of total)

bsearch4.0ms (0%)

Memory

-42.4MiB live, 4.5MiB allocated; 2ms collecting garbage

Algorithm

1×	binary-search

Stop Event

1×	narrow-enough

Steps

Time	Left	Right
2.0ms	2.416810100720692e-306	1.932359658570943e-295

Compiler

Compiled 638 to 580 computations (9.1% saved)

bsearch77.0ms (0.8%)

Memory

16.1MiB live, 112.1MiB allocated; 13ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
24.0ms	7.048028198991601e-156	2.631321537726357e-155
46.0ms	1.1950716603740923e-282	6.507450434046384e-279

Samples

36.0ms	208×	0	valid
19.0ms	202×	0	invalid

Compiler

Compiled 976 to 921 computations (5.6% saved)

Precisions

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

ival-pow2: 13.0ms (31.6% of total)

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

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

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

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

adjust: 0.0ms (0% of total)

bsearch12.0ms (0.1%)

Memory

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

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
9.0ms	7.048028198991601e-156	2.631321537726357e-155
2.0ms	1.1950716603740923e-282	6.507450434046384e-279

Samples

4.0ms	32×	0	valid
2.0ms	25×	0	invalid

Compiler

Compiled 971 to 916 computations (5.7% saved)

Precisions

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

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

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

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

ival-mult!: 1.0ms (22.8% of total)

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

adjust: 0.0ms (0% of total)

bsearch3.0ms (0%)

Memory

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

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
1.0ms	7.048028198991601e-156	2.631321537726357e-155
2.0ms	1.1950716603740923e-282	6.507450434046384e-279

Compiler

Compiled 971 to 916 computations (5.7% saved)

bsearch168.0ms (1.7%)

Memory

-16.3MiB live, 266.4MiB allocated; 17ms collecting garbage

Algorithm

3×	binary-search

Stop Event

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

Steps

Time	Left	Right
55.0ms	3.829821003552284e+90	2.2378692210492512e+102
43.0ms	8.719578340152105e-94	1.1294318569230596e-86
49.0ms	-1.1590300093140464e-307	3.988550765019984e-303

Samples

59.0ms	479×	0	invalid
57.0ms	448×	0	valid

Compiler

Compiled 2 036 to 1 936 computations (4.9% saved)

Precisions

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

ival-pow: 27.0ms (33% of total)

ival-mult!: 22.0ms (26.9% of total)

ival-div!: 20.0ms (24.4% of total)

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

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

adjust: 0.0ms (0% of total)

bsearch219.0ms (2.3%)

Memory

-3.0MiB live, 281.6MiB allocated; 74ms collecting garbage

Algorithm

5×	binary-search

Stop Event

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

Steps

Time	Left	Right
40.0ms	9.874197005825165e+135	2.0327213707977106e+143
5.0ms	7.048028198991601e-156	2.631321537726357e-155
42.0ms	-3.2318015902113834e-302	2.416810100720692e-306
38.0ms	-1.68933505418223e-142	-3.9383503861963264e-145
72.0ms	-1.2047336994892137e+92	-1.9784216932316747e+91

Samples

115.0ms	528×	0	valid
46.0ms	472×	0	invalid

Compiler

Compiled 2 790 to 2 654 computations (4.9% saved)

Precisions

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

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

ival-mult!: 22.0ms (27.5% of total)

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

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

ival-sub!: 5.0ms (6.2% of total)

adjust: 0.0ms (0% of total)

bsearch1.0ms (0%)

Memory

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

Algorithm

2×	left-value

Steps

Time	Left	Right
0.0ms	+inf	NaN
0.0ms	-4.899148432777275e-31	-4.516725928154128e-37

Compiler

Compiled 34 to 30 computations (11.8% saved)

bsearch141.0ms (1.5%)

Memory

23.9MiB live, 212.5MiB allocated; 14ms collecting garbage

Algorithm

3×	binary-search

Stop Event

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

Steps

Time	Left	Right
41.0ms	3.807097662452388e+44	1.4599644848655613e+49
41.0ms	-6.81587182802407e-298	-4.649419151039023e-301
44.0ms	-3.834120885874341e-16	-3.558709410295029e-21

Samples

54.0ms	400×	0	valid
44.0ms	367×	0	invalid

Compiler

Compiled 2 263 to 2 188 computations (3.3% saved)

Precisions

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

ival-pow: 26.0ms (36.1% of total)

ival-mult!: 20.0ms (27.8% of total)

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

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

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

adjust: 0.0ms (0% of total)

bsearch8.0ms (0.1%)

Memory

-35.7MiB live, 10.5MiB allocated; 3ms collecting garbage

Algorithm

3×	binary-search

Stop Event

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

Steps

Time	Left	Right
1.0ms	3.807097662452388e+44	1.4599644848655613e+49
4.0ms	-6.81587182802407e-298	-4.649419151039023e-301
2.0ms	-3.834120885874341e-16	-3.558709410295029e-21

Compiler

Compiled 2 263 to 2 188 computations (3.3% saved)

bsearch6.0ms (0.1%)

Memory

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

Algorithm

3×	binary-search

Stop Event

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

Steps

Time	Left	Right
1.0ms	3.807097662452388e+44	1.4599644848655613e+49
2.0ms	-6.81587182802407e-298	-4.649419151039023e-301
2.0ms	-3.834120885874341e-16	-3.558709410295029e-21

Compiler

Compiled 2 467 to 2 392 computations (3% saved)

bsearch25.0ms (0.3%)

Memory

-8.2MiB live, 38.6MiB allocated; 2ms collecting garbage

Algorithm

3×	binary-search

Stop Event

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

Steps

Time	Left	Right
19.0ms	3.807097662452388e+44	1.4599644848655613e+49
2.0ms	-6.81587182802407e-298	-4.649419151039023e-301
2.0ms	-3.834120885874341e-16	-3.558709410295029e-21

Samples

7.0ms	63×	0	invalid
6.0ms	48×	0	valid

Compiler

Compiled 2 467 to 2 392 computations (3% saved)

Precisions

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

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

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

ival-mult!: 2.0ms (21.5% of total)

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

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

adjust: 0.0ms (0% of total)

bsearch45.0ms (0.5%)

Memory

21.8MiB live, 71.0MiB allocated; 5ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
2.0ms	-3.2318015902113834e-302	2.416810100720692e-306
38.0ms	-3.609474846690857e-32	-1.9802196531528004e-33

Samples

14.0ms	112×	0	valid
13.0ms	144×	0	invalid

Compiler

Compiled 1 501 to 1 445 computations (3.7% saved)

Precisions

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

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

ival-pow: 5.0ms (26.5% of total)

ival-div!: 5.0ms (26.5% of total)

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

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

adjust: 0.0ms (0% of total)

bsearch1.0ms (0%)

Memory

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

Algorithm

2×	left-value

Steps

Time	Left	Right
0.0ms	+inf	NaN
0.0ms	-2.3219945965163207e-90	-0.0

Compiler

Compiled 34 to 30 computations (11.8% saved)

bsearch42.0ms (0.4%)

Memory

15.1MiB live, 61.7MiB allocated; 2ms collecting garbage

Algorithm

1×	binary-search

Stop Event

1×	narrow-enough

Steps

Time	Left	Right
37.0ms	5.162449581639588e-285	7.101187243232669e-283

Samples

15.0ms	112×	0	valid
14.0ms	121×	0	invalid

Compiler

Compiled 591 to 569 computations (3.7% saved)

Precisions

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

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

ival-div!: 5.0ms (23.4% of total)

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

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

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

adjust: 0.0ms (0% of total)

bsearch2.0ms (0%)

Memory

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

Algorithm

1×	binary-search

Stop Event

1×	narrow-enough

Steps

Time	Left	Right
1.0ms	5.162449581639588e-285	7.101187243232669e-283

Compiler

Compiled 591 to 569 computations (3.7% saved)

bsearch24.0ms (0.2%)

Memory

-9.8MiB live, 36.7MiB allocated; 3ms collecting garbage

Algorithm

1×	binary-search

Stop Event

1×	narrow-enough

Steps

Time	Left	Right
21.0ms	6.503462141133115e-208	9.804324089931745e-208

Samples

8.0ms	64×	0	valid
7.0ms	64×	0	invalid

Compiler

Compiled 342 to 326 computations (4.7% saved)

Precisions

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

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

ival-div!: 3.0ms (27.8% of total)

ival-mult!: 3.0ms (27.8% of total)

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

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

adjust: 0.0ms (0% of total)

derivations180.0ms (1.9%)

Memory

-12.5MiB live, 179.8MiB allocated; 87ms collecting garbage

Stop Event

1×

fuel

Compiler

Compiled 574 to 323 computations (43.7% saved)

preprocess551.0ms (5.7%)

Memory

24.7MiB live, 719.8MiB allocated; 217ms collecting garbage

Remove

(sort M D)

(abs D)

(abs M)

Compiler

Compiled 14 173 to 10 261 computations (27.6% saved)

end0.0ms (0%)

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

start0.0ms (0%)

analyze480.0ms (5%)

sample5.1s (52.8%)

preprocess43.0ms (0.4%)

series99.0ms (1%)

rewrite56.0ms (0.6%)

eval9.0ms (0.1%)

prune20.0ms (0.2%)

series141.0ms (1.5%)

rewrite89.0ms (0.9%)

eval30.0ms (0.3%)

prune48.0ms (0.5%)

series249.0ms (2.6%)

rewrite128.0ms (1.3%)

eval131.0ms (1.4%)

prune49.0ms (0.5%)

series296.0ms (3.1%)

rewrite96.0ms (1%)

eval38.0ms (0.4%)

prune135.0ms (1.4%)

regimes231.0ms (2.4%)

regimes66.0ms (0.7%)

regimes51.0ms (0.5%)

regimes21.0ms (0.2%)

regimes19.0ms (0.2%)

regimes46.0ms (0.5%)

regimes88.0ms (0.9%)

regimes36.0ms (0.4%)

regimes52.0ms (0.5%)

regimes9.0ms (0.1%)

regimes8.0ms (0.1%)

regimes14.0ms (0.1%)

regimes42.0ms (0.4%)

regimes54.0ms (0.6%)

regimes19.0ms (0.2%)

regimes4.0ms (0%)

regimes32.0ms (0.3%)

regimes50.0ms (0.5%)

regimes11.0ms (0.1%)

bsearch51.0ms (0.5%)

bsearch4.0ms (0%)

bsearch77.0ms (0.8%)

bsearch12.0ms (0.1%)

bsearch3.0ms (0%)

bsearch168.0ms (1.7%)

bsearch219.0ms (2.3%)

bsearch1.0ms (0%)

bsearch141.0ms (1.5%)

bsearch8.0ms (0.1%)

bsearch6.0ms (0.1%)

bsearch25.0ms (0.3%)

bsearch45.0ms (0.5%)

bsearch1.0ms (0%)

bsearch42.0ms (0.4%)

bsearch2.0ms (0%)

bsearch24.0ms (0.2%)

derivations180.0ms (1.9%)

preprocess551.0ms (5.7%)

end0.0ms (0%)

Profiling