Metrics for Henrywood and Agarwal, Equation (13)

start0.0ms (0%)

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

analyze782.0ms (4.8%)

Memory

-15.8MiB live, 901.9MiB allocated; 221ms collecting garbage

Algorithm

1×

Search

Probability	Valid	Unknown	Precondition	Infinite	Domain	Can't	Iter
0%	0%	99.7%	0.3%	0%	0%	0%	0
0%	0%	99.7%	0.3%	0%	0%	0%	1
0%	0%	99.7%	0.3%	0%	0%	0%	2
0%	0%	99.7%	0.3%	0%	0%	0%	3
0%	0%	99.7%	0.3%	0%	0%	0%	4
0%	0%	99.7%	0.3%	0%	0%	0%	5
0%	0%	99.7%	0.3%	0%	0%	0%	6
0%	0%	99.7%	0.3%	0%	0%	0%	7
0%	0%	99.7%	0.3%	0%	0%	0%	8
0%	0%	99.7%	0.3%	0%	0%	0%	9
0%	0%	99.7%	0.3%	0%	0%	0%	10
0%	0%	99.7%	0.3%	0%	0%	0%	11
0%	0%	99.7%	0.3%	0%	0%	0%	12

Compiler

Compiled 54 to 23 computations (57.4% saved)

sample5.0s (30.6%)

Memory

-24.6MiB live, 5 572.6MiB allocated; 2.0s collecting garbage

Samples

1.3s	8 089×	0	invalid
1.1s	1 775×	2	valid
668.0ms	4 255×	0	valid
412.0ms	794×	3	valid
392.0ms	1 432×	1	valid

Precisions

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

ival-mult: 1.5s (54.9% of total)

ival-div: 352.0ms (13.2% of total)

adjust: 318.0ms (11.9% of total)

ival-sqrt: 202.0ms (7.6% of total)

ival-sub: 171.0ms (6.4% of total)

ival-add: 141.0ms (5.3% of total)

exact: 14.0ms (0.5% of total)

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

Bogosity

explain420.0ms (2.6%)

Memory

-6.2MiB live, 690.5MiB allocated; 125ms collecting garbage

FPErrors

Click to see full error table

Ground Truth	Overpredictions	Example	Underpredictions	Example	Subexpression
115	0	-	0	-	`(+.f64 (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 w h) (.f64 D D))) (sqrt.f64 (-.f64 (.f64 (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 w h) (.f64 D D))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 w h) (.f64 D D)))) (*.f64 M M))))`
71	0	-	4	(4.728605666552914e+52 1.5843517979742957e-296 -1.4042244256336584e-123 2.3828774850556006e+48 -5.044915620437368e-61 1.1322257612250479e-187)	`(/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 w h) (*.f64 D D)))`
54	0	-	1	(-9.518212010838988e-164 2.103609747434407e+275 -3.3228314234549873e+133 -536.0500363360671 1.369126542430028e+211 4.950522843987533e-174)	`(sqrt.f64 (-.f64 (.f64 (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 w h) (.f64 D D))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 w h) (.f64 D D)))) (.f64 M M)))`
48	0	-	0	-	`(-.f64 (.f64 (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 w h) (.f64 D D))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 w h) (.f64 D D)))) (.f64 M M))`
45	1	(-2.9334783486436e+252 -1.6222021870418887e-139 -1.1402946587077483e-276 -9.848635415885068e+45 2.744548264738731e+209 5.050387131185788e+294)	0	-	`(.f64 (.f64 w h) (*.f64 D D))`
40	0	-	1	(1.7951941296212815e-149 5.643380300522702e-179 -1.2250101457515868e+280 1.2417040316622798e-129 4.239335343264577e-96 -3.832472086235928e-250)	`(.f64 (/.f64 c0 (.f64 #s(literal 2 binary64) w)) (+.f64 (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 w h) (.f64 D D))) (sqrt.f64 (-.f64 (.f64 (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 w h) (.f64 D D))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 w h) (.f64 D D)))) (*.f64 M M)))))`
34	0	-	2	(-1.0258973123317477e+85 -7.964204403086244e-200 -3.084227529077602e-307 7.029862724886974e-117 -2.886180707573191e-158 2.389893579310993e+86)	`(.f64 c0 (.f64 d d))`
0	0	-	0	-	`D`
0	0	-	0	-	`(*.f64 M M)`
0	0	-	0	-	`d`
0	0	-	0	-	`(*.f64 d d)`
0	0	-	0	-	`(*.f64 w h)`
0	0	-	0	-	`(*.f64 #s(literal 2 binary64) w)`
0	0	-	0	-	`(*.f64 D D)`
0	0	-	0	-	`(.f64 (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 w h) (.f64 D D))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 w h) (*.f64 D D))))`
0	0	-	0	-	`c0`
0	0	-	0	-	`#s(literal 2 binary64)`
0	0	-	0	-	`(/.f64 c0 (*.f64 #s(literal 2 binary64) w))`
0	0	-	0	-	`w`
0	0	-	0	-	`h`
0	0	-	0	-	`M`

Explanations

Click to see full explanations table

Operator	Subexpression	Explanation	Count
`+.f64`	`(+.f64 (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 w h) (.f64 D D))) (sqrt.f64 (-.f64 (.f64 (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 w h) (.f64 D D))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 w h) (.f64 D D)))) (*.f64 M M))))`	nan-rescue	78	0
↳	`(.f64 c0 (.f64 d d))`	overflow	116
↳	`(/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 w h) (*.f64 D D)))`	overflow	149
↳	`(*.f64 D D)`	overflow	21
↳	`(*.f64 d d)`	overflow	109
↳	`(*.f64 w h)`	overflow	18
↳	`(.f64 (.f64 w h) (*.f64 D D))`	overflow	21
↳	`(.f64 (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 w h) (.f64 D D))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 w h) (*.f64 D D))))`	overflow	195
↳	`(*.f64 M M)`	overflow	48
↳	`(.f64 c0 (.f64 d d))`	overflow	232
↳	`(/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 w h) (*.f64 D D)))`	overflow	298
↳	`(*.f64 D D)`	overflow	42
↳	`(*.f64 w h)`	overflow	36
↳	`(.f64 (.f64 w h) (*.f64 D D))`	overflow	42
↳	`(-.f64 (.f64 (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 w h) (.f64 D D))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 w h) (.f64 D D)))) (.f64 M M))`	overflow	195
↳	`(sqrt.f64 (-.f64 (.f64 (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 w h) (.f64 D D))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 w h) (.f64 D D)))) (.f64 M M)))`	overflow	149
↳	`(*.f64 d d)`	overflow	218
`-.f64`	`(-.f64 (.f64 (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 w h) (.f64 D D))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 w h) (.f64 D D)))) (.f64 M M))`	nan-rescue	48	0
↳	`(.f64 (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 w h) (.f64 D D))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 w h) (*.f64 D D))))`	overflow	195
↳	`(.f64 c0 (.f64 d d))`	overflow	232
↳	`(/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 w h) (*.f64 D D)))`	overflow	298
↳	`(*.f64 D D)`	overflow	42
↳	`(*.f64 d d)`	overflow	218
↳	`(*.f64 w h)`	overflow	36
↳	`(.f64 (.f64 w h) (*.f64 D D))`	overflow	42
↳	`(*.f64 M M)`	overflow	48
`sqrt.f64`	`(sqrt.f64 (-.f64 (.f64 (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 w h) (.f64 D D))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 w h) (.f64 D D)))) (.f64 M M)))`	oflow-rescue	46	0
↳	`(.f64 (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 w h) (.f64 D D))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 w h) (*.f64 D D))))`	overflow	195
↳	`(*.f64 M M)`	overflow	48
↳	`(.f64 c0 (.f64 d d))`	overflow	232
↳	`(/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 w h) (*.f64 D D)))`	overflow	298
↳	`(*.f64 D D)`	overflow	42
↳	`(*.f64 w h)`	overflow	36
↳	`(.f64 (.f64 w h) (*.f64 D D))`	overflow	42
↳	`(-.f64 (.f64 (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 w h) (.f64 D D))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 w h) (.f64 D D)))) (.f64 M M))`	overflow	195
↳	`(sqrt.f64 (-.f64 (.f64 (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 w h) (.f64 D D))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 w h) (.f64 D D)))) (.f64 M M)))`	overflow	149
↳	`(*.f64 d d)`	overflow	218
`+.f64`	`(+.f64 (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 w h) (.f64 D D))) (sqrt.f64 (-.f64 (.f64 (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 w h) (.f64 D D))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 w h) (.f64 D D)))) (*.f64 M M))))`	cancellation	37	0
`*.f64`	`(.f64 c0 (.f64 d d))`	*no**	24	0
`*.f64`	`(.f64 (/.f64 c0 (.f64 #s(literal 2 binary64) w)) (+.f64 (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 w h) (.f64 D D))) (sqrt.f64 (-.f64 (.f64 (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 w h) (.f64 D D))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 w h) (.f64 D D)))) (*.f64 M M)))))`	*ou**	20	0
↳	`(/.f64 c0 (*.f64 #s(literal 2 binary64) w))`	overflow	47
↳	`(+.f64 (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 w h) (.f64 D D))) (sqrt.f64 (-.f64 (.f64 (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 w h) (.f64 D D))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 w h) (.f64 D D)))) (*.f64 M M))))`	underflow	82
↳	`(.f64 (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 w h) (.f64 D D))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 w h) (*.f64 D D))))`	underflow	7
↳	`(*.f64 M M)`	underflow	74
↳	`(.f64 c0 (.f64 d d))`	underflow	69
↳	`(*.f64 D D)`	underflow	303
↳	`(*.f64 d d)`	underflow	75
↳	`(*.f64 w h)`	underflow	165
↳	`(.f64 (.f64 w h) (*.f64 D D))`	underflow	324
↳	`(-.f64 (.f64 (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 w h) (.f64 D D))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 w h) (.f64 D D)))) (.f64 M M))`	underflow	7
`/.f64`	`(/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 w h) (*.f64 D D)))`	u/u	16	0
↳	`(.f64 c0 (.f64 d d))`	underflow	23
↳	`(*.f64 d d)`	underflow	25
↳	`(*.f64 D D)`	underflow	101
↳	`(*.f64 w h)`	underflow	55
↳	`(.f64 (.f64 w h) (*.f64 D D))`	underflow	108
`*.f64`	`(.f64 (.f64 w h) (*.f64 D D))`	*nu**	15	0
`/.f64`	`(/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 w h) (*.f64 D D)))`	o/n	15	0
↳	`(.f64 c0 (.f64 d d))`	overflow	116
↳	`(*.f64 d d)`	overflow	109
`/.f64`	`(/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 w h) (*.f64 D D)))`	o/o	13	0
↳	`(.f64 c0 (.f64 d d))`	overflow	116
↳	`(*.f64 d d)`	overflow	109
↳	`(*.f64 D D)`	overflow	21
↳	`(*.f64 w h)`	overflow	18
↳	`(.f64 (.f64 w h) (*.f64 D D))`	overflow	21
`*.f64`	`(.f64 (.f64 w h) (*.f64 D D))`	*no**	10	0
`*.f64`	`(.f64 (/.f64 c0 (.f64 #s(literal 2 binary64) w)) (+.f64 (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 w h) (.f64 D D))) (sqrt.f64 (-.f64 (.f64 (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 w h) (.f64 D D))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 w h) (.f64 D D)))) (*.f64 M M)))))`	*no**	8	0
`/.f64`	`(/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 w h) (*.f64 D D)))`	n/u	8	0
↳	`(*.f64 D D)`	underflow	101
↳	`(*.f64 w h)`	underflow	55
↳	`(.f64 (.f64 w h) (*.f64 D D))`	underflow	108
`sqrt.f64`	`(sqrt.f64 (-.f64 (.f64 (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 w h) (.f64 D D))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 w h) (.f64 D D)))) (.f64 M M)))`	uflow-rescue	7	0
↳	`(.f64 (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 w h) (.f64 D D))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 w h) (*.f64 D D))))`	underflow	7
↳	`(*.f64 M M)`	underflow	74
↳	`(.f64 c0 (.f64 d d))`	underflow	46
↳	`(*.f64 D D)`	underflow	202
↳	`(*.f64 d d)`	underflow	50
↳	`(*.f64 w h)`	underflow	110
↳	`(.f64 (.f64 w h) (*.f64 D D))`	underflow	216
↳	`(-.f64 (.f64 (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 w h) (.f64 D D))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 w h) (.f64 D D)))) (.f64 M M))`	underflow	7
`*.f64`	`(.f64 (.f64 w h) (*.f64 D D))`	*ou**	6	0
↳	`(*.f64 w h)`	overflow	18
↳	`(*.f64 D D)`	underflow	101
`*.f64`	`(.f64 (/.f64 c0 (.f64 #s(literal 2 binary64) w)) (+.f64 (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 w h) (.f64 D D))) (sqrt.f64 (-.f64 (.f64 (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 w h) (.f64 D D))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 w h) (.f64 D D)))) (*.f64 M M)))))`	*nu**	6	0
`*.f64`	`(.f64 (/.f64 c0 (.f64 #s(literal 2 binary64) w)) (+.f64 (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 w h) (.f64 D D))) (sqrt.f64 (-.f64 (.f64 (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 w h) (.f64 D D))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 w h) (.f64 D D)))) (*.f64 M M)))))`	*uo**	5	0
↳	`(/.f64 c0 (*.f64 #s(literal 2 binary64) w))`	underflow	19
↳	`(+.f64 (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 w h) (.f64 D D))) (sqrt.f64 (-.f64 (.f64 (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 w h) (.f64 D D))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 w h) (.f64 D D)))) (*.f64 M M))))`	overflow	71
↳	`(.f64 (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 w h) (.f64 D D))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 w h) (*.f64 D D))))`	overflow	195
↳	`(*.f64 M M)`	overflow	48
↳	`(.f64 c0 (.f64 d d))`	overflow	348
↳	`(/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 w h) (*.f64 D D)))`	overflow	447
↳	`(*.f64 D D)`	overflow	63
↳	`(*.f64 w h)`	overflow	54
↳	`(.f64 (.f64 w h) (*.f64 D D))`	overflow	63
↳	`(-.f64 (.f64 (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 w h) (.f64 D D))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 w h) (.f64 D D)))) (.f64 M M))`	overflow	195
↳	`(sqrt.f64 (-.f64 (.f64 (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 w h) (.f64 D D))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 w h) (.f64 D D)))) (.f64 M M)))`	overflow	149
↳	`(*.f64 d d)`	overflow	327
`*.f64`	`(.f64 (.f64 w h) (*.f64 D D))`	*uo**	4	0
↳	`(*.f64 w h)`	underflow	55
↳	`(*.f64 D D)`	overflow	21
`*.f64`	`(.f64 c0 (.f64 d d))`	*nu**	4	0
`/.f64`	`(/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 w h) (*.f64 D D)))`	n/o	4	0
↳	`(*.f64 D D)`	overflow	21
↳	`(*.f64 w h)`	overflow	18
↳	`(.f64 (.f64 w h) (*.f64 D D))`	overflow	21
`/.f64`	`(/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 w h) (*.f64 D D)))`	u/n	2	0
↳	`(.f64 c0 (.f64 d d))`	underflow	23
↳	`(*.f64 d d)`	underflow	25

Confusion

	Predicted +	Predicted -
+	198	4
-	13	41

Precision

0.9383886255924171

Recall

0.9801980198019802

Confusion?

	Predicted +	Predicted Maybe	Predicted -
+	198	0	4
-	13	0	41

Precision?

0.9383886255924171

Recall?

0.9801980198019802

Freqs

test

number	freq
0	45
1	86
2	92
3	26
4	7

Total Confusion?

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

Precision?

1.0

Recall?

1.0

Samples

50.0ms	130×	2	valid
40.0ms	62×	3	valid
38.0ms	238×	0	valid
26.0ms	82×	1	valid

Compiler

Compiled 536 to 67 computations (87.5% saved)

Precisions

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

ival-mult: 58.0ms (53.4% of total)

adjust: 15.0ms (13.8% of total)

ival-div: 13.0ms (12% of total)

ival-sqrt: 9.0ms (8.3% of total)

ival-add: 8.0ms (7.4% of total)

ival-sub: 5.0ms (4.6% of total)

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

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

exact: 0.0ms (0% of total)

preprocess159.0ms (1%)

Memory

14.3MiB live, 245.3MiB allocated; 38ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	217	1480
1	1061	1456
2	6147	1456
0	21	52
0	35	52
1	92	52
2	511	52
3	5203	46
0	8142	27

Stop Event

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

Calls

Call 1

Inputs

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

Outputs

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

(*.f64 (+.f64 (sqrt-product.f64 (*.f64 (/.f64 (ratio-of-squares.f64 d D) h) (/.f64 c0 w)) M) (*.f64 (/.f64 (ratio-of-squares.f64 d D) h) (/.f64 c0 w))) (/.f64 c0 (*.f64 w #s(literal 2 binary64))))

Symmetry

(abs D)

(abs d)

(abs M)

Compiler

Compiled 52 to 21 computations (59.6% saved)

eval0.0ms (0%)

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

prune1.0ms (0%)

Memory

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

Alt Table

Click to see full alt table

Status	Accuracy	Program
▶	21.5%	(.f64 (/.f64 c0 (.f64 #s(literal 2 binary64) w)) (+.f64 (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 w h) (.f64 D D))) (sqrt.f64 (-.f64 (.f64 (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 w h) (.f64 D D))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 w h) (.f64 D D)))) (*.f64 M M)))))

Status

Accuracy

Program

▶

21.5%

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

Compiler

Compiled 52 to 21 computations (59.6% saved)

series164.0ms (1%)

Memory

-3.5MiB live, 201.0MiB allocated; 19ms collecting garbage

Counts

21 → 153

Calls

Call 1

Inputs
(.f64 (/.f64 c0 (.f64 #s(literal 2 binary64) w)) (+.f64 (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 w h) (.f64 D D))) (sqrt.f64 (-.f64 (.f64 (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 w h) (.f64 D D))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 w h) (.f64 D D)))) (*.f64 M M)))))
(/.f64 c0 (*.f64 #s(literal 2 binary64) w))
c0
(*.f64 #s(literal 2 binary64) w)
#s(literal 2 binary64)
w
(+.f64 (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 w h) (.f64 D D))) (sqrt.f64 (-.f64 (.f64 (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 w h) (.f64 D D))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 w h) (.f64 D D)))) (*.f64 M M))))
(/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 w h) (*.f64 D D)))
(.f64 c0 (.f64 d d))
(*.f64 d d)
d
(.f64 (.f64 w h) (*.f64 D D))
(*.f64 w h)
h
(*.f64 D D)
D
(sqrt.f64 (-.f64 (.f64 (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 w h) (.f64 D D))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 w h) (.f64 D D)))) (.f64 M M)))
(-.f64 (.f64 (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 w h) (.f64 D D))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 w h) (.f64 D D)))) (.f64 M M))
(.f64 (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 w h) (.f64 D D))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 w h) (*.f64 D D))))
(*.f64 M M)
M

Outputs
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* 1/2 (/ (* M (* c0 (sqrt -1))) w))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* c0 (+ (* 1/2 (/ (* M (sqrt -1)) w)) (* 1/2 (/ (* c0 (pow d 2)) (* (pow D 2) (* h (pow w 2)))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* c0 (+ (* 1/2 (/ (* M (sqrt -1)) w)) (* c0 (+ (* 1/4 (/ (* c0 (pow d 4)) (* (pow D 4) (* M (* (pow h 2) (* (pow w 3) (sqrt -1))))))) (* 1/2 (/ (pow d 2) (* (pow D 2) (* h (pow w 2)))))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* c0 (+ (* 1/2 (/ (* M (sqrt -1)) w)) (* c0 (+ (* 1/2 (/ (pow d 2) (* (pow D 2) (* h (pow w 2))))) (* c0 (+ (* -1/16 (/ (* (pow c0 2) (pow d 8)) (* (pow D 8) (* (pow M 3) (* (pow h 4) (* (pow w 5) (pow (sqrt -1) 3))))))) (* 1/4 (/ (pow d 4) (* (pow D 4) (* M (* (pow h 2) (* (pow w 3) (sqrt -1)))))))))))))))
#s(approx (/ c0 (* 2 w)) #s(hole binary64 (* 1/2 (/ c0 w))))
#s(approx c0 #s(hole binary64 c0))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (* M (sqrt -1))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (+ (* M (sqrt -1)) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (+ (* M (sqrt -1)) (* c0 (+ (* 1/2 (/ (* c0 (pow d 4)) (* (pow D 4) (* M (* (pow h 2) (* (pow w 2) (sqrt -1))))))) (/ (pow d 2) (* (pow D 2) (* h w))))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (+ (* M (sqrt -1)) (* c0 (+ (* c0 (+ (* -1/8 (/ (* (pow c0 2) (pow d 8)) (* (pow D 8) (* (pow M 3) (* (pow h 4) (* (pow w 4) (pow (sqrt -1) 3))))))) (* 1/2 (/ (pow d 4) (* (pow D 4) (* M (* (pow h 2) (* (pow w 2) (sqrt -1))))))))) (/ (pow d 2) (* (pow D 2) (* h w))))))))
#s(approx (/ (* c0 (* d d)) (* (* w h) (* D D))) #s(hole binary64 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))))
#s(approx (* c0 (* d d)) #s(hole binary64 (* c0 (pow d 2))))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) #s(hole binary64 (* M (sqrt -1))))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) #s(hole binary64 (+ (* 1/2 (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* M (* (pow h 2) (* (pow w 2) (sqrt -1))))))) (* M (sqrt -1)))))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) #s(hole binary64 (+ (* M (sqrt -1)) (* (pow c0 2) (+ (* -1/8 (/ (* (pow c0 2) (pow d 8)) (* (pow D 8) (* (pow M 3) (* (pow h 4) (* (pow w 4) (pow (sqrt -1) 3))))))) (* 1/2 (/ (pow d 4) (* (pow D 4) (* M (* (pow h 2) (* (pow w 2) (sqrt -1))))))))))))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) #s(hole binary64 (+ (* M (sqrt -1)) (* (pow c0 2) (+ (* 1/2 (/ (pow d 4) (* (pow D 4) (* M (* (pow h 2) (* (pow w 2) (sqrt -1))))))) (* (pow c0 2) (+ (* -1/8 (/ (pow d 8) (* (pow D 8) (* (pow M 3) (* (pow h 4) (* (pow w 4) (pow (sqrt -1) 3))))))) (* 1/16 (/ (* (pow c0 2) (pow d 12)) (* (pow D 12) (* (pow M 5) (* (pow h 6) (* (pow w 6) (pow (sqrt -1) 5))))))))))))))
#s(approx (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)) #s(hole binary64 (* -1 (pow M 2))))
#s(approx (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)) #s(hole binary64 (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow h 2) (pow w 2)))) (pow M 2))))
#s(approx (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) #s(hole binary64 (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow h 2) (pow w 2))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h (pow w 2))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* (pow c0 2) (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow c0 2) (pow d 2)))) (/ (pow d 2) (* (pow D 2) (* h (pow w 2))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* (pow c0 2) (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow c0 2) (pow d 2)))) (+ (* -1/16 (/ (* (pow D 6) (* (pow M 4) (* (pow h 3) (pow w 2)))) (* (pow c0 4) (pow d 6)))) (/ (pow d 2) (* (pow D 2) (* h (pow w 2)))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* (pow c0 2) (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow c0 2) (pow d 2)))) (+ (* -1/16 (/ (* (pow D 6) (* (pow M 4) (* (pow h 3) (pow w 2)))) (* (pow c0 4) (pow d 6)))) (+ (* -1/32 (/ (* (pow D 10) (* (pow M 6) (* (pow h 5) (pow w 4)))) (* (pow c0 6) (pow d 10)))) (/ (pow d 2) (* (pow D 2) (* h (pow w 2))))))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (* 2 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (* c0 (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h w))) (* (pow c0 2) (pow d 2)))) (* 2 (/ (pow d 2) (* (pow D 2) (* h w))))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (* c0 (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h w))) (* (pow c0 2) (pow d 2)))) (+ (* -1/8 (/ (* (pow D 6) (* (pow M 4) (* (pow h 3) (pow w 3)))) (* (pow c0 4) (pow d 6)))) (* 2 (/ (pow d 2) (* (pow D 2) (* h w)))))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (* c0 (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h w))) (* (pow c0 2) (pow d 2)))) (+ (* -1/8 (/ (* (pow D 6) (* (pow M 4) (* (pow h 3) (pow w 3)))) (* (pow c0 4) (pow d 6)))) (+ (* -1/16 (/ (* (pow D 10) (* (pow M 6) (* (pow h 5) (pow w 5)))) (* (pow c0 6) (pow d 10)))) (* 2 (/ (pow d 2) (* (pow D 2) (* h w))))))))))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) #s(hole binary64 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) #s(hole binary64 (* c0 (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h w))) (* (pow c0 2) (pow d 2)))) (/ (pow d 2) (* (pow D 2) (* h w)))))))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) #s(hole binary64 (* c0 (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h w))) (* (pow c0 2) (pow d 2)))) (+ (* -1/8 (/ (* (pow D 6) (* (pow M 4) (* (pow h 3) (pow w 3)))) (* (pow c0 4) (pow d 6)))) (/ (pow d 2) (* (pow D 2) (* h w))))))))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) #s(hole binary64 (* c0 (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h w))) (* (pow c0 2) (pow d 2)))) (+ (* -1/8 (/ (* (pow D 6) (* (pow M 4) (* (pow h 3) (pow w 3)))) (* (pow c0 4) (pow d 6)))) (+ (* -1/16 (/ (* (pow D 10) (* (pow M 6) (* (pow h 5) (pow w 5)))) (* (pow c0 6) (pow d 10)))) (/ (pow d 2) (* (pow D 2) (* h w)))))))))
#s(approx (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)) #s(hole binary64 (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow h 2) (pow w 2))))))
#s(approx (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)) #s(hole binary64 (* (pow c0 2) (+ (* -1 (/ (pow M 2) (pow c0 2))) (/ (pow d 4) (* (pow D 4) (* (pow h 2) (pow w 2))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* -1/2 (/ (* (pow c0 2) (+ (* -1 (/ (pow d 2) (* (pow D 2) (* h w)))) (/ (pow d 2) (* (pow D 2) (* h w))))) w))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* (pow c0 2) (+ (* -1/2 (/ (+ (* -1 (/ (pow d 2) (* (pow D 2) (* h w)))) (/ (pow d 2) (* (pow D 2) (* h w)))) w)) (* 1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow c0 2) (pow d 2))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* (pow c0 2) (+ (* -1/2 (/ (+ (* -1 (/ (pow d 2) (* (pow D 2) (* h w)))) (/ (pow d 2) (* (pow D 2) (* h w)))) w)) (+ (* 1/16 (/ (* (pow D 6) (* (pow M 4) (* (pow h 3) (pow w 2)))) (* (pow c0 4) (pow d 6)))) (* 1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow c0 2) (pow d 2)))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* (pow c0 2) (+ (* -1/2 (/ (+ (* -1 (/ (pow d 2) (* (pow D 2) (* h w)))) (/ (pow d 2) (* (pow D 2) (* h w)))) w)) (+ (* 1/32 (/ (* (pow D 10) (* (pow M 6) (* (pow h 5) (pow w 4)))) (* (pow c0 6) (pow d 10)))) (+ (* 1/16 (/ (* (pow D 6) (* (pow M 4) (* (pow h 3) (pow w 2)))) (* (pow c0 4) (pow d 6)))) (* 1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow c0 2) (pow d 2))))))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (* -1 (* c0 (+ (* -1 (/ (pow d 2) (* (pow D 2) (* h w)))) (/ (pow d 2) (* (pow D 2) (* h w))))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (* -1 (* c0 (+ (* -1 (/ (pow d 2) (* (pow D 2) (* h w)))) (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h w))) (* (pow c0 2) (pow d 2)))) (/ (pow d 2) (* (pow D 2) (* h w)))))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (* -1 (* c0 (+ (* -1 (/ (pow d 2) (* (pow D 2) (* h w)))) (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h w))) (* (pow c0 2) (pow d 2)))) (+ (* -1/8 (/ (* (pow D 6) (* (pow M 4) (* (pow h 3) (pow w 3)))) (* (pow c0 4) (pow d 6)))) (/ (pow d 2) (* (pow D 2) (* h w))))))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (* -1 (* c0 (+ (* -1 (/ (pow d 2) (* (pow D 2) (* h w)))) (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h w))) (* (pow c0 2) (pow d 2)))) (+ (* -1/8 (/ (* (pow D 6) (* (pow M 4) (* (pow h 3) (pow w 3)))) (* (pow c0 4) (pow d 6)))) (+ (* -1/16 (/ (* (pow D 10) (* (pow M 6) (* (pow h 5) (pow w 5)))) (* (pow c0 6) (pow d 10)))) (/ (pow d 2) (* (pow D 2) (* h w)))))))))))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) #s(hole binary64 (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) #s(hole binary64 (* -1 (* c0 (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h w))) (* (pow c0 2) (pow d 2)))) (/ (pow d 2) (* (pow D 2) (* h w))))))))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) #s(hole binary64 (* -1 (* c0 (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h w))) (* (pow c0 2) (pow d 2)))) (+ (* -1/8 (/ (* (pow D 6) (* (pow M 4) (* (pow h 3) (pow w 3)))) (* (pow c0 4) (pow d 6)))) (/ (pow d 2) (* (pow D 2) (* h w)))))))))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) #s(hole binary64 (* -1 (* c0 (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h w))) (* (pow c0 2) (pow d 2)))) (+ (* -1/8 (/ (* (pow D 6) (* (pow M 4) (* (pow h 3) (pow w 3)))) (* (pow c0 4) (pow d 6)))) (+ (* -1/16 (/ (* (pow D 10) (* (pow M 6) (* (pow h 5) (pow w 5)))) (* (pow c0 6) (pow d 10)))) (/ (pow d 2) (* (pow D 2) (* h w))))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (/ (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (* h (pow w 2)))) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) h))) (pow w 2))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (/ (+ (* (pow w 2) (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2))) (* -1/16 (/ (* (pow D 6) (* (pow M 4) (* (pow h 3) (pow w 2)))) (* (pow c0 2) (pow d 6)))))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) h))) (pow w 2))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (/ (+ (* (pow w 2) (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2))) (* (pow w 2) (+ (* -1/16 (/ (* (pow D 6) (* (pow M 4) (pow h 3))) (* (pow c0 2) (pow d 6)))) (* -1/32 (/ (* (pow D 10) (* (pow M 6) (* (pow h 5) (pow w 2)))) (* (pow c0 4) (pow d 10)))))))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) h))) (pow w 2))))
#s(approx (* 2 w) #s(hole binary64 (* 2 w)))
#s(approx w #s(hole binary64 w))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (/ (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h (pow w 2)))) (* c0 (pow d 2)))) (* 2 (/ (* c0 (pow d 2)) (* (pow D 2) h)))) w)))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (/ (+ (* 2 (/ (* c0 (pow d 2)) (* (pow D 2) h))) (* (pow w 2) (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) h)) (* c0 (pow d 2)))) (* -1/8 (/ (* (pow D 6) (* (pow M 4) (* (pow h 3) (pow w 2)))) (* (pow c0 3) (pow d 6))))))) w)))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (/ (+ (* 2 (/ (* c0 (pow d 2)) (* (pow D 2) h))) (* (pow w 2) (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) h)) (* c0 (pow d 2)))) (* (pow w 2) (+ (* -1/8 (/ (* (pow D 6) (* (pow M 4) (pow h 3))) (* (pow c0 3) (pow d 6)))) (* -1/16 (/ (* (pow D 10) (* (pow M 6) (* (pow h 5) (pow w 2)))) (* (pow c0 5) (pow d 10))))))))) w)))
#s(approx (* (* w h) (* D D)) #s(hole binary64 (* (pow D 2) (* h w))))
#s(approx (* w h) #s(hole binary64 (* h w)))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) #s(hole binary64 (/ (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h (pow w 2)))) (* c0 (pow d 2)))) (/ (* c0 (pow d 2)) (* (pow D 2) h))) w)))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) #s(hole binary64 (/ (+ (* (pow w 2) (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) h)) (* c0 (pow d 2)))) (* -1/8 (/ (* (pow D 6) (* (pow M 4) (* (pow h 3) (pow w 2)))) (* (pow c0 3) (pow d 6)))))) (/ (* c0 (pow d 2)) (* (pow D 2) h))) w)))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) #s(hole binary64 (/ (+ (* (pow w 2) (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) h)) (* c0 (pow d 2)))) (* (pow w 2) (+ (* -1/8 (/ (* (pow D 6) (* (pow M 4) (pow h 3))) (* (pow c0 3) (pow d 6)))) (* -1/16 (/ (* (pow D 10) (* (pow M 6) (* (pow h 5) (pow w 2)))) (* (pow c0 5) (pow d 10)))))))) (/ (* c0 (pow d 2)) (* (pow D 2) h))) w)))
#s(approx (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)) #s(hole binary64 (/ (+ (* -1 (* (pow M 2) (pow w 2))) (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow h 2)))) (pow w 2))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (/ (+ (* 1/2 (* M (* c0 (sqrt -1)))) (* 1/2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h w))))) w)))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (/ (+ (* 1/4 (/ (* (pow c0 3) (pow d 4)) (* (pow D 4) (* M (* (pow h 2) (* (pow w 2) (sqrt -1))))))) (+ (* 1/2 (* M (* c0 (sqrt -1)))) (* 1/2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h w)))))) w)))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (/ (+ (* -1/16 (/ (* (pow c0 5) (pow d 8)) (* (pow D 8) (* (pow M 3) (* (pow h 4) (* (pow w 4) (pow (sqrt -1) 3))))))) (+ (* 1/4 (/ (* (pow c0 3) (pow d 4)) (* (pow D 4) (* M (* (pow h 2) (* (pow w 2) (sqrt -1))))))) (+ (* 1/2 (* M (* c0 (sqrt -1)))) (* 1/2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h w))))))) w)))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (+ (* 1/2 (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* M (* (pow h 2) (* (pow w 2) (sqrt -1))))))) (+ (* M (sqrt -1)) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (+ (* -1/8 (/ (* (pow c0 4) (pow d 8)) (* (pow D 8) (* (pow M 3) (* (pow h 4) (* (pow w 4) (pow (sqrt -1) 3))))))) (+ (* 1/2 (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* M (* (pow h 2) (* (pow w 2) (sqrt -1))))))) (+ (* M (sqrt -1)) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))))))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) #s(hole binary64 (+ (* -1/8 (/ (* (pow c0 4) (pow d 8)) (* (pow D 8) (* (pow M 3) (* (pow h 4) (* (pow w 4) (pow (sqrt -1) 3))))))) (+ (* 1/2 (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* M (* (pow h 2) (* (pow w 2) (sqrt -1))))))) (* M (sqrt -1))))))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) #s(hole binary64 (+ (* -1/8 (/ (* (pow c0 4) (pow d 8)) (* (pow D 8) (* (pow M 3) (* (pow h 4) (* (pow w 4) (pow (sqrt -1) 3))))))) (+ (* 1/16 (/ (* (pow c0 6) (pow d 12)) (* (pow D 12) (* (pow M 5) (* (pow h 6) (* (pow w 6) (pow (sqrt -1) 5))))))) (+ (* 1/2 (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* M (* (pow h 2) (* (pow w 2) (sqrt -1))))))) (* M (sqrt -1)))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* -1 (/ (+ (* -1/2 (* M (* c0 (sqrt -1)))) (* -1/2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h w))))) w))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (+ (* 1/4 (/ (* (pow c0 3) (pow d 4)) (* (pow D 4) (* M (* (pow h 2) (* w (sqrt -1))))))) (* 1/2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) h)))) w)) (* -1/2 (* M (* c0 (sqrt -1))))) w))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (+ (* -1 (/ (+ (* -1/4 (/ (* (pow c0 3) (pow d 4)) (* (pow D 4) (* M (* (pow h 2) (sqrt -1)))))) (* 1/16 (/ (* (pow c0 5) (pow d 8)) (* (pow D 8) (* (pow M 3) (* (pow h 4) (* (pow w 2) (pow (sqrt -1) 3)))))))) w)) (* 1/2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) h)))) w)) (* -1/2 (* M (* c0 (sqrt -1))))) w))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) h))) (* -1/2 (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* M (* (pow h 2) (* w (sqrt -1)))))))) w)) (* M (sqrt -1)))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) h))) (* -1 (/ (+ (* -1/8 (/ (* (pow c0 4) (pow d 8)) (* (pow D 8) (* (pow M 3) (* (pow h 4) (* (pow w 2) (pow (sqrt -1) 3))))))) (* 1/2 (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* M (* (pow h 2) (sqrt -1))))))) w))) w)) (* M (sqrt -1)))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (/ (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (pow h 2))) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (pow w 2)))) h)))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (/ (+ (* (pow h 2) (+ (* -1/4 (/ (* (pow D 2) (pow M 2)) (pow d 2))) (* -1/16 (/ (* (pow D 6) (* (pow M 4) (* (pow h 2) (pow w 2)))) (* (pow c0 2) (pow d 6)))))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (pow w 2)))) h)))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (/ (+ (* (pow h 2) (+ (* -1/4 (/ (* (pow D 2) (pow M 2)) (pow d 2))) (* (pow h 2) (+ (* -1/16 (/ (* (pow D 6) (* (pow M 4) (pow w 2))) (* (pow c0 2) (pow d 6)))) (* -1/32 (/ (* (pow D 10) (* (pow M 6) (* (pow h 2) (pow w 4)))) (* (pow c0 4) (pow d 10)))))))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (pow w 2)))) h)))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (/ (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* (pow h 2) w))) (* c0 (pow d 2)))) (* 2 (/ (* c0 (pow d 2)) (* (pow D 2) w)))) h)))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (/ (+ (* 2 (/ (* c0 (pow d 2)) (* (pow D 2) w))) (* (pow h 2) (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) w)) (* c0 (pow d 2)))) (* -1/8 (/ (* (pow D 6) (* (pow M 4) (* (pow h 2) (pow w 3)))) (* (pow c0 3) (pow d 6))))))) h)))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (/ (+ (* 2 (/ (* c0 (pow d 2)) (* (pow D 2) w))) (* (pow h 2) (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) w)) (* c0 (pow d 2)))) (* (pow h 2) (+ (* -1/8 (/ (* (pow D 6) (* (pow M 4) (pow w 3))) (* (pow c0 3) (pow d 6)))) (* -1/16 (/ (* (pow D 10) (* (pow M 6) (* (pow h 2) (pow w 5)))) (* (pow c0 5) (pow d 10))))))))) h)))
#s(approx h #s(hole binary64 h))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) #s(hole binary64 (/ (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* (pow h 2) w))) (* c0 (pow d 2)))) (/ (* c0 (pow d 2)) (* (pow D 2) w))) h)))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) #s(hole binary64 (/ (+ (* (pow h 2) (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) w)) (* c0 (pow d 2)))) (* -1/8 (/ (* (pow D 6) (* (pow M 4) (* (pow h 2) (pow w 3)))) (* (pow c0 3) (pow d 6)))))) (/ (* c0 (pow d 2)) (* (pow D 2) w))) h)))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) #s(hole binary64 (/ (+ (* (pow h 2) (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) w)) (* c0 (pow d 2)))) (* (pow h 2) (+ (* -1/8 (/ (* (pow D 6) (* (pow M 4) (pow w 3))) (* (pow c0 3) (pow d 6)))) (* -1/16 (/ (* (pow D 10) (* (pow M 6) (* (pow h 2) (pow w 5)))) (* (pow c0 5) (pow d 10)))))))) (/ (* c0 (pow d 2)) (* (pow D 2) w))) h)))
#s(approx (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)) #s(hole binary64 (/ (+ (* -1 (* (pow M 2) (pow h 2))) (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow w 2)))) (pow h 2))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (+ (* 1/2 (/ (* M (* c0 (sqrt -1))) w)) (* 1/2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h (pow w 2))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (+ (* 1/4 (/ (* (pow c0 3) (pow d 4)) (* (pow D 4) (* M (* (pow h 2) (* (pow w 3) (sqrt -1))))))) (+ (* 1/2 (/ (* M (* c0 (sqrt -1))) w)) (* 1/2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h (pow w 2)))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (+ (* -1/16 (/ (* (pow c0 5) (pow d 8)) (* (pow D 8) (* (pow M 3) (* (pow h 4) (* (pow w 5) (pow (sqrt -1) 3))))))) (+ (* 1/4 (/ (* (pow c0 3) (pow d 4)) (* (pow D 4) (* M (* (pow h 2) (* (pow w 3) (sqrt -1))))))) (+ (* 1/2 (/ (* M (* c0 (sqrt -1))) w)) (* 1/2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h (pow w 2))))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (pow w 2)))) (* -1/4 (/ (* (pow c0 3) (pow d 4)) (* (pow D 4) (* M (* h (* (pow w 3) (sqrt -1)))))))) h)) (* 1/2 (/ (* M (* c0 (sqrt -1))) w)))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (+ (* -1 (/ (+ (* -1 (/ (+ (* -1/16 (/ (* (pow c0 5) (pow d 8)) (* (pow D 8) (* (pow M 3) (* (pow h 2) (* (pow w 5) (pow (sqrt -1) 3))))))) (* 1/4 (/ (* (pow c0 3) (pow d 4)) (* (pow D 4) (* M (* (pow w 3) (sqrt -1))))))) h)) (* -1/2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (pow w 2))))) h)) (* 1/2 (/ (* M (* c0 (sqrt -1))) w)))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) w))) (* -1/2 (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* M (* h (* (pow w 2) (sqrt -1)))))))) h)) (* M (sqrt -1)))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) w))) (* -1 (/ (+ (* -1/8 (/ (* (pow c0 4) (pow d 8)) (* (pow D 8) (* (pow M 3) (* (pow h 2) (* (pow w 4) (pow (sqrt -1) 3))))))) (* 1/2 (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* M (* (pow w 2) (sqrt -1))))))) h))) h)) (* M (sqrt -1)))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (/ (+ (* -1/4 (/ (* (pow D 4) (* (pow M 2) h)) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) (* h (pow w 2)))) (pow D 2))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (/ (+ (* (pow D 4) (+ (* -1/4 (/ (* (pow M 2) h) (pow d 2))) (* -1/16 (/ (* (pow D 4) (* (pow M 4) (* (pow h 3) (pow w 2)))) (* (pow c0 2) (pow d 6)))))) (/ (* (pow c0 2) (pow d 2)) (* h (pow w 2)))) (pow D 2))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (/ (+ (* (pow D 4) (+ (* -1/4 (/ (* (pow M 2) h) (pow d 2))) (* (pow D 4) (+ (* -1/16 (/ (* (pow M 4) (* (pow h 3) (pow w 2))) (* (pow c0 2) (pow d 6)))) (* -1/32 (/ (* (pow D 4) (* (pow M 6) (* (pow h 5) (pow w 4)))) (* (pow c0 4) (pow d 10)))))))) (/ (* (pow c0 2) (pow d 2)) (* h (pow w 2)))) (pow D 2))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (/ (+ (* -1/2 (/ (* (pow D 4) (* (pow M 2) (* h w))) (* c0 (pow d 2)))) (* 2 (/ (* c0 (pow d 2)) (* h w)))) (pow D 2))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (/ (+ (* 2 (/ (* c0 (pow d 2)) (* h w))) (* (pow D 4) (+ (* -1/2 (/ (* (pow M 2) (* h w)) (* c0 (pow d 2)))) (* -1/8 (/ (* (pow D 4) (* (pow M 4) (* (pow h 3) (pow w 3)))) (* (pow c0 3) (pow d 6))))))) (pow D 2))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (/ (+ (* 2 (/ (* c0 (pow d 2)) (* h w))) (* (pow D 4) (+ (* -1/2 (/ (* (pow M 2) (* h w)) (* c0 (pow d 2)))) (* (pow D 4) (+ (* -1/8 (/ (* (pow M 4) (* (pow h 3) (pow w 3))) (* (pow c0 3) (pow d 6)))) (* -1/16 (/ (* (pow D 4) (* (pow M 6) (* (pow h 5) (pow w 5)))) (* (pow c0 5) (pow d 10))))))))) (pow D 2))))
#s(approx (* D D) #s(hole binary64 (pow D 2)))
#s(approx D #s(hole binary64 D))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) #s(hole binary64 (/ (+ (* -1/2 (/ (* (pow D 4) (* (pow M 2) (* h w))) (* c0 (pow d 2)))) (/ (* c0 (pow d 2)) (* h w))) (pow D 2))))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) #s(hole binary64 (/ (+ (* (pow D 4) (+ (* -1/2 (/ (* (pow M 2) (* h w)) (* c0 (pow d 2)))) (* -1/8 (/ (* (pow D 4) (* (pow M 4) (* (pow h 3) (pow w 3)))) (* (pow c0 3) (pow d 6)))))) (/ (* c0 (pow d 2)) (* h w))) (pow D 2))))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) #s(hole binary64 (/ (+ (* (pow D 4) (+ (* -1/2 (/ (* (pow M 2) (* h w)) (* c0 (pow d 2)))) (* (pow D 4) (+ (* -1/8 (/ (* (pow M 4) (* (pow h 3) (pow w 3))) (* (pow c0 3) (pow d 6)))) (* -1/16 (/ (* (pow D 4) (* (pow M 6) (* (pow h 5) (pow w 5)))) (* (pow c0 5) (pow d 10)))))))) (/ (* c0 (pow d 2)) (* h w))) (pow D 2))))
#s(approx (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)) #s(hole binary64 (/ (+ (* -1 (* (pow D 4) (pow M 2))) (/ (* (pow c0 2) (pow d 4)) (* (pow h 2) (pow w 2)))) (pow D 4))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (+ (* 1/2 (/ (* M (* c0 (sqrt -1))) w)) (* (pow d 2) (+ (* 1/4 (/ (* (pow c0 3) (pow d 2)) (* (pow D 4) (* M (* (pow h 2) (* (pow w 3) (sqrt -1))))))) (* 1/2 (/ (pow c0 2) (* (pow D 2) (* h (pow w 2))))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (+ (* 1/2 (/ (* M (* c0 (sqrt -1))) w)) (* (pow d 2) (+ (* 1/2 (/ (pow c0 2) (* (pow D 2) (* h (pow w 2))))) (* (pow d 2) (+ (* -1/16 (/ (* (pow c0 5) (pow d 4)) (* (pow D 8) (* (pow M 3) (* (pow h 4) (* (pow w 5) (pow (sqrt -1) 3))))))) (* 1/4 (/ (pow c0 3) (* (pow D 4) (* M (* (pow h 2) (* (pow w 3) (sqrt -1))))))))))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (+ (* M (sqrt -1)) (* (pow d 2) (+ (* 1/2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 4) (* M (* (pow h 2) (* (pow w 2) (sqrt -1))))))) (/ c0 (* (pow D 2) (* h w))))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (+ (* M (sqrt -1)) (* (pow d 2) (+ (* (pow d 2) (+ (* -1/8 (/ (* (pow c0 4) (pow d 4)) (* (pow D 8) (* (pow M 3) (* (pow h 4) (* (pow w 4) (pow (sqrt -1) 3))))))) (* 1/2 (/ (pow c0 2) (* (pow D 4) (* M (* (pow h 2) (* (pow w 2) (sqrt -1))))))))) (/ c0 (* (pow D 2) (* h w))))))))
#s(approx (* d d) #s(hole binary64 (pow d 2)))
#s(approx d #s(hole binary64 d))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) #s(hole binary64 (+ (* M (sqrt -1)) (* (pow d 4) (+ (* -1/8 (/ (* (pow c0 4) (pow d 4)) (* (pow D 8) (* (pow M 3) (* (pow h 4) (* (pow w 4) (pow (sqrt -1) 3))))))) (* 1/2 (/ (pow c0 2) (* (pow D 4) (* M (* (pow h 2) (* (pow w 2) (sqrt -1))))))))))))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) #s(hole binary64 (+ (* M (sqrt -1)) (* (pow d 4) (+ (* 1/2 (/ (pow c0 2) (* (pow D 4) (* M (* (pow h 2) (* (pow w 2) (sqrt -1))))))) (* (pow d 4) (+ (* -1/8 (/ (pow c0 4) (* (pow D 8) (* (pow M 3) (* (pow h 4) (* (pow w 4) (pow (sqrt -1) 3))))))) (* 1/16 (/ (* (pow c0 6) (pow d 4)) (* (pow D 12) (* (pow M 5) (* (pow h 6) (* (pow w 6) (pow (sqrt -1) 5))))))))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* (pow d 2) (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 4))) (/ (pow c0 2) (* (pow D 2) (* h (pow w 2))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* (pow d 2) (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 4))) (+ (* -1/16 (/ (* (pow D 6) (* (pow M 4) (* (pow h 3) (pow w 2)))) (* (pow c0 2) (pow d 8)))) (/ (pow c0 2) (* (pow D 2) (* h (pow w 2)))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* (pow d 2) (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 4))) (+ (* -1/16 (/ (* (pow D 6) (* (pow M 4) (* (pow h 3) (pow w 2)))) (* (pow c0 2) (pow d 8)))) (+ (* -1/32 (/ (* (pow D 10) (* (pow M 6) (* (pow h 5) (pow w 4)))) (* (pow c0 4) (pow d 12)))) (/ (pow c0 2) (* (pow D 2) (* h (pow w 2))))))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (* (pow d 2) (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h w))) (* c0 (pow d 4)))) (* 2 (/ c0 (* (pow D 2) (* h w))))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (* (pow d 2) (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h w))) (* c0 (pow d 4)))) (+ (* -1/8 (/ (* (pow D 6) (* (pow M 4) (* (pow h 3) (pow w 3)))) (* (pow c0 3) (pow d 8)))) (* 2 (/ c0 (* (pow D 2) (* h w)))))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (* (pow d 2) (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h w))) (* c0 (pow d 4)))) (+ (* -1/8 (/ (* (pow D 6) (* (pow M 4) (* (pow h 3) (pow w 3)))) (* (pow c0 3) (pow d 8)))) (+ (* -1/16 (/ (* (pow D 10) (* (pow M 6) (* (pow h 5) (pow w 5)))) (* (pow c0 5) (pow d 12)))) (* 2 (/ c0 (* (pow D 2) (* h w))))))))))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) #s(hole binary64 (* (pow d 2) (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h w))) (* c0 (pow d 4)))) (/ c0 (* (pow D 2) (* h w)))))))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) #s(hole binary64 (* (pow d 2) (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h w))) (* c0 (pow d 4)))) (+ (* -1/8 (/ (* (pow D 6) (* (pow M 4) (* (pow h 3) (pow w 3)))) (* (pow c0 3) (pow d 8)))) (/ c0 (* (pow D 2) (* h w))))))))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) #s(hole binary64 (* (pow d 2) (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h w))) (* c0 (pow d 4)))) (+ (* -1/8 (/ (* (pow D 6) (* (pow M 4) (* (pow h 3) (pow w 3)))) (* (pow c0 3) (pow d 8)))) (+ (* -1/16 (/ (* (pow D 10) (* (pow M 6) (* (pow h 5) (pow w 5)))) (* (pow c0 5) (pow d 12)))) (/ c0 (* (pow D 2) (* h w)))))))))
#s(approx (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)) #s(hole binary64 (* (pow d 4) (+ (* -1 (/ (pow M 2) (pow d 4))) (/ (pow c0 2) (* (pow D 4) (* (pow h 2) (pow w 2))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h (pow w 2)))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (+ (* (pow M 2) (+ (* -1/4 (/ (* (pow D 2) h) (pow d 2))) (* -1/16 (/ (* (pow D 6) (* (pow M 2) (* (pow h 3) (pow w 2)))) (* (pow c0 2) (pow d 6)))))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h (pow w 2)))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (+ (* (pow M 2) (+ (* -1/4 (/ (* (pow D 2) h) (pow d 2))) (* (pow M 2) (+ (* -1/16 (/ (* (pow D 6) (* (pow h 3) (pow w 2))) (* (pow c0 2) (pow d 6)))) (* -1/32 (/ (* (pow D 10) (* (pow M 2) (* (pow h 5) (pow w 4)))) (* (pow c0 4) (pow d 10)))))))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h (pow w 2)))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h w))) (* c0 (pow d 2)))) (* 2 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (+ (* 2 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (* (pow M 2) (+ (* -1/2 (/ (* (pow D 2) (* h w)) (* c0 (pow d 2)))) (* -1/8 (/ (* (pow D 6) (* (pow M 2) (* (pow h 3) (pow w 3)))) (* (pow c0 3) (pow d 6)))))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (+ (* 2 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (* (pow M 2) (+ (* -1/2 (/ (* (pow D 2) (* h w)) (* c0 (pow d 2)))) (* (pow M 2) (+ (* -1/8 (/ (* (pow D 6) (* (pow h 3) (pow w 3))) (* (pow c0 3) (pow d 6)))) (* -1/16 (/ (* (pow D 10) (* (pow M 2) (* (pow h 5) (pow w 5)))) (* (pow c0 5) (pow d 10)))))))))))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) #s(hole binary64 (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h w))) (* c0 (pow d 2)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) #s(hole binary64 (+ (* (pow M 2) (+ (* -1/2 (/ (* (pow D 2) (* h w)) (* c0 (pow d 2)))) (* -1/8 (/ (* (pow D 6) (* (pow M 2) (* (pow h 3) (pow w 3)))) (* (pow c0 3) (pow d 6)))))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) #s(hole binary64 (+ (* (pow M 2) (+ (* -1/2 (/ (* (pow D 2) (* h w)) (* c0 (pow d 2)))) (* (pow M 2) (+ (* -1/8 (/ (* (pow D 6) (* (pow h 3) (pow w 3))) (* (pow c0 3) (pow d 6)))) (* -1/16 (/ (* (pow D 10) (* (pow M 2) (* (pow h 5) (pow w 5)))) (* (pow c0 5) (pow d 10)))))))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))))
#s(approx (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)) #s(hole binary64 (+ (* -1 (pow M 2)) (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow h 2) (pow w 2)))))))
#s(approx (* M M) #s(hole binary64 (pow M 2)))
#s(approx M #s(hole binary64 M))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* M (+ (* 1/2 (/ (* c0 (sqrt -1)) w)) (* 1/2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* M (* h (pow w 2))))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* M (+ (* 1/4 (/ (* (pow c0 3) (pow d 4)) (* (pow D 4) (* (pow M 2) (* (pow h 2) (* (pow w 3) (sqrt -1))))))) (+ (* 1/2 (/ (* c0 (sqrt -1)) w)) (* 1/2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* M (* h (pow w 2)))))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* M (+ (* -1/16 (/ (* (pow c0 5) (pow d 8)) (* (pow D 8) (* (pow M 4) (* (pow h 4) (* (pow w 5) (pow (sqrt -1) 3))))))) (+ (* 1/4 (/ (* (pow c0 3) (pow d 4)) (* (pow D 4) (* (pow M 2) (* (pow h 2) (* (pow w 3) (sqrt -1))))))) (+ (* 1/2 (/ (* c0 (sqrt -1)) w)) (* 1/2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* M (* h (pow w 2))))))))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (* M (+ (sqrt -1) (/ (* c0 (pow d 2)) (* (pow D 2) (* M (* h w))))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (* M (+ (sqrt -1) (+ (* 1/2 (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow M 2) (* (pow h 2) (* (pow w 2) (sqrt -1))))))) (/ (* c0 (pow d 2)) (* (pow D 2) (* M (* h w)))))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (* M (+ (sqrt -1) (+ (* -1/8 (/ (* (pow c0 4) (pow d 8)) (* (pow D 8) (* (pow M 4) (* (pow h 4) (* (pow w 4) (pow (sqrt -1) 3))))))) (+ (* 1/2 (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow M 2) (* (pow h 2) (* (pow w 2) (sqrt -1))))))) (/ (* c0 (pow d 2)) (* (pow D 2) (* M (* h w))))))))))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) #s(hole binary64 (* M (+ (sqrt -1) (* 1/2 (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow M 2) (* (pow h 2) (* (pow w 2) (sqrt -1)))))))))))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) #s(hole binary64 (* M (+ (sqrt -1) (+ (* -1/8 (/ (* (pow c0 4) (pow d 8)) (* (pow D 8) (* (pow M 4) (* (pow h 4) (* (pow w 4) (pow (sqrt -1) 3))))))) (* 1/2 (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow M 2) (* (pow h 2) (* (pow w 2) (sqrt -1))))))))))))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) #s(hole binary64 (* M (+ (sqrt -1) (+ (* -1/8 (/ (* (pow c0 4) (pow d 8)) (* (pow D 8) (* (pow M 4) (* (pow h 4) (* (pow w 4) (pow (sqrt -1) 3))))))) (+ (* 1/16 (/ (* (pow c0 6) (pow d 12)) (* (pow D 12) (* (pow M 6) (* (pow h 6) (* (pow w 6) (pow (sqrt -1) 5))))))) (* 1/2 (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow M 2) (* (pow h 2) (* (pow w 2) (sqrt -1)))))))))))))
#s(approx (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)) #s(hole binary64 (* (pow M 2) (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow M 2) (* (pow h 2) (pow w 2))))) 1))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* -1/2 (/ (* M (* c0 (sqrt -1))) w))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* -1 (* M (+ (* -1/2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* M (* h (pow w 2)))))) (* 1/2 (/ (* c0 (sqrt -1)) w)))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* -1 (* M (+ (* -1 (/ (+ (* -1/4 (/ (* (pow c0 3) (pow d 4)) (* (pow D 4) (* M (* (pow h 2) (* (pow w 3) (sqrt -1))))))) (* 1/2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h (pow w 2)))))) M)) (* 1/2 (/ (* c0 (sqrt -1)) w)))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* -1 (* M (+ (* -1 (/ (+ (* -1 (/ (+ (* -1/16 (/ (* (pow c0 5) (pow d 8)) (* (pow D 8) (* (pow M 2) (* (pow h 4) (* (pow w 5) (pow (sqrt -1) 3))))))) (* 1/4 (/ (* (pow c0 3) (pow d 4)) (* (pow D 4) (* (pow h 2) (* (pow w 3) (sqrt -1))))))) M)) (* 1/2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h (pow w 2)))))) M)) (* 1/2 (/ (* c0 (sqrt -1)) w)))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (* -1 (* M (sqrt -1)))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (* -1 (* M (+ (sqrt -1) (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* M (* h w))))))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (* -1 (* M (+ (sqrt -1) (* -1 (/ (+ (* -1/2 (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* M (* (pow h 2) (* (pow w 2) (sqrt -1))))))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) M)))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (* -1 (* M (+ (sqrt -1) (* -1 (/ (+ (* -1 (/ (+ (* -1/8 (/ (* (pow c0 4) (pow d 8)) (* (pow D 8) (* (pow M 2) (* (pow h 4) (* (pow w 4) (pow (sqrt -1) 3))))))) (* 1/2 (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow h 2) (* (pow w 2) (sqrt -1))))))) M)) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) M)))))))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) #s(hole binary64 (* -1 (* M (sqrt -1)))))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) #s(hole binary64 (* -1 (* M (+ (sqrt -1) (* 1/2 (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow M 2) (* (pow h 2) (* (pow w 2) (sqrt -1))))))))))))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) #s(hole binary64 (* -1 (* M (+ (sqrt -1) (+ (* -1/8 (/ (* (pow c0 4) (pow d 8)) (* (pow D 8) (* (pow M 4) (* (pow h 4) (* (pow w 4) (pow (sqrt -1) 3))))))) (* 1/2 (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow M 2) (* (pow h 2) (* (pow w 2) (sqrt -1)))))))))))))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) #s(hole binary64 (* -1 (* M (+ (sqrt -1) (+ (* -1/8 (/ (* (pow c0 4) (pow d 8)) (* (pow D 8) (* (pow M 4) (* (pow h 4) (* (pow w 4) (pow (sqrt -1) 3))))))) (+ (* 1/16 (/ (* (pow c0 6) (pow d 12)) (* (pow D 12) (* (pow M 6) (* (pow h 6) (* (pow w 6) (pow (sqrt -1) 5))))))) (* 1/2 (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow M 2) (* (pow h 2) (* (pow w 2) (sqrt -1))))))))))))))

Calls

18 calls:

Time	Variable		Point	Expression
37.0ms	D	@	-inf	((* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (/ c0 (* 2 w)) c0 (* 2 w) 2 w (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (/ (* c0 (* d d)) (* (* w h) (* D D))) (* c0 (* d d)) (* d d) d (* (* w h) (* D D)) (* w h) h (* D D) D (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)) (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M) M)
24.0ms	w	@	0	((* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (/ c0 (* 2 w)) c0 (* 2 w) 2 w (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (/ (* c0 (* d d)) (* (* w h) (* D D))) (* c0 (* d d)) (* d d) d (* (* w h) (* D D)) (* w h) h (* D D) D (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)) (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M) M)
9.0ms	c0	@	0	((* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (/ c0 (* 2 w)) c0 (* 2 w) 2 w (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (/ (* c0 (* d d)) (* (* w h) (* D D))) (* c0 (* d d)) (* d d) d (* (* w h) (* D D)) (* w h) h (* D D) D (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)) (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M) M)
8.0ms	c0	@	inf	((* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (/ c0 (* 2 w)) c0 (* 2 w) 2 w (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (/ (* c0 (* d d)) (* (* w h) (* D D))) (* c0 (* d d)) (* d d) d (* (* w h) (* D D)) (* w h) h (* D D) D (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)) (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M) M)
7.0ms	w	@	-inf	((* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (/ c0 (* 2 w)) c0 (* 2 w) 2 w (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (/ (* c0 (* d d)) (* (* w h) (* D D))) (* c0 (* d d)) (* d d) d (* (* w h) (* D D)) (* w h) h (* D D) D (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)) (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M) M)

rewrite214.0ms (1.3%)

Memory

1.0MiB live, 231.2MiB allocated; 23ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	1056	13977
0	1078	11750
1	6379	11750
0	8039	9786

Stop Event

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

Counts

174 → 236

Calls

Call 1

Inputs
(.f64 (/.f64 c0 (.f64 #s(literal 2 binary64) w)) (+.f64 (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 w h) (.f64 D D))) (sqrt.f64 (-.f64 (.f64 (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 w h) (.f64 D D))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 w h) (.f64 D D)))) (*.f64 M M)))))
(/.f64 c0 (*.f64 #s(literal 2 binary64) w))
c0
(*.f64 #s(literal 2 binary64) w)
#s(literal 2 binary64)
w
(+.f64 (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 w h) (.f64 D D))) (sqrt.f64 (-.f64 (.f64 (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 w h) (.f64 D D))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 w h) (.f64 D D)))) (*.f64 M M))))
(/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 w h) (*.f64 D D)))
(.f64 c0 (.f64 d d))
(*.f64 d d)
d
(.f64 (.f64 w h) (*.f64 D D))
(*.f64 w h)
h
(*.f64 D D)
D
(sqrt.f64 (-.f64 (.f64 (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 w h) (.f64 D D))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 w h) (.f64 D D)))) (.f64 M M)))
(-.f64 (.f64 (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 w h) (.f64 D D))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 w h) (.f64 D D)))) (.f64 M M))
(.f64 (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 w h) (.f64 D D))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 w h) (*.f64 D D))))
(*.f64 M M)
M
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* 1/2 (/ (* M (* c0 (sqrt -1))) w))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* c0 (+ (* 1/2 (/ (* M (sqrt -1)) w)) (* 1/2 (/ (* c0 (pow d 2)) (* (pow D 2) (* h (pow w 2)))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* c0 (+ (* 1/2 (/ (* M (sqrt -1)) w)) (* c0 (+ (* 1/4 (/ (* c0 (pow d 4)) (* (pow D 4) (* M (* (pow h 2) (* (pow w 3) (sqrt -1))))))) (* 1/2 (/ (pow d 2) (* (pow D 2) (* h (pow w 2)))))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* c0 (+ (* 1/2 (/ (* M (sqrt -1)) w)) (* c0 (+ (* 1/2 (/ (pow d 2) (* (pow D 2) (* h (pow w 2))))) (* c0 (+ (* -1/16 (/ (* (pow c0 2) (pow d 8)) (* (pow D 8) (* (pow M 3) (* (pow h 4) (* (pow w 5) (pow (sqrt -1) 3))))))) (* 1/4 (/ (pow d 4) (* (pow D 4) (* M (* (pow h 2) (* (pow w 3) (sqrt -1)))))))))))))))
#s(approx (/ c0 (* 2 w)) #s(hole binary64 (* 1/2 (/ c0 w))))
#s(approx c0 #s(hole binary64 c0))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (* M (sqrt -1))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (+ (* M (sqrt -1)) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (+ (* M (sqrt -1)) (* c0 (+ (* 1/2 (/ (* c0 (pow d 4)) (* (pow D 4) (* M (* (pow h 2) (* (pow w 2) (sqrt -1))))))) (/ (pow d 2) (* (pow D 2) (* h w))))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (+ (* M (sqrt -1)) (* c0 (+ (* c0 (+ (* -1/8 (/ (* (pow c0 2) (pow d 8)) (* (pow D 8) (* (pow M 3) (* (pow h 4) (* (pow w 4) (pow (sqrt -1) 3))))))) (* 1/2 (/ (pow d 4) (* (pow D 4) (* M (* (pow h 2) (* (pow w 2) (sqrt -1))))))))) (/ (pow d 2) (* (pow D 2) (* h w))))))))
#s(approx (/ (* c0 (* d d)) (* (* w h) (* D D))) #s(hole binary64 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))))
#s(approx (* c0 (* d d)) #s(hole binary64 (* c0 (pow d 2))))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) #s(hole binary64 (* M (sqrt -1))))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) #s(hole binary64 (+ (* 1/2 (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* M (* (pow h 2) (* (pow w 2) (sqrt -1))))))) (* M (sqrt -1)))))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) #s(hole binary64 (+ (* M (sqrt -1)) (* (pow c0 2) (+ (* -1/8 (/ (* (pow c0 2) (pow d 8)) (* (pow D 8) (* (pow M 3) (* (pow h 4) (* (pow w 4) (pow (sqrt -1) 3))))))) (* 1/2 (/ (pow d 4) (* (pow D 4) (* M (* (pow h 2) (* (pow w 2) (sqrt -1))))))))))))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) #s(hole binary64 (+ (* M (sqrt -1)) (* (pow c0 2) (+ (* 1/2 (/ (pow d 4) (* (pow D 4) (* M (* (pow h 2) (* (pow w 2) (sqrt -1))))))) (* (pow c0 2) (+ (* -1/8 (/ (pow d 8) (* (pow D 8) (* (pow M 3) (* (pow h 4) (* (pow w 4) (pow (sqrt -1) 3))))))) (* 1/16 (/ (* (pow c0 2) (pow d 12)) (* (pow D 12) (* (pow M 5) (* (pow h 6) (* (pow w 6) (pow (sqrt -1) 5))))))))))))))
#s(approx (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)) #s(hole binary64 (* -1 (pow M 2))))
#s(approx (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)) #s(hole binary64 (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow h 2) (pow w 2)))) (pow M 2))))
#s(approx (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) #s(hole binary64 (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow h 2) (pow w 2))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h (pow w 2))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* (pow c0 2) (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow c0 2) (pow d 2)))) (/ (pow d 2) (* (pow D 2) (* h (pow w 2))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* (pow c0 2) (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow c0 2) (pow d 2)))) (+ (* -1/16 (/ (* (pow D 6) (* (pow M 4) (* (pow h 3) (pow w 2)))) (* (pow c0 4) (pow d 6)))) (/ (pow d 2) (* (pow D 2) (* h (pow w 2)))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* (pow c0 2) (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow c0 2) (pow d 2)))) (+ (* -1/16 (/ (* (pow D 6) (* (pow M 4) (* (pow h 3) (pow w 2)))) (* (pow c0 4) (pow d 6)))) (+ (* -1/32 (/ (* (pow D 10) (* (pow M 6) (* (pow h 5) (pow w 4)))) (* (pow c0 6) (pow d 10)))) (/ (pow d 2) (* (pow D 2) (* h (pow w 2))))))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (* 2 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (* c0 (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h w))) (* (pow c0 2) (pow d 2)))) (* 2 (/ (pow d 2) (* (pow D 2) (* h w))))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (* c0 (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h w))) (* (pow c0 2) (pow d 2)))) (+ (* -1/8 (/ (* (pow D 6) (* (pow M 4) (* (pow h 3) (pow w 3)))) (* (pow c0 4) (pow d 6)))) (* 2 (/ (pow d 2) (* (pow D 2) (* h w)))))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (* c0 (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h w))) (* (pow c0 2) (pow d 2)))) (+ (* -1/8 (/ (* (pow D 6) (* (pow M 4) (* (pow h 3) (pow w 3)))) (* (pow c0 4) (pow d 6)))) (+ (* -1/16 (/ (* (pow D 10) (* (pow M 6) (* (pow h 5) (pow w 5)))) (* (pow c0 6) (pow d 10)))) (* 2 (/ (pow d 2) (* (pow D 2) (* h w))))))))))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) #s(hole binary64 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) #s(hole binary64 (* c0 (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h w))) (* (pow c0 2) (pow d 2)))) (/ (pow d 2) (* (pow D 2) (* h w)))))))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) #s(hole binary64 (* c0 (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h w))) (* (pow c0 2) (pow d 2)))) (+ (* -1/8 (/ (* (pow D 6) (* (pow M 4) (* (pow h 3) (pow w 3)))) (* (pow c0 4) (pow d 6)))) (/ (pow d 2) (* (pow D 2) (* h w))))))))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) #s(hole binary64 (* c0 (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h w))) (* (pow c0 2) (pow d 2)))) (+ (* -1/8 (/ (* (pow D 6) (* (pow M 4) (* (pow h 3) (pow w 3)))) (* (pow c0 4) (pow d 6)))) (+ (* -1/16 (/ (* (pow D 10) (* (pow M 6) (* (pow h 5) (pow w 5)))) (* (pow c0 6) (pow d 10)))) (/ (pow d 2) (* (pow D 2) (* h w)))))))))
#s(approx (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)) #s(hole binary64 (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow h 2) (pow w 2))))))
#s(approx (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)) #s(hole binary64 (* (pow c0 2) (+ (* -1 (/ (pow M 2) (pow c0 2))) (/ (pow d 4) (* (pow D 4) (* (pow h 2) (pow w 2))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* -1/2 (/ (* (pow c0 2) (+ (* -1 (/ (pow d 2) (* (pow D 2) (* h w)))) (/ (pow d 2) (* (pow D 2) (* h w))))) w))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* (pow c0 2) (+ (* -1/2 (/ (+ (* -1 (/ (pow d 2) (* (pow D 2) (* h w)))) (/ (pow d 2) (* (pow D 2) (* h w)))) w)) (* 1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow c0 2) (pow d 2))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* (pow c0 2) (+ (* -1/2 (/ (+ (* -1 (/ (pow d 2) (* (pow D 2) (* h w)))) (/ (pow d 2) (* (pow D 2) (* h w)))) w)) (+ (* 1/16 (/ (* (pow D 6) (* (pow M 4) (* (pow h 3) (pow w 2)))) (* (pow c0 4) (pow d 6)))) (* 1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow c0 2) (pow d 2)))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* (pow c0 2) (+ (* -1/2 (/ (+ (* -1 (/ (pow d 2) (* (pow D 2) (* h w)))) (/ (pow d 2) (* (pow D 2) (* h w)))) w)) (+ (* 1/32 (/ (* (pow D 10) (* (pow M 6) (* (pow h 5) (pow w 4)))) (* (pow c0 6) (pow d 10)))) (+ (* 1/16 (/ (* (pow D 6) (* (pow M 4) (* (pow h 3) (pow w 2)))) (* (pow c0 4) (pow d 6)))) (* 1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow c0 2) (pow d 2))))))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (* -1 (* c0 (+ (* -1 (/ (pow d 2) (* (pow D 2) (* h w)))) (/ (pow d 2) (* (pow D 2) (* h w))))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (* -1 (* c0 (+ (* -1 (/ (pow d 2) (* (pow D 2) (* h w)))) (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h w))) (* (pow c0 2) (pow d 2)))) (/ (pow d 2) (* (pow D 2) (* h w)))))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (* -1 (* c0 (+ (* -1 (/ (pow d 2) (* (pow D 2) (* h w)))) (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h w))) (* (pow c0 2) (pow d 2)))) (+ (* -1/8 (/ (* (pow D 6) (* (pow M 4) (* (pow h 3) (pow w 3)))) (* (pow c0 4) (pow d 6)))) (/ (pow d 2) (* (pow D 2) (* h w))))))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (* -1 (* c0 (+ (* -1 (/ (pow d 2) (* (pow D 2) (* h w)))) (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h w))) (* (pow c0 2) (pow d 2)))) (+ (* -1/8 (/ (* (pow D 6) (* (pow M 4) (* (pow h 3) (pow w 3)))) (* (pow c0 4) (pow d 6)))) (+ (* -1/16 (/ (* (pow D 10) (* (pow M 6) (* (pow h 5) (pow w 5)))) (* (pow c0 6) (pow d 10)))) (/ (pow d 2) (* (pow D 2) (* h w)))))))))))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) #s(hole binary64 (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) #s(hole binary64 (* -1 (* c0 (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h w))) (* (pow c0 2) (pow d 2)))) (/ (pow d 2) (* (pow D 2) (* h w))))))))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) #s(hole binary64 (* -1 (* c0 (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h w))) (* (pow c0 2) (pow d 2)))) (+ (* -1/8 (/ (* (pow D 6) (* (pow M 4) (* (pow h 3) (pow w 3)))) (* (pow c0 4) (pow d 6)))) (/ (pow d 2) (* (pow D 2) (* h w)))))))))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) #s(hole binary64 (* -1 (* c0 (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h w))) (* (pow c0 2) (pow d 2)))) (+ (* -1/8 (/ (* (pow D 6) (* (pow M 4) (* (pow h 3) (pow w 3)))) (* (pow c0 4) (pow d 6)))) (+ (* -1/16 (/ (* (pow D 10) (* (pow M 6) (* (pow h 5) (pow w 5)))) (* (pow c0 6) (pow d 10)))) (/ (pow d 2) (* (pow D 2) (* h w))))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (/ (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (* h (pow w 2)))) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) h))) (pow w 2))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (/ (+ (* (pow w 2) (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2))) (* -1/16 (/ (* (pow D 6) (* (pow M 4) (* (pow h 3) (pow w 2)))) (* (pow c0 2) (pow d 6)))))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) h))) (pow w 2))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (/ (+ (* (pow w 2) (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2))) (* (pow w 2) (+ (* -1/16 (/ (* (pow D 6) (* (pow M 4) (pow h 3))) (* (pow c0 2) (pow d 6)))) (* -1/32 (/ (* (pow D 10) (* (pow M 6) (* (pow h 5) (pow w 2)))) (* (pow c0 4) (pow d 10)))))))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) h))) (pow w 2))))
#s(approx (* 2 w) #s(hole binary64 (* 2 w)))
#s(approx w #s(hole binary64 w))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (/ (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h (pow w 2)))) (* c0 (pow d 2)))) (* 2 (/ (* c0 (pow d 2)) (* (pow D 2) h)))) w)))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (/ (+ (* 2 (/ (* c0 (pow d 2)) (* (pow D 2) h))) (* (pow w 2) (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) h)) (* c0 (pow d 2)))) (* -1/8 (/ (* (pow D 6) (* (pow M 4) (* (pow h 3) (pow w 2)))) (* (pow c0 3) (pow d 6))))))) w)))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (/ (+ (* 2 (/ (* c0 (pow d 2)) (* (pow D 2) h))) (* (pow w 2) (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) h)) (* c0 (pow d 2)))) (* (pow w 2) (+ (* -1/8 (/ (* (pow D 6) (* (pow M 4) (pow h 3))) (* (pow c0 3) (pow d 6)))) (* -1/16 (/ (* (pow D 10) (* (pow M 6) (* (pow h 5) (pow w 2)))) (* (pow c0 5) (pow d 10))))))))) w)))
#s(approx (* (* w h) (* D D)) #s(hole binary64 (* (pow D 2) (* h w))))
#s(approx (* w h) #s(hole binary64 (* h w)))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) #s(hole binary64 (/ (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h (pow w 2)))) (* c0 (pow d 2)))) (/ (* c0 (pow d 2)) (* (pow D 2) h))) w)))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) #s(hole binary64 (/ (+ (* (pow w 2) (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) h)) (* c0 (pow d 2)))) (* -1/8 (/ (* (pow D 6) (* (pow M 4) (* (pow h 3) (pow w 2)))) (* (pow c0 3) (pow d 6)))))) (/ (* c0 (pow d 2)) (* (pow D 2) h))) w)))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) #s(hole binary64 (/ (+ (* (pow w 2) (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) h)) (* c0 (pow d 2)))) (* (pow w 2) (+ (* -1/8 (/ (* (pow D 6) (* (pow M 4) (pow h 3))) (* (pow c0 3) (pow d 6)))) (* -1/16 (/ (* (pow D 10) (* (pow M 6) (* (pow h 5) (pow w 2)))) (* (pow c0 5) (pow d 10)))))))) (/ (* c0 (pow d 2)) (* (pow D 2) h))) w)))
#s(approx (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)) #s(hole binary64 (/ (+ (* -1 (* (pow M 2) (pow w 2))) (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow h 2)))) (pow w 2))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (/ (+ (* 1/2 (* M (* c0 (sqrt -1)))) (* 1/2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h w))))) w)))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (/ (+ (* 1/4 (/ (* (pow c0 3) (pow d 4)) (* (pow D 4) (* M (* (pow h 2) (* (pow w 2) (sqrt -1))))))) (+ (* 1/2 (* M (* c0 (sqrt -1)))) (* 1/2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h w)))))) w)))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (/ (+ (* -1/16 (/ (* (pow c0 5) (pow d 8)) (* (pow D 8) (* (pow M 3) (* (pow h 4) (* (pow w 4) (pow (sqrt -1) 3))))))) (+ (* 1/4 (/ (* (pow c0 3) (pow d 4)) (* (pow D 4) (* M (* (pow h 2) (* (pow w 2) (sqrt -1))))))) (+ (* 1/2 (* M (* c0 (sqrt -1)))) (* 1/2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h w))))))) w)))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (+ (* 1/2 (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* M (* (pow h 2) (* (pow w 2) (sqrt -1))))))) (+ (* M (sqrt -1)) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (+ (* -1/8 (/ (* (pow c0 4) (pow d 8)) (* (pow D 8) (* (pow M 3) (* (pow h 4) (* (pow w 4) (pow (sqrt -1) 3))))))) (+ (* 1/2 (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* M (* (pow h 2) (* (pow w 2) (sqrt -1))))))) (+ (* M (sqrt -1)) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))))))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) #s(hole binary64 (+ (* -1/8 (/ (* (pow c0 4) (pow d 8)) (* (pow D 8) (* (pow M 3) (* (pow h 4) (* (pow w 4) (pow (sqrt -1) 3))))))) (+ (* 1/2 (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* M (* (pow h 2) (* (pow w 2) (sqrt -1))))))) (* M (sqrt -1))))))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) #s(hole binary64 (+ (* -1/8 (/ (* (pow c0 4) (pow d 8)) (* (pow D 8) (* (pow M 3) (* (pow h 4) (* (pow w 4) (pow (sqrt -1) 3))))))) (+ (* 1/16 (/ (* (pow c0 6) (pow d 12)) (* (pow D 12) (* (pow M 5) (* (pow h 6) (* (pow w 6) (pow (sqrt -1) 5))))))) (+ (* 1/2 (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* M (* (pow h 2) (* (pow w 2) (sqrt -1))))))) (* M (sqrt -1)))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* -1 (/ (+ (* -1/2 (* M (* c0 (sqrt -1)))) (* -1/2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h w))))) w))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (+ (* 1/4 (/ (* (pow c0 3) (pow d 4)) (* (pow D 4) (* M (* (pow h 2) (* w (sqrt -1))))))) (* 1/2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) h)))) w)) (* -1/2 (* M (* c0 (sqrt -1))))) w))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (+ (* -1 (/ (+ (* -1/4 (/ (* (pow c0 3) (pow d 4)) (* (pow D 4) (* M (* (pow h 2) (sqrt -1)))))) (* 1/16 (/ (* (pow c0 5) (pow d 8)) (* (pow D 8) (* (pow M 3) (* (pow h 4) (* (pow w 2) (pow (sqrt -1) 3)))))))) w)) (* 1/2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) h)))) w)) (* -1/2 (* M (* c0 (sqrt -1))))) w))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) h))) (* -1/2 (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* M (* (pow h 2) (* w (sqrt -1)))))))) w)) (* M (sqrt -1)))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) h))) (* -1 (/ (+ (* -1/8 (/ (* (pow c0 4) (pow d 8)) (* (pow D 8) (* (pow M 3) (* (pow h 4) (* (pow w 2) (pow (sqrt -1) 3))))))) (* 1/2 (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* M (* (pow h 2) (sqrt -1))))))) w))) w)) (* M (sqrt -1)))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (/ (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (pow h 2))) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (pow w 2)))) h)))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (/ (+ (* (pow h 2) (+ (* -1/4 (/ (* (pow D 2) (pow M 2)) (pow d 2))) (* -1/16 (/ (* (pow D 6) (* (pow M 4) (* (pow h 2) (pow w 2)))) (* (pow c0 2) (pow d 6)))))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (pow w 2)))) h)))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (/ (+ (* (pow h 2) (+ (* -1/4 (/ (* (pow D 2) (pow M 2)) (pow d 2))) (* (pow h 2) (+ (* -1/16 (/ (* (pow D 6) (* (pow M 4) (pow w 2))) (* (pow c0 2) (pow d 6)))) (* -1/32 (/ (* (pow D 10) (* (pow M 6) (* (pow h 2) (pow w 4)))) (* (pow c0 4) (pow d 10)))))))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (pow w 2)))) h)))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (/ (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* (pow h 2) w))) (* c0 (pow d 2)))) (* 2 (/ (* c0 (pow d 2)) (* (pow D 2) w)))) h)))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (/ (+ (* 2 (/ (* c0 (pow d 2)) (* (pow D 2) w))) (* (pow h 2) (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) w)) (* c0 (pow d 2)))) (* -1/8 (/ (* (pow D 6) (* (pow M 4) (* (pow h 2) (pow w 3)))) (* (pow c0 3) (pow d 6))))))) h)))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (/ (+ (* 2 (/ (* c0 (pow d 2)) (* (pow D 2) w))) (* (pow h 2) (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) w)) (* c0 (pow d 2)))) (* (pow h 2) (+ (* -1/8 (/ (* (pow D 6) (* (pow M 4) (pow w 3))) (* (pow c0 3) (pow d 6)))) (* -1/16 (/ (* (pow D 10) (* (pow M 6) (* (pow h 2) (pow w 5)))) (* (pow c0 5) (pow d 10))))))))) h)))
#s(approx h #s(hole binary64 h))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) #s(hole binary64 (/ (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* (pow h 2) w))) (* c0 (pow d 2)))) (/ (* c0 (pow d 2)) (* (pow D 2) w))) h)))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) #s(hole binary64 (/ (+ (* (pow h 2) (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) w)) (* c0 (pow d 2)))) (* -1/8 (/ (* (pow D 6) (* (pow M 4) (* (pow h 2) (pow w 3)))) (* (pow c0 3) (pow d 6)))))) (/ (* c0 (pow d 2)) (* (pow D 2) w))) h)))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) #s(hole binary64 (/ (+ (* (pow h 2) (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) w)) (* c0 (pow d 2)))) (* (pow h 2) (+ (* -1/8 (/ (* (pow D 6) (* (pow M 4) (pow w 3))) (* (pow c0 3) (pow d 6)))) (* -1/16 (/ (* (pow D 10) (* (pow M 6) (* (pow h 2) (pow w 5)))) (* (pow c0 5) (pow d 10)))))))) (/ (* c0 (pow d 2)) (* (pow D 2) w))) h)))
#s(approx (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)) #s(hole binary64 (/ (+ (* -1 (* (pow M 2) (pow h 2))) (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow w 2)))) (pow h 2))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (+ (* 1/2 (/ (* M (* c0 (sqrt -1))) w)) (* 1/2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h (pow w 2))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (+ (* 1/4 (/ (* (pow c0 3) (pow d 4)) (* (pow D 4) (* M (* (pow h 2) (* (pow w 3) (sqrt -1))))))) (+ (* 1/2 (/ (* M (* c0 (sqrt -1))) w)) (* 1/2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h (pow w 2)))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (+ (* -1/16 (/ (* (pow c0 5) (pow d 8)) (* (pow D 8) (* (pow M 3) (* (pow h 4) (* (pow w 5) (pow (sqrt -1) 3))))))) (+ (* 1/4 (/ (* (pow c0 3) (pow d 4)) (* (pow D 4) (* M (* (pow h 2) (* (pow w 3) (sqrt -1))))))) (+ (* 1/2 (/ (* M (* c0 (sqrt -1))) w)) (* 1/2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h (pow w 2))))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (pow w 2)))) (* -1/4 (/ (* (pow c0 3) (pow d 4)) (* (pow D 4) (* M (* h (* (pow w 3) (sqrt -1)))))))) h)) (* 1/2 (/ (* M (* c0 (sqrt -1))) w)))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (+ (* -1 (/ (+ (* -1 (/ (+ (* -1/16 (/ (* (pow c0 5) (pow d 8)) (* (pow D 8) (* (pow M 3) (* (pow h 2) (* (pow w 5) (pow (sqrt -1) 3))))))) (* 1/4 (/ (* (pow c0 3) (pow d 4)) (* (pow D 4) (* M (* (pow w 3) (sqrt -1))))))) h)) (* -1/2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (pow w 2))))) h)) (* 1/2 (/ (* M (* c0 (sqrt -1))) w)))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) w))) (* -1/2 (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* M (* h (* (pow w 2) (sqrt -1)))))))) h)) (* M (sqrt -1)))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) w))) (* -1 (/ (+ (* -1/8 (/ (* (pow c0 4) (pow d 8)) (* (pow D 8) (* (pow M 3) (* (pow h 2) (* (pow w 4) (pow (sqrt -1) 3))))))) (* 1/2 (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* M (* (pow w 2) (sqrt -1))))))) h))) h)) (* M (sqrt -1)))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (/ (+ (* -1/4 (/ (* (pow D 4) (* (pow M 2) h)) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) (* h (pow w 2)))) (pow D 2))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (/ (+ (* (pow D 4) (+ (* -1/4 (/ (* (pow M 2) h) (pow d 2))) (* -1/16 (/ (* (pow D 4) (* (pow M 4) (* (pow h 3) (pow w 2)))) (* (pow c0 2) (pow d 6)))))) (/ (* (pow c0 2) (pow d 2)) (* h (pow w 2)))) (pow D 2))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (/ (+ (* (pow D 4) (+ (* -1/4 (/ (* (pow M 2) h) (pow d 2))) (* (pow D 4) (+ (* -1/16 (/ (* (pow M 4) (* (pow h 3) (pow w 2))) (* (pow c0 2) (pow d 6)))) (* -1/32 (/ (* (pow D 4) (* (pow M 6) (* (pow h 5) (pow w 4)))) (* (pow c0 4) (pow d 10)))))))) (/ (* (pow c0 2) (pow d 2)) (* h (pow w 2)))) (pow D 2))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (/ (+ (* -1/2 (/ (* (pow D 4) (* (pow M 2) (* h w))) (* c0 (pow d 2)))) (* 2 (/ (* c0 (pow d 2)) (* h w)))) (pow D 2))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (/ (+ (* 2 (/ (* c0 (pow d 2)) (* h w))) (* (pow D 4) (+ (* -1/2 (/ (* (pow M 2) (* h w)) (* c0 (pow d 2)))) (* -1/8 (/ (* (pow D 4) (* (pow M 4) (* (pow h 3) (pow w 3)))) (* (pow c0 3) (pow d 6))))))) (pow D 2))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (/ (+ (* 2 (/ (* c0 (pow d 2)) (* h w))) (* (pow D 4) (+ (* -1/2 (/ (* (pow M 2) (* h w)) (* c0 (pow d 2)))) (* (pow D 4) (+ (* -1/8 (/ (* (pow M 4) (* (pow h 3) (pow w 3))) (* (pow c0 3) (pow d 6)))) (* -1/16 (/ (* (pow D 4) (* (pow M 6) (* (pow h 5) (pow w 5)))) (* (pow c0 5) (pow d 10))))))))) (pow D 2))))
#s(approx (* D D) #s(hole binary64 (pow D 2)))
#s(approx D #s(hole binary64 D))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) #s(hole binary64 (/ (+ (* -1/2 (/ (* (pow D 4) (* (pow M 2) (* h w))) (* c0 (pow d 2)))) (/ (* c0 (pow d 2)) (* h w))) (pow D 2))))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) #s(hole binary64 (/ (+ (* (pow D 4) (+ (* -1/2 (/ (* (pow M 2) (* h w)) (* c0 (pow d 2)))) (* -1/8 (/ (* (pow D 4) (* (pow M 4) (* (pow h 3) (pow w 3)))) (* (pow c0 3) (pow d 6)))))) (/ (* c0 (pow d 2)) (* h w))) (pow D 2))))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) #s(hole binary64 (/ (+ (* (pow D 4) (+ (* -1/2 (/ (* (pow M 2) (* h w)) (* c0 (pow d 2)))) (* (pow D 4) (+ (* -1/8 (/ (* (pow M 4) (* (pow h 3) (pow w 3))) (* (pow c0 3) (pow d 6)))) (* -1/16 (/ (* (pow D 4) (* (pow M 6) (* (pow h 5) (pow w 5)))) (* (pow c0 5) (pow d 10)))))))) (/ (* c0 (pow d 2)) (* h w))) (pow D 2))))
#s(approx (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)) #s(hole binary64 (/ (+ (* -1 (* (pow D 4) (pow M 2))) (/ (* (pow c0 2) (pow d 4)) (* (pow h 2) (pow w 2)))) (pow D 4))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (+ (* 1/2 (/ (* M (* c0 (sqrt -1))) w)) (* (pow d 2) (+ (* 1/4 (/ (* (pow c0 3) (pow d 2)) (* (pow D 4) (* M (* (pow h 2) (* (pow w 3) (sqrt -1))))))) (* 1/2 (/ (pow c0 2) (* (pow D 2) (* h (pow w 2))))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (+ (* 1/2 (/ (* M (* c0 (sqrt -1))) w)) (* (pow d 2) (+ (* 1/2 (/ (pow c0 2) (* (pow D 2) (* h (pow w 2))))) (* (pow d 2) (+ (* -1/16 (/ (* (pow c0 5) (pow d 4)) (* (pow D 8) (* (pow M 3) (* (pow h 4) (* (pow w 5) (pow (sqrt -1) 3))))))) (* 1/4 (/ (pow c0 3) (* (pow D 4) (* M (* (pow h 2) (* (pow w 3) (sqrt -1))))))))))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (+ (* M (sqrt -1)) (* (pow d 2) (+ (* 1/2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 4) (* M (* (pow h 2) (* (pow w 2) (sqrt -1))))))) (/ c0 (* (pow D 2) (* h w))))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (+ (* M (sqrt -1)) (* (pow d 2) (+ (* (pow d 2) (+ (* -1/8 (/ (* (pow c0 4) (pow d 4)) (* (pow D 8) (* (pow M 3) (* (pow h 4) (* (pow w 4) (pow (sqrt -1) 3))))))) (* 1/2 (/ (pow c0 2) (* (pow D 4) (* M (* (pow h 2) (* (pow w 2) (sqrt -1))))))))) (/ c0 (* (pow D 2) (* h w))))))))
#s(approx (* d d) #s(hole binary64 (pow d 2)))
#s(approx d #s(hole binary64 d))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) #s(hole binary64 (+ (* M (sqrt -1)) (* (pow d 4) (+ (* -1/8 (/ (* (pow c0 4) (pow d 4)) (* (pow D 8) (* (pow M 3) (* (pow h 4) (* (pow w 4) (pow (sqrt -1) 3))))))) (* 1/2 (/ (pow c0 2) (* (pow D 4) (* M (* (pow h 2) (* (pow w 2) (sqrt -1))))))))))))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) #s(hole binary64 (+ (* M (sqrt -1)) (* (pow d 4) (+ (* 1/2 (/ (pow c0 2) (* (pow D 4) (* M (* (pow h 2) (* (pow w 2) (sqrt -1))))))) (* (pow d 4) (+ (* -1/8 (/ (pow c0 4) (* (pow D 8) (* (pow M 3) (* (pow h 4) (* (pow w 4) (pow (sqrt -1) 3))))))) (* 1/16 (/ (* (pow c0 6) (pow d 4)) (* (pow D 12) (* (pow M 5) (* (pow h 6) (* (pow w 6) (pow (sqrt -1) 5))))))))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* (pow d 2) (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 4))) (/ (pow c0 2) (* (pow D 2) (* h (pow w 2))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* (pow d 2) (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 4))) (+ (* -1/16 (/ (* (pow D 6) (* (pow M 4) (* (pow h 3) (pow w 2)))) (* (pow c0 2) (pow d 8)))) (/ (pow c0 2) (* (pow D 2) (* h (pow w 2)))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* (pow d 2) (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 4))) (+ (* -1/16 (/ (* (pow D 6) (* (pow M 4) (* (pow h 3) (pow w 2)))) (* (pow c0 2) (pow d 8)))) (+ (* -1/32 (/ (* (pow D 10) (* (pow M 6) (* (pow h 5) (pow w 4)))) (* (pow c0 4) (pow d 12)))) (/ (pow c0 2) (* (pow D 2) (* h (pow w 2))))))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (* (pow d 2) (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h w))) (* c0 (pow d 4)))) (* 2 (/ c0 (* (pow D 2) (* h w))))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (* (pow d 2) (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h w))) (* c0 (pow d 4)))) (+ (* -1/8 (/ (* (pow D 6) (* (pow M 4) (* (pow h 3) (pow w 3)))) (* (pow c0 3) (pow d 8)))) (* 2 (/ c0 (* (pow D 2) (* h w)))))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (* (pow d 2) (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h w))) (* c0 (pow d 4)))) (+ (* -1/8 (/ (* (pow D 6) (* (pow M 4) (* (pow h 3) (pow w 3)))) (* (pow c0 3) (pow d 8)))) (+ (* -1/16 (/ (* (pow D 10) (* (pow M 6) (* (pow h 5) (pow w 5)))) (* (pow c0 5) (pow d 12)))) (* 2 (/ c0 (* (pow D 2) (* h w))))))))))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) #s(hole binary64 (* (pow d 2) (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h w))) (* c0 (pow d 4)))) (/ c0 (* (pow D 2) (* h w)))))))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) #s(hole binary64 (* (pow d 2) (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h w))) (* c0 (pow d 4)))) (+ (* -1/8 (/ (* (pow D 6) (* (pow M 4) (* (pow h 3) (pow w 3)))) (* (pow c0 3) (pow d 8)))) (/ c0 (* (pow D 2) (* h w))))))))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) #s(hole binary64 (* (pow d 2) (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h w))) (* c0 (pow d 4)))) (+ (* -1/8 (/ (* (pow D 6) (* (pow M 4) (* (pow h 3) (pow w 3)))) (* (pow c0 3) (pow d 8)))) (+ (* -1/16 (/ (* (pow D 10) (* (pow M 6) (* (pow h 5) (pow w 5)))) (* (pow c0 5) (pow d 12)))) (/ c0 (* (pow D 2) (* h w)))))))))
#s(approx (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)) #s(hole binary64 (* (pow d 4) (+ (* -1 (/ (pow M 2) (pow d 4))) (/ (pow c0 2) (* (pow D 4) (* (pow h 2) (pow w 2))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h (pow w 2)))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (+ (* (pow M 2) (+ (* -1/4 (/ (* (pow D 2) h) (pow d 2))) (* -1/16 (/ (* (pow D 6) (* (pow M 2) (* (pow h 3) (pow w 2)))) (* (pow c0 2) (pow d 6)))))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h (pow w 2)))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (+ (* (pow M 2) (+ (* -1/4 (/ (* (pow D 2) h) (pow d 2))) (* (pow M 2) (+ (* -1/16 (/ (* (pow D 6) (* (pow h 3) (pow w 2))) (* (pow c0 2) (pow d 6)))) (* -1/32 (/ (* (pow D 10) (* (pow M 2) (* (pow h 5) (pow w 4)))) (* (pow c0 4) (pow d 10)))))))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h (pow w 2)))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h w))) (* c0 (pow d 2)))) (* 2 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (+ (* 2 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (* (pow M 2) (+ (* -1/2 (/ (* (pow D 2) (* h w)) (* c0 (pow d 2)))) (* -1/8 (/ (* (pow D 6) (* (pow M 2) (* (pow h 3) (pow w 3)))) (* (pow c0 3) (pow d 6)))))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (+ (* 2 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (* (pow M 2) (+ (* -1/2 (/ (* (pow D 2) (* h w)) (* c0 (pow d 2)))) (* (pow M 2) (+ (* -1/8 (/ (* (pow D 6) (* (pow h 3) (pow w 3))) (* (pow c0 3) (pow d 6)))) (* -1/16 (/ (* (pow D 10) (* (pow M 2) (* (pow h 5) (pow w 5)))) (* (pow c0 5) (pow d 10)))))))))))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) #s(hole binary64 (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h w))) (* c0 (pow d 2)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) #s(hole binary64 (+ (* (pow M 2) (+ (* -1/2 (/ (* (pow D 2) (* h w)) (* c0 (pow d 2)))) (* -1/8 (/ (* (pow D 6) (* (pow M 2) (* (pow h 3) (pow w 3)))) (* (pow c0 3) (pow d 6)))))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) #s(hole binary64 (+ (* (pow M 2) (+ (* -1/2 (/ (* (pow D 2) (* h w)) (* c0 (pow d 2)))) (* (pow M 2) (+ (* -1/8 (/ (* (pow D 6) (* (pow h 3) (pow w 3))) (* (pow c0 3) (pow d 6)))) (* -1/16 (/ (* (pow D 10) (* (pow M 2) (* (pow h 5) (pow w 5)))) (* (pow c0 5) (pow d 10)))))))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))))
#s(approx (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)) #s(hole binary64 (+ (* -1 (pow M 2)) (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow h 2) (pow w 2)))))))
#s(approx (* M M) #s(hole binary64 (pow M 2)))
#s(approx M #s(hole binary64 M))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* M (+ (* 1/2 (/ (* c0 (sqrt -1)) w)) (* 1/2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* M (* h (pow w 2))))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* M (+ (* 1/4 (/ (* (pow c0 3) (pow d 4)) (* (pow D 4) (* (pow M 2) (* (pow h 2) (* (pow w 3) (sqrt -1))))))) (+ (* 1/2 (/ (* c0 (sqrt -1)) w)) (* 1/2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* M (* h (pow w 2)))))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* M (+ (* -1/16 (/ (* (pow c0 5) (pow d 8)) (* (pow D 8) (* (pow M 4) (* (pow h 4) (* (pow w 5) (pow (sqrt -1) 3))))))) (+ (* 1/4 (/ (* (pow c0 3) (pow d 4)) (* (pow D 4) (* (pow M 2) (* (pow h 2) (* (pow w 3) (sqrt -1))))))) (+ (* 1/2 (/ (* c0 (sqrt -1)) w)) (* 1/2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* M (* h (pow w 2))))))))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (* M (+ (sqrt -1) (/ (* c0 (pow d 2)) (* (pow D 2) (* M (* h w))))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (* M (+ (sqrt -1) (+ (* 1/2 (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow M 2) (* (pow h 2) (* (pow w 2) (sqrt -1))))))) (/ (* c0 (pow d 2)) (* (pow D 2) (* M (* h w)))))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (* M (+ (sqrt -1) (+ (* -1/8 (/ (* (pow c0 4) (pow d 8)) (* (pow D 8) (* (pow M 4) (* (pow h 4) (* (pow w 4) (pow (sqrt -1) 3))))))) (+ (* 1/2 (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow M 2) (* (pow h 2) (* (pow w 2) (sqrt -1))))))) (/ (* c0 (pow d 2)) (* (pow D 2) (* M (* h w))))))))))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) #s(hole binary64 (* M (+ (sqrt -1) (* 1/2 (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow M 2) (* (pow h 2) (* (pow w 2) (sqrt -1)))))))))))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) #s(hole binary64 (* M (+ (sqrt -1) (+ (* -1/8 (/ (* (pow c0 4) (pow d 8)) (* (pow D 8) (* (pow M 4) (* (pow h 4) (* (pow w 4) (pow (sqrt -1) 3))))))) (* 1/2 (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow M 2) (* (pow h 2) (* (pow w 2) (sqrt -1))))))))))))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) #s(hole binary64 (* M (+ (sqrt -1) (+ (* -1/8 (/ (* (pow c0 4) (pow d 8)) (* (pow D 8) (* (pow M 4) (* (pow h 4) (* (pow w 4) (pow (sqrt -1) 3))))))) (+ (* 1/16 (/ (* (pow c0 6) (pow d 12)) (* (pow D 12) (* (pow M 6) (* (pow h 6) (* (pow w 6) (pow (sqrt -1) 5))))))) (* 1/2 (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow M 2) (* (pow h 2) (* (pow w 2) (sqrt -1)))))))))))))
#s(approx (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)) #s(hole binary64 (* (pow M 2) (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow M 2) (* (pow h 2) (pow w 2))))) 1))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* -1/2 (/ (* M (* c0 (sqrt -1))) w))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* -1 (* M (+ (* -1/2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* M (* h (pow w 2)))))) (* 1/2 (/ (* c0 (sqrt -1)) w)))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* -1 (* M (+ (* -1 (/ (+ (* -1/4 (/ (* (pow c0 3) (pow d 4)) (* (pow D 4) (* M (* (pow h 2) (* (pow w 3) (sqrt -1))))))) (* 1/2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h (pow w 2)))))) M)) (* 1/2 (/ (* c0 (sqrt -1)) w)))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* -1 (* M (+ (* -1 (/ (+ (* -1 (/ (+ (* -1/16 (/ (* (pow c0 5) (pow d 8)) (* (pow D 8) (* (pow M 2) (* (pow h 4) (* (pow w 5) (pow (sqrt -1) 3))))))) (* 1/4 (/ (* (pow c0 3) (pow d 4)) (* (pow D 4) (* (pow h 2) (* (pow w 3) (sqrt -1))))))) M)) (* 1/2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h (pow w 2)))))) M)) (* 1/2 (/ (* c0 (sqrt -1)) w)))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (* -1 (* M (sqrt -1)))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (* -1 (* M (+ (sqrt -1) (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* M (* h w))))))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (* -1 (* M (+ (sqrt -1) (* -1 (/ (+ (* -1/2 (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* M (* (pow h 2) (* (pow w 2) (sqrt -1))))))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) M)))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (* -1 (* M (+ (sqrt -1) (* -1 (/ (+ (* -1 (/ (+ (* -1/8 (/ (* (pow c0 4) (pow d 8)) (* (pow D 8) (* (pow M 2) (* (pow h 4) (* (pow w 4) (pow (sqrt -1) 3))))))) (* 1/2 (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow h 2) (* (pow w 2) (sqrt -1))))))) M)) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) M)))))))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) #s(hole binary64 (* -1 (* M (sqrt -1)))))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) #s(hole binary64 (* -1 (* M (+ (sqrt -1) (* 1/2 (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow M 2) (* (pow h 2) (* (pow w 2) (sqrt -1))))))))))))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) #s(hole binary64 (* -1 (* M (+ (sqrt -1) (+ (* -1/8 (/ (* (pow c0 4) (pow d 8)) (* (pow D 8) (* (pow M 4) (* (pow h 4) (* (pow w 4) (pow (sqrt -1) 3))))))) (* 1/2 (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow M 2) (* (pow h 2) (* (pow w 2) (sqrt -1)))))))))))))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) #s(hole binary64 (* -1 (* M (+ (sqrt -1) (+ (* -1/8 (/ (* (pow c0 4) (pow d 8)) (* (pow D 8) (* (pow M 4) (* (pow h 4) (* (pow w 4) (pow (sqrt -1) 3))))))) (+ (* 1/16 (/ (* (pow c0 6) (pow d 12)) (* (pow D 12) (* (pow M 6) (* (pow h 6) (* (pow w 6) (pow (sqrt -1) 5))))))) (* 1/2 (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow M 2) (* (pow h 2) (* (pow w 2) (sqrt -1))))))))))))))

Outputs
(.f64 (+.f64 (.f64 (/.f64 c0 (.f64 h w)) (ratio-of-squares.f64 d D)) (sqrt-product.f64 (.f64 (/.f64 c0 (.f64 h w)) (ratio-of-squares.f64 d D)) M)) (/.f64 c0 (.f64 w #s(literal 2 binary64))))
(.f64 (/.f64 c0 (.f64 w #s(literal 2 binary64))) (+.f64 (.f64 (/.f64 c0 (.f64 h w)) (ratio-of-squares.f64 d D)) (sqrt-product.f64 (.f64 (/.f64 c0 (.f64 h w)) (ratio-of-squares.f64 d D)) M)))
(/.f64 (.f64 c0 (+.f64 (.f64 (/.f64 c0 (.f64 h w)) (ratio-of-squares.f64 d D)) (sqrt-product.f64 (.f64 (/.f64 c0 (.f64 h w)) (ratio-of-squares.f64 d D)) M))) (.f64 w #s(literal 2 binary64)))
(+.f64 (.f64 (.f64 (/.f64 c0 (.f64 h w)) (ratio-of-squares.f64 d D)) (/.f64 c0 (.f64 w #s(literal 2 binary64)))) (.f64 (sqrt-product.f64 (.f64 (/.f64 c0 (.f64 h w)) (ratio-of-squares.f64 d D)) M) (/.f64 c0 (.f64 w #s(literal 2 binary64)))))
(+.f64 (.f64 (/.f64 c0 (.f64 w #s(literal 2 binary64))) (.f64 (/.f64 c0 (.f64 h w)) (ratio-of-squares.f64 d D))) (.f64 (/.f64 c0 (.f64 w #s(literal 2 binary64))) (sqrt-product.f64 (.f64 (/.f64 c0 (.f64 h w)) (ratio-of-squares.f64 d D)) M)))
(/.f64 (/.f64 c0 #s(literal 2 binary64)) w)
(/.f64 (neg.f64 c0) (neg.f64 (*.f64 w #s(literal 2 binary64))))
(/.f64 c0 (*.f64 w #s(literal 2 binary64)))
c0
(*.f64 w #s(literal 2 binary64))
(*.f64 #s(literal 2 binary64) w)
(+.f64 w w)
#s(literal 2 binary64)
w
(/.f64 (-.f64 (pow.f64 (.f64 (/.f64 c0 (.f64 h w)) (ratio-of-squares.f64 d D)) #s(literal 2 binary64)) (.f64 (sqrt-product.f64 (.f64 (/.f64 c0 (.f64 h w)) (ratio-of-squares.f64 d D)) M) (sqrt-product.f64 (.f64 (/.f64 c0 (.f64 h w)) (ratio-of-squares.f64 d D)) M))) (-.f64 (.f64 (/.f64 c0 (.f64 h w)) (ratio-of-squares.f64 d D)) (sqrt-product.f64 (.f64 (/.f64 c0 (*.f64 h w)) (ratio-of-squares.f64 d D)) M)))
(/.f64 (+.f64 (pow.f64 (.f64 (/.f64 c0 (.f64 h w)) (ratio-of-squares.f64 d D)) #s(literal 3 binary64)) (pow.f64 (sqrt-product.f64 (.f64 (/.f64 c0 (.f64 h w)) (ratio-of-squares.f64 d D)) M) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (/.f64 c0 (.f64 h w)) (ratio-of-squares.f64 d D)) #s(literal 2 binary64)) (-.f64 (.f64 (sqrt-product.f64 (.f64 (/.f64 c0 (.f64 h w)) (ratio-of-squares.f64 d D)) M) (sqrt-product.f64 (.f64 (/.f64 c0 (.f64 h w)) (ratio-of-squares.f64 d D)) M)) (.f64 (.f64 (/.f64 c0 (.f64 h w)) (ratio-of-squares.f64 d D)) (sqrt-product.f64 (.f64 (/.f64 c0 (.f64 h w)) (ratio-of-squares.f64 d D)) M)))))
(+.f64 (.f64 (/.f64 c0 (.f64 h w)) (ratio-of-squares.f64 d D)) (sqrt-product.f64 (.f64 (/.f64 c0 (.f64 h w)) (ratio-of-squares.f64 d D)) M))
(+.f64 (sqrt-product.f64 (.f64 (/.f64 c0 (.f64 h w)) (ratio-of-squares.f64 d D)) M) (.f64 (/.f64 c0 (.f64 h w)) (ratio-of-squares.f64 d D)))
(.f64 (/.f64 c0 (.f64 h w)) (ratio-of-squares.f64 d D))
(.f64 (/.f64 c0 (.f64 D D)) (/.f64 (.f64 d d) (.f64 h w)))
(.f64 c0 (/.f64 (ratio-of-squares.f64 d D) (.f64 h w)))
(/.f64 (/.f64 (.f64 (.f64 d d) c0) (.f64 D D)) (.f64 h w))
(/.f64 (neg.f64 (.f64 (.f64 d d) c0)) (neg.f64 (.f64 (.f64 (*.f64 h w) D) D)))
(/.f64 (.f64 (/.f64 c0 h) (/.f64 (.f64 d d) w)) (*.f64 D D))
(/.f64 (.f64 (.f64 d d) c0) (.f64 (.f64 (*.f64 h w) D) D))
(.f64 (.f64 c0 d) d)
(.f64 (.f64 d d) c0)
(.f64 c0 (.f64 d d))
(*.f64 (pow.f64 d #s(literal 1 binary64)) (pow.f64 d #s(literal 1 binary64)))
(*.f64 (neg.f64 d) (neg.f64 d))
(*.f64 (fabs.f64 d) (fabs.f64 d))
(*.f64 d d)
(pow.f64 d #s(literal 2 binary64))
(exp.f64 (*.f64 (log.f64 d) #s(literal 2 binary64)))
(+.f64 (cosh.f64 (.f64 (log.f64 d) #s(literal 2 binary64))) (sinh.f64 (.f64 (log.f64 d) #s(literal 2 binary64))))
d
(.f64 (.f64 (*.f64 h w) D) D)
(.f64 (.f64 (*.f64 D D) h) w)
(.f64 (.f64 h w) (*.f64 D D))
(.f64 (.f64 D D) (*.f64 h w))
(.f64 w (.f64 (*.f64 D D) h))
(*.f64 h w)
(*.f64 w h)
h
(*.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 (cosh.f64 (.f64 (log.f64 D) #s(literal 2 binary64))) (sinh.f64 (.f64 (log.f64 D) #s(literal 2 binary64))))
D
(.f64 (pow.f64 (+.f64 (.f64 (/.f64 c0 (.f64 h w)) (ratio-of-squares.f64 d D)) M) #s(literal 1/2 binary64)) (pow.f64 (-.f64 (.f64 (/.f64 c0 (*.f64 h w)) (ratio-of-squares.f64 d D)) M) #s(literal 1/2 binary64)))
(pow.f64 (-.f64 (pow.f64 (.f64 (/.f64 c0 (.f64 h w)) (ratio-of-squares.f64 d D)) #s(literal 2 binary64)) (*.f64 M M)) #s(literal 1/2 binary64))
(sqrt-product.f64 (.f64 (/.f64 c0 (.f64 h w)) (ratio-of-squares.f64 d D)) M)
(sqrt.f64 (-.f64 (pow.f64 (.f64 (/.f64 c0 (.f64 h w)) (ratio-of-squares.f64 d D)) #s(literal 2 binary64)) (*.f64 M M)))
(exp.f64 (.f64 (log.f64 (-.f64 (pow.f64 (.f64 (/.f64 c0 (.f64 h w)) (ratio-of-squares.f64 d D)) #s(literal 2 binary64)) (.f64 M M))) #s(literal 1/2 binary64)))
(.f64 (+.f64 (.f64 (/.f64 c0 (.f64 h w)) (ratio-of-squares.f64 d D)) M) (-.f64 (.f64 (/.f64 c0 (*.f64 h w)) (ratio-of-squares.f64 d D)) M))
(/.f64 (-.f64 (.f64 (pow.f64 (.f64 (/.f64 c0 (.f64 h w)) (ratio-of-squares.f64 d D)) #s(literal 2 binary64)) (pow.f64 (.f64 (/.f64 c0 (.f64 h w)) (ratio-of-squares.f64 d D)) #s(literal 2 binary64))) (pow.f64 M #s(literal 4 binary64))) (+.f64 (pow.f64 (.f64 (/.f64 c0 (.f64 h w)) (ratio-of-squares.f64 d D)) #s(literal 2 binary64)) (.f64 M M)))
(/.f64 (-.f64 (pow.f64 (.f64 (/.f64 c0 (.f64 h w)) (ratio-of-squares.f64 d D)) #s(literal 6 binary64)) (pow.f64 M #s(literal 6 binary64))) (+.f64 (.f64 (pow.f64 (.f64 (/.f64 c0 (.f64 h w)) (ratio-of-squares.f64 d D)) #s(literal 2 binary64)) (pow.f64 (.f64 (/.f64 c0 (.f64 h w)) (ratio-of-squares.f64 d D)) #s(literal 2 binary64))) (+.f64 (pow.f64 M #s(literal 4 binary64)) (.f64 (pow.f64 (.f64 (/.f64 c0 (.f64 h w)) (ratio-of-squares.f64 d D)) #s(literal 2 binary64)) (*.f64 M M)))))
(-.f64 (pow.f64 (.f64 (/.f64 c0 (.f64 h w)) (ratio-of-squares.f64 d D)) #s(literal 2 binary64)) (*.f64 M M))
(+.f64 (pow.f64 (.f64 (/.f64 c0 (.f64 h w)) (ratio-of-squares.f64 d D)) #s(literal 2 binary64)) (*.f64 (neg.f64 M) M))
(.f64 (pow.f64 (/.f64 c0 (.f64 h w)) #s(literal 2 binary64)) (pow.f64 (ratio-of-squares.f64 d D) #s(literal 2 binary64)))
(.f64 (pow.f64 (/.f64 c0 (.f64 D D)) #s(literal 2 binary64)) (pow.f64 (/.f64 (.f64 d d) (.f64 h w)) #s(literal 2 binary64)))
(.f64 (pow.f64 (.f64 (/.f64 c0 (.f64 h w)) (ratio-of-squares.f64 d D)) #s(literal 1 binary64)) (pow.f64 (.f64 (/.f64 c0 (*.f64 h w)) (ratio-of-squares.f64 d D)) #s(literal 1 binary64)))
(.f64 (neg.f64 (.f64 (/.f64 c0 (.f64 h w)) (ratio-of-squares.f64 d D))) (neg.f64 (.f64 (/.f64 c0 (*.f64 h w)) (ratio-of-squares.f64 d D))))
(.f64 (fabs.f64 (.f64 (/.f64 c0 (.f64 h w)) (ratio-of-squares.f64 d D))) (fabs.f64 (.f64 (/.f64 c0 (*.f64 h w)) (ratio-of-squares.f64 d D))))
(.f64 (.f64 (/.f64 c0 (.f64 h w)) (ratio-of-squares.f64 d D)) (.f64 (/.f64 c0 (*.f64 h w)) (ratio-of-squares.f64 d D)))
(.f64 (.f64 c0 c0) (pow.f64 (/.f64 (ratio-of-squares.f64 d D) (*.f64 h w)) #s(literal 2 binary64)))
(ratio-of-squares.f64 (.f64 (.f64 d d) c0) (.f64 (.f64 (*.f64 h w) D) D))
(pow.f64 (.f64 (/.f64 c0 (.f64 h w)) (ratio-of-squares.f64 d D)) #s(literal 2 binary64))
(/.f64 (.f64 (.f64 (.f64 d d) c0) (.f64 (/.f64 c0 (.f64 h w)) (ratio-of-squares.f64 d D))) (.f64 (.f64 (.f64 h w) D) D))
(/.f64 (.f64 (.f64 (/.f64 c0 (.f64 h w)) (ratio-of-squares.f64 d D)) (.f64 (.f64 d d) c0)) (.f64 (.f64 (.f64 h w) D) D))
(/.f64 (.f64 (.f64 (.f64 d d) c0) (.f64 (.f64 d d) c0)) (.f64 (.f64 (.f64 (.f64 h w) D) D) (.f64 (.f64 (.f64 h w) D) D)))
(exp.f64 (.f64 (log.f64 (.f64 (/.f64 c0 (*.f64 h w)) (ratio-of-squares.f64 d D))) #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 (cosh.f64 (.f64 (log.f64 M) #s(literal 2 binary64))) (sinh.f64 (.f64 (log.f64 M) #s(literal 2 binary64))))
M
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (.f64 (/.f64 (.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) c0) M) w) #s(literal 1/2 binary64)))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (/.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) M) w) (.f64 c0 (/.f64 (ratio-of-squares.f64 d D) (.f64 (.f64 w w) h))))) c0))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (.f64 (+.f64 (.f64 (+.f64 (.f64 (/.f64 (ratio-of-squares.f64 d D) (.f64 (.f64 w w) h)) #s(literal 1/2 binary64)) (/.f64 (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 d #s(literal 4 binary64)) c0)) (.f64 (.f64 (pow.f64 D #s(literal 4 binary64)) M) (.f64 (.f64 (pow.f64 w #s(literal 3 binary64)) (sqrt.f64 #s(literal -1 binary64))) (.f64 h h))))) c0) (.f64 (/.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) M) w) #s(literal 1/2 binary64))) c0))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (.f64 (+.f64 (.f64 (+.f64 (.f64 (-.f64 (.f64 (.f64 (ratio-of-squares.f64 c0 (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 8 binary64)) (.f64 (.f64 (.f64 (pow.f64 #s(literal -1 binary64) #s(literal 3/2 binary64)) (pow.f64 w #s(literal 5 binary64))) (pow.f64 h #s(literal 4 binary64))) (pow.f64 M #s(literal 3 binary64))))) #s(literal -1/16 binary64)) (.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 (.f64 (pow.f64 D #s(literal 4 binary64)) M) (.f64 (.f64 (pow.f64 w #s(literal 3 binary64)) (sqrt.f64 #s(literal -1 binary64))) (.f64 h h)))))) c0) (.f64 (/.f64 (ratio-of-squares.f64 d D) (.f64 (.f64 w w) h)) #s(literal 1/2 binary64))) c0) (.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) M) w) #s(literal 1/2 binary64))) c0))
#s(approx (/ c0 (* 2 w)) (*.f64 (/.f64 c0 w) #s(literal 1/2 binary64)))
#s(approx c0 c0)
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (*.f64 (sqrt.f64 #s(literal -1 binary64)) M))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (+.f64 (.f64 (/.f64 c0 (.f64 h w)) (ratio-of-squares.f64 d D)) (*.f64 (sqrt.f64 #s(literal -1 binary64)) M)))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (+.f64 (.f64 (+.f64 (/.f64 (ratio-of-squares.f64 d D) (.f64 h w)) (/.f64 (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 d #s(literal 4 binary64)) c0)) (.f64 (.f64 (pow.f64 D #s(literal 4 binary64)) M) (.f64 (pow.f64 (.f64 h w) #s(literal 2 binary64)) (sqrt.f64 #s(literal -1 binary64)))))) c0) (*.f64 (sqrt.f64 #s(literal -1 binary64)) M)))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (+.f64 (.f64 (+.f64 (.f64 (-.f64 (.f64 (.f64 (ratio-of-squares.f64 c0 (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 8 binary64)) (.f64 (.f64 (.f64 (pow.f64 w #s(literal 4 binary64)) (pow.f64 #s(literal -1 binary64) #s(literal 3/2 binary64))) (pow.f64 h #s(literal 4 binary64))) (pow.f64 M #s(literal 3 binary64))))) #s(literal -1/8 binary64)) (.f64 #s(literal -1/2 binary64) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 (.f64 (pow.f64 D #s(literal 4 binary64)) M) (.f64 (pow.f64 (.f64 h w) #s(literal 2 binary64)) (sqrt.f64 #s(literal -1 binary64))))))) c0) (/.f64 (ratio-of-squares.f64 d D) (.f64 h w))) c0) (.f64 (sqrt.f64 #s(literal -1 binary64)) M)))
#s(approx (/ (* c0 (* d d)) (* (* w h) (* D D))) (.f64 (/.f64 c0 (.f64 h w)) (ratio-of-squares.f64 d D)))
#s(approx (* c0 (* d d)) (.f64 (.f64 d d) c0))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) (*.f64 (sqrt.f64 #s(literal -1 binary64)) M))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) (+.f64 (.f64 (.f64 (ratio-of-squares.f64 c0 (.f64 D D)) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 (.f64 (pow.f64 (.f64 h w) #s(literal 2 binary64)) (sqrt.f64 #s(literal -1 binary64))) M))) #s(literal 1/2 binary64)) (*.f64 (sqrt.f64 #s(literal -1 binary64)) M)))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) (+.f64 (.f64 (-.f64 (.f64 (.f64 (ratio-of-squares.f64 c0 (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 8 binary64)) (.f64 (.f64 (.f64 (pow.f64 w #s(literal 4 binary64)) (pow.f64 #s(literal -1 binary64) #s(literal 3/2 binary64))) (pow.f64 h #s(literal 4 binary64))) (pow.f64 M #s(literal 3 binary64))))) #s(literal -1/8 binary64)) (.f64 #s(literal -1/2 binary64) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 (.f64 (pow.f64 D #s(literal 4 binary64)) M) (.f64 (pow.f64 (.f64 h w) #s(literal 2 binary64)) (sqrt.f64 #s(literal -1 binary64))))))) (.f64 c0 c0)) (*.f64 (sqrt.f64 #s(literal -1 binary64)) M)))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) (+.f64 (.f64 (+.f64 (.f64 (-.f64 (/.f64 (.f64 #s(literal -1/8 binary64) (pow.f64 d #s(literal 8 binary64))) (.f64 (.f64 (.f64 (.f64 (pow.f64 w #s(literal 4 binary64)) (pow.f64 #s(literal -1 binary64) #s(literal 3/2 binary64))) (pow.f64 h #s(literal 4 binary64))) (pow.f64 M #s(literal 3 binary64))) (pow.f64 D #s(literal 8 binary64)))) (.f64 #s(literal -1/16 binary64) (.f64 (ratio-of-squares.f64 c0 (pow.f64 D #s(literal 6 binary64))) (/.f64 (pow.f64 d #s(literal 12 binary64)) (.f64 (.f64 (.f64 (pow.f64 #s(literal -1 binary64) #s(literal 5/2 binary64)) (pow.f64 w #s(literal 6 binary64))) (pow.f64 h #s(literal 6 binary64))) (pow.f64 M #s(literal 5 binary64))))))) (.f64 c0 c0)) (/.f64 (.f64 #s(literal 1/2 binary64) (pow.f64 d #s(literal 4 binary64))) (.f64 (.f64 (pow.f64 D #s(literal 4 binary64)) M) (.f64 (pow.f64 (.f64 h w) #s(literal 2 binary64)) (sqrt.f64 #s(literal -1 binary64)))))) (.f64 c0 c0)) (.f64 (sqrt.f64 #s(literal -1 binary64)) M)))
#s(approx (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)) (neg.f64 (*.f64 M M)))
#s(approx (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)) (-.f64 (.f64 (ratio-of-squares.f64 c0 (.f64 D D)) (ratio-of-squares.f64 (.f64 d d) (pow.f64 (.f64 h w) #s(literal 1 binary64)))) (*.f64 M M)))
#s(approx (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (.f64 (ratio-of-squares.f64 c0 (.f64 D D)) (ratio-of-squares.f64 (.f64 d d) (pow.f64 (.f64 h w) #s(literal 1 binary64)))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (.f64 (.f64 c0 c0) (/.f64 (ratio-of-squares.f64 d D) (.f64 (.f64 w w) h))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (.f64 (+.f64 (.f64 (.f64 (ratio-of-squares.f64 D c0) (.f64 (.f64 M M) (/.f64 h (.f64 d d)))) #s(literal -1/4 binary64)) (/.f64 (ratio-of-squares.f64 d D) (.f64 (.f64 w w) h))) (*.f64 c0 c0)))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (.f64 (+.f64 (+.f64 (.f64 (.f64 (ratio-of-squares.f64 (pow.f64 D #s(literal 3 binary64)) (.f64 c0 c0)) (/.f64 (.f64 (.f64 (pow.f64 h #s(literal 3 binary64)) (.f64 w w)) (pow.f64 M #s(literal 4 binary64))) (pow.f64 d #s(literal 6 binary64)))) #s(literal -1/16 binary64)) (/.f64 (ratio-of-squares.f64 d D) (.f64 (.f64 w w) h))) (.f64 (.f64 (ratio-of-squares.f64 D c0) (.f64 (.f64 M M) (/.f64 h (.f64 d d)))) #s(literal -1/4 binary64))) (*.f64 c0 c0)))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (.f64 (+.f64 (+.f64 (+.f64 (.f64 (.f64 (ratio-of-squares.f64 (pow.f64 D #s(literal 5 binary64)) (pow.f64 c0 #s(literal 3 binary64))) (/.f64 (.f64 (.f64 (pow.f64 h #s(literal 5 binary64)) (pow.f64 w #s(literal 4 binary64))) (pow.f64 M #s(literal 6 binary64))) (pow.f64 d #s(literal 10 binary64)))) #s(literal -1/32 binary64)) (/.f64 (ratio-of-squares.f64 d D) (.f64 (.f64 w w) h))) (.f64 (.f64 (ratio-of-squares.f64 (pow.f64 D #s(literal 3 binary64)) (.f64 c0 c0)) (/.f64 (.f64 (.f64 (pow.f64 h #s(literal 3 binary64)) (.f64 w w)) (pow.f64 M #s(literal 4 binary64))) (pow.f64 d #s(literal 6 binary64)))) #s(literal -1/16 binary64))) (.f64 (.f64 (ratio-of-squares.f64 D c0) (.f64 (.f64 M M) (/.f64 h (.f64 d d)))) #s(literal -1/4 binary64))) (*.f64 c0 c0)))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (.f64 (.f64 (/.f64 c0 (*.f64 h w)) (ratio-of-squares.f64 d D)) #s(literal 2 binary64)))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (.f64 (-.f64 (.f64 (.f64 (ratio-of-squares.f64 D c0) (/.f64 (.f64 (.f64 (.f64 M M) h) w) (.f64 d d))) #s(literal -1/2 binary64)) (.f64 #s(literal -2 binary64) (/.f64 (ratio-of-squares.f64 d D) (*.f64 h w)))) c0))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (.f64 (+.f64 (-.f64 (.f64 (.f64 (ratio-of-squares.f64 (pow.f64 D #s(literal 3 binary64)) (.f64 c0 c0)) (/.f64 (.f64 (pow.f64 (.f64 h w) #s(literal 3 binary64)) (pow.f64 M #s(literal 4 binary64))) (pow.f64 d #s(literal 6 binary64)))) #s(literal -1/8 binary64)) (.f64 #s(literal -2 binary64) (/.f64 (ratio-of-squares.f64 d D) (.f64 h w)))) (.f64 (.f64 (ratio-of-squares.f64 D c0) (/.f64 (.f64 (.f64 (.f64 M M) h) w) (.f64 d d))) #s(literal -1/2 binary64))) c0))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (.f64 (+.f64 (+.f64 (-.f64 (.f64 (.f64 (ratio-of-squares.f64 (pow.f64 D #s(literal 5 binary64)) (pow.f64 c0 #s(literal 3 binary64))) (/.f64 (.f64 (pow.f64 (.f64 h w) #s(literal 5 binary64)) (pow.f64 M #s(literal 6 binary64))) (pow.f64 d #s(literal 10 binary64)))) #s(literal -1/16 binary64)) (.f64 #s(literal -2 binary64) (/.f64 (ratio-of-squares.f64 d D) (.f64 h w)))) (.f64 (.f64 (ratio-of-squares.f64 (pow.f64 D #s(literal 3 binary64)) (.f64 c0 c0)) (/.f64 (.f64 (pow.f64 (.f64 h w) #s(literal 3 binary64)) (pow.f64 M #s(literal 4 binary64))) (pow.f64 d #s(literal 6 binary64)))) #s(literal -1/8 binary64))) (.f64 (.f64 (ratio-of-squares.f64 D c0) (/.f64 (.f64 (.f64 (.f64 M M) h) w) (.f64 d d))) #s(literal -1/2 binary64))) c0))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) (.f64 (/.f64 c0 (.f64 h w)) (ratio-of-squares.f64 d D)))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) (.f64 (+.f64 (.f64 (.f64 (ratio-of-squares.f64 D c0) (/.f64 (.f64 (.f64 (.f64 M M) h) w) (.f64 d d))) #s(literal -1/2 binary64)) (/.f64 (ratio-of-squares.f64 d D) (.f64 h w))) c0))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) (.f64 (+.f64 (+.f64 (.f64 (.f64 (ratio-of-squares.f64 (pow.f64 D #s(literal 3 binary64)) (.f64 c0 c0)) (/.f64 (.f64 (pow.f64 (.f64 h w) #s(literal 3 binary64)) (pow.f64 M #s(literal 4 binary64))) (pow.f64 d #s(literal 6 binary64)))) #s(literal -1/8 binary64)) (/.f64 (ratio-of-squares.f64 d D) (.f64 h w))) (.f64 (.f64 (ratio-of-squares.f64 D c0) (/.f64 (.f64 (.f64 (.f64 M M) h) w) (*.f64 d d))) #s(literal -1/2 binary64))) c0))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) (.f64 (+.f64 (+.f64 (+.f64 (.f64 (.f64 (ratio-of-squares.f64 (pow.f64 D #s(literal 5 binary64)) (pow.f64 c0 #s(literal 3 binary64))) (/.f64 (.f64 (pow.f64 (.f64 h w) #s(literal 5 binary64)) (pow.f64 M #s(literal 6 binary64))) (pow.f64 d #s(literal 10 binary64)))) #s(literal -1/16 binary64)) (/.f64 (ratio-of-squares.f64 d D) (.f64 h w))) (.f64 (.f64 (ratio-of-squares.f64 (pow.f64 D #s(literal 3 binary64)) (.f64 c0 c0)) (/.f64 (.f64 (pow.f64 (.f64 h w) #s(literal 3 binary64)) (pow.f64 M #s(literal 4 binary64))) (pow.f64 d #s(literal 6 binary64)))) #s(literal -1/8 binary64))) (.f64 (.f64 (ratio-of-squares.f64 D c0) (/.f64 (.f64 (.f64 (.f64 M M) h) w) (*.f64 d d))) #s(literal -1/2 binary64))) c0))
#s(approx (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)) (.f64 (ratio-of-squares.f64 c0 (.f64 D D)) (ratio-of-squares.f64 (.f64 d d) (pow.f64 (.f64 h w) #s(literal 1 binary64)))))
#s(approx (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)) (.f64 (+.f64 (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 (pow.f64 (.f64 h w) #s(literal 2 binary64)) (pow.f64 D #s(literal 4 binary64)))) (neg.f64 (ratio-of-squares.f64 M c0))) (.f64 c0 c0)))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (.f64 (/.f64 (.f64 (.f64 #s(literal 0 binary64) (/.f64 (ratio-of-squares.f64 d D) (.f64 h w))) (*.f64 c0 c0)) w) #s(literal -1/2 binary64)))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (.f64 (-.f64 (.f64 (/.f64 (.f64 #s(literal 0 binary64) (/.f64 (ratio-of-squares.f64 d D) (.f64 h w))) w) #s(literal -1/2 binary64)) (.f64 (.f64 (ratio-of-squares.f64 D c0) (.f64 (.f64 M M) (/.f64 h (.f64 d d)))) #s(literal -1/4 binary64))) (.f64 c0 c0)))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (.f64 (+.f64 (+.f64 (.f64 (/.f64 (.f64 #s(literal 0 binary64) (/.f64 (ratio-of-squares.f64 d D) (.f64 h w))) w) #s(literal -1/2 binary64)) (.f64 (.f64 (ratio-of-squares.f64 (pow.f64 D #s(literal 3 binary64)) (.f64 c0 c0)) (/.f64 (.f64 (.f64 (pow.f64 h #s(literal 3 binary64)) (.f64 w w)) (pow.f64 M #s(literal 4 binary64))) (pow.f64 d #s(literal 6 binary64)))) #s(literal 1/16 binary64))) (.f64 (.f64 (ratio-of-squares.f64 D c0) (.f64 (.f64 M M) (/.f64 h (.f64 d d)))) #s(literal 1/4 binary64))) (.f64 c0 c0)))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (.f64 (+.f64 (+.f64 (.f64 (/.f64 (.f64 #s(literal 0 binary64) (/.f64 (ratio-of-squares.f64 d D) (.f64 h w))) w) #s(literal -1/2 binary64)) (.f64 #s(literal 1/32 binary64) (.f64 (ratio-of-squares.f64 (pow.f64 D #s(literal 5 binary64)) (pow.f64 c0 #s(literal 3 binary64))) (/.f64 (.f64 (.f64 (pow.f64 h #s(literal 5 binary64)) (pow.f64 w #s(literal 4 binary64))) (pow.f64 M #s(literal 6 binary64))) (pow.f64 d #s(literal 10 binary64)))))) (-.f64 (.f64 (.f64 (ratio-of-squares.f64 (pow.f64 D #s(literal 3 binary64)) (.f64 c0 c0)) (/.f64 (.f64 (.f64 (pow.f64 h #s(literal 3 binary64)) (.f64 w w)) (pow.f64 M #s(literal 4 binary64))) (pow.f64 d #s(literal 6 binary64)))) #s(literal 1/16 binary64)) (.f64 (.f64 (ratio-of-squares.f64 D c0) (.f64 (.f64 M M) (/.f64 h (.f64 d d)))) #s(literal -1/4 binary64)))) (.f64 c0 c0)))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (neg.f64 (.f64 (.f64 #s(literal 0 binary64) (/.f64 (ratio-of-squares.f64 d D) (*.f64 h w))) c0)))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (neg.f64 (.f64 (+.f64 (+.f64 (neg.f64 (/.f64 (ratio-of-squares.f64 d D) (.f64 h w))) (.f64 (.f64 (ratio-of-squares.f64 D c0) (/.f64 (.f64 (.f64 (.f64 M M) h) w) (.f64 d d))) #s(literal -1/2 binary64))) (/.f64 (ratio-of-squares.f64 d D) (*.f64 h w))) c0)))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (neg.f64 (.f64 (+.f64 (+.f64 (neg.f64 (/.f64 (ratio-of-squares.f64 d D) (.f64 h w))) (.f64 (.f64 (ratio-of-squares.f64 D c0) (/.f64 (.f64 (.f64 (.f64 M M) h) w) (.f64 d d))) #s(literal -1/2 binary64))) (+.f64 (.f64 (.f64 (ratio-of-squares.f64 (pow.f64 D #s(literal 3 binary64)) (.f64 c0 c0)) (/.f64 (.f64 (pow.f64 (.f64 h w) #s(literal 3 binary64)) (pow.f64 M #s(literal 4 binary64))) (pow.f64 d #s(literal 6 binary64)))) #s(literal -1/8 binary64)) (/.f64 (ratio-of-squares.f64 d D) (.f64 h w)))) c0)))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (neg.f64 (.f64 (+.f64 (+.f64 (neg.f64 (/.f64 (ratio-of-squares.f64 d D) (.f64 h w))) (.f64 (.f64 (ratio-of-squares.f64 D c0) (/.f64 (.f64 (.f64 (.f64 M M) h) w) (.f64 d d))) #s(literal -1/2 binary64))) (+.f64 (+.f64 (.f64 (.f64 (ratio-of-squares.f64 (pow.f64 D #s(literal 5 binary64)) (pow.f64 c0 #s(literal 3 binary64))) (/.f64 (.f64 (pow.f64 (.f64 h w) #s(literal 5 binary64)) (pow.f64 M #s(literal 6 binary64))) (pow.f64 d #s(literal 10 binary64)))) #s(literal -1/16 binary64)) (/.f64 (ratio-of-squares.f64 d D) (.f64 h w))) (.f64 (.f64 (ratio-of-squares.f64 (pow.f64 D #s(literal 3 binary64)) (.f64 c0 c0)) (/.f64 (.f64 (pow.f64 (.f64 h w) #s(literal 3 binary64)) (pow.f64 M #s(literal 4 binary64))) (pow.f64 d #s(literal 6 binary64)))) #s(literal -1/8 binary64)))) c0)))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) (neg.f64 (.f64 (/.f64 c0 (.f64 h w)) (ratio-of-squares.f64 d D))))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) (neg.f64 (.f64 (+.f64 (.f64 (.f64 (ratio-of-squares.f64 D c0) (/.f64 (.f64 (.f64 (.f64 M M) h) w) (.f64 d d))) #s(literal -1/2 binary64)) (/.f64 (ratio-of-squares.f64 d D) (.f64 h w))) c0)))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) (neg.f64 (.f64 (+.f64 (+.f64 (.f64 (.f64 (ratio-of-squares.f64 (pow.f64 D #s(literal 3 binary64)) (.f64 c0 c0)) (/.f64 (.f64 (pow.f64 (.f64 h w) #s(literal 3 binary64)) (pow.f64 M #s(literal 4 binary64))) (pow.f64 d #s(literal 6 binary64)))) #s(literal -1/8 binary64)) (/.f64 (ratio-of-squares.f64 d D) (.f64 h w))) (.f64 (.f64 (ratio-of-squares.f64 D c0) (/.f64 (.f64 (.f64 (.f64 M M) h) w) (*.f64 d d))) #s(literal -1/2 binary64))) c0)))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) (neg.f64 (.f64 (+.f64 (+.f64 (+.f64 (.f64 (.f64 (ratio-of-squares.f64 (pow.f64 D #s(literal 5 binary64)) (pow.f64 c0 #s(literal 3 binary64))) (/.f64 (.f64 (pow.f64 (.f64 h w) #s(literal 5 binary64)) (pow.f64 M #s(literal 6 binary64))) (pow.f64 d #s(literal 10 binary64)))) #s(literal -1/16 binary64)) (/.f64 (ratio-of-squares.f64 d D) (.f64 h w))) (.f64 (.f64 (ratio-of-squares.f64 (pow.f64 D #s(literal 3 binary64)) (.f64 c0 c0)) (/.f64 (.f64 (pow.f64 (.f64 h w) #s(literal 3 binary64)) (pow.f64 M #s(literal 4 binary64))) (pow.f64 d #s(literal 6 binary64)))) #s(literal -1/8 binary64))) (.f64 (.f64 (ratio-of-squares.f64 D c0) (/.f64 (.f64 (.f64 (.f64 M M) h) w) (*.f64 d d))) #s(literal -1/2 binary64))) c0)))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (/.f64 (+.f64 (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) h)) (.f64 (/.f64 (.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) (.f64 (.f64 w w) h)) (.f64 d d)) #s(literal -1/4 binary64))) (*.f64 w w)))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (/.f64 (+.f64 (.f64 (+.f64 (.f64 (.f64 (ratio-of-squares.f64 (pow.f64 D #s(literal 3 binary64)) c0) (/.f64 (.f64 (.f64 (pow.f64 h #s(literal 3 binary64)) (.f64 w w)) (pow.f64 M #s(literal 4 binary64))) (pow.f64 d #s(literal 6 binary64)))) #s(literal -1/16 binary64)) (.f64 (/.f64 (.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) h) (.f64 d d)) #s(literal -1/4 binary64))) (.f64 w w)) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) h))) (.f64 w w)))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (/.f64 (+.f64 (.f64 (+.f64 (.f64 (-.f64 (.f64 (.f64 (ratio-of-squares.f64 (pow.f64 D #s(literal 3 binary64)) c0) (/.f64 (.f64 (pow.f64 h #s(literal 3 binary64)) (pow.f64 M #s(literal 4 binary64))) (pow.f64 d #s(literal 6 binary64)))) #s(literal -1/16 binary64)) (.f64 #s(literal 1/32 binary64) (.f64 (ratio-of-squares.f64 (pow.f64 D #s(literal 5 binary64)) (.f64 c0 c0)) (/.f64 (.f64 (.f64 (pow.f64 h #s(literal 5 binary64)) (.f64 w w)) (pow.f64 M #s(literal 6 binary64))) (pow.f64 d #s(literal 10 binary64)))))) (.f64 w w)) (.f64 (/.f64 (.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) h) (.f64 d d)) #s(literal -1/4 binary64))) (.f64 w w)) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) h))) (.f64 w w)))
#s(approx (* 2 w) (*.f64 w #s(literal 2 binary64)))
#s(approx w w)
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (/.f64 (+.f64 (/.f64 (.f64 #s(literal 2 binary64) (.f64 (.f64 d d) c0)) (.f64 (.f64 D D) h)) (.f64 (/.f64 (.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) (.f64 (.f64 w w) h)) (.f64 (.f64 d d) c0)) #s(literal -1/2 binary64))) w))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (/.f64 (+.f64 (.f64 (+.f64 (.f64 (.f64 (ratio-of-squares.f64 (pow.f64 D #s(literal 3 binary64)) (pow.f64 c0 #s(literal 3/2 binary64))) (/.f64 (.f64 (.f64 (pow.f64 h #s(literal 3 binary64)) (.f64 w w)) (pow.f64 M #s(literal 4 binary64))) (pow.f64 d #s(literal 6 binary64)))) #s(literal -1/8 binary64)) (.f64 (/.f64 (.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) h) (.f64 (.f64 d d) c0)) #s(literal -1/2 binary64))) (.f64 w w)) (/.f64 (.f64 #s(literal 2 binary64) (.f64 (.f64 d d) c0)) (.f64 (*.f64 D D) h))) w))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (/.f64 (+.f64 (.f64 (+.f64 (.f64 (-.f64 (.f64 (.f64 (ratio-of-squares.f64 (pow.f64 D #s(literal 3 binary64)) (pow.f64 c0 #s(literal 3/2 binary64))) (/.f64 (.f64 (pow.f64 h #s(literal 3 binary64)) (pow.f64 M #s(literal 4 binary64))) (pow.f64 d #s(literal 6 binary64)))) #s(literal -1/8 binary64)) (.f64 #s(literal 1/16 binary64) (.f64 (ratio-of-squares.f64 (pow.f64 D #s(literal 5 binary64)) (pow.f64 c0 #s(literal 5/2 binary64))) (/.f64 (.f64 (.f64 (pow.f64 h #s(literal 5 binary64)) (.f64 w w)) (pow.f64 M #s(literal 6 binary64))) (pow.f64 d #s(literal 10 binary64)))))) (.f64 w w)) (.f64 (/.f64 (.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) h) (.f64 (.f64 d d) c0)) #s(literal -1/2 binary64))) (.f64 w w)) (/.f64 (.f64 #s(literal 2 binary64) (.f64 (.f64 d d) c0)) (.f64 (.f64 D D) h))) w))
#s(approx (* (* w h) (* D D)) (.f64 (.f64 (*.f64 h w) D) D))
#s(approx (* w h) (*.f64 h w))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) (/.f64 (+.f64 (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (.f64 d d) h)) (.f64 (/.f64 (.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) (.f64 (.f64 w w) h)) (.f64 (.f64 d d) c0)) #s(literal -1/2 binary64))) w))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) (/.f64 (+.f64 (.f64 (+.f64 (.f64 (.f64 (ratio-of-squares.f64 (pow.f64 D #s(literal 3 binary64)) (pow.f64 c0 #s(literal 3/2 binary64))) (/.f64 (.f64 (.f64 (pow.f64 h #s(literal 3 binary64)) (.f64 w w)) (pow.f64 M #s(literal 4 binary64))) (pow.f64 d #s(literal 6 binary64)))) #s(literal -1/8 binary64)) (.f64 (/.f64 (.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) h) (.f64 (.f64 d d) c0)) #s(literal -1/2 binary64))) (.f64 w w)) (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (*.f64 d d) h))) w))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) (/.f64 (+.f64 (.f64 (+.f64 (.f64 (-.f64 (.f64 (.f64 (ratio-of-squares.f64 (pow.f64 D #s(literal 3 binary64)) (pow.f64 c0 #s(literal 3/2 binary64))) (/.f64 (.f64 (pow.f64 h #s(literal 3 binary64)) (pow.f64 M #s(literal 4 binary64))) (pow.f64 d #s(literal 6 binary64)))) #s(literal -1/8 binary64)) (.f64 #s(literal 1/16 binary64) (.f64 (ratio-of-squares.f64 (pow.f64 D #s(literal 5 binary64)) (pow.f64 c0 #s(literal 5/2 binary64))) (/.f64 (.f64 (.f64 (pow.f64 h #s(literal 5 binary64)) (.f64 w w)) (pow.f64 M #s(literal 6 binary64))) (pow.f64 d #s(literal 10 binary64)))))) (.f64 w w)) (.f64 (/.f64 (.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) h) (.f64 (.f64 d d) c0)) #s(literal -1/2 binary64))) (.f64 w w)) (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (.f64 d d) h))) w))
#s(approx (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)) (/.f64 (+.f64 (.f64 (ratio-of-squares.f64 c0 (.f64 D D)) (ratio-of-squares.f64 (.f64 d d) h)) (neg.f64 (pow.f64 (.f64 M w) #s(literal 2 binary64)))) (*.f64 w w)))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (/.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) c0) M) (.f64 (.f64 c0 c0) (/.f64 (ratio-of-squares.f64 d D) (.f64 h w))))) w))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (/.f64 (+.f64 (.f64 (.f64 (pow.f64 c0 #s(literal 3 binary64)) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 (.f64 (pow.f64 D #s(literal 4 binary64)) M) (.f64 (pow.f64 (.f64 h w) #s(literal 2 binary64)) (sqrt.f64 #s(literal -1 binary64)))))) #s(literal 1/4 binary64)) (.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) c0) M) (.f64 (.f64 c0 c0) (/.f64 (ratio-of-squares.f64 d D) (.f64 h w)))))) w))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (/.f64 (+.f64 (.f64 (.f64 (pow.f64 c0 #s(literal 5 binary64)) (/.f64 (pow.f64 d #s(literal 8 binary64)) (.f64 (.f64 (.f64 (.f64 (pow.f64 w #s(literal 4 binary64)) (pow.f64 #s(literal -1 binary64) #s(literal 3/2 binary64))) (pow.f64 h #s(literal 4 binary64))) (pow.f64 M #s(literal 3 binary64))) (pow.f64 D #s(literal 8 binary64))))) #s(literal -1/16 binary64)) (+.f64 (.f64 (.f64 (pow.f64 c0 #s(literal 3 binary64)) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 (.f64 (pow.f64 D #s(literal 4 binary64)) M) (.f64 (pow.f64 (.f64 h w) #s(literal 2 binary64)) (sqrt.f64 #s(literal -1 binary64)))))) #s(literal 1/4 binary64)) (.f64 #s(literal 1/2 binary64) (+.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) c0) M) (.f64 (.f64 c0 c0) (/.f64 (ratio-of-squares.f64 d D) (.f64 h w))))))) w))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (+.f64 (.f64 (.f64 (ratio-of-squares.f64 c0 (.f64 D D)) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 (.f64 (pow.f64 (.f64 h w) #s(literal 2 binary64)) (sqrt.f64 #s(literal -1 binary64))) M))) #s(literal 1/2 binary64)) (+.f64 (.f64 (/.f64 c0 (.f64 h w)) (ratio-of-squares.f64 d D)) (*.f64 (sqrt.f64 #s(literal -1 binary64)) M))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (+.f64 (+.f64 (.f64 (.f64 (pow.f64 c0 #s(literal 4 binary64)) (/.f64 (pow.f64 d #s(literal 8 binary64)) (.f64 (.f64 (.f64 (.f64 (pow.f64 w #s(literal 4 binary64)) (pow.f64 #s(literal -1 binary64) #s(literal 3/2 binary64))) (pow.f64 h #s(literal 4 binary64))) (pow.f64 M #s(literal 3 binary64))) (pow.f64 D #s(literal 8 binary64))))) #s(literal -1/8 binary64)) (.f64 (.f64 (ratio-of-squares.f64 c0 (.f64 D D)) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 (.f64 (pow.f64 (.f64 h w) #s(literal 2 binary64)) (sqrt.f64 #s(literal -1 binary64))) M))) #s(literal 1/2 binary64))) (+.f64 (.f64 (/.f64 c0 (.f64 h w)) (ratio-of-squares.f64 d D)) (*.f64 (sqrt.f64 #s(literal -1 binary64)) M))))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) (+.f64 (+.f64 (.f64 (.f64 (pow.f64 c0 #s(literal 4 binary64)) (/.f64 (pow.f64 d #s(literal 8 binary64)) (.f64 (.f64 (.f64 (.f64 (pow.f64 w #s(literal 4 binary64)) (pow.f64 #s(literal -1 binary64) #s(literal 3/2 binary64))) (pow.f64 h #s(literal 4 binary64))) (pow.f64 M #s(literal 3 binary64))) (pow.f64 D #s(literal 8 binary64))))) #s(literal -1/8 binary64)) (.f64 (.f64 (ratio-of-squares.f64 c0 (.f64 D D)) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 (.f64 (pow.f64 (.f64 h w) #s(literal 2 binary64)) (sqrt.f64 #s(literal -1 binary64))) M))) #s(literal 1/2 binary64))) (*.f64 (sqrt.f64 #s(literal -1 binary64)) M)))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) (+.f64 (+.f64 (.f64 (.f64 (pow.f64 c0 #s(literal 4 binary64)) (/.f64 (pow.f64 d #s(literal 8 binary64)) (.f64 (.f64 (.f64 (.f64 (pow.f64 w #s(literal 4 binary64)) (pow.f64 #s(literal -1 binary64) #s(literal 3/2 binary64))) (pow.f64 h #s(literal 4 binary64))) (pow.f64 M #s(literal 3 binary64))) (pow.f64 D #s(literal 8 binary64))))) #s(literal -1/8 binary64)) (.f64 (.f64 (ratio-of-squares.f64 (pow.f64 c0 #s(literal 3 binary64)) (pow.f64 D #s(literal 6 binary64))) (/.f64 (pow.f64 d #s(literal 12 binary64)) (.f64 (.f64 (.f64 (pow.f64 #s(literal -1 binary64) #s(literal 5/2 binary64)) (pow.f64 w #s(literal 6 binary64))) (pow.f64 h #s(literal 6 binary64))) (pow.f64 M #s(literal 5 binary64))))) #s(literal 1/16 binary64))) (+.f64 (.f64 (.f64 (ratio-of-squares.f64 c0 (.f64 D D)) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 (.f64 (pow.f64 (.f64 h w) #s(literal 2 binary64)) (sqrt.f64 #s(literal -1 binary64))) M))) #s(literal 1/2 binary64)) (.f64 (sqrt.f64 #s(literal -1 binary64)) M))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (neg.f64 (/.f64 (.f64 #s(literal -1/2 binary64) (+.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) c0) M) (.f64 (.f64 c0 c0) (/.f64 (ratio-of-squares.f64 d D) (.f64 h w))))) w)))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (neg.f64 (/.f64 (-.f64 (neg.f64 (/.f64 (-.f64 (.f64 (.f64 (ratio-of-squares.f64 (pow.f64 c0 #s(literal 3/2 binary64)) (.f64 D D)) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 (.f64 M (.f64 h h)) (.f64 (sqrt.f64 #s(literal -1 binary64)) w)))) #s(literal 1/4 binary64)) (.f64 #s(literal -1/2 binary64) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) h)))) w)) (.f64 (.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) c0) M) #s(literal 1/2 binary64))) w)))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (neg.f64 (/.f64 (-.f64 (neg.f64 (/.f64 (-.f64 (neg.f64 (/.f64 (-.f64 (.f64 (.f64 (ratio-of-squares.f64 (pow.f64 c0 #s(literal 3/2 binary64)) (.f64 D D)) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 (.f64 M (.f64 h h)) (sqrt.f64 #s(literal -1 binary64))))) #s(literal -1/4 binary64)) (.f64 #s(literal -1/16 binary64) (.f64 (ratio-of-squares.f64 (pow.f64 c0 #s(literal 5/2 binary64)) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 8 binary64)) (.f64 (.f64 (.f64 (pow.f64 #s(literal -1 binary64) #s(literal 3/2 binary64)) (.f64 w w)) (pow.f64 h #s(literal 4 binary64))) (pow.f64 M #s(literal 3 binary64))))))) w)) (.f64 #s(literal -1/2 binary64) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) h)))) w)) (.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) c0) M) #s(literal 1/2 binary64))) w)))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (+.f64 (neg.f64 (/.f64 (+.f64 (.f64 (.f64 (ratio-of-squares.f64 c0 (.f64 D D)) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 (.f64 M (.f64 h h)) (.f64 (sqrt.f64 #s(literal -1 binary64)) w)))) #s(literal -1/2 binary64)) (neg.f64 (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (.f64 d d) h)))) w)) (*.f64 (sqrt.f64 #s(literal -1 binary64)) M)))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (+.f64 (neg.f64 (/.f64 (.f64 #s(literal -1 binary64) (+.f64 (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (.f64 d d) h)) (/.f64 (-.f64 (.f64 (.f64 (ratio-of-squares.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 8 binary64)) (.f64 (.f64 (.f64 (pow.f64 #s(literal -1 binary64) #s(literal 3/2 binary64)) (.f64 w w)) (pow.f64 h #s(literal 4 binary64))) (pow.f64 M #s(literal 3 binary64))))) #s(literal -1/8 binary64)) (.f64 #s(literal -1/2 binary64) (.f64 (ratio-of-squares.f64 c0 (.f64 D D)) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 (.f64 M (.f64 h h)) (sqrt.f64 #s(literal -1 binary64))))))) w))) w)) (.f64 (sqrt.f64 #s(literal -1 binary64)) M)))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (/.f64 (+.f64 (.f64 (ratio-of-squares.f64 c0 D) (ratio-of-squares.f64 d w)) (.f64 (.f64 (.f64 D D) (ratio-of-squares.f64 (pow.f64 (*.f64 M h) #s(literal 1 binary64)) d)) #s(literal -1/4 binary64))) h))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (/.f64 (+.f64 (.f64 (+.f64 (.f64 (.f64 (ratio-of-squares.f64 (pow.f64 D #s(literal 3 binary64)) c0) (/.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (pow.f64 (.f64 h w) #s(literal 2 binary64))) (pow.f64 d #s(literal 6 binary64)))) #s(literal -1/16 binary64)) (.f64 (.f64 (.f64 D D) (ratio-of-squares.f64 M d)) #s(literal -1/4 binary64))) (.f64 h h)) (.f64 (ratio-of-squares.f64 c0 D) (ratio-of-squares.f64 d w))) h))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (/.f64 (+.f64 (.f64 (+.f64 (.f64 (-.f64 (.f64 (.f64 (ratio-of-squares.f64 (pow.f64 D #s(literal 3 binary64)) c0) (/.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (.f64 w w)) (pow.f64 d #s(literal 6 binary64)))) #s(literal -1/16 binary64)) (.f64 #s(literal 1/32 binary64) (.f64 (ratio-of-squares.f64 (pow.f64 D #s(literal 5 binary64)) (.f64 c0 c0)) (/.f64 (.f64 (.f64 (pow.f64 w #s(literal 4 binary64)) (.f64 h h)) (pow.f64 M #s(literal 6 binary64))) (pow.f64 d #s(literal 10 binary64)))))) (.f64 h h)) (.f64 (.f64 (.f64 D D) (ratio-of-squares.f64 M d)) #s(literal -1/4 binary64))) (.f64 h h)) (.f64 (ratio-of-squares.f64 c0 D) (ratio-of-squares.f64 d w))) h))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (/.f64 (+.f64 (/.f64 (.f64 #s(literal 2 binary64) (.f64 (.f64 d d) c0)) (.f64 (.f64 D D) w)) (.f64 (/.f64 (.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) (.f64 (.f64 h h) w)) (.f64 (.f64 d d) c0)) #s(literal -1/2 binary64))) h))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (/.f64 (+.f64 (.f64 (+.f64 (.f64 (.f64 (ratio-of-squares.f64 (pow.f64 D #s(literal 3 binary64)) (pow.f64 c0 #s(literal 3/2 binary64))) (/.f64 (.f64 (.f64 (pow.f64 w #s(literal 3 binary64)) (.f64 h h)) (pow.f64 M #s(literal 4 binary64))) (pow.f64 d #s(literal 6 binary64)))) #s(literal -1/8 binary64)) (.f64 (/.f64 (.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) w) (.f64 (.f64 d d) c0)) #s(literal -1/2 binary64))) (.f64 h h)) (/.f64 (.f64 #s(literal 2 binary64) (.f64 (.f64 d d) c0)) (.f64 (*.f64 D D) w))) h))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (/.f64 (+.f64 (.f64 (+.f64 (.f64 (-.f64 (.f64 (.f64 (ratio-of-squares.f64 (pow.f64 D #s(literal 3 binary64)) (pow.f64 c0 #s(literal 3/2 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (pow.f64 w #s(literal 3 binary64))) (pow.f64 d #s(literal 6 binary64)))) #s(literal -1/8 binary64)) (.f64 #s(literal 1/16 binary64) (.f64 (ratio-of-squares.f64 (pow.f64 D #s(literal 5 binary64)) (pow.f64 c0 #s(literal 5/2 binary64))) (/.f64 (.f64 (.f64 (pow.f64 w #s(literal 5 binary64)) (.f64 h h)) (pow.f64 M #s(literal 6 binary64))) (pow.f64 d #s(literal 10 binary64)))))) (.f64 h h)) (.f64 (/.f64 (.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) w) (.f64 (.f64 d d) c0)) #s(literal -1/2 binary64))) (.f64 h h)) (/.f64 (.f64 #s(literal 2 binary64) (.f64 (.f64 d d) c0)) (.f64 (.f64 D D) w))) h))
#s(approx h h)
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) (/.f64 (+.f64 (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (.f64 d d) w)) (.f64 (/.f64 (.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) (.f64 (.f64 h h) w)) (.f64 (.f64 d d) c0)) #s(literal -1/2 binary64))) h))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) (/.f64 (+.f64 (.f64 (+.f64 (.f64 (.f64 (ratio-of-squares.f64 (pow.f64 D #s(literal 3 binary64)) (pow.f64 c0 #s(literal 3/2 binary64))) (/.f64 (.f64 (.f64 (pow.f64 w #s(literal 3 binary64)) (.f64 h h)) (pow.f64 M #s(literal 4 binary64))) (pow.f64 d #s(literal 6 binary64)))) #s(literal -1/8 binary64)) (.f64 (/.f64 (.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) w) (.f64 (.f64 d d) c0)) #s(literal -1/2 binary64))) (.f64 h h)) (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (*.f64 d d) w))) h))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) (/.f64 (+.f64 (.f64 (+.f64 (.f64 (-.f64 (.f64 (.f64 (ratio-of-squares.f64 (pow.f64 D #s(literal 3 binary64)) (pow.f64 c0 #s(literal 3/2 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (pow.f64 w #s(literal 3 binary64))) (pow.f64 d #s(literal 6 binary64)))) #s(literal -1/8 binary64)) (.f64 #s(literal 1/16 binary64) (.f64 (ratio-of-squares.f64 (pow.f64 D #s(literal 5 binary64)) (pow.f64 c0 #s(literal 5/2 binary64))) (/.f64 (.f64 (.f64 (pow.f64 w #s(literal 5 binary64)) (.f64 h h)) (pow.f64 M #s(literal 6 binary64))) (pow.f64 d #s(literal 10 binary64)))))) (.f64 h h)) (.f64 (/.f64 (.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) w) (.f64 (.f64 d d) c0)) #s(literal -1/2 binary64))) (.f64 h h)) (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (.f64 d d) w))) h))
#s(approx (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)) (/.f64 (+.f64 (.f64 (ratio-of-squares.f64 c0 (.f64 D D)) (ratio-of-squares.f64 (.f64 d d) w)) (neg.f64 (pow.f64 (.f64 M h) #s(literal 2 binary64)))) (*.f64 h h)))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (.f64 #s(literal 1/2 binary64) (+.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) c0) M) w) (.f64 (.f64 c0 c0) (/.f64 (ratio-of-squares.f64 d D) (.f64 (*.f64 w w) h))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (+.f64 (.f64 (.f64 (pow.f64 c0 #s(literal 3 binary64)) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 (.f64 (pow.f64 D #s(literal 4 binary64)) M) (.f64 (.f64 (pow.f64 w #s(literal 3 binary64)) (sqrt.f64 #s(literal -1 binary64))) (.f64 h h))))) #s(literal 1/4 binary64)) (.f64 #s(literal 1/2 binary64) (+.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) c0) M) w) (.f64 (.f64 c0 c0) (/.f64 (ratio-of-squares.f64 d D) (.f64 (.f64 w w) h)))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (+.f64 (+.f64 (.f64 (.f64 (ratio-of-squares.f64 (pow.f64 c0 #s(literal 5/2 binary64)) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 8 binary64)) (.f64 (.f64 (.f64 (pow.f64 #s(literal -1 binary64) #s(literal 3/2 binary64)) (pow.f64 w #s(literal 5 binary64))) (pow.f64 h #s(literal 4 binary64))) (pow.f64 M #s(literal 3 binary64))))) #s(literal -1/16 binary64)) (.f64 (.f64 (pow.f64 c0 #s(literal 3 binary64)) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 (.f64 (pow.f64 D #s(literal 4 binary64)) M) (.f64 (.f64 (pow.f64 w #s(literal 3 binary64)) (sqrt.f64 #s(literal -1 binary64))) (.f64 h h))))) #s(literal 1/4 binary64))) (.f64 #s(literal 1/2 binary64) (+.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) c0) M) w) (.f64 (.f64 c0 c0) (/.f64 (ratio-of-squares.f64 d D) (.f64 (*.f64 w w) h)))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (-.f64 (neg.f64 (/.f64 (+.f64 (.f64 (.f64 (ratio-of-squares.f64 (pow.f64 c0 #s(literal 3/2 binary64)) (.f64 D D)) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 (.f64 M h) (.f64 (pow.f64 w #s(literal 3 binary64)) (sqrt.f64 #s(literal -1 binary64)))))) #s(literal -1/4 binary64)) (.f64 (.f64 (ratio-of-squares.f64 c0 D) (ratio-of-squares.f64 d w)) #s(literal -1/2 binary64))) h)) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) c0) M) w))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (-.f64 (neg.f64 (/.f64 (-.f64 (neg.f64 (/.f64 (-.f64 (.f64 (.f64 (ratio-of-squares.f64 (pow.f64 c0 #s(literal 5/2 binary64)) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 8 binary64)) (.f64 (.f64 (.f64 (pow.f64 w #s(literal 5 binary64)) (.f64 h h)) (pow.f64 #s(literal -1 binary64) #s(literal 3/2 binary64))) (pow.f64 M #s(literal 3 binary64))))) #s(literal -1/16 binary64)) (.f64 #s(literal -1/4 binary64) (.f64 (ratio-of-squares.f64 (pow.f64 c0 #s(literal 3/2 binary64)) (.f64 D D)) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 (.f64 M (pow.f64 w #s(literal 3 binary64))) (sqrt.f64 #s(literal -1 binary64))))))) h)) (.f64 #s(literal 1/2 binary64) (.f64 (ratio-of-squares.f64 c0 D) (ratio-of-squares.f64 d w)))) h)) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) c0) M) w))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (+.f64 (neg.f64 (/.f64 (+.f64 (.f64 (.f64 (ratio-of-squares.f64 c0 (.f64 D D)) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 (.f64 M h) (.f64 (.f64 w w) (sqrt.f64 #s(literal -1 binary64)))))) #s(literal -1/2 binary64)) (neg.f64 (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (.f64 d d) w)))) h)) (*.f64 (sqrt.f64 #s(literal -1 binary64)) M)))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (+.f64 (neg.f64 (/.f64 (.f64 #s(literal -1 binary64) (+.f64 (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (.f64 d d) w)) (/.f64 (-.f64 (.f64 (.f64 (ratio-of-squares.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 8 binary64)) (.f64 (.f64 (.f64 (pow.f64 w #s(literal 4 binary64)) (.f64 h h)) (pow.f64 #s(literal -1 binary64) #s(literal 3/2 binary64))) (pow.f64 M #s(literal 3 binary64))))) #s(literal -1/8 binary64)) (.f64 #s(literal -1/2 binary64) (.f64 (ratio-of-squares.f64 c0 (.f64 D D)) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 (.f64 M (.f64 w w)) (sqrt.f64 #s(literal -1 binary64))))))) h))) h)) (.f64 (sqrt.f64 #s(literal -1 binary64)) M)))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (/.f64 (+.f64 (.f64 (/.f64 (.f64 c0 c0) h) (ratio-of-squares.f64 d w)) (.f64 (/.f64 (.f64 (.f64 (.f64 M M) h) (pow.f64 D #s(literal 4 binary64))) (.f64 d d)) #s(literal -1/4 binary64))) (.f64 D D)))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (/.f64 (+.f64 (.f64 (-.f64 (/.f64 (.f64 #s(literal -1/4 binary64) (.f64 (.f64 M M) h)) (.f64 d d)) (.f64 #s(literal 1/16 binary64) (.f64 (ratio-of-squares.f64 (.f64 D D) c0) (/.f64 (.f64 (.f64 (pow.f64 h #s(literal 3 binary64)) (.f64 w w)) (pow.f64 M #s(literal 4 binary64))) (pow.f64 d #s(literal 6 binary64)))))) (pow.f64 D #s(literal 4 binary64))) (.f64 (/.f64 (.f64 c0 c0) h) (ratio-of-squares.f64 d w))) (.f64 D D)))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (/.f64 (+.f64 (.f64 (+.f64 (.f64 (-.f64 (.f64 (.f64 (ratio-of-squares.f64 (.f64 M M) c0) (/.f64 (.f64 (pow.f64 h #s(literal 3 binary64)) (.f64 w w)) (pow.f64 d #s(literal 6 binary64)))) #s(literal -1/16 binary64)) (.f64 #s(literal 1/32 binary64) (.f64 (ratio-of-squares.f64 (.f64 D D) (.f64 c0 c0)) (/.f64 (.f64 (.f64 (pow.f64 h #s(literal 5 binary64)) (pow.f64 w #s(literal 4 binary64))) (pow.f64 M #s(literal 6 binary64))) (pow.f64 d #s(literal 10 binary64)))))) (pow.f64 D #s(literal 4 binary64))) (/.f64 (.f64 #s(literal -1/4 binary64) (.f64 (.f64 M M) h)) (.f64 d d))) (pow.f64 D #s(literal 4 binary64))) (.f64 (/.f64 (.f64 c0 c0) h) (ratio-of-squares.f64 d w))) (.f64 D D)))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (/.f64 (+.f64 (/.f64 (.f64 #s(literal 2 binary64) (.f64 (.f64 d d) c0)) (.f64 h w)) (.f64 (/.f64 (.f64 (.f64 (.f64 (.f64 M M) h) w) (pow.f64 D #s(literal 4 binary64))) (.f64 (.f64 d d) c0)) #s(literal -1/2 binary64))) (.f64 D D)))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (/.f64 (+.f64 (.f64 (-.f64 (/.f64 (.f64 #s(literal -1/2 binary64) (.f64 (.f64 (.f64 M M) h) w)) (.f64 (.f64 d d) c0)) (.f64 #s(literal 1/8 binary64) (.f64 (ratio-of-squares.f64 (.f64 D D) (pow.f64 c0 #s(literal 3/2 binary64))) (/.f64 (.f64 (pow.f64 (.f64 h w) #s(literal 3 binary64)) (pow.f64 M #s(literal 4 binary64))) (pow.f64 d #s(literal 6 binary64)))))) (pow.f64 D #s(literal 4 binary64))) (/.f64 (.f64 #s(literal 2 binary64) (.f64 (.f64 d d) c0)) (.f64 h w))) (*.f64 D D)))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (/.f64 (+.f64 (.f64 (+.f64 (.f64 (-.f64 (.f64 (.f64 (ratio-of-squares.f64 (.f64 M M) (pow.f64 c0 #s(literal 3/2 binary64))) (/.f64 (pow.f64 (.f64 h w) #s(literal 3 binary64)) (pow.f64 d #s(literal 6 binary64)))) #s(literal -1/8 binary64)) (.f64 #s(literal 1/16 binary64) (.f64 (ratio-of-squares.f64 (.f64 D D) (pow.f64 c0 #s(literal 5/2 binary64))) (/.f64 (.f64 (pow.f64 (.f64 h w) #s(literal 5 binary64)) (pow.f64 M #s(literal 6 binary64))) (pow.f64 d #s(literal 10 binary64)))))) (pow.f64 D #s(literal 4 binary64))) (/.f64 (.f64 #s(literal -1/2 binary64) (.f64 (.f64 (.f64 M M) h) w)) (.f64 (.f64 d d) c0))) (pow.f64 D #s(literal 4 binary64))) (/.f64 (.f64 #s(literal 2 binary64) (.f64 (.f64 d d) c0)) (.f64 h w))) (.f64 D D)))
#s(approx (* D D) (*.f64 D D))
#s(approx D D)
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) (/.f64 (+.f64 (.f64 (/.f64 c0 h) (/.f64 (.f64 d d) w)) (.f64 (/.f64 (.f64 (.f64 (.f64 (.f64 M M) h) w) (pow.f64 D #s(literal 4 binary64))) (.f64 (.f64 d d) c0)) #s(literal -1/2 binary64))) (.f64 D D)))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) (/.f64 (+.f64 (.f64 (-.f64 (/.f64 (.f64 #s(literal -1/2 binary64) (.f64 (.f64 (.f64 M M) h) w)) (.f64 (.f64 d d) c0)) (.f64 #s(literal 1/8 binary64) (.f64 (ratio-of-squares.f64 (.f64 D D) (pow.f64 c0 #s(literal 3/2 binary64))) (/.f64 (.f64 (pow.f64 (.f64 h w) #s(literal 3 binary64)) (pow.f64 M #s(literal 4 binary64))) (pow.f64 d #s(literal 6 binary64)))))) (pow.f64 D #s(literal 4 binary64))) (.f64 (/.f64 c0 h) (/.f64 (.f64 d d) w))) (*.f64 D D)))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) (/.f64 (+.f64 (.f64 (+.f64 (.f64 (-.f64 (.f64 (.f64 (ratio-of-squares.f64 (.f64 M M) (pow.f64 c0 #s(literal 3/2 binary64))) (/.f64 (pow.f64 (.f64 h w) #s(literal 3 binary64)) (pow.f64 d #s(literal 6 binary64)))) #s(literal -1/8 binary64)) (.f64 #s(literal 1/16 binary64) (.f64 (ratio-of-squares.f64 (.f64 D D) (pow.f64 c0 #s(literal 5/2 binary64))) (/.f64 (.f64 (pow.f64 (.f64 h w) #s(literal 5 binary64)) (pow.f64 M #s(literal 6 binary64))) (pow.f64 d #s(literal 10 binary64)))))) (pow.f64 D #s(literal 4 binary64))) (/.f64 (.f64 #s(literal -1/2 binary64) (.f64 (.f64 (.f64 M M) h) w)) (.f64 (.f64 d d) c0))) (pow.f64 D #s(literal 4 binary64))) (.f64 (/.f64 c0 h) (/.f64 (.f64 d d) w))) (.f64 D D)))
#s(approx (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)) (/.f64 (+.f64 (.f64 (ratio-of-squares.f64 c0 h) (ratio-of-squares.f64 (.f64 d d) w)) (neg.f64 (.f64 (.f64 M M) (pow.f64 D #s(literal 4 binary64))))) (pow.f64 D #s(literal 4 binary64))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (+.f64 (.f64 (-.f64 (.f64 (.f64 (ratio-of-squares.f64 (pow.f64 c0 #s(literal 3/2 binary64)) (.f64 D D)) (/.f64 (.f64 d d) (.f64 (.f64 M (.f64 h h)) (.f64 (pow.f64 w #s(literal 3 binary64)) (sqrt.f64 #s(literal -1 binary64)))))) #s(literal 1/4 binary64)) (.f64 #s(literal -1/2 binary64) (/.f64 (ratio-of-squares.f64 c0 D) (.f64 (.f64 w w) h)))) (.f64 d d)) (.f64 (/.f64 (.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) c0) M) w) #s(literal 1/2 binary64))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (+.f64 (.f64 (+.f64 (.f64 (-.f64 (.f64 (.f64 (ratio-of-squares.f64 (pow.f64 c0 #s(literal 5/2 binary64)) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 (.f64 (.f64 (pow.f64 #s(literal -1 binary64) #s(literal 3/2 binary64)) (pow.f64 w #s(literal 5 binary64))) (pow.f64 h #s(literal 4 binary64))) (pow.f64 M #s(literal 3 binary64))))) #s(literal -1/16 binary64)) (.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 c0 #s(literal 3 binary64)) (.f64 (.f64 (pow.f64 D #s(literal 4 binary64)) M) (.f64 (.f64 (pow.f64 w #s(literal 3 binary64)) (sqrt.f64 #s(literal -1 binary64))) (.f64 h h)))))) (.f64 d d)) (.f64 (/.f64 (ratio-of-squares.f64 c0 D) (.f64 (.f64 w w) h)) #s(literal 1/2 binary64))) (.f64 d d)) (.f64 (/.f64 (.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) c0) M) w) #s(literal 1/2 binary64))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (+.f64 (.f64 (+.f64 (/.f64 (/.f64 c0 (.f64 D D)) (.f64 h w)) (.f64 (/.f64 (ratio-of-squares.f64 (pow.f64 (.f64 c0 d) #s(literal 1 binary64)) (.f64 D D)) (.f64 (.f64 (pow.f64 (.f64 h w) #s(literal 2 binary64)) (sqrt.f64 #s(literal -1 binary64))) M)) #s(literal 1/2 binary64))) (.f64 d d)) (*.f64 (sqrt.f64 #s(literal -1 binary64)) M)))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (+.f64 (.f64 (+.f64 (.f64 (-.f64 (.f64 (/.f64 (/.f64 (pow.f64 (.f64 c0 d) #s(literal 4 binary64)) (pow.f64 D #s(literal 8 binary64))) (.f64 (.f64 (.f64 (pow.f64 w #s(literal 4 binary64)) (pow.f64 #s(literal -1 binary64) #s(literal 3/2 binary64))) (pow.f64 h #s(literal 4 binary64))) (pow.f64 M #s(literal 3 binary64)))) #s(literal -1/8 binary64)) (.f64 #s(literal -1/2 binary64) (/.f64 (ratio-of-squares.f64 c0 (.f64 D D)) (.f64 (.f64 (pow.f64 (.f64 h w) #s(literal 2 binary64)) (sqrt.f64 #s(literal -1 binary64))) M)))) (.f64 d d)) (/.f64 (/.f64 c0 (.f64 D D)) (.f64 h w))) (.f64 d d)) (*.f64 (sqrt.f64 #s(literal -1 binary64)) M)))
#s(approx (* d d) (*.f64 d d))
#s(approx d d)
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) (+.f64 (.f64 (-.f64 (.f64 (/.f64 (/.f64 (pow.f64 (.f64 c0 d) #s(literal 4 binary64)) (pow.f64 D #s(literal 8 binary64))) (.f64 (.f64 (.f64 (pow.f64 w #s(literal 4 binary64)) (pow.f64 #s(literal -1 binary64) #s(literal 3/2 binary64))) (pow.f64 h #s(literal 4 binary64))) (pow.f64 M #s(literal 3 binary64)))) #s(literal -1/8 binary64)) (.f64 #s(literal -1/2 binary64) (/.f64 (ratio-of-squares.f64 c0 (.f64 D D)) (.f64 (.f64 (pow.f64 (.f64 h w) #s(literal 2 binary64)) (sqrt.f64 #s(literal -1 binary64))) M)))) (pow.f64 d #s(literal 4 binary64))) (.f64 (sqrt.f64 #s(literal -1 binary64)) M)))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) (+.f64 (.f64 (+.f64 (.f64 (-.f64 (/.f64 (.f64 #s(literal -1/8 binary64) (pow.f64 c0 #s(literal 4 binary64))) (.f64 (.f64 (.f64 (.f64 (pow.f64 w #s(literal 4 binary64)) (pow.f64 #s(literal -1 binary64) #s(literal 3/2 binary64))) (pow.f64 h #s(literal 4 binary64))) (pow.f64 M #s(literal 3 binary64))) (pow.f64 D #s(literal 8 binary64)))) (.f64 #s(literal -1/16 binary64) (.f64 (ratio-of-squares.f64 (pow.f64 c0 #s(literal 3 binary64)) (pow.f64 D #s(literal 6 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 (.f64 (.f64 (pow.f64 #s(literal -1 binary64) #s(literal 5/2 binary64)) (pow.f64 w #s(literal 6 binary64))) (pow.f64 h #s(literal 6 binary64))) (pow.f64 M #s(literal 5 binary64))))))) (pow.f64 d #s(literal 4 binary64))) (.f64 (/.f64 (ratio-of-squares.f64 c0 (.f64 D D)) (.f64 (.f64 (pow.f64 (.f64 h w) #s(literal 2 binary64)) (sqrt.f64 #s(literal -1 binary64))) M)) #s(literal 1/2 binary64))) (pow.f64 d #s(literal 4 binary64))) (.f64 (sqrt.f64 #s(literal -1 binary64)) M)))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (.f64 (+.f64 (.f64 (/.f64 (.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) h) (pow.f64 d #s(literal 4 binary64))) #s(literal -1/4 binary64)) (/.f64 (ratio-of-squares.f64 c0 D) (.f64 (.f64 w w) h))) (*.f64 d d)))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (.f64 (+.f64 (+.f64 (.f64 (/.f64 (.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) h) (pow.f64 d #s(literal 4 binary64))) #s(literal -1/4 binary64)) (.f64 (.f64 (ratio-of-squares.f64 (pow.f64 D #s(literal 3 binary64)) c0) (/.f64 (.f64 (.f64 (pow.f64 h #s(literal 3 binary64)) (.f64 w w)) (pow.f64 M #s(literal 4 binary64))) (pow.f64 d #s(literal 8 binary64)))) #s(literal -1/16 binary64))) (/.f64 (ratio-of-squares.f64 c0 D) (.f64 (.f64 w w) h))) (.f64 d d)))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (.f64 (+.f64 (+.f64 (.f64 (/.f64 (.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) h) (pow.f64 d #s(literal 4 binary64))) #s(literal -1/4 binary64)) (.f64 (.f64 (ratio-of-squares.f64 (pow.f64 D #s(literal 3 binary64)) c0) (/.f64 (.f64 (.f64 (pow.f64 h #s(literal 3 binary64)) (.f64 w w)) (pow.f64 M #s(literal 4 binary64))) (pow.f64 d #s(literal 8 binary64)))) #s(literal -1/16 binary64))) (+.f64 (.f64 (.f64 (ratio-of-squares.f64 (pow.f64 D #s(literal 5 binary64)) (.f64 c0 c0)) (/.f64 (.f64 (.f64 (pow.f64 h #s(literal 5 binary64)) (pow.f64 w #s(literal 4 binary64))) (pow.f64 M #s(literal 6 binary64))) (pow.f64 d #s(literal 12 binary64)))) #s(literal -1/32 binary64)) (/.f64 (ratio-of-squares.f64 c0 D) (.f64 (.f64 w w) h)))) (*.f64 d d)))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (.f64 (+.f64 (/.f64 (.f64 #s(literal 2 binary64) c0) (.f64 (.f64 (.f64 h w) D) D)) (.f64 (/.f64 (.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) (.f64 h w)) (.f64 (pow.f64 d #s(literal 4 binary64)) c0)) #s(literal -1/2 binary64))) (*.f64 d d)))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (.f64 (+.f64 (-.f64 (.f64 (.f64 (ratio-of-squares.f64 (pow.f64 D #s(literal 3 binary64)) (pow.f64 c0 #s(literal 3/2 binary64))) (/.f64 (.f64 (pow.f64 (.f64 h w) #s(literal 3 binary64)) (pow.f64 M #s(literal 4 binary64))) (pow.f64 d #s(literal 8 binary64)))) #s(literal -1/8 binary64)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 c0 (.f64 D D)) (.f64 h w)))) (.f64 (/.f64 (.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) (.f64 h w)) (.f64 (pow.f64 d #s(literal 4 binary64)) c0)) #s(literal -1/2 binary64))) (.f64 d d)))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (.f64 (+.f64 (+.f64 (.f64 (/.f64 (.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) (.f64 h w)) (.f64 (pow.f64 d #s(literal 4 binary64)) c0)) #s(literal -1/2 binary64)) (.f64 (.f64 (ratio-of-squares.f64 (pow.f64 D #s(literal 3 binary64)) (pow.f64 c0 #s(literal 3/2 binary64))) (/.f64 (.f64 (pow.f64 (.f64 h w) #s(literal 3 binary64)) (pow.f64 M #s(literal 4 binary64))) (pow.f64 d #s(literal 8 binary64)))) #s(literal -1/8 binary64))) (-.f64 (.f64 (.f64 (ratio-of-squares.f64 (pow.f64 D #s(literal 5 binary64)) (pow.f64 c0 #s(literal 5/2 binary64))) (/.f64 (.f64 (pow.f64 (.f64 h w) #s(literal 5 binary64)) (pow.f64 M #s(literal 6 binary64))) (pow.f64 d #s(literal 12 binary64)))) #s(literal -1/16 binary64)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 c0 (.f64 D D)) (.f64 h w))))) (.f64 d d)))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) (.f64 (+.f64 (.f64 (/.f64 (.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) (.f64 h w)) (.f64 (pow.f64 d #s(literal 4 binary64)) c0)) #s(literal -1/2 binary64)) (/.f64 (/.f64 c0 (.f64 D D)) (.f64 h w))) (*.f64 d d)))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) (.f64 (+.f64 (+.f64 (.f64 (/.f64 (.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) (.f64 h w)) (.f64 (pow.f64 d #s(literal 4 binary64)) c0)) #s(literal -1/2 binary64)) (.f64 (.f64 (ratio-of-squares.f64 (pow.f64 D #s(literal 3 binary64)) (pow.f64 c0 #s(literal 3/2 binary64))) (/.f64 (.f64 (pow.f64 (.f64 h w) #s(literal 3 binary64)) (pow.f64 M #s(literal 4 binary64))) (pow.f64 d #s(literal 8 binary64)))) #s(literal -1/8 binary64))) (/.f64 (/.f64 c0 (.f64 D D)) (.f64 h w))) (*.f64 d d)))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) (.f64 (+.f64 (+.f64 (.f64 (/.f64 (.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) (.f64 h w)) (.f64 (pow.f64 d #s(literal 4 binary64)) c0)) #s(literal -1/2 binary64)) (.f64 (.f64 (ratio-of-squares.f64 (pow.f64 D #s(literal 3 binary64)) (pow.f64 c0 #s(literal 3/2 binary64))) (/.f64 (.f64 (pow.f64 (.f64 h w) #s(literal 3 binary64)) (pow.f64 M #s(literal 4 binary64))) (pow.f64 d #s(literal 8 binary64)))) #s(literal -1/8 binary64))) (+.f64 (.f64 (.f64 (ratio-of-squares.f64 (pow.f64 D #s(literal 5 binary64)) (pow.f64 c0 #s(literal 5/2 binary64))) (/.f64 (.f64 (pow.f64 (.f64 h w) #s(literal 5 binary64)) (pow.f64 M #s(literal 6 binary64))) (pow.f64 d #s(literal 12 binary64)))) #s(literal -1/16 binary64)) (/.f64 (/.f64 c0 (.f64 D D)) (.f64 h w)))) (*.f64 d d)))
#s(approx (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)) (.f64 (+.f64 (/.f64 (ratio-of-squares.f64 c0 (.f64 D D)) (pow.f64 (.f64 h w) #s(literal 2 binary64))) (neg.f64 (ratio-of-squares.f64 M (.f64 d d)))) (pow.f64 d #s(literal 4 binary64))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (+.f64 (.f64 (/.f64 (.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) h) (.f64 d d)) #s(literal -1/4 binary64)) (.f64 (.f64 c0 c0) (/.f64 (ratio-of-squares.f64 d D) (.f64 (.f64 w w) h)))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (+.f64 (.f64 (-.f64 (/.f64 (.f64 #s(literal -1/4 binary64) (.f64 (.f64 D D) h)) (.f64 d d)) (.f64 #s(literal 1/16 binary64) (.f64 (ratio-of-squares.f64 (pow.f64 D #s(literal 3 binary64)) c0) (/.f64 (.f64 (.f64 (pow.f64 h #s(literal 3 binary64)) (.f64 w w)) (.f64 M M)) (pow.f64 d #s(literal 6 binary64)))))) (.f64 M M)) (.f64 (.f64 c0 c0) (/.f64 (ratio-of-squares.f64 d D) (.f64 (.f64 w w) h)))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (+.f64 (.f64 (+.f64 (.f64 (-.f64 (.f64 (.f64 (ratio-of-squares.f64 (pow.f64 D #s(literal 3 binary64)) c0) (/.f64 (.f64 (pow.f64 h #s(literal 3 binary64)) (.f64 w w)) (pow.f64 d #s(literal 6 binary64)))) #s(literal -1/16 binary64)) (.f64 #s(literal 1/32 binary64) (.f64 (ratio-of-squares.f64 (pow.f64 D #s(literal 5 binary64)) (.f64 c0 c0)) (/.f64 (.f64 (.f64 (pow.f64 h #s(literal 5 binary64)) (pow.f64 w #s(literal 4 binary64))) (.f64 M M)) (pow.f64 d #s(literal 10 binary64)))))) (.f64 M M)) (/.f64 (.f64 #s(literal -1/4 binary64) (.f64 (.f64 D D) h)) (.f64 d d))) (.f64 M M)) (.f64 (.f64 c0 c0) (/.f64 (ratio-of-squares.f64 d D) (.f64 (.f64 w w) h)))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (+.f64 (.f64 (/.f64 (.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) (.f64 h w)) (.f64 (.f64 d d) c0)) #s(literal -1/2 binary64)) (.f64 (.f64 (/.f64 c0 (*.f64 h w)) (ratio-of-squares.f64 d D)) #s(literal 2 binary64))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (+.f64 (.f64 (+.f64 (.f64 (.f64 (ratio-of-squares.f64 (pow.f64 D #s(literal 3 binary64)) (pow.f64 c0 #s(literal 3/2 binary64))) (/.f64 (.f64 (pow.f64 (.f64 h w) #s(literal 3 binary64)) (.f64 M M)) (pow.f64 d #s(literal 6 binary64)))) #s(literal -1/8 binary64)) (.f64 (/.f64 (.f64 (.f64 (.f64 h w) D) D) (.f64 (.f64 d d) c0)) #s(literal -1/2 binary64))) (.f64 M M)) (.f64 (.f64 (/.f64 c0 (.f64 h w)) (ratio-of-squares.f64 d D)) #s(literal 2 binary64))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (+.f64 (.f64 (+.f64 (.f64 (-.f64 (.f64 (.f64 (ratio-of-squares.f64 (pow.f64 D #s(literal 3 binary64)) (pow.f64 c0 #s(literal 3/2 binary64))) (/.f64 (pow.f64 (.f64 h w) #s(literal 3 binary64)) (pow.f64 d #s(literal 6 binary64)))) #s(literal -1/8 binary64)) (.f64 #s(literal 1/16 binary64) (.f64 (ratio-of-squares.f64 (pow.f64 D #s(literal 5 binary64)) (pow.f64 c0 #s(literal 5/2 binary64))) (/.f64 (.f64 (pow.f64 (.f64 h w) #s(literal 5 binary64)) (.f64 M M)) (pow.f64 d #s(literal 10 binary64)))))) (.f64 M M)) (.f64 (/.f64 (.f64 (.f64 (.f64 h w) D) D) (.f64 (.f64 d d) c0)) #s(literal -1/2 binary64))) (.f64 M M)) (.f64 (.f64 (/.f64 c0 (*.f64 h w)) (ratio-of-squares.f64 d D)) #s(literal 2 binary64))))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) (+.f64 (.f64 (/.f64 (.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) (.f64 h w)) (.f64 (.f64 d d) c0)) #s(literal -1/2 binary64)) (.f64 (/.f64 c0 (.f64 h w)) (ratio-of-squares.f64 d D))))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) (+.f64 (.f64 (+.f64 (.f64 (.f64 (ratio-of-squares.f64 (pow.f64 D #s(literal 3 binary64)) (pow.f64 c0 #s(literal 3/2 binary64))) (/.f64 (.f64 (pow.f64 (.f64 h w) #s(literal 3 binary64)) (.f64 M M)) (pow.f64 d #s(literal 6 binary64)))) #s(literal -1/8 binary64)) (.f64 (/.f64 (.f64 (.f64 (.f64 h w) D) D) (.f64 (.f64 d d) c0)) #s(literal -1/2 binary64))) (.f64 M M)) (.f64 (/.f64 c0 (*.f64 h w)) (ratio-of-squares.f64 d D))))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) (+.f64 (.f64 (+.f64 (.f64 (-.f64 (.f64 (.f64 (ratio-of-squares.f64 (pow.f64 D #s(literal 3 binary64)) (pow.f64 c0 #s(literal 3/2 binary64))) (/.f64 (pow.f64 (.f64 h w) #s(literal 3 binary64)) (pow.f64 d #s(literal 6 binary64)))) #s(literal -1/8 binary64)) (.f64 #s(literal 1/16 binary64) (.f64 (ratio-of-squares.f64 (pow.f64 D #s(literal 5 binary64)) (pow.f64 c0 #s(literal 5/2 binary64))) (/.f64 (.f64 (pow.f64 (.f64 h w) #s(literal 5 binary64)) (.f64 M M)) (pow.f64 d #s(literal 10 binary64)))))) (.f64 M M)) (.f64 (/.f64 (.f64 (.f64 (.f64 h w) D) D) (.f64 (.f64 d d) c0)) #s(literal -1/2 binary64))) (.f64 M M)) (.f64 (/.f64 c0 (.f64 h w)) (ratio-of-squares.f64 d D))))
#s(approx (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)) (+.f64 (.f64 (ratio-of-squares.f64 c0 (.f64 D D)) (ratio-of-squares.f64 (.f64 d d) (pow.f64 (.f64 h w) #s(literal 1 binary64)))) (neg.f64 (*.f64 M M))))
#s(approx (* M M) (*.f64 M M))
#s(approx M M)
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (/.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) c0) w) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) (.f64 (.f64 (.f64 w w) h) M))))) M))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (.f64 (+.f64 (.f64 (/.f64 (/.f64 (.f64 (pow.f64 c0 #s(literal 3 binary64)) (pow.f64 d #s(literal 4 binary64))) (pow.f64 D #s(literal 4 binary64))) (.f64 (pow.f64 (.f64 M h) #s(literal 2 binary64)) (.f64 (pow.f64 w #s(literal 3 binary64)) (sqrt.f64 #s(literal -1 binary64))))) #s(literal 1/4 binary64)) (.f64 #s(literal 1/2 binary64) (+.f64 (/.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) c0) w) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) (.f64 (.f64 (*.f64 w w) h) M)))))) M))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (.f64 (+.f64 (.f64 (.f64 (ratio-of-squares.f64 (pow.f64 c0 #s(literal 5/2 binary64)) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 8 binary64)) (.f64 (pow.f64 M #s(literal 4 binary64)) (.f64 (.f64 (pow.f64 #s(literal -1 binary64) #s(literal 3/2 binary64)) (pow.f64 w #s(literal 5 binary64))) (pow.f64 h #s(literal 4 binary64)))))) #s(literal -1/16 binary64)) (+.f64 (.f64 (/.f64 (/.f64 (.f64 (pow.f64 c0 #s(literal 3 binary64)) (pow.f64 d #s(literal 4 binary64))) (pow.f64 D #s(literal 4 binary64))) (.f64 (pow.f64 (.f64 M h) #s(literal 2 binary64)) (.f64 (pow.f64 w #s(literal 3 binary64)) (sqrt.f64 #s(literal -1 binary64))))) #s(literal 1/4 binary64)) (.f64 #s(literal 1/2 binary64) (+.f64 (/.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) c0) w) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) (.f64 (.f64 (.f64 w w) h) M))))))) M))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (.f64 (+.f64 (/.f64 (.f64 (.f64 d d) c0) (.f64 (.f64 (.f64 D D) M) (*.f64 h w))) (sqrt.f64 #s(literal -1 binary64))) M))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (.f64 (+.f64 (-.f64 (sqrt.f64 #s(literal -1 binary64)) (.f64 #s(literal -1/2 binary64) (.f64 (ratio-of-squares.f64 c0 (.f64 D D)) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 (.f64 M M) (.f64 (pow.f64 (.f64 h w) #s(literal 2 binary64)) (sqrt.f64 #s(literal -1 binary64)))))))) (/.f64 (.f64 (.f64 d d) c0) (.f64 (.f64 (.f64 D D) M) (.f64 h w)))) M))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (.f64 (+.f64 (+.f64 (sqrt.f64 #s(literal -1 binary64)) (.f64 (.f64 (ratio-of-squares.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 8 binary64)) (.f64 (pow.f64 M #s(literal 4 binary64)) (.f64 (.f64 (pow.f64 w #s(literal 4 binary64)) (pow.f64 #s(literal -1 binary64) #s(literal 3/2 binary64))) (pow.f64 h #s(literal 4 binary64)))))) #s(literal -1/8 binary64))) (+.f64 (.f64 (.f64 (ratio-of-squares.f64 c0 (.f64 D D)) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 (.f64 M M) (.f64 (pow.f64 (.f64 h w) #s(literal 2 binary64)) (sqrt.f64 #s(literal -1 binary64)))))) #s(literal 1/2 binary64)) (/.f64 (.f64 (.f64 d d) c0) (.f64 (.f64 (.f64 D D) M) (.f64 h w))))) M))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) (.f64 (-.f64 (sqrt.f64 #s(literal -1 binary64)) (.f64 #s(literal -1/2 binary64) (.f64 (ratio-of-squares.f64 c0 (.f64 D D)) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 (.f64 M M) (.f64 (pow.f64 (.f64 h w) #s(literal 2 binary64)) (sqrt.f64 #s(literal -1 binary64)))))))) M))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) (.f64 (+.f64 (+.f64 (sqrt.f64 #s(literal -1 binary64)) (.f64 (.f64 (ratio-of-squares.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 8 binary64)) (.f64 (pow.f64 M #s(literal 4 binary64)) (.f64 (.f64 (pow.f64 w #s(literal 4 binary64)) (pow.f64 #s(literal -1 binary64) #s(literal 3/2 binary64))) (pow.f64 h #s(literal 4 binary64)))))) #s(literal -1/8 binary64))) (.f64 (.f64 (ratio-of-squares.f64 c0 (.f64 D D)) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 (.f64 M M) (.f64 (pow.f64 (.f64 h w) #s(literal 2 binary64)) (sqrt.f64 #s(literal -1 binary64)))))) #s(literal 1/2 binary64))) M))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) (.f64 (+.f64 (+.f64 (sqrt.f64 #s(literal -1 binary64)) (.f64 (.f64 (ratio-of-squares.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 8 binary64)) (.f64 (pow.f64 M #s(literal 4 binary64)) (.f64 (.f64 (pow.f64 w #s(literal 4 binary64)) (pow.f64 #s(literal -1 binary64) #s(literal 3/2 binary64))) (pow.f64 h #s(literal 4 binary64)))))) #s(literal -1/8 binary64))) (-.f64 (.f64 (.f64 (ratio-of-squares.f64 (pow.f64 c0 #s(literal 3 binary64)) (pow.f64 D #s(literal 6 binary64))) (/.f64 (pow.f64 d #s(literal 12 binary64)) (.f64 (pow.f64 M #s(literal 6 binary64)) (.f64 (.f64 (pow.f64 #s(literal -1 binary64) #s(literal 5/2 binary64)) (pow.f64 w #s(literal 6 binary64))) (pow.f64 h #s(literal 6 binary64)))))) #s(literal 1/16 binary64)) (.f64 #s(literal -1/2 binary64) (.f64 (ratio-of-squares.f64 c0 (.f64 D D)) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 (.f64 M M) (.f64 (pow.f64 (*.f64 h w) #s(literal 2 binary64)) (sqrt.f64 #s(literal -1 binary64))))))))) M))
#s(approx (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)) (.f64 (-.f64 (.f64 (ratio-of-squares.f64 c0 (.f64 D D)) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 (pow.f64 (.f64 M h) #s(literal 2 binary64)) (.f64 w w)))) #s(literal 1 binary64)) (*.f64 M M)))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) c0) M) w)))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (neg.f64 (.f64 (-.f64 (.f64 (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) (.f64 (.f64 (.f64 w w) h) M))) #s(literal -1/2 binary64)) (.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) c0) w))) M)))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (neg.f64 (.f64 (-.f64 (neg.f64 (/.f64 (-.f64 (.f64 (.f64 (pow.f64 c0 #s(literal 3 binary64)) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 (.f64 (pow.f64 D #s(literal 4 binary64)) M) (.f64 (.f64 (pow.f64 w #s(literal 3 binary64)) (sqrt.f64 #s(literal -1 binary64))) (.f64 h h))))) #s(literal -1/4 binary64)) (.f64 #s(literal -1/2 binary64) (.f64 (.f64 c0 c0) (/.f64 (ratio-of-squares.f64 d D) (.f64 (.f64 w w) h))))) M)) (.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) c0) w))) M)))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (neg.f64 (.f64 (-.f64 (neg.f64 (/.f64 (-.f64 (neg.f64 (/.f64 (-.f64 (.f64 (.f64 (ratio-of-squares.f64 (pow.f64 c0 #s(literal 5/2 binary64)) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 8 binary64)) (.f64 (.f64 M M) (.f64 (.f64 (pow.f64 #s(literal -1 binary64) #s(literal 3/2 binary64)) (pow.f64 w #s(literal 5 binary64))) (pow.f64 h #s(literal 4 binary64)))))) #s(literal -1/16 binary64)) (.f64 #s(literal -1/4 binary64) (.f64 (ratio-of-squares.f64 (pow.f64 c0 #s(literal 3/2 binary64)) (.f64 D D)) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 (.f64 (pow.f64 w #s(literal 3 binary64)) (sqrt.f64 #s(literal -1 binary64))) (.f64 h h)))))) M)) (.f64 #s(literal -1/2 binary64) (.f64 (.f64 c0 c0) (/.f64 (ratio-of-squares.f64 d D) (.f64 (.f64 w w) h))))) M)) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (sqrt.f64 #s(literal -1 binary64)) c0) w))) M)))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (neg.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) M)))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (neg.f64 (.f64 (+.f64 (neg.f64 (/.f64 (.f64 (.f64 d d) c0) (.f64 (.f64 (.f64 D D) M) (*.f64 h w)))) (sqrt.f64 #s(literal -1 binary64))) M)))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (neg.f64 (.f64 (+.f64 (neg.f64 (/.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (ratio-of-squares.f64 c0 (.f64 D D)) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 (.f64 (pow.f64 (.f64 h w) #s(literal 2 binary64)) (sqrt.f64 #s(literal -1 binary64))) M)))) (.f64 (/.f64 c0 (*.f64 h w)) (ratio-of-squares.f64 d D))) M)) (sqrt.f64 #s(literal -1 binary64))) M)))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (neg.f64 (.f64 (+.f64 (neg.f64 (/.f64 (+.f64 (neg.f64 (/.f64 (-.f64 (.f64 (.f64 (ratio-of-squares.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 8 binary64)) (.f64 (.f64 M M) (.f64 (.f64 (pow.f64 w #s(literal 4 binary64)) (pow.f64 #s(literal -1 binary64) #s(literal 3/2 binary64))) (pow.f64 h #s(literal 4 binary64)))))) #s(literal -1/8 binary64)) (.f64 #s(literal -1/2 binary64) (.f64 (ratio-of-squares.f64 c0 (.f64 D D)) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 (pow.f64 (.f64 h w) #s(literal 2 binary64)) (sqrt.f64 #s(literal -1 binary64))))))) M)) (.f64 (/.f64 c0 (*.f64 h w)) (ratio-of-squares.f64 d D))) M)) (sqrt.f64 #s(literal -1 binary64))) M)))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) (neg.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) M)))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) (neg.f64 (.f64 (-.f64 (sqrt.f64 #s(literal -1 binary64)) (.f64 #s(literal -1/2 binary64) (.f64 (ratio-of-squares.f64 c0 (.f64 D D)) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 (.f64 M M) (.f64 (pow.f64 (.f64 h w) #s(literal 2 binary64)) (sqrt.f64 #s(literal -1 binary64)))))))) M)))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) (neg.f64 (.f64 (+.f64 (+.f64 (sqrt.f64 #s(literal -1 binary64)) (.f64 (.f64 (ratio-of-squares.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 8 binary64)) (.f64 (pow.f64 M #s(literal 4 binary64)) (.f64 (.f64 (pow.f64 w #s(literal 4 binary64)) (pow.f64 #s(literal -1 binary64) #s(literal 3/2 binary64))) (pow.f64 h #s(literal 4 binary64)))))) #s(literal -1/8 binary64))) (.f64 (.f64 (ratio-of-squares.f64 c0 (.f64 D D)) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 (.f64 M M) (.f64 (pow.f64 (.f64 h w) #s(literal 2 binary64)) (sqrt.f64 #s(literal -1 binary64)))))) #s(literal 1/2 binary64))) M)))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) (neg.f64 (.f64 (+.f64 (+.f64 (sqrt.f64 #s(literal -1 binary64)) (.f64 (.f64 (ratio-of-squares.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 8 binary64)) (.f64 (pow.f64 M #s(literal 4 binary64)) (.f64 (.f64 (pow.f64 w #s(literal 4 binary64)) (pow.f64 #s(literal -1 binary64) #s(literal 3/2 binary64))) (pow.f64 h #s(literal 4 binary64)))))) #s(literal -1/8 binary64))) (-.f64 (.f64 (.f64 (ratio-of-squares.f64 (pow.f64 c0 #s(literal 3 binary64)) (pow.f64 D #s(literal 6 binary64))) (/.f64 (pow.f64 d #s(literal 12 binary64)) (.f64 (pow.f64 M #s(literal 6 binary64)) (.f64 (.f64 (pow.f64 #s(literal -1 binary64) #s(literal 5/2 binary64)) (pow.f64 w #s(literal 6 binary64))) (pow.f64 h #s(literal 6 binary64)))))) #s(literal 1/16 binary64)) (.f64 #s(literal -1/2 binary64) (.f64 (ratio-of-squares.f64 c0 (.f64 D D)) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 (.f64 M M) (.f64 (pow.f64 (*.f64 h w) #s(literal 2 binary64)) (sqrt.f64 #s(literal -1 binary64))))))))) M)))

eval546.0ms (3.3%)

Memory

-1.1MiB live, 933.4MiB allocated; 151ms collecting garbage

Samples

200.0ms	4 133×	0	invalid
185.0ms	4 571×	0	valid

Compiler

Compiled 24 894 to 2 034 computations (91.8% saved)

Precisions

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

ival-mult: 105.0ms (58.7% of total)

ival-div: 59.0ms (33% of total)

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

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

adjust: 2.0ms (1.1% of total)

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

ival-add: 1.0ms (0.6% of total)

ival-sqrt: 1.0ms (0.6% of total)

prune762.0ms (4.6%)

Memory

12.3MiB live, 860.0MiB allocated; 125ms collecting garbage

Pruning

23 alts after pruning (23 fresh and 0 done)

	Pruned	Kept	Total
New	325	23	348
Fresh	0	0	0
Picked	1	0	1
Done	0	0	0
Total	326	23	349

Accuracy

53.0%

Counts

349 → 23

Alt Table

Click to see full alt table

Status	Accuracy	Program
▶	14.4%	(/.f64 (.f64 c0 (+.f64 (.f64 (/.f64 c0 (.f64 h w)) (ratio-of-squares.f64 d D)) (sqrt-product.f64 (.f64 (/.f64 c0 (.f64 h w)) (ratio-of-squares.f64 d D)) M))) (.f64 w #s(literal 2 binary64)))
	7.5%	(.f64 (/.f64 c0 (.f64 #s(literal 2 binary64) w)) (/.f64 (+.f64 (pow.f64 (.f64 (/.f64 c0 (.f64 h w)) (ratio-of-squares.f64 d D)) #s(literal 3 binary64)) (pow.f64 (sqrt-product.f64 (.f64 (/.f64 c0 (.f64 h w)) (ratio-of-squares.f64 d D)) M) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (/.f64 c0 (.f64 h w)) (ratio-of-squares.f64 d D)) #s(literal 2 binary64)) (-.f64 (.f64 (sqrt-product.f64 (.f64 (/.f64 c0 (.f64 h w)) (ratio-of-squares.f64 d D)) M) (sqrt-product.f64 (.f64 (/.f64 c0 (.f64 h w)) (ratio-of-squares.f64 d D)) M)) (.f64 (.f64 (/.f64 c0 (.f64 h w)) (ratio-of-squares.f64 d D)) (sqrt-product.f64 (.f64 (/.f64 c0 (.f64 h w)) (ratio-of-squares.f64 d D)) M))))))
	21.6%	(.f64 (/.f64 c0 (.f64 #s(literal 2 binary64) w)) (+.f64 (/.f64 (.f64 (.f64 d d) c0) (.f64 (.f64 (.f64 h w) D) D)) (sqrt.f64 (-.f64 (.f64 (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 w h) (.f64 D D))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 w h) (.f64 D D)))) (*.f64 M M)))))
	21.2%	(.f64 (/.f64 c0 (.f64 #s(literal 2 binary64) w)) (+.f64 (/.f64 (.f64 (.f64 c0 d) d) (.f64 (.f64 w h) (.f64 D D))) (sqrt.f64 (-.f64 (.f64 (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 w h) (.f64 D D))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 w h) (.f64 D D)))) (*.f64 M M)))))
	5.3%	(.f64 (/.f64 c0 (.f64 #s(literal 2 binary64) w)) (+.f64 (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 w h) (.f64 D D))) (sqrt.f64 (-.f64 (ratio-of-squares.f64 (.f64 (.f64 d d) c0) (.f64 (.f64 (.f64 h w) D) D)) (*.f64 M M)))))
	8.8%	(.f64 (/.f64 c0 (.f64 #s(literal 2 binary64) w)) (+.f64 (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 w h) (.f64 D D))) (sqrt.f64 #s(approx (- ( (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)) (neg.f64 (*.f64 M M))))))
	19.4%	(.f64 (/.f64 c0 (.f64 #s(literal 2 binary64) w)) (+.f64 (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 w h) (.f64 D D))) #s(approx (sqrt (- ( (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) (/.f64 (+.f64 (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (.f64 d d) h)) (.f64 (/.f64 (.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) (.f64 (.f64 w w) h)) (.f64 (.f64 d d) c0)) #s(literal -1/2 binary64))) w))))
	28.9%	(.f64 (/.f64 c0 (.f64 #s(literal 2 binary64) w)) (+.f64 (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 w h) (.f64 D D))) #s(approx (sqrt (- ( (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) (.f64 (/.f64 c0 (.f64 h w)) (ratio-of-squares.f64 d D)))))
▶	20.9%	(.f64 (/.f64 c0 (.f64 #s(literal 2 binary64) w)) (+.f64 (.f64 (/.f64 c0 (.f64 h w)) (ratio-of-squares.f64 d D)) (sqrt.f64 (-.f64 (.f64 (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 w h) (.f64 D D))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 w h) (.f64 D D)))) (.f64 M M)))))
	20.2%	(.f64 (/.f64 c0 (.f64 #s(literal 2 binary64) w)) #s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (/.f64 (+.f64 (/.f64 (.f64 #s(literal 2 binary64) (.f64 (.f64 d d) c0)) (.f64 (.f64 D D) w)) (.f64 (/.f64 (.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) (.f64 (.f64 h h) w)) (.f64 (.f64 d d) c0)) #s(literal -1/2 binary64))) h)))
	20.2%	(.f64 (/.f64 c0 (.f64 #s(literal 2 binary64) w)) #s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (/.f64 (+.f64 (/.f64 (.f64 #s(literal 2 binary64) (.f64 (.f64 d d) c0)) (.f64 (.f64 D D) h)) (.f64 (/.f64 (.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) (.f64 (.f64 w w) h)) (.f64 (.f64 d d) c0)) #s(literal -1/2 binary64))) w)))
	21.8%	(.f64 (/.f64 c0 (.f64 #s(literal 2 binary64) w)) #s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (.f64 (-.f64 (.f64 (.f64 (ratio-of-squares.f64 D c0) (/.f64 (.f64 (.f64 (.f64 M M) h) w) (.f64 d d))) #s(literal -1/2 binary64)) (.f64 #s(literal -2 binary64) (/.f64 (ratio-of-squares.f64 d D) (*.f64 h w)))) c0)))
	23.0%	(.f64 (/.f64 c0 (.f64 #s(literal 2 binary64) w)) #s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (.f64 (+.f64 (/.f64 (.f64 #s(literal 2 binary64) c0) (.f64 (.f64 (.f64 h w) D) D)) (.f64 (/.f64 (.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) (.f64 h w)) (.f64 (pow.f64 d #s(literal 4 binary64)) c0)) #s(literal -1/2 binary64))) (*.f64 d d))))
▶	39.2%	(.f64 (/.f64 c0 (.f64 #s(literal 2 binary64) w)) #s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (.f64 (.f64 (/.f64 c0 (*.f64 h w)) (ratio-of-squares.f64 d D)) #s(literal 2 binary64))))
▶	0.0%	(.f64 (/.f64 c0 (.f64 #s(literal 2 binary64) w)) #s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (*.f64 (sqrt.f64 #s(literal -1 binary64)) M)))
	7.3%	(.f64 (/.f64 c0 (.f64 #s(literal 2 binary64) w)) #s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (neg.f64 (.f64 (.f64 #s(literal 0 binary64) (/.f64 (ratio-of-squares.f64 d D) (*.f64 h w))) c0))))
	31.8%	#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (/.f64 (+.f64 (.f64 (ratio-of-squares.f64 c0 D) (ratio-of-squares.f64 d w)) (.f64 (.f64 (.f64 D D) (ratio-of-squares.f64 (pow.f64 (*.f64 M h) #s(literal 1 binary64)) d)) #s(literal -1/4 binary64))) h))
▶	19.5%	#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (/.f64 (+.f64 (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) h)) (.f64 (/.f64 (.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) (.f64 (.f64 w w) h)) (.f64 d d)) #s(literal -1/4 binary64))) (*.f64 w w)))
	18.4%	#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (/.f64 (+.f64 (.f64 (/.f64 (.f64 c0 c0) h) (ratio-of-squares.f64 d w)) (.f64 (/.f64 (.f64 (.f64 (.f64 M M) h) (pow.f64 D #s(literal 4 binary64))) (.f64 d d)) #s(literal -1/4 binary64))) (.f64 D D)))
	5.9%	#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (.f64 (/.f64 (.f64 (.f64 #s(literal 0 binary64) (/.f64 (ratio-of-squares.f64 d D) (.f64 h w))) (*.f64 c0 c0)) w) #s(literal -1/2 binary64)))
	5.5%	#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (.f64 (-.f64 (.f64 (/.f64 (.f64 #s(literal 0 binary64) (/.f64 (ratio-of-squares.f64 d D) (.f64 h w))) w) #s(literal -1/2 binary64)) (.f64 (.f64 (ratio-of-squares.f64 D c0) (.f64 (.f64 M M) (/.f64 h (.f64 d d)))) #s(literal -1/4 binary64))) (.f64 c0 c0)))
	21.0%	#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (.f64 (+.f64 (.f64 (/.f64 (.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) h) (pow.f64 d #s(literal 4 binary64))) #s(literal -1/4 binary64)) (/.f64 (ratio-of-squares.f64 c0 D) (.f64 (.f64 w w) h))) (*.f64 d d)))
	31.4%	#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (.f64 (.f64 c0 c0) (/.f64 (ratio-of-squares.f64 d D) (.f64 (.f64 w w) h))))

Samples

508.0ms	9 482×	0	valid
54.0ms	1 270×	0	invalid

Compiler

Compiled 3 170 to 1 456 computations (54.1% saved)

Precisions

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

ival-mult: 200.0ms (71.3% of total)

ival-div: 52.0ms (18.5% of total)

ival-true: 6.0ms (2.1% of total)

ival-sqrt: 6.0ms (2.1% of total)

ival-add: 5.0ms (1.8% of total)

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

ival-assert: 4.0ms (1.4% of total)

adjust: 2.0ms (0.7% of total)

series321.0ms (2%)

Memory

26.0MiB live, 511.7MiB allocated; 116ms collecting garbage

Counts

52 → 493

Calls

Call 1

Inputs
(.f64 (/.f64 c0 (.f64 #s(literal 2 binary64) w)) #s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (.f64 (.f64 (/.f64 c0 (*.f64 h w)) (ratio-of-squares.f64 d D)) #s(literal 2 binary64))))
(/.f64 c0 (*.f64 #s(literal 2 binary64) w))
c0
(*.f64 #s(literal 2 binary64) w)
#s(literal 2 binary64)
w
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (.f64 (.f64 (/.f64 c0 (*.f64 h w)) (ratio-of-squares.f64 d D)) #s(literal 2 binary64)))
(.f64 (.f64 (/.f64 c0 (*.f64 h w)) (ratio-of-squares.f64 d D)) #s(literal 2 binary64))
(.f64 (/.f64 c0 (.f64 h w)) (ratio-of-squares.f64 d D))
(/.f64 c0 (*.f64 h w))
(*.f64 h w)
h
(ratio-of-squares.f64 d D)
d
D
(.f64 (/.f64 c0 (.f64 #s(literal 2 binary64) w)) #s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (*.f64 (sqrt.f64 #s(literal -1 binary64)) M)))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (*.f64 (sqrt.f64 #s(literal -1 binary64)) M))
(*.f64 (sqrt.f64 #s(literal -1 binary64)) M)
(sqrt.f64 #s(literal -1 binary64))
#s(literal -1 binary64)
M
(/.f64 (.f64 c0 (+.f64 (.f64 (/.f64 c0 (.f64 h w)) (ratio-of-squares.f64 d D)) (sqrt-product.f64 (.f64 (/.f64 c0 (.f64 h w)) (ratio-of-squares.f64 d D)) M))) (.f64 w #s(literal 2 binary64)))
(.f64 c0 (+.f64 (.f64 (/.f64 c0 (.f64 h w)) (ratio-of-squares.f64 d D)) (sqrt-product.f64 (.f64 (/.f64 c0 (*.f64 h w)) (ratio-of-squares.f64 d D)) M)))
(+.f64 (.f64 (/.f64 c0 (.f64 h w)) (ratio-of-squares.f64 d D)) (sqrt-product.f64 (.f64 (/.f64 c0 (.f64 h w)) (ratio-of-squares.f64 d D)) M))
(sqrt-product.f64 (.f64 (/.f64 c0 (.f64 h w)) (ratio-of-squares.f64 d D)) M)
(*.f64 w #s(literal 2 binary64))
(.f64 (/.f64 c0 (.f64 #s(literal 2 binary64) w)) (+.f64 (.f64 (/.f64 c0 (.f64 h w)) (ratio-of-squares.f64 d D)) (sqrt.f64 (-.f64 (.f64 (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 w h) (.f64 D D))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 w h) (.f64 D D)))) (.f64 M M)))))
(+.f64 (.f64 (/.f64 c0 (.f64 h w)) (ratio-of-squares.f64 d D)) (sqrt.f64 (-.f64 (.f64 (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 w h) (.f64 D D))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 w h) (.f64 D D)))) (.f64 M M))))
(sqrt.f64 (-.f64 (.f64 (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 w h) (.f64 D D))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 w h) (.f64 D D)))) (.f64 M M)))
(-.f64 (.f64 (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 w h) (.f64 D D))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 w h) (.f64 D D)))) (.f64 M M))
(.f64 (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 w h) (.f64 D D))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 w h) (*.f64 D D))))
(/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 w h) (*.f64 D D)))
(.f64 c0 (.f64 d d))
(*.f64 d d)
(.f64 (.f64 w h) (*.f64 D D))
(*.f64 w h)
(*.f64 D D)
(*.f64 M M)
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (/.f64 (+.f64 (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) h)) (.f64 (/.f64 (.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) (.f64 (.f64 w w) h)) (.f64 d d)) #s(literal -1/4 binary64))) (*.f64 w w)))
(/.f64 (+.f64 (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) h)) (.f64 (/.f64 (.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) (.f64 (.f64 w w) h)) (.f64 d d)) #s(literal -1/4 binary64))) (*.f64 w w))
(+.f64 (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) h)) (.f64 (/.f64 (.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) (.f64 (.f64 w w) h)) (.f64 d d)) #s(literal -1/4 binary64)))
(.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) h))
(ratio-of-squares.f64 c0 D)
(/.f64 (*.f64 d d) h)
(.f64 (/.f64 (.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) (.f64 (.f64 w w) h)) (.f64 d d)) #s(literal -1/4 binary64))
(/.f64 (.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) (.f64 (.f64 w w) h)) (*.f64 d d))
(.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) (.f64 (.f64 w w) h))
(pow.f64 (*.f64 D M) #s(literal 2 binary64))
(*.f64 D M)
(.f64 (.f64 w w) h)
(*.f64 w w)
#s(literal -1/4 binary64)

Outputs
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* 1/2 (/ (* M (* c0 (sqrt -1))) w))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* c0 (+ (* 1/2 (/ (* M (sqrt -1)) w)) (* 1/2 (/ (* c0 (pow d 2)) (* (pow D 2) (* h (pow w 2)))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* c0 (+ (* 1/2 (/ (* M (sqrt -1)) w)) (* c0 (+ (* 1/4 (/ (* c0 (pow d 4)) (* (pow D 4) (* M (* (pow h 2) (* (pow w 3) (sqrt -1))))))) (* 1/2 (/ (pow d 2) (* (pow D 2) (* h (pow w 2)))))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* c0 (+ (* 1/2 (/ (* M (sqrt -1)) w)) (* c0 (+ (* 1/2 (/ (pow d 2) (* (pow D 2) (* h (pow w 2))))) (* c0 (+ (* -1/16 (/ (* (pow c0 2) (pow d 8)) (* (pow D 8) (* (pow M 3) (* (pow h 4) (* (pow w 5) (pow (sqrt -1) 3))))))) (* 1/4 (/ (pow d 4) (* (pow D 4) (* M (* (pow h 2) (* (pow w 3) (sqrt -1)))))))))))))))
#s(approx (/ c0 (* 2 w)) #s(hole binary64 (* 1/2 (/ c0 w))))
#s(approx c0 #s(hole binary64 c0))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (* M (sqrt -1))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (+ (* M (sqrt -1)) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (+ (* M (sqrt -1)) (* c0 (+ (* 1/2 (/ (* c0 (pow d 4)) (* (pow D 4) (* M (* (pow h 2) (* (pow w 2) (sqrt -1))))))) (/ (pow d 2) (* (pow D 2) (* h w))))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (+ (* M (sqrt -1)) (* c0 (+ (* c0 (+ (* -1/8 (/ (* (pow c0 2) (pow d 8)) (* (pow D 8) (* (pow M 3) (* (pow h 4) (* (pow w 4) (pow (sqrt -1) 3))))))) (* 1/2 (/ (pow d 4) (* (pow D 4) (* M (* (pow h 2) (* (pow w 2) (sqrt -1))))))))) (/ (pow d 2) (* (pow D 2) (* h w))))))))
#s(approx (* (* (/ c0 (* h w)) (/ (* d d) (* D D))) 2) #s(hole binary64 (* 2 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))))
#s(approx (* (/ c0 (* h w)) (/ (* d d) (* D D))) #s(hole binary64 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))))
#s(approx (/ c0 (* h w)) #s(hole binary64 (/ c0 (* h w))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (* 1/2 (/ (* M (* c0 (sqrt -1))) w))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (* c0 (+ (* 1/2 (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (* M (* w (sqrt -1))))) (/ (pow d 2) (* (pow D 2) (* h (pow w 2))))))) (* 1/2 (/ (* M (sqrt -1)) w))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (* c0 (+ (* 1/2 (/ (* M (sqrt -1)) w)) (* c0 (+ (* 1/4 (/ (* c0 (- (/ (pow d 4) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* M (* w (sqrt -1))))) (* 1/2 (+ (* 1/2 (/ (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (* M (* w (sqrt -1))))) (/ (pow d 2) (* (pow D 2) (* h (pow w 2))))))))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (* c0 (+ (* 1/2 (/ (* M (sqrt -1)) w)) (* c0 (+ (* 1/2 (+ (* 1/2 (/ (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (* M (* w (sqrt -1))))) (/ (pow d 2) (* (pow D 2) (* h (pow w 2)))))) (* c0 (+ (* -1/8 (/ (* c0 (* (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (- (/ (pow d 4) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2) (* (pow M 2) (pow (sqrt -1) 2))))))) (* (pow M 3) (* w (pow (sqrt -1) 3))))) (* 1/4 (/ (- (/ (pow d 4) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2) (* (pow M 2) (pow (sqrt -1) 2))))) (* M (* w (sqrt -1)))))))))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (* M (* c0 (sqrt -1)))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (* c0 (+ (* M (sqrt -1)) (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (* M (sqrt -1)))) (/ (pow d 2) (* (pow D 2) (* h w)))))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (* c0 (+ (* M (sqrt -1)) (* c0 (+ (* 1/2 (/ (* c0 (- (/ (pow d 4) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* M (sqrt -1)))) (+ (* 1/2 (/ (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (* M (sqrt -1)))) (/ (pow d 2) (* (pow D 2) (* h w))))))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (* c0 (+ (* M (sqrt -1)) (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (* M (sqrt -1)))) (+ (* c0 (+ (* -1/4 (/ (* c0 (* (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (- (/ (pow d 4) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2) (* (pow M 2) (pow (sqrt -1) 2))))))) (* (pow M 3) (pow (sqrt -1) 3)))) (* 1/2 (/ (- (/ (pow d 4) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2) (* (pow M 2) (pow (sqrt -1) 2))))) (* M (sqrt -1)))))) (/ (pow d 2) (* (pow D 2) (* h w))))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (* M (sqrt -1))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (+ (* M (sqrt -1)) (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (* M (sqrt -1)))) (/ (pow d 2) (* (pow D 2) (* h w))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (+ (* M (sqrt -1)) (* c0 (+ (* 1/2 (/ (* c0 (- (/ (pow d 4) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* M (sqrt -1)))) (+ (* 1/2 (/ (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (* M (sqrt -1)))) (/ (pow d 2) (* (pow D 2) (* h w)))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (+ (* M (sqrt -1)) (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (* M (sqrt -1)))) (+ (* c0 (+ (* -1/4 (/ (* c0 (* (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (- (/ (pow d 4) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2) (* (pow M 2) (pow (sqrt -1) 2))))))) (* (pow M 3) (pow (sqrt -1) 3)))) (* 1/2 (/ (- (/ (pow d 4) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2) (* (pow M 2) (pow (sqrt -1) 2))))) (* M (sqrt -1)))))) (/ (pow d 2) (* (pow D 2) (* h w)))))))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))) #s(hole binary64 (* M (sqrt -1))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))) #s(hole binary64 (+ (* 1/2 (/ (* c0 (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w))))) (* M (sqrt -1)))) (* M (sqrt -1)))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))) #s(hole binary64 (+ (* M (sqrt -1)) (* c0 (+ (* 1/2 (/ (* c0 (- (/ (pow d 4) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* M (sqrt -1)))) (* 1/2 (/ (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (* M (sqrt -1)))))))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))) #s(hole binary64 (+ (* M (sqrt -1)) (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (* M (sqrt -1)))) (* c0 (+ (* -1/4 (/ (* c0 (* (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (- (/ (pow d 4) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2) (* (pow M 2) (pow (sqrt -1) 2))))))) (* (pow M 3) (pow (sqrt -1) 3)))) (* 1/2 (/ (- (/ (pow d 4) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2) (* (pow M 2) (pow (sqrt -1) 2))))) (* M (sqrt -1)))))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* 1/2 (/ (* M (* c0 (sqrt -1))) w))))
#s(approx (* (/ c0 (* 2 w)) (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* c0 (+ (* 1/2 (/ (* M (sqrt -1)) w)) (* 1/2 (/ (* c0 (pow d 2)) (* (pow D 2) (* h (pow w 2)))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* c0 (+ (* 1/2 (/ (* M (sqrt -1)) w)) (* c0 (+ (* 1/4 (/ (* c0 (pow d 4)) (* (pow D 4) (* M (* (pow h 2) (* (pow w 3) (sqrt -1))))))) (* 1/2 (/ (pow d 2) (* (pow D 2) (* h (pow w 2)))))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* c0 (+ (* 1/2 (/ (* M (sqrt -1)) w)) (* c0 (+ (* 1/2 (/ (pow d 2) (* (pow D 2) (* h (pow w 2))))) (* c0 (+ (* -1/16 (/ (* (pow c0 2) (pow d 8)) (* (pow D 8) (* (pow M 3) (* (pow h 4) (* (pow w 5) (pow (sqrt -1) 3))))))) (* 1/4 (/ (pow d 4) (* (pow D 4) (* M (* (pow h 2) (* (pow w 3) (sqrt -1)))))))))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (* M (sqrt -1))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (+ (* M (sqrt -1)) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (+ (* M (sqrt -1)) (* c0 (+ (* 1/2 (/ (* c0 (pow d 4)) (* (pow D 4) (* M (* (pow h 2) (* (pow w 2) (sqrt -1))))))) (/ (pow d 2) (* (pow D 2) (* h w))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (+ (* M (sqrt -1)) (* c0 (+ (* c0 (+ (* -1/8 (/ (* (pow c0 2) (pow d 8)) (* (pow D 8) (* (pow M 3) (* (pow h 4) (* (pow w 4) (pow (sqrt -1) 3))))))) (* 1/2 (/ (pow d 4) (* (pow D 4) (* M (* (pow h 2) (* (pow w 2) (sqrt -1))))))))) (/ (pow d 2) (* (pow D 2) (* h w))))))))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) #s(hole binary64 (* M (sqrt -1))))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) #s(hole binary64 (+ (* 1/2 (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* M (* (pow h 2) (* (pow w 2) (sqrt -1))))))) (* M (sqrt -1)))))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) #s(hole binary64 (+ (* M (sqrt -1)) (* (pow c0 2) (+ (* -1/8 (/ (* (pow c0 2) (pow d 8)) (* (pow D 8) (* (pow M 3) (* (pow h 4) (* (pow w 4) (pow (sqrt -1) 3))))))) (* 1/2 (/ (pow d 4) (* (pow D 4) (* M (* (pow h 2) (* (pow w 2) (sqrt -1))))))))))))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) #s(hole binary64 (+ (* M (sqrt -1)) (* (pow c0 2) (+ (* 1/2 (/ (pow d 4) (* (pow D 4) (* M (* (pow h 2) (* (pow w 2) (sqrt -1))))))) (* (pow c0 2) (+ (* -1/8 (/ (pow d 8) (* (pow D 8) (* (pow M 3) (* (pow h 4) (* (pow w 4) (pow (sqrt -1) 3))))))) (* 1/16 (/ (* (pow c0 2) (pow d 12)) (* (pow D 12) (* (pow M 5) (* (pow h 6) (* (pow w 6) (pow (sqrt -1) 5))))))))))))))
#s(approx (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)) #s(hole binary64 (* -1 (pow M 2))))
#s(approx (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)) #s(hole binary64 (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow h 2) (pow w 2)))) (pow M 2))))
#s(approx (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) #s(hole binary64 (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow h 2) (pow w 2))))))
#s(approx (/ (* c0 (* d d)) (* (* w h) (* D D))) #s(hole binary64 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))))
#s(approx (* c0 (* d d)) #s(hole binary64 (* c0 (pow d 2))))
#s(approx (/ (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (* w w)) #s(hole binary64 (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))))
#s(approx (/ (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (* w w)) #s(hole binary64 (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h (pow w 2)))))))
#s(approx (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) #s(hole binary64 (* -1/4 (/ (* (pow D 2) (* (pow M 2) (* h (pow w 2)))) (pow d 2)))))
#s(approx (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) #s(hole binary64 (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (* h (pow w 2)))) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) h)))))
#s(approx (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) #s(hole binary64 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) h))))
#s(approx (/ (* c0 c0) (* D D)) #s(hole binary64 (/ (pow c0 2) (pow D 2))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h (pow w 2))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* (pow c0 2) (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow c0 2) (pow d 2)))) (/ (pow d 2) (* (pow D 2) (* h (pow w 2))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* (pow c0 2) (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow c0 2) (pow d 2)))) (+ (* -1/16 (/ (* (pow D 6) (* (pow M 4) (* (pow h 3) (pow w 2)))) (* (pow c0 4) (pow d 6)))) (/ (pow d 2) (* (pow D 2) (* h (pow w 2)))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* (pow c0 2) (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow c0 2) (pow d 2)))) (+ (* -1/16 (/ (* (pow D 6) (* (pow M 4) (* (pow h 3) (pow w 2)))) (* (pow c0 4) (pow d 6)))) (+ (* -1/32 (/ (* (pow D 10) (* (pow M 6) (* (pow h 5) (pow w 4)))) (* (pow c0 6) (pow d 10)))) (/ (pow d 2) (* (pow D 2) (* h (pow w 2))))))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (* 2 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (* c0 (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h w))) (* (pow c0 2) (pow d 2)))) (* 2 (/ (pow d 2) (* (pow D 2) (* h w))))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (* c0 (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h w))) (* (pow c0 2) (pow d 2)))) (+ (* -1/8 (/ (* (pow D 6) (* (pow M 4) (* (pow h 3) (pow w 3)))) (* (pow c0 4) (pow d 6)))) (* 2 (/ (pow d 2) (* (pow D 2) (* h w)))))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (* c0 (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h w))) (* (pow c0 2) (pow d 2)))) (+ (* -1/8 (/ (* (pow D 6) (* (pow M 4) (* (pow h 3) (pow w 3)))) (* (pow c0 4) (pow d 6)))) (+ (* -1/16 (/ (* (pow D 10) (* (pow M 6) (* (pow h 5) (pow w 5)))) (* (pow c0 6) (pow d 10)))) (* 2 (/ (pow d 2) (* (pow D 2) (* h w))))))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h (pow w 2))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (* (pow c0 2) (+ (* 1/4 (/ (* (pow D 2) (* h (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))))) (* c0 (pow d 2)))) (/ (pow d 2) (* (pow D 2) (* h (pow w 2))))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (* (pow c0 2) (+ (* 1/4 (/ (* (pow D 2) (* h (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))))) (* c0 (pow d 2)))) (+ (* 1/4 (/ (* (pow D 2) (* h (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (pow d 4)))))) (* (pow c0 2) (pow d 2)))) (/ (pow d 2) (* (pow D 2) (* h (pow w 2)))))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (* (pow c0 2) (+ (* -1/8 (/ (* (pow D 6) (* (pow h 3) (* (pow w 2) (* (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (pow d 4)))))))) (* (pow c0 3) (pow d 6)))) (+ (* 1/4 (/ (* (pow D 2) (* h (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))))) (* c0 (pow d 2)))) (+ (* 1/4 (/ (* (pow D 2) (* h (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (pow d 4)))))) (* (pow c0 2) (pow d 2)))) (/ (pow d 2) (* (pow D 2) (* h (pow w 2))))))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (* 2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h w))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (* (pow c0 2) (+ (* 1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w))))))) (* c0 (pow d 2)))) (* 2 (/ (pow d 2) (* (pow D 2) (* h w))))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (* (pow c0 2) (+ (* 1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w))))))) (* c0 (pow d 2)))) (+ (* 1/2 (/ (* (pow D 2) (* h (* w (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (pow d 4))))))) (* (pow c0 2) (pow d 2)))) (* 2 (/ (pow d 2) (* (pow D 2) (* h w)))))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (* (pow c0 2) (+ (* -1/4 (/ (* (pow D 6) (* (pow h 3) (* (pow w 3) (* (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (pow d 4)))))))) (* (pow c0 3) (pow d 6)))) (+ (* 1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w))))))) (* c0 (pow d 2)))) (+ (* 1/2 (/ (* (pow D 2) (* h (* w (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (pow d 4))))))) (* (pow c0 2) (pow d 2)))) (* 2 (/ (pow d 2) (* (pow D 2) (* h w))))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (* 2 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (* c0 (+ (* 1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w))))))) (* c0 (pow d 2)))) (* 2 (/ (pow d 2) (* (pow D 2) (* h w))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (* c0 (+ (* 1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w))))))) (* c0 (pow d 2)))) (+ (* 1/2 (/ (* (pow D 2) (* h (* w (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (pow d 4))))))) (* (pow c0 2) (pow d 2)))) (* 2 (/ (pow d 2) (* (pow D 2) (* h w)))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (* c0 (+ (* -1/4 (/ (* (pow D 6) (* (pow h 3) (* (pow w 3) (* (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (pow d 4)))))))) (* (pow c0 3) (pow d 6)))) (+ (* 1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w))))))) (* c0 (pow d 2)))) (+ (* 1/2 (/ (* (pow D 2) (* h (* w (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (pow d 4))))))) (* (pow c0 2) (pow d 2)))) (* 2 (/ (pow d 2) (* (pow D 2) (* h w))))))))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))) #s(hole binary64 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))) #s(hole binary64 (* c0 (+ (* 1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w))))))) (* c0 (pow d 2)))) (/ (pow d 2) (* (pow D 2) (* h w)))))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))) #s(hole binary64 (* c0 (+ (* 1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w))))))) (* c0 (pow d 2)))) (+ (* 1/2 (/ (* (pow D 2) (* h (* w (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (pow d 4))))))) (* (pow c0 2) (pow d 2)))) (/ (pow d 2) (* (pow D 2) (* h w))))))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))) #s(hole binary64 (* c0 (+ (* -1/4 (/ (* (pow D 6) (* (pow h 3) (* (pow w 3) (* (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (pow d 4)))))))) (* (pow c0 3) (pow d 6)))) (+ (* 1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w))))))) (* c0 (pow d 2)))) (+ (* 1/2 (/ (* (pow D 2) (* h (* w (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (pow d 4))))))) (* (pow c0 2) (pow d 2)))) (/ (pow d 2) (* (pow D 2) (* h w)))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h (pow w 2))))))
#s(approx (* (/ c0 (* 2 w)) (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* (pow c0 2) (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow c0 2) (pow d 2)))) (/ (pow d 2) (* (pow D 2) (* h (pow w 2))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* (pow c0 2) (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow c0 2) (pow d 2)))) (+ (* -1/16 (/ (* (pow D 6) (* (pow M 4) (* (pow h 3) (pow w 2)))) (* (pow c0 4) (pow d 6)))) (/ (pow d 2) (* (pow D 2) (* h (pow w 2)))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* (pow c0 2) (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow c0 2) (pow d 2)))) (+ (* -1/16 (/ (* (pow D 6) (* (pow M 4) (* (pow h 3) (pow w 2)))) (* (pow c0 4) (pow d 6)))) (+ (* -1/32 (/ (* (pow D 10) (* (pow M 6) (* (pow h 5) (pow w 4)))) (* (pow c0 6) (pow d 10)))) (/ (pow d 2) (* (pow D 2) (* h (pow w 2))))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (* 2 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (* c0 (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h w))) (* (pow c0 2) (pow d 2)))) (* 2 (/ (pow d 2) (* (pow D 2) (* h w))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (* c0 (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h w))) (* (pow c0 2) (pow d 2)))) (+ (* -1/8 (/ (* (pow D 6) (* (pow M 4) (* (pow h 3) (pow w 3)))) (* (pow c0 4) (pow d 6)))) (* 2 (/ (pow d 2) (* (pow D 2) (* h w)))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (* c0 (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h w))) (* (pow c0 2) (pow d 2)))) (+ (* -1/8 (/ (* (pow D 6) (* (pow M 4) (* (pow h 3) (pow w 3)))) (* (pow c0 4) (pow d 6)))) (+ (* -1/16 (/ (* (pow D 10) (* (pow M 6) (* (pow h 5) (pow w 5)))) (* (pow c0 6) (pow d 10)))) (* 2 (/ (pow d 2) (* (pow D 2) (* h w))))))))))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) #s(hole binary64 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) #s(hole binary64 (* c0 (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h w))) (* (pow c0 2) (pow d 2)))) (/ (pow d 2) (* (pow D 2) (* h w)))))))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) #s(hole binary64 (* c0 (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h w))) (* (pow c0 2) (pow d 2)))) (+ (* -1/8 (/ (* (pow D 6) (* (pow M 4) (* (pow h 3) (pow w 3)))) (* (pow c0 4) (pow d 6)))) (/ (pow d 2) (* (pow D 2) (* h w))))))))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) #s(hole binary64 (* c0 (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h w))) (* (pow c0 2) (pow d 2)))) (+ (* -1/8 (/ (* (pow D 6) (* (pow M 4) (* (pow h 3) (pow w 3)))) (* (pow c0 4) (pow d 6)))) (+ (* -1/16 (/ (* (pow D 10) (* (pow M 6) (* (pow h 5) (pow w 5)))) (* (pow c0 6) (pow d 10)))) (/ (pow d 2) (* (pow D 2) (* h w)))))))))
#s(approx (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)) #s(hole binary64 (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow h 2) (pow w 2))))))
#s(approx (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)) #s(hole binary64 (* (pow c0 2) (+ (* -1 (/ (pow M 2) (pow c0 2))) (/ (pow d 4) (* (pow D 4) (* (pow h 2) (pow w 2))))))))
#s(approx (/ (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (* w w)) #s(hole binary64 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h (pow w 2))))))
#s(approx (/ (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (* w w)) #s(hole binary64 (* (pow c0 2) (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow c0 2) (pow d 2)))) (/ (pow d 2) (* (pow D 2) (* h (pow w 2))))))))
#s(approx (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) #s(hole binary64 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) h))))
#s(approx (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) #s(hole binary64 (* (pow c0 2) (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (* h (pow w 2)))) (* (pow c0 2) (pow d 2)))) (/ (pow d 2) (* (pow D 2) h))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* -1/2 (/ (* (pow c0 2) (+ (* -1 (/ (pow d 2) (* (pow D 2) (* h w)))) (/ (pow d 2) (* (pow D 2) (* h w))))) w))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* (pow c0 2) (+ (* -1/2 (/ (+ (* -1 (/ (pow d 2) (* (pow D 2) (* h w)))) (/ (pow d 2) (* (pow D 2) (* h w)))) w)) (* 1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow c0 2) (pow d 2))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* (pow c0 2) (+ (* -1/2 (/ (+ (* -1 (/ (pow d 2) (* (pow D 2) (* h w)))) (/ (pow d 2) (* (pow D 2) (* h w)))) w)) (+ (* 1/16 (/ (* (pow D 6) (* (pow M 4) (* (pow h 3) (pow w 2)))) (* (pow c0 4) (pow d 6)))) (* 1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow c0 2) (pow d 2)))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* (pow c0 2) (+ (* -1/2 (/ (+ (* -1 (/ (pow d 2) (* (pow D 2) (* h w)))) (/ (pow d 2) (* (pow D 2) (* h w)))) w)) (+ (* 1/32 (/ (* (pow D 10) (* (pow M 6) (* (pow h 5) (pow w 4)))) (* (pow c0 6) (pow d 10)))) (+ (* 1/16 (/ (* (pow D 6) (* (pow M 4) (* (pow h 3) (pow w 2)))) (* (pow c0 4) (pow d 6)))) (* 1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow c0 2) (pow d 2))))))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (* -1 (* c0 (+ (* -1 (/ (pow d 2) (* (pow D 2) (* h w)))) (/ (pow d 2) (* (pow D 2) (* h w))))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (* -1 (* c0 (+ (* -1 (/ (pow d 2) (* (pow D 2) (* h w)))) (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h w))) (* (pow c0 2) (pow d 2)))) (/ (pow d 2) (* (pow D 2) (* h w)))))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (* -1 (* c0 (+ (* -1 (/ (pow d 2) (* (pow D 2) (* h w)))) (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h w))) (* (pow c0 2) (pow d 2)))) (+ (* -1/8 (/ (* (pow D 6) (* (pow M 4) (* (pow h 3) (pow w 3)))) (* (pow c0 4) (pow d 6)))) (/ (pow d 2) (* (pow D 2) (* h w))))))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (* -1 (* c0 (+ (* -1 (/ (pow d 2) (* (pow D 2) (* h w)))) (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h w))) (* (pow c0 2) (pow d 2)))) (+ (* -1/8 (/ (* (pow D 6) (* (pow M 4) (* (pow h 3) (pow w 3)))) (* (pow c0 4) (pow d 6)))) (+ (* -1/16 (/ (* (pow D 10) (* (pow M 6) (* (pow h 5) (pow w 5)))) (* (pow c0 6) (pow d 10)))) (/ (pow d 2) (* (pow D 2) (* h w)))))))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (* -1/2 (/ (* (pow c0 2) (+ (* -1 (/ (pow d 2) (* (pow D 2) (* h w)))) (/ (pow d 2) (* (pow D 2) (* h w))))) w))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (* (pow c0 2) (+ (* -1/2 (/ (+ (* -1 (/ (pow d 2) (* (pow D 2) (* h w)))) (/ (pow d 2) (* (pow D 2) (* h w)))) w)) (* 1/4 (/ (* (pow D 2) (* h (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))))) (* c0 (pow d 2))))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (* (pow c0 2) (+ (* -1 (/ (+ (* -1/4 (/ (* (pow D 2) (* h (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))))) (pow d 2))) (* 1/4 (/ (* (pow D 2) (* h (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (pow d 4)))))) (* c0 (pow d 2))))) c0)) (* -1/2 (/ (+ (* -1 (/ (pow d 2) (* (pow D 2) (* h w)))) (/ (pow d 2) (* (pow D 2) (* h w)))) w))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (* (pow c0 2) (+ (* -1 (/ (+ (* -1 (/ (+ (* -1/4 (/ (* (pow D 2) (* h (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (pow d 4)))))) (pow d 2))) (* -1/8 (/ (* (pow D 6) (* (pow h 3) (* (pow w 2) (* (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (pow d 4)))))))) (* c0 (pow d 6))))) c0)) (* -1/4 (/ (* (pow D 2) (* h (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))))) (pow d 2)))) c0)) (* -1/2 (/ (+ (* -1 (/ (pow d 2) (* (pow D 2) (* h w)))) (/ (pow d 2) (* (pow D 2) (* h w)))) w))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (* -1 (* (pow c0 2) (+ (* -1 (/ (pow d 2) (* (pow D 2) (* h w)))) (/ (pow d 2) (* (pow D 2) (* h w))))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (* (pow c0 2) (+ (* -1 (+ (* -1 (/ (pow d 2) (* (pow D 2) (* h w)))) (/ (pow d 2) (* (pow D 2) (* h w))))) (* 1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w))))))) (* c0 (pow d 2))))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (* (pow c0 2) (+ (* -1 (+ (* -1 (/ (pow d 2) (* (pow D 2) (* h w)))) (/ (pow d 2) (* (pow D 2) (* h w))))) (* -1 (/ (+ (* -1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w))))))) (pow d 2))) (* 1/2 (/ (* (pow D 2) (* h (* w (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (pow d 4))))))) (* c0 (pow d 2))))) c0))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (* (pow c0 2) (+ (* -1 (+ (* -1 (/ (pow d 2) (* (pow D 2) (* h w)))) (/ (pow d 2) (* (pow D 2) (* h w))))) (* -1 (/ (+ (* -1 (/ (+ (* -1/2 (/ (* (pow D 2) (* h (* w (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (pow d 4))))))) (pow d 2))) (* -1/4 (/ (* (pow D 6) (* (pow h 3) (* (pow w 3) (* (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (pow d 4)))))))) (* c0 (pow d 6))))) c0)) (* -1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w))))))) (pow d 2)))) c0))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (* -1 (* c0 (+ (* -1 (/ (pow d 2) (* (pow D 2) (* h w)))) (/ (pow d 2) (* (pow D 2) (* h w))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (* -1 (* c0 (+ (* -1 (/ (pow d 2) (* (pow D 2) (* h w)))) (+ (* -1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w))))))) (* c0 (pow d 2)))) (/ (pow d 2) (* (pow D 2) (* h w)))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (* -1 (* c0 (+ (* -1 (/ (+ (* -1/2 (/ (* (pow D 2) (* h (* w (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (pow d 4))))))) (* c0 (pow d 2)))) (* 1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w))))))) (pow d 2)))) c0)) (+ (* -1 (/ (pow d 2) (* (pow D 2) (* h w)))) (/ (pow d 2) (* (pow D 2) (* h w)))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (* -1 (* c0 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/4 (/ (* (pow D 6) (* (pow h 3) (* (pow w 3) (* (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (pow d 4)))))))) (* c0 (pow d 6)))) (* 1/2 (/ (* (pow D 2) (* h (* w (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (pow d 4))))))) (pow d 2)))) c0)) (* 1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w))))))) (pow d 2)))) c0)) (+ (* -1 (/ (pow d 2) (* (pow D 2) (* h w)))) (/ (pow d 2) (* (pow D 2) (* h w)))))))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))) #s(hole binary64 (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))) #s(hole binary64 (* -1 (* c0 (+ (* -1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w))))))) (* c0 (pow d 2)))) (/ (pow d 2) (* (pow D 2) (* h w))))))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))) #s(hole binary64 (* -1 (* c0 (+ (* -1 (/ (+ (* -1/2 (/ (* (pow D 2) (* h (* w (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (pow d 4))))))) (* c0 (pow d 2)))) (* 1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w))))))) (pow d 2)))) c0)) (/ (pow d 2) (* (pow D 2) (* h w))))))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))) #s(hole binary64 (* -1 (* c0 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/4 (/ (* (pow D 6) (* (pow h 3) (* (pow w 3) (* (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (pow d 4)))))))) (* c0 (pow d 6)))) (* 1/2 (/ (* (pow D 2) (* h (* w (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (pow d 4))))))) (pow d 2)))) c0)) (* 1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w))))))) (pow d 2)))) c0)) (/ (pow d 2) (* (pow D 2) (* h w))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* -1/2 (/ (* (pow c0 2) (+ (* -1 (/ (pow d 2) (* (pow D 2) (* h w)))) (/ (pow d 2) (* (pow D 2) (* h w))))) w))))
#s(approx (* (/ c0 (* 2 w)) (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* (pow c0 2) (+ (* -1/2 (/ (+ (* -1 (/ (pow d 2) (* (pow D 2) (* h w)))) (/ (pow d 2) (* (pow D 2) (* h w)))) w)) (* 1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow c0 2) (pow d 2))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* (pow c0 2) (+ (* -1/2 (/ (+ (* -1 (/ (pow d 2) (* (pow D 2) (* h w)))) (/ (pow d 2) (* (pow D 2) (* h w)))) w)) (+ (* 1/16 (/ (* (pow D 6) (* (pow M 4) (* (pow h 3) (pow w 2)))) (* (pow c0 4) (pow d 6)))) (* 1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow c0 2) (pow d 2)))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* (pow c0 2) (+ (* -1/2 (/ (+ (* -1 (/ (pow d 2) (* (pow D 2) (* h w)))) (/ (pow d 2) (* (pow D 2) (* h w)))) w)) (+ (* 1/32 (/ (* (pow D 10) (* (pow M 6) (* (pow h 5) (pow w 4)))) (* (pow c0 6) (pow d 10)))) (+ (* 1/16 (/ (* (pow D 6) (* (pow M 4) (* (pow h 3) (pow w 2)))) (* (pow c0 4) (pow d 6)))) (* 1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow c0 2) (pow d 2))))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (* -1 (* c0 (+ (* -1 (/ (pow d 2) (* (pow D 2) (* h w)))) (/ (pow d 2) (* (pow D 2) (* h w))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (* -1 (* c0 (+ (* -1 (/ (pow d 2) (* (pow D 2) (* h w)))) (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h w))) (* (pow c0 2) (pow d 2)))) (/ (pow d 2) (* (pow D 2) (* h w)))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (* -1 (* c0 (+ (* -1 (/ (pow d 2) (* (pow D 2) (* h w)))) (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h w))) (* (pow c0 2) (pow d 2)))) (+ (* -1/8 (/ (* (pow D 6) (* (pow M 4) (* (pow h 3) (pow w 3)))) (* (pow c0 4) (pow d 6)))) (/ (pow d 2) (* (pow D 2) (* h w))))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (* -1 (* c0 (+ (* -1 (/ (pow d 2) (* (pow D 2) (* h w)))) (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h w))) (* (pow c0 2) (pow d 2)))) (+ (* -1/8 (/ (* (pow D 6) (* (pow M 4) (* (pow h 3) (pow w 3)))) (* (pow c0 4) (pow d 6)))) (+ (* -1/16 (/ (* (pow D 10) (* (pow M 6) (* (pow h 5) (pow w 5)))) (* (pow c0 6) (pow d 10)))) (/ (pow d 2) (* (pow D 2) (* h w)))))))))))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) #s(hole binary64 (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) #s(hole binary64 (* -1 (* c0 (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h w))) (* (pow c0 2) (pow d 2)))) (/ (pow d 2) (* (pow D 2) (* h w))))))))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) #s(hole binary64 (* -1 (* c0 (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h w))) (* (pow c0 2) (pow d 2)))) (+ (* -1/8 (/ (* (pow D 6) (* (pow M 4) (* (pow h 3) (pow w 3)))) (* (pow c0 4) (pow d 6)))) (/ (pow d 2) (* (pow D 2) (* h w)))))))))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) #s(hole binary64 (* -1 (* c0 (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h w))) (* (pow c0 2) (pow d 2)))) (+ (* -1/8 (/ (* (pow D 6) (* (pow M 4) (* (pow h 3) (pow w 3)))) (* (pow c0 4) (pow d 6)))) (+ (* -1/16 (/ (* (pow D 10) (* (pow M 6) (* (pow h 5) (pow w 5)))) (* (pow c0 6) (pow d 10)))) (/ (pow d 2) (* (pow D 2) (* h w))))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (/ (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (* h (pow w 2)))) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) h))) (pow w 2))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (/ (+ (* (pow w 2) (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2))) (* -1/16 (/ (* (pow D 6) (* (pow M 4) (* (pow h 3) (pow w 2)))) (* (pow c0 2) (pow d 6)))))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) h))) (pow w 2))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (/ (+ (* (pow w 2) (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2))) (* (pow w 2) (+ (* -1/16 (/ (* (pow D 6) (* (pow M 4) (pow h 3))) (* (pow c0 2) (pow d 6)))) (* -1/32 (/ (* (pow D 10) (* (pow M 6) (* (pow h 5) (pow w 2)))) (* (pow c0 4) (pow d 10)))))))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) h))) (pow w 2))))
#s(approx (* 2 w) #s(hole binary64 (* 2 w)))
#s(approx w #s(hole binary64 w))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (/ (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h (pow w 2)))) (* c0 (pow d 2)))) (* 2 (/ (* c0 (pow d 2)) (* (pow D 2) h)))) w)))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (/ (+ (* 2 (/ (* c0 (pow d 2)) (* (pow D 2) h))) (* (pow w 2) (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) h)) (* c0 (pow d 2)))) (* -1/8 (/ (* (pow D 6) (* (pow M 4) (* (pow h 3) (pow w 2)))) (* (pow c0 3) (pow d 6))))))) w)))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (/ (+ (* 2 (/ (* c0 (pow d 2)) (* (pow D 2) h))) (* (pow w 2) (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) h)) (* c0 (pow d 2)))) (* (pow w 2) (+ (* -1/8 (/ (* (pow D 6) (* (pow M 4) (pow h 3))) (* (pow c0 3) (pow d 6)))) (* -1/16 (/ (* (pow D 10) (* (pow M 6) (* (pow h 5) (pow w 2)))) (* (pow c0 5) (pow d 10))))))))) w)))
#s(approx (* h w) #s(hole binary64 (* h w)))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (/ (+ (* 1/4 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h)))))) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) h))) (pow w 2))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (/ (+ (* w (+ (* 1/4 (/ (* (pow D 2) (* h (* w (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2))) (* (pow c0 2) (pow d 4)))))))) (pow d 2))) (* 1/4 (/ (* (pow D 2) (* h (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))))) (pow d 2))))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) h))) (pow w 2))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (/ (+ (* w (+ (* 1/4 (/ (* (pow D 2) (* h (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))))) (pow d 2))) (* w (+ (* -1/8 (/ (* (pow D 6) (* (pow h 3) (* w (* (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2))) (* (pow c0 2) (pow d 4))))))))) (* (pow c0 2) (pow d 6)))) (* 1/4 (/ (* (pow D 2) (* h (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2))) (* (pow c0 2) (pow d 4))))))) (pow d 2))))))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) h))) (pow w 2))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (/ (+ (* 1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h)))))) (pow d 2))) (* 2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) h)))) w)))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (/ (+ (* 2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) h))) (* w (+ (* 1/2 (/ (* (pow D 2) (* h (* w (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2))) (* (pow c0 2) (pow d 4)))))))) (pow d 2))) (* 1/2 (/ (* (pow D 2) (* h (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))))) (pow d 2)))))) w)))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (/ (+ (* 2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) h))) (* w (+ (* 1/2 (/ (* (pow D 2) (* h (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))))) (pow d 2))) (* w (+ (* -1/4 (/ (* (pow D 6) (* (pow h 3) (* w (* (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2))) (* (pow c0 2) (pow d 4))))))))) (* (pow c0 2) (pow d 6)))) (* 1/2 (/ (* (pow D 2) (* h (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2))) (* (pow c0 2) (pow d 4))))))) (pow d 2)))))))) w)))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (/ (+ (* 1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h)))))) (* c0 (pow d 2)))) (* 2 (/ (* c0 (pow d 2)) (* (pow D 2) h)))) w)))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (/ (+ (* 2 (/ (* c0 (pow d 2)) (* (pow D 2) h))) (* w (+ (* 1/2 (/ (* (pow D 2) (* h (* w (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2))) (* (pow c0 2) (pow d 4)))))))) (* c0 (pow d 2)))) (* 1/2 (/ (* (pow D 2) (* h (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))))) (* c0 (pow d 2))))))) w)))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (/ (+ (* 2 (/ (* c0 (pow d 2)) (* (pow D 2) h))) (* w (+ (* 1/2 (/ (* (pow D 2) (* h (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))))) (* c0 (pow d 2)))) (* w (+ (* -1/4 (/ (* (pow D 6) (* (pow h 3) (* w (* (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2))) (* (pow c0 2) (pow d 4))))))))) (* (pow c0 3) (pow d 6)))) (* 1/2 (/ (* (pow D 2) (* h (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2))) (* (pow c0 2) (pow d 4))))))) (* c0 (pow d 2))))))))) w)))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))) #s(hole binary64 (/ (+ (* 1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h)))))) (* c0 (pow d 2)))) (/ (* c0 (pow d 2)) (* (pow D 2) h))) w)))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))) #s(hole binary64 (/ (+ (* w (+ (* 1/2 (/ (* (pow D 2) (* h (* w (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2))) (* (pow c0 2) (pow d 4)))))))) (* c0 (pow d 2)))) (* 1/2 (/ (* (pow D 2) (* h (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))))) (* c0 (pow d 2)))))) (/ (* c0 (pow d 2)) (* (pow D 2) h))) w)))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))) #s(hole binary64 (/ (+ (* w (+ (* 1/2 (/ (* (pow D 2) (* h (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))))) (* c0 (pow d 2)))) (* w (+ (* -1/4 (/ (* (pow D 6) (* (pow h 3) (* w (* (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2))) (* (pow c0 2) (pow d 4))))))))) (* (pow c0 3) (pow d 6)))) (* 1/2 (/ (* (pow D 2) (* h (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2))) (* (pow c0 2) (pow d 4))))))) (* c0 (pow d 2)))))))) (/ (* c0 (pow d 2)) (* (pow D 2) h))) w)))
#s(approx (* w 2) #s(hole binary64 (* 2 w)))
#s(approx (* (/ c0 (* 2 w)) (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (/ (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (* h (pow w 2)))) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) h))) (pow w 2))))
#s(approx (* (/ c0 (* 2 w)) (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (/ (+ (* (pow w 2) (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2))) (* -1/16 (/ (* (pow D 6) (* (pow M 4) (* (pow h 3) (pow w 2)))) (* (pow c0 2) (pow d 6)))))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) h))) (pow w 2))))
#s(approx (* (/ c0 (* 2 w)) (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (/ (+ (* (pow w 2) (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2))) (* (pow w 2) (+ (* -1/16 (/ (* (pow D 6) (* (pow M 4) (pow h 3))) (* (pow c0 2) (pow d 6)))) (* -1/32 (/ (* (pow D 10) (* (pow M 6) (* (pow h 5) (pow w 2)))) (* (pow c0 4) (pow d 10)))))))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) h))) (pow w 2))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (/ (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h (pow w 2)))) (* c0 (pow d 2)))) (* 2 (/ (* c0 (pow d 2)) (* (pow D 2) h)))) w)))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (/ (+ (* 2 (/ (* c0 (pow d 2)) (* (pow D 2) h))) (* (pow w 2) (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) h)) (* c0 (pow d 2)))) (* -1/8 (/ (* (pow D 6) (* (pow M 4) (* (pow h 3) (pow w 2)))) (* (pow c0 3) (pow d 6))))))) w)))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (/ (+ (* 2 (/ (* c0 (pow d 2)) (* (pow D 2) h))) (* (pow w 2) (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) h)) (* c0 (pow d 2)))) (* (pow w 2) (+ (* -1/8 (/ (* (pow D 6) (* (pow M 4) (pow h 3))) (* (pow c0 3) (pow d 6)))) (* -1/16 (/ (* (pow D 10) (* (pow M 6) (* (pow h 5) (pow w 2)))) (* (pow c0 5) (pow d 10))))))))) w)))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) #s(hole binary64 (/ (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h (pow w 2)))) (* c0 (pow d 2)))) (/ (* c0 (pow d 2)) (* (pow D 2) h))) w)))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) #s(hole binary64 (/ (+ (* (pow w 2) (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) h)) (* c0 (pow d 2)))) (* -1/8 (/ (* (pow D 6) (* (pow M 4) (* (pow h 3) (pow w 2)))) (* (pow c0 3) (pow d 6)))))) (/ (* c0 (pow d 2)) (* (pow D 2) h))) w)))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) #s(hole binary64 (/ (+ (* (pow w 2) (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) h)) (* c0 (pow d 2)))) (* (pow w 2) (+ (* -1/8 (/ (* (pow D 6) (* (pow M 4) (pow h 3))) (* (pow c0 3) (pow d 6)))) (* -1/16 (/ (* (pow D 10) (* (pow M 6) (* (pow h 5) (pow w 2)))) (* (pow c0 5) (pow d 10)))))))) (/ (* c0 (pow d 2)) (* (pow D 2) h))) w)))
#s(approx (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)) #s(hole binary64 (/ (+ (* -1 (* (pow M 2) (pow w 2))) (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow h 2)))) (pow w 2))))
#s(approx (* (* w h) (* D D)) #s(hole binary64 (* (pow D 2) (* h w))))
#s(approx (* w h) #s(hole binary64 (* h w)))
#s(approx (/ (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (* w w)) #s(hole binary64 (/ (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (* h (pow w 2)))) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) h))) (pow w 2))))
#s(approx (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4) #s(hole binary64 (* -1/4 (/ (* (pow D 2) (* (pow M 2) (* h (pow w 2)))) (pow d 2)))))
#s(approx (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) #s(hole binary64 (/ (* (pow D 2) (* (pow M 2) (* h (pow w 2)))) (pow d 2))))
#s(approx (* (pow (* D M) 2) (* (* w w) h)) #s(hole binary64 (* (pow D 2) (* (pow M 2) (* h (pow w 2))))))
#s(approx (* (* w w) h) #s(hole binary64 (* h (pow w 2))))
#s(approx (* w w) #s(hole binary64 (pow w 2)))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (/ (+ (* 1/2 (* M (* c0 (sqrt -1)))) (* 1/2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h w))))) w)))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (/ (+ (* 1/4 (/ (* (pow c0 3) (pow d 4)) (* (pow D 4) (* M (* (pow h 2) (* (pow w 2) (sqrt -1))))))) (+ (* 1/2 (* M (* c0 (sqrt -1)))) (* 1/2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h w)))))) w)))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (/ (+ (* -1/16 (/ (* (pow c0 5) (pow d 8)) (* (pow D 8) (* (pow M 3) (* (pow h 4) (* (pow w 4) (pow (sqrt -1) 3))))))) (+ (* 1/4 (/ (* (pow c0 3) (pow d 4)) (* (pow D 4) (* M (* (pow h 2) (* (pow w 2) (sqrt -1))))))) (+ (* 1/2 (* M (* c0 (sqrt -1)))) (* 1/2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h w))))))) w)))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (+ (* 1/2 (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* M (* (pow h 2) (* (pow w 2) (sqrt -1))))))) (+ (* M (sqrt -1)) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (+ (* -1/8 (/ (* (pow c0 4) (pow d 8)) (* (pow D 8) (* (pow M 3) (* (pow h 4) (* (pow w 4) (pow (sqrt -1) 3))))))) (+ (* 1/2 (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* M (* (pow h 2) (* (pow w 2) (sqrt -1))))))) (+ (* M (sqrt -1)) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (/ (+ (* 1/2 (* M (* c0 (sqrt -1)))) (* 1/2 (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (* M (sqrt -1)))) (/ (* c0 (pow d 2)) (* (pow D 2) h)))) w))) w)))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (/ (+ (* 1/4 (/ (* c0 (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow h 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* M (* (pow w 2) (sqrt -1))))) (+ (* 1/2 (* M (* c0 (sqrt -1)))) (* 1/2 (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (* M (sqrt -1)))) (/ (* c0 (pow d 2)) (* (pow D 2) h)))) w)))) w)))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (/ (+ (* -1/8 (/ (* c0 (* (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow h 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2) (* (pow M 2) (pow (sqrt -1) 2))))))) (* (pow M 3) (* (pow w 3) (pow (sqrt -1) 3))))) (+ (* 1/4 (/ (* c0 (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow h 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* M (* (pow w 2) (sqrt -1))))) (+ (* 1/2 (* M (* c0 (sqrt -1)))) (* 1/2 (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (* M (sqrt -1)))) (/ (* c0 (pow d 2)) (* (pow D 2) h)))) w))))) w)))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (+ (* M (* c0 (sqrt -1))) (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (* M (sqrt -1)))) (/ (* c0 (pow d 2)) (* (pow D 2) h)))) w))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (+ (* 1/2 (/ (* c0 (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow h 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* M (* (pow w 2) (sqrt -1))))) (+ (* M (* c0 (sqrt -1))) (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (* M (sqrt -1)))) (/ (* c0 (pow d 2)) (* (pow D 2) h)))) w)))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (+ (* -1/4 (/ (* c0 (* (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow h 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2) (* (pow M 2) (pow (sqrt -1) 2))))))) (* (pow M 3) (* (pow w 3) (pow (sqrt -1) 3))))) (+ (* 1/2 (/ (* c0 (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow h 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* M (* (pow w 2) (sqrt -1))))) (+ (* M (* c0 (sqrt -1))) (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (* M (sqrt -1)))) (/ (* c0 (pow d 2)) (* (pow D 2) h)))) w))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (* M (* w (sqrt -1))))) (+ (* M (sqrt -1)) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (* M (* w (sqrt -1))))) (+ (* 1/2 (/ (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow h 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2) (* (pow M 2) (pow (sqrt -1) 2))))) (* M (* (pow w 2) (sqrt -1))))) (+ (* M (sqrt -1)) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (+ (* -1/4 (/ (* (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow h 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* (pow M 3) (* (pow w 3) (pow (sqrt -1) 3))))) (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (* M (* w (sqrt -1))))) (+ (* 1/2 (/ (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow h 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2) (* (pow M 2) (pow (sqrt -1) 2))))) (* M (* (pow w 2) (sqrt -1))))) (+ (* M (sqrt -1)) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))))))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))) #s(hole binary64 (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (* M (* w (sqrt -1))))) (* M (sqrt -1)))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))) #s(hole binary64 (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (* M (* w (sqrt -1))))) (+ (* 1/2 (/ (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow h 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2) (* (pow M 2) (pow (sqrt -1) 2))))) (* M (* (pow w 2) (sqrt -1))))) (* M (sqrt -1))))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))) #s(hole binary64 (+ (* -1/4 (/ (* (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow h 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* (pow M 3) (* (pow w 3) (pow (sqrt -1) 3))))) (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (* M (* w (sqrt -1))))) (+ (* 1/2 (/ (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow h 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2) (* (pow M 2) (pow (sqrt -1) 2))))) (* M (* (pow w 2) (sqrt -1))))) (* M (sqrt -1)))))))
#s(approx (* (/ c0 (* 2 w)) (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (/ (+ (* 1/2 (* M (* c0 (sqrt -1)))) (* 1/2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h w))))) w)))
#s(approx (* (/ c0 (* 2 w)) (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (/ (+ (* 1/4 (/ (* (pow c0 3) (pow d 4)) (* (pow D 4) (* M (* (pow h 2) (* (pow w 2) (sqrt -1))))))) (+ (* 1/2 (* M (* c0 (sqrt -1)))) (* 1/2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h w)))))) w)))
#s(approx (* (/ c0 (* 2 w)) (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (/ (+ (* -1/16 (/ (* (pow c0 5) (pow d 8)) (* (pow D 8) (* (pow M 3) (* (pow h 4) (* (pow w 4) (pow (sqrt -1) 3))))))) (+ (* 1/4 (/ (* (pow c0 3) (pow d 4)) (* (pow D 4) (* M (* (pow h 2) (* (pow w 2) (sqrt -1))))))) (+ (* 1/2 (* M (* c0 (sqrt -1)))) (* 1/2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h w))))))) w)))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (+ (* 1/2 (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* M (* (pow h 2) (* (pow w 2) (sqrt -1))))))) (+ (* M (sqrt -1)) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (+ (* -1/8 (/ (* (pow c0 4) (pow d 8)) (* (pow D 8) (* (pow M 3) (* (pow h 4) (* (pow w 4) (pow (sqrt -1) 3))))))) (+ (* 1/2 (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* M (* (pow h 2) (* (pow w 2) (sqrt -1))))))) (+ (* M (sqrt -1)) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))))))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) #s(hole binary64 (+ (* -1/8 (/ (* (pow c0 4) (pow d 8)) (* (pow D 8) (* (pow M 3) (* (pow h 4) (* (pow w 4) (pow (sqrt -1) 3))))))) (+ (* 1/2 (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* M (* (pow h 2) (* (pow w 2) (sqrt -1))))))) (* M (sqrt -1))))))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) #s(hole binary64 (+ (* -1/8 (/ (* (pow c0 4) (pow d 8)) (* (pow D 8) (* (pow M 3) (* (pow h 4) (* (pow w 4) (pow (sqrt -1) 3))))))) (+ (* 1/16 (/ (* (pow c0 6) (pow d 12)) (* (pow D 12) (* (pow M 5) (* (pow h 6) (* (pow w 6) (pow (sqrt -1) 5))))))) (+ (* 1/2 (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* M (* (pow h 2) (* (pow w 2) (sqrt -1))))))) (* M (sqrt -1)))))))
#s(approx (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) #s(hole binary64 (* (pow w 2) (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h (pow w 2))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* -1 (/ (+ (* -1/2 (* M (* c0 (sqrt -1)))) (* -1/2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h w))))) w))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (+ (* 1/4 (/ (* (pow c0 3) (pow d 4)) (* (pow D 4) (* M (* (pow h 2) (* w (sqrt -1))))))) (* 1/2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) h)))) w)) (* -1/2 (* M (* c0 (sqrt -1))))) w))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (+ (* -1 (/ (+ (* -1/4 (/ (* (pow c0 3) (pow d 4)) (* (pow D 4) (* M (* (pow h 2) (sqrt -1)))))) (* 1/16 (/ (* (pow c0 5) (pow d 8)) (* (pow D 8) (* (pow M 3) (* (pow h 4) (* (pow w 2) (pow (sqrt -1) 3)))))))) w)) (* 1/2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) h)))) w)) (* -1/2 (* M (* c0 (sqrt -1))))) w))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) h))) (* -1/2 (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* M (* (pow h 2) (* w (sqrt -1)))))))) w)) (* M (sqrt -1)))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) h))) (* -1 (/ (+ (* -1/8 (/ (* (pow c0 4) (pow d 8)) (* (pow D 8) (* (pow M 3) (* (pow h 4) (* (pow w 2) (pow (sqrt -1) 3))))))) (* 1/2 (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* M (* (pow h 2) (sqrt -1))))))) w))) w)) (* M (sqrt -1)))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (* -1 (/ (+ (* -1/2 (* M (* c0 (sqrt -1)))) (* 1/2 (/ (* c0 (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) h))) (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (* M (sqrt -1)))))) w))) w))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (+ (* -1/2 (* c0 (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) h))) (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (* M (sqrt -1))))))) (* 1/4 (/ (* c0 (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow h 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* M (* w (sqrt -1)))))) w)) (* -1/2 (* M (* c0 (sqrt -1))))) w))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (+ (* -1 (/ (+ (* -1/4 (/ (* c0 (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow h 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* M (sqrt -1)))) (* -1/8 (/ (* c0 (* (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow h 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2) (* (pow M 2) (pow (sqrt -1) 2))))))) (* (pow M 3) (* w (pow (sqrt -1) 3)))))) w)) (* -1/2 (* c0 (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) h))) (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (* M (sqrt -1)))))))) w)) (* -1/2 (* M (* c0 (sqrt -1))))) w))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (+ (* -1 (/ (* c0 (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) h))) (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (* M (sqrt -1)))))) w)) (* M (* c0 (sqrt -1))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/2 (/ (* c0 (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow h 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* M (* w (sqrt -1))))) (* c0 (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) h))) (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (* M (sqrt -1))))))) w)) (* M (* c0 (sqrt -1))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/4 (/ (* c0 (* (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow h 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2) (* (pow M 2) (pow (sqrt -1) 2))))))) (* (pow M 3) (* w (pow (sqrt -1) 3))))) (* 1/2 (/ (* c0 (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow h 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* M (sqrt -1))))) w)) (* c0 (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) h))) (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (* M (sqrt -1))))))) w)) (* M (* c0 (sqrt -1))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) h))) (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (* M (sqrt -1))))) w)) (* M (sqrt -1)))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) h))) (+ (* -1/2 (/ (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow h 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2) (* (pow M 2) (pow (sqrt -1) 2))))) (* M (* w (sqrt -1))))) (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (* M (sqrt -1)))))) w)) (* M (sqrt -1)))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) h))) (+ (* -1 (/ (+ (* 1/4 (/ (* (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow h 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* (pow M 3) (* w (pow (sqrt -1) 3))))) (* 1/2 (/ (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow h 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2) (* (pow M 2) (pow (sqrt -1) 2))))) (* M (sqrt -1))))) w)) (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (* M (sqrt -1)))))) w)) (* M (sqrt -1)))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))) #s(hole binary64 (+ (* -1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (* M (* w (sqrt -1))))) (* M (sqrt -1)))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/2 (/ (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow h 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2) (* (pow M 2) (pow (sqrt -1) 2))))) (* M (* w (sqrt -1))))) (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (* M (sqrt -1))))) w)) (* M (sqrt -1)))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))) #s(hole binary64 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/4 (/ (* (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow h 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* (pow M 3) (* w (pow (sqrt -1) 3))))) (* 1/2 (/ (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow h 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2) (* (pow M 2) (pow (sqrt -1) 2))))) (* M (sqrt -1))))) w)) (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (* M (sqrt -1))))) w)) (* M (sqrt -1)))))
#s(approx (* (/ c0 (* 2 w)) (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* -1 (/ (+ (* -1/2 (* M (* c0 (sqrt -1)))) (* -1/2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h w))))) w))))
#s(approx (* (/ c0 (* 2 w)) (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (+ (* 1/4 (/ (* (pow c0 3) (pow d 4)) (* (pow D 4) (* M (* (pow h 2) (* w (sqrt -1))))))) (* 1/2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) h)))) w)) (* -1/2 (* M (* c0 (sqrt -1))))) w))))
#s(approx (* (/ c0 (* 2 w)) (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (+ (* -1 (/ (+ (* -1/4 (/ (* (pow c0 3) (pow d 4)) (* (pow D 4) (* M (* (pow h 2) (sqrt -1)))))) (* 1/16 (/ (* (pow c0 5) (pow d 8)) (* (pow D 8) (* (pow M 3) (* (pow h 4) (* (pow w 2) (pow (sqrt -1) 3)))))))) w)) (* 1/2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) h)))) w)) (* -1/2 (* M (* c0 (sqrt -1))))) w))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) h))) (* -1/2 (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* M (* (pow h 2) (* w (sqrt -1)))))))) w)) (* M (sqrt -1)))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) h))) (* -1 (/ (+ (* -1/8 (/ (* (pow c0 4) (pow d 8)) (* (pow D 8) (* (pow M 3) (* (pow h 4) (* (pow w 2) (pow (sqrt -1) 3))))))) (* 1/2 (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* M (* (pow h 2) (sqrt -1))))))) w))) w)) (* M (sqrt -1)))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (/ (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (pow h 2))) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (pow w 2)))) h)))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (/ (+ (* (pow h 2) (+ (* -1/4 (/ (* (pow D 2) (pow M 2)) (pow d 2))) (* -1/16 (/ (* (pow D 6) (* (pow M 4) (* (pow h 2) (pow w 2)))) (* (pow c0 2) (pow d 6)))))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (pow w 2)))) h)))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (/ (+ (* (pow h 2) (+ (* -1/4 (/ (* (pow D 2) (pow M 2)) (pow d 2))) (* (pow h 2) (+ (* -1/16 (/ (* (pow D 6) (* (pow M 4) (pow w 2))) (* (pow c0 2) (pow d 6)))) (* -1/32 (/ (* (pow D 10) (* (pow M 6) (* (pow h 2) (pow w 4)))) (* (pow c0 4) (pow d 10)))))))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (pow w 2)))) h)))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (/ (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* (pow h 2) w))) (* c0 (pow d 2)))) (* 2 (/ (* c0 (pow d 2)) (* (pow D 2) w)))) h)))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (/ (+ (* 2 (/ (* c0 (pow d 2)) (* (pow D 2) w))) (* (pow h 2) (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) w)) (* c0 (pow d 2)))) (* -1/8 (/ (* (pow D 6) (* (pow M 4) (* (pow h 2) (pow w 3)))) (* (pow c0 3) (pow d 6))))))) h)))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (/ (+ (* 2 (/ (* c0 (pow d 2)) (* (pow D 2) w))) (* (pow h 2) (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) w)) (* c0 (pow d 2)))) (* (pow h 2) (+ (* -1/8 (/ (* (pow D 6) (* (pow M 4) (pow w 3))) (* (pow c0 3) (pow d 6)))) (* -1/16 (/ (* (pow D 10) (* (pow M 6) (* (pow h 2) (pow w 5)))) (* (pow c0 5) (pow d 10))))))))) h)))
#s(approx h #s(hole binary64 h))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (/ (+ (* 1/4 (/ (* (pow D 2) (* h (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))))) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (pow w 2)))) h)))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (/ (+ (* h (+ (* 1/4 (/ (* (pow D 2) (* h (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow w 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2))) (* (pow c0 2) (pow d 4))))))) (pow d 2))) (* 1/4 (/ (* (pow D 2) (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w)))) (pow d 2))))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (pow w 2)))) h)))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (/ (+ (* h (+ (* 1/4 (/ (* (pow D 2) (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w)))) (pow d 2))) (* h (+ (* -1/8 (/ (* (pow D 6) (* h (* (pow w 2) (* (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow w 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2))) (* (pow c0 2) (pow d 4))))))))) (* (pow c0 2) (pow d 6)))) (* 1/4 (/ (* (pow D 2) (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow w 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2))) (* (pow c0 2) (pow d 4)))))) (pow d 2))))))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (pow w 2)))) h)))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (/ (+ (* 1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w)))))) (pow d 2))) (* 2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) w)))) h)))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (/ (+ (* 2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) w))) (* h (+ (* 1/2 (/ (* (pow D 2) (* h (* w (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow w 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2))) (* (pow c0 2) (pow d 4)))))))) (pow d 2))) (* 1/2 (/ (* (pow D 2) (* w (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))))) (pow d 2)))))) h)))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (/ (+ (* 2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) w))) (* h (+ (* 1/2 (/ (* (pow D 2) (* w (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))))) (pow d 2))) (* h (+ (* -1/4 (/ (* (pow D 6) (* h (* (pow w 3) (* (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow w 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2))) (* (pow c0 2) (pow d 4))))))))) (* (pow c0 2) (pow d 6)))) (* 1/2 (/ (* (pow D 2) (* w (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow w 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2))) (* (pow c0 2) (pow d 4))))))) (pow d 2)))))))) h)))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (/ (+ (* 1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w)))))) (* c0 (pow d 2)))) (* 2 (/ (* c0 (pow d 2)) (* (pow D 2) w)))) h)))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (/ (+ (* 2 (/ (* c0 (pow d 2)) (* (pow D 2) w))) (* h (+ (* 1/2 (/ (* (pow D 2) (* h (* w (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow w 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2))) (* (pow c0 2) (pow d 4)))))))) (* c0 (pow d 2)))) (* 1/2 (/ (* (pow D 2) (* w (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))))) (* c0 (pow d 2))))))) h)))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (/ (+ (* 2 (/ (* c0 (pow d 2)) (* (pow D 2) w))) (* h (+ (* 1/2 (/ (* (pow D 2) (* w (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))))) (* c0 (pow d 2)))) (* h (+ (* -1/4 (/ (* (pow D 6) (* h (* (pow w 3) (* (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow w 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2))) (* (pow c0 2) (pow d 4))))))))) (* (pow c0 3) (pow d 6)))) (* 1/2 (/ (* (pow D 2) (* w (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow w 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2))) (* (pow c0 2) (pow d 4))))))) (* c0 (pow d 2))))))))) h)))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))) #s(hole binary64 (/ (+ (* 1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w)))))) (* c0 (pow d 2)))) (/ (* c0 (pow d 2)) (* (pow D 2) w))) h)))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))) #s(hole binary64 (/ (+ (* h (+ (* 1/2 (/ (* (pow D 2) (* h (* w (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow w 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2))) (* (pow c0 2) (pow d 4)))))))) (* c0 (pow d 2)))) (* 1/2 (/ (* (pow D 2) (* w (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))))) (* c0 (pow d 2)))))) (/ (* c0 (pow d 2)) (* (pow D 2) w))) h)))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))) #s(hole binary64 (/ (+ (* h (+ (* 1/2 (/ (* (pow D 2) (* w (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))))) (* c0 (pow d 2)))) (* h (+ (* -1/4 (/ (* (pow D 6) (* h (* (pow w 3) (* (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow w 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2))) (* (pow c0 2) (pow d 4))))))))) (* (pow c0 3) (pow d 6)))) (* 1/2 (/ (* (pow D 2) (* w (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow w 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2))) (* (pow c0 2) (pow d 4))))))) (* c0 (pow d 2)))))))) (/ (* c0 (pow d 2)) (* (pow D 2) w))) h)))
#s(approx (* (/ c0 (* 2 w)) (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (/ (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (pow h 2))) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (pow w 2)))) h)))
#s(approx (* (/ c0 (* 2 w)) (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (/ (+ (* (pow h 2) (+ (* -1/4 (/ (* (pow D 2) (pow M 2)) (pow d 2))) (* -1/16 (/ (* (pow D 6) (* (pow M 4) (* (pow h 2) (pow w 2)))) (* (pow c0 2) (pow d 6)))))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (pow w 2)))) h)))
#s(approx (* (/ c0 (* 2 w)) (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (/ (+ (* (pow h 2) (+ (* -1/4 (/ (* (pow D 2) (pow M 2)) (pow d 2))) (* (pow h 2) (+ (* -1/16 (/ (* (pow D 6) (* (pow M 4) (pow w 2))) (* (pow c0 2) (pow d 6)))) (* -1/32 (/ (* (pow D 10) (* (pow M 6) (* (pow h 2) (pow w 4)))) (* (pow c0 4) (pow d 10)))))))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (pow w 2)))) h)))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (/ (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* (pow h 2) w))) (* c0 (pow d 2)))) (* 2 (/ (* c0 (pow d 2)) (* (pow D 2) w)))) h)))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (/ (+ (* 2 (/ (* c0 (pow d 2)) (* (pow D 2) w))) (* (pow h 2) (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) w)) (* c0 (pow d 2)))) (* -1/8 (/ (* (pow D 6) (* (pow M 4) (* (pow h 2) (pow w 3)))) (* (pow c0 3) (pow d 6))))))) h)))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (/ (+ (* 2 (/ (* c0 (pow d 2)) (* (pow D 2) w))) (* (pow h 2) (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) w)) (* c0 (pow d 2)))) (* (pow h 2) (+ (* -1/8 (/ (* (pow D 6) (* (pow M 4) (pow w 3))) (* (pow c0 3) (pow d 6)))) (* -1/16 (/ (* (pow D 10) (* (pow M 6) (* (pow h 2) (pow w 5)))) (* (pow c0 5) (pow d 10))))))))) h)))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) #s(hole binary64 (/ (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* (pow h 2) w))) (* c0 (pow d 2)))) (/ (* c0 (pow d 2)) (* (pow D 2) w))) h)))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) #s(hole binary64 (/ (+ (* (pow h 2) (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) w)) (* c0 (pow d 2)))) (* -1/8 (/ (* (pow D 6) (* (pow M 4) (* (pow h 2) (pow w 3)))) (* (pow c0 3) (pow d 6)))))) (/ (* c0 (pow d 2)) (* (pow D 2) w))) h)))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) #s(hole binary64 (/ (+ (* (pow h 2) (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) w)) (* c0 (pow d 2)))) (* (pow h 2) (+ (* -1/8 (/ (* (pow D 6) (* (pow M 4) (pow w 3))) (* (pow c0 3) (pow d 6)))) (* -1/16 (/ (* (pow D 10) (* (pow M 6) (* (pow h 2) (pow w 5)))) (* (pow c0 5) (pow d 10)))))))) (/ (* c0 (pow d 2)) (* (pow D 2) w))) h)))
#s(approx (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)) #s(hole binary64 (/ (+ (* -1 (* (pow M 2) (pow h 2))) (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow w 2)))) (pow h 2))))
#s(approx (/ (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (* w w)) #s(hole binary64 (/ (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (pow h 2))) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (pow w 2)))) h)))
#s(approx (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) #s(hole binary64 (/ (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (* (pow h 2) (pow w 2)))) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) (pow D 2))) h)))
#s(approx (/ (* d d) h) #s(hole binary64 (/ (pow d 2) h)))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (+ (* 1/2 (/ (* M (* c0 (sqrt -1))) w)) (* 1/2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h (pow w 2))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (+ (* 1/4 (/ (* (pow c0 3) (pow d 4)) (* (pow D 4) (* M (* (pow h 2) (* (pow w 3) (sqrt -1))))))) (+ (* 1/2 (/ (* M (* c0 (sqrt -1))) w)) (* 1/2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h (pow w 2)))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (+ (* -1/16 (/ (* (pow c0 5) (pow d 8)) (* (pow D 8) (* (pow M 3) (* (pow h 4) (* (pow w 5) (pow (sqrt -1) 3))))))) (+ (* 1/4 (/ (* (pow c0 3) (pow d 4)) (* (pow D 4) (* M (* (pow h 2) (* (pow w 3) (sqrt -1))))))) (+ (* 1/2 (/ (* M (* c0 (sqrt -1))) w)) (* 1/2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h (pow w 2))))))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (+ (* 1/2 (/ (* M (* c0 (sqrt -1))) w)) (* 1/2 (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (* M (sqrt -1)))) (/ (* c0 (pow d 2)) (* (pow D 2) w)))) (* h w))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (+ (* 1/4 (/ (* c0 (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* M (* (pow h 2) (* w (sqrt -1)))))) (+ (* 1/2 (/ (* M (* c0 (sqrt -1))) w)) (* 1/2 (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (* M (sqrt -1)))) (/ (* c0 (pow d 2)) (* (pow D 2) w)))) (* h w)))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (+ (* -1/8 (/ (* c0 (* (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2) (* (pow M 2) (pow (sqrt -1) 2))))))) (* (pow M 3) (* (pow h 3) (* w (pow (sqrt -1) 3)))))) (+ (* 1/4 (/ (* c0 (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* M (* (pow h 2) (* w (sqrt -1)))))) (+ (* 1/2 (/ (* M (* c0 (sqrt -1))) w)) (* 1/2 (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (* M (sqrt -1)))) (/ (* c0 (pow d 2)) (* (pow D 2) w)))) (* h w))))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (+ (* M (* c0 (sqrt -1))) (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (* M (sqrt -1)))) (/ (* c0 (pow d 2)) (* (pow D 2) w)))) h))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (+ (* 1/2 (/ (* c0 (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* M (* (pow h 2) (sqrt -1))))) (+ (* M (* c0 (sqrt -1))) (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (* M (sqrt -1)))) (/ (* c0 (pow d 2)) (* (pow D 2) w)))) h)))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (+ (* -1/4 (/ (* c0 (* (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2) (* (pow M 2) (pow (sqrt -1) 2))))))) (* (pow M 3) (* (pow h 3) (pow (sqrt -1) 3))))) (+ (* 1/2 (/ (* c0 (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* M (* (pow h 2) (sqrt -1))))) (+ (* M (* c0 (sqrt -1))) (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (* M (sqrt -1)))) (/ (* c0 (pow d 2)) (* (pow D 2) w)))) h))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (* M (* h (sqrt -1))))) (+ (* M (sqrt -1)) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (* M (* h (sqrt -1))))) (+ (* 1/2 (/ (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2) (* (pow M 2) (pow (sqrt -1) 2))))) (* M (* (pow h 2) (sqrt -1))))) (+ (* M (sqrt -1)) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (+ (* -1/4 (/ (* (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* (pow M 3) (* (pow h 3) (pow (sqrt -1) 3))))) (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (* M (* h (sqrt -1))))) (+ (* 1/2 (/ (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2) (* (pow M 2) (pow (sqrt -1) 2))))) (* M (* (pow h 2) (sqrt -1))))) (+ (* M (sqrt -1)) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))))))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))) #s(hole binary64 (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (* M (* h (sqrt -1))))) (* M (sqrt -1)))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))) #s(hole binary64 (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (* M (* h (sqrt -1))))) (+ (* 1/2 (/ (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2) (* (pow M 2) (pow (sqrt -1) 2))))) (* M (* (pow h 2) (sqrt -1))))) (* M (sqrt -1))))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))) #s(hole binary64 (+ (* -1/4 (/ (* (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* (pow M 3) (* (pow h 3) (pow (sqrt -1) 3))))) (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (* M (* h (sqrt -1))))) (+ (* 1/2 (/ (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2) (* (pow M 2) (pow (sqrt -1) 2))))) (* M (* (pow h 2) (sqrt -1))))) (* M (sqrt -1)))))))
#s(approx (* (/ c0 (* 2 w)) (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (+ (* 1/2 (/ (* M (* c0 (sqrt -1))) w)) (* 1/2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h (pow w 2))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (+ (* 1/4 (/ (* (pow c0 3) (pow d 4)) (* (pow D 4) (* M (* (pow h 2) (* (pow w 3) (sqrt -1))))))) (+ (* 1/2 (/ (* M (* c0 (sqrt -1))) w)) (* 1/2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h (pow w 2)))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (+ (* -1/16 (/ (* (pow c0 5) (pow d 8)) (* (pow D 8) (* (pow M 3) (* (pow h 4) (* (pow w 5) (pow (sqrt -1) 3))))))) (+ (* 1/4 (/ (* (pow c0 3) (pow d 4)) (* (pow D 4) (* M (* (pow h 2) (* (pow w 3) (sqrt -1))))))) (+ (* 1/2 (/ (* M (* c0 (sqrt -1))) w)) (* 1/2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h (pow w 2))))))))))
#s(approx (/ (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (* w w)) #s(hole binary64 (* h (+ (* -1/4 (/ (* (pow D 2) (pow M 2)) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* (pow h 2) (pow w 2))))))))
#s(approx (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) #s(hole binary64 (* h (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (pow w 2))) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (pow h 2)))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (pow w 2)))) (* -1/4 (/ (* (pow c0 3) (pow d 4)) (* (pow D 4) (* M (* h (* (pow w 3) (sqrt -1)))))))) h)) (* 1/2 (/ (* M (* c0 (sqrt -1))) w)))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (+ (* -1 (/ (+ (* -1 (/ (+ (* -1/16 (/ (* (pow c0 5) (pow d 8)) (* (pow D 8) (* (pow M 3) (* (pow h 2) (* (pow w 5) (pow (sqrt -1) 3))))))) (* 1/4 (/ (* (pow c0 3) (pow d 4)) (* (pow D 4) (* M (* (pow w 3) (sqrt -1))))))) h)) (* -1/2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (pow w 2))))) h)) (* 1/2 (/ (* M (* c0 (sqrt -1))) w)))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) w))) (* -1/2 (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* M (* h (* (pow w 2) (sqrt -1)))))))) h)) (* M (sqrt -1)))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) w))) (* -1 (/ (+ (* -1/8 (/ (* (pow c0 4) (pow d 8)) (* (pow D 8) (* (pow M 3) (* (pow h 2) (* (pow w 4) (pow (sqrt -1) 3))))))) (* 1/2 (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* M (* (pow w 2) (sqrt -1))))))) h))) h)) (* M (sqrt -1)))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (+ (* -1/2 (/ (* c0 (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) w))) (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (* M (sqrt -1)))))) (* h w))) (* 1/2 (/ (* M (* c0 (sqrt -1))) w)))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (+ (* -1 (/ (+ (* -1/4 (/ (* c0 (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* M (* h (* w (sqrt -1)))))) (* 1/2 (/ (* c0 (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) w))) (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (* M (sqrt -1)))))) w))) h)) (* 1/2 (/ (* M (* c0 (sqrt -1))) w)))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/8 (/ (* c0 (* (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2) (* (pow M 2) (pow (sqrt -1) 2))))))) (* (pow M 3) (* h (* w (pow (sqrt -1) 3)))))) (* 1/4 (/ (* c0 (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* M (* w (sqrt -1)))))) h)) (* 1/2 (/ (* c0 (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) w))) (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (* M (sqrt -1)))))) w))) h)) (* 1/2 (/ (* M (* c0 (sqrt -1))) w)))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (+ (* -1 (/ (* c0 (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) w))) (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (* M (sqrt -1)))))) h)) (* M (* c0 (sqrt -1))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/2 (/ (* c0 (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* M (* h (sqrt -1))))) (* c0 (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) w))) (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (* M (sqrt -1))))))) h)) (* M (* c0 (sqrt -1))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/4 (/ (* c0 (* (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2) (* (pow M 2) (pow (sqrt -1) 2))))))) (* (pow M 3) (* h (pow (sqrt -1) 3))))) (* 1/2 (/ (* c0 (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* M (sqrt -1))))) h)) (* c0 (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) w))) (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (* M (sqrt -1))))))) h)) (* M (* c0 (sqrt -1))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) w))) (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (* M (sqrt -1))))) h)) (* M (sqrt -1)))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) w))) (+ (* -1/2 (/ (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2) (* (pow M 2) (pow (sqrt -1) 2))))) (* M (* h (sqrt -1))))) (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (* M (sqrt -1)))))) h)) (* M (sqrt -1)))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) w))) (+ (* -1 (/ (+ (* 1/4 (/ (* (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* (pow M 3) (* h (pow (sqrt -1) 3))))) (* 1/2 (/ (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2) (* (pow M 2) (pow (sqrt -1) 2))))) (* M (sqrt -1))))) h)) (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (* M (sqrt -1)))))) h)) (* M (sqrt -1)))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))) #s(hole binary64 (+ (* -1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (* M (* h (sqrt -1))))) (* M (sqrt -1)))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/2 (/ (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2) (* (pow M 2) (pow (sqrt -1) 2))))) (* M (* h (sqrt -1))))) (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (* M (sqrt -1))))) h)) (* M (sqrt -1)))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))) #s(hole binary64 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/4 (/ (* (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* (pow M 3) (* h (pow (sqrt -1) 3))))) (* 1/2 (/ (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2) (* (pow M 2) (pow (sqrt -1) 2))))) (* M (sqrt -1))))) h)) (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (* M (sqrt -1))))) h)) (* M (sqrt -1)))))
#s(approx (* (/ c0 (* 2 w)) (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (pow w 2)))) (* -1/4 (/ (* (pow c0 3) (pow d 4)) (* (pow D 4) (* M (* h (* (pow w 3) (sqrt -1)))))))) h)) (* 1/2 (/ (* M (* c0 (sqrt -1))) w)))))
#s(approx (* (/ c0 (* 2 w)) (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (+ (* -1 (/ (+ (* -1 (/ (+ (* -1/16 (/ (* (pow c0 5) (pow d 8)) (* (pow D 8) (* (pow M 3) (* (pow h 2) (* (pow w 5) (pow (sqrt -1) 3))))))) (* 1/4 (/ (* (pow c0 3) (pow d 4)) (* (pow D 4) (* M (* (pow w 3) (sqrt -1))))))) h)) (* -1/2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (pow w 2))))) h)) (* 1/2 (/ (* M (* c0 (sqrt -1))) w)))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) w))) (* -1/2 (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* M (* h (* (pow w 2) (sqrt -1)))))))) h)) (* M (sqrt -1)))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) w))) (* -1 (/ (+ (* -1/8 (/ (* (pow c0 4) (pow d 8)) (* (pow D 8) (* (pow M 3) (* (pow h 2) (* (pow w 4) (pow (sqrt -1) 3))))))) (* 1/2 (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* M (* (pow w 2) (sqrt -1))))))) h))) h)) (* M (sqrt -1)))))
#s(approx (/ (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (* w w)) #s(hole binary64 (* -1 (* h (+ (* -1 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* (pow h 2) (pow w 2))))) (* 1/4 (/ (* (pow D 2) (pow M 2)) (pow d 2))))))))
#s(approx (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) #s(hole binary64 (* -1 (* h (+ (* -1 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (pow h 2)))) (* 1/4 (/ (* (pow D 2) (* (pow M 2) (pow w 2))) (pow d 2))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (/ (+ (* -1/4 (/ (* (pow D 4) (* (pow M 2) h)) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) (* h (pow w 2)))) (pow D 2))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (/ (+ (* (pow D 4) (+ (* -1/4 (/ (* (pow M 2) h) (pow d 2))) (* -1/16 (/ (* (pow D 4) (* (pow M 4) (* (pow h 3) (pow w 2)))) (* (pow c0 2) (pow d 6)))))) (/ (* (pow c0 2) (pow d 2)) (* h (pow w 2)))) (pow D 2))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (/ (+ (* (pow D 4) (+ (* -1/4 (/ (* (pow M 2) h) (pow d 2))) (* (pow D 4) (+ (* -1/16 (/ (* (pow M 4) (* (pow h 3) (pow w 2))) (* (pow c0 2) (pow d 6)))) (* -1/32 (/ (* (pow D 4) (* (pow M 6) (* (pow h 5) (pow w 4)))) (* (pow c0 4) (pow d 10)))))))) (/ (* (pow c0 2) (pow d 2)) (* h (pow w 2)))) (pow D 2))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (/ (+ (* -1/2 (/ (* (pow D 4) (* (pow M 2) (* h w))) (* c0 (pow d 2)))) (* 2 (/ (* c0 (pow d 2)) (* h w)))) (pow D 2))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (/ (+ (* 2 (/ (* c0 (pow d 2)) (* h w))) (* (pow D 4) (+ (* -1/2 (/ (* (pow M 2) (* h w)) (* c0 (pow d 2)))) (* -1/8 (/ (* (pow D 4) (* (pow M 4) (* (pow h 3) (pow w 3)))) (* (pow c0 3) (pow d 6))))))) (pow D 2))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (/ (+ (* 2 (/ (* c0 (pow d 2)) (* h w))) (* (pow D 4) (+ (* -1/2 (/ (* (pow M 2) (* h w)) (* c0 (pow d 2)))) (* (pow D 4) (+ (* -1/8 (/ (* (pow M 4) (* (pow h 3) (pow w 3))) (* (pow c0 3) (pow d 6)))) (* -1/16 (/ (* (pow D 4) (* (pow M 6) (* (pow h 5) (pow w 5)))) (* (pow c0 5) (pow d 10))))))))) (pow D 2))))
#s(approx (/ (* d d) (* D D)) #s(hole binary64 (/ (pow d 2) (pow D 2))))
#s(approx D #s(hole binary64 D))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (/ (+ (* 1/4 (/ (* (pow D 2) (* h (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))))) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) (* h (pow w 2)))) (pow D 2))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (/ (+ (* (pow D 2) (+ (* 1/4 (/ (* h (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w)))) (pow d 2))) (* 1/4 (/ (* (pow D 2) (* h (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) 2))) (* (pow c0 2) (pow d 4))))))) (pow d 2))))) (/ (* (pow c0 2) (pow d 2)) (* h (pow w 2)))) (pow D 2))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (/ (+ (* (pow D 2) (+ (* 1/4 (/ (* h (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w)))) (pow d 2))) (* (pow D 2) (+ (* -1/8 (/ (* (pow D 2) (* (pow h 3) (* (pow w 2) (* (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) 2))) (* (pow c0 2) (pow d 4))))))))) (* (pow c0 2) (pow d 6)))) (* 1/4 (/ (* h (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) 2))) (* (pow c0 2) (pow d 4)))))) (pow d 2))))))) (/ (* (pow c0 2) (pow d 2)) (* h (pow w 2)))) (pow D 2))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (/ (+ (* 1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w)))))) (pow d 2))) (* 2 (/ (* (pow c0 2) (pow d 2)) (* h w)))) (pow D 2))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (/ (+ (* 2 (/ (* (pow c0 2) (pow d 2)) (* h w))) (* (pow D 2) (+ (* 1/2 (/ (* h (* w (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))))) (pow d 2))) (* 1/2 (/ (* (pow D 2) (* h (* w (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) 2))) (* (pow c0 2) (pow d 4)))))))) (pow d 2)))))) (pow D 2))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (/ (+ (* 2 (/ (* (pow c0 2) (pow d 2)) (* h w))) (* (pow D 2) (+ (* 1/2 (/ (* h (* w (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))))) (pow d 2))) (* (pow D 2) (+ (* -1/4 (/ (* (pow D 2) (* (pow h 3) (* (pow w 3) (* (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) 2))) (* (pow c0 2) (pow d 4))))))))) (* (pow c0 2) (pow d 6)))) (* 1/2 (/ (* h (* w (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) 2))) (* (pow c0 2) (pow d 4))))))) (pow d 2)))))))) (pow D 2))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (/ (+ (* 1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w)))))) (* c0 (pow d 2)))) (* 2 (/ (* c0 (pow d 2)) (* h w)))) (pow D 2))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (/ (+ (* 2 (/ (* c0 (pow d 2)) (* h w))) (* (pow D 2) (+ (* 1/2 (/ (* h (* w (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))))) (* c0 (pow d 2)))) (* 1/2 (/ (* (pow D 2) (* h (* w (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) 2))) (* (pow c0 2) (pow d 4)))))))) (* c0 (pow d 2))))))) (pow D 2))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (/ (+ (* 2 (/ (* c0 (pow d 2)) (* h w))) (* (pow D 2) (+ (* 1/2 (/ (* h (* w (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))))) (* c0 (pow d 2)))) (* (pow D 2) (+ (* -1/4 (/ (* (pow D 2) (* (pow h 3) (* (pow w 3) (* (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) 2))) (* (pow c0 2) (pow d 4))))))))) (* (pow c0 3) (pow d 6)))) (* 1/2 (/ (* h (* w (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) 2))) (* (pow c0 2) (pow d 4))))))) (* c0 (pow d 2))))))))) (pow D 2))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))) #s(hole binary64 (/ (+ (* 1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w)))))) (* c0 (pow d 2)))) (/ (* c0 (pow d 2)) (* h w))) (pow D 2))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))) #s(hole binary64 (/ (+ (* (pow D 2) (+ (* 1/2 (/ (* h (* w (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))))) (* c0 (pow d 2)))) (* 1/2 (/ (* (pow D 2) (* h (* w (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) 2))) (* (pow c0 2) (pow d 4)))))))) (* c0 (pow d 2)))))) (/ (* c0 (pow d 2)) (* h w))) (pow D 2))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))) #s(hole binary64 (/ (+ (* (pow D 2) (+ (* 1/2 (/ (* h (* w (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))))) (* c0 (pow d 2)))) (* (pow D 2) (+ (* -1/4 (/ (* (pow D 2) (* (pow h 3) (* (pow w 3) (* (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) 2))) (* (pow c0 2) (pow d 4))))))))) (* (pow c0 3) (pow d 6)))) (* 1/2 (/ (* h (* w (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) 2))) (* (pow c0 2) (pow d 4))))))) (* c0 (pow d 2)))))))) (/ (* c0 (pow d 2)) (* h w))) (pow D 2))))
#s(approx (* (/ c0 (* 2 w)) (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (/ (+ (* -1/4 (/ (* (pow D 4) (* (pow M 2) h)) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) (* h (pow w 2)))) (pow D 2))))
#s(approx (* (/ c0 (* 2 w)) (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (/ (+ (* (pow D 4) (+ (* -1/4 (/ (* (pow M 2) h) (pow d 2))) (* -1/16 (/ (* (pow D 4) (* (pow M 4) (* (pow h 3) (pow w 2)))) (* (pow c0 2) (pow d 6)))))) (/ (* (pow c0 2) (pow d 2)) (* h (pow w 2)))) (pow D 2))))
#s(approx (* (/ c0 (* 2 w)) (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (/ (+ (* (pow D 4) (+ (* -1/4 (/ (* (pow M 2) h) (pow d 2))) (* (pow D 4) (+ (* -1/16 (/ (* (pow M 4) (* (pow h 3) (pow w 2))) (* (pow c0 2) (pow d 6)))) (* -1/32 (/ (* (pow D 4) (* (pow M 6) (* (pow h 5) (pow w 4)))) (* (pow c0 4) (pow d 10)))))))) (/ (* (pow c0 2) (pow d 2)) (* h (pow w 2)))) (pow D 2))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (/ (+ (* -1/2 (/ (* (pow D 4) (* (pow M 2) (* h w))) (* c0 (pow d 2)))) (* 2 (/ (* c0 (pow d 2)) (* h w)))) (pow D 2))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (/ (+ (* 2 (/ (* c0 (pow d 2)) (* h w))) (* (pow D 4) (+ (* -1/2 (/ (* (pow M 2) (* h w)) (* c0 (pow d 2)))) (* -1/8 (/ (* (pow D 4) (* (pow M 4) (* (pow h 3) (pow w 3)))) (* (pow c0 3) (pow d 6))))))) (pow D 2))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (/ (+ (* 2 (/ (* c0 (pow d 2)) (* h w))) (* (pow D 4) (+ (* -1/2 (/ (* (pow M 2) (* h w)) (* c0 (pow d 2)))) (* (pow D 4) (+ (* -1/8 (/ (* (pow M 4) (* (pow h 3) (pow w 3))) (* (pow c0 3) (pow d 6)))) (* -1/16 (/ (* (pow D 4) (* (pow M 6) (* (pow h 5) (pow w 5)))) (* (pow c0 5) (pow d 10))))))))) (pow D 2))))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) #s(hole binary64 (/ (+ (* -1/2 (/ (* (pow D 4) (* (pow M 2) (* h w))) (* c0 (pow d 2)))) (/ (* c0 (pow d 2)) (* h w))) (pow D 2))))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) #s(hole binary64 (/ (+ (* (pow D 4) (+ (* -1/2 (/ (* (pow M 2) (* h w)) (* c0 (pow d 2)))) (* -1/8 (/ (* (pow D 4) (* (pow M 4) (* (pow h 3) (pow w 3)))) (* (pow c0 3) (pow d 6)))))) (/ (* c0 (pow d 2)) (* h w))) (pow D 2))))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) #s(hole binary64 (/ (+ (* (pow D 4) (+ (* -1/2 (/ (* (pow M 2) (* h w)) (* c0 (pow d 2)))) (* (pow D 4) (+ (* -1/8 (/ (* (pow M 4) (* (pow h 3) (pow w 3))) (* (pow c0 3) (pow d 6)))) (* -1/16 (/ (* (pow D 4) (* (pow M 6) (* (pow h 5) (pow w 5)))) (* (pow c0 5) (pow d 10)))))))) (/ (* c0 (pow d 2)) (* h w))) (pow D 2))))
#s(approx (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)) #s(hole binary64 (/ (+ (* -1 (* (pow D 4) (pow M 2))) (/ (* (pow c0 2) (pow d 4)) (* (pow h 2) (pow w 2)))) (pow D 4))))
#s(approx (* D D) #s(hole binary64 (pow D 2)))
#s(approx (/ (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (* w w)) #s(hole binary64 (/ (+ (* -1/4 (/ (* (pow D 4) (* (pow M 2) h)) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) (* h (pow w 2)))) (pow D 2))))
#s(approx (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) #s(hole binary64 (/ (+ (* -1/4 (/ (* (pow D 4) (* (pow M 2) (* h (pow w 2)))) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) h)) (pow D 2))))
#s(approx (pow (* D M) 2) #s(hole binary64 (* (pow D 2) (pow M 2))))
#s(approx (* D M) #s(hole binary64 (* D M)))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (+ (* 1/2 (/ (* M (* c0 (sqrt -1))) w)) (* 1/2 (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) (* M (sqrt -1)))) (/ (* c0 (pow d 2)) (* h w)))) (* (pow D 2) w))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (+ (* 1/4 (/ (* c0 (- (/ (* (pow c0 2) (pow d 4)) (* (pow h 2) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* (pow D 4) (* M (* w (sqrt -1)))))) (+ (* 1/2 (/ (* M (* c0 (sqrt -1))) w)) (* 1/2 (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) (* M (sqrt -1)))) (/ (* c0 (pow d 2)) (* h w)))) (* (pow D 2) w)))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (+ (* -1/8 (/ (* c0 (* (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) (- (/ (* (pow c0 2) (pow d 4)) (* (pow h 2) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) 2) (* (pow M 2) (pow (sqrt -1) 2))))))) (* (pow D 6) (* (pow M 3) (* w (pow (sqrt -1) 3)))))) (+ (* 1/4 (/ (* c0 (- (/ (* (pow c0 2) (pow d 4)) (* (pow h 2) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* (pow D 4) (* M (* w (sqrt -1)))))) (+ (* 1/2 (/ (* M (* c0 (sqrt -1))) w)) (* 1/2 (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) (* M (sqrt -1)))) (/ (* c0 (pow d 2)) (* h w)))) (* (pow D 2) w))))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (+ (* M (* c0 (sqrt -1))) (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) (* M (sqrt -1)))) (/ (* c0 (pow d 2)) (* h w)))) (pow D 2)))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (+ (* 1/2 (/ (* c0 (- (/ (* (pow c0 2) (pow d 4)) (* (pow h 2) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* (pow D 4) (* M (sqrt -1))))) (+ (* M (* c0 (sqrt -1))) (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) (* M (sqrt -1)))) (/ (* c0 (pow d 2)) (* h w)))) (pow D 2))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (+ (* -1/4 (/ (* c0 (* (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) (- (/ (* (pow c0 2) (pow d 4)) (* (pow h 2) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) 2) (* (pow M 2) (pow (sqrt -1) 2))))))) (* (pow D 6) (* (pow M 3) (pow (sqrt -1) 3))))) (+ (* 1/2 (/ (* c0 (- (/ (* (pow c0 2) (pow d 4)) (* (pow h 2) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* (pow D 4) (* M (sqrt -1))))) (+ (* M (* c0 (sqrt -1))) (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) (* M (sqrt -1)))) (/ (* c0 (pow d 2)) (* h w)))) (pow D 2)))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) (* (pow D 2) (* M (sqrt -1))))) (+ (* M (sqrt -1)) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) (* (pow D 2) (* M (sqrt -1))))) (+ (* 1/2 (/ (- (/ (* (pow c0 2) (pow d 4)) (* (pow h 2) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) 2) (* (pow M 2) (pow (sqrt -1) 2))))) (* (pow D 4) (* M (sqrt -1))))) (+ (* M (sqrt -1)) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (+ (* -1/4 (/ (* (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) (- (/ (* (pow c0 2) (pow d 4)) (* (pow h 2) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* (pow D 6) (* (pow M 3) (pow (sqrt -1) 3))))) (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) (* (pow D 2) (* M (sqrt -1))))) (+ (* 1/2 (/ (- (/ (* (pow c0 2) (pow d 4)) (* (pow h 2) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) 2) (* (pow M 2) (pow (sqrt -1) 2))))) (* (pow D 4) (* M (sqrt -1))))) (+ (* M (sqrt -1)) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))))))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))) #s(hole binary64 (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) (* (pow D 2) (* M (sqrt -1))))) (* M (sqrt -1)))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))) #s(hole binary64 (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) (* (pow D 2) (* M (sqrt -1))))) (+ (* 1/2 (/ (- (/ (* (pow c0 2) (pow d 4)) (* (pow h 2) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) 2) (* (pow M 2) (pow (sqrt -1) 2))))) (* (pow D 4) (* M (sqrt -1))))) (* M (sqrt -1))))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))) #s(hole binary64 (+ (* -1/4 (/ (* (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) (- (/ (* (pow c0 2) (pow d 4)) (* (pow h 2) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* (pow D 6) (* (pow M 3) (pow (sqrt -1) 3))))) (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) (* (pow D 2) (* M (sqrt -1))))) (+ (* 1/2 (/ (- (/ (* (pow c0 2) (pow d 4)) (* (pow h 2) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) 2) (* (pow M 2) (pow (sqrt -1) 2))))) (* (pow D 4) (* M (sqrt -1))))) (* M (sqrt -1)))))))
#s(approx (/ (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (* w w)) #s(hole binary64 (* (pow D 2) (+ (* -1/4 (/ (* (pow M 2) h) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 4) (* h (pow w 2))))))))
#s(approx (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) #s(hole binary64 (* (pow D 2) (+ (* -1/4 (/ (* (pow M 2) (* h (pow w 2))) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 4) h))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (+ (* 1/2 (/ (* M (* c0 (sqrt -1))) w)) (* (pow d 2) (+ (* 1/4 (/ (* (pow c0 3) (pow d 2)) (* (pow D 4) (* M (* (pow h 2) (* (pow w 3) (sqrt -1))))))) (* 1/2 (/ (pow c0 2) (* (pow D 2) (* h (pow w 2))))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (+ (* 1/2 (/ (* M (* c0 (sqrt -1))) w)) (* (pow d 2) (+ (* 1/2 (/ (pow c0 2) (* (pow D 2) (* h (pow w 2))))) (* (pow d 2) (+ (* -1/16 (/ (* (pow c0 5) (pow d 4)) (* (pow D 8) (* (pow M 3) (* (pow h 4) (* (pow w 5) (pow (sqrt -1) 3))))))) (* 1/4 (/ (pow c0 3) (* (pow D 4) (* M (* (pow h 2) (* (pow w 3) (sqrt -1))))))))))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (+ (* M (sqrt -1)) (* (pow d 2) (+ (* 1/2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 4) (* M (* (pow h 2) (* (pow w 2) (sqrt -1))))))) (/ c0 (* (pow D 2) (* h w))))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (+ (* M (sqrt -1)) (* (pow d 2) (+ (* (pow d 2) (+ (* -1/8 (/ (* (pow c0 4) (pow d 4)) (* (pow D 8) (* (pow M 3) (* (pow h 4) (* (pow w 4) (pow (sqrt -1) 3))))))) (* 1/2 (/ (pow c0 2) (* (pow D 4) (* M (* (pow h 2) (* (pow w 2) (sqrt -1))))))))) (/ c0 (* (pow D 2) (* h w))))))))
#s(approx d #s(hole binary64 d))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (+ (* 1/2 (/ (* M (* c0 (sqrt -1))) w)) (* 1/2 (/ (* c0 (* (pow d 2) (+ (* 1/2 (/ (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) (* M (sqrt -1)))) (/ c0 (* (pow D 2) (* h w)))))) w)))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (+ (* 1/2 (/ (* M (* c0 (sqrt -1))) w)) (* (pow d 2) (+ (* 1/4 (/ (* c0 (* (pow d 2) (- (/ (pow c0 2) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) 2) (* (pow M 2) (pow (sqrt -1) 2))))))) (* M (* w (sqrt -1))))) (* 1/2 (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) (* M (sqrt -1)))) (/ c0 (* (pow D 2) (* h w))))) w)))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (+ (* 1/2 (/ (* M (* c0 (sqrt -1))) w)) (* (pow d 2) (+ (* 1/2 (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) (* M (sqrt -1)))) (/ c0 (* (pow D 2) (* h w))))) w)) (* (pow d 2) (+ (* -1/8 (/ (* c0 (* (pow d 2) (* (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) (- (/ (pow c0 2) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))))) (* (pow M 3) (* w (pow (sqrt -1) 3))))) (* 1/4 (/ (* c0 (- (/ (pow c0 2) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* M (* w (sqrt -1))))))))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (+ (* M (* c0 (sqrt -1))) (* c0 (* (pow d 2) (+ (* 1/2 (/ (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) (* M (sqrt -1)))) (/ c0 (* (pow D 2) (* h w)))))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (+ (* M (* c0 (sqrt -1))) (* (pow d 2) (+ (* 1/2 (/ (* c0 (* (pow d 2) (- (/ (pow c0 2) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) 2) (* (pow M 2) (pow (sqrt -1) 2))))))) (* M (sqrt -1)))) (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) (* M (sqrt -1)))) (/ c0 (* (pow D 2) (* h w))))))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (+ (* M (* c0 (sqrt -1))) (* (pow d 2) (+ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) (* M (sqrt -1)))) (/ c0 (* (pow D 2) (* h w))))) (* (pow d 2) (+ (* -1/4 (/ (* c0 (* (pow d 2) (* (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) (- (/ (pow c0 2) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))))) (* (pow M 3) (pow (sqrt -1) 3)))) (* 1/2 (/ (* c0 (- (/ (pow c0 2) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* M (sqrt -1)))))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (+ (* M (sqrt -1)) (* (pow d 2) (+ (* 1/2 (/ (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) (* M (sqrt -1)))) (/ c0 (* (pow D 2) (* h w))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (+ (* M (sqrt -1)) (* (pow d 2) (+ (* 1/2 (/ (* (pow d 2) (- (/ (pow c0 2) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* M (sqrt -1)))) (+ (* 1/2 (/ (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) (* M (sqrt -1)))) (/ c0 (* (pow D 2) (* h w)))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (+ (* M (sqrt -1)) (* (pow d 2) (+ (* 1/2 (/ (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) (* M (sqrt -1)))) (+ (* (pow d 2) (+ (* -1/4 (/ (* (pow d 2) (* (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) (- (/ (pow c0 2) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) 2) (* (pow M 2) (pow (sqrt -1) 2))))))) (* (pow M 3) (pow (sqrt -1) 3)))) (* 1/2 (/ (- (/ (pow c0 2) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) 2) (* (pow M 2) (pow (sqrt -1) 2))))) (* M (sqrt -1)))))) (/ c0 (* (pow D 2) (* h w)))))))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))) #s(hole binary64 (+ (* 1/2 (/ (* (pow d 2) (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w))))) (* M (sqrt -1)))) (* M (sqrt -1)))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))) #s(hole binary64 (+ (* M (sqrt -1)) (* (pow d 2) (+ (* 1/2 (/ (* (pow d 2) (- (/ (pow c0 2) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* M (sqrt -1)))) (* 1/2 (/ (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) (* M (sqrt -1)))))))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))) #s(hole binary64 (+ (* M (sqrt -1)) (* (pow d 2) (+ (* 1/2 (/ (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) (* M (sqrt -1)))) (* (pow d 2) (+ (* -1/4 (/ (* (pow d 2) (* (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) (- (/ (pow c0 2) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) 2) (* (pow M 2) (pow (sqrt -1) 2))))))) (* (pow M 3) (pow (sqrt -1) 3)))) (* 1/2 (/ (- (/ (pow c0 2) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) 2) (* (pow M 2) (pow (sqrt -1) 2))))) (* M (sqrt -1)))))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (+ (* 1/2 (/ (* M (* c0 (sqrt -1))) w)) (* (pow d 2) (+ (* 1/4 (/ (* (pow c0 3) (pow d 2)) (* (pow D 4) (* M (* (pow h 2) (* (pow w 3) (sqrt -1))))))) (* 1/2 (/ (pow c0 2) (* (pow D 2) (* h (pow w 2))))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (+ (* 1/2 (/ (* M (* c0 (sqrt -1))) w)) (* (pow d 2) (+ (* 1/2 (/ (pow c0 2) (* (pow D 2) (* h (pow w 2))))) (* (pow d 2) (+ (* -1/16 (/ (* (pow c0 5) (pow d 4)) (* (pow D 8) (* (pow M 3) (* (pow h 4) (* (pow w 5) (pow (sqrt -1) 3))))))) (* 1/4 (/ (pow c0 3) (* (pow D 4) (* M (* (pow h 2) (* (pow w 3) (sqrt -1))))))))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (+ (* M (sqrt -1)) (* (pow d 2) (+ (* 1/2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 4) (* M (* (pow h 2) (* (pow w 2) (sqrt -1))))))) (/ c0 (* (pow D 2) (* h w))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (+ (* M (sqrt -1)) (* (pow d 2) (+ (* (pow d 2) (+ (* -1/8 (/ (* (pow c0 4) (pow d 4)) (* (pow D 8) (* (pow M 3) (* (pow h 4) (* (pow w 4) (pow (sqrt -1) 3))))))) (* 1/2 (/ (pow c0 2) (* (pow D 4) (* M (* (pow h 2) (* (pow w 2) (sqrt -1))))))))) (/ c0 (* (pow D 2) (* h w))))))))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) #s(hole binary64 (+ (* M (sqrt -1)) (* (pow d 4) (+ (* -1/8 (/ (* (pow c0 4) (pow d 4)) (* (pow D 8) (* (pow M 3) (* (pow h 4) (* (pow w 4) (pow (sqrt -1) 3))))))) (* 1/2 (/ (pow c0 2) (* (pow D 4) (* M (* (pow h 2) (* (pow w 2) (sqrt -1))))))))))))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) #s(hole binary64 (+ (* M (sqrt -1)) (* (pow d 4) (+ (* 1/2 (/ (pow c0 2) (* (pow D 4) (* M (* (pow h 2) (* (pow w 2) (sqrt -1))))))) (* (pow d 4) (+ (* -1/8 (/ (pow c0 4) (* (pow D 8) (* (pow M 3) (* (pow h 4) (* (pow w 4) (pow (sqrt -1) 3))))))) (* 1/16 (/ (* (pow c0 6) (pow d 4)) (* (pow D 12) (* (pow M 5) (* (pow h 6) (* (pow w 6) (pow (sqrt -1) 5))))))))))))))
#s(approx (* d d) #s(hole binary64 (pow d 2)))
#s(approx (/ (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (* w w)) #s(hole binary64 (/ (+ (* -1/4 (* (pow D 2) (* (pow M 2) h))) (/ (* (pow c0 2) (pow d 4)) (* (pow D 2) (* h (pow w 2))))) (pow d 2))))
#s(approx (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) #s(hole binary64 (/ (+ (* -1/4 (* (pow D 2) (* (pow M 2) (* h (pow w 2))))) (/ (* (pow c0 2) (pow d 4)) (* (pow D 2) h))) (pow d 2))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* (pow d 2) (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 4))) (/ (pow c0 2) (* (pow D 2) (* h (pow w 2))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* (pow d 2) (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 4))) (+ (* -1/16 (/ (* (pow D 6) (* (pow M 4) (* (pow h 3) (pow w 2)))) (* (pow c0 2) (pow d 8)))) (/ (pow c0 2) (* (pow D 2) (* h (pow w 2)))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* (pow d 2) (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 4))) (+ (* -1/16 (/ (* (pow D 6) (* (pow M 4) (* (pow h 3) (pow w 2)))) (* (pow c0 2) (pow d 8)))) (+ (* -1/32 (/ (* (pow D 10) (* (pow M 6) (* (pow h 5) (pow w 4)))) (* (pow c0 4) (pow d 12)))) (/ (pow c0 2) (* (pow D 2) (* h (pow w 2))))))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (* (pow d 2) (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h w))) (* c0 (pow d 4)))) (* 2 (/ c0 (* (pow D 2) (* h w))))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (* (pow d 2) (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h w))) (* c0 (pow d 4)))) (+ (* -1/8 (/ (* (pow D 6) (* (pow M 4) (* (pow h 3) (pow w 3)))) (* (pow c0 3) (pow d 8)))) (* 2 (/ c0 (* (pow D 2) (* h w)))))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (* (pow d 2) (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h w))) (* c0 (pow d 4)))) (+ (* -1/8 (/ (* (pow D 6) (* (pow M 4) (* (pow h 3) (pow w 3)))) (* (pow c0 3) (pow d 8)))) (+ (* -1/16 (/ (* (pow D 10) (* (pow M 6) (* (pow h 5) (pow w 5)))) (* (pow c0 5) (pow d 12)))) (* 2 (/ c0 (* (pow D 2) (* h w))))))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (* (pow d 2) (+ (* 1/4 (/ (* (pow D 2) (* h (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))))) (pow d 2))) (/ (pow c0 2) (* (pow D 2) (* h (pow w 2))))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (* (pow d 2) (+ (* 1/4 (/ (* (pow D 2) (* h (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))))) (pow d 2))) (+ (* 1/4 (/ (* (pow D 2) (* h (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) 2)))) (pow c0 2)))))) (pow d 4))) (/ (pow c0 2) (* (pow D 2) (* h (pow w 2)))))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (* (pow d 2) (+ (* -1/8 (/ (* (pow D 6) (* (pow h 3) (* (pow w 2) (* (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) 2)))) (pow c0 2)))))))) (* (pow c0 2) (pow d 6)))) (+ (* 1/4 (/ (* (pow D 2) (* h (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))))) (pow d 2))) (+ (* 1/4 (/ (* (pow D 2) (* h (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) 2)))) (pow c0 2)))))) (pow d 4))) (/ (pow c0 2) (* (pow D 2) (* h (pow w 2))))))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (* (pow d 2) (+ (* 1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w))))))) (pow d 2))) (* 2 (/ (pow c0 2) (* (pow D 2) (* h w))))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (* (pow d 2) (+ (* 1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w))))))) (pow d 2))) (+ (* 1/2 (/ (* (pow D 2) (* h (* w (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) 2)))) (pow c0 2))))))) (pow d 4))) (* 2 (/ (pow c0 2) (* (pow D 2) (* h w)))))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (* (pow d 2) (+ (* -1/4 (/ (* (pow D 6) (* (pow h 3) (* (pow w 3) (* (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) 2)))) (pow c0 2)))))))) (* (pow c0 2) (pow d 6)))) (+ (* 1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w))))))) (pow d 2))) (+ (* 1/2 (/ (* (pow D 2) (* h (* w (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) 2)))) (pow c0 2))))))) (pow d 4))) (* 2 (/ (pow c0 2) (* (pow D 2) (* h w))))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (* (pow d 2) (+ (* 1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w))))))) (* c0 (pow d 2)))) (* 2 (/ c0 (* (pow D 2) (* h w))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (* (pow d 2) (+ (* 1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w))))))) (* c0 (pow d 2)))) (+ (* 1/2 (/ (* (pow D 2) (* h (* w (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) 2)))) (pow c0 2))))))) (* c0 (pow d 4)))) (* 2 (/ c0 (* (pow D 2) (* h w)))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (* (pow d 2) (+ (* -1/4 (/ (* (pow D 6) (* (pow h 3) (* (pow w 3) (* (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) 2)))) (pow c0 2)))))))) (* (pow c0 3) (pow d 6)))) (+ (* 1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w))))))) (* c0 (pow d 2)))) (+ (* 1/2 (/ (* (pow D 2) (* h (* w (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) 2)))) (pow c0 2))))))) (* c0 (pow d 4)))) (* 2 (/ c0 (* (pow D 2) (* h w))))))))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))) #s(hole binary64 (* (pow d 2) (+ (* 1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w))))))) (* c0 (pow d 2)))) (/ c0 (* (pow D 2) (* h w)))))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))) #s(hole binary64 (* (pow d 2) (+ (* 1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w))))))) (* c0 (pow d 2)))) (+ (* 1/2 (/ (* (pow D 2) (* h (* w (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) 2)))) (pow c0 2))))))) (* c0 (pow d 4)))) (/ c0 (* (pow D 2) (* h w))))))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))) #s(hole binary64 (* (pow d 2) (+ (* -1/4 (/ (* (pow D 6) (* (pow h 3) (* (pow w 3) (* (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) 2)))) (pow c0 2)))))))) (* (pow c0 3) (pow d 6)))) (+ (* 1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w))))))) (* c0 (pow d 2)))) (+ (* 1/2 (/ (* (pow D 2) (* h (* w (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) 2)))) (pow c0 2))))))) (* c0 (pow d 4)))) (/ c0 (* (pow D 2) (* h w)))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* (pow d 2) (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 4))) (/ (pow c0 2) (* (pow D 2) (* h (pow w 2))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* (pow d 2) (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 4))) (+ (* -1/16 (/ (* (pow D 6) (* (pow M 4) (* (pow h 3) (pow w 2)))) (* (pow c0 2) (pow d 8)))) (/ (pow c0 2) (* (pow D 2) (* h (pow w 2)))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* (pow d 2) (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 4))) (+ (* -1/16 (/ (* (pow D 6) (* (pow M 4) (* (pow h 3) (pow w 2)))) (* (pow c0 2) (pow d 8)))) (+ (* -1/32 (/ (* (pow D 10) (* (pow M 6) (* (pow h 5) (pow w 4)))) (* (pow c0 4) (pow d 12)))) (/ (pow c0 2) (* (pow D 2) (* h (pow w 2))))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (* (pow d 2) (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h w))) (* c0 (pow d 4)))) (* 2 (/ c0 (* (pow D 2) (* h w))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (* (pow d 2) (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h w))) (* c0 (pow d 4)))) (+ (* -1/8 (/ (* (pow D 6) (* (pow M 4) (* (pow h 3) (pow w 3)))) (* (pow c0 3) (pow d 8)))) (* 2 (/ c0 (* (pow D 2) (* h w)))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (* (pow d 2) (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h w))) (* c0 (pow d 4)))) (+ (* -1/8 (/ (* (pow D 6) (* (pow M 4) (* (pow h 3) (pow w 3)))) (* (pow c0 3) (pow d 8)))) (+ (* -1/16 (/ (* (pow D 10) (* (pow M 6) (* (pow h 5) (pow w 5)))) (* (pow c0 5) (pow d 12)))) (* 2 (/ c0 (* (pow D 2) (* h w))))))))))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) #s(hole binary64 (* (pow d 2) (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h w))) (* c0 (pow d 4)))) (/ c0 (* (pow D 2) (* h w)))))))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) #s(hole binary64 (* (pow d 2) (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h w))) (* c0 (pow d 4)))) (+ (* -1/8 (/ (* (pow D 6) (* (pow M 4) (* (pow h 3) (pow w 3)))) (* (pow c0 3) (pow d 8)))) (/ c0 (* (pow D 2) (* h w))))))))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) #s(hole binary64 (* (pow d 2) (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h w))) (* c0 (pow d 4)))) (+ (* -1/8 (/ (* (pow D 6) (* (pow M 4) (* (pow h 3) (pow w 3)))) (* (pow c0 3) (pow d 8)))) (+ (* -1/16 (/ (* (pow D 10) (* (pow M 6) (* (pow h 5) (pow w 5)))) (* (pow c0 5) (pow d 12)))) (/ c0 (* (pow D 2) (* h w)))))))))
#s(approx (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)) #s(hole binary64 (* (pow d 4) (+ (* -1 (/ (pow M 2) (pow d 4))) (/ (pow c0 2) (* (pow D 4) (* (pow h 2) (pow w 2))))))))
#s(approx (/ (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (* w w)) #s(hole binary64 (* (pow d 2) (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 4))) (/ (pow c0 2) (* (pow D 2) (* h (pow w 2))))))))
#s(approx (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) #s(hole binary64 (* (pow d 2) (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (* h (pow w 2)))) (pow d 4))) (/ (pow c0 2) (* (pow D 2) h))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h (pow w 2)))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (+ (* (pow M 2) (+ (* -1/4 (/ (* (pow D 2) h) (pow d 2))) (* -1/16 (/ (* (pow D 6) (* (pow M 2) (* (pow h 3) (pow w 2)))) (* (pow c0 2) (pow d 6)))))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h (pow w 2)))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (+ (* (pow M 2) (+ (* -1/4 (/ (* (pow D 2) h) (pow d 2))) (* (pow M 2) (+ (* -1/16 (/ (* (pow D 6) (* (pow h 3) (pow w 2))) (* (pow c0 2) (pow d 6)))) (* -1/32 (/ (* (pow D 10) (* (pow M 2) (* (pow h 5) (pow w 4)))) (* (pow c0 4) (pow d 10)))))))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h (pow w 2)))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h w))) (* c0 (pow d 2)))) (* 2 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (+ (* 2 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (* (pow M 2) (+ (* -1/2 (/ (* (pow D 2) (* h w)) (* c0 (pow d 2)))) (* -1/8 (/ (* (pow D 6) (* (pow M 2) (* (pow h 3) (pow w 3)))) (* (pow c0 3) (pow d 6)))))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (+ (* 2 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (* (pow M 2) (+ (* -1/2 (/ (* (pow D 2) (* h w)) (* c0 (pow d 2)))) (* (pow M 2) (+ (* -1/8 (/ (* (pow D 6) (* (pow h 3) (pow w 3))) (* (pow c0 3) (pow d 6)))) (* -1/16 (/ (* (pow D 10) (* (pow M 2) (* (pow h 5) (pow w 5)))) (* (pow c0 5) (pow d 10)))))))))))
#s(approx (* (sqrt -1) M) #s(hole binary64 (* M (sqrt -1))))
#s(approx M #s(hole binary64 M))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (+ (* 1/4 (/ (* (pow D 2) (* M (* h (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))))) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h (pow w 2)))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (+ (* M (+ (* -1/4 (/ (* (pow D 2) (* M (* h (+ 1 (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (* (pow c0 2) (pow d 4)))))))) (pow d 2))) (* 1/4 (/ (* (pow D 2) (* h (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))))) (pow d 2))))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h (pow w 2)))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (+ (* M (+ (* 1/4 (/ (* (pow D 2) (* h (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))))) (pow d 2))) (* M (+ (* -1/4 (/ (* (pow D 2) (* h (+ 1 (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (* (pow c0 2) (pow d 4))))))) (pow d 2))) (* 1/8 (/ (* (pow D 6) (* M (* (pow h 3) (* (pow w 2) (* (+ 1 (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (* (pow c0 2) (pow d 4))))) (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))))))) (* (pow c0 2) (pow d 6)))))))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h (pow w 2)))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (+ (* 1/2 (/ (* (pow D 2) (* M (* h (* w (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))))))) (pow d 2))) (* 2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h w)))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (+ (* 2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h w)))) (* M (+ (* -1/2 (/ (* (pow D 2) (* M (* h (* w (+ 1 (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (* (pow c0 2) (pow d 4))))))))) (pow d 2))) (* 1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))))) (pow d 2))))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (+ (* 2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h w)))) (* M (+ (* 1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))))) (pow d 2))) (* M (+ (* -1/2 (/ (* (pow D 2) (* h (* w (+ 1 (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (* (pow c0 2) (pow d 4)))))))) (pow d 2))) (* 1/4 (/ (* (pow D 6) (* M (* (pow h 3) (* (pow w 3) (* (+ 1 (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (* (pow c0 2) (pow d 4))))) (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))))))) (* (pow c0 2) (pow d 6)))))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (+ (* 1/2 (/ (* (pow D 2) (* M (* h (* w (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))))))) (* c0 (pow d 2)))) (* 2 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (+ (* 2 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (* M (+ (* -1/2 (/ (* (pow D 2) (* M (* h (* w (+ 1 (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (* (pow c0 2) (pow d 4))))))))) (* c0 (pow d 2)))) (* 1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))))) (* c0 (pow d 2)))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (+ (* 2 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (* M (+ (* 1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))))) (* c0 (pow d 2)))) (* M (+ (* -1/2 (/ (* (pow D 2) (* h (* w (+ 1 (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (* (pow c0 2) (pow d 4)))))))) (* c0 (pow d 2)))) (* 1/4 (/ (* (pow D 6) (* M (* (pow h 3) (* (pow w 3) (* (+ 1 (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (* (pow c0 2) (pow d 4))))) (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))))))) (* (pow c0 3) (pow d 6)))))))))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))) #s(hole binary64 (+ (* 1/2 (/ (* (pow D 2) (* M (* h (* w (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))))))) (* c0 (pow d 2)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))) #s(hole binary64 (+ (* M (+ (* -1/2 (/ (* (pow D 2) (* M (* h (* w (+ 1 (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (* (pow c0 2) (pow d 4))))))))) (* c0 (pow d 2)))) (* 1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))))) (* c0 (pow d 2)))))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))) #s(hole binary64 (+ (* M (+ (* 1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))))) (* c0 (pow d 2)))) (* M (+ (* -1/2 (/ (* (pow D 2) (* h (* w (+ 1 (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (* (pow c0 2) (pow d 4)))))))) (* c0 (pow d 2)))) (* 1/4 (/ (* (pow D 6) (* M (* (pow h 3) (* (pow w 3) (* (+ 1 (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (* (pow c0 2) (pow d 4))))) (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))))))) (* (pow c0 3) (pow d 6)))))))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))))
#s(approx (* (/ c0 (* 2 w)) (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h (pow w 2)))))))
#s(approx (* (/ c0 (* 2 w)) (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (+ (* (pow M 2) (+ (* -1/4 (/ (* (pow D 2) h) (pow d 2))) (* -1/16 (/ (* (pow D 6) (* (pow M 2) (* (pow h 3) (pow w 2)))) (* (pow c0 2) (pow d 6)))))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h (pow w 2)))))))
#s(approx (* (/ c0 (* 2 w)) (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (+ (* (pow M 2) (+ (* -1/4 (/ (* (pow D 2) h) (pow d 2))) (* (pow M 2) (+ (* -1/16 (/ (* (pow D 6) (* (pow h 3) (pow w 2))) (* (pow c0 2) (pow d 6)))) (* -1/32 (/ (* (pow D 10) (* (pow M 2) (* (pow h 5) (pow w 4)))) (* (pow c0 4) (pow d 10)))))))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h (pow w 2)))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h w))) (* c0 (pow d 2)))) (* 2 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (+ (* 2 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (* (pow M 2) (+ (* -1/2 (/ (* (pow D 2) (* h w)) (* c0 (pow d 2)))) (* -1/8 (/ (* (pow D 6) (* (pow M 2) (* (pow h 3) (pow w 3)))) (* (pow c0 3) (pow d 6)))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (+ (* 2 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (* (pow M 2) (+ (* -1/2 (/ (* (pow D 2) (* h w)) (* c0 (pow d 2)))) (* (pow M 2) (+ (* -1/8 (/ (* (pow D 6) (* (pow h 3) (pow w 3))) (* (pow c0 3) (pow d 6)))) (* -1/16 (/ (* (pow D 10) (* (pow M 2) (* (pow h 5) (pow w 5)))) (* (pow c0 5) (pow d 10)))))))))))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) #s(hole binary64 (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h w))) (* c0 (pow d 2)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) #s(hole binary64 (+ (* (pow M 2) (+ (* -1/2 (/ (* (pow D 2) (* h w)) (* c0 (pow d 2)))) (* -1/8 (/ (* (pow D 6) (* (pow M 2) (* (pow h 3) (pow w 3)))) (* (pow c0 3) (pow d 6)))))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) #s(hole binary64 (+ (* (pow M 2) (+ (* -1/2 (/ (* (pow D 2) (* h w)) (* c0 (pow d 2)))) (* (pow M 2) (+ (* -1/8 (/ (* (pow D 6) (* (pow h 3) (pow w 3))) (* (pow c0 3) (pow d 6)))) (* -1/16 (/ (* (pow D 10) (* (pow M 2) (* (pow h 5) (pow w 5)))) (* (pow c0 5) (pow d 10)))))))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))))
#s(approx (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)) #s(hole binary64 (+ (* -1 (pow M 2)) (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow h 2) (pow w 2)))))))
#s(approx (* M M) #s(hole binary64 (pow M 2)))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* M (+ (* 1/2 (/ (* c0 (sqrt -1)) w)) (* 1/2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* M (* h (pow w 2))))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* M (+ (* 1/4 (/ (* (pow c0 3) (pow d 4)) (* (pow D 4) (* (pow M 2) (* (pow h 2) (* (pow w 3) (sqrt -1))))))) (+ (* 1/2 (/ (* c0 (sqrt -1)) w)) (* 1/2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* M (* h (pow w 2)))))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* M (+ (* -1/16 (/ (* (pow c0 5) (pow d 8)) (* (pow D 8) (* (pow M 4) (* (pow h 4) (* (pow w 5) (pow (sqrt -1) 3))))))) (+ (* 1/4 (/ (* (pow c0 3) (pow d 4)) (* (pow D 4) (* (pow M 2) (* (pow h 2) (* (pow w 3) (sqrt -1))))))) (+ (* 1/2 (/ (* c0 (sqrt -1)) w)) (* 1/2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* M (* h (pow w 2))))))))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (* M (+ (sqrt -1) (/ (* c0 (pow d 2)) (* (pow D 2) (* M (* h w))))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (* M (+ (sqrt -1) (+ (* 1/2 (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow M 2) (* (pow h 2) (* (pow w 2) (sqrt -1))))))) (/ (* c0 (pow d 2)) (* (pow D 2) (* M (* h w)))))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (* M (+ (sqrt -1) (+ (* -1/8 (/ (* (pow c0 4) (pow d 8)) (* (pow D 8) (* (pow M 4) (* (pow h 4) (* (pow w 4) (pow (sqrt -1) 3))))))) (+ (* 1/2 (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow M 2) (* (pow h 2) (* (pow w 2) (sqrt -1))))))) (/ (* c0 (pow d 2)) (* (pow D 2) (* M (* h w))))))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (* M (+ (* 1/2 (/ (* c0 (sqrt -1)) w)) (* 1/2 (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (sqrt -1))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))) (* M w)))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (* M (+ (* 1/4 (/ (* c0 (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2) (pow (sqrt -1) 2))))) (* (pow M 2) (* w (sqrt -1))))) (+ (* 1/2 (/ (* c0 (sqrt -1)) w)) (* 1/2 (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (sqrt -1))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))) (* M w))))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (* M (+ (* -1/8 (/ (* c0 (* (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2) (pow (sqrt -1) 2)))))) (* (pow M 3) (* w (pow (sqrt -1) 3))))) (+ (* 1/4 (/ (* c0 (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2) (pow (sqrt -1) 2))))) (* (pow M 2) (* w (sqrt -1))))) (+ (* 1/2 (/ (* c0 (sqrt -1)) w)) (* 1/2 (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (sqrt -1))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))) (* M w)))))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (* M (+ (* c0 (sqrt -1)) (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (sqrt -1))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))) M)))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (* M (+ (* 1/2 (/ (* c0 (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2) (pow (sqrt -1) 2))))) (* (pow M 2) (sqrt -1)))) (+ (* c0 (sqrt -1)) (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (sqrt -1))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))) M))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (* M (+ (* -1/4 (/ (* c0 (* (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2) (pow (sqrt -1) 2)))))) (* (pow M 3) (pow (sqrt -1) 3)))) (+ (* 1/2 (/ (* c0 (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2) (pow (sqrt -1) 2))))) (* (pow M 2) (sqrt -1)))) (+ (* c0 (sqrt -1)) (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (sqrt -1))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))) M)))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (* M (+ (sqrt -1) (+ (* 1/2 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (* M (sqrt -1)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* M (* h w)))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (* M (+ (sqrt -1) (+ (* 1/2 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (* M (sqrt -1)))) (+ (* 1/2 (/ (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2) (pow (sqrt -1) 2)))) (* (pow M 2) (sqrt -1)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* M (* h w))))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (* M (+ (sqrt -1) (+ (* -1/4 (/ (* (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2) (pow (sqrt -1) 2))))) (* (pow M 3) (pow (sqrt -1) 3)))) (+ (* 1/2 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (* M (sqrt -1)))) (+ (* 1/2 (/ (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2) (pow (sqrt -1) 2)))) (* (pow M 2) (sqrt -1)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* M (* h w)))))))))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))) #s(hole binary64 (* M (+ (sqrt -1) (* 1/2 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (* M (sqrt -1))))))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))) #s(hole binary64 (* M (+ (sqrt -1) (+ (* 1/2 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (* M (sqrt -1)))) (* 1/2 (/ (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2) (pow (sqrt -1) 2)))) (* (pow M 2) (sqrt -1)))))))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))) #s(hole binary64 (* M (+ (sqrt -1) (+ (* -1/4 (/ (* (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2) (pow (sqrt -1) 2))))) (* (pow M 3) (pow (sqrt -1) 3)))) (+ (* 1/2 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (* M (sqrt -1)))) (* 1/2 (/ (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2) (pow (sqrt -1) 2)))) (* (pow M 2) (sqrt -1))))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* M (+ (* 1/2 (/ (* c0 (sqrt -1)) w)) (* 1/2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* M (* h (pow w 2))))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* M (+ (* 1/4 (/ (* (pow c0 3) (pow d 4)) (* (pow D 4) (* (pow M 2) (* (pow h 2) (* (pow w 3) (sqrt -1))))))) (+ (* 1/2 (/ (* c0 (sqrt -1)) w)) (* 1/2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* M (* h (pow w 2)))))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* M (+ (* -1/16 (/ (* (pow c0 5) (pow d 8)) (* (pow D 8) (* (pow M 4) (* (pow h 4) (* (pow w 5) (pow (sqrt -1) 3))))))) (+ (* 1/4 (/ (* (pow c0 3) (pow d 4)) (* (pow D 4) (* (pow M 2) (* (pow h 2) (* (pow w 3) (sqrt -1))))))) (+ (* 1/2 (/ (* c0 (sqrt -1)) w)) (* 1/2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* M (* h (pow w 2))))))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (* M (+ (sqrt -1) (/ (* c0 (pow d 2)) (* (pow D 2) (* M (* h w))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (* M (+ (sqrt -1) (+ (* 1/2 (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow M 2) (* (pow h 2) (* (pow w 2) (sqrt -1))))))) (/ (* c0 (pow d 2)) (* (pow D 2) (* M (* h w)))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (* M (+ (sqrt -1) (+ (* -1/8 (/ (* (pow c0 4) (pow d 8)) (* (pow D 8) (* (pow M 4) (* (pow h 4) (* (pow w 4) (pow (sqrt -1) 3))))))) (+ (* 1/2 (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow M 2) (* (pow h 2) (* (pow w 2) (sqrt -1))))))) (/ (* c0 (pow d 2)) (* (pow D 2) (* M (* h w))))))))))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) #s(hole binary64 (* M (+ (sqrt -1) (* 1/2 (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow M 2) (* (pow h 2) (* (pow w 2) (sqrt -1)))))))))))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) #s(hole binary64 (* M (+ (sqrt -1) (+ (* -1/8 (/ (* (pow c0 4) (pow d 8)) (* (pow D 8) (* (pow M 4) (* (pow h 4) (* (pow w 4) (pow (sqrt -1) 3))))))) (* 1/2 (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow M 2) (* (pow h 2) (* (pow w 2) (sqrt -1))))))))))))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) #s(hole binary64 (* M (+ (sqrt -1) (+ (* -1/8 (/ (* (pow c0 4) (pow d 8)) (* (pow D 8) (* (pow M 4) (* (pow h 4) (* (pow w 4) (pow (sqrt -1) 3))))))) (+ (* 1/16 (/ (* (pow c0 6) (pow d 12)) (* (pow D 12) (* (pow M 6) (* (pow h 6) (* (pow w 6) (pow (sqrt -1) 5))))))) (* 1/2 (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow M 2) (* (pow h 2) (* (pow w 2) (sqrt -1)))))))))))))
#s(approx (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)) #s(hole binary64 (* (pow M 2) (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow M 2) (* (pow h 2) (pow w 2))))) 1))))
#s(approx (/ (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (* w w)) #s(hole binary64 (* (pow M 2) (+ (* -1/4 (/ (* (pow D 2) h) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* (pow M 2) (* h (pow w 2)))))))))
#s(approx (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) #s(hole binary64 (* (pow M 2) (+ (* -1/4 (/ (* (pow D 2) (* h (pow w 2))) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* (pow M 2) h)))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* -1/2 (/ (* M (* c0 (sqrt -1))) w))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* -1 (* M (+ (* -1/2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* M (* h (pow w 2)))))) (* 1/2 (/ (* c0 (sqrt -1)) w)))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* -1 (* M (+ (* -1 (/ (+ (* -1/4 (/ (* (pow c0 3) (pow d 4)) (* (pow D 4) (* M (* (pow h 2) (* (pow w 3) (sqrt -1))))))) (* 1/2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h (pow w 2)))))) M)) (* 1/2 (/ (* c0 (sqrt -1)) w)))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* -1 (* M (+ (* -1 (/ (+ (* -1 (/ (+ (* -1/16 (/ (* (pow c0 5) (pow d 8)) (* (pow D 8) (* (pow M 2) (* (pow h 4) (* (pow w 5) (pow (sqrt -1) 3))))))) (* 1/4 (/ (* (pow c0 3) (pow d 4)) (* (pow D 4) (* (pow h 2) (* (pow w 3) (sqrt -1))))))) M)) (* 1/2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h (pow w 2)))))) M)) (* 1/2 (/ (* c0 (sqrt -1)) w)))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (* -1 (* M (sqrt -1)))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (* -1 (* M (+ (sqrt -1) (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* M (* h w))))))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (* -1 (* M (+ (sqrt -1) (* -1 (/ (+ (* -1/2 (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* M (* (pow h 2) (* (pow w 2) (sqrt -1))))))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) M)))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (* -1 (* M (+ (sqrt -1) (* -1 (/ (+ (* -1 (/ (+ (* -1/8 (/ (* (pow c0 4) (pow d 8)) (* (pow D 8) (* (pow M 2) (* (pow h 4) (* (pow w 4) (pow (sqrt -1) 3))))))) (* 1/2 (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow h 2) (* (pow w 2) (sqrt -1))))))) M)) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) M)))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (* -1/2 (/ (* M (* c0 (sqrt -1))) w))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (* -1 (* M (+ (* -1/2 (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (sqrt -1))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))) (* M w))) (* 1/2 (/ (* c0 (sqrt -1)) w)))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (* -1 (* M (+ (* -1 (/ (+ (* -1/4 (/ (* c0 (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2) (pow (sqrt -1) 2))))) (* M (* w (sqrt -1))))) (* 1/2 (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (sqrt -1))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))) w))) M)) (* 1/2 (/ (* c0 (sqrt -1)) w)))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (* -1 (* M (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/8 (/ (* c0 (* (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2) (pow (sqrt -1) 2)))))) (* M (* w (pow (sqrt -1) 3))))) (* 1/4 (/ (* c0 (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2) (pow (sqrt -1) 2))))) (* w (sqrt -1))))) M)) (* 1/2 (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (sqrt -1))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))) w))) M)) (* 1/2 (/ (* c0 (sqrt -1)) w)))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (* -1 (* M (* c0 (sqrt -1))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (* -1 (* M (+ (* -1 (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (sqrt -1))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))) M)) (* c0 (sqrt -1)))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (* -1 (* M (+ (* -1 (/ (+ (* -1/2 (/ (* c0 (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2) (pow (sqrt -1) 2))))) (* M (sqrt -1)))) (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (sqrt -1))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))))) M)) (* c0 (sqrt -1)))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (* -1 (* M (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/4 (/ (* c0 (* (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2) (pow (sqrt -1) 2)))))) (* M (pow (sqrt -1) 3)))) (* 1/2 (/ (* c0 (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2) (pow (sqrt -1) 2))))) (sqrt -1)))) M)) (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (sqrt -1))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))))) M)) (* c0 (sqrt -1)))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (* -1 (* M (sqrt -1)))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (* -1 (* M (+ (sqrt -1) (* -1 (/ (+ (* 1/2 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (sqrt -1))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) M)))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (* -1 (* M (+ (sqrt -1) (* -1 (/ (+ (* -1/2 (/ (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2) (pow (sqrt -1) 2)))) (* M (sqrt -1)))) (+ (* 1/2 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (sqrt -1))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))) M)))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (* -1 (* M (+ (sqrt -1) (* -1 (/ (+ (* -1 (/ (+ (* 1/4 (/ (* (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2) (pow (sqrt -1) 2))))) (* M (pow (sqrt -1) 3)))) (* 1/2 (/ (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2) (pow (sqrt -1) 2)))) (sqrt -1)))) M)) (+ (* 1/2 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (sqrt -1))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))) M)))))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))) #s(hole binary64 (* -1 (* M (sqrt -1)))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))) #s(hole binary64 (* -1 (* M (+ (sqrt -1) (* -1/2 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (* M (sqrt -1)))))))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))) #s(hole binary64 (* -1 (* M (+ (sqrt -1) (* -1 (/ (+ (* -1/2 (/ (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2) (pow (sqrt -1) 2)))) (* M (sqrt -1)))) (* 1/2 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (sqrt -1)))) M)))))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))) #s(hole binary64 (* -1 (* M (+ (sqrt -1) (* -1 (/ (+ (* -1 (/ (+ (* 1/4 (/ (* (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2) (pow (sqrt -1) 2))))) (* M (pow (sqrt -1) 3)))) (* 1/2 (/ (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2) (pow (sqrt -1) 2)))) (sqrt -1)))) M)) (* 1/2 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (sqrt -1)))) M)))))))
#s(approx (* (/ c0 (* 2 w)) (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* -1/2 (/ (* M (* c0 (sqrt -1))) w))))
#s(approx (* (/ c0 (* 2 w)) (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* -1 (* M (+ (* -1/2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* M (* h (pow w 2)))))) (* 1/2 (/ (* c0 (sqrt -1)) w)))))))
#s(approx (* (/ c0 (* 2 w)) (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* -1 (* M (+ (* -1 (/ (+ (* -1/4 (/ (* (pow c0 3) (pow d 4)) (* (pow D 4) (* M (* (pow h 2) (* (pow w 3) (sqrt -1))))))) (* 1/2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h (pow w 2)))))) M)) (* 1/2 (/ (* c0 (sqrt -1)) w)))))))
#s(approx (* (/ c0 (* 2 w)) (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* -1 (* M (+ (* -1 (/ (+ (* -1 (/ (+ (* -1/16 (/ (* (pow c0 5) (pow d 8)) (* (pow D 8) (* (pow M 2) (* (pow h 4) (* (pow w 5) (pow (sqrt -1) 3))))))) (* 1/4 (/ (* (pow c0 3) (pow d 4)) (* (pow D 4) (* (pow h 2) (* (pow w 3) (sqrt -1))))))) M)) (* 1/2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h (pow w 2)))))) M)) (* 1/2 (/ (* c0 (sqrt -1)) w)))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (* -1 (* M (sqrt -1)))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (* -1 (* M (+ (sqrt -1) (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* M (* h w))))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (* -1 (* M (+ (sqrt -1) (* -1 (/ (+ (* -1/2 (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* M (* (pow h 2) (* (pow w 2) (sqrt -1))))))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) M)))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (* -1 (* M (+ (sqrt -1) (* -1 (/ (+ (* -1 (/ (+ (* -1/8 (/ (* (pow c0 4) (pow d 8)) (* (pow D 8) (* (pow M 2) (* (pow h 4) (* (pow w 4) (pow (sqrt -1) 3))))))) (* 1/2 (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow h 2) (* (pow w 2) (sqrt -1))))))) M)) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) M)))))))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) #s(hole binary64 (* -1 (* M (sqrt -1)))))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) #s(hole binary64 (* -1 (* M (+ (sqrt -1) (* 1/2 (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow M 2) (* (pow h 2) (* (pow w 2) (sqrt -1))))))))))))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) #s(hole binary64 (* -1 (* M (+ (sqrt -1) (+ (* -1/8 (/ (* (pow c0 4) (pow d 8)) (* (pow D 8) (* (pow M 4) (* (pow h 4) (* (pow w 4) (pow (sqrt -1) 3))))))) (* 1/2 (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow M 2) (* (pow h 2) (* (pow w 2) (sqrt -1)))))))))))))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) #s(hole binary64 (* -1 (* M (+ (sqrt -1) (+ (* -1/8 (/ (* (pow c0 4) (pow d 8)) (* (pow D 8) (* (pow M 4) (* (pow h 4) (* (pow w 4) (pow (sqrt -1) 3))))))) (+ (* 1/16 (/ (* (pow c0 6) (pow d 12)) (* (pow D 12) (* (pow M 6) (* (pow h 6) (* (pow w 6) (pow (sqrt -1) 5))))))) (* 1/2 (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow M 2) (* (pow h 2) (* (pow w 2) (sqrt -1))))))))))))))

Calls

18 calls:

Time	Variable		Point	Expression
43.0ms	w	@	-inf	((* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (/ c0 (* 2 w)) c0 (* 2 w) 2 w (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (* (* (/ c0 (* h w)) (/ (* d d) (* D D))) 2) (* (/ c0 (* h w)) (/ (* d d) (* D D))) (/ c0 (* h w)) (* h w) h (/ (* d d) (* D D)) d D (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (* (sqrt -1) M) (sqrt -1) -1 M (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))) (* w 2) (* (/ c0 (* 2 w)) (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)) (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (/ (* c0 (* d d)) (* (* w h) (* D D))) (* c0 (* d d)) (* d d) (* (* w h) (* D D)) (* w h) (* D D) (* M M) (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (/ (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (* w w)) (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (/ (* c0 c0) (* D D)) (/ (* d d) h) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4) (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) (* (pow (* D M) 2) (* (* w w) h)) (pow (* D M) 2) (* D M) (* (* w w) h) (* w w) -1/4)
31.0ms	D	@	0	((* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (/ c0 (* 2 w)) c0 (* 2 w) 2 w (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (* (* (/ c0 (* h w)) (/ (* d d) (* D D))) 2) (* (/ c0 (* h w)) (/ (* d d) (* D D))) (/ c0 (* h w)) (* h w) h (/ (* d d) (* D D)) d D (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (* (sqrt -1) M) (sqrt -1) -1 M (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))) (* w 2) (* (/ c0 (* 2 w)) (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)) (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (/ (* c0 (* d d)) (* (* w h) (* D D))) (* c0 (* d d)) (* d d) (* (* w h) (* D D)) (* w h) (* D D) (* M M) (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (/ (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (* w w)) (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (/ (* c0 c0) (* D D)) (/ (* d d) h) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4) (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) (* (pow (* D M) 2) (* (* w w) h)) (pow (* D M) 2) (* D M) (* (* w w) h) (* w w) -1/4)
19.0ms	M	@	inf	((* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (/ c0 (* 2 w)) c0 (* 2 w) 2 w (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (* (* (/ c0 (* h w)) (/ (* d d) (* D D))) 2) (* (/ c0 (* h w)) (/ (* d d) (* D D))) (/ c0 (* h w)) (* h w) h (/ (* d d) (* D D)) d D (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (* (sqrt -1) M) (sqrt -1) -1 M (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))) (* w 2) (* (/ c0 (* 2 w)) (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)) (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (/ (* c0 (* d d)) (* (* w h) (* D D))) (* c0 (* d d)) (* d d) (* (* w h) (* D D)) (* w h) (* D D) (* M M) (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (/ (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (* w w)) (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (/ (* c0 c0) (* D D)) (/ (* d d) h) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4) (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) (* (pow (* D M) 2) (* (* w w) h)) (pow (* D M) 2) (* D M) (* (* w w) h) (* w w) -1/4)
16.0ms	d	@	0	((* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (/ c0 (* 2 w)) c0 (* 2 w) 2 w (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (* (* (/ c0 (* h w)) (/ (* d d) (* D D))) 2) (* (/ c0 (* h w)) (/ (* d d) (* D D))) (/ c0 (* h w)) (* h w) h (/ (* d d) (* D D)) d D (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (* (sqrt -1) M) (sqrt -1) -1 M (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))) (* w 2) (* (/ c0 (* 2 w)) (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)) (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (/ (* c0 (* d d)) (* (* w h) (* D D))) (* c0 (* d d)) (* d d) (* (* w h) (* D D)) (* w h) (* D D) (* M M) (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (/ (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (* w w)) (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (/ (* c0 c0) (* D D)) (/ (* d d) h) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4) (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) (* (pow (* D M) 2) (* (* w w) h)) (pow (* D M) 2) (* D M) (* (* w w) h) (* w w) -1/4)
15.0ms	h	@	inf	((* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (/ c0 (* 2 w)) c0 (* 2 w) 2 w (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (* (* (/ c0 (* h w)) (/ (* d d) (* D D))) 2) (* (/ c0 (* h w)) (/ (* d d) (* D D))) (/ c0 (* h w)) (* h w) h (/ (* d d) (* D D)) d D (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (* (sqrt -1) M) (sqrt -1) -1 M (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))) (* w 2) (* (/ c0 (* 2 w)) (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)) (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (/ (* c0 (* d d)) (* (* w h) (* D D))) (* c0 (* d d)) (* d d) (* (* w h) (* D D)) (* w h) (* D D) (* M M) (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (/ (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (* w w)) (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (/ (* c0 c0) (* D D)) (/ (* d d) h) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4) (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) (* (pow (* D M) 2) (* (* w w) h)) (pow (* D M) 2) (* D M) (* (* w w) h) (* w w) -1/4)

rewrite323.0ms (2%)

Memory

-16.9MiB live, 506.5MiB allocated; 72ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	2732	57116
0	2809	51592
0	8755	51318

Stop Event

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

Counts

545 → 613

Calls

Call 1

Inputs
(.f64 (/.f64 c0 (.f64 #s(literal 2 binary64) w)) #s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (.f64 (.f64 (/.f64 c0 (*.f64 h w)) (ratio-of-squares.f64 d D)) #s(literal 2 binary64))))
(/.f64 c0 (*.f64 #s(literal 2 binary64) w))
c0
(*.f64 #s(literal 2 binary64) w)
#s(literal 2 binary64)
w
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (.f64 (.f64 (/.f64 c0 (*.f64 h w)) (ratio-of-squares.f64 d D)) #s(literal 2 binary64)))
(.f64 (.f64 (/.f64 c0 (*.f64 h w)) (ratio-of-squares.f64 d D)) #s(literal 2 binary64))
(.f64 (/.f64 c0 (.f64 h w)) (ratio-of-squares.f64 d D))
(/.f64 c0 (*.f64 h w))
(*.f64 h w)
h
(ratio-of-squares.f64 d D)
d
D
(.f64 (/.f64 c0 (.f64 #s(literal 2 binary64) w)) #s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (*.f64 (sqrt.f64 #s(literal -1 binary64)) M)))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (*.f64 (sqrt.f64 #s(literal -1 binary64)) M))
(*.f64 (sqrt.f64 #s(literal -1 binary64)) M)
(sqrt.f64 #s(literal -1 binary64))
#s(literal -1 binary64)
M
(/.f64 (.f64 c0 (+.f64 (.f64 (/.f64 c0 (.f64 h w)) (ratio-of-squares.f64 d D)) (sqrt-product.f64 (.f64 (/.f64 c0 (.f64 h w)) (ratio-of-squares.f64 d D)) M))) (.f64 w #s(literal 2 binary64)))
(.f64 c0 (+.f64 (.f64 (/.f64 c0 (.f64 h w)) (ratio-of-squares.f64 d D)) (sqrt-product.f64 (.f64 (/.f64 c0 (*.f64 h w)) (ratio-of-squares.f64 d D)) M)))
(+.f64 (.f64 (/.f64 c0 (.f64 h w)) (ratio-of-squares.f64 d D)) (sqrt-product.f64 (.f64 (/.f64 c0 (.f64 h w)) (ratio-of-squares.f64 d D)) M))
(sqrt-product.f64 (.f64 (/.f64 c0 (.f64 h w)) (ratio-of-squares.f64 d D)) M)
(*.f64 w #s(literal 2 binary64))
(.f64 (/.f64 c0 (.f64 #s(literal 2 binary64) w)) (+.f64 (.f64 (/.f64 c0 (.f64 h w)) (ratio-of-squares.f64 d D)) (sqrt.f64 (-.f64 (.f64 (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 w h) (.f64 D D))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 w h) (.f64 D D)))) (.f64 M M)))))
(+.f64 (.f64 (/.f64 c0 (.f64 h w)) (ratio-of-squares.f64 d D)) (sqrt.f64 (-.f64 (.f64 (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 w h) (.f64 D D))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 w h) (.f64 D D)))) (.f64 M M))))
(sqrt.f64 (-.f64 (.f64 (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 w h) (.f64 D D))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 w h) (.f64 D D)))) (.f64 M M)))
(-.f64 (.f64 (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 w h) (.f64 D D))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 w h) (.f64 D D)))) (.f64 M M))
(.f64 (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 w h) (.f64 D D))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 w h) (*.f64 D D))))
(/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 w h) (*.f64 D D)))
(.f64 c0 (.f64 d d))
(*.f64 d d)
(.f64 (.f64 w h) (*.f64 D D))
(*.f64 w h)
(*.f64 D D)
(*.f64 M M)
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (/.f64 (+.f64 (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) h)) (.f64 (/.f64 (.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) (.f64 (.f64 w w) h)) (.f64 d d)) #s(literal -1/4 binary64))) (*.f64 w w)))
(/.f64 (+.f64 (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) h)) (.f64 (/.f64 (.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) (.f64 (.f64 w w) h)) (.f64 d d)) #s(literal -1/4 binary64))) (*.f64 w w))
(+.f64 (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) h)) (.f64 (/.f64 (.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) (.f64 (.f64 w w) h)) (.f64 d d)) #s(literal -1/4 binary64)))
(.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) h))
(ratio-of-squares.f64 c0 D)
(/.f64 (*.f64 d d) h)
(.f64 (/.f64 (.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) (.f64 (.f64 w w) h)) (.f64 d d)) #s(literal -1/4 binary64))
(/.f64 (.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) (.f64 (.f64 w w) h)) (*.f64 d d))
(.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) (.f64 (.f64 w w) h))
(pow.f64 (*.f64 D M) #s(literal 2 binary64))
(*.f64 D M)
(.f64 (.f64 w w) h)
(*.f64 w w)
#s(literal -1/4 binary64)
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* 1/2 (/ (* M (* c0 (sqrt -1))) w))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* c0 (+ (* 1/2 (/ (* M (sqrt -1)) w)) (* 1/2 (/ (* c0 (pow d 2)) (* (pow D 2) (* h (pow w 2)))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* c0 (+ (* 1/2 (/ (* M (sqrt -1)) w)) (* c0 (+ (* 1/4 (/ (* c0 (pow d 4)) (* (pow D 4) (* M (* (pow h 2) (* (pow w 3) (sqrt -1))))))) (* 1/2 (/ (pow d 2) (* (pow D 2) (* h (pow w 2)))))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* c0 (+ (* 1/2 (/ (* M (sqrt -1)) w)) (* c0 (+ (* 1/2 (/ (pow d 2) (* (pow D 2) (* h (pow w 2))))) (* c0 (+ (* -1/16 (/ (* (pow c0 2) (pow d 8)) (* (pow D 8) (* (pow M 3) (* (pow h 4) (* (pow w 5) (pow (sqrt -1) 3))))))) (* 1/4 (/ (pow d 4) (* (pow D 4) (* M (* (pow h 2) (* (pow w 3) (sqrt -1)))))))))))))))
#s(approx (/ c0 (* 2 w)) #s(hole binary64 (* 1/2 (/ c0 w))))
#s(approx c0 #s(hole binary64 c0))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (* M (sqrt -1))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (+ (* M (sqrt -1)) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (+ (* M (sqrt -1)) (* c0 (+ (* 1/2 (/ (* c0 (pow d 4)) (* (pow D 4) (* M (* (pow h 2) (* (pow w 2) (sqrt -1))))))) (/ (pow d 2) (* (pow D 2) (* h w))))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (+ (* M (sqrt -1)) (* c0 (+ (* c0 (+ (* -1/8 (/ (* (pow c0 2) (pow d 8)) (* (pow D 8) (* (pow M 3) (* (pow h 4) (* (pow w 4) (pow (sqrt -1) 3))))))) (* 1/2 (/ (pow d 4) (* (pow D 4) (* M (* (pow h 2) (* (pow w 2) (sqrt -1))))))))) (/ (pow d 2) (* (pow D 2) (* h w))))))))
#s(approx (* (* (/ c0 (* h w)) (/ (* d d) (* D D))) 2) #s(hole binary64 (* 2 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))))
#s(approx (* (/ c0 (* h w)) (/ (* d d) (* D D))) #s(hole binary64 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))))
#s(approx (/ c0 (* h w)) #s(hole binary64 (/ c0 (* h w))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (* 1/2 (/ (* M (* c0 (sqrt -1))) w))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (* c0 (+ (* 1/2 (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (* M (* w (sqrt -1))))) (/ (pow d 2) (* (pow D 2) (* h (pow w 2))))))) (* 1/2 (/ (* M (sqrt -1)) w))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (* c0 (+ (* 1/2 (/ (* M (sqrt -1)) w)) (* c0 (+ (* 1/4 (/ (* c0 (- (/ (pow d 4) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* M (* w (sqrt -1))))) (* 1/2 (+ (* 1/2 (/ (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (* M (* w (sqrt -1))))) (/ (pow d 2) (* (pow D 2) (* h (pow w 2))))))))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (* c0 (+ (* 1/2 (/ (* M (sqrt -1)) w)) (* c0 (+ (* 1/2 (+ (* 1/2 (/ (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (* M (* w (sqrt -1))))) (/ (pow d 2) (* (pow D 2) (* h (pow w 2)))))) (* c0 (+ (* -1/8 (/ (* c0 (* (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (- (/ (pow d 4) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2) (* (pow M 2) (pow (sqrt -1) 2))))))) (* (pow M 3) (* w (pow (sqrt -1) 3))))) (* 1/4 (/ (- (/ (pow d 4) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2) (* (pow M 2) (pow (sqrt -1) 2))))) (* M (* w (sqrt -1)))))))))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (* M (* c0 (sqrt -1)))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (* c0 (+ (* M (sqrt -1)) (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (* M (sqrt -1)))) (/ (pow d 2) (* (pow D 2) (* h w)))))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (* c0 (+ (* M (sqrt -1)) (* c0 (+ (* 1/2 (/ (* c0 (- (/ (pow d 4) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* M (sqrt -1)))) (+ (* 1/2 (/ (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (* M (sqrt -1)))) (/ (pow d 2) (* (pow D 2) (* h w))))))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (* c0 (+ (* M (sqrt -1)) (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (* M (sqrt -1)))) (+ (* c0 (+ (* -1/4 (/ (* c0 (* (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (- (/ (pow d 4) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2) (* (pow M 2) (pow (sqrt -1) 2))))))) (* (pow M 3) (pow (sqrt -1) 3)))) (* 1/2 (/ (- (/ (pow d 4) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2) (* (pow M 2) (pow (sqrt -1) 2))))) (* M (sqrt -1)))))) (/ (pow d 2) (* (pow D 2) (* h w))))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (* M (sqrt -1))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (+ (* M (sqrt -1)) (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (* M (sqrt -1)))) (/ (pow d 2) (* (pow D 2) (* h w))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (+ (* M (sqrt -1)) (* c0 (+ (* 1/2 (/ (* c0 (- (/ (pow d 4) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* M (sqrt -1)))) (+ (* 1/2 (/ (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (* M (sqrt -1)))) (/ (pow d 2) (* (pow D 2) (* h w)))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (+ (* M (sqrt -1)) (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (* M (sqrt -1)))) (+ (* c0 (+ (* -1/4 (/ (* c0 (* (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (- (/ (pow d 4) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2) (* (pow M 2) (pow (sqrt -1) 2))))))) (* (pow M 3) (pow (sqrt -1) 3)))) (* 1/2 (/ (- (/ (pow d 4) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2) (* (pow M 2) (pow (sqrt -1) 2))))) (* M (sqrt -1)))))) (/ (pow d 2) (* (pow D 2) (* h w)))))))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))) #s(hole binary64 (* M (sqrt -1))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))) #s(hole binary64 (+ (* 1/2 (/ (* c0 (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w))))) (* M (sqrt -1)))) (* M (sqrt -1)))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))) #s(hole binary64 (+ (* M (sqrt -1)) (* c0 (+ (* 1/2 (/ (* c0 (- (/ (pow d 4) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* M (sqrt -1)))) (* 1/2 (/ (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (* M (sqrt -1)))))))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))) #s(hole binary64 (+ (* M (sqrt -1)) (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (* M (sqrt -1)))) (* c0 (+ (* -1/4 (/ (* c0 (* (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (- (/ (pow d 4) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2) (* (pow M 2) (pow (sqrt -1) 2))))))) (* (pow M 3) (pow (sqrt -1) 3)))) (* 1/2 (/ (- (/ (pow d 4) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2) (* (pow M 2) (pow (sqrt -1) 2))))) (* M (sqrt -1)))))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* 1/2 (/ (* M (* c0 (sqrt -1))) w))))
#s(approx (* (/ c0 (* 2 w)) (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* c0 (+ (* 1/2 (/ (* M (sqrt -1)) w)) (* 1/2 (/ (* c0 (pow d 2)) (* (pow D 2) (* h (pow w 2)))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* c0 (+ (* 1/2 (/ (* M (sqrt -1)) w)) (* c0 (+ (* 1/4 (/ (* c0 (pow d 4)) (* (pow D 4) (* M (* (pow h 2) (* (pow w 3) (sqrt -1))))))) (* 1/2 (/ (pow d 2) (* (pow D 2) (* h (pow w 2)))))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* c0 (+ (* 1/2 (/ (* M (sqrt -1)) w)) (* c0 (+ (* 1/2 (/ (pow d 2) (* (pow D 2) (* h (pow w 2))))) (* c0 (+ (* -1/16 (/ (* (pow c0 2) (pow d 8)) (* (pow D 8) (* (pow M 3) (* (pow h 4) (* (pow w 5) (pow (sqrt -1) 3))))))) (* 1/4 (/ (pow d 4) (* (pow D 4) (* M (* (pow h 2) (* (pow w 3) (sqrt -1)))))))))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (* M (sqrt -1))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (+ (* M (sqrt -1)) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (+ (* M (sqrt -1)) (* c0 (+ (* 1/2 (/ (* c0 (pow d 4)) (* (pow D 4) (* M (* (pow h 2) (* (pow w 2) (sqrt -1))))))) (/ (pow d 2) (* (pow D 2) (* h w))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (+ (* M (sqrt -1)) (* c0 (+ (* c0 (+ (* -1/8 (/ (* (pow c0 2) (pow d 8)) (* (pow D 8) (* (pow M 3) (* (pow h 4) (* (pow w 4) (pow (sqrt -1) 3))))))) (* 1/2 (/ (pow d 4) (* (pow D 4) (* M (* (pow h 2) (* (pow w 2) (sqrt -1))))))))) (/ (pow d 2) (* (pow D 2) (* h w))))))))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) #s(hole binary64 (* M (sqrt -1))))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) #s(hole binary64 (+ (* 1/2 (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* M (* (pow h 2) (* (pow w 2) (sqrt -1))))))) (* M (sqrt -1)))))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) #s(hole binary64 (+ (* M (sqrt -1)) (* (pow c0 2) (+ (* -1/8 (/ (* (pow c0 2) (pow d 8)) (* (pow D 8) (* (pow M 3) (* (pow h 4) (* (pow w 4) (pow (sqrt -1) 3))))))) (* 1/2 (/ (pow d 4) (* (pow D 4) (* M (* (pow h 2) (* (pow w 2) (sqrt -1))))))))))))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) #s(hole binary64 (+ (* M (sqrt -1)) (* (pow c0 2) (+ (* 1/2 (/ (pow d 4) (* (pow D 4) (* M (* (pow h 2) (* (pow w 2) (sqrt -1))))))) (* (pow c0 2) (+ (* -1/8 (/ (pow d 8) (* (pow D 8) (* (pow M 3) (* (pow h 4) (* (pow w 4) (pow (sqrt -1) 3))))))) (* 1/16 (/ (* (pow c0 2) (pow d 12)) (* (pow D 12) (* (pow M 5) (* (pow h 6) (* (pow w 6) (pow (sqrt -1) 5))))))))))))))
#s(approx (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)) #s(hole binary64 (* -1 (pow M 2))))
#s(approx (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)) #s(hole binary64 (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow h 2) (pow w 2)))) (pow M 2))))
#s(approx (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) #s(hole binary64 (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow h 2) (pow w 2))))))
#s(approx (/ (* c0 (* d d)) (* (* w h) (* D D))) #s(hole binary64 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))))
#s(approx (* c0 (* d d)) #s(hole binary64 (* c0 (pow d 2))))
#s(approx (/ (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (* w w)) #s(hole binary64 (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))))
#s(approx (/ (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (* w w)) #s(hole binary64 (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h (pow w 2)))))))
#s(approx (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) #s(hole binary64 (* -1/4 (/ (* (pow D 2) (* (pow M 2) (* h (pow w 2)))) (pow d 2)))))
#s(approx (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) #s(hole binary64 (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (* h (pow w 2)))) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) h)))))
#s(approx (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) #s(hole binary64 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) h))))
#s(approx (/ (* c0 c0) (* D D)) #s(hole binary64 (/ (pow c0 2) (pow D 2))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h (pow w 2))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* (pow c0 2) (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow c0 2) (pow d 2)))) (/ (pow d 2) (* (pow D 2) (* h (pow w 2))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* (pow c0 2) (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow c0 2) (pow d 2)))) (+ (* -1/16 (/ (* (pow D 6) (* (pow M 4) (* (pow h 3) (pow w 2)))) (* (pow c0 4) (pow d 6)))) (/ (pow d 2) (* (pow D 2) (* h (pow w 2)))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* (pow c0 2) (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow c0 2) (pow d 2)))) (+ (* -1/16 (/ (* (pow D 6) (* (pow M 4) (* (pow h 3) (pow w 2)))) (* (pow c0 4) (pow d 6)))) (+ (* -1/32 (/ (* (pow D 10) (* (pow M 6) (* (pow h 5) (pow w 4)))) (* (pow c0 6) (pow d 10)))) (/ (pow d 2) (* (pow D 2) (* h (pow w 2))))))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (* 2 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (* c0 (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h w))) (* (pow c0 2) (pow d 2)))) (* 2 (/ (pow d 2) (* (pow D 2) (* h w))))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (* c0 (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h w))) (* (pow c0 2) (pow d 2)))) (+ (* -1/8 (/ (* (pow D 6) (* (pow M 4) (* (pow h 3) (pow w 3)))) (* (pow c0 4) (pow d 6)))) (* 2 (/ (pow d 2) (* (pow D 2) (* h w)))))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (* c0 (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h w))) (* (pow c0 2) (pow d 2)))) (+ (* -1/8 (/ (* (pow D 6) (* (pow M 4) (* (pow h 3) (pow w 3)))) (* (pow c0 4) (pow d 6)))) (+ (* -1/16 (/ (* (pow D 10) (* (pow M 6) (* (pow h 5) (pow w 5)))) (* (pow c0 6) (pow d 10)))) (* 2 (/ (pow d 2) (* (pow D 2) (* h w))))))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h (pow w 2))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (* (pow c0 2) (+ (* 1/4 (/ (* (pow D 2) (* h (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))))) (* c0 (pow d 2)))) (/ (pow d 2) (* (pow D 2) (* h (pow w 2))))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (* (pow c0 2) (+ (* 1/4 (/ (* (pow D 2) (* h (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))))) (* c0 (pow d 2)))) (+ (* 1/4 (/ (* (pow D 2) (* h (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (pow d 4)))))) (* (pow c0 2) (pow d 2)))) (/ (pow d 2) (* (pow D 2) (* h (pow w 2)))))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (* (pow c0 2) (+ (* -1/8 (/ (* (pow D 6) (* (pow h 3) (* (pow w 2) (* (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (pow d 4)))))))) (* (pow c0 3) (pow d 6)))) (+ (* 1/4 (/ (* (pow D 2) (* h (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))))) (* c0 (pow d 2)))) (+ (* 1/4 (/ (* (pow D 2) (* h (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (pow d 4)))))) (* (pow c0 2) (pow d 2)))) (/ (pow d 2) (* (pow D 2) (* h (pow w 2))))))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (* 2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h w))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (* (pow c0 2) (+ (* 1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w))))))) (* c0 (pow d 2)))) (* 2 (/ (pow d 2) (* (pow D 2) (* h w))))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (* (pow c0 2) (+ (* 1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w))))))) (* c0 (pow d 2)))) (+ (* 1/2 (/ (* (pow D 2) (* h (* w (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (pow d 4))))))) (* (pow c0 2) (pow d 2)))) (* 2 (/ (pow d 2) (* (pow D 2) (* h w)))))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (* (pow c0 2) (+ (* -1/4 (/ (* (pow D 6) (* (pow h 3) (* (pow w 3) (* (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (pow d 4)))))))) (* (pow c0 3) (pow d 6)))) (+ (* 1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w))))))) (* c0 (pow d 2)))) (+ (* 1/2 (/ (* (pow D 2) (* h (* w (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (pow d 4))))))) (* (pow c0 2) (pow d 2)))) (* 2 (/ (pow d 2) (* (pow D 2) (* h w))))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (* 2 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (* c0 (+ (* 1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w))))))) (* c0 (pow d 2)))) (* 2 (/ (pow d 2) (* (pow D 2) (* h w))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (* c0 (+ (* 1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w))))))) (* c0 (pow d 2)))) (+ (* 1/2 (/ (* (pow D 2) (* h (* w (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (pow d 4))))))) (* (pow c0 2) (pow d 2)))) (* 2 (/ (pow d 2) (* (pow D 2) (* h w)))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (* c0 (+ (* -1/4 (/ (* (pow D 6) (* (pow h 3) (* (pow w 3) (* (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (pow d 4)))))))) (* (pow c0 3) (pow d 6)))) (+ (* 1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w))))))) (* c0 (pow d 2)))) (+ (* 1/2 (/ (* (pow D 2) (* h (* w (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (pow d 4))))))) (* (pow c0 2) (pow d 2)))) (* 2 (/ (pow d 2) (* (pow D 2) (* h w))))))))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))) #s(hole binary64 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))) #s(hole binary64 (* c0 (+ (* 1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w))))))) (* c0 (pow d 2)))) (/ (pow d 2) (* (pow D 2) (* h w)))))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))) #s(hole binary64 (* c0 (+ (* 1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w))))))) (* c0 (pow d 2)))) (+ (* 1/2 (/ (* (pow D 2) (* h (* w (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (pow d 4))))))) (* (pow c0 2) (pow d 2)))) (/ (pow d 2) (* (pow D 2) (* h w))))))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))) #s(hole binary64 (* c0 (+ (* -1/4 (/ (* (pow D 6) (* (pow h 3) (* (pow w 3) (* (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (pow d 4)))))))) (* (pow c0 3) (pow d 6)))) (+ (* 1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w))))))) (* c0 (pow d 2)))) (+ (* 1/2 (/ (* (pow D 2) (* h (* w (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (pow d 4))))))) (* (pow c0 2) (pow d 2)))) (/ (pow d 2) (* (pow D 2) (* h w)))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h (pow w 2))))))
#s(approx (* (/ c0 (* 2 w)) (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* (pow c0 2) (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow c0 2) (pow d 2)))) (/ (pow d 2) (* (pow D 2) (* h (pow w 2))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* (pow c0 2) (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow c0 2) (pow d 2)))) (+ (* -1/16 (/ (* (pow D 6) (* (pow M 4) (* (pow h 3) (pow w 2)))) (* (pow c0 4) (pow d 6)))) (/ (pow d 2) (* (pow D 2) (* h (pow w 2)))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* (pow c0 2) (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow c0 2) (pow d 2)))) (+ (* -1/16 (/ (* (pow D 6) (* (pow M 4) (* (pow h 3) (pow w 2)))) (* (pow c0 4) (pow d 6)))) (+ (* -1/32 (/ (* (pow D 10) (* (pow M 6) (* (pow h 5) (pow w 4)))) (* (pow c0 6) (pow d 10)))) (/ (pow d 2) (* (pow D 2) (* h (pow w 2))))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (* 2 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (* c0 (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h w))) (* (pow c0 2) (pow d 2)))) (* 2 (/ (pow d 2) (* (pow D 2) (* h w))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (* c0 (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h w))) (* (pow c0 2) (pow d 2)))) (+ (* -1/8 (/ (* (pow D 6) (* (pow M 4) (* (pow h 3) (pow w 3)))) (* (pow c0 4) (pow d 6)))) (* 2 (/ (pow d 2) (* (pow D 2) (* h w)))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (* c0 (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h w))) (* (pow c0 2) (pow d 2)))) (+ (* -1/8 (/ (* (pow D 6) (* (pow M 4) (* (pow h 3) (pow w 3)))) (* (pow c0 4) (pow d 6)))) (+ (* -1/16 (/ (* (pow D 10) (* (pow M 6) (* (pow h 5) (pow w 5)))) (* (pow c0 6) (pow d 10)))) (* 2 (/ (pow d 2) (* (pow D 2) (* h w))))))))))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) #s(hole binary64 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) #s(hole binary64 (* c0 (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h w))) (* (pow c0 2) (pow d 2)))) (/ (pow d 2) (* (pow D 2) (* h w)))))))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) #s(hole binary64 (* c0 (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h w))) (* (pow c0 2) (pow d 2)))) (+ (* -1/8 (/ (* (pow D 6) (* (pow M 4) (* (pow h 3) (pow w 3)))) (* (pow c0 4) (pow d 6)))) (/ (pow d 2) (* (pow D 2) (* h w))))))))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) #s(hole binary64 (* c0 (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h w))) (* (pow c0 2) (pow d 2)))) (+ (* -1/8 (/ (* (pow D 6) (* (pow M 4) (* (pow h 3) (pow w 3)))) (* (pow c0 4) (pow d 6)))) (+ (* -1/16 (/ (* (pow D 10) (* (pow M 6) (* (pow h 5) (pow w 5)))) (* (pow c0 6) (pow d 10)))) (/ (pow d 2) (* (pow D 2) (* h w)))))))))
#s(approx (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)) #s(hole binary64 (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow h 2) (pow w 2))))))
#s(approx (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)) #s(hole binary64 (* (pow c0 2) (+ (* -1 (/ (pow M 2) (pow c0 2))) (/ (pow d 4) (* (pow D 4) (* (pow h 2) (pow w 2))))))))
#s(approx (/ (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (* w w)) #s(hole binary64 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h (pow w 2))))))
#s(approx (/ (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (* w w)) #s(hole binary64 (* (pow c0 2) (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow c0 2) (pow d 2)))) (/ (pow d 2) (* (pow D 2) (* h (pow w 2))))))))
#s(approx (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) #s(hole binary64 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) h))))
#s(approx (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) #s(hole binary64 (* (pow c0 2) (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (* h (pow w 2)))) (* (pow c0 2) (pow d 2)))) (/ (pow d 2) (* (pow D 2) h))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* -1/2 (/ (* (pow c0 2) (+ (* -1 (/ (pow d 2) (* (pow D 2) (* h w)))) (/ (pow d 2) (* (pow D 2) (* h w))))) w))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* (pow c0 2) (+ (* -1/2 (/ (+ (* -1 (/ (pow d 2) (* (pow D 2) (* h w)))) (/ (pow d 2) (* (pow D 2) (* h w)))) w)) (* 1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow c0 2) (pow d 2))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* (pow c0 2) (+ (* -1/2 (/ (+ (* -1 (/ (pow d 2) (* (pow D 2) (* h w)))) (/ (pow d 2) (* (pow D 2) (* h w)))) w)) (+ (* 1/16 (/ (* (pow D 6) (* (pow M 4) (* (pow h 3) (pow w 2)))) (* (pow c0 4) (pow d 6)))) (* 1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow c0 2) (pow d 2)))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* (pow c0 2) (+ (* -1/2 (/ (+ (* -1 (/ (pow d 2) (* (pow D 2) (* h w)))) (/ (pow d 2) (* (pow D 2) (* h w)))) w)) (+ (* 1/32 (/ (* (pow D 10) (* (pow M 6) (* (pow h 5) (pow w 4)))) (* (pow c0 6) (pow d 10)))) (+ (* 1/16 (/ (* (pow D 6) (* (pow M 4) (* (pow h 3) (pow w 2)))) (* (pow c0 4) (pow d 6)))) (* 1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow c0 2) (pow d 2))))))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (* -1 (* c0 (+ (* -1 (/ (pow d 2) (* (pow D 2) (* h w)))) (/ (pow d 2) (* (pow D 2) (* h w))))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (* -1 (* c0 (+ (* -1 (/ (pow d 2) (* (pow D 2) (* h w)))) (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h w))) (* (pow c0 2) (pow d 2)))) (/ (pow d 2) (* (pow D 2) (* h w)))))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (* -1 (* c0 (+ (* -1 (/ (pow d 2) (* (pow D 2) (* h w)))) (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h w))) (* (pow c0 2) (pow d 2)))) (+ (* -1/8 (/ (* (pow D 6) (* (pow M 4) (* (pow h 3) (pow w 3)))) (* (pow c0 4) (pow d 6)))) (/ (pow d 2) (* (pow D 2) (* h w))))))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (* -1 (* c0 (+ (* -1 (/ (pow d 2) (* (pow D 2) (* h w)))) (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h w))) (* (pow c0 2) (pow d 2)))) (+ (* -1/8 (/ (* (pow D 6) (* (pow M 4) (* (pow h 3) (pow w 3)))) (* (pow c0 4) (pow d 6)))) (+ (* -1/16 (/ (* (pow D 10) (* (pow M 6) (* (pow h 5) (pow w 5)))) (* (pow c0 6) (pow d 10)))) (/ (pow d 2) (* (pow D 2) (* h w)))))))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (* -1/2 (/ (* (pow c0 2) (+ (* -1 (/ (pow d 2) (* (pow D 2) (* h w)))) (/ (pow d 2) (* (pow D 2) (* h w))))) w))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (* (pow c0 2) (+ (* -1/2 (/ (+ (* -1 (/ (pow d 2) (* (pow D 2) (* h w)))) (/ (pow d 2) (* (pow D 2) (* h w)))) w)) (* 1/4 (/ (* (pow D 2) (* h (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))))) (* c0 (pow d 2))))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (* (pow c0 2) (+ (* -1 (/ (+ (* -1/4 (/ (* (pow D 2) (* h (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))))) (pow d 2))) (* 1/4 (/ (* (pow D 2) (* h (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (pow d 4)))))) (* c0 (pow d 2))))) c0)) (* -1/2 (/ (+ (* -1 (/ (pow d 2) (* (pow D 2) (* h w)))) (/ (pow d 2) (* (pow D 2) (* h w)))) w))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (* (pow c0 2) (+ (* -1 (/ (+ (* -1 (/ (+ (* -1/4 (/ (* (pow D 2) (* h (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (pow d 4)))))) (pow d 2))) (* -1/8 (/ (* (pow D 6) (* (pow h 3) (* (pow w 2) (* (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (pow d 4)))))))) (* c0 (pow d 6))))) c0)) (* -1/4 (/ (* (pow D 2) (* h (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))))) (pow d 2)))) c0)) (* -1/2 (/ (+ (* -1 (/ (pow d 2) (* (pow D 2) (* h w)))) (/ (pow d 2) (* (pow D 2) (* h w)))) w))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (* -1 (* (pow c0 2) (+ (* -1 (/ (pow d 2) (* (pow D 2) (* h w)))) (/ (pow d 2) (* (pow D 2) (* h w))))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (* (pow c0 2) (+ (* -1 (+ (* -1 (/ (pow d 2) (* (pow D 2) (* h w)))) (/ (pow d 2) (* (pow D 2) (* h w))))) (* 1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w))))))) (* c0 (pow d 2))))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (* (pow c0 2) (+ (* -1 (+ (* -1 (/ (pow d 2) (* (pow D 2) (* h w)))) (/ (pow d 2) (* (pow D 2) (* h w))))) (* -1 (/ (+ (* -1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w))))))) (pow d 2))) (* 1/2 (/ (* (pow D 2) (* h (* w (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (pow d 4))))))) (* c0 (pow d 2))))) c0))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (* (pow c0 2) (+ (* -1 (+ (* -1 (/ (pow d 2) (* (pow D 2) (* h w)))) (/ (pow d 2) (* (pow D 2) (* h w))))) (* -1 (/ (+ (* -1 (/ (+ (* -1/2 (/ (* (pow D 2) (* h (* w (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (pow d 4))))))) (pow d 2))) (* -1/4 (/ (* (pow D 6) (* (pow h 3) (* (pow w 3) (* (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (pow d 4)))))))) (* c0 (pow d 6))))) c0)) (* -1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w))))))) (pow d 2)))) c0))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (* -1 (* c0 (+ (* -1 (/ (pow d 2) (* (pow D 2) (* h w)))) (/ (pow d 2) (* (pow D 2) (* h w))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (* -1 (* c0 (+ (* -1 (/ (pow d 2) (* (pow D 2) (* h w)))) (+ (* -1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w))))))) (* c0 (pow d 2)))) (/ (pow d 2) (* (pow D 2) (* h w)))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (* -1 (* c0 (+ (* -1 (/ (+ (* -1/2 (/ (* (pow D 2) (* h (* w (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (pow d 4))))))) (* c0 (pow d 2)))) (* 1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w))))))) (pow d 2)))) c0)) (+ (* -1 (/ (pow d 2) (* (pow D 2) (* h w)))) (/ (pow d 2) (* (pow D 2) (* h w)))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (* -1 (* c0 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/4 (/ (* (pow D 6) (* (pow h 3) (* (pow w 3) (* (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (pow d 4)))))))) (* c0 (pow d 6)))) (* 1/2 (/ (* (pow D 2) (* h (* w (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (pow d 4))))))) (pow d 2)))) c0)) (* 1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w))))))) (pow d 2)))) c0)) (+ (* -1 (/ (pow d 2) (* (pow D 2) (* h w)))) (/ (pow d 2) (* (pow D 2) (* h w)))))))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))) #s(hole binary64 (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))) #s(hole binary64 (* -1 (* c0 (+ (* -1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w))))))) (* c0 (pow d 2)))) (/ (pow d 2) (* (pow D 2) (* h w))))))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))) #s(hole binary64 (* -1 (* c0 (+ (* -1 (/ (+ (* -1/2 (/ (* (pow D 2) (* h (* w (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (pow d 4))))))) (* c0 (pow d 2)))) (* 1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w))))))) (pow d 2)))) c0)) (/ (pow d 2) (* (pow D 2) (* h w))))))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))) #s(hole binary64 (* -1 (* c0 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/4 (/ (* (pow D 6) (* (pow h 3) (* (pow w 3) (* (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (pow d 4)))))))) (* c0 (pow d 6)))) (* 1/2 (/ (* (pow D 2) (* h (* w (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (pow d 4))))))) (pow d 2)))) c0)) (* 1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w))))))) (pow d 2)))) c0)) (/ (pow d 2) (* (pow D 2) (* h w))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* -1/2 (/ (* (pow c0 2) (+ (* -1 (/ (pow d 2) (* (pow D 2) (* h w)))) (/ (pow d 2) (* (pow D 2) (* h w))))) w))))
#s(approx (* (/ c0 (* 2 w)) (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* (pow c0 2) (+ (* -1/2 (/ (+ (* -1 (/ (pow d 2) (* (pow D 2) (* h w)))) (/ (pow d 2) (* (pow D 2) (* h w)))) w)) (* 1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow c0 2) (pow d 2))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* (pow c0 2) (+ (* -1/2 (/ (+ (* -1 (/ (pow d 2) (* (pow D 2) (* h w)))) (/ (pow d 2) (* (pow D 2) (* h w)))) w)) (+ (* 1/16 (/ (* (pow D 6) (* (pow M 4) (* (pow h 3) (pow w 2)))) (* (pow c0 4) (pow d 6)))) (* 1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow c0 2) (pow d 2)))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* (pow c0 2) (+ (* -1/2 (/ (+ (* -1 (/ (pow d 2) (* (pow D 2) (* h w)))) (/ (pow d 2) (* (pow D 2) (* h w)))) w)) (+ (* 1/32 (/ (* (pow D 10) (* (pow M 6) (* (pow h 5) (pow w 4)))) (* (pow c0 6) (pow d 10)))) (+ (* 1/16 (/ (* (pow D 6) (* (pow M 4) (* (pow h 3) (pow w 2)))) (* (pow c0 4) (pow d 6)))) (* 1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow c0 2) (pow d 2))))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (* -1 (* c0 (+ (* -1 (/ (pow d 2) (* (pow D 2) (* h w)))) (/ (pow d 2) (* (pow D 2) (* h w))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (* -1 (* c0 (+ (* -1 (/ (pow d 2) (* (pow D 2) (* h w)))) (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h w))) (* (pow c0 2) (pow d 2)))) (/ (pow d 2) (* (pow D 2) (* h w)))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (* -1 (* c0 (+ (* -1 (/ (pow d 2) (* (pow D 2) (* h w)))) (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h w))) (* (pow c0 2) (pow d 2)))) (+ (* -1/8 (/ (* (pow D 6) (* (pow M 4) (* (pow h 3) (pow w 3)))) (* (pow c0 4) (pow d 6)))) (/ (pow d 2) (* (pow D 2) (* h w))))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (* -1 (* c0 (+ (* -1 (/ (pow d 2) (* (pow D 2) (* h w)))) (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h w))) (* (pow c0 2) (pow d 2)))) (+ (* -1/8 (/ (* (pow D 6) (* (pow M 4) (* (pow h 3) (pow w 3)))) (* (pow c0 4) (pow d 6)))) (+ (* -1/16 (/ (* (pow D 10) (* (pow M 6) (* (pow h 5) (pow w 5)))) (* (pow c0 6) (pow d 10)))) (/ (pow d 2) (* (pow D 2) (* h w)))))))))))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) #s(hole binary64 (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) #s(hole binary64 (* -1 (* c0 (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h w))) (* (pow c0 2) (pow d 2)))) (/ (pow d 2) (* (pow D 2) (* h w))))))))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) #s(hole binary64 (* -1 (* c0 (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h w))) (* (pow c0 2) (pow d 2)))) (+ (* -1/8 (/ (* (pow D 6) (* (pow M 4) (* (pow h 3) (pow w 3)))) (* (pow c0 4) (pow d 6)))) (/ (pow d 2) (* (pow D 2) (* h w)))))))))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) #s(hole binary64 (* -1 (* c0 (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h w))) (* (pow c0 2) (pow d 2)))) (+ (* -1/8 (/ (* (pow D 6) (* (pow M 4) (* (pow h 3) (pow w 3)))) (* (pow c0 4) (pow d 6)))) (+ (* -1/16 (/ (* (pow D 10) (* (pow M 6) (* (pow h 5) (pow w 5)))) (* (pow c0 6) (pow d 10)))) (/ (pow d 2) (* (pow D 2) (* h w))))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (/ (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (* h (pow w 2)))) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) h))) (pow w 2))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (/ (+ (* (pow w 2) (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2))) (* -1/16 (/ (* (pow D 6) (* (pow M 4) (* (pow h 3) (pow w 2)))) (* (pow c0 2) (pow d 6)))))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) h))) (pow w 2))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (/ (+ (* (pow w 2) (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2))) (* (pow w 2) (+ (* -1/16 (/ (* (pow D 6) (* (pow M 4) (pow h 3))) (* (pow c0 2) (pow d 6)))) (* -1/32 (/ (* (pow D 10) (* (pow M 6) (* (pow h 5) (pow w 2)))) (* (pow c0 4) (pow d 10)))))))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) h))) (pow w 2))))
#s(approx (* 2 w) #s(hole binary64 (* 2 w)))
#s(approx w #s(hole binary64 w))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (/ (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h (pow w 2)))) (* c0 (pow d 2)))) (* 2 (/ (* c0 (pow d 2)) (* (pow D 2) h)))) w)))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (/ (+ (* 2 (/ (* c0 (pow d 2)) (* (pow D 2) h))) (* (pow w 2) (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) h)) (* c0 (pow d 2)))) (* -1/8 (/ (* (pow D 6) (* (pow M 4) (* (pow h 3) (pow w 2)))) (* (pow c0 3) (pow d 6))))))) w)))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (/ (+ (* 2 (/ (* c0 (pow d 2)) (* (pow D 2) h))) (* (pow w 2) (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) h)) (* c0 (pow d 2)))) (* (pow w 2) (+ (* -1/8 (/ (* (pow D 6) (* (pow M 4) (pow h 3))) (* (pow c0 3) (pow d 6)))) (* -1/16 (/ (* (pow D 10) (* (pow M 6) (* (pow h 5) (pow w 2)))) (* (pow c0 5) (pow d 10))))))))) w)))
#s(approx (* h w) #s(hole binary64 (* h w)))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (/ (+ (* 1/4 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h)))))) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) h))) (pow w 2))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (/ (+ (* w (+ (* 1/4 (/ (* (pow D 2) (* h (* w (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2))) (* (pow c0 2) (pow d 4)))))))) (pow d 2))) (* 1/4 (/ (* (pow D 2) (* h (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))))) (pow d 2))))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) h))) (pow w 2))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (/ (+ (* w (+ (* 1/4 (/ (* (pow D 2) (* h (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))))) (pow d 2))) (* w (+ (* -1/8 (/ (* (pow D 6) (* (pow h 3) (* w (* (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2))) (* (pow c0 2) (pow d 4))))))))) (* (pow c0 2) (pow d 6)))) (* 1/4 (/ (* (pow D 2) (* h (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2))) (* (pow c0 2) (pow d 4))))))) (pow d 2))))))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) h))) (pow w 2))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (/ (+ (* 1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h)))))) (pow d 2))) (* 2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) h)))) w)))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (/ (+ (* 2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) h))) (* w (+ (* 1/2 (/ (* (pow D 2) (* h (* w (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2))) (* (pow c0 2) (pow d 4)))))))) (pow d 2))) (* 1/2 (/ (* (pow D 2) (* h (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))))) (pow d 2)))))) w)))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (/ (+ (* 2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) h))) (* w (+ (* 1/2 (/ (* (pow D 2) (* h (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))))) (pow d 2))) (* w (+ (* -1/4 (/ (* (pow D 6) (* (pow h 3) (* w (* (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2))) (* (pow c0 2) (pow d 4))))))))) (* (pow c0 2) (pow d 6)))) (* 1/2 (/ (* (pow D 2) (* h (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2))) (* (pow c0 2) (pow d 4))))))) (pow d 2)))))))) w)))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (/ (+ (* 1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h)))))) (* c0 (pow d 2)))) (* 2 (/ (* c0 (pow d 2)) (* (pow D 2) h)))) w)))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (/ (+ (* 2 (/ (* c0 (pow d 2)) (* (pow D 2) h))) (* w (+ (* 1/2 (/ (* (pow D 2) (* h (* w (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2))) (* (pow c0 2) (pow d 4)))))))) (* c0 (pow d 2)))) (* 1/2 (/ (* (pow D 2) (* h (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))))) (* c0 (pow d 2))))))) w)))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (/ (+ (* 2 (/ (* c0 (pow d 2)) (* (pow D 2) h))) (* w (+ (* 1/2 (/ (* (pow D 2) (* h (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))))) (* c0 (pow d 2)))) (* w (+ (* -1/4 (/ (* (pow D 6) (* (pow h 3) (* w (* (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2))) (* (pow c0 2) (pow d 4))))))))) (* (pow c0 3) (pow d 6)))) (* 1/2 (/ (* (pow D 2) (* h (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2))) (* (pow c0 2) (pow d 4))))))) (* c0 (pow d 2))))))))) w)))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))) #s(hole binary64 (/ (+ (* 1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h)))))) (* c0 (pow d 2)))) (/ (* c0 (pow d 2)) (* (pow D 2) h))) w)))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))) #s(hole binary64 (/ (+ (* w (+ (* 1/2 (/ (* (pow D 2) (* h (* w (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2))) (* (pow c0 2) (pow d 4)))))))) (* c0 (pow d 2)))) (* 1/2 (/ (* (pow D 2) (* h (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))))) (* c0 (pow d 2)))))) (/ (* c0 (pow d 2)) (* (pow D 2) h))) w)))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))) #s(hole binary64 (/ (+ (* w (+ (* 1/2 (/ (* (pow D 2) (* h (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))))) (* c0 (pow d 2)))) (* w (+ (* -1/4 (/ (* (pow D 6) (* (pow h 3) (* w (* (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2))) (* (pow c0 2) (pow d 4))))))))) (* (pow c0 3) (pow d 6)))) (* 1/2 (/ (* (pow D 2) (* h (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2))) (* (pow c0 2) (pow d 4))))))) (* c0 (pow d 2)))))))) (/ (* c0 (pow d 2)) (* (pow D 2) h))) w)))
#s(approx (* w 2) #s(hole binary64 (* 2 w)))
#s(approx (* (/ c0 (* 2 w)) (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (/ (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (* h (pow w 2)))) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) h))) (pow w 2))))
#s(approx (* (/ c0 (* 2 w)) (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (/ (+ (* (pow w 2) (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2))) (* -1/16 (/ (* (pow D 6) (* (pow M 4) (* (pow h 3) (pow w 2)))) (* (pow c0 2) (pow d 6)))))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) h))) (pow w 2))))
#s(approx (* (/ c0 (* 2 w)) (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (/ (+ (* (pow w 2) (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2))) (* (pow w 2) (+ (* -1/16 (/ (* (pow D 6) (* (pow M 4) (pow h 3))) (* (pow c0 2) (pow d 6)))) (* -1/32 (/ (* (pow D 10) (* (pow M 6) (* (pow h 5) (pow w 2)))) (* (pow c0 4) (pow d 10)))))))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) h))) (pow w 2))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (/ (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h (pow w 2)))) (* c0 (pow d 2)))) (* 2 (/ (* c0 (pow d 2)) (* (pow D 2) h)))) w)))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (/ (+ (* 2 (/ (* c0 (pow d 2)) (* (pow D 2) h))) (* (pow w 2) (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) h)) (* c0 (pow d 2)))) (* -1/8 (/ (* (pow D 6) (* (pow M 4) (* (pow h 3) (pow w 2)))) (* (pow c0 3) (pow d 6))))))) w)))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (/ (+ (* 2 (/ (* c0 (pow d 2)) (* (pow D 2) h))) (* (pow w 2) (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) h)) (* c0 (pow d 2)))) (* (pow w 2) (+ (* -1/8 (/ (* (pow D 6) (* (pow M 4) (pow h 3))) (* (pow c0 3) (pow d 6)))) (* -1/16 (/ (* (pow D 10) (* (pow M 6) (* (pow h 5) (pow w 2)))) (* (pow c0 5) (pow d 10))))))))) w)))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) #s(hole binary64 (/ (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h (pow w 2)))) (* c0 (pow d 2)))) (/ (* c0 (pow d 2)) (* (pow D 2) h))) w)))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) #s(hole binary64 (/ (+ (* (pow w 2) (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) h)) (* c0 (pow d 2)))) (* -1/8 (/ (* (pow D 6) (* (pow M 4) (* (pow h 3) (pow w 2)))) (* (pow c0 3) (pow d 6)))))) (/ (* c0 (pow d 2)) (* (pow D 2) h))) w)))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) #s(hole binary64 (/ (+ (* (pow w 2) (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) h)) (* c0 (pow d 2)))) (* (pow w 2) (+ (* -1/8 (/ (* (pow D 6) (* (pow M 4) (pow h 3))) (* (pow c0 3) (pow d 6)))) (* -1/16 (/ (* (pow D 10) (* (pow M 6) (* (pow h 5) (pow w 2)))) (* (pow c0 5) (pow d 10)))))))) (/ (* c0 (pow d 2)) (* (pow D 2) h))) w)))
#s(approx (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)) #s(hole binary64 (/ (+ (* -1 (* (pow M 2) (pow w 2))) (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow h 2)))) (pow w 2))))
#s(approx (* (* w h) (* D D)) #s(hole binary64 (* (pow D 2) (* h w))))
#s(approx (* w h) #s(hole binary64 (* h w)))
#s(approx (/ (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (* w w)) #s(hole binary64 (/ (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (* h (pow w 2)))) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) h))) (pow w 2))))
#s(approx (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4) #s(hole binary64 (* -1/4 (/ (* (pow D 2) (* (pow M 2) (* h (pow w 2)))) (pow d 2)))))
#s(approx (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) #s(hole binary64 (/ (* (pow D 2) (* (pow M 2) (* h (pow w 2)))) (pow d 2))))
#s(approx (* (pow (* D M) 2) (* (* w w) h)) #s(hole binary64 (* (pow D 2) (* (pow M 2) (* h (pow w 2))))))
#s(approx (* (* w w) h) #s(hole binary64 (* h (pow w 2))))
#s(approx (* w w) #s(hole binary64 (pow w 2)))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (/ (+ (* 1/2 (* M (* c0 (sqrt -1)))) (* 1/2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h w))))) w)))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (/ (+ (* 1/4 (/ (* (pow c0 3) (pow d 4)) (* (pow D 4) (* M (* (pow h 2) (* (pow w 2) (sqrt -1))))))) (+ (* 1/2 (* M (* c0 (sqrt -1)))) (* 1/2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h w)))))) w)))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (/ (+ (* -1/16 (/ (* (pow c0 5) (pow d 8)) (* (pow D 8) (* (pow M 3) (* (pow h 4) (* (pow w 4) (pow (sqrt -1) 3))))))) (+ (* 1/4 (/ (* (pow c0 3) (pow d 4)) (* (pow D 4) (* M (* (pow h 2) (* (pow w 2) (sqrt -1))))))) (+ (* 1/2 (* M (* c0 (sqrt -1)))) (* 1/2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h w))))))) w)))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (+ (* 1/2 (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* M (* (pow h 2) (* (pow w 2) (sqrt -1))))))) (+ (* M (sqrt -1)) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (+ (* -1/8 (/ (* (pow c0 4) (pow d 8)) (* (pow D 8) (* (pow M 3) (* (pow h 4) (* (pow w 4) (pow (sqrt -1) 3))))))) (+ (* 1/2 (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* M (* (pow h 2) (* (pow w 2) (sqrt -1))))))) (+ (* M (sqrt -1)) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (/ (+ (* 1/2 (* M (* c0 (sqrt -1)))) (* 1/2 (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (* M (sqrt -1)))) (/ (* c0 (pow d 2)) (* (pow D 2) h)))) w))) w)))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (/ (+ (* 1/4 (/ (* c0 (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow h 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* M (* (pow w 2) (sqrt -1))))) (+ (* 1/2 (* M (* c0 (sqrt -1)))) (* 1/2 (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (* M (sqrt -1)))) (/ (* c0 (pow d 2)) (* (pow D 2) h)))) w)))) w)))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (/ (+ (* -1/8 (/ (* c0 (* (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow h 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2) (* (pow M 2) (pow (sqrt -1) 2))))))) (* (pow M 3) (* (pow w 3) (pow (sqrt -1) 3))))) (+ (* 1/4 (/ (* c0 (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow h 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* M (* (pow w 2) (sqrt -1))))) (+ (* 1/2 (* M (* c0 (sqrt -1)))) (* 1/2 (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (* M (sqrt -1)))) (/ (* c0 (pow d 2)) (* (pow D 2) h)))) w))))) w)))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (+ (* M (* c0 (sqrt -1))) (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (* M (sqrt -1)))) (/ (* c0 (pow d 2)) (* (pow D 2) h)))) w))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (+ (* 1/2 (/ (* c0 (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow h 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* M (* (pow w 2) (sqrt -1))))) (+ (* M (* c0 (sqrt -1))) (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (* M (sqrt -1)))) (/ (* c0 (pow d 2)) (* (pow D 2) h)))) w)))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (+ (* -1/4 (/ (* c0 (* (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow h 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2) (* (pow M 2) (pow (sqrt -1) 2))))))) (* (pow M 3) (* (pow w 3) (pow (sqrt -1) 3))))) (+ (* 1/2 (/ (* c0 (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow h 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* M (* (pow w 2) (sqrt -1))))) (+ (* M (* c0 (sqrt -1))) (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (* M (sqrt -1)))) (/ (* c0 (pow d 2)) (* (pow D 2) h)))) w))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (* M (* w (sqrt -1))))) (+ (* M (sqrt -1)) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (* M (* w (sqrt -1))))) (+ (* 1/2 (/ (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow h 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2) (* (pow M 2) (pow (sqrt -1) 2))))) (* M (* (pow w 2) (sqrt -1))))) (+ (* M (sqrt -1)) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (+ (* -1/4 (/ (* (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow h 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* (pow M 3) (* (pow w 3) (pow (sqrt -1) 3))))) (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (* M (* w (sqrt -1))))) (+ (* 1/2 (/ (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow h 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2) (* (pow M 2) (pow (sqrt -1) 2))))) (* M (* (pow w 2) (sqrt -1))))) (+ (* M (sqrt -1)) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))))))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))) #s(hole binary64 (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (* M (* w (sqrt -1))))) (* M (sqrt -1)))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))) #s(hole binary64 (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (* M (* w (sqrt -1))))) (+ (* 1/2 (/ (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow h 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2) (* (pow M 2) (pow (sqrt -1) 2))))) (* M (* (pow w 2) (sqrt -1))))) (* M (sqrt -1))))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))) #s(hole binary64 (+ (* -1/4 (/ (* (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow h 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* (pow M 3) (* (pow w 3) (pow (sqrt -1) 3))))) (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (* M (* w (sqrt -1))))) (+ (* 1/2 (/ (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow h 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2) (* (pow M 2) (pow (sqrt -1) 2))))) (* M (* (pow w 2) (sqrt -1))))) (* M (sqrt -1)))))))
#s(approx (* (/ c0 (* 2 w)) (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (/ (+ (* 1/2 (* M (* c0 (sqrt -1)))) (* 1/2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h w))))) w)))
#s(approx (* (/ c0 (* 2 w)) (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (/ (+ (* 1/4 (/ (* (pow c0 3) (pow d 4)) (* (pow D 4) (* M (* (pow h 2) (* (pow w 2) (sqrt -1))))))) (+ (* 1/2 (* M (* c0 (sqrt -1)))) (* 1/2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h w)))))) w)))
#s(approx (* (/ c0 (* 2 w)) (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (/ (+ (* -1/16 (/ (* (pow c0 5) (pow d 8)) (* (pow D 8) (* (pow M 3) (* (pow h 4) (* (pow w 4) (pow (sqrt -1) 3))))))) (+ (* 1/4 (/ (* (pow c0 3) (pow d 4)) (* (pow D 4) (* M (* (pow h 2) (* (pow w 2) (sqrt -1))))))) (+ (* 1/2 (* M (* c0 (sqrt -1)))) (* 1/2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h w))))))) w)))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (+ (* 1/2 (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* M (* (pow h 2) (* (pow w 2) (sqrt -1))))))) (+ (* M (sqrt -1)) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (+ (* -1/8 (/ (* (pow c0 4) (pow d 8)) (* (pow D 8) (* (pow M 3) (* (pow h 4) (* (pow w 4) (pow (sqrt -1) 3))))))) (+ (* 1/2 (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* M (* (pow h 2) (* (pow w 2) (sqrt -1))))))) (+ (* M (sqrt -1)) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))))))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) #s(hole binary64 (+ (* -1/8 (/ (* (pow c0 4) (pow d 8)) (* (pow D 8) (* (pow M 3) (* (pow h 4) (* (pow w 4) (pow (sqrt -1) 3))))))) (+ (* 1/2 (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* M (* (pow h 2) (* (pow w 2) (sqrt -1))))))) (* M (sqrt -1))))))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) #s(hole binary64 (+ (* -1/8 (/ (* (pow c0 4) (pow d 8)) (* (pow D 8) (* (pow M 3) (* (pow h 4) (* (pow w 4) (pow (sqrt -1) 3))))))) (+ (* 1/16 (/ (* (pow c0 6) (pow d 12)) (* (pow D 12) (* (pow M 5) (* (pow h 6) (* (pow w 6) (pow (sqrt -1) 5))))))) (+ (* 1/2 (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* M (* (pow h 2) (* (pow w 2) (sqrt -1))))))) (* M (sqrt -1)))))))
#s(approx (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) #s(hole binary64 (* (pow w 2) (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h (pow w 2))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* -1 (/ (+ (* -1/2 (* M (* c0 (sqrt -1)))) (* -1/2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h w))))) w))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (+ (* 1/4 (/ (* (pow c0 3) (pow d 4)) (* (pow D 4) (* M (* (pow h 2) (* w (sqrt -1))))))) (* 1/2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) h)))) w)) (* -1/2 (* M (* c0 (sqrt -1))))) w))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (+ (* -1 (/ (+ (* -1/4 (/ (* (pow c0 3) (pow d 4)) (* (pow D 4) (* M (* (pow h 2) (sqrt -1)))))) (* 1/16 (/ (* (pow c0 5) (pow d 8)) (* (pow D 8) (* (pow M 3) (* (pow h 4) (* (pow w 2) (pow (sqrt -1) 3)))))))) w)) (* 1/2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) h)))) w)) (* -1/2 (* M (* c0 (sqrt -1))))) w))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) h))) (* -1/2 (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* M (* (pow h 2) (* w (sqrt -1)))))))) w)) (* M (sqrt -1)))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) h))) (* -1 (/ (+ (* -1/8 (/ (* (pow c0 4) (pow d 8)) (* (pow D 8) (* (pow M 3) (* (pow h 4) (* (pow w 2) (pow (sqrt -1) 3))))))) (* 1/2 (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* M (* (pow h 2) (sqrt -1))))))) w))) w)) (* M (sqrt -1)))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (* -1 (/ (+ (* -1/2 (* M (* c0 (sqrt -1)))) (* 1/2 (/ (* c0 (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) h))) (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (* M (sqrt -1)))))) w))) w))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (+ (* -1/2 (* c0 (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) h))) (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (* M (sqrt -1))))))) (* 1/4 (/ (* c0 (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow h 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* M (* w (sqrt -1)))))) w)) (* -1/2 (* M (* c0 (sqrt -1))))) w))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (+ (* -1 (/ (+ (* -1/4 (/ (* c0 (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow h 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* M (sqrt -1)))) (* -1/8 (/ (* c0 (* (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow h 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2) (* (pow M 2) (pow (sqrt -1) 2))))))) (* (pow M 3) (* w (pow (sqrt -1) 3)))))) w)) (* -1/2 (* c0 (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) h))) (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (* M (sqrt -1)))))))) w)) (* -1/2 (* M (* c0 (sqrt -1))))) w))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (+ (* -1 (/ (* c0 (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) h))) (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (* M (sqrt -1)))))) w)) (* M (* c0 (sqrt -1))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/2 (/ (* c0 (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow h 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* M (* w (sqrt -1))))) (* c0 (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) h))) (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (* M (sqrt -1))))))) w)) (* M (* c0 (sqrt -1))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/4 (/ (* c0 (* (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow h 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2) (* (pow M 2) (pow (sqrt -1) 2))))))) (* (pow M 3) (* w (pow (sqrt -1) 3))))) (* 1/2 (/ (* c0 (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow h 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* M (sqrt -1))))) w)) (* c0 (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) h))) (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (* M (sqrt -1))))))) w)) (* M (* c0 (sqrt -1))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) h))) (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (* M (sqrt -1))))) w)) (* M (sqrt -1)))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) h))) (+ (* -1/2 (/ (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow h 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2) (* (pow M 2) (pow (sqrt -1) 2))))) (* M (* w (sqrt -1))))) (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (* M (sqrt -1)))))) w)) (* M (sqrt -1)))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) h))) (+ (* -1 (/ (+ (* 1/4 (/ (* (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow h 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* (pow M 3) (* w (pow (sqrt -1) 3))))) (* 1/2 (/ (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow h 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2) (* (pow M 2) (pow (sqrt -1) 2))))) (* M (sqrt -1))))) w)) (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (* M (sqrt -1)))))) w)) (* M (sqrt -1)))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))) #s(hole binary64 (+ (* -1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (* M (* w (sqrt -1))))) (* M (sqrt -1)))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/2 (/ (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow h 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2) (* (pow M 2) (pow (sqrt -1) 2))))) (* M (* w (sqrt -1))))) (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (* M (sqrt -1))))) w)) (* M (sqrt -1)))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))) #s(hole binary64 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/4 (/ (* (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow h 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* (pow M 3) (* w (pow (sqrt -1) 3))))) (* 1/2 (/ (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow h 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2) (* (pow M 2) (pow (sqrt -1) 2))))) (* M (sqrt -1))))) w)) (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (* M (sqrt -1))))) w)) (* M (sqrt -1)))))
#s(approx (* (/ c0 (* 2 w)) (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* -1 (/ (+ (* -1/2 (* M (* c0 (sqrt -1)))) (* -1/2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h w))))) w))))
#s(approx (* (/ c0 (* 2 w)) (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (+ (* 1/4 (/ (* (pow c0 3) (pow d 4)) (* (pow D 4) (* M (* (pow h 2) (* w (sqrt -1))))))) (* 1/2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) h)))) w)) (* -1/2 (* M (* c0 (sqrt -1))))) w))))
#s(approx (* (/ c0 (* 2 w)) (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (+ (* -1 (/ (+ (* -1/4 (/ (* (pow c0 3) (pow d 4)) (* (pow D 4) (* M (* (pow h 2) (sqrt -1)))))) (* 1/16 (/ (* (pow c0 5) (pow d 8)) (* (pow D 8) (* (pow M 3) (* (pow h 4) (* (pow w 2) (pow (sqrt -1) 3)))))))) w)) (* 1/2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) h)))) w)) (* -1/2 (* M (* c0 (sqrt -1))))) w))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) h))) (* -1/2 (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* M (* (pow h 2) (* w (sqrt -1)))))))) w)) (* M (sqrt -1)))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) h))) (* -1 (/ (+ (* -1/8 (/ (* (pow c0 4) (pow d 8)) (* (pow D 8) (* (pow M 3) (* (pow h 4) (* (pow w 2) (pow (sqrt -1) 3))))))) (* 1/2 (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* M (* (pow h 2) (sqrt -1))))))) w))) w)) (* M (sqrt -1)))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (/ (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (pow h 2))) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (pow w 2)))) h)))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (/ (+ (* (pow h 2) (+ (* -1/4 (/ (* (pow D 2) (pow M 2)) (pow d 2))) (* -1/16 (/ (* (pow D 6) (* (pow M 4) (* (pow h 2) (pow w 2)))) (* (pow c0 2) (pow d 6)))))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (pow w 2)))) h)))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (/ (+ (* (pow h 2) (+ (* -1/4 (/ (* (pow D 2) (pow M 2)) (pow d 2))) (* (pow h 2) (+ (* -1/16 (/ (* (pow D 6) (* (pow M 4) (pow w 2))) (* (pow c0 2) (pow d 6)))) (* -1/32 (/ (* (pow D 10) (* (pow M 6) (* (pow h 2) (pow w 4)))) (* (pow c0 4) (pow d 10)))))))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (pow w 2)))) h)))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (/ (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* (pow h 2) w))) (* c0 (pow d 2)))) (* 2 (/ (* c0 (pow d 2)) (* (pow D 2) w)))) h)))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (/ (+ (* 2 (/ (* c0 (pow d 2)) (* (pow D 2) w))) (* (pow h 2) (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) w)) (* c0 (pow d 2)))) (* -1/8 (/ (* (pow D 6) (* (pow M 4) (* (pow h 2) (pow w 3)))) (* (pow c0 3) (pow d 6))))))) h)))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (/ (+ (* 2 (/ (* c0 (pow d 2)) (* (pow D 2) w))) (* (pow h 2) (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) w)) (* c0 (pow d 2)))) (* (pow h 2) (+ (* -1/8 (/ (* (pow D 6) (* (pow M 4) (pow w 3))) (* (pow c0 3) (pow d 6)))) (* -1/16 (/ (* (pow D 10) (* (pow M 6) (* (pow h 2) (pow w 5)))) (* (pow c0 5) (pow d 10))))))))) h)))
#s(approx h #s(hole binary64 h))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (/ (+ (* 1/4 (/ (* (pow D 2) (* h (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))))) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (pow w 2)))) h)))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (/ (+ (* h (+ (* 1/4 (/ (* (pow D 2) (* h (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow w 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2))) (* (pow c0 2) (pow d 4))))))) (pow d 2))) (* 1/4 (/ (* (pow D 2) (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w)))) (pow d 2))))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (pow w 2)))) h)))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (/ (+ (* h (+ (* 1/4 (/ (* (pow D 2) (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w)))) (pow d 2))) (* h (+ (* -1/8 (/ (* (pow D 6) (* h (* (pow w 2) (* (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow w 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2))) (* (pow c0 2) (pow d 4))))))))) (* (pow c0 2) (pow d 6)))) (* 1/4 (/ (* (pow D 2) (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow w 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2))) (* (pow c0 2) (pow d 4)))))) (pow d 2))))))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (pow w 2)))) h)))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (/ (+ (* 1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w)))))) (pow d 2))) (* 2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) w)))) h)))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (/ (+ (* 2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) w))) (* h (+ (* 1/2 (/ (* (pow D 2) (* h (* w (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow w 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2))) (* (pow c0 2) (pow d 4)))))))) (pow d 2))) (* 1/2 (/ (* (pow D 2) (* w (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))))) (pow d 2)))))) h)))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (/ (+ (* 2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) w))) (* h (+ (* 1/2 (/ (* (pow D 2) (* w (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))))) (pow d 2))) (* h (+ (* -1/4 (/ (* (pow D 6) (* h (* (pow w 3) (* (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow w 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2))) (* (pow c0 2) (pow d 4))))))))) (* (pow c0 2) (pow d 6)))) (* 1/2 (/ (* (pow D 2) (* w (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow w 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2))) (* (pow c0 2) (pow d 4))))))) (pow d 2)))))))) h)))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (/ (+ (* 1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w)))))) (* c0 (pow d 2)))) (* 2 (/ (* c0 (pow d 2)) (* (pow D 2) w)))) h)))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (/ (+ (* 2 (/ (* c0 (pow d 2)) (* (pow D 2) w))) (* h (+ (* 1/2 (/ (* (pow D 2) (* h (* w (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow w 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2))) (* (pow c0 2) (pow d 4)))))))) (* c0 (pow d 2)))) (* 1/2 (/ (* (pow D 2) (* w (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))))) (* c0 (pow d 2))))))) h)))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (/ (+ (* 2 (/ (* c0 (pow d 2)) (* (pow D 2) w))) (* h (+ (* 1/2 (/ (* (pow D 2) (* w (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))))) (* c0 (pow d 2)))) (* h (+ (* -1/4 (/ (* (pow D 6) (* h (* (pow w 3) (* (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow w 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2))) (* (pow c0 2) (pow d 4))))))))) (* (pow c0 3) (pow d 6)))) (* 1/2 (/ (* (pow D 2) (* w (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow w 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2))) (* (pow c0 2) (pow d 4))))))) (* c0 (pow d 2))))))))) h)))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))) #s(hole binary64 (/ (+ (* 1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w)))))) (* c0 (pow d 2)))) (/ (* c0 (pow d 2)) (* (pow D 2) w))) h)))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))) #s(hole binary64 (/ (+ (* h (+ (* 1/2 (/ (* (pow D 2) (* h (* w (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow w 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2))) (* (pow c0 2) (pow d 4)))))))) (* c0 (pow d 2)))) (* 1/2 (/ (* (pow D 2) (* w (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))))) (* c0 (pow d 2)))))) (/ (* c0 (pow d 2)) (* (pow D 2) w))) h)))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))) #s(hole binary64 (/ (+ (* h (+ (* 1/2 (/ (* (pow D 2) (* w (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))))) (* c0 (pow d 2)))) (* h (+ (* -1/4 (/ (* (pow D 6) (* h (* (pow w 3) (* (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow w 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2))) (* (pow c0 2) (pow d 4))))))))) (* (pow c0 3) (pow d 6)))) (* 1/2 (/ (* (pow D 2) (* w (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow w 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2))) (* (pow c0 2) (pow d 4))))))) (* c0 (pow d 2)))))))) (/ (* c0 (pow d 2)) (* (pow D 2) w))) h)))
#s(approx (* (/ c0 (* 2 w)) (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (/ (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (pow h 2))) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (pow w 2)))) h)))
#s(approx (* (/ c0 (* 2 w)) (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (/ (+ (* (pow h 2) (+ (* -1/4 (/ (* (pow D 2) (pow M 2)) (pow d 2))) (* -1/16 (/ (* (pow D 6) (* (pow M 4) (* (pow h 2) (pow w 2)))) (* (pow c0 2) (pow d 6)))))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (pow w 2)))) h)))
#s(approx (* (/ c0 (* 2 w)) (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (/ (+ (* (pow h 2) (+ (* -1/4 (/ (* (pow D 2) (pow M 2)) (pow d 2))) (* (pow h 2) (+ (* -1/16 (/ (* (pow D 6) (* (pow M 4) (pow w 2))) (* (pow c0 2) (pow d 6)))) (* -1/32 (/ (* (pow D 10) (* (pow M 6) (* (pow h 2) (pow w 4)))) (* (pow c0 4) (pow d 10)))))))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (pow w 2)))) h)))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (/ (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* (pow h 2) w))) (* c0 (pow d 2)))) (* 2 (/ (* c0 (pow d 2)) (* (pow D 2) w)))) h)))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (/ (+ (* 2 (/ (* c0 (pow d 2)) (* (pow D 2) w))) (* (pow h 2) (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) w)) (* c0 (pow d 2)))) (* -1/8 (/ (* (pow D 6) (* (pow M 4) (* (pow h 2) (pow w 3)))) (* (pow c0 3) (pow d 6))))))) h)))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (/ (+ (* 2 (/ (* c0 (pow d 2)) (* (pow D 2) w))) (* (pow h 2) (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) w)) (* c0 (pow d 2)))) (* (pow h 2) (+ (* -1/8 (/ (* (pow D 6) (* (pow M 4) (pow w 3))) (* (pow c0 3) (pow d 6)))) (* -1/16 (/ (* (pow D 10) (* (pow M 6) (* (pow h 2) (pow w 5)))) (* (pow c0 5) (pow d 10))))))))) h)))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) #s(hole binary64 (/ (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* (pow h 2) w))) (* c0 (pow d 2)))) (/ (* c0 (pow d 2)) (* (pow D 2) w))) h)))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) #s(hole binary64 (/ (+ (* (pow h 2) (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) w)) (* c0 (pow d 2)))) (* -1/8 (/ (* (pow D 6) (* (pow M 4) (* (pow h 2) (pow w 3)))) (* (pow c0 3) (pow d 6)))))) (/ (* c0 (pow d 2)) (* (pow D 2) w))) h)))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) #s(hole binary64 (/ (+ (* (pow h 2) (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) w)) (* c0 (pow d 2)))) (* (pow h 2) (+ (* -1/8 (/ (* (pow D 6) (* (pow M 4) (pow w 3))) (* (pow c0 3) (pow d 6)))) (* -1/16 (/ (* (pow D 10) (* (pow M 6) (* (pow h 2) (pow w 5)))) (* (pow c0 5) (pow d 10)))))))) (/ (* c0 (pow d 2)) (* (pow D 2) w))) h)))
#s(approx (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)) #s(hole binary64 (/ (+ (* -1 (* (pow M 2) (pow h 2))) (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow w 2)))) (pow h 2))))
#s(approx (/ (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (* w w)) #s(hole binary64 (/ (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (pow h 2))) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (pow w 2)))) h)))
#s(approx (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) #s(hole binary64 (/ (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (* (pow h 2) (pow w 2)))) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) (pow D 2))) h)))
#s(approx (/ (* d d) h) #s(hole binary64 (/ (pow d 2) h)))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (+ (* 1/2 (/ (* M (* c0 (sqrt -1))) w)) (* 1/2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h (pow w 2))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (+ (* 1/4 (/ (* (pow c0 3) (pow d 4)) (* (pow D 4) (* M (* (pow h 2) (* (pow w 3) (sqrt -1))))))) (+ (* 1/2 (/ (* M (* c0 (sqrt -1))) w)) (* 1/2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h (pow w 2)))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (+ (* -1/16 (/ (* (pow c0 5) (pow d 8)) (* (pow D 8) (* (pow M 3) (* (pow h 4) (* (pow w 5) (pow (sqrt -1) 3))))))) (+ (* 1/4 (/ (* (pow c0 3) (pow d 4)) (* (pow D 4) (* M (* (pow h 2) (* (pow w 3) (sqrt -1))))))) (+ (* 1/2 (/ (* M (* c0 (sqrt -1))) w)) (* 1/2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h (pow w 2))))))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (+ (* 1/2 (/ (* M (* c0 (sqrt -1))) w)) (* 1/2 (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (* M (sqrt -1)))) (/ (* c0 (pow d 2)) (* (pow D 2) w)))) (* h w))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (+ (* 1/4 (/ (* c0 (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* M (* (pow h 2) (* w (sqrt -1)))))) (+ (* 1/2 (/ (* M (* c0 (sqrt -1))) w)) (* 1/2 (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (* M (sqrt -1)))) (/ (* c0 (pow d 2)) (* (pow D 2) w)))) (* h w)))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (+ (* -1/8 (/ (* c0 (* (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2) (* (pow M 2) (pow (sqrt -1) 2))))))) (* (pow M 3) (* (pow h 3) (* w (pow (sqrt -1) 3)))))) (+ (* 1/4 (/ (* c0 (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* M (* (pow h 2) (* w (sqrt -1)))))) (+ (* 1/2 (/ (* M (* c0 (sqrt -1))) w)) (* 1/2 (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (* M (sqrt -1)))) (/ (* c0 (pow d 2)) (* (pow D 2) w)))) (* h w))))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (+ (* M (* c0 (sqrt -1))) (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (* M (sqrt -1)))) (/ (* c0 (pow d 2)) (* (pow D 2) w)))) h))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (+ (* 1/2 (/ (* c0 (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* M (* (pow h 2) (sqrt -1))))) (+ (* M (* c0 (sqrt -1))) (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (* M (sqrt -1)))) (/ (* c0 (pow d 2)) (* (pow D 2) w)))) h)))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (+ (* -1/4 (/ (* c0 (* (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2) (* (pow M 2) (pow (sqrt -1) 2))))))) (* (pow M 3) (* (pow h 3) (pow (sqrt -1) 3))))) (+ (* 1/2 (/ (* c0 (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* M (* (pow h 2) (sqrt -1))))) (+ (* M (* c0 (sqrt -1))) (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (* M (sqrt -1)))) (/ (* c0 (pow d 2)) (* (pow D 2) w)))) h))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (* M (* h (sqrt -1))))) (+ (* M (sqrt -1)) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (* M (* h (sqrt -1))))) (+ (* 1/2 (/ (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2) (* (pow M 2) (pow (sqrt -1) 2))))) (* M (* (pow h 2) (sqrt -1))))) (+ (* M (sqrt -1)) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (+ (* -1/4 (/ (* (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* (pow M 3) (* (pow h 3) (pow (sqrt -1) 3))))) (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (* M (* h (sqrt -1))))) (+ (* 1/2 (/ (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2) (* (pow M 2) (pow (sqrt -1) 2))))) (* M (* (pow h 2) (sqrt -1))))) (+ (* M (sqrt -1)) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))))))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))) #s(hole binary64 (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (* M (* h (sqrt -1))))) (* M (sqrt -1)))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))) #s(hole binary64 (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (* M (* h (sqrt -1))))) (+ (* 1/2 (/ (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2) (* (pow M 2) (pow (sqrt -1) 2))))) (* M (* (pow h 2) (sqrt -1))))) (* M (sqrt -1))))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))) #s(hole binary64 (+ (* -1/4 (/ (* (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* (pow M 3) (* (pow h 3) (pow (sqrt -1) 3))))) (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (* M (* h (sqrt -1))))) (+ (* 1/2 (/ (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2) (* (pow M 2) (pow (sqrt -1) 2))))) (* M (* (pow h 2) (sqrt -1))))) (* M (sqrt -1)))))))
#s(approx (* (/ c0 (* 2 w)) (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (+ (* 1/2 (/ (* M (* c0 (sqrt -1))) w)) (* 1/2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h (pow w 2))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (+ (* 1/4 (/ (* (pow c0 3) (pow d 4)) (* (pow D 4) (* M (* (pow h 2) (* (pow w 3) (sqrt -1))))))) (+ (* 1/2 (/ (* M (* c0 (sqrt -1))) w)) (* 1/2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h (pow w 2)))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (+ (* -1/16 (/ (* (pow c0 5) (pow d 8)) (* (pow D 8) (* (pow M 3) (* (pow h 4) (* (pow w 5) (pow (sqrt -1) 3))))))) (+ (* 1/4 (/ (* (pow c0 3) (pow d 4)) (* (pow D 4) (* M (* (pow h 2) (* (pow w 3) (sqrt -1))))))) (+ (* 1/2 (/ (* M (* c0 (sqrt -1))) w)) (* 1/2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h (pow w 2))))))))))
#s(approx (/ (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (* w w)) #s(hole binary64 (* h (+ (* -1/4 (/ (* (pow D 2) (pow M 2)) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* (pow h 2) (pow w 2))))))))
#s(approx (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) #s(hole binary64 (* h (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (pow w 2))) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (pow h 2)))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (pow w 2)))) (* -1/4 (/ (* (pow c0 3) (pow d 4)) (* (pow D 4) (* M (* h (* (pow w 3) (sqrt -1)))))))) h)) (* 1/2 (/ (* M (* c0 (sqrt -1))) w)))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (+ (* -1 (/ (+ (* -1 (/ (+ (* -1/16 (/ (* (pow c0 5) (pow d 8)) (* (pow D 8) (* (pow M 3) (* (pow h 2) (* (pow w 5) (pow (sqrt -1) 3))))))) (* 1/4 (/ (* (pow c0 3) (pow d 4)) (* (pow D 4) (* M (* (pow w 3) (sqrt -1))))))) h)) (* -1/2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (pow w 2))))) h)) (* 1/2 (/ (* M (* c0 (sqrt -1))) w)))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) w))) (* -1/2 (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* M (* h (* (pow w 2) (sqrt -1)))))))) h)) (* M (sqrt -1)))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) w))) (* -1 (/ (+ (* -1/8 (/ (* (pow c0 4) (pow d 8)) (* (pow D 8) (* (pow M 3) (* (pow h 2) (* (pow w 4) (pow (sqrt -1) 3))))))) (* 1/2 (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* M (* (pow w 2) (sqrt -1))))))) h))) h)) (* M (sqrt -1)))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (+ (* -1/2 (/ (* c0 (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) w))) (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (* M (sqrt -1)))))) (* h w))) (* 1/2 (/ (* M (* c0 (sqrt -1))) w)))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (+ (* -1 (/ (+ (* -1/4 (/ (* c0 (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* M (* h (* w (sqrt -1)))))) (* 1/2 (/ (* c0 (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) w))) (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (* M (sqrt -1)))))) w))) h)) (* 1/2 (/ (* M (* c0 (sqrt -1))) w)))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/8 (/ (* c0 (* (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2) (* (pow M 2) (pow (sqrt -1) 2))))))) (* (pow M 3) (* h (* w (pow (sqrt -1) 3)))))) (* 1/4 (/ (* c0 (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* M (* w (sqrt -1)))))) h)) (* 1/2 (/ (* c0 (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) w))) (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (* M (sqrt -1)))))) w))) h)) (* 1/2 (/ (* M (* c0 (sqrt -1))) w)))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (+ (* -1 (/ (* c0 (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) w))) (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (* M (sqrt -1)))))) h)) (* M (* c0 (sqrt -1))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/2 (/ (* c0 (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* M (* h (sqrt -1))))) (* c0 (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) w))) (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (* M (sqrt -1))))))) h)) (* M (* c0 (sqrt -1))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/4 (/ (* c0 (* (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2) (* (pow M 2) (pow (sqrt -1) 2))))))) (* (pow M 3) (* h (pow (sqrt -1) 3))))) (* 1/2 (/ (* c0 (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* M (sqrt -1))))) h)) (* c0 (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) w))) (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (* M (sqrt -1))))))) h)) (* M (* c0 (sqrt -1))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) w))) (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (* M (sqrt -1))))) h)) (* M (sqrt -1)))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) w))) (+ (* -1/2 (/ (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2) (* (pow M 2) (pow (sqrt -1) 2))))) (* M (* h (sqrt -1))))) (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (* M (sqrt -1)))))) h)) (* M (sqrt -1)))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) w))) (+ (* -1 (/ (+ (* 1/4 (/ (* (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* (pow M 3) (* h (pow (sqrt -1) 3))))) (* 1/2 (/ (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2) (* (pow M 2) (pow (sqrt -1) 2))))) (* M (sqrt -1))))) h)) (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (* M (sqrt -1)))))) h)) (* M (sqrt -1)))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))) #s(hole binary64 (+ (* -1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (* M (* h (sqrt -1))))) (* M (sqrt -1)))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/2 (/ (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2) (* (pow M 2) (pow (sqrt -1) 2))))) (* M (* h (sqrt -1))))) (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (* M (sqrt -1))))) h)) (* M (sqrt -1)))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))) #s(hole binary64 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/4 (/ (* (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* (pow M 3) (* h (pow (sqrt -1) 3))))) (* 1/2 (/ (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2) (* (pow M 2) (pow (sqrt -1) 2))))) (* M (sqrt -1))))) h)) (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (* M (sqrt -1))))) h)) (* M (sqrt -1)))))
#s(approx (* (/ c0 (* 2 w)) (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (pow w 2)))) (* -1/4 (/ (* (pow c0 3) (pow d 4)) (* (pow D 4) (* M (* h (* (pow w 3) (sqrt -1)))))))) h)) (* 1/2 (/ (* M (* c0 (sqrt -1))) w)))))
#s(approx (* (/ c0 (* 2 w)) (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (+ (* -1 (/ (+ (* -1 (/ (+ (* -1/16 (/ (* (pow c0 5) (pow d 8)) (* (pow D 8) (* (pow M 3) (* (pow h 2) (* (pow w 5) (pow (sqrt -1) 3))))))) (* 1/4 (/ (* (pow c0 3) (pow d 4)) (* (pow D 4) (* M (* (pow w 3) (sqrt -1))))))) h)) (* -1/2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (pow w 2))))) h)) (* 1/2 (/ (* M (* c0 (sqrt -1))) w)))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) w))) (* -1/2 (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* M (* h (* (pow w 2) (sqrt -1)))))))) h)) (* M (sqrt -1)))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) w))) (* -1 (/ (+ (* -1/8 (/ (* (pow c0 4) (pow d 8)) (* (pow D 8) (* (pow M 3) (* (pow h 2) (* (pow w 4) (pow (sqrt -1) 3))))))) (* 1/2 (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* M (* (pow w 2) (sqrt -1))))))) h))) h)) (* M (sqrt -1)))))
#s(approx (/ (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (* w w)) #s(hole binary64 (* -1 (* h (+ (* -1 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* (pow h 2) (pow w 2))))) (* 1/4 (/ (* (pow D 2) (pow M 2)) (pow d 2))))))))
#s(approx (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) #s(hole binary64 (* -1 (* h (+ (* -1 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (pow h 2)))) (* 1/4 (/ (* (pow D 2) (* (pow M 2) (pow w 2))) (pow d 2))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (/ (+ (* -1/4 (/ (* (pow D 4) (* (pow M 2) h)) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) (* h (pow w 2)))) (pow D 2))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (/ (+ (* (pow D 4) (+ (* -1/4 (/ (* (pow M 2) h) (pow d 2))) (* -1/16 (/ (* (pow D 4) (* (pow M 4) (* (pow h 3) (pow w 2)))) (* (pow c0 2) (pow d 6)))))) (/ (* (pow c0 2) (pow d 2)) (* h (pow w 2)))) (pow D 2))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (/ (+ (* (pow D 4) (+ (* -1/4 (/ (* (pow M 2) h) (pow d 2))) (* (pow D 4) (+ (* -1/16 (/ (* (pow M 4) (* (pow h 3) (pow w 2))) (* (pow c0 2) (pow d 6)))) (* -1/32 (/ (* (pow D 4) (* (pow M 6) (* (pow h 5) (pow w 4)))) (* (pow c0 4) (pow d 10)))))))) (/ (* (pow c0 2) (pow d 2)) (* h (pow w 2)))) (pow D 2))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (/ (+ (* -1/2 (/ (* (pow D 4) (* (pow M 2) (* h w))) (* c0 (pow d 2)))) (* 2 (/ (* c0 (pow d 2)) (* h w)))) (pow D 2))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (/ (+ (* 2 (/ (* c0 (pow d 2)) (* h w))) (* (pow D 4) (+ (* -1/2 (/ (* (pow M 2) (* h w)) (* c0 (pow d 2)))) (* -1/8 (/ (* (pow D 4) (* (pow M 4) (* (pow h 3) (pow w 3)))) (* (pow c0 3) (pow d 6))))))) (pow D 2))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (/ (+ (* 2 (/ (* c0 (pow d 2)) (* h w))) (* (pow D 4) (+ (* -1/2 (/ (* (pow M 2) (* h w)) (* c0 (pow d 2)))) (* (pow D 4) (+ (* -1/8 (/ (* (pow M 4) (* (pow h 3) (pow w 3))) (* (pow c0 3) (pow d 6)))) (* -1/16 (/ (* (pow D 4) (* (pow M 6) (* (pow h 5) (pow w 5)))) (* (pow c0 5) (pow d 10))))))))) (pow D 2))))
#s(approx (/ (* d d) (* D D)) #s(hole binary64 (/ (pow d 2) (pow D 2))))
#s(approx D #s(hole binary64 D))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (/ (+ (* 1/4 (/ (* (pow D 2) (* h (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))))) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) (* h (pow w 2)))) (pow D 2))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (/ (+ (* (pow D 2) (+ (* 1/4 (/ (* h (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w)))) (pow d 2))) (* 1/4 (/ (* (pow D 2) (* h (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) 2))) (* (pow c0 2) (pow d 4))))))) (pow d 2))))) (/ (* (pow c0 2) (pow d 2)) (* h (pow w 2)))) (pow D 2))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (/ (+ (* (pow D 2) (+ (* 1/4 (/ (* h (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w)))) (pow d 2))) (* (pow D 2) (+ (* -1/8 (/ (* (pow D 2) (* (pow h 3) (* (pow w 2) (* (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) 2))) (* (pow c0 2) (pow d 4))))))))) (* (pow c0 2) (pow d 6)))) (* 1/4 (/ (* h (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) 2))) (* (pow c0 2) (pow d 4)))))) (pow d 2))))))) (/ (* (pow c0 2) (pow d 2)) (* h (pow w 2)))) (pow D 2))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (/ (+ (* 1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w)))))) (pow d 2))) (* 2 (/ (* (pow c0 2) (pow d 2)) (* h w)))) (pow D 2))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (/ (+ (* 2 (/ (* (pow c0 2) (pow d 2)) (* h w))) (* (pow D 2) (+ (* 1/2 (/ (* h (* w (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))))) (pow d 2))) (* 1/2 (/ (* (pow D 2) (* h (* w (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) 2))) (* (pow c0 2) (pow d 4)))))))) (pow d 2)))))) (pow D 2))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (/ (+ (* 2 (/ (* (pow c0 2) (pow d 2)) (* h w))) (* (pow D 2) (+ (* 1/2 (/ (* h (* w (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))))) (pow d 2))) (* (pow D 2) (+ (* -1/4 (/ (* (pow D 2) (* (pow h 3) (* (pow w 3) (* (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) 2))) (* (pow c0 2) (pow d 4))))))))) (* (pow c0 2) (pow d 6)))) (* 1/2 (/ (* h (* w (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) 2))) (* (pow c0 2) (pow d 4))))))) (pow d 2)))))))) (pow D 2))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (/ (+ (* 1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w)))))) (* c0 (pow d 2)))) (* 2 (/ (* c0 (pow d 2)) (* h w)))) (pow D 2))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (/ (+ (* 2 (/ (* c0 (pow d 2)) (* h w))) (* (pow D 2) (+ (* 1/2 (/ (* h (* w (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))))) (* c0 (pow d 2)))) (* 1/2 (/ (* (pow D 2) (* h (* w (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) 2))) (* (pow c0 2) (pow d 4)))))))) (* c0 (pow d 2))))))) (pow D 2))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (/ (+ (* 2 (/ (* c0 (pow d 2)) (* h w))) (* (pow D 2) (+ (* 1/2 (/ (* h (* w (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))))) (* c0 (pow d 2)))) (* (pow D 2) (+ (* -1/4 (/ (* (pow D 2) (* (pow h 3) (* (pow w 3) (* (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) 2))) (* (pow c0 2) (pow d 4))))))))) (* (pow c0 3) (pow d 6)))) (* 1/2 (/ (* h (* w (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) 2))) (* (pow c0 2) (pow d 4))))))) (* c0 (pow d 2))))))))) (pow D 2))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))) #s(hole binary64 (/ (+ (* 1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w)))))) (* c0 (pow d 2)))) (/ (* c0 (pow d 2)) (* h w))) (pow D 2))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))) #s(hole binary64 (/ (+ (* (pow D 2) (+ (* 1/2 (/ (* h (* w (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))))) (* c0 (pow d 2)))) (* 1/2 (/ (* (pow D 2) (* h (* w (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) 2))) (* (pow c0 2) (pow d 4)))))))) (* c0 (pow d 2)))))) (/ (* c0 (pow d 2)) (* h w))) (pow D 2))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))) #s(hole binary64 (/ (+ (* (pow D 2) (+ (* 1/2 (/ (* h (* w (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))))) (* c0 (pow d 2)))) (* (pow D 2) (+ (* -1/4 (/ (* (pow D 2) (* (pow h 3) (* (pow w 3) (* (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) 2))) (* (pow c0 2) (pow d 4))))))))) (* (pow c0 3) (pow d 6)))) (* 1/2 (/ (* h (* w (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) 2))) (* (pow c0 2) (pow d 4))))))) (* c0 (pow d 2)))))))) (/ (* c0 (pow d 2)) (* h w))) (pow D 2))))
#s(approx (* (/ c0 (* 2 w)) (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (/ (+ (* -1/4 (/ (* (pow D 4) (* (pow M 2) h)) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) (* h (pow w 2)))) (pow D 2))))
#s(approx (* (/ c0 (* 2 w)) (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (/ (+ (* (pow D 4) (+ (* -1/4 (/ (* (pow M 2) h) (pow d 2))) (* -1/16 (/ (* (pow D 4) (* (pow M 4) (* (pow h 3) (pow w 2)))) (* (pow c0 2) (pow d 6)))))) (/ (* (pow c0 2) (pow d 2)) (* h (pow w 2)))) (pow D 2))))
#s(approx (* (/ c0 (* 2 w)) (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (/ (+ (* (pow D 4) (+ (* -1/4 (/ (* (pow M 2) h) (pow d 2))) (* (pow D 4) (+ (* -1/16 (/ (* (pow M 4) (* (pow h 3) (pow w 2))) (* (pow c0 2) (pow d 6)))) (* -1/32 (/ (* (pow D 4) (* (pow M 6) (* (pow h 5) (pow w 4)))) (* (pow c0 4) (pow d 10)))))))) (/ (* (pow c0 2) (pow d 2)) (* h (pow w 2)))) (pow D 2))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (/ (+ (* -1/2 (/ (* (pow D 4) (* (pow M 2) (* h w))) (* c0 (pow d 2)))) (* 2 (/ (* c0 (pow d 2)) (* h w)))) (pow D 2))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (/ (+ (* 2 (/ (* c0 (pow d 2)) (* h w))) (* (pow D 4) (+ (* -1/2 (/ (* (pow M 2) (* h w)) (* c0 (pow d 2)))) (* -1/8 (/ (* (pow D 4) (* (pow M 4) (* (pow h 3) (pow w 3)))) (* (pow c0 3) (pow d 6))))))) (pow D 2))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (/ (+ (* 2 (/ (* c0 (pow d 2)) (* h w))) (* (pow D 4) (+ (* -1/2 (/ (* (pow M 2) (* h w)) (* c0 (pow d 2)))) (* (pow D 4) (+ (* -1/8 (/ (* (pow M 4) (* (pow h 3) (pow w 3))) (* (pow c0 3) (pow d 6)))) (* -1/16 (/ (* (pow D 4) (* (pow M 6) (* (pow h 5) (pow w 5)))) (* (pow c0 5) (pow d 10))))))))) (pow D 2))))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) #s(hole binary64 (/ (+ (* -1/2 (/ (* (pow D 4) (* (pow M 2) (* h w))) (* c0 (pow d 2)))) (/ (* c0 (pow d 2)) (* h w))) (pow D 2))))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) #s(hole binary64 (/ (+ (* (pow D 4) (+ (* -1/2 (/ (* (pow M 2) (* h w)) (* c0 (pow d 2)))) (* -1/8 (/ (* (pow D 4) (* (pow M 4) (* (pow h 3) (pow w 3)))) (* (pow c0 3) (pow d 6)))))) (/ (* c0 (pow d 2)) (* h w))) (pow D 2))))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) #s(hole binary64 (/ (+ (* (pow D 4) (+ (* -1/2 (/ (* (pow M 2) (* h w)) (* c0 (pow d 2)))) (* (pow D 4) (+ (* -1/8 (/ (* (pow M 4) (* (pow h 3) (pow w 3))) (* (pow c0 3) (pow d 6)))) (* -1/16 (/ (* (pow D 4) (* (pow M 6) (* (pow h 5) (pow w 5)))) (* (pow c0 5) (pow d 10)))))))) (/ (* c0 (pow d 2)) (* h w))) (pow D 2))))
#s(approx (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)) #s(hole binary64 (/ (+ (* -1 (* (pow D 4) (pow M 2))) (/ (* (pow c0 2) (pow d 4)) (* (pow h 2) (pow w 2)))) (pow D 4))))
#s(approx (* D D) #s(hole binary64 (pow D 2)))
#s(approx (/ (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (* w w)) #s(hole binary64 (/ (+ (* -1/4 (/ (* (pow D 4) (* (pow M 2) h)) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) (* h (pow w 2)))) (pow D 2))))
#s(approx (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) #s(hole binary64 (/ (+ (* -1/4 (/ (* (pow D 4) (* (pow M 2) (* h (pow w 2)))) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) h)) (pow D 2))))
#s(approx (pow (* D M) 2) #s(hole binary64 (* (pow D 2) (pow M 2))))
#s(approx (* D M) #s(hole binary64 (* D M)))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (+ (* 1/2 (/ (* M (* c0 (sqrt -1))) w)) (* 1/2 (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) (* M (sqrt -1)))) (/ (* c0 (pow d 2)) (* h w)))) (* (pow D 2) w))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (+ (* 1/4 (/ (* c0 (- (/ (* (pow c0 2) (pow d 4)) (* (pow h 2) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* (pow D 4) (* M (* w (sqrt -1)))))) (+ (* 1/2 (/ (* M (* c0 (sqrt -1))) w)) (* 1/2 (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) (* M (sqrt -1)))) (/ (* c0 (pow d 2)) (* h w)))) (* (pow D 2) w)))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (+ (* -1/8 (/ (* c0 (* (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) (- (/ (* (pow c0 2) (pow d 4)) (* (pow h 2) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) 2) (* (pow M 2) (pow (sqrt -1) 2))))))) (* (pow D 6) (* (pow M 3) (* w (pow (sqrt -1) 3)))))) (+ (* 1/4 (/ (* c0 (- (/ (* (pow c0 2) (pow d 4)) (* (pow h 2) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* (pow D 4) (* M (* w (sqrt -1)))))) (+ (* 1/2 (/ (* M (* c0 (sqrt -1))) w)) (* 1/2 (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) (* M (sqrt -1)))) (/ (* c0 (pow d 2)) (* h w)))) (* (pow D 2) w))))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (+ (* M (* c0 (sqrt -1))) (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) (* M (sqrt -1)))) (/ (* c0 (pow d 2)) (* h w)))) (pow D 2)))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (+ (* 1/2 (/ (* c0 (- (/ (* (pow c0 2) (pow d 4)) (* (pow h 2) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* (pow D 4) (* M (sqrt -1))))) (+ (* M (* c0 (sqrt -1))) (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) (* M (sqrt -1)))) (/ (* c0 (pow d 2)) (* h w)))) (pow D 2))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (+ (* -1/4 (/ (* c0 (* (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) (- (/ (* (pow c0 2) (pow d 4)) (* (pow h 2) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) 2) (* (pow M 2) (pow (sqrt -1) 2))))))) (* (pow D 6) (* (pow M 3) (pow (sqrt -1) 3))))) (+ (* 1/2 (/ (* c0 (- (/ (* (pow c0 2) (pow d 4)) (* (pow h 2) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* (pow D 4) (* M (sqrt -1))))) (+ (* M (* c0 (sqrt -1))) (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) (* M (sqrt -1)))) (/ (* c0 (pow d 2)) (* h w)))) (pow D 2)))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) (* (pow D 2) (* M (sqrt -1))))) (+ (* M (sqrt -1)) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) (* (pow D 2) (* M (sqrt -1))))) (+ (* 1/2 (/ (- (/ (* (pow c0 2) (pow d 4)) (* (pow h 2) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) 2) (* (pow M 2) (pow (sqrt -1) 2))))) (* (pow D 4) (* M (sqrt -1))))) (+ (* M (sqrt -1)) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (+ (* -1/4 (/ (* (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) (- (/ (* (pow c0 2) (pow d 4)) (* (pow h 2) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* (pow D 6) (* (pow M 3) (pow (sqrt -1) 3))))) (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) (* (pow D 2) (* M (sqrt -1))))) (+ (* 1/2 (/ (- (/ (* (pow c0 2) (pow d 4)) (* (pow h 2) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) 2) (* (pow M 2) (pow (sqrt -1) 2))))) (* (pow D 4) (* M (sqrt -1))))) (+ (* M (sqrt -1)) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))))))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))) #s(hole binary64 (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) (* (pow D 2) (* M (sqrt -1))))) (* M (sqrt -1)))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))) #s(hole binary64 (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) (* (pow D 2) (* M (sqrt -1))))) (+ (* 1/2 (/ (- (/ (* (pow c0 2) (pow d 4)) (* (pow h 2) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) 2) (* (pow M 2) (pow (sqrt -1) 2))))) (* (pow D 4) (* M (sqrt -1))))) (* M (sqrt -1))))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))) #s(hole binary64 (+ (* -1/4 (/ (* (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) (- (/ (* (pow c0 2) (pow d 4)) (* (pow h 2) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* (pow D 6) (* (pow M 3) (pow (sqrt -1) 3))))) (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) (* (pow D 2) (* M (sqrt -1))))) (+ (* 1/2 (/ (- (/ (* (pow c0 2) (pow d 4)) (* (pow h 2) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) 2) (* (pow M 2) (pow (sqrt -1) 2))))) (* (pow D 4) (* M (sqrt -1))))) (* M (sqrt -1)))))))
#s(approx (/ (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (* w w)) #s(hole binary64 (* (pow D 2) (+ (* -1/4 (/ (* (pow M 2) h) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 4) (* h (pow w 2))))))))
#s(approx (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) #s(hole binary64 (* (pow D 2) (+ (* -1/4 (/ (* (pow M 2) (* h (pow w 2))) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 4) h))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (+ (* 1/2 (/ (* M (* c0 (sqrt -1))) w)) (* (pow d 2) (+ (* 1/4 (/ (* (pow c0 3) (pow d 2)) (* (pow D 4) (* M (* (pow h 2) (* (pow w 3) (sqrt -1))))))) (* 1/2 (/ (pow c0 2) (* (pow D 2) (* h (pow w 2))))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (+ (* 1/2 (/ (* M (* c0 (sqrt -1))) w)) (* (pow d 2) (+ (* 1/2 (/ (pow c0 2) (* (pow D 2) (* h (pow w 2))))) (* (pow d 2) (+ (* -1/16 (/ (* (pow c0 5) (pow d 4)) (* (pow D 8) (* (pow M 3) (* (pow h 4) (* (pow w 5) (pow (sqrt -1) 3))))))) (* 1/4 (/ (pow c0 3) (* (pow D 4) (* M (* (pow h 2) (* (pow w 3) (sqrt -1))))))))))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (+ (* M (sqrt -1)) (* (pow d 2) (+ (* 1/2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 4) (* M (* (pow h 2) (* (pow w 2) (sqrt -1))))))) (/ c0 (* (pow D 2) (* h w))))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (+ (* M (sqrt -1)) (* (pow d 2) (+ (* (pow d 2) (+ (* -1/8 (/ (* (pow c0 4) (pow d 4)) (* (pow D 8) (* (pow M 3) (* (pow h 4) (* (pow w 4) (pow (sqrt -1) 3))))))) (* 1/2 (/ (pow c0 2) (* (pow D 4) (* M (* (pow h 2) (* (pow w 2) (sqrt -1))))))))) (/ c0 (* (pow D 2) (* h w))))))))
#s(approx d #s(hole binary64 d))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (+ (* 1/2 (/ (* M (* c0 (sqrt -1))) w)) (* 1/2 (/ (* c0 (* (pow d 2) (+ (* 1/2 (/ (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) (* M (sqrt -1)))) (/ c0 (* (pow D 2) (* h w)))))) w)))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (+ (* 1/2 (/ (* M (* c0 (sqrt -1))) w)) (* (pow d 2) (+ (* 1/4 (/ (* c0 (* (pow d 2) (- (/ (pow c0 2) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) 2) (* (pow M 2) (pow (sqrt -1) 2))))))) (* M (* w (sqrt -1))))) (* 1/2 (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) (* M (sqrt -1)))) (/ c0 (* (pow D 2) (* h w))))) w)))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (+ (* 1/2 (/ (* M (* c0 (sqrt -1))) w)) (* (pow d 2) (+ (* 1/2 (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) (* M (sqrt -1)))) (/ c0 (* (pow D 2) (* h w))))) w)) (* (pow d 2) (+ (* -1/8 (/ (* c0 (* (pow d 2) (* (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) (- (/ (pow c0 2) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))))) (* (pow M 3) (* w (pow (sqrt -1) 3))))) (* 1/4 (/ (* c0 (- (/ (pow c0 2) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* M (* w (sqrt -1))))))))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (+ (* M (* c0 (sqrt -1))) (* c0 (* (pow d 2) (+ (* 1/2 (/ (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) (* M (sqrt -1)))) (/ c0 (* (pow D 2) (* h w)))))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (+ (* M (* c0 (sqrt -1))) (* (pow d 2) (+ (* 1/2 (/ (* c0 (* (pow d 2) (- (/ (pow c0 2) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) 2) (* (pow M 2) (pow (sqrt -1) 2))))))) (* M (sqrt -1)))) (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) (* M (sqrt -1)))) (/ c0 (* (pow D 2) (* h w))))))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (+ (* M (* c0 (sqrt -1))) (* (pow d 2) (+ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) (* M (sqrt -1)))) (/ c0 (* (pow D 2) (* h w))))) (* (pow d 2) (+ (* -1/4 (/ (* c0 (* (pow d 2) (* (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) (- (/ (pow c0 2) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))))) (* (pow M 3) (pow (sqrt -1) 3)))) (* 1/2 (/ (* c0 (- (/ (pow c0 2) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* M (sqrt -1)))))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (+ (* M (sqrt -1)) (* (pow d 2) (+ (* 1/2 (/ (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) (* M (sqrt -1)))) (/ c0 (* (pow D 2) (* h w))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (+ (* M (sqrt -1)) (* (pow d 2) (+ (* 1/2 (/ (* (pow d 2) (- (/ (pow c0 2) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* M (sqrt -1)))) (+ (* 1/2 (/ (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) (* M (sqrt -1)))) (/ c0 (* (pow D 2) (* h w)))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (+ (* M (sqrt -1)) (* (pow d 2) (+ (* 1/2 (/ (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) (* M (sqrt -1)))) (+ (* (pow d 2) (+ (* -1/4 (/ (* (pow d 2) (* (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) (- (/ (pow c0 2) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) 2) (* (pow M 2) (pow (sqrt -1) 2))))))) (* (pow M 3) (pow (sqrt -1) 3)))) (* 1/2 (/ (- (/ (pow c0 2) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) 2) (* (pow M 2) (pow (sqrt -1) 2))))) (* M (sqrt -1)))))) (/ c0 (* (pow D 2) (* h w)))))))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))) #s(hole binary64 (+ (* 1/2 (/ (* (pow d 2) (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w))))) (* M (sqrt -1)))) (* M (sqrt -1)))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))) #s(hole binary64 (+ (* M (sqrt -1)) (* (pow d 2) (+ (* 1/2 (/ (* (pow d 2) (- (/ (pow c0 2) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* M (sqrt -1)))) (* 1/2 (/ (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) (* M (sqrt -1)))))))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))) #s(hole binary64 (+ (* M (sqrt -1)) (* (pow d 2) (+ (* 1/2 (/ (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) (* M (sqrt -1)))) (* (pow d 2) (+ (* -1/4 (/ (* (pow d 2) (* (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) (- (/ (pow c0 2) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) 2) (* (pow M 2) (pow (sqrt -1) 2))))))) (* (pow M 3) (pow (sqrt -1) 3)))) (* 1/2 (/ (- (/ (pow c0 2) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) 2) (* (pow M 2) (pow (sqrt -1) 2))))) (* M (sqrt -1)))))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (+ (* 1/2 (/ (* M (* c0 (sqrt -1))) w)) (* (pow d 2) (+ (* 1/4 (/ (* (pow c0 3) (pow d 2)) (* (pow D 4) (* M (* (pow h 2) (* (pow w 3) (sqrt -1))))))) (* 1/2 (/ (pow c0 2) (* (pow D 2) (* h (pow w 2))))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (+ (* 1/2 (/ (* M (* c0 (sqrt -1))) w)) (* (pow d 2) (+ (* 1/2 (/ (pow c0 2) (* (pow D 2) (* h (pow w 2))))) (* (pow d 2) (+ (* -1/16 (/ (* (pow c0 5) (pow d 4)) (* (pow D 8) (* (pow M 3) (* (pow h 4) (* (pow w 5) (pow (sqrt -1) 3))))))) (* 1/4 (/ (pow c0 3) (* (pow D 4) (* M (* (pow h 2) (* (pow w 3) (sqrt -1))))))))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (+ (* M (sqrt -1)) (* (pow d 2) (+ (* 1/2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 4) (* M (* (pow h 2) (* (pow w 2) (sqrt -1))))))) (/ c0 (* (pow D 2) (* h w))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (+ (* M (sqrt -1)) (* (pow d 2) (+ (* (pow d 2) (+ (* -1/8 (/ (* (pow c0 4) (pow d 4)) (* (pow D 8) (* (pow M 3) (* (pow h 4) (* (pow w 4) (pow (sqrt -1) 3))))))) (* 1/2 (/ (pow c0 2) (* (pow D 4) (* M (* (pow h 2) (* (pow w 2) (sqrt -1))))))))) (/ c0 (* (pow D 2) (* h w))))))))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) #s(hole binary64 (+ (* M (sqrt -1)) (* (pow d 4) (+ (* -1/8 (/ (* (pow c0 4) (pow d 4)) (* (pow D 8) (* (pow M 3) (* (pow h 4) (* (pow w 4) (pow (sqrt -1) 3))))))) (* 1/2 (/ (pow c0 2) (* (pow D 4) (* M (* (pow h 2) (* (pow w 2) (sqrt -1))))))))))))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) #s(hole binary64 (+ (* M (sqrt -1)) (* (pow d 4) (+ (* 1/2 (/ (pow c0 2) (* (pow D 4) (* M (* (pow h 2) (* (pow w 2) (sqrt -1))))))) (* (pow d 4) (+ (* -1/8 (/ (pow c0 4) (* (pow D 8) (* (pow M 3) (* (pow h 4) (* (pow w 4) (pow (sqrt -1) 3))))))) (* 1/16 (/ (* (pow c0 6) (pow d 4)) (* (pow D 12) (* (pow M 5) (* (pow h 6) (* (pow w 6) (pow (sqrt -1) 5))))))))))))))
#s(approx (* d d) #s(hole binary64 (pow d 2)))
#s(approx (/ (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (* w w)) #s(hole binary64 (/ (+ (* -1/4 (* (pow D 2) (* (pow M 2) h))) (/ (* (pow c0 2) (pow d 4)) (* (pow D 2) (* h (pow w 2))))) (pow d 2))))
#s(approx (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) #s(hole binary64 (/ (+ (* -1/4 (* (pow D 2) (* (pow M 2) (* h (pow w 2))))) (/ (* (pow c0 2) (pow d 4)) (* (pow D 2) h))) (pow d 2))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* (pow d 2) (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 4))) (/ (pow c0 2) (* (pow D 2) (* h (pow w 2))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* (pow d 2) (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 4))) (+ (* -1/16 (/ (* (pow D 6) (* (pow M 4) (* (pow h 3) (pow w 2)))) (* (pow c0 2) (pow d 8)))) (/ (pow c0 2) (* (pow D 2) (* h (pow w 2)))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* (pow d 2) (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 4))) (+ (* -1/16 (/ (* (pow D 6) (* (pow M 4) (* (pow h 3) (pow w 2)))) (* (pow c0 2) (pow d 8)))) (+ (* -1/32 (/ (* (pow D 10) (* (pow M 6) (* (pow h 5) (pow w 4)))) (* (pow c0 4) (pow d 12)))) (/ (pow c0 2) (* (pow D 2) (* h (pow w 2))))))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (* (pow d 2) (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h w))) (* c0 (pow d 4)))) (* 2 (/ c0 (* (pow D 2) (* h w))))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (* (pow d 2) (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h w))) (* c0 (pow d 4)))) (+ (* -1/8 (/ (* (pow D 6) (* (pow M 4) (* (pow h 3) (pow w 3)))) (* (pow c0 3) (pow d 8)))) (* 2 (/ c0 (* (pow D 2) (* h w)))))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (* (pow d 2) (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h w))) (* c0 (pow d 4)))) (+ (* -1/8 (/ (* (pow D 6) (* (pow M 4) (* (pow h 3) (pow w 3)))) (* (pow c0 3) (pow d 8)))) (+ (* -1/16 (/ (* (pow D 10) (* (pow M 6) (* (pow h 5) (pow w 5)))) (* (pow c0 5) (pow d 12)))) (* 2 (/ c0 (* (pow D 2) (* h w))))))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (* (pow d 2) (+ (* 1/4 (/ (* (pow D 2) (* h (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))))) (pow d 2))) (/ (pow c0 2) (* (pow D 2) (* h (pow w 2))))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (* (pow d 2) (+ (* 1/4 (/ (* (pow D 2) (* h (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))))) (pow d 2))) (+ (* 1/4 (/ (* (pow D 2) (* h (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) 2)))) (pow c0 2)))))) (pow d 4))) (/ (pow c0 2) (* (pow D 2) (* h (pow w 2)))))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (* (pow d 2) (+ (* -1/8 (/ (* (pow D 6) (* (pow h 3) (* (pow w 2) (* (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) 2)))) (pow c0 2)))))))) (* (pow c0 2) (pow d 6)))) (+ (* 1/4 (/ (* (pow D 2) (* h (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))))) (pow d 2))) (+ (* 1/4 (/ (* (pow D 2) (* h (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) 2)))) (pow c0 2)))))) (pow d 4))) (/ (pow c0 2) (* (pow D 2) (* h (pow w 2))))))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (* (pow d 2) (+ (* 1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w))))))) (pow d 2))) (* 2 (/ (pow c0 2) (* (pow D 2) (* h w))))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (* (pow d 2) (+ (* 1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w))))))) (pow d 2))) (+ (* 1/2 (/ (* (pow D 2) (* h (* w (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) 2)))) (pow c0 2))))))) (pow d 4))) (* 2 (/ (pow c0 2) (* (pow D 2) (* h w)))))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (* (pow d 2) (+ (* -1/4 (/ (* (pow D 6) (* (pow h 3) (* (pow w 3) (* (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) 2)))) (pow c0 2)))))))) (* (pow c0 2) (pow d 6)))) (+ (* 1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w))))))) (pow d 2))) (+ (* 1/2 (/ (* (pow D 2) (* h (* w (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) 2)))) (pow c0 2))))))) (pow d 4))) (* 2 (/ (pow c0 2) (* (pow D 2) (* h w))))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (* (pow d 2) (+ (* 1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w))))))) (* c0 (pow d 2)))) (* 2 (/ c0 (* (pow D 2) (* h w))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (* (pow d 2) (+ (* 1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w))))))) (* c0 (pow d 2)))) (+ (* 1/2 (/ (* (pow D 2) (* h (* w (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) 2)))) (pow c0 2))))))) (* c0 (pow d 4)))) (* 2 (/ c0 (* (pow D 2) (* h w)))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (* (pow d 2) (+ (* -1/4 (/ (* (pow D 6) (* (pow h 3) (* (pow w 3) (* (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) 2)))) (pow c0 2)))))))) (* (pow c0 3) (pow d 6)))) (+ (* 1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w))))))) (* c0 (pow d 2)))) (+ (* 1/2 (/ (* (pow D 2) (* h (* w (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) 2)))) (pow c0 2))))))) (* c0 (pow d 4)))) (* 2 (/ c0 (* (pow D 2) (* h w))))))))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))) #s(hole binary64 (* (pow d 2) (+ (* 1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w))))))) (* c0 (pow d 2)))) (/ c0 (* (pow D 2) (* h w)))))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))) #s(hole binary64 (* (pow d 2) (+ (* 1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w))))))) (* c0 (pow d 2)))) (+ (* 1/2 (/ (* (pow D 2) (* h (* w (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) 2)))) (pow c0 2))))))) (* c0 (pow d 4)))) (/ c0 (* (pow D 2) (* h w))))))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))) #s(hole binary64 (* (pow d 2) (+ (* -1/4 (/ (* (pow D 6) (* (pow h 3) (* (pow w 3) (* (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) 2)))) (pow c0 2)))))))) (* (pow c0 3) (pow d 6)))) (+ (* 1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w))))))) (* c0 (pow d 2)))) (+ (* 1/2 (/ (* (pow D 2) (* h (* w (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) 2)))) (pow c0 2))))))) (* c0 (pow d 4)))) (/ c0 (* (pow D 2) (* h w)))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* (pow d 2) (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 4))) (/ (pow c0 2) (* (pow D 2) (* h (pow w 2))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* (pow d 2) (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 4))) (+ (* -1/16 (/ (* (pow D 6) (* (pow M 4) (* (pow h 3) (pow w 2)))) (* (pow c0 2) (pow d 8)))) (/ (pow c0 2) (* (pow D 2) (* h (pow w 2)))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* (pow d 2) (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 4))) (+ (* -1/16 (/ (* (pow D 6) (* (pow M 4) (* (pow h 3) (pow w 2)))) (* (pow c0 2) (pow d 8)))) (+ (* -1/32 (/ (* (pow D 10) (* (pow M 6) (* (pow h 5) (pow w 4)))) (* (pow c0 4) (pow d 12)))) (/ (pow c0 2) (* (pow D 2) (* h (pow w 2))))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (* (pow d 2) (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h w))) (* c0 (pow d 4)))) (* 2 (/ c0 (* (pow D 2) (* h w))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (* (pow d 2) (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h w))) (* c0 (pow d 4)))) (+ (* -1/8 (/ (* (pow D 6) (* (pow M 4) (* (pow h 3) (pow w 3)))) (* (pow c0 3) (pow d 8)))) (* 2 (/ c0 (* (pow D 2) (* h w)))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (* (pow d 2) (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h w))) (* c0 (pow d 4)))) (+ (* -1/8 (/ (* (pow D 6) (* (pow M 4) (* (pow h 3) (pow w 3)))) (* (pow c0 3) (pow d 8)))) (+ (* -1/16 (/ (* (pow D 10) (* (pow M 6) (* (pow h 5) (pow w 5)))) (* (pow c0 5) (pow d 12)))) (* 2 (/ c0 (* (pow D 2) (* h w))))))))))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) #s(hole binary64 (* (pow d 2) (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h w))) (* c0 (pow d 4)))) (/ c0 (* (pow D 2) (* h w)))))))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) #s(hole binary64 (* (pow d 2) (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h w))) (* c0 (pow d 4)))) (+ (* -1/8 (/ (* (pow D 6) (* (pow M 4) (* (pow h 3) (pow w 3)))) (* (pow c0 3) (pow d 8)))) (/ c0 (* (pow D 2) (* h w))))))))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) #s(hole binary64 (* (pow d 2) (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h w))) (* c0 (pow d 4)))) (+ (* -1/8 (/ (* (pow D 6) (* (pow M 4) (* (pow h 3) (pow w 3)))) (* (pow c0 3) (pow d 8)))) (+ (* -1/16 (/ (* (pow D 10) (* (pow M 6) (* (pow h 5) (pow w 5)))) (* (pow c0 5) (pow d 12)))) (/ c0 (* (pow D 2) (* h w)))))))))
#s(approx (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)) #s(hole binary64 (* (pow d 4) (+ (* -1 (/ (pow M 2) (pow d 4))) (/ (pow c0 2) (* (pow D 4) (* (pow h 2) (pow w 2))))))))
#s(approx (/ (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (* w w)) #s(hole binary64 (* (pow d 2) (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 4))) (/ (pow c0 2) (* (pow D 2) (* h (pow w 2))))))))
#s(approx (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) #s(hole binary64 (* (pow d 2) (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (* h (pow w 2)))) (pow d 4))) (/ (pow c0 2) (* (pow D 2) h))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h (pow w 2)))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (+ (* (pow M 2) (+ (* -1/4 (/ (* (pow D 2) h) (pow d 2))) (* -1/16 (/ (* (pow D 6) (* (pow M 2) (* (pow h 3) (pow w 2)))) (* (pow c0 2) (pow d 6)))))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h (pow w 2)))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (+ (* (pow M 2) (+ (* -1/4 (/ (* (pow D 2) h) (pow d 2))) (* (pow M 2) (+ (* -1/16 (/ (* (pow D 6) (* (pow h 3) (pow w 2))) (* (pow c0 2) (pow d 6)))) (* -1/32 (/ (* (pow D 10) (* (pow M 2) (* (pow h 5) (pow w 4)))) (* (pow c0 4) (pow d 10)))))))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h (pow w 2)))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h w))) (* c0 (pow d 2)))) (* 2 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (+ (* 2 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (* (pow M 2) (+ (* -1/2 (/ (* (pow D 2) (* h w)) (* c0 (pow d 2)))) (* -1/8 (/ (* (pow D 6) (* (pow M 2) (* (pow h 3) (pow w 3)))) (* (pow c0 3) (pow d 6)))))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (+ (* 2 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (* (pow M 2) (+ (* -1/2 (/ (* (pow D 2) (* h w)) (* c0 (pow d 2)))) (* (pow M 2) (+ (* -1/8 (/ (* (pow D 6) (* (pow h 3) (pow w 3))) (* (pow c0 3) (pow d 6)))) (* -1/16 (/ (* (pow D 10) (* (pow M 2) (* (pow h 5) (pow w 5)))) (* (pow c0 5) (pow d 10)))))))))))
#s(approx (* (sqrt -1) M) #s(hole binary64 (* M (sqrt -1))))
#s(approx M #s(hole binary64 M))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (+ (* 1/4 (/ (* (pow D 2) (* M (* h (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))))) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h (pow w 2)))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (+ (* M (+ (* -1/4 (/ (* (pow D 2) (* M (* h (+ 1 (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (* (pow c0 2) (pow d 4)))))))) (pow d 2))) (* 1/4 (/ (* (pow D 2) (* h (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))))) (pow d 2))))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h (pow w 2)))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (+ (* M (+ (* 1/4 (/ (* (pow D 2) (* h (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))))) (pow d 2))) (* M (+ (* -1/4 (/ (* (pow D 2) (* h (+ 1 (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (* (pow c0 2) (pow d 4))))))) (pow d 2))) (* 1/8 (/ (* (pow D 6) (* M (* (pow h 3) (* (pow w 2) (* (+ 1 (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (* (pow c0 2) (pow d 4))))) (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))))))) (* (pow c0 2) (pow d 6)))))))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h (pow w 2)))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (+ (* 1/2 (/ (* (pow D 2) (* M (* h (* w (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))))))) (pow d 2))) (* 2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h w)))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (+ (* 2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h w)))) (* M (+ (* -1/2 (/ (* (pow D 2) (* M (* h (* w (+ 1 (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (* (pow c0 2) (pow d 4))))))))) (pow d 2))) (* 1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))))) (pow d 2))))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (+ (* 2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h w)))) (* M (+ (* 1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))))) (pow d 2))) (* M (+ (* -1/2 (/ (* (pow D 2) (* h (* w (+ 1 (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (* (pow c0 2) (pow d 4)))))))) (pow d 2))) (* 1/4 (/ (* (pow D 6) (* M (* (pow h 3) (* (pow w 3) (* (+ 1 (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (* (pow c0 2) (pow d 4))))) (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))))))) (* (pow c0 2) (pow d 6)))))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (+ (* 1/2 (/ (* (pow D 2) (* M (* h (* w (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))))))) (* c0 (pow d 2)))) (* 2 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (+ (* 2 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (* M (+ (* -1/2 (/ (* (pow D 2) (* M (* h (* w (+ 1 (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (* (pow c0 2) (pow d 4))))))))) (* c0 (pow d 2)))) (* 1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))))) (* c0 (pow d 2)))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (+ (* 2 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (* M (+ (* 1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))))) (* c0 (pow d 2)))) (* M (+ (* -1/2 (/ (* (pow D 2) (* h (* w (+ 1 (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (* (pow c0 2) (pow d 4)))))))) (* c0 (pow d 2)))) (* 1/4 (/ (* (pow D 6) (* M (* (pow h 3) (* (pow w 3) (* (+ 1 (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (* (pow c0 2) (pow d 4))))) (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))))))) (* (pow c0 3) (pow d 6)))))))))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))) #s(hole binary64 (+ (* 1/2 (/ (* (pow D 2) (* M (* h (* w (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))))))) (* c0 (pow d 2)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))) #s(hole binary64 (+ (* M (+ (* -1/2 (/ (* (pow D 2) (* M (* h (* w (+ 1 (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (* (pow c0 2) (pow d 4))))))))) (* c0 (pow d 2)))) (* 1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))))) (* c0 (pow d 2)))))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))) #s(hole binary64 (+ (* M (+ (* 1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))))) (* c0 (pow d 2)))) (* M (+ (* -1/2 (/ (* (pow D 2) (* h (* w (+ 1 (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (* (pow c0 2) (pow d 4)))))))) (* c0 (pow d 2)))) (* 1/4 (/ (* (pow D 6) (* M (* (pow h 3) (* (pow w 3) (* (+ 1 (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (* (pow c0 2) (pow d 4))))) (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))))))) (* (pow c0 3) (pow d 6)))))))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))))
#s(approx (* (/ c0 (* 2 w)) (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h (pow w 2)))))))
#s(approx (* (/ c0 (* 2 w)) (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (+ (* (pow M 2) (+ (* -1/4 (/ (* (pow D 2) h) (pow d 2))) (* -1/16 (/ (* (pow D 6) (* (pow M 2) (* (pow h 3) (pow w 2)))) (* (pow c0 2) (pow d 6)))))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h (pow w 2)))))))
#s(approx (* (/ c0 (* 2 w)) (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (+ (* (pow M 2) (+ (* -1/4 (/ (* (pow D 2) h) (pow d 2))) (* (pow M 2) (+ (* -1/16 (/ (* (pow D 6) (* (pow h 3) (pow w 2))) (* (pow c0 2) (pow d 6)))) (* -1/32 (/ (* (pow D 10) (* (pow M 2) (* (pow h 5) (pow w 4)))) (* (pow c0 4) (pow d 10)))))))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h (pow w 2)))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h w))) (* c0 (pow d 2)))) (* 2 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (+ (* 2 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (* (pow M 2) (+ (* -1/2 (/ (* (pow D 2) (* h w)) (* c0 (pow d 2)))) (* -1/8 (/ (* (pow D 6) (* (pow M 2) (* (pow h 3) (pow w 3)))) (* (pow c0 3) (pow d 6)))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (+ (* 2 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (* (pow M 2) (+ (* -1/2 (/ (* (pow D 2) (* h w)) (* c0 (pow d 2)))) (* (pow M 2) (+ (* -1/8 (/ (* (pow D 6) (* (pow h 3) (pow w 3))) (* (pow c0 3) (pow d 6)))) (* -1/16 (/ (* (pow D 10) (* (pow M 2) (* (pow h 5) (pow w 5)))) (* (pow c0 5) (pow d 10)))))))))))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) #s(hole binary64 (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h w))) (* c0 (pow d 2)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) #s(hole binary64 (+ (* (pow M 2) (+ (* -1/2 (/ (* (pow D 2) (* h w)) (* c0 (pow d 2)))) (* -1/8 (/ (* (pow D 6) (* (pow M 2) (* (pow h 3) (pow w 3)))) (* (pow c0 3) (pow d 6)))))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) #s(hole binary64 (+ (* (pow M 2) (+ (* -1/2 (/ (* (pow D 2) (* h w)) (* c0 (pow d 2)))) (* (pow M 2) (+ (* -1/8 (/ (* (pow D 6) (* (pow h 3) (pow w 3))) (* (pow c0 3) (pow d 6)))) (* -1/16 (/ (* (pow D 10) (* (pow M 2) (* (pow h 5) (pow w 5)))) (* (pow c0 5) (pow d 10)))))))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))))
#s(approx (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)) #s(hole binary64 (+ (* -1 (pow M 2)) (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow h 2) (pow w 2)))))))
#s(approx (* M M) #s(hole binary64 (pow M 2)))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* M (+ (* 1/2 (/ (* c0 (sqrt -1)) w)) (* 1/2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* M (* h (pow w 2))))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* M (+ (* 1/4 (/ (* (pow c0 3) (pow d 4)) (* (pow D 4) (* (pow M 2) (* (pow h 2) (* (pow w 3) (sqrt -1))))))) (+ (* 1/2 (/ (* c0 (sqrt -1)) w)) (* 1/2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* M (* h (pow w 2)))))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* M (+ (* -1/16 (/ (* (pow c0 5) (pow d 8)) (* (pow D 8) (* (pow M 4) (* (pow h 4) (* (pow w 5) (pow (sqrt -1) 3))))))) (+ (* 1/4 (/ (* (pow c0 3) (pow d 4)) (* (pow D 4) (* (pow M 2) (* (pow h 2) (* (pow w 3) (sqrt -1))))))) (+ (* 1/2 (/ (* c0 (sqrt -1)) w)) (* 1/2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* M (* h (pow w 2))))))))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (* M (+ (sqrt -1) (/ (* c0 (pow d 2)) (* (pow D 2) (* M (* h w))))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (* M (+ (sqrt -1) (+ (* 1/2 (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow M 2) (* (pow h 2) (* (pow w 2) (sqrt -1))))))) (/ (* c0 (pow d 2)) (* (pow D 2) (* M (* h w)))))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (* M (+ (sqrt -1) (+ (* -1/8 (/ (* (pow c0 4) (pow d 8)) (* (pow D 8) (* (pow M 4) (* (pow h 4) (* (pow w 4) (pow (sqrt -1) 3))))))) (+ (* 1/2 (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow M 2) (* (pow h 2) (* (pow w 2) (sqrt -1))))))) (/ (* c0 (pow d 2)) (* (pow D 2) (* M (* h w))))))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (* M (+ (* 1/2 (/ (* c0 (sqrt -1)) w)) (* 1/2 (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (sqrt -1))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))) (* M w)))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (* M (+ (* 1/4 (/ (* c0 (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2) (pow (sqrt -1) 2))))) (* (pow M 2) (* w (sqrt -1))))) (+ (* 1/2 (/ (* c0 (sqrt -1)) w)) (* 1/2 (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (sqrt -1))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))) (* M w))))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (* M (+ (* -1/8 (/ (* c0 (* (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2) (pow (sqrt -1) 2)))))) (* (pow M 3) (* w (pow (sqrt -1) 3))))) (+ (* 1/4 (/ (* c0 (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2) (pow (sqrt -1) 2))))) (* (pow M 2) (* w (sqrt -1))))) (+ (* 1/2 (/ (* c0 (sqrt -1)) w)) (* 1/2 (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (sqrt -1))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))) (* M w)))))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (* M (+ (* c0 (sqrt -1)) (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (sqrt -1))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))) M)))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (* M (+ (* 1/2 (/ (* c0 (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2) (pow (sqrt -1) 2))))) (* (pow M 2) (sqrt -1)))) (+ (* c0 (sqrt -1)) (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (sqrt -1))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))) M))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (* M (+ (* -1/4 (/ (* c0 (* (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2) (pow (sqrt -1) 2)))))) (* (pow M 3) (pow (sqrt -1) 3)))) (+ (* 1/2 (/ (* c0 (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2) (pow (sqrt -1) 2))))) (* (pow M 2) (sqrt -1)))) (+ (* c0 (sqrt -1)) (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (sqrt -1))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))) M)))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (* M (+ (sqrt -1) (+ (* 1/2 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (* M (sqrt -1)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* M (* h w)))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (* M (+ (sqrt -1) (+ (* 1/2 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (* M (sqrt -1)))) (+ (* 1/2 (/ (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2) (pow (sqrt -1) 2)))) (* (pow M 2) (sqrt -1)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* M (* h w))))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (* M (+ (sqrt -1) (+ (* -1/4 (/ (* (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2) (pow (sqrt -1) 2))))) (* (pow M 3) (pow (sqrt -1) 3)))) (+ (* 1/2 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (* M (sqrt -1)))) (+ (* 1/2 (/ (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2) (pow (sqrt -1) 2)))) (* (pow M 2) (sqrt -1)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* M (* h w)))))))))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))) #s(hole binary64 (* M (+ (sqrt -1) (* 1/2 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (* M (sqrt -1))))))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))) #s(hole binary64 (* M (+ (sqrt -1) (+ (* 1/2 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (* M (sqrt -1)))) (* 1/2 (/ (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2) (pow (sqrt -1) 2)))) (* (pow M 2) (sqrt -1)))))))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))) #s(hole binary64 (* M (+ (sqrt -1) (+ (* -1/4 (/ (* (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2) (pow (sqrt -1) 2))))) (* (pow M 3) (pow (sqrt -1) 3)))) (+ (* 1/2 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (* M (sqrt -1)))) (* 1/2 (/ (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2) (pow (sqrt -1) 2)))) (* (pow M 2) (sqrt -1))))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* M (+ (* 1/2 (/ (* c0 (sqrt -1)) w)) (* 1/2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* M (* h (pow w 2))))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* M (+ (* 1/4 (/ (* (pow c0 3) (pow d 4)) (* (pow D 4) (* (pow M 2) (* (pow h 2) (* (pow w 3) (sqrt -1))))))) (+ (* 1/2 (/ (* c0 (sqrt -1)) w)) (* 1/2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* M (* h (pow w 2)))))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* M (+ (* -1/16 (/ (* (pow c0 5) (pow d 8)) (* (pow D 8) (* (pow M 4) (* (pow h 4) (* (pow w 5) (pow (sqrt -1) 3))))))) (+ (* 1/4 (/ (* (pow c0 3) (pow d 4)) (* (pow D 4) (* (pow M 2) (* (pow h 2) (* (pow w 3) (sqrt -1))))))) (+ (* 1/2 (/ (* c0 (sqrt -1)) w)) (* 1/2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* M (* h (pow w 2))))))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (* M (+ (sqrt -1) (/ (* c0 (pow d 2)) (* (pow D 2) (* M (* h w))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (* M (+ (sqrt -1) (+ (* 1/2 (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow M 2) (* (pow h 2) (* (pow w 2) (sqrt -1))))))) (/ (* c0 (pow d 2)) (* (pow D 2) (* M (* h w)))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (* M (+ (sqrt -1) (+ (* -1/8 (/ (* (pow c0 4) (pow d 8)) (* (pow D 8) (* (pow M 4) (* (pow h 4) (* (pow w 4) (pow (sqrt -1) 3))))))) (+ (* 1/2 (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow M 2) (* (pow h 2) (* (pow w 2) (sqrt -1))))))) (/ (* c0 (pow d 2)) (* (pow D 2) (* M (* h w))))))))))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) #s(hole binary64 (* M (+ (sqrt -1) (* 1/2 (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow M 2) (* (pow h 2) (* (pow w 2) (sqrt -1)))))))))))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) #s(hole binary64 (* M (+ (sqrt -1) (+ (* -1/8 (/ (* (pow c0 4) (pow d 8)) (* (pow D 8) (* (pow M 4) (* (pow h 4) (* (pow w 4) (pow (sqrt -1) 3))))))) (* 1/2 (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow M 2) (* (pow h 2) (* (pow w 2) (sqrt -1))))))))))))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) #s(hole binary64 (* M (+ (sqrt -1) (+ (* -1/8 (/ (* (pow c0 4) (pow d 8)) (* (pow D 8) (* (pow M 4) (* (pow h 4) (* (pow w 4) (pow (sqrt -1) 3))))))) (+ (* 1/16 (/ (* (pow c0 6) (pow d 12)) (* (pow D 12) (* (pow M 6) (* (pow h 6) (* (pow w 6) (pow (sqrt -1) 5))))))) (* 1/2 (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow M 2) (* (pow h 2) (* (pow w 2) (sqrt -1)))))))))))))
#s(approx (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)) #s(hole binary64 (* (pow M 2) (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow M 2) (* (pow h 2) (pow w 2))))) 1))))
#s(approx (/ (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (* w w)) #s(hole binary64 (* (pow M 2) (+ (* -1/4 (/ (* (pow D 2) h) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* (pow M 2) (* h (pow w 2)))))))))
#s(approx (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) #s(hole binary64 (* (pow M 2) (+ (* -1/4 (/ (* (pow D 2) (* h (pow w 2))) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* (pow M 2) h)))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* -1/2 (/ (* M (* c0 (sqrt -1))) w))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* -1 (* M (+ (* -1/2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* M (* h (pow w 2)))))) (* 1/2 (/ (* c0 (sqrt -1)) w)))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* -1 (* M (+ (* -1 (/ (+ (* -1/4 (/ (* (pow c0 3) (pow d 4)) (* (pow D 4) (* M (* (pow h 2) (* (pow w 3) (sqrt -1))))))) (* 1/2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h (pow w 2)))))) M)) (* 1/2 (/ (* c0 (sqrt -1)) w)))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* -1 (* M (+ (* -1 (/ (+ (* -1 (/ (+ (* -1/16 (/ (* (pow c0 5) (pow d 8)) (* (pow D 8) (* (pow M 2) (* (pow h 4) (* (pow w 5) (pow (sqrt -1) 3))))))) (* 1/4 (/ (* (pow c0 3) (pow d 4)) (* (pow D 4) (* (pow h 2) (* (pow w 3) (sqrt -1))))))) M)) (* 1/2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h (pow w 2)))))) M)) (* 1/2 (/ (* c0 (sqrt -1)) w)))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (* -1 (* M (sqrt -1)))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (* -1 (* M (+ (sqrt -1) (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* M (* h w))))))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (* -1 (* M (+ (sqrt -1) (* -1 (/ (+ (* -1/2 (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* M (* (pow h 2) (* (pow w 2) (sqrt -1))))))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) M)))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (* -1 (* M (+ (sqrt -1) (* -1 (/ (+ (* -1 (/ (+ (* -1/8 (/ (* (pow c0 4) (pow d 8)) (* (pow D 8) (* (pow M 2) (* (pow h 4) (* (pow w 4) (pow (sqrt -1) 3))))))) (* 1/2 (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow h 2) (* (pow w 2) (sqrt -1))))))) M)) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) M)))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (* -1/2 (/ (* M (* c0 (sqrt -1))) w))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (* -1 (* M (+ (* -1/2 (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (sqrt -1))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))) (* M w))) (* 1/2 (/ (* c0 (sqrt -1)) w)))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (* -1 (* M (+ (* -1 (/ (+ (* -1/4 (/ (* c0 (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2) (pow (sqrt -1) 2))))) (* M (* w (sqrt -1))))) (* 1/2 (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (sqrt -1))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))) w))) M)) (* 1/2 (/ (* c0 (sqrt -1)) w)))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (* -1 (* M (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/8 (/ (* c0 (* (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2) (pow (sqrt -1) 2)))))) (* M (* w (pow (sqrt -1) 3))))) (* 1/4 (/ (* c0 (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2) (pow (sqrt -1) 2))))) (* w (sqrt -1))))) M)) (* 1/2 (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (sqrt -1))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))) w))) M)) (* 1/2 (/ (* c0 (sqrt -1)) w)))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (* -1 (* M (* c0 (sqrt -1))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (* -1 (* M (+ (* -1 (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (sqrt -1))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))) M)) (* c0 (sqrt -1)))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (* -1 (* M (+ (* -1 (/ (+ (* -1/2 (/ (* c0 (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2) (pow (sqrt -1) 2))))) (* M (sqrt -1)))) (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (sqrt -1))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))))) M)) (* c0 (sqrt -1)))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (* -1 (* M (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/4 (/ (* c0 (* (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2) (pow (sqrt -1) 2)))))) (* M (pow (sqrt -1) 3)))) (* 1/2 (/ (* c0 (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2) (pow (sqrt -1) 2))))) (sqrt -1)))) M)) (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (sqrt -1))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))))) M)) (* c0 (sqrt -1)))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (* -1 (* M (sqrt -1)))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (* -1 (* M (+ (sqrt -1) (* -1 (/ (+ (* 1/2 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (sqrt -1))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) M)))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (* -1 (* M (+ (sqrt -1) (* -1 (/ (+ (* -1/2 (/ (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2) (pow (sqrt -1) 2)))) (* M (sqrt -1)))) (+ (* 1/2 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (sqrt -1))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))) M)))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (* -1 (* M (+ (sqrt -1) (* -1 (/ (+ (* -1 (/ (+ (* 1/4 (/ (* (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2) (pow (sqrt -1) 2))))) (* M (pow (sqrt -1) 3)))) (* 1/2 (/ (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2) (pow (sqrt -1) 2)))) (sqrt -1)))) M)) (+ (* 1/2 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (sqrt -1))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))) M)))))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))) #s(hole binary64 (* -1 (* M (sqrt -1)))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))) #s(hole binary64 (* -1 (* M (+ (sqrt -1) (* -1/2 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (* M (sqrt -1)))))))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))) #s(hole binary64 (* -1 (* M (+ (sqrt -1) (* -1 (/ (+ (* -1/2 (/ (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2) (pow (sqrt -1) 2)))) (* M (sqrt -1)))) (* 1/2 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (sqrt -1)))) M)))))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))) #s(hole binary64 (* -1 (* M (+ (sqrt -1) (* -1 (/ (+ (* -1 (/ (+ (* 1/4 (/ (* (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2) (pow (sqrt -1) 2))))) (* M (pow (sqrt -1) 3)))) (* 1/2 (/ (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2) (pow (sqrt -1) 2)))) (sqrt -1)))) M)) (* 1/2 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (sqrt -1)))) M)))))))
#s(approx (* (/ c0 (* 2 w)) (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* -1/2 (/ (* M (* c0 (sqrt -1))) w))))
#s(approx (* (/ c0 (* 2 w)) (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* -1 (* M (+ (* -1/2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* M (* h (pow w 2)))))) (* 1/2 (/ (* c0 (sqrt -1)) w)))))))
#s(approx (* (/ c0 (* 2 w)) (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* -1 (* M (+ (* -1 (/ (+ (* -1/4 (/ (* (pow c0 3) (pow d 4)) (* (pow D 4) (* M (* (pow h 2) (* (pow w 3) (sqrt -1))))))) (* 1/2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h (pow w 2)))))) M)) (* 1/2 (/ (* c0 (sqrt -1)) w)))))))
#s(approx (* (/ c0 (* 2 w)) (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* -1 (* M (+ (* -1 (/ (+ (* -1 (/ (+ (* -1/16 (/ (* (pow c0 5) (pow d 8)) (* (pow D 8) (* (pow M 2) (* (pow h 4) (* (pow w 5) (pow (sqrt -1) 3))))))) (* 1/4 (/ (* (pow c0 3) (pow d 4)) (* (pow D 4) (* (pow h 2) (* (pow w 3) (sqrt -1))))))) M)) (* 1/2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h (pow w 2)))))) M)) (* 1/2 (/ (* c0 (sqrt -1)) w)))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (* -1 (* M (sqrt -1)))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (* -1 (* M (+ (sqrt -1) (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* M (* h w))))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (* -1 (* M (+ (sqrt -1) (* -1 (/ (+ (* -1/2 (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* M (* (pow h 2) (* (pow w 2) (sqrt -1))))))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) M)))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (* -1 (* M (+ (sqrt -1) (* -1 (/ (+ (* -1 (/ (+ (* -1/8 (/ (* (pow c0 4) (pow d 8)) (* (pow D 8) (* (pow M 2) (* (pow h 4) (* (pow w 4) (pow (sqrt -1) 3))))))) (* 1/2 (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow h 2) (* (pow w 2) (sqrt -1))))))) M)) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) M)))))))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) #s(hole binary64 (* -1 (* M (sqrt -1)))))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) #s(hole binary64 (* -1 (* M (+ (sqrt -1) (* 1/2 (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow M 2) (* (pow h 2) (* (pow w 2) (sqrt -1))))))))))))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) #s(hole binary64 (* -1 (* M (+ (sqrt -1) (+ (* -1/8 (/ (* (pow c0 4) (pow d 8)) (* (pow D 8) (* (pow M 4) (* (pow h 4) (* (pow w 4) (pow (sqrt -1) 3))))))) (* 1/2 (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow M 2) (* (pow h 2) (* (pow w 2) (sqrt -1)))))))))))))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) #s(hole binary64 (* -1 (* M (+ (sqrt -1) (+ (* -1/8 (/ (* (pow c0 4) (pow d 8)) (* (pow D 8) (* (pow M 4) (* (pow h 4) (* (pow w 4) (pow (sqrt -1) 3))))))) (+ (* 1/16 (/ (* (pow c0 6) (pow d 12)) (* (pow D 12) (* (pow M 6) (* (pow h 6) (* (pow w 6) (pow (sqrt -1) 5))))))) (* 1/2 (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow M 2) (* (pow h 2) (* (pow w 2) (sqrt -1))))))))))))))

Outputs
(.f64 (/.f64 c0 (.f64 #s(literal 2 binary64) w)) #s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (.f64 (.f64 (/.f64 c0 (*.f64 h w)) (ratio-of-squares.f64 d D)) #s(literal 2 binary64))))
(/.f64 (neg.f64 c0) (neg.f64 (*.f64 #s(literal 2 binary64) w)))
(/.f64 c0 (*.f64 #s(literal 2 binary64) w))
c0
(*.f64 #s(literal 2 binary64) w)
#s(literal 2 binary64)
w
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (.f64 (.f64 (/.f64 c0 (*.f64 h w)) (ratio-of-squares.f64 d D)) #s(literal 2 binary64)))
(.f64 (.f64 (/.f64 c0 (*.f64 h w)) (ratio-of-squares.f64 d D)) #s(literal 2 binary64))
(.f64 (/.f64 c0 (.f64 h w)) (ratio-of-squares.f64 d D))
(/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 h w) (*.f64 D D)))
(/.f64 (neg.f64 c0) (neg.f64 (*.f64 h w)))
(/.f64 c0 (*.f64 h w))
(*.f64 h w)
h
(*.f64 (/.f64 d D) (/.f64 d D))
(ratio-of-squares.f64 (neg.f64 d) (neg.f64 D))
(ratio-of-squares.f64 (neg.f64 d) (fabs.f64 D))
(ratio-of-squares.f64 (neg.f64 d) D)
(ratio-of-squares.f64 (fabs.f64 d) (neg.f64 D))
(ratio-of-squares.f64 (fabs.f64 d) (fabs.f64 D))
(ratio-of-squares.f64 (fabs.f64 d) D)
(ratio-of-squares.f64 d (neg.f64 D))
(ratio-of-squares.f64 d (fabs.f64 D))
(ratio-of-squares.f64 d D)
(/.f64 (neg.f64 (.f64 d d)) (neg.f64 (.f64 D D)))
(/.f64 (.f64 d d) (.f64 D D))
d
D
(.f64 (/.f64 c0 (.f64 #s(literal 2 binary64) w)) #s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (*.f64 (sqrt.f64 #s(literal -1 binary64)) M)))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (*.f64 (sqrt.f64 #s(literal -1 binary64)) M))
(*.f64 (sqrt.f64 #s(literal -1 binary64)) M)
(pow.f64 #s(literal -1 binary64) #s(literal 1/2 binary64))
(sqrt.f64 #s(literal -1 binary64))
#s(literal -1 binary64)
M
(.f64 (/.f64 c0 w) (/.f64 (+.f64 (.f64 (/.f64 c0 (.f64 h w)) (ratio-of-squares.f64 d D)) (sqrt-product.f64 (.f64 (/.f64 c0 (*.f64 h w)) (ratio-of-squares.f64 d D)) M)) #s(literal 2 binary64)))
(/.f64 (neg.f64 (.f64 c0 (+.f64 (.f64 (/.f64 c0 (.f64 h w)) (ratio-of-squares.f64 d D)) (sqrt-product.f64 (.f64 (/.f64 c0 (.f64 h w)) (ratio-of-squares.f64 d D)) M)))) (neg.f64 (.f64 w #s(literal 2 binary64))))
(/.f64 (.f64 c0 (+.f64 (.f64 (/.f64 c0 (.f64 h w)) (ratio-of-squares.f64 d D)) (sqrt-product.f64 (.f64 (/.f64 c0 (.f64 h w)) (ratio-of-squares.f64 d D)) M))) (.f64 w #s(literal 2 binary64)))
(.f64 c0 (+.f64 (.f64 (/.f64 c0 (.f64 h w)) (ratio-of-squares.f64 d D)) (sqrt-product.f64 (.f64 (/.f64 c0 (*.f64 h w)) (ratio-of-squares.f64 d D)) M)))
(/.f64 (+.f64 (pow.f64 (.f64 (/.f64 c0 (.f64 h w)) (ratio-of-squares.f64 d D)) #s(literal 3 binary64)) (pow.f64 (sqrt-product.f64 (.f64 (/.f64 c0 (.f64 h w)) (ratio-of-squares.f64 d D)) M) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (/.f64 c0 (.f64 h w)) (ratio-of-squares.f64 d D)) (.f64 (/.f64 c0 (.f64 h w)) (ratio-of-squares.f64 d D))) (-.f64 (.f64 (sqrt-product.f64 (.f64 (/.f64 c0 (.f64 h w)) (ratio-of-squares.f64 d D)) M) (sqrt-product.f64 (.f64 (/.f64 c0 (.f64 h w)) (ratio-of-squares.f64 d D)) M)) (.f64 (.f64 (/.f64 c0 (.f64 h w)) (ratio-of-squares.f64 d D)) (sqrt-product.f64 (.f64 (/.f64 c0 (*.f64 h w)) (ratio-of-squares.f64 d D)) M)))))
(+.f64 (.f64 (/.f64 c0 (.f64 h w)) (ratio-of-squares.f64 d D)) (sqrt-product.f64 (.f64 (/.f64 c0 (.f64 h w)) (ratio-of-squares.f64 d D)) M))
(.f64 (sqrt.f64 (+.f64 (.f64 (/.f64 c0 (.f64 h w)) (ratio-of-squares.f64 d D)) M)) (sqrt.f64 (-.f64 (.f64 (/.f64 c0 (*.f64 h w)) (ratio-of-squares.f64 d D)) M)))
(pow.f64 (.f64 (+.f64 (.f64 (/.f64 c0 (.f64 h w)) (ratio-of-squares.f64 d D)) M) (-.f64 (.f64 (/.f64 c0 (*.f64 h w)) (ratio-of-squares.f64 d D)) M)) #s(literal 1/2 binary64))
(sqrt-product.f64 (.f64 (/.f64 c0 (.f64 h w)) (ratio-of-squares.f64 d D)) M)
(sqrt.f64 (.f64 (+.f64 (.f64 (/.f64 c0 (.f64 h w)) (ratio-of-squares.f64 d D)) M) (-.f64 (.f64 (/.f64 c0 (*.f64 h w)) (ratio-of-squares.f64 d D)) M)))
(*.f64 w #s(literal 2 binary64))
(.f64 (/.f64 c0 (.f64 #s(literal 2 binary64) w)) (+.f64 (.f64 (/.f64 c0 (.f64 h w)) (ratio-of-squares.f64 d D)) (sqrt.f64 (-.f64 (pow.f64 (.f64 (/.f64 c0 (.f64 w h)) (ratio-of-squares.f64 d D)) #s(literal 2 binary64)) (*.f64 M M)))))
(/.f64 (+.f64 (pow.f64 (.f64 (/.f64 c0 (.f64 h w)) (ratio-of-squares.f64 d D)) #s(literal 3 binary64)) (pow.f64 (sqrt.f64 (-.f64 (pow.f64 (.f64 (/.f64 c0 (.f64 w h)) (ratio-of-squares.f64 d D)) #s(literal 2 binary64)) (.f64 M M))) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (/.f64 c0 (.f64 h w)) (ratio-of-squares.f64 d D)) (.f64 (/.f64 c0 (.f64 h w)) (ratio-of-squares.f64 d D))) (-.f64 (.f64 (sqrt.f64 (-.f64 (pow.f64 (.f64 (/.f64 c0 (.f64 w h)) (ratio-of-squares.f64 d D)) #s(literal 2 binary64)) (.f64 M M))) (sqrt.f64 (-.f64 (pow.f64 (.f64 (/.f64 c0 (.f64 w h)) (ratio-of-squares.f64 d D)) #s(literal 2 binary64)) (.f64 M M)))) (.f64 (.f64 (/.f64 c0 (.f64 h w)) (ratio-of-squares.f64 d D)) (sqrt.f64 (-.f64 (pow.f64 (.f64 (/.f64 c0 (.f64 w h)) (ratio-of-squares.f64 d D)) #s(literal 2 binary64)) (*.f64 M M)))))))
(+.f64 (.f64 (/.f64 c0 (.f64 h w)) (ratio-of-squares.f64 d D)) (sqrt.f64 (-.f64 (pow.f64 (.f64 (/.f64 c0 (.f64 w h)) (ratio-of-squares.f64 d D)) #s(literal 2 binary64)) (*.f64 M M))))
(pow.f64 (-.f64 (pow.f64 (.f64 (/.f64 c0 (.f64 w h)) (ratio-of-squares.f64 d D)) #s(literal 2 binary64)) (*.f64 M M)) #s(literal 1/2 binary64))
(sqrt.f64 (-.f64 (pow.f64 (.f64 (/.f64 c0 (.f64 w h)) (ratio-of-squares.f64 d D)) #s(literal 2 binary64)) (*.f64 M M)))
(-.f64 (pow.f64 (.f64 (/.f64 c0 (.f64 w h)) (ratio-of-squares.f64 d D)) #s(literal 2 binary64)) (*.f64 M M))
(.f64 (neg.f64 (.f64 (/.f64 c0 (.f64 w h)) (ratio-of-squares.f64 d D))) (neg.f64 (.f64 (/.f64 c0 (*.f64 w h)) (ratio-of-squares.f64 d D))))
(.f64 (fabs.f64 (.f64 (/.f64 c0 (.f64 w h)) (ratio-of-squares.f64 d D))) (fabs.f64 (.f64 (/.f64 c0 (*.f64 w h)) (ratio-of-squares.f64 d D))))
(.f64 (.f64 (/.f64 c0 (.f64 w h)) (ratio-of-squares.f64 d D)) (.f64 (/.f64 c0 (*.f64 w h)) (ratio-of-squares.f64 d D)))
(ratio-of-squares.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 w h) (*.f64 D D)))
(pow.f64 (.f64 (/.f64 c0 (.f64 w h)) (ratio-of-squares.f64 d D)) #s(literal 2 binary64))
(/.f64 (.f64 (.f64 c0 (.f64 d d)) (.f64 c0 (.f64 d d))) (.f64 (.f64 (.f64 w h) (.f64 D D)) (.f64 (.f64 w h) (.f64 D D))))
(.f64 (/.f64 c0 (.f64 w h)) (ratio-of-squares.f64 d D))
(/.f64 (neg.f64 (.f64 c0 (.f64 d d))) (neg.f64 (.f64 (.f64 w h) (*.f64 D D))))
(/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 w h) (*.f64 D D)))
(.f64 c0 (.f64 d d))
(*.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 w h) (*.f64 D D))
(*.f64 w h)
(*.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 (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(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (/.f64 (+.f64 (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) h)) (.f64 (/.f64 (.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) (.f64 (.f64 w w) h)) (.f64 d d)) #s(literal -1/4 binary64))) (*.f64 w w)))
(/.f64 (neg.f64 (+.f64 (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) h)) (.f64 (/.f64 (.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) (.f64 (.f64 w w) h)) (.f64 d d)) #s(literal -1/4 binary64)))) (neg.f64 (*.f64 w w)))
(/.f64 (+.f64 (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) h)) (.f64 (/.f64 (.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) (.f64 (.f64 w w) h)) (.f64 d d)) #s(literal -1/4 binary64))) (*.f64 w w))
(+.f64 (/.f64 (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) h)) (.f64 w w)) (/.f64 (.f64 (/.f64 (.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) (.f64 (.f64 w w) h)) (.f64 d d)) #s(literal -1/4 binary64)) (.f64 w w)))
(/.f64 (+.f64 (pow.f64 (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) h)) #s(literal 3 binary64)) (pow.f64 (.f64 (/.f64 (.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) (.f64 (.f64 w w) h)) (.f64 d d)) #s(literal -1/4 binary64)) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) h)) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) h))) (-.f64 (.f64 (.f64 (/.f64 (.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) (.f64 (.f64 w w) h)) (.f64 d d)) #s(literal -1/4 binary64)) (.f64 (/.f64 (.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) (.f64 (.f64 w w) h)) (.f64 d d)) #s(literal -1/4 binary64))) (.f64 (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) h)) (.f64 (/.f64 (.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) (.f64 (.f64 w w) h)) (*.f64 d d)) #s(literal -1/4 binary64))))))
(+.f64 (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) h)) (.f64 (/.f64 (.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) (.f64 (.f64 w w) h)) (.f64 d d)) #s(literal -1/4 binary64)))
(.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) h))
(/.f64 (neg.f64 (pow.f64 (.f64 c0 d) #s(literal 2 binary64))) (neg.f64 (.f64 (*.f64 D D) h)))
(/.f64 (pow.f64 (.f64 c0 d) #s(literal 2 binary64)) (.f64 (*.f64 D D) h))
(*.f64 (/.f64 c0 D) (/.f64 c0 D))
(ratio-of-squares.f64 (neg.f64 c0) (neg.f64 D))
(ratio-of-squares.f64 (neg.f64 c0) (fabs.f64 D))
(ratio-of-squares.f64 (neg.f64 c0) D)
(ratio-of-squares.f64 (fabs.f64 c0) (neg.f64 D))
(ratio-of-squares.f64 (fabs.f64 c0) (fabs.f64 D))
(ratio-of-squares.f64 (fabs.f64 c0) D)
(ratio-of-squares.f64 c0 (neg.f64 D))
(ratio-of-squares.f64 c0 (fabs.f64 D))
(ratio-of-squares.f64 c0 D)
(/.f64 (neg.f64 (.f64 c0 c0)) (neg.f64 (.f64 D D)))
(/.f64 (.f64 c0 c0) (.f64 D D))
(/.f64 (neg.f64 (*.f64 d d)) (neg.f64 h))
(/.f64 (*.f64 d d) h)
(.f64 (/.f64 (.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) (.f64 (.f64 w w) h)) (.f64 d d)) #s(literal -1/4 binary64))
(.f64 (/.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) d) (/.f64 (.f64 (.f64 w w) h) d))
(/.f64 (neg.f64 (.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) (.f64 (.f64 w w) h))) (neg.f64 (*.f64 d d)))
(/.f64 (.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) (.f64 (.f64 w w) h)) (*.f64 d d))
(.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) (.f64 (.f64 w w) h))
(.f64 (.f64 D M) (*.f64 D M))
(.f64 (.f64 D D) (*.f64 M M))
(pow.f64 (*.f64 D M) #s(literal 2 binary64))
(exp.f64 (.f64 (log.f64 (.f64 D M)) #s(literal 2 binary64)))
(*.f64 D M)
(.f64 (.f64 w w) h)
(*.f64 (neg.f64 w) (neg.f64 w))
(*.f64 (fabs.f64 w) (fabs.f64 w))
(*.f64 w w)
(pow.f64 w #s(literal 2 binary64))
(exp.f64 (*.f64 (log.f64 w) #s(literal 2 binary64)))
#s(literal -1/4 binary64)
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 M (*.f64 c0 (sqrt.f64 #s(literal -1 binary64)))) w)))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (.f64 c0 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 M (sqrt.f64 #s(literal -1 binary64))) w)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h (.f64 w w))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (.f64 c0 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 M (sqrt.f64 #s(literal -1 binary64))) w)) (.f64 c0 (+.f64 (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 c0 (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 M (.f64 (.f64 h h) (.f64 (pow.f64 w #s(literal 3 binary64)) (sqrt.f64 #s(literal -1 binary64)))))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 d d) (.f64 (.f64 D D) (.f64 h (.f64 w w))))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (.f64 c0 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 M (sqrt.f64 #s(literal -1 binary64))) w)) (.f64 c0 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 d d) (.f64 (.f64 D D) (.f64 h (.f64 w w))))) (.f64 c0 (+.f64 (.f64 #s(literal -1/16 binary64) (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 8 binary64))) (/.f64 (pow.f64 d #s(literal 8 binary64)) (.f64 (pow.f64 M #s(literal 3 binary64)) (.f64 (pow.f64 h #s(literal 4 binary64)) (.f64 (pow.f64 w #s(literal 5 binary64)) (pow.f64 #s(literal -1 binary64) #s(literal 3/2 binary64)))))))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 M (.f64 (.f64 h h) (*.f64 (pow.f64 w #s(literal 3 binary64)) (sqrt.f64 #s(literal -1 binary64)))))))))))))))
#s(approx (/ c0 (* 2 w)) (*.f64 #s(literal 1/2 binary64) (/.f64 c0 w)))
#s(approx c0 c0)
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (*.f64 M (sqrt.f64 #s(literal -1 binary64))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (+.f64 (.f64 M (sqrt.f64 #s(literal -1 binary64))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (+.f64 (.f64 M (sqrt.f64 #s(literal -1 binary64))) (.f64 c0 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 c0 (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 M (.f64 (.f64 h h) (.f64 (.f64 w w) (sqrt.f64 #s(literal -1 binary64)))))))) (/.f64 (.f64 d d) (.f64 (.f64 D D) (*.f64 h w)))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (+.f64 (.f64 M (sqrt.f64 #s(literal -1 binary64))) (.f64 c0 (+.f64 (.f64 c0 (+.f64 (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 8 binary64))) (/.f64 (pow.f64 d #s(literal 8 binary64)) (.f64 (pow.f64 M #s(literal 3 binary64)) (.f64 (pow.f64 h #s(literal 4 binary64)) (.f64 (pow.f64 w #s(literal 4 binary64)) (pow.f64 #s(literal -1 binary64) #s(literal 3/2 binary64)))))))) (.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 M (.f64 (.f64 h h) (.f64 (.f64 w w) (sqrt.f64 #s(literal -1 binary64)))))))))) (/.f64 (.f64 d d) (.f64 (.f64 D D) (.f64 h w)))))))
#s(approx (* (* (/ c0 (* h w)) (/ (* d d) (* D D))) 2) (.f64 #s(literal 2 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))))
#s(approx (* (/ c0 (* h w)) (/ (* d d) (* D D))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (*.f64 h w))))
#s(approx (/ c0 (* h w)) (/.f64 c0 (*.f64 h w)))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 M (*.f64 c0 (sqrt.f64 #s(literal -1 binary64)))) w)))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (.f64 c0 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 c0 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (.f64 M (.f64 w (sqrt.f64 #s(literal -1 binary64)))))) (/.f64 (.f64 d d) (.f64 (.f64 D D) (.f64 h (.f64 w w))))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 M (sqrt.f64 #s(literal -1 binary64))) w)))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (.f64 c0 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 M (sqrt.f64 #s(literal -1 binary64))) w)) (.f64 c0 (+.f64 (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 c0 M) (/.f64 (-.f64 (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 (pow.f64 D #s(literal 4 binary64)) (pow.f64 (.f64 h w) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64))))) (.f64 w (sqrt.f64 #s(literal -1 binary64)))))) (.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (.f64 M (.f64 w (sqrt.f64 #s(literal -1 binary64)))))) (/.f64 (.f64 d d) (.f64 (.f64 D D) (.f64 h (*.f64 w w)))))))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (.f64 c0 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 M (sqrt.f64 #s(literal -1 binary64))) w)) (.f64 c0 (+.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (.f64 M (.f64 w (sqrt.f64 #s(literal -1 binary64)))))) (/.f64 (.f64 d d) (.f64 (.f64 D D) (.f64 h (.f64 w w)))))) (.f64 c0 (+.f64 (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 c0 (pow.f64 M #s(literal 3 binary64))) (/.f64 (.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (-.f64 (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 (pow.f64 D #s(literal 4 binary64)) (pow.f64 (.f64 h w) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64)))))) (.f64 w (pow.f64 #s(literal -1 binary64) #s(literal 3/2 binary64)))))) (.f64 #s(literal 1/4 binary64) (/.f64 (-.f64 (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 (pow.f64 D #s(literal 4 binary64)) (pow.f64 (.f64 h w) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64))))) (.f64 M (*.f64 w (sqrt.f64 #s(literal -1 binary64)))))))))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (.f64 M (.f64 c0 (sqrt.f64 #s(literal -1 binary64)))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (.f64 c0 (+.f64 (.f64 M (sqrt.f64 #s(literal -1 binary64))) (.f64 c0 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (.f64 M (sqrt.f64 #s(literal -1 binary64))))) (/.f64 (.f64 d d) (.f64 (.f64 D D) (.f64 h w))))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (.f64 c0 (+.f64 (.f64 M (sqrt.f64 #s(literal -1 binary64))) (.f64 c0 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 c0 M) (/.f64 (-.f64 (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 (pow.f64 D #s(literal 4 binary64)) (pow.f64 (.f64 h w) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64))))) (sqrt.f64 #s(literal -1 binary64))))) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (.f64 M (sqrt.f64 #s(literal -1 binary64))))) (/.f64 (.f64 d d) (.f64 (.f64 D D) (.f64 h w)))))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (.f64 c0 (+.f64 (.f64 M (sqrt.f64 #s(literal -1 binary64))) (.f64 c0 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (.f64 M (sqrt.f64 #s(literal -1 binary64))))) (+.f64 (.f64 c0 (+.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 c0 (.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (-.f64 (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 (pow.f64 D #s(literal 4 binary64)) (pow.f64 (.f64 h w) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64))))))) (pow.f64 (.f64 M (sqrt.f64 #s(literal -1 binary64))) #s(literal 3 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 (pow.f64 D #s(literal 4 binary64)) (pow.f64 (.f64 h w) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64))))) (.f64 M (sqrt.f64 #s(literal -1 binary64))))))) (/.f64 (.f64 d d) (.f64 (.f64 D D) (.f64 h w)))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) (*.f64 M (sqrt.f64 #s(literal -1 binary64))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) (+.f64 (.f64 M (sqrt.f64 #s(literal -1 binary64))) (.f64 c0 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (.f64 M (sqrt.f64 #s(literal -1 binary64))))) (/.f64 (.f64 d d) (.f64 (.f64 D D) (*.f64 h w)))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) (+.f64 (.f64 M (sqrt.f64 #s(literal -1 binary64))) (.f64 c0 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 c0 M) (/.f64 (-.f64 (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 (pow.f64 D #s(literal 4 binary64)) (pow.f64 (.f64 h w) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64))))) (sqrt.f64 #s(literal -1 binary64))))) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (.f64 M (sqrt.f64 #s(literal -1 binary64))))) (/.f64 (.f64 d d) (.f64 (.f64 D D) (*.f64 h w))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) (+.f64 (.f64 M (sqrt.f64 #s(literal -1 binary64))) (.f64 c0 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (.f64 M (sqrt.f64 #s(literal -1 binary64))))) (+.f64 (.f64 c0 (+.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 c0 (.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (-.f64 (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 (pow.f64 D #s(literal 4 binary64)) (pow.f64 (.f64 h w) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64))))))) (pow.f64 (.f64 M (sqrt.f64 #s(literal -1 binary64))) #s(literal 3 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 (pow.f64 D #s(literal 4 binary64)) (pow.f64 (.f64 h w) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64))))) (.f64 M (sqrt.f64 #s(literal -1 binary64))))))) (/.f64 (.f64 d d) (.f64 (.f64 D D) (*.f64 h w))))))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))) (*.f64 M (sqrt.f64 #s(literal -1 binary64))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 c0 M) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (sqrt.f64 #s(literal -1 binary64))))) (.f64 M (sqrt.f64 #s(literal -1 binary64)))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))) (+.f64 (.f64 M (sqrt.f64 #s(literal -1 binary64))) (.f64 c0 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 c0 M) (/.f64 (-.f64 (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 (pow.f64 D #s(literal 4 binary64)) (pow.f64 (.f64 h w) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64))))) (sqrt.f64 #s(literal -1 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (*.f64 M (sqrt.f64 #s(literal -1 binary64)))))))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))) (+.f64 (.f64 M (sqrt.f64 #s(literal -1 binary64))) (.f64 c0 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (.f64 M (sqrt.f64 #s(literal -1 binary64))))) (.f64 c0 (+.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 c0 (.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (-.f64 (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 (pow.f64 D #s(literal 4 binary64)) (pow.f64 (.f64 h w) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64))))))) (pow.f64 (.f64 M (sqrt.f64 #s(literal -1 binary64))) #s(literal 3 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 (pow.f64 D #s(literal 4 binary64)) (pow.f64 (.f64 h w) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64))))) (*.f64 M (sqrt.f64 #s(literal -1 binary64)))))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 M (*.f64 c0 (sqrt.f64 #s(literal -1 binary64)))) w)))
#s(approx (* (/ c0 (* 2 w)) (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (.f64 c0 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 M (sqrt.f64 #s(literal -1 binary64))) w)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h (.f64 w w))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (.f64 c0 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 M (sqrt.f64 #s(literal -1 binary64))) w)) (.f64 c0 (+.f64 (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 c0 (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 M (.f64 (.f64 h h) (.f64 (pow.f64 w #s(literal 3 binary64)) (sqrt.f64 #s(literal -1 binary64)))))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 d d) (.f64 (.f64 D D) (.f64 h (.f64 w w))))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (.f64 c0 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 M (sqrt.f64 #s(literal -1 binary64))) w)) (.f64 c0 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 d d) (.f64 (.f64 D D) (.f64 h (.f64 w w))))) (.f64 c0 (+.f64 (.f64 #s(literal -1/16 binary64) (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 8 binary64))) (/.f64 (pow.f64 d #s(literal 8 binary64)) (.f64 (pow.f64 M #s(literal 3 binary64)) (.f64 (pow.f64 h #s(literal 4 binary64)) (.f64 (pow.f64 w #s(literal 5 binary64)) (pow.f64 #s(literal -1 binary64) #s(literal 3/2 binary64)))))))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 M (.f64 (.f64 h h) (*.f64 (pow.f64 w #s(literal 3 binary64)) (sqrt.f64 #s(literal -1 binary64)))))))))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (*.f64 M (sqrt.f64 #s(literal -1 binary64))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (+.f64 (.f64 M (sqrt.f64 #s(literal -1 binary64))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (+.f64 (.f64 M (sqrt.f64 #s(literal -1 binary64))) (.f64 c0 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 c0 (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 M (.f64 (.f64 h h) (.f64 (.f64 w w) (sqrt.f64 #s(literal -1 binary64)))))))) (/.f64 (.f64 d d) (.f64 (.f64 D D) (*.f64 h w)))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (+.f64 (.f64 M (sqrt.f64 #s(literal -1 binary64))) (.f64 c0 (+.f64 (.f64 c0 (+.f64 (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 8 binary64))) (/.f64 (pow.f64 d #s(literal 8 binary64)) (.f64 (pow.f64 M #s(literal 3 binary64)) (.f64 (pow.f64 h #s(literal 4 binary64)) (.f64 (pow.f64 w #s(literal 4 binary64)) (pow.f64 #s(literal -1 binary64) #s(literal 3/2 binary64)))))))) (.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 M (.f64 (.f64 h h) (.f64 (.f64 w w) (sqrt.f64 #s(literal -1 binary64)))))))))) (/.f64 (.f64 d d) (.f64 (.f64 D D) (.f64 h w)))))))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) (*.f64 M (sqrt.f64 #s(literal -1 binary64))))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 M (.f64 (.f64 h h) (.f64 (.f64 w w) (sqrt.f64 #s(literal -1 binary64)))))))) (*.f64 M (sqrt.f64 #s(literal -1 binary64)))))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) (+.f64 (.f64 M (sqrt.f64 #s(literal -1 binary64))) (.f64 (.f64 c0 c0) (+.f64 (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 8 binary64))) (/.f64 (pow.f64 d #s(literal 8 binary64)) (.f64 (pow.f64 M #s(literal 3 binary64)) (.f64 (pow.f64 h #s(literal 4 binary64)) (.f64 (pow.f64 w #s(literal 4 binary64)) (pow.f64 #s(literal -1 binary64) #s(literal 3/2 binary64)))))))) (.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 M (.f64 (.f64 h h) (.f64 (.f64 w w) (sqrt.f64 #s(literal -1 binary64))))))))))))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) (+.f64 (.f64 M (sqrt.f64 #s(literal -1 binary64))) (.f64 (.f64 c0 c0) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 M (.f64 (.f64 h h) (.f64 (.f64 w w) (sqrt.f64 #s(literal -1 binary64)))))))) (.f64 (.f64 c0 c0) (+.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 d #s(literal 8 binary64)) (.f64 (pow.f64 D #s(literal 8 binary64)) (.f64 (pow.f64 M #s(literal 3 binary64)) (.f64 (pow.f64 h #s(literal 4 binary64)) (.f64 (pow.f64 w #s(literal 4 binary64)) (pow.f64 #s(literal -1 binary64) #s(literal 3/2 binary64)))))))) (.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 12 binary64))) (/.f64 (pow.f64 d #s(literal 12 binary64)) (.f64 (pow.f64 M #s(literal 5 binary64)) (.f64 (pow.f64 h #s(literal 6 binary64)) (*.f64 (pow.f64 w #s(literal 6 binary64)) (pow.f64 #s(literal -1 binary64) #s(literal 5/2 binary64))))))))))))))
#s(approx (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)) (.f64 #s(literal -1 binary64) (.f64 M M)))
#s(approx (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)) (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (pow.f64 (.f64 h w) #s(literal 2 binary64)))) (.f64 M M)))
#s(approx (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (pow.f64 (*.f64 h w) #s(literal 2 binary64)))))
#s(approx (/ (* c0 (* d d)) (* (* w h) (* D D))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (*.f64 h w))))
#s(approx (* c0 (* d d)) (.f64 c0 (.f64 d d)))
#s(approx (/ (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (* w w)) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 D D) (.f64 (.f64 M M) h)) (.f64 d d))))
#s(approx (/ (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (* w w)) (+.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 D D) (.f64 (.f64 M M) h)) (.f64 d d))) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) (.f64 h (.f64 w w))))))
#s(approx (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 D D) (.f64 (.f64 M M) (.f64 h (.f64 w w)))) (.f64 d d))))
#s(approx (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (+.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 D D) (.f64 (.f64 M M) (.f64 h (.f64 w w)))) (.f64 d d))) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) h))))
#s(approx (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) h)))
#s(approx (/ (* c0 c0) (* D D)) (ratio-of-squares.f64 c0 D))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) (.f64 h (.f64 w w)))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (.f64 (.f64 c0 c0) (+.f64 (.f64 #s(literal -1/4 binary64) (.f64 (ratio-of-squares.f64 D c0) (/.f64 (.f64 (.f64 M M) h) (.f64 d d)))) (/.f64 (.f64 d d) (.f64 (.f64 D D) (.f64 h (.f64 w w)))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (.f64 (.f64 c0 c0) (+.f64 (.f64 #s(literal -1/4 binary64) (.f64 (ratio-of-squares.f64 D c0) (/.f64 (.f64 (.f64 M M) h) (.f64 d d)))) (+.f64 (.f64 #s(literal -1/16 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (pow.f64 c0 #s(literal 4 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (.f64 (pow.f64 h #s(literal 3 binary64)) (.f64 w w))) (pow.f64 d #s(literal 6 binary64))))) (/.f64 (.f64 d d) (.f64 (.f64 D D) (.f64 h (*.f64 w w))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (.f64 (.f64 c0 c0) (+.f64 (.f64 #s(literal -1/4 binary64) (.f64 (ratio-of-squares.f64 D c0) (/.f64 (.f64 (.f64 M M) h) (.f64 d d)))) (+.f64 (.f64 #s(literal -1/16 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (pow.f64 c0 #s(literal 4 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (.f64 (pow.f64 h #s(literal 3 binary64)) (.f64 w w))) (pow.f64 d #s(literal 6 binary64))))) (+.f64 (.f64 #s(literal -1/32 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 10 binary64)) (pow.f64 c0 #s(literal 6 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 6 binary64)) (.f64 (pow.f64 h #s(literal 5 binary64)) (pow.f64 w #s(literal 4 binary64)))) (pow.f64 d #s(literal 10 binary64))))) (/.f64 (.f64 d d) (.f64 (.f64 D D) (.f64 h (*.f64 w w)))))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (.f64 #s(literal 2 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (.f64 c0 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (ratio-of-squares.f64 D c0) (/.f64 (.f64 (.f64 M M) (.f64 h w)) (.f64 d d)))) (.f64 #s(literal 2 binary64) (/.f64 (.f64 d d) (.f64 (.f64 D D) (.f64 h w)))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (.f64 c0 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (ratio-of-squares.f64 D c0) (/.f64 (.f64 (.f64 M M) (.f64 h w)) (.f64 d d)))) (+.f64 (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (pow.f64 c0 #s(literal 4 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (pow.f64 (.f64 h w) #s(literal 3 binary64))) (pow.f64 d #s(literal 6 binary64))))) (.f64 #s(literal 2 binary64) (/.f64 (.f64 d d) (.f64 (.f64 D D) (.f64 h w))))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (.f64 c0 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (ratio-of-squares.f64 D c0) (/.f64 (.f64 (.f64 M M) (.f64 h w)) (.f64 d d)))) (+.f64 (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (pow.f64 c0 #s(literal 4 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (pow.f64 (.f64 h w) #s(literal 3 binary64))) (pow.f64 d #s(literal 6 binary64))))) (+.f64 (.f64 #s(literal -1/16 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 10 binary64)) (pow.f64 c0 #s(literal 6 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 6 binary64)) (pow.f64 (.f64 h w) #s(literal 5 binary64))) (pow.f64 d #s(literal 10 binary64))))) (.f64 #s(literal 2 binary64) (/.f64 (.f64 d d) (.f64 (.f64 D D) (.f64 h w)))))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) (.f64 h (.f64 w w)))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (.f64 (.f64 c0 c0) (+.f64 (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (.f64 D D) c0) (/.f64 (.f64 h (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))) (.f64 d d)))) (/.f64 (.f64 d d) (.f64 (.f64 D D) (.f64 h (*.f64 w w)))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (.f64 (.f64 c0 c0) (+.f64 (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (.f64 D D) c0) (/.f64 (.f64 h (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))) (.f64 d d)))) (+.f64 (.f64 #s(literal 1/4 binary64) (.f64 (ratio-of-squares.f64 D c0) (/.f64 (.f64 h (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 (.f64 h h) (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))) #s(literal 2 binary64)))) (pow.f64 d #s(literal 4 binary64)))))) (.f64 d d)))) (/.f64 (.f64 d d) (.f64 (.f64 D D) (.f64 h (*.f64 w w))))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (.f64 (.f64 c0 c0) (+.f64 (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (pow.f64 c0 #s(literal 3 binary64))) (/.f64 (.f64 (pow.f64 h #s(literal 3 binary64)) (.f64 (.f64 w w) (.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 (.f64 h h) (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))) #s(literal 2 binary64)))) (pow.f64 d #s(literal 4 binary64)))))))) (pow.f64 d #s(literal 6 binary64))))) (+.f64 (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (.f64 D D) c0) (/.f64 (.f64 h (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))) (.f64 d d)))) (+.f64 (.f64 #s(literal 1/4 binary64) (.f64 (ratio-of-squares.f64 D c0) (/.f64 (.f64 h (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 (.f64 h h) (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))) #s(literal 2 binary64)))) (pow.f64 d #s(literal 4 binary64)))))) (.f64 d d)))) (/.f64 (.f64 d d) (.f64 (.f64 D D) (.f64 h (.f64 w w)))))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (.f64 #s(literal 2 binary64) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) (.f64 h w)))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (.f64 (.f64 c0 c0) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 D D) c0) (/.f64 (.f64 h (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))))) (.f64 d d)))) (.f64 #s(literal 2 binary64) (/.f64 (.f64 d d) (.f64 (.f64 D D) (.f64 h w)))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (.f64 (.f64 c0 c0) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 D D) c0) (/.f64 (.f64 h (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))))) (.f64 d d)))) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (ratio-of-squares.f64 D c0) (/.f64 (.f64 h (.f64 w (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 (.f64 h h) (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))) #s(literal 2 binary64)))) (pow.f64 d #s(literal 4 binary64))))))) (.f64 d d)))) (.f64 #s(literal 2 binary64) (/.f64 (.f64 d d) (.f64 (.f64 D D) (*.f64 h w))))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (.f64 (.f64 c0 c0) (+.f64 (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (pow.f64 c0 #s(literal 3 binary64))) (/.f64 (.f64 (pow.f64 h #s(literal 3 binary64)) (.f64 (pow.f64 w #s(literal 3 binary64)) (.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 (.f64 h h) (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))) #s(literal 2 binary64)))) (pow.f64 d #s(literal 4 binary64)))))))) (pow.f64 d #s(literal 6 binary64))))) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 D D) c0) (/.f64 (.f64 h (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))))) (.f64 d d)))) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (ratio-of-squares.f64 D c0) (/.f64 (.f64 h (.f64 w (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 (.f64 h h) (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))) #s(literal 2 binary64)))) (pow.f64 d #s(literal 4 binary64))))))) (.f64 d d)))) (.f64 #s(literal 2 binary64) (/.f64 (.f64 d d) (.f64 (.f64 D D) (*.f64 h w)))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) (.f64 #s(literal 2 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) (.f64 c0 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 D D) c0) (/.f64 (.f64 h (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))))) (.f64 d d)))) (.f64 #s(literal 2 binary64) (/.f64 (.f64 d d) (.f64 (.f64 D D) (*.f64 h w)))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) (.f64 c0 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 D D) c0) (/.f64 (.f64 h (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))))) (.f64 d d)))) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (ratio-of-squares.f64 D c0) (/.f64 (.f64 h (.f64 w (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 (.f64 h h) (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))) #s(literal 2 binary64)))) (pow.f64 d #s(literal 4 binary64))))))) (.f64 d d)))) (.f64 #s(literal 2 binary64) (/.f64 (.f64 d d) (.f64 (.f64 D D) (.f64 h w))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) (.f64 c0 (+.f64 (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (pow.f64 c0 #s(literal 3 binary64))) (/.f64 (.f64 (pow.f64 h #s(literal 3 binary64)) (.f64 (pow.f64 w #s(literal 3 binary64)) (.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 (.f64 h h) (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))) #s(literal 2 binary64)))) (pow.f64 d #s(literal 4 binary64)))))))) (pow.f64 d #s(literal 6 binary64))))) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 D D) c0) (/.f64 (.f64 h (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))))) (.f64 d d)))) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (ratio-of-squares.f64 D c0) (/.f64 (.f64 h (.f64 w (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 (.f64 h h) (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))) #s(literal 2 binary64)))) (pow.f64 d #s(literal 4 binary64))))))) (.f64 d d)))) (.f64 #s(literal 2 binary64) (/.f64 (.f64 d d) (.f64 (.f64 D D) (.f64 h w)))))))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (*.f64 h w))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))) (.f64 c0 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 D D) c0) (/.f64 (.f64 h (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))))) (.f64 d d)))) (/.f64 (.f64 d d) (.f64 (.f64 D D) (.f64 h w))))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))) (.f64 c0 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 D D) c0) (/.f64 (.f64 h (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))))) (.f64 d d)))) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (ratio-of-squares.f64 D c0) (/.f64 (.f64 h (.f64 w (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 (.f64 h h) (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))) #s(literal 2 binary64)))) (pow.f64 d #s(literal 4 binary64))))))) (.f64 d d)))) (/.f64 (.f64 d d) (.f64 (.f64 D D) (*.f64 h w)))))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))) (.f64 c0 (+.f64 (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (pow.f64 c0 #s(literal 3 binary64))) (/.f64 (.f64 (pow.f64 h #s(literal 3 binary64)) (.f64 (pow.f64 w #s(literal 3 binary64)) (.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 (.f64 h h) (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))) #s(literal 2 binary64)))) (pow.f64 d #s(literal 4 binary64)))))))) (pow.f64 d #s(literal 6 binary64))))) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 D D) c0) (/.f64 (.f64 h (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))))) (.f64 d d)))) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (ratio-of-squares.f64 D c0) (/.f64 (.f64 h (.f64 w (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 (.f64 h h) (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))) #s(literal 2 binary64)))) (pow.f64 d #s(literal 4 binary64))))))) (.f64 d d)))) (/.f64 (.f64 d d) (.f64 (.f64 D D) (*.f64 h w))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) (.f64 h (.f64 w w)))))
#s(approx (* (/ c0 (* 2 w)) (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (.f64 (.f64 c0 c0) (+.f64 (.f64 #s(literal -1/4 binary64) (.f64 (ratio-of-squares.f64 D c0) (/.f64 (.f64 (.f64 M M) h) (.f64 d d)))) (/.f64 (.f64 d d) (.f64 (.f64 D D) (.f64 h (.f64 w w)))))))
#s(approx (* (/ c0 (* 2 w)) (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (.f64 (.f64 c0 c0) (+.f64 (.f64 #s(literal -1/4 binary64) (.f64 (ratio-of-squares.f64 D c0) (/.f64 (.f64 (.f64 M M) h) (.f64 d d)))) (+.f64 (.f64 #s(literal -1/16 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (pow.f64 c0 #s(literal 4 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (.f64 (pow.f64 h #s(literal 3 binary64)) (.f64 w w))) (pow.f64 d #s(literal 6 binary64))))) (/.f64 (.f64 d d) (.f64 (.f64 D D) (.f64 h (*.f64 w w))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (.f64 (.f64 c0 c0) (+.f64 (.f64 #s(literal -1/4 binary64) (.f64 (ratio-of-squares.f64 D c0) (/.f64 (.f64 (.f64 M M) h) (.f64 d d)))) (+.f64 (.f64 #s(literal -1/16 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (pow.f64 c0 #s(literal 4 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (.f64 (pow.f64 h #s(literal 3 binary64)) (.f64 w w))) (pow.f64 d #s(literal 6 binary64))))) (+.f64 (.f64 #s(literal -1/32 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 10 binary64)) (pow.f64 c0 #s(literal 6 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 6 binary64)) (.f64 (pow.f64 h #s(literal 5 binary64)) (pow.f64 w #s(literal 4 binary64)))) (pow.f64 d #s(literal 10 binary64))))) (/.f64 (.f64 d d) (.f64 (.f64 D D) (.f64 h (*.f64 w w)))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (.f64 #s(literal 2 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (.f64 c0 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (ratio-of-squares.f64 D c0) (/.f64 (.f64 (.f64 M M) (.f64 h w)) (.f64 d d)))) (.f64 #s(literal 2 binary64) (/.f64 (.f64 d d) (.f64 (.f64 D D) (.f64 h w)))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (.f64 c0 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (ratio-of-squares.f64 D c0) (/.f64 (.f64 (.f64 M M) (.f64 h w)) (.f64 d d)))) (+.f64 (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (pow.f64 c0 #s(literal 4 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (pow.f64 (.f64 h w) #s(literal 3 binary64))) (pow.f64 d #s(literal 6 binary64))))) (.f64 #s(literal 2 binary64) (/.f64 (.f64 d d) (.f64 (.f64 D D) (.f64 h w))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (.f64 c0 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (ratio-of-squares.f64 D c0) (/.f64 (.f64 (.f64 M M) (.f64 h w)) (.f64 d d)))) (+.f64 (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (pow.f64 c0 #s(literal 4 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (pow.f64 (.f64 h w) #s(literal 3 binary64))) (pow.f64 d #s(literal 6 binary64))))) (+.f64 (.f64 #s(literal -1/16 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 10 binary64)) (pow.f64 c0 #s(literal 6 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 6 binary64)) (pow.f64 (.f64 h w) #s(literal 5 binary64))) (pow.f64 d #s(literal 10 binary64))))) (.f64 #s(literal 2 binary64) (/.f64 (.f64 d d) (.f64 (.f64 D D) (.f64 h w)))))))))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (*.f64 h w))))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) (.f64 c0 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (ratio-of-squares.f64 D c0) (/.f64 (.f64 (.f64 M M) (.f64 h w)) (.f64 d d)))) (/.f64 (.f64 d d) (.f64 (.f64 D D) (*.f64 h w))))))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) (.f64 c0 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (ratio-of-squares.f64 D c0) (/.f64 (.f64 (.f64 M M) (.f64 h w)) (.f64 d d)))) (+.f64 (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (pow.f64 c0 #s(literal 4 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (pow.f64 (.f64 h w) #s(literal 3 binary64))) (pow.f64 d #s(literal 6 binary64))))) (/.f64 (.f64 d d) (.f64 (.f64 D D) (*.f64 h w)))))))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) (.f64 c0 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (ratio-of-squares.f64 D c0) (/.f64 (.f64 (.f64 M M) (.f64 h w)) (.f64 d d)))) (+.f64 (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (pow.f64 c0 #s(literal 4 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (pow.f64 (.f64 h w) #s(literal 3 binary64))) (pow.f64 d #s(literal 6 binary64))))) (+.f64 (.f64 #s(literal -1/16 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 10 binary64)) (pow.f64 c0 #s(literal 6 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 6 binary64)) (pow.f64 (.f64 h w) #s(literal 5 binary64))) (pow.f64 d #s(literal 10 binary64))))) (/.f64 (.f64 d d) (.f64 (.f64 D D) (*.f64 h w))))))))
#s(approx (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)) (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (pow.f64 (*.f64 h w) #s(literal 2 binary64)))))
#s(approx (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)) (.f64 (.f64 c0 c0) (+.f64 (.f64 #s(literal -1 binary64) (ratio-of-squares.f64 M c0)) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 (pow.f64 D #s(literal 4 binary64)) (pow.f64 (*.f64 h w) #s(literal 2 binary64)))))))
#s(approx (/ (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (* w w)) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) (.f64 h (.f64 w w)))))
#s(approx (/ (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (* w w)) (.f64 (.f64 c0 c0) (+.f64 (.f64 #s(literal -1/4 binary64) (.f64 (ratio-of-squares.f64 D c0) (/.f64 (.f64 (.f64 M M) h) (.f64 d d)))) (/.f64 (.f64 d d) (.f64 (.f64 D D) (.f64 h (.f64 w w)))))))
#s(approx (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) h)))
#s(approx (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (.f64 (.f64 c0 c0) (+.f64 (.f64 #s(literal -1/4 binary64) (.f64 (ratio-of-squares.f64 D c0) (/.f64 (.f64 (.f64 M M) (.f64 h (.f64 w w))) (.f64 d d)))) (/.f64 (.f64 d d) (.f64 (.f64 D D) h)))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 c0 c0) (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 d d) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 d d) (.f64 (.f64 D D) (.f64 h w))))) w)))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (.f64 (.f64 c0 c0) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 d d) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 d d) (.f64 (.f64 D D) (.f64 h w)))) w)) (.f64 #s(literal 1/4 binary64) (.f64 (ratio-of-squares.f64 D c0) (/.f64 (.f64 (.f64 M M) h) (*.f64 d d)))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (.f64 (.f64 c0 c0) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 d d) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 d d) (.f64 (.f64 D D) (.f64 h w)))) w)) (+.f64 (.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (pow.f64 c0 #s(literal 4 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (.f64 (pow.f64 h #s(literal 3 binary64)) (.f64 w w))) (pow.f64 d #s(literal 6 binary64))))) (.f64 #s(literal 1/4 binary64) (.f64 (ratio-of-squares.f64 D c0) (/.f64 (.f64 (.f64 M M) h) (.f64 d d))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (.f64 (.f64 c0 c0) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 d d) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 d d) (.f64 (.f64 D D) (.f64 h w)))) w)) (+.f64 (.f64 #s(literal 1/32 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 10 binary64)) (pow.f64 c0 #s(literal 6 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 6 binary64)) (.f64 (pow.f64 h #s(literal 5 binary64)) (pow.f64 w #s(literal 4 binary64)))) (pow.f64 d #s(literal 10 binary64))))) (+.f64 (.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (pow.f64 c0 #s(literal 4 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (.f64 (pow.f64 h #s(literal 3 binary64)) (.f64 w w))) (pow.f64 d #s(literal 6 binary64))))) (.f64 #s(literal 1/4 binary64) (.f64 (ratio-of-squares.f64 D c0) (/.f64 (.f64 (.f64 M M) h) (.f64 d d)))))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (.f64 #s(literal -1 binary64) (.f64 c0 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 d d) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 d d) (.f64 (.f64 D D) (*.f64 h w)))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (.f64 #s(literal -1 binary64) (.f64 c0 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 d d) (.f64 (.f64 D D) (.f64 h w)))) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (ratio-of-squares.f64 D c0) (/.f64 (.f64 (.f64 M M) (.f64 h w)) (.f64 d d)))) (/.f64 (.f64 d d) (.f64 (.f64 D D) (*.f64 h w))))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (.f64 #s(literal -1 binary64) (.f64 c0 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 d d) (.f64 (.f64 D D) (.f64 h w)))) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (ratio-of-squares.f64 D c0) (/.f64 (.f64 (.f64 M M) (.f64 h w)) (.f64 d d)))) (+.f64 (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (pow.f64 c0 #s(literal 4 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (pow.f64 (.f64 h w) #s(literal 3 binary64))) (pow.f64 d #s(literal 6 binary64))))) (/.f64 (.f64 d d) (.f64 (.f64 D D) (*.f64 h w)))))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (.f64 #s(literal -1 binary64) (.f64 c0 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 d d) (.f64 (.f64 D D) (.f64 h w)))) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (ratio-of-squares.f64 D c0) (/.f64 (.f64 (.f64 M M) (.f64 h w)) (.f64 d d)))) (+.f64 (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (pow.f64 c0 #s(literal 4 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (pow.f64 (.f64 h w) #s(literal 3 binary64))) (pow.f64 d #s(literal 6 binary64))))) (+.f64 (.f64 #s(literal -1/16 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 10 binary64)) (pow.f64 c0 #s(literal 6 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 6 binary64)) (pow.f64 (.f64 h w) #s(literal 5 binary64))) (pow.f64 d #s(literal 10 binary64))))) (/.f64 (.f64 d d) (.f64 (.f64 D D) (*.f64 h w))))))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 c0 c0) (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 d d) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 d d) (.f64 (.f64 D D) (.f64 h w))))) w)))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (.f64 (.f64 c0 c0) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 d d) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 d d) (.f64 (.f64 D D) (.f64 h w)))) w)) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (.f64 D D) c0) (/.f64 (.f64 h (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))) (.f64 d d)))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (.f64 (.f64 c0 c0) (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 D D) (.f64 h (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))))) (.f64 d d))) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (.f64 D D) c0) (/.f64 (.f64 h (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 (.f64 h h) (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))) #s(literal 2 binary64)))) (pow.f64 d #s(literal 4 binary64)))))) (.f64 d d))))) c0)) (.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 d d) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 d d) (.f64 (.f64 D D) (.f64 h w)))) w)))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (.f64 (.f64 c0 c0) (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 D D) (.f64 h (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 (.f64 h h) (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))) #s(literal 2 binary64)))) (pow.f64 d #s(literal 4 binary64))))))) (.f64 d d))) (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) c0) (/.f64 (.f64 (pow.f64 h #s(literal 3 binary64)) (.f64 (.f64 w w) (.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 (.f64 h h) (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))) #s(literal 2 binary64)))) (pow.f64 d #s(literal 4 binary64)))))))) (pow.f64 d #s(literal 6 binary64)))))) c0)) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 D D) (.f64 h (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))))) (.f64 d d)))) c0)) (.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 d d) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 d d) (.f64 (.f64 D D) (.f64 h w)))) w)))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (.f64 #s(literal -1 binary64) (.f64 (.f64 c0 c0) (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 d d) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 d d) (.f64 (.f64 D D) (.f64 h w)))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (.f64 (.f64 c0 c0) (+.f64 (.f64 #s(literal -1 binary64) (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 d d) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 d d) (.f64 (.f64 D D) (.f64 h w))))) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 D D) c0) (/.f64 (.f64 h (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))))) (*.f64 d d)))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (.f64 (.f64 c0 c0) (+.f64 (.f64 #s(literal -1 binary64) (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 d d) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 d d) (.f64 (.f64 D D) (.f64 h w))))) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 D D) (.f64 h (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))))) (.f64 d d))) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 D D) c0) (/.f64 (.f64 h (.f64 w (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 (.f64 h h) (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))) #s(literal 2 binary64)))) (pow.f64 d #s(literal 4 binary64))))))) (.f64 d d))))) c0)))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (.f64 (.f64 c0 c0) (+.f64 (.f64 #s(literal -1 binary64) (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 d d) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 d d) (.f64 (.f64 D D) (.f64 h w))))) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 D D) (.f64 h (.f64 w (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 (.f64 h h) (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))) #s(literal 2 binary64)))) (pow.f64 d #s(literal 4 binary64)))))))) (.f64 d d))) (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) c0) (/.f64 (.f64 (pow.f64 h #s(literal 3 binary64)) (.f64 (pow.f64 w #s(literal 3 binary64)) (.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 (.f64 h h) (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))) #s(literal 2 binary64)))) (pow.f64 d #s(literal 4 binary64)))))))) (pow.f64 d #s(literal 6 binary64)))))) c0)) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 D D) (.f64 h (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))))) (*.f64 d d)))) c0)))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) (.f64 #s(literal -1 binary64) (.f64 c0 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 d d) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 d d) (.f64 (.f64 D D) (*.f64 h w)))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) (.f64 #s(literal -1 binary64) (.f64 c0 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 d d) (.f64 (.f64 D D) (.f64 h w)))) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 D D) c0) (/.f64 (.f64 h (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))))) (.f64 d d)))) (/.f64 (.f64 d d) (.f64 (.f64 D D) (.f64 h w))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) (.f64 #s(literal -1 binary64) (.f64 c0 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 D D) c0) (/.f64 (.f64 h (.f64 w (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 (.f64 h h) (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))) #s(literal 2 binary64)))) (pow.f64 d #s(literal 4 binary64))))))) (.f64 d d)))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 D D) (.f64 h (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))))) (.f64 d d)))) c0)) (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 d d) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 d d) (.f64 (.f64 D D) (*.f64 h w))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) (.f64 #s(literal -1 binary64) (.f64 c0 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) c0) (/.f64 (.f64 (pow.f64 h #s(literal 3 binary64)) (.f64 (pow.f64 w #s(literal 3 binary64)) (.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 (.f64 h h) (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))) #s(literal 2 binary64)))) (pow.f64 d #s(literal 4 binary64)))))))) (pow.f64 d #s(literal 6 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 D D) (.f64 h (.f64 w (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 (.f64 h h) (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))) #s(literal 2 binary64)))) (pow.f64 d #s(literal 4 binary64)))))))) (.f64 d d)))) c0)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 D D) (.f64 h (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))))) (.f64 d d)))) c0)) (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 d d) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 d d) (.f64 (.f64 D D) (.f64 h w))))))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))) (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))) (.f64 #s(literal -1 binary64) (.f64 c0 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 D D) c0) (/.f64 (.f64 h (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))))) (.f64 d d)))) (/.f64 (.f64 d d) (.f64 (.f64 D D) (*.f64 h w)))))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))) (.f64 #s(literal -1 binary64) (.f64 c0 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 D D) c0) (/.f64 (.f64 h (.f64 w (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 (.f64 h h) (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))) #s(literal 2 binary64)))) (pow.f64 d #s(literal 4 binary64))))))) (.f64 d d)))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 D D) (.f64 h (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))))) (.f64 d d)))) c0)) (/.f64 (.f64 d d) (.f64 (.f64 D D) (.f64 h w)))))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))) (.f64 #s(literal -1 binary64) (.f64 c0 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) c0) (/.f64 (.f64 (pow.f64 h #s(literal 3 binary64)) (.f64 (pow.f64 w #s(literal 3 binary64)) (.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 (.f64 h h) (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))) #s(literal 2 binary64)))) (pow.f64 d #s(literal 4 binary64)))))))) (pow.f64 d #s(literal 6 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 D D) (.f64 h (.f64 w (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 (.f64 h h) (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))) #s(literal 2 binary64)))) (pow.f64 d #s(literal 4 binary64)))))))) (.f64 d d)))) c0)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 D D) (.f64 h (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))))) (.f64 d d)))) c0)) (/.f64 (.f64 d d) (.f64 (.f64 D D) (*.f64 h w)))))))
#s(approx (* (/ c0 (* 2 w)) (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 c0 c0) (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 d d) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 d d) (.f64 (.f64 D D) (.f64 h w))))) w)))
#s(approx (* (/ c0 (* 2 w)) (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (.f64 (.f64 c0 c0) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 d d) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 d d) (.f64 (.f64 D D) (.f64 h w)))) w)) (.f64 #s(literal 1/4 binary64) (.f64 (ratio-of-squares.f64 D c0) (/.f64 (.f64 (.f64 M M) h) (*.f64 d d)))))))
#s(approx (* (/ c0 (* 2 w)) (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (.f64 (.f64 c0 c0) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 d d) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 d d) (.f64 (.f64 D D) (.f64 h w)))) w)) (+.f64 (.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (pow.f64 c0 #s(literal 4 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (.f64 (pow.f64 h #s(literal 3 binary64)) (.f64 w w))) (pow.f64 d #s(literal 6 binary64))))) (.f64 #s(literal 1/4 binary64) (.f64 (ratio-of-squares.f64 D c0) (/.f64 (.f64 (.f64 M M) h) (.f64 d d))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (.f64 (.f64 c0 c0) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 d d) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 d d) (.f64 (.f64 D D) (.f64 h w)))) w)) (+.f64 (.f64 #s(literal 1/32 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 10 binary64)) (pow.f64 c0 #s(literal 6 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 6 binary64)) (.f64 (pow.f64 h #s(literal 5 binary64)) (pow.f64 w #s(literal 4 binary64)))) (pow.f64 d #s(literal 10 binary64))))) (+.f64 (.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (pow.f64 c0 #s(literal 4 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (.f64 (pow.f64 h #s(literal 3 binary64)) (.f64 w w))) (pow.f64 d #s(literal 6 binary64))))) (.f64 #s(literal 1/4 binary64) (.f64 (ratio-of-squares.f64 D c0) (/.f64 (.f64 (.f64 M M) h) (.f64 d d)))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (.f64 #s(literal -1 binary64) (.f64 c0 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 d d) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 d d) (.f64 (.f64 D D) (*.f64 h w)))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (.f64 #s(literal -1 binary64) (.f64 c0 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 d d) (.f64 (.f64 D D) (.f64 h w)))) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (ratio-of-squares.f64 D c0) (/.f64 (.f64 (.f64 M M) (.f64 h w)) (.f64 d d)))) (/.f64 (.f64 d d) (.f64 (.f64 D D) (*.f64 h w))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (.f64 #s(literal -1 binary64) (.f64 c0 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 d d) (.f64 (.f64 D D) (.f64 h w)))) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (ratio-of-squares.f64 D c0) (/.f64 (.f64 (.f64 M M) (.f64 h w)) (.f64 d d)))) (+.f64 (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (pow.f64 c0 #s(literal 4 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (pow.f64 (.f64 h w) #s(literal 3 binary64))) (pow.f64 d #s(literal 6 binary64))))) (/.f64 (.f64 d d) (.f64 (.f64 D D) (*.f64 h w)))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (.f64 #s(literal -1 binary64) (.f64 c0 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 d d) (.f64 (.f64 D D) (.f64 h w)))) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (ratio-of-squares.f64 D c0) (/.f64 (.f64 (.f64 M M) (.f64 h w)) (.f64 d d)))) (+.f64 (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (pow.f64 c0 #s(literal 4 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (pow.f64 (.f64 h w) #s(literal 3 binary64))) (pow.f64 d #s(literal 6 binary64))))) (+.f64 (.f64 #s(literal -1/16 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 10 binary64)) (pow.f64 c0 #s(literal 6 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 6 binary64)) (pow.f64 (.f64 h w) #s(literal 5 binary64))) (pow.f64 d #s(literal 10 binary64))))) (/.f64 (.f64 d d) (.f64 (.f64 D D) (*.f64 h w))))))))))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) (.f64 #s(literal -1 binary64) (.f64 c0 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (ratio-of-squares.f64 D c0) (/.f64 (.f64 (.f64 M M) (.f64 h w)) (.f64 d d)))) (/.f64 (.f64 d d) (.f64 (.f64 D D) (.f64 h w)))))))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) (.f64 #s(literal -1 binary64) (.f64 c0 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (ratio-of-squares.f64 D c0) (/.f64 (.f64 (.f64 M M) (.f64 h w)) (.f64 d d)))) (+.f64 (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (pow.f64 c0 #s(literal 4 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (pow.f64 (.f64 h w) #s(literal 3 binary64))) (pow.f64 d #s(literal 6 binary64))))) (/.f64 (.f64 d d) (.f64 (.f64 D D) (.f64 h w))))))))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) (.f64 #s(literal -1 binary64) (.f64 c0 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (ratio-of-squares.f64 D c0) (/.f64 (.f64 (.f64 M M) (.f64 h w)) (.f64 d d)))) (+.f64 (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (pow.f64 c0 #s(literal 4 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (pow.f64 (.f64 h w) #s(literal 3 binary64))) (pow.f64 d #s(literal 6 binary64))))) (+.f64 (.f64 #s(literal -1/16 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 10 binary64)) (pow.f64 c0 #s(literal 6 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 6 binary64)) (pow.f64 (.f64 h w) #s(literal 5 binary64))) (pow.f64 d #s(literal 10 binary64))))) (/.f64 (.f64 d d) (.f64 (.f64 D D) (.f64 h w)))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (/.f64 (+.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 D D) (.f64 (.f64 M M) (.f64 h (.f64 w w)))) (.f64 d d))) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) h))) (*.f64 w w)))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (/.f64 (+.f64 (.f64 (.f64 w w) (+.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 D D) (.f64 (.f64 M M) h)) (.f64 d d))) (.f64 #s(literal -1/16 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (.f64 c0 c0)) (/.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (.f64 (pow.f64 h #s(literal 3 binary64)) (.f64 w w))) (pow.f64 d #s(literal 6 binary64))))))) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) h))) (*.f64 w w)))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (/.f64 (+.f64 (.f64 (.f64 w w) (+.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 D D) (.f64 (.f64 M M) h)) (.f64 d d))) (.f64 (.f64 w w) (+.f64 (.f64 #s(literal -1/16 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (.f64 c0 c0)) (/.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (pow.f64 h #s(literal 3 binary64))) (pow.f64 d #s(literal 6 binary64))))) (.f64 #s(literal -1/32 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 10 binary64)) (pow.f64 c0 #s(literal 4 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 6 binary64)) (.f64 (pow.f64 h #s(literal 5 binary64)) (.f64 w w))) (pow.f64 d #s(literal 10 binary64))))))))) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) h))) (.f64 w w)))
#s(approx (* 2 w) (*.f64 #s(literal 2 binary64) w))
#s(approx w w)
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (/.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 D D) (.f64 (.f64 M M) (.f64 h (.f64 w w)))) (.f64 c0 (.f64 d d)))) (.f64 #s(literal 2 binary64) (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (*.f64 d d) h)))) w))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (/.f64 (+.f64 (.f64 #s(literal 2 binary64) (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (.f64 d d) h))) (.f64 (.f64 w w) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 D D) (.f64 (.f64 M M) h)) (.f64 c0 (.f64 d d)))) (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (pow.f64 c0 #s(literal 3 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (.f64 (pow.f64 h #s(literal 3 binary64)) (.f64 w w))) (pow.f64 d #s(literal 6 binary64)))))))) w))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (/.f64 (+.f64 (.f64 #s(literal 2 binary64) (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (.f64 d d) h))) (.f64 (.f64 w w) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 D D) (.f64 (.f64 M M) h)) (.f64 c0 (.f64 d d)))) (.f64 (.f64 w w) (+.f64 (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (pow.f64 c0 #s(literal 3 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (pow.f64 h #s(literal 3 binary64))) (pow.f64 d #s(literal 6 binary64))))) (.f64 #s(literal -1/16 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 10 binary64)) (pow.f64 c0 #s(literal 5 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 6 binary64)) (.f64 (pow.f64 h #s(literal 5 binary64)) (*.f64 w w))) (pow.f64 d #s(literal 10 binary64)))))))))) w))
#s(approx (* h w) (*.f64 h w))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (/.f64 (+.f64 (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (.f64 D D) (.f64 h (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h)))))) (.f64 d d))) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) h))) (.f64 w w)))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (/.f64 (+.f64 (.f64 w (+.f64 (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (.f64 D D) (.f64 h (.f64 w (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 c0 c0)) (/.f64 (pow.f64 (.f64 h (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h)))) #s(literal 2 binary64)) (pow.f64 d #s(literal 4 binary64))))))))) (.f64 d d))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (.f64 D D) (.f64 h (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))))) (.f64 d d))))) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) h))) (*.f64 w w)))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (/.f64 (+.f64 (.f64 w (+.f64 (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (.f64 D D) (.f64 h (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))))) (.f64 d d))) (.f64 w (+.f64 (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (.f64 c0 c0)) (/.f64 (.f64 (pow.f64 h #s(literal 3 binary64)) (.f64 w (.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 c0 c0)) (/.f64 (pow.f64 (.f64 h (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h)))) #s(literal 2 binary64)) (pow.f64 d #s(literal 4 binary64))))))))) (pow.f64 d #s(literal 6 binary64))))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (.f64 D D) (.f64 h (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 c0 c0)) (/.f64 (pow.f64 (.f64 h (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h)))) #s(literal 2 binary64)) (pow.f64 d #s(literal 4 binary64)))))))) (.f64 d d))))))) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) h))) (*.f64 w w)))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (/.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 D D) (.f64 h (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h)))))) (.f64 d d))) (.f64 #s(literal 2 binary64) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) h)))) w))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (/.f64 (+.f64 (.f64 #s(literal 2 binary64) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) h))) (.f64 w (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 D D) (.f64 h (.f64 w (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 c0 c0)) (/.f64 (pow.f64 (.f64 h (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h)))) #s(literal 2 binary64)) (pow.f64 d #s(literal 4 binary64))))))))) (.f64 d d))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 D D) (.f64 h (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))))) (*.f64 d d)))))) w))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (/.f64 (+.f64 (.f64 #s(literal 2 binary64) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) h))) (.f64 w (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 D D) (.f64 h (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))))) (.f64 d d))) (.f64 w (+.f64 (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (.f64 c0 c0)) (/.f64 (.f64 (pow.f64 h #s(literal 3 binary64)) (.f64 w (.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 c0 c0)) (/.f64 (pow.f64 (.f64 h (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h)))) #s(literal 2 binary64)) (pow.f64 d #s(literal 4 binary64))))))))) (pow.f64 d #s(literal 6 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 D D) (.f64 h (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 c0 c0)) (/.f64 (pow.f64 (.f64 h (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h)))) #s(literal 2 binary64)) (pow.f64 d #s(literal 4 binary64)))))))) (*.f64 d d)))))))) w))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) (/.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 D D) c0) (/.f64 (.f64 h (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))))) (.f64 d d)))) (.f64 #s(literal 2 binary64) (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (*.f64 d d) h)))) w))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) (/.f64 (+.f64 (.f64 #s(literal 2 binary64) (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (.f64 d d) h))) (.f64 w (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 D D) c0) (/.f64 (.f64 h (.f64 w (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 c0 c0)) (/.f64 (pow.f64 (.f64 h (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h)))) #s(literal 2 binary64)) (pow.f64 d #s(literal 4 binary64)))))))) (.f64 d d)))) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 D D) c0) (/.f64 (.f64 h (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h)))) (.f64 d d))))))) w))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) (/.f64 (+.f64 (.f64 #s(literal 2 binary64) (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (.f64 d d) h))) (.f64 w (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 D D) c0) (/.f64 (.f64 h (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h)))) (.f64 d d)))) (.f64 w (+.f64 (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (pow.f64 c0 #s(literal 3 binary64))) (/.f64 (.f64 (pow.f64 h #s(literal 3 binary64)) (.f64 w (.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 c0 c0)) (/.f64 (pow.f64 (.f64 h (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h)))) #s(literal 2 binary64)) (pow.f64 d #s(literal 4 binary64))))))))) (pow.f64 d #s(literal 6 binary64))))) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 D D) c0) (/.f64 (.f64 h (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 c0 c0)) (/.f64 (pow.f64 (.f64 h (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h)))) #s(literal 2 binary64)) (pow.f64 d #s(literal 4 binary64))))))) (*.f64 d d))))))))) w))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))) (/.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 D D) c0) (/.f64 (.f64 h (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))))) (.f64 d d)))) (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (.f64 d d) h))) w))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))) (/.f64 (+.f64 (.f64 w (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 D D) c0) (/.f64 (.f64 h (.f64 w (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 c0 c0)) (/.f64 (pow.f64 (.f64 h (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h)))) #s(literal 2 binary64)) (pow.f64 d #s(literal 4 binary64)))))))) (.f64 d d)))) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 D D) c0) (/.f64 (.f64 h (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h)))) (.f64 d d)))))) (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (*.f64 d d) h))) w))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))) (/.f64 (+.f64 (.f64 w (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 D D) c0) (/.f64 (.f64 h (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h)))) (.f64 d d)))) (.f64 w (+.f64 (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (pow.f64 c0 #s(literal 3 binary64))) (/.f64 (.f64 (pow.f64 h #s(literal 3 binary64)) (.f64 w (.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 c0 c0)) (/.f64 (pow.f64 (.f64 h (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h)))) #s(literal 2 binary64)) (pow.f64 d #s(literal 4 binary64))))))))) (pow.f64 d #s(literal 6 binary64))))) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 D D) c0) (/.f64 (.f64 h (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 c0 c0)) (/.f64 (pow.f64 (.f64 h (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h)))) #s(literal 2 binary64)) (pow.f64 d #s(literal 4 binary64))))))) (.f64 d d)))))))) (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (.f64 d d) h))) w))
#s(approx (* w 2) (*.f64 #s(literal 2 binary64) w))
#s(approx (* (/ c0 (* 2 w)) (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (/.f64 (+.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 D D) (.f64 (.f64 M M) (.f64 h (.f64 w w)))) (.f64 d d))) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) h))) (*.f64 w w)))
#s(approx (* (/ c0 (* 2 w)) (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (/.f64 (+.f64 (.f64 (.f64 w w) (+.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 D D) (.f64 (.f64 M M) h)) (.f64 d d))) (.f64 #s(literal -1/16 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (.f64 c0 c0)) (/.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (.f64 (pow.f64 h #s(literal 3 binary64)) (.f64 w w))) (pow.f64 d #s(literal 6 binary64))))))) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) h))) (*.f64 w w)))
#s(approx (* (/ c0 (* 2 w)) (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (/.f64 (+.f64 (.f64 (.f64 w w) (+.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 D D) (.f64 (.f64 M M) h)) (.f64 d d))) (.f64 (.f64 w w) (+.f64 (.f64 #s(literal -1/16 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (.f64 c0 c0)) (/.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (pow.f64 h #s(literal 3 binary64))) (pow.f64 d #s(literal 6 binary64))))) (.f64 #s(literal -1/32 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 10 binary64)) (pow.f64 c0 #s(literal 4 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 6 binary64)) (.f64 (pow.f64 h #s(literal 5 binary64)) (.f64 w w))) (pow.f64 d #s(literal 10 binary64))))))))) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) h))) (.f64 w w)))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (/.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 D D) (.f64 (.f64 M M) (.f64 h (.f64 w w)))) (.f64 c0 (.f64 d d)))) (.f64 #s(literal 2 binary64) (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (*.f64 d d) h)))) w))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (/.f64 (+.f64 (.f64 #s(literal 2 binary64) (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (.f64 d d) h))) (.f64 (.f64 w w) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 D D) (.f64 (.f64 M M) h)) (.f64 c0 (.f64 d d)))) (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (pow.f64 c0 #s(literal 3 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (.f64 (pow.f64 h #s(literal 3 binary64)) (.f64 w w))) (pow.f64 d #s(literal 6 binary64)))))))) w))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (/.f64 (+.f64 (.f64 #s(literal 2 binary64) (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (.f64 d d) h))) (.f64 (.f64 w w) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 D D) (.f64 (.f64 M M) h)) (.f64 c0 (.f64 d d)))) (.f64 (.f64 w w) (+.f64 (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (pow.f64 c0 #s(literal 3 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (pow.f64 h #s(literal 3 binary64))) (pow.f64 d #s(literal 6 binary64))))) (.f64 #s(literal -1/16 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 10 binary64)) (pow.f64 c0 #s(literal 5 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 6 binary64)) (.f64 (pow.f64 h #s(literal 5 binary64)) (*.f64 w w))) (pow.f64 d #s(literal 10 binary64)))))))))) w))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) (/.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 D D) (.f64 (.f64 M M) (.f64 h (.f64 w w)))) (.f64 c0 (.f64 d d)))) (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (.f64 d d) h))) w))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) (/.f64 (+.f64 (.f64 (.f64 w w) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 D D) (.f64 (.f64 M M) h)) (.f64 c0 (.f64 d d)))) (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (pow.f64 c0 #s(literal 3 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (.f64 (pow.f64 h #s(literal 3 binary64)) (.f64 w w))) (pow.f64 d #s(literal 6 binary64))))))) (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (*.f64 d d) h))) w))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) (/.f64 (+.f64 (.f64 (.f64 w w) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 D D) (.f64 (.f64 M M) h)) (.f64 c0 (.f64 d d)))) (.f64 (.f64 w w) (+.f64 (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (pow.f64 c0 #s(literal 3 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (pow.f64 h #s(literal 3 binary64))) (pow.f64 d #s(literal 6 binary64))))) (.f64 #s(literal -1/16 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 10 binary64)) (pow.f64 c0 #s(literal 5 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 6 binary64)) (.f64 (pow.f64 h #s(literal 5 binary64)) (.f64 w w))) (pow.f64 d #s(literal 10 binary64))))))))) (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (.f64 d d) h))) w))
#s(approx (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (pow.f64 (.f64 M w) #s(literal 2 binary64))) (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 h h)))) (.f64 w w)))
#s(approx (* (* w h) (* D D)) (.f64 (.f64 D D) (*.f64 h w)))
#s(approx (* w h) (*.f64 h w))
#s(approx (/ (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (* w w)) (/.f64 (+.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 D D) (.f64 (.f64 M M) (.f64 h (.f64 w w)))) (.f64 d d))) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) h))) (*.f64 w w)))
#s(approx (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 D D) (.f64 (.f64 M M) (.f64 h (.f64 w w)))) (.f64 d d))))
#s(approx (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) (/.f64 (.f64 (.f64 D D) (.f64 (.f64 M M) (.f64 h (.f64 w w)))) (*.f64 d d)))
#s(approx (* (pow (* D M) 2) (* (* w w) h)) (.f64 (.f64 D D) (.f64 (.f64 M M) (.f64 h (.f64 w w)))))
#s(approx (* (* w w) h) (.f64 h (.f64 w w)))
#s(approx (* w w) (*.f64 w w))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (/.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 M (.f64 c0 (sqrt.f64 #s(literal -1 binary64))))) (.f64 #s(literal 1/2 binary64) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) (*.f64 h w))))) w))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (/.f64 (+.f64 (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (pow.f64 c0 #s(literal 3 binary64)) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 M (.f64 (.f64 h h) (.f64 (.f64 w w) (sqrt.f64 #s(literal -1 binary64)))))))) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 M (.f64 c0 (sqrt.f64 #s(literal -1 binary64))))) (.f64 #s(literal 1/2 binary64) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) (.f64 h w)))))) w))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (/.f64 (+.f64 (.f64 #s(literal -1/16 binary64) (.f64 (/.f64 (pow.f64 c0 #s(literal 5 binary64)) (pow.f64 D #s(literal 8 binary64))) (/.f64 (pow.f64 d #s(literal 8 binary64)) (.f64 (pow.f64 M #s(literal 3 binary64)) (.f64 (pow.f64 h #s(literal 4 binary64)) (.f64 (pow.f64 w #s(literal 4 binary64)) (pow.f64 #s(literal -1 binary64) #s(literal 3/2 binary64)))))))) (+.f64 (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (pow.f64 c0 #s(literal 3 binary64)) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 M (.f64 (.f64 h h) (.f64 (.f64 w w) (sqrt.f64 #s(literal -1 binary64)))))))) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 M (.f64 c0 (sqrt.f64 #s(literal -1 binary64))))) (.f64 #s(literal 1/2 binary64) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) (*.f64 h w))))))) w))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 M (.f64 (.f64 h h) (.f64 (.f64 w w) (sqrt.f64 #s(literal -1 binary64)))))))) (+.f64 (.f64 M (sqrt.f64 #s(literal -1 binary64))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (+.f64 (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (pow.f64 c0 #s(literal 4 binary64)) (pow.f64 D #s(literal 8 binary64))) (/.f64 (pow.f64 d #s(literal 8 binary64)) (.f64 (pow.f64 M #s(literal 3 binary64)) (.f64 (pow.f64 h #s(literal 4 binary64)) (.f64 (pow.f64 w #s(literal 4 binary64)) (pow.f64 #s(literal -1 binary64) #s(literal 3/2 binary64)))))))) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 M (.f64 (.f64 h h) (.f64 (.f64 w w) (sqrt.f64 #s(literal -1 binary64)))))))) (+.f64 (.f64 M (sqrt.f64 #s(literal -1 binary64))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (*.f64 h w)))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (/.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 M (.f64 c0 (sqrt.f64 #s(literal -1 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 c0 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 M (sqrt.f64 #s(literal -1 binary64))))) (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (*.f64 d d) h)))) w))) w))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (/.f64 (+.f64 (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 c0 M) (/.f64 (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 h h))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64))))) (.f64 (.f64 w w) (sqrt.f64 #s(literal -1 binary64)))))) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 M (.f64 c0 (sqrt.f64 #s(literal -1 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 c0 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 M (sqrt.f64 #s(literal -1 binary64))))) (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (.f64 d d) h)))) w)))) w))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (/.f64 (+.f64 (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 c0 (pow.f64 M #s(literal 3 binary64))) (/.f64 (.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 h h))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64)))))) (pow.f64 (.f64 w (sqrt.f64 #s(literal -1 binary64))) #s(literal 3 binary64))))) (+.f64 (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 c0 M) (/.f64 (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 h h))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64))))) (.f64 (.f64 w w) (sqrt.f64 #s(literal -1 binary64)))))) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 M (.f64 c0 (sqrt.f64 #s(literal -1 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 c0 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 M (sqrt.f64 #s(literal -1 binary64))))) (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (.f64 d d) h)))) w))))) w))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (+.f64 (.f64 M (.f64 c0 (sqrt.f64 #s(literal -1 binary64)))) (/.f64 (.f64 c0 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 M (sqrt.f64 #s(literal -1 binary64))))) (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (*.f64 d d) h)))) w)))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 c0 M) (/.f64 (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 h h))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64))))) (.f64 (.f64 w w) (sqrt.f64 #s(literal -1 binary64)))))) (+.f64 (.f64 M (.f64 c0 (sqrt.f64 #s(literal -1 binary64)))) (/.f64 (.f64 c0 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 M (sqrt.f64 #s(literal -1 binary64))))) (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (.f64 d d) h)))) w))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (+.f64 (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 c0 (pow.f64 M #s(literal 3 binary64))) (/.f64 (.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 h h))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64)))))) (pow.f64 (.f64 w (sqrt.f64 #s(literal -1 binary64))) #s(literal 3 binary64))))) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 c0 M) (/.f64 (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 h h))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64))))) (.f64 (.f64 w w) (sqrt.f64 #s(literal -1 binary64)))))) (+.f64 (.f64 M (.f64 c0 (sqrt.f64 #s(literal -1 binary64)))) (/.f64 (.f64 c0 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 M (sqrt.f64 #s(literal -1 binary64))))) (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (.f64 d d) h)))) w)))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 M (.f64 w (sqrt.f64 #s(literal -1 binary64)))))) (+.f64 (.f64 M (sqrt.f64 #s(literal -1 binary64))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 M (.f64 w (sqrt.f64 #s(literal -1 binary64)))))) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 h h))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64))))) (.f64 M (.f64 (.f64 w w) (sqrt.f64 #s(literal -1 binary64)))))) (+.f64 (.f64 M (sqrt.f64 #s(literal -1 binary64))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (*.f64 h w)))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) (+.f64 (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (pow.f64 M #s(literal 3 binary64))) (/.f64 (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 h h))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64))))) (pow.f64 (.f64 w (sqrt.f64 #s(literal -1 binary64))) #s(literal 3 binary64))))) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 M (.f64 w (sqrt.f64 #s(literal -1 binary64)))))) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 h h))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64))))) (.f64 M (.f64 (.f64 w w) (sqrt.f64 #s(literal -1 binary64)))))) (+.f64 (.f64 M (sqrt.f64 #s(literal -1 binary64))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 M (.f64 w (sqrt.f64 #s(literal -1 binary64)))))) (*.f64 M (sqrt.f64 #s(literal -1 binary64)))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 M (.f64 w (sqrt.f64 #s(literal -1 binary64)))))) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 h h))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64))))) (.f64 M (.f64 (.f64 w w) (sqrt.f64 #s(literal -1 binary64)))))) (.f64 M (sqrt.f64 #s(literal -1 binary64))))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))) (+.f64 (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (pow.f64 M #s(literal 3 binary64))) (/.f64 (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 h h))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64))))) (pow.f64 (.f64 w (sqrt.f64 #s(literal -1 binary64))) #s(literal 3 binary64))))) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 M (.f64 w (sqrt.f64 #s(literal -1 binary64)))))) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 h h))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64))))) (.f64 M (.f64 (.f64 w w) (sqrt.f64 #s(literal -1 binary64)))))) (*.f64 M (sqrt.f64 #s(literal -1 binary64)))))))
#s(approx (* (/ c0 (* 2 w)) (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (/.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 M (.f64 c0 (sqrt.f64 #s(literal -1 binary64))))) (.f64 #s(literal 1/2 binary64) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) (*.f64 h w))))) w))
#s(approx (* (/ c0 (* 2 w)) (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (/.f64 (+.f64 (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (pow.f64 c0 #s(literal 3 binary64)) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 M (.f64 (.f64 h h) (.f64 (.f64 w w) (sqrt.f64 #s(literal -1 binary64)))))))) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 M (.f64 c0 (sqrt.f64 #s(literal -1 binary64))))) (.f64 #s(literal 1/2 binary64) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) (.f64 h w)))))) w))
#s(approx (* (/ c0 (* 2 w)) (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (/.f64 (+.f64 (.f64 #s(literal -1/16 binary64) (.f64 (/.f64 (pow.f64 c0 #s(literal 5 binary64)) (pow.f64 D #s(literal 8 binary64))) (/.f64 (pow.f64 d #s(literal 8 binary64)) (.f64 (pow.f64 M #s(literal 3 binary64)) (.f64 (pow.f64 h #s(literal 4 binary64)) (.f64 (pow.f64 w #s(literal 4 binary64)) (pow.f64 #s(literal -1 binary64) #s(literal 3/2 binary64)))))))) (+.f64 (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (pow.f64 c0 #s(literal 3 binary64)) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 M (.f64 (.f64 h h) (.f64 (.f64 w w) (sqrt.f64 #s(literal -1 binary64)))))))) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 M (.f64 c0 (sqrt.f64 #s(literal -1 binary64))))) (.f64 #s(literal 1/2 binary64) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) (*.f64 h w))))))) w))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 M (.f64 (.f64 h h) (.f64 (.f64 w w) (sqrt.f64 #s(literal -1 binary64)))))))) (+.f64 (.f64 M (sqrt.f64 #s(literal -1 binary64))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (+.f64 (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (pow.f64 c0 #s(literal 4 binary64)) (pow.f64 D #s(literal 8 binary64))) (/.f64 (pow.f64 d #s(literal 8 binary64)) (.f64 (pow.f64 M #s(literal 3 binary64)) (.f64 (pow.f64 h #s(literal 4 binary64)) (.f64 (pow.f64 w #s(literal 4 binary64)) (pow.f64 #s(literal -1 binary64) #s(literal 3/2 binary64)))))))) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 M (.f64 (.f64 h h) (.f64 (.f64 w w) (sqrt.f64 #s(literal -1 binary64)))))))) (+.f64 (.f64 M (sqrt.f64 #s(literal -1 binary64))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (*.f64 h w)))))))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) (+.f64 (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (pow.f64 c0 #s(literal 4 binary64)) (pow.f64 D #s(literal 8 binary64))) (/.f64 (pow.f64 d #s(literal 8 binary64)) (.f64 (pow.f64 M #s(literal 3 binary64)) (.f64 (pow.f64 h #s(literal 4 binary64)) (.f64 (pow.f64 w #s(literal 4 binary64)) (pow.f64 #s(literal -1 binary64) #s(literal 3/2 binary64)))))))) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 M (.f64 (.f64 h h) (.f64 (.f64 w w) (sqrt.f64 #s(literal -1 binary64)))))))) (.f64 M (sqrt.f64 #s(literal -1 binary64))))))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) (+.f64 (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (pow.f64 c0 #s(literal 4 binary64)) (pow.f64 D #s(literal 8 binary64))) (/.f64 (pow.f64 d #s(literal 8 binary64)) (.f64 (pow.f64 M #s(literal 3 binary64)) (.f64 (pow.f64 h #s(literal 4 binary64)) (.f64 (pow.f64 w #s(literal 4 binary64)) (pow.f64 #s(literal -1 binary64) #s(literal 3/2 binary64)))))))) (+.f64 (.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (pow.f64 c0 #s(literal 6 binary64)) (pow.f64 D #s(literal 12 binary64))) (/.f64 (pow.f64 d #s(literal 12 binary64)) (.f64 (pow.f64 M #s(literal 5 binary64)) (.f64 (pow.f64 h #s(literal 6 binary64)) (.f64 (pow.f64 w #s(literal 6 binary64)) (pow.f64 #s(literal -1 binary64) #s(literal 5/2 binary64)))))))) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 M (.f64 (.f64 h h) (.f64 (.f64 w w) (sqrt.f64 #s(literal -1 binary64)))))))) (*.f64 M (sqrt.f64 #s(literal -1 binary64)))))))
#s(approx (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (.f64 (.f64 w w) (+.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 D D) (.f64 (.f64 M M) h)) (.f64 d d))) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) (.f64 h (.f64 w w)))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 M (.f64 c0 (sqrt.f64 #s(literal -1 binary64))))) (.f64 #s(literal -1/2 binary64) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) (.f64 h w))))) w)))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (pow.f64 c0 #s(literal 3 binary64)) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 M (.f64 (.f64 h h) (.f64 w (sqrt.f64 #s(literal -1 binary64)))))))) (.f64 #s(literal 1/2 binary64) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) h)))) w)) (.f64 #s(literal -1/2 binary64) (.f64 M (.f64 c0 (sqrt.f64 #s(literal -1 binary64)))))) w)))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (pow.f64 c0 #s(literal 3 binary64)) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 M (.f64 (.f64 h h) (sqrt.f64 #s(literal -1 binary64))))))) (.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (pow.f64 c0 #s(literal 5 binary64)) (pow.f64 D #s(literal 8 binary64))) (/.f64 (pow.f64 d #s(literal 8 binary64)) (.f64 (pow.f64 M #s(literal 3 binary64)) (.f64 (pow.f64 h #s(literal 4 binary64)) (.f64 (.f64 w w) (pow.f64 #s(literal -1 binary64) #s(literal 3/2 binary64))))))))) w)) (.f64 #s(literal 1/2 binary64) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) h)))) w)) (.f64 #s(literal -1/2 binary64) (.f64 M (.f64 c0 (sqrt.f64 #s(literal -1 binary64)))))) w)))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (.f64 d d) h))) (.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 M (.f64 (.f64 h h) (.f64 w (sqrt.f64 #s(literal -1 binary64))))))))) w)) (*.f64 M (sqrt.f64 #s(literal -1 binary64)))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (.f64 d d) h))) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (pow.f64 c0 #s(literal 4 binary64)) (pow.f64 D #s(literal 8 binary64))) (/.f64 (pow.f64 d #s(literal 8 binary64)) (.f64 (pow.f64 M #s(literal 3 binary64)) (.f64 (pow.f64 h #s(literal 4 binary64)) (.f64 (.f64 w w) (pow.f64 #s(literal -1 binary64) #s(literal 3/2 binary64)))))))) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 M (.f64 (.f64 h h) (sqrt.f64 #s(literal -1 binary64)))))))) w))) w)) (*.f64 M (sqrt.f64 #s(literal -1 binary64)))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 M (.f64 c0 (sqrt.f64 #s(literal -1 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 c0 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (.f64 d d) h))) (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (*.f64 M (sqrt.f64 #s(literal -1 binary64))))))) w))) w)))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 c0 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (.f64 d d) h))) (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 M (sqrt.f64 #s(literal -1 binary64)))))))) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 c0 M) (/.f64 (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 h h))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64))))) (.f64 w (sqrt.f64 #s(literal -1 binary64))))))) w)) (.f64 #s(literal -1/2 binary64) (.f64 M (.f64 c0 (sqrt.f64 #s(literal -1 binary64)))))) w)))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 c0 M) (/.f64 (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 h h))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64))))) (sqrt.f64 #s(literal -1 binary64))))) (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 c0 (pow.f64 M #s(literal 3 binary64))) (/.f64 (.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 h h))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64)))))) (.f64 w (pow.f64 #s(literal -1 binary64) #s(literal 3/2 binary64))))))) w)) (.f64 #s(literal -1/2 binary64) (.f64 c0 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (.f64 d d) h))) (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 M (sqrt.f64 #s(literal -1 binary64))))))))) w)) (.f64 #s(literal -1/2 binary64) (.f64 M (.f64 c0 (sqrt.f64 #s(literal -1 binary64)))))) w)))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (.f64 d d) h))) (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 M (sqrt.f64 #s(literal -1 binary64))))))) w)) (.f64 M (*.f64 c0 (sqrt.f64 #s(literal -1 binary64))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (/.f64 c0 M) (/.f64 (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 h h))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64))))) (.f64 w (sqrt.f64 #s(literal -1 binary64)))))) (.f64 c0 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (.f64 d d) h))) (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 M (sqrt.f64 #s(literal -1 binary64)))))))) w)) (.f64 M (*.f64 c0 (sqrt.f64 #s(literal -1 binary64))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 c0 (pow.f64 M #s(literal 3 binary64))) (/.f64 (.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 h h))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64)))))) (.f64 w (pow.f64 #s(literal -1 binary64) #s(literal 3/2 binary64)))))) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 c0 M) (/.f64 (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 h h))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64))))) (sqrt.f64 #s(literal -1 binary64)))))) w)) (.f64 c0 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (.f64 d d) h))) (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 M (sqrt.f64 #s(literal -1 binary64)))))))) w)) (.f64 M (*.f64 c0 (sqrt.f64 #s(literal -1 binary64))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (.f64 d d) h))) (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 M (sqrt.f64 #s(literal -1 binary64)))))) w)) (*.f64 M (sqrt.f64 #s(literal -1 binary64)))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (.f64 d d) h))) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 h h))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64))))) (.f64 M (.f64 w (sqrt.f64 #s(literal -1 binary64)))))) (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 M (sqrt.f64 #s(literal -1 binary64))))))) w)) (*.f64 M (sqrt.f64 #s(literal -1 binary64)))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (.f64 d d) h))) (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (pow.f64 M #s(literal 3 binary64))) (/.f64 (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 h h))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64))))) (.f64 w (pow.f64 #s(literal -1 binary64) #s(literal 3/2 binary64)))))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 h h))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64))))) (.f64 M (sqrt.f64 #s(literal -1 binary64)))))) w)) (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 M (sqrt.f64 #s(literal -1 binary64))))))) w)) (.f64 M (sqrt.f64 #s(literal -1 binary64)))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 M (.f64 w (sqrt.f64 #s(literal -1 binary64)))))) (*.f64 M (sqrt.f64 #s(literal -1 binary64)))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))) (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 h h))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64))))) (.f64 M (.f64 w (sqrt.f64 #s(literal -1 binary64)))))) (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 M (sqrt.f64 #s(literal -1 binary64)))))) w)) (*.f64 M (sqrt.f64 #s(literal -1 binary64)))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))) (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (pow.f64 M #s(literal 3 binary64))) (/.f64 (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 h h))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64))))) (.f64 w (pow.f64 #s(literal -1 binary64) #s(literal 3/2 binary64)))))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 h h))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64))))) (.f64 M (sqrt.f64 #s(literal -1 binary64)))))) w)) (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 M (sqrt.f64 #s(literal -1 binary64)))))) w)) (.f64 M (sqrt.f64 #s(literal -1 binary64)))))
#s(approx (* (/ c0 (* 2 w)) (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 M (.f64 c0 (sqrt.f64 #s(literal -1 binary64))))) (.f64 #s(literal -1/2 binary64) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) (.f64 h w))))) w)))
#s(approx (* (/ c0 (* 2 w)) (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (pow.f64 c0 #s(literal 3 binary64)) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 M (.f64 (.f64 h h) (.f64 w (sqrt.f64 #s(literal -1 binary64)))))))) (.f64 #s(literal 1/2 binary64) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) h)))) w)) (.f64 #s(literal -1/2 binary64) (.f64 M (.f64 c0 (sqrt.f64 #s(literal -1 binary64)))))) w)))
#s(approx (* (/ c0 (* 2 w)) (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (pow.f64 c0 #s(literal 3 binary64)) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 M (.f64 (.f64 h h) (sqrt.f64 #s(literal -1 binary64))))))) (.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (pow.f64 c0 #s(literal 5 binary64)) (pow.f64 D #s(literal 8 binary64))) (/.f64 (pow.f64 d #s(literal 8 binary64)) (.f64 (pow.f64 M #s(literal 3 binary64)) (.f64 (pow.f64 h #s(literal 4 binary64)) (.f64 (.f64 w w) (pow.f64 #s(literal -1 binary64) #s(literal 3/2 binary64))))))))) w)) (.f64 #s(literal 1/2 binary64) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) h)))) w)) (.f64 #s(literal -1/2 binary64) (.f64 M (.f64 c0 (sqrt.f64 #s(literal -1 binary64)))))) w)))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (.f64 d d) h))) (.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 M (.f64 (.f64 h h) (.f64 w (sqrt.f64 #s(literal -1 binary64))))))))) w)) (*.f64 M (sqrt.f64 #s(literal -1 binary64)))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (.f64 d d) h))) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (pow.f64 c0 #s(literal 4 binary64)) (pow.f64 D #s(literal 8 binary64))) (/.f64 (pow.f64 d #s(literal 8 binary64)) (.f64 (pow.f64 M #s(literal 3 binary64)) (.f64 (pow.f64 h #s(literal 4 binary64)) (.f64 (.f64 w w) (pow.f64 #s(literal -1 binary64) #s(literal 3/2 binary64)))))))) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 M (.f64 (.f64 h h) (sqrt.f64 #s(literal -1 binary64)))))))) w))) w)) (*.f64 M (sqrt.f64 #s(literal -1 binary64)))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (/.f64 (+.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 D D) (pow.f64 (.f64 M h) #s(literal 2 binary64))) (.f64 d d))) (.f64 (ratio-of-squares.f64 c0 D) (ratio-of-squares.f64 d w))) h))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (/.f64 (+.f64 (.f64 (.f64 h h) (+.f64 (.f64 #s(literal -1/4 binary64) (ratio-of-squares.f64 (.f64 D M) d)) (.f64 #s(literal -1/16 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (.f64 c0 c0)) (/.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (pow.f64 (.f64 h w) #s(literal 2 binary64))) (pow.f64 d #s(literal 6 binary64))))))) (.f64 (ratio-of-squares.f64 c0 D) (ratio-of-squares.f64 d w))) h))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (/.f64 (+.f64 (.f64 (.f64 h h) (+.f64 (.f64 #s(literal -1/4 binary64) (ratio-of-squares.f64 (.f64 D M) d)) (.f64 (.f64 h h) (+.f64 (.f64 #s(literal -1/16 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (.f64 c0 c0)) (/.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (.f64 w w)) (pow.f64 d #s(literal 6 binary64))))) (.f64 #s(literal -1/32 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 10 binary64)) (pow.f64 c0 #s(literal 4 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 6 binary64)) (.f64 (.f64 h h) (pow.f64 w #s(literal 4 binary64)))) (pow.f64 d #s(literal 10 binary64))))))))) (*.f64 (ratio-of-squares.f64 c0 D) (ratio-of-squares.f64 d w))) h))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (/.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 D D) (.f64 (.f64 M M) (.f64 (.f64 h h) w))) (.f64 c0 (.f64 d d)))) (.f64 #s(literal 2 binary64) (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (*.f64 d d) w)))) h))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (/.f64 (+.f64 (.f64 #s(literal 2 binary64) (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (.f64 d d) w))) (.f64 (.f64 h h) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 D D) (.f64 (.f64 M M) w)) (.f64 c0 (.f64 d d)))) (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (pow.f64 c0 #s(literal 3 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (.f64 (.f64 h h) (pow.f64 w #s(literal 3 binary64)))) (pow.f64 d #s(literal 6 binary64)))))))) h))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (/.f64 (+.f64 (.f64 #s(literal 2 binary64) (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (.f64 d d) w))) (.f64 (.f64 h h) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 D D) (.f64 (.f64 M M) w)) (.f64 c0 (.f64 d d)))) (.f64 (.f64 h h) (+.f64 (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (pow.f64 c0 #s(literal 3 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (pow.f64 w #s(literal 3 binary64))) (pow.f64 d #s(literal 6 binary64))))) (.f64 #s(literal -1/16 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 10 binary64)) (pow.f64 c0 #s(literal 5 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 6 binary64)) (.f64 (*.f64 h h) (pow.f64 w #s(literal 5 binary64)))) (pow.f64 d #s(literal 10 binary64)))))))))) h))
#s(approx h h)
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (/.f64 (+.f64 (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (.f64 D D) (.f64 h (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))))) (.f64 d d))) (*.f64 (ratio-of-squares.f64 c0 D) (ratio-of-squares.f64 d w))) h))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (/.f64 (+.f64 (.f64 h (+.f64 (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (.f64 D D) (.f64 h (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 c0 c0)) (/.f64 (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w)))) #s(literal 2 binary64)) (pow.f64 d #s(literal 4 binary64)))))))) (.f64 d d))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (.f64 D D) (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w)))) (.f64 d d))))) (*.f64 (ratio-of-squares.f64 c0 D) (ratio-of-squares.f64 d w))) h))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (/.f64 (+.f64 (.f64 h (+.f64 (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (.f64 D D) (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w)))) (.f64 d d))) (.f64 h (+.f64 (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (.f64 c0 c0)) (/.f64 (.f64 h (.f64 (.f64 w w) (.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 c0 c0)) (/.f64 (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w)))) #s(literal 2 binary64)) (pow.f64 d #s(literal 4 binary64))))))))) (pow.f64 d #s(literal 6 binary64))))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (.f64 D D) (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 c0 c0)) (/.f64 (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w)))) #s(literal 2 binary64)) (pow.f64 d #s(literal 4 binary64))))))) (.f64 d d))))))) (.f64 (ratio-of-squares.f64 c0 D) (ratio-of-squares.f64 d w))) h))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (/.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 D D) (.f64 h (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w)))))) (.f64 d d))) (.f64 #s(literal 2 binary64) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) w)))) h))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (/.f64 (+.f64 (.f64 #s(literal 2 binary64) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) w))) (.f64 h (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 D D) (.f64 h (.f64 w (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 c0 c0)) (/.f64 (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w)))) #s(literal 2 binary64)) (pow.f64 d #s(literal 4 binary64))))))))) (.f64 d d))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 D D) (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))))) (*.f64 d d)))))) h))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (/.f64 (+.f64 (.f64 #s(literal 2 binary64) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) w))) (.f64 h (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 D D) (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))))) (.f64 d d))) (.f64 h (+.f64 (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (.f64 c0 c0)) (/.f64 (.f64 h (.f64 (pow.f64 w #s(literal 3 binary64)) (.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 c0 c0)) (/.f64 (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w)))) #s(literal 2 binary64)) (pow.f64 d #s(literal 4 binary64))))))))) (pow.f64 d #s(literal 6 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 D D) (.f64 w (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 c0 c0)) (/.f64 (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w)))) #s(literal 2 binary64)) (pow.f64 d #s(literal 4 binary64)))))))) (*.f64 d d)))))))) h))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) (/.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 D D) c0) (/.f64 (.f64 h (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))))) (.f64 d d)))) (.f64 #s(literal 2 binary64) (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (*.f64 d d) w)))) h))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) (/.f64 (+.f64 (.f64 #s(literal 2 binary64) (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (.f64 d d) w))) (.f64 h (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 D D) c0) (/.f64 (.f64 h (.f64 w (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 c0 c0)) (/.f64 (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w)))) #s(literal 2 binary64)) (pow.f64 d #s(literal 4 binary64)))))))) (.f64 d d)))) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 D D) c0) (/.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w)))) (.f64 d d))))))) h))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) (/.f64 (+.f64 (.f64 #s(literal 2 binary64) (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (.f64 d d) w))) (.f64 h (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 D D) c0) (/.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w)))) (.f64 d d)))) (.f64 h (+.f64 (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (pow.f64 c0 #s(literal 3 binary64))) (/.f64 (.f64 h (.f64 (pow.f64 w #s(literal 3 binary64)) (.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 c0 c0)) (/.f64 (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w)))) #s(literal 2 binary64)) (pow.f64 d #s(literal 4 binary64))))))))) (pow.f64 d #s(literal 6 binary64))))) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 D D) c0) (/.f64 (.f64 w (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 c0 c0)) (/.f64 (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w)))) #s(literal 2 binary64)) (pow.f64 d #s(literal 4 binary64))))))) (*.f64 d d))))))))) h))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))) (/.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 D D) c0) (/.f64 (.f64 h (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))))) (.f64 d d)))) (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (.f64 d d) w))) h))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))) (/.f64 (+.f64 (.f64 h (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 D D) c0) (/.f64 (.f64 h (.f64 w (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 c0 c0)) (/.f64 (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w)))) #s(literal 2 binary64)) (pow.f64 d #s(literal 4 binary64)))))))) (.f64 d d)))) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 D D) c0) (/.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w)))) (.f64 d d)))))) (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (*.f64 d d) w))) h))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))) (/.f64 (+.f64 (.f64 h (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 D D) c0) (/.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w)))) (.f64 d d)))) (.f64 h (+.f64 (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (pow.f64 c0 #s(literal 3 binary64))) (/.f64 (.f64 h (.f64 (pow.f64 w #s(literal 3 binary64)) (.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 c0 c0)) (/.f64 (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w)))) #s(literal 2 binary64)) (pow.f64 d #s(literal 4 binary64))))))))) (pow.f64 d #s(literal 6 binary64))))) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 D D) c0) (/.f64 (.f64 w (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 c0 c0)) (/.f64 (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w)))) #s(literal 2 binary64)) (pow.f64 d #s(literal 4 binary64))))))) (.f64 d d)))))))) (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (.f64 d d) w))) h))
#s(approx (* (/ c0 (* 2 w)) (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (/.f64 (+.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 D D) (pow.f64 (.f64 M h) #s(literal 2 binary64))) (.f64 d d))) (.f64 (ratio-of-squares.f64 c0 D) (ratio-of-squares.f64 d w))) h))
#s(approx (* (/ c0 (* 2 w)) (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (/.f64 (+.f64 (.f64 (.f64 h h) (+.f64 (.f64 #s(literal -1/4 binary64) (ratio-of-squares.f64 (.f64 D M) d)) (.f64 #s(literal -1/16 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (.f64 c0 c0)) (/.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (pow.f64 (.f64 h w) #s(literal 2 binary64))) (pow.f64 d #s(literal 6 binary64))))))) (.f64 (ratio-of-squares.f64 c0 D) (ratio-of-squares.f64 d w))) h))
#s(approx (* (/ c0 (* 2 w)) (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (/.f64 (+.f64 (.f64 (.f64 h h) (+.f64 (.f64 #s(literal -1/4 binary64) (ratio-of-squares.f64 (.f64 D M) d)) (.f64 (.f64 h h) (+.f64 (.f64 #s(literal -1/16 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (.f64 c0 c0)) (/.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (.f64 w w)) (pow.f64 d #s(literal 6 binary64))))) (.f64 #s(literal -1/32 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 10 binary64)) (pow.f64 c0 #s(literal 4 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 6 binary64)) (.f64 (.f64 h h) (pow.f64 w #s(literal 4 binary64)))) (pow.f64 d #s(literal 10 binary64))))))))) (*.f64 (ratio-of-squares.f64 c0 D) (ratio-of-squares.f64 d w))) h))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (/.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 D D) (.f64 (.f64 M M) (.f64 (.f64 h h) w))) (.f64 c0 (.f64 d d)))) (.f64 #s(literal 2 binary64) (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (*.f64 d d) w)))) h))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (/.f64 (+.f64 (.f64 #s(literal 2 binary64) (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (.f64 d d) w))) (.f64 (.f64 h h) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 D D) (.f64 (.f64 M M) w)) (.f64 c0 (.f64 d d)))) (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (pow.f64 c0 #s(literal 3 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (.f64 (.f64 h h) (pow.f64 w #s(literal 3 binary64)))) (pow.f64 d #s(literal 6 binary64)))))))) h))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (/.f64 (+.f64 (.f64 #s(literal 2 binary64) (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (.f64 d d) w))) (.f64 (.f64 h h) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 D D) (.f64 (.f64 M M) w)) (.f64 c0 (.f64 d d)))) (.f64 (.f64 h h) (+.f64 (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (pow.f64 c0 #s(literal 3 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (pow.f64 w #s(literal 3 binary64))) (pow.f64 d #s(literal 6 binary64))))) (.f64 #s(literal -1/16 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 10 binary64)) (pow.f64 c0 #s(literal 5 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 6 binary64)) (.f64 (*.f64 h h) (pow.f64 w #s(literal 5 binary64)))) (pow.f64 d #s(literal 10 binary64)))))))))) h))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) (/.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 D D) (.f64 (.f64 M M) (.f64 (.f64 h h) w))) (.f64 c0 (.f64 d d)))) (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (.f64 d d) w))) h))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) (/.f64 (+.f64 (.f64 (.f64 h h) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 D D) (.f64 (.f64 M M) w)) (.f64 c0 (.f64 d d)))) (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (pow.f64 c0 #s(literal 3 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (.f64 (.f64 h h) (pow.f64 w #s(literal 3 binary64)))) (pow.f64 d #s(literal 6 binary64))))))) (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (*.f64 d d) w))) h))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) (/.f64 (+.f64 (.f64 (.f64 h h) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 D D) (.f64 (.f64 M M) w)) (.f64 c0 (.f64 d d)))) (.f64 (.f64 h h) (+.f64 (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (pow.f64 c0 #s(literal 3 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (pow.f64 w #s(literal 3 binary64))) (pow.f64 d #s(literal 6 binary64))))) (.f64 #s(literal -1/16 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 10 binary64)) (pow.f64 c0 #s(literal 5 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 6 binary64)) (.f64 (.f64 h h) (pow.f64 w #s(literal 5 binary64)))) (pow.f64 d #s(literal 10 binary64))))))))) (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (.f64 d d) w))) h))
#s(approx (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (pow.f64 (.f64 M h) #s(literal 2 binary64))) (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 w w)))) (.f64 h h)))
#s(approx (/ (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (* w w)) (/.f64 (+.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 D D) (pow.f64 (.f64 M h) #s(literal 2 binary64))) (.f64 d d))) (.f64 (ratio-of-squares.f64 c0 D) (ratio-of-squares.f64 d w))) h))
#s(approx (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (/.f64 (+.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 D D) (.f64 (.f64 M M) (pow.f64 (.f64 h w) #s(literal 2 binary64)))) (.f64 d d))) (/.f64 (pow.f64 (.f64 c0 d) #s(literal 2 binary64)) (*.f64 D D))) h))
#s(approx (/ (* d d) h) (/.f64 (*.f64 d d) h))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 M (.f64 c0 (sqrt.f64 #s(literal -1 binary64)))) w)) (.f64 #s(literal 1/2 binary64) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) (.f64 h (.f64 w w)))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (+.f64 (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (pow.f64 c0 #s(literal 3 binary64)) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 M (.f64 (.f64 h h) (.f64 (pow.f64 w #s(literal 3 binary64)) (sqrt.f64 #s(literal -1 binary64)))))))) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 M (.f64 c0 (sqrt.f64 #s(literal -1 binary64)))) w)) (.f64 #s(literal 1/2 binary64) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) (.f64 h (.f64 w w))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (+.f64 (.f64 #s(literal -1/16 binary64) (.f64 (/.f64 (pow.f64 c0 #s(literal 5 binary64)) (pow.f64 D #s(literal 8 binary64))) (/.f64 (pow.f64 d #s(literal 8 binary64)) (.f64 (pow.f64 M #s(literal 3 binary64)) (.f64 (pow.f64 h #s(literal 4 binary64)) (.f64 (pow.f64 w #s(literal 5 binary64)) (pow.f64 #s(literal -1 binary64) #s(literal 3/2 binary64)))))))) (+.f64 (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (pow.f64 c0 #s(literal 3 binary64)) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 M (.f64 (.f64 h h) (.f64 (pow.f64 w #s(literal 3 binary64)) (sqrt.f64 #s(literal -1 binary64)))))))) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 M (.f64 c0 (sqrt.f64 #s(literal -1 binary64)))) w)) (.f64 #s(literal 1/2 binary64) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) (.f64 h (*.f64 w w)))))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 M (.f64 c0 (sqrt.f64 #s(literal -1 binary64)))) w)) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 c0 h) (/.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 M (sqrt.f64 #s(literal -1 binary64))))) (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (*.f64 d d) w))) w)))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (+.f64 (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 c0 M) (/.f64 (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 w w))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64))))) (.f64 (.f64 h h) (.f64 w (sqrt.f64 #s(literal -1 binary64))))))) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 M (.f64 c0 (sqrt.f64 #s(literal -1 binary64)))) w)) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 c0 h) (/.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 M (sqrt.f64 #s(literal -1 binary64))))) (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (*.f64 d d) w))) w))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (+.f64 (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 c0 (pow.f64 M #s(literal 3 binary64))) (/.f64 (.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 w w))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64)))))) (.f64 (pow.f64 h #s(literal 3 binary64)) (.f64 w (pow.f64 #s(literal -1 binary64) #s(literal 3/2 binary64))))))) (+.f64 (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 c0 M) (/.f64 (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 w w))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64))))) (.f64 (.f64 h h) (.f64 w (sqrt.f64 #s(literal -1 binary64))))))) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 M (.f64 c0 (sqrt.f64 #s(literal -1 binary64)))) w)) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 c0 h) (/.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 M (sqrt.f64 #s(literal -1 binary64))))) (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (.f64 d d) w))) w)))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (+.f64 (.f64 M (.f64 c0 (sqrt.f64 #s(literal -1 binary64)))) (/.f64 (.f64 c0 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 M (sqrt.f64 #s(literal -1 binary64))))) (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (*.f64 d d) w)))) h)))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 c0 M) (/.f64 (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 w w))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64))))) (.f64 (.f64 h h) (sqrt.f64 #s(literal -1 binary64)))))) (+.f64 (.f64 M (.f64 c0 (sqrt.f64 #s(literal -1 binary64)))) (/.f64 (.f64 c0 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 M (sqrt.f64 #s(literal -1 binary64))))) (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (.f64 d d) w)))) h))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (+.f64 (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 c0 (pow.f64 M #s(literal 3 binary64))) (/.f64 (.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 w w))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64)))))) (pow.f64 (.f64 h (sqrt.f64 #s(literal -1 binary64))) #s(literal 3 binary64))))) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 c0 M) (/.f64 (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 w w))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64))))) (.f64 (.f64 h h) (sqrt.f64 #s(literal -1 binary64)))))) (+.f64 (.f64 M (.f64 c0 (sqrt.f64 #s(literal -1 binary64)))) (/.f64 (.f64 c0 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 M (sqrt.f64 #s(literal -1 binary64))))) (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (.f64 d d) w)))) h)))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 M (.f64 h (sqrt.f64 #s(literal -1 binary64)))))) (+.f64 (.f64 M (sqrt.f64 #s(literal -1 binary64))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 M (.f64 h (sqrt.f64 #s(literal -1 binary64)))))) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 w w))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64))))) (.f64 M (.f64 (.f64 h h) (sqrt.f64 #s(literal -1 binary64)))))) (+.f64 (.f64 M (sqrt.f64 #s(literal -1 binary64))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (*.f64 h w)))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) (+.f64 (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (pow.f64 M #s(literal 3 binary64))) (/.f64 (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 w w))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64))))) (pow.f64 (.f64 h (sqrt.f64 #s(literal -1 binary64))) #s(literal 3 binary64))))) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 M (.f64 h (sqrt.f64 #s(literal -1 binary64)))))) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 w w))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64))))) (.f64 M (.f64 (.f64 h h) (sqrt.f64 #s(literal -1 binary64)))))) (+.f64 (.f64 M (sqrt.f64 #s(literal -1 binary64))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 M (.f64 h (sqrt.f64 #s(literal -1 binary64)))))) (*.f64 M (sqrt.f64 #s(literal -1 binary64)))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 M (.f64 h (sqrt.f64 #s(literal -1 binary64)))))) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 w w))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64))))) (.f64 M (.f64 (.f64 h h) (sqrt.f64 #s(literal -1 binary64)))))) (.f64 M (sqrt.f64 #s(literal -1 binary64))))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))) (+.f64 (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (pow.f64 M #s(literal 3 binary64))) (/.f64 (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 w w))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64))))) (pow.f64 (.f64 h (sqrt.f64 #s(literal -1 binary64))) #s(literal 3 binary64))))) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 M (.f64 h (sqrt.f64 #s(literal -1 binary64)))))) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 w w))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64))))) (.f64 M (.f64 (.f64 h h) (sqrt.f64 #s(literal -1 binary64)))))) (*.f64 M (sqrt.f64 #s(literal -1 binary64)))))))
#s(approx (* (/ c0 (* 2 w)) (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 M (.f64 c0 (sqrt.f64 #s(literal -1 binary64)))) w)) (.f64 #s(literal 1/2 binary64) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) (.f64 h (.f64 w w)))))))
#s(approx (* (/ c0 (* 2 w)) (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (+.f64 (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (pow.f64 c0 #s(literal 3 binary64)) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 M (.f64 (.f64 h h) (.f64 (pow.f64 w #s(literal 3 binary64)) (sqrt.f64 #s(literal -1 binary64)))))))) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 M (.f64 c0 (sqrt.f64 #s(literal -1 binary64)))) w)) (.f64 #s(literal 1/2 binary64) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) (.f64 h (.f64 w w))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (+.f64 (.f64 #s(literal -1/16 binary64) (.f64 (/.f64 (pow.f64 c0 #s(literal 5 binary64)) (pow.f64 D #s(literal 8 binary64))) (/.f64 (pow.f64 d #s(literal 8 binary64)) (.f64 (pow.f64 M #s(literal 3 binary64)) (.f64 (pow.f64 h #s(literal 4 binary64)) (.f64 (pow.f64 w #s(literal 5 binary64)) (pow.f64 #s(literal -1 binary64) #s(literal 3/2 binary64)))))))) (+.f64 (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (pow.f64 c0 #s(literal 3 binary64)) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 M (.f64 (.f64 h h) (.f64 (pow.f64 w #s(literal 3 binary64)) (sqrt.f64 #s(literal -1 binary64)))))))) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 M (.f64 c0 (sqrt.f64 #s(literal -1 binary64)))) w)) (.f64 #s(literal 1/2 binary64) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) (.f64 h (*.f64 w w)))))))))
#s(approx (/ (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (* w w)) (.f64 h (+.f64 (.f64 #s(literal -1/4 binary64) (ratio-of-squares.f64 (.f64 D M) d)) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) (pow.f64 (.f64 h w) #s(literal 2 binary64)))))))
#s(approx (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (.f64 h (+.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 D D) (pow.f64 (.f64 M w) #s(literal 2 binary64))) (.f64 d d))) (*.f64 (ratio-of-squares.f64 c0 D) (ratio-of-squares.f64 d h)))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (ratio-of-squares.f64 c0 D) (ratio-of-squares.f64 d w))) (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (pow.f64 c0 #s(literal 3 binary64)) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 M (.f64 h (.f64 (pow.f64 w #s(literal 3 binary64)) (sqrt.f64 #s(literal -1 binary64))))))))) h)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 M (*.f64 c0 (sqrt.f64 #s(literal -1 binary64)))) w))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1/16 binary64) (.f64 (/.f64 (pow.f64 c0 #s(literal 5 binary64)) (pow.f64 D #s(literal 8 binary64))) (/.f64 (pow.f64 d #s(literal 8 binary64)) (.f64 (pow.f64 M #s(literal 3 binary64)) (.f64 (.f64 h h) (.f64 (pow.f64 w #s(literal 5 binary64)) (pow.f64 #s(literal -1 binary64) #s(literal 3/2 binary64)))))))) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (pow.f64 c0 #s(literal 3 binary64)) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 M (.f64 (pow.f64 w #s(literal 3 binary64)) (sqrt.f64 #s(literal -1 binary64)))))))) h)) (.f64 #s(literal -1/2 binary64) (.f64 (ratio-of-squares.f64 c0 D) (ratio-of-squares.f64 d w)))) h)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 M (*.f64 c0 (sqrt.f64 #s(literal -1 binary64)))) w))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (.f64 d d) w))) (.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 M (.f64 h (.f64 (.f64 w w) (sqrt.f64 #s(literal -1 binary64))))))))) h)) (*.f64 M (sqrt.f64 #s(literal -1 binary64)))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (.f64 d d) w))) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (pow.f64 c0 #s(literal 4 binary64)) (pow.f64 D #s(literal 8 binary64))) (/.f64 (pow.f64 d #s(literal 8 binary64)) (.f64 (pow.f64 M #s(literal 3 binary64)) (.f64 (.f64 h h) (.f64 (pow.f64 w #s(literal 4 binary64)) (pow.f64 #s(literal -1 binary64) #s(literal 3/2 binary64)))))))) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 M (.f64 (.f64 w w) (sqrt.f64 #s(literal -1 binary64)))))))) h))) h)) (*.f64 M (sqrt.f64 #s(literal -1 binary64)))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (/.f64 c0 h) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (.f64 d d) w))) (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 M (sqrt.f64 #s(literal -1 binary64)))))) w))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 M (.f64 c0 (sqrt.f64 #s(literal -1 binary64)))) w))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 c0 M) (/.f64 (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 w w))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64))))) (.f64 h (.f64 w (sqrt.f64 #s(literal -1 binary64))))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 c0 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (.f64 d d) w))) (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 M (sqrt.f64 #s(literal -1 binary64))))))) w))) h)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 M (.f64 c0 (sqrt.f64 #s(literal -1 binary64)))) w))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal 1/8 binary64) (.f64 (/.f64 c0 (pow.f64 M #s(literal 3 binary64))) (/.f64 (.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 w w))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64)))))) (.f64 h (.f64 w (pow.f64 #s(literal -1 binary64) #s(literal 3/2 binary64))))))) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 c0 M) (/.f64 (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 w w))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64))))) (.f64 w (sqrt.f64 #s(literal -1 binary64))))))) h)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 c0 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (.f64 d d) w))) (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 M (sqrt.f64 #s(literal -1 binary64))))))) w))) h)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 M (*.f64 c0 (sqrt.f64 #s(literal -1 binary64)))) w))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (.f64 d d) w))) (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 M (sqrt.f64 #s(literal -1 binary64))))))) h)) (.f64 M (*.f64 c0 (sqrt.f64 #s(literal -1 binary64))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (/.f64 c0 M) (/.f64 (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 w w))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64))))) (.f64 h (sqrt.f64 #s(literal -1 binary64)))))) (.f64 c0 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (.f64 d d) w))) (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 M (sqrt.f64 #s(literal -1 binary64)))))))) h)) (.f64 M (*.f64 c0 (sqrt.f64 #s(literal -1 binary64))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 c0 (pow.f64 M #s(literal 3 binary64))) (/.f64 (.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 w w))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64)))))) (.f64 h (pow.f64 #s(literal -1 binary64) #s(literal 3/2 binary64)))))) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 c0 M) (/.f64 (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 w w))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64))))) (sqrt.f64 #s(literal -1 binary64)))))) h)) (.f64 c0 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (.f64 d d) w))) (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 M (sqrt.f64 #s(literal -1 binary64)))))))) h)) (.f64 M (*.f64 c0 (sqrt.f64 #s(literal -1 binary64))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (.f64 d d) w))) (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 M (sqrt.f64 #s(literal -1 binary64)))))) h)) (*.f64 M (sqrt.f64 #s(literal -1 binary64)))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (.f64 d d) w))) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 w w))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64))))) (.f64 M (.f64 h (sqrt.f64 #s(literal -1 binary64)))))) (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 M (sqrt.f64 #s(literal -1 binary64))))))) h)) (*.f64 M (sqrt.f64 #s(literal -1 binary64)))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (.f64 d d) w))) (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (pow.f64 M #s(literal 3 binary64))) (/.f64 (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 w w))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64))))) (.f64 h (pow.f64 #s(literal -1 binary64) #s(literal 3/2 binary64)))))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 w w))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64))))) (.f64 M (sqrt.f64 #s(literal -1 binary64)))))) h)) (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 M (sqrt.f64 #s(literal -1 binary64))))))) h)) (.f64 M (sqrt.f64 #s(literal -1 binary64)))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 M (.f64 h (sqrt.f64 #s(literal -1 binary64)))))) (*.f64 M (sqrt.f64 #s(literal -1 binary64)))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))) (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 w w))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64))))) (.f64 M (.f64 h (sqrt.f64 #s(literal -1 binary64)))))) (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 M (sqrt.f64 #s(literal -1 binary64)))))) h)) (*.f64 M (sqrt.f64 #s(literal -1 binary64)))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))) (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (pow.f64 M #s(literal 3 binary64))) (/.f64 (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 w w))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64))))) (.f64 h (pow.f64 #s(literal -1 binary64) #s(literal 3/2 binary64)))))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 w w))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64))))) (.f64 M (sqrt.f64 #s(literal -1 binary64)))))) h)) (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 M (sqrt.f64 #s(literal -1 binary64)))))) h)) (.f64 M (sqrt.f64 #s(literal -1 binary64)))))
#s(approx (* (/ c0 (* 2 w)) (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (ratio-of-squares.f64 c0 D) (ratio-of-squares.f64 d w))) (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (pow.f64 c0 #s(literal 3 binary64)) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 M (.f64 h (.f64 (pow.f64 w #s(literal 3 binary64)) (sqrt.f64 #s(literal -1 binary64))))))))) h)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 M (*.f64 c0 (sqrt.f64 #s(literal -1 binary64)))) w))))
#s(approx (* (/ c0 (* 2 w)) (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1/16 binary64) (.f64 (/.f64 (pow.f64 c0 #s(literal 5 binary64)) (pow.f64 D #s(literal 8 binary64))) (/.f64 (pow.f64 d #s(literal 8 binary64)) (.f64 (pow.f64 M #s(literal 3 binary64)) (.f64 (.f64 h h) (.f64 (pow.f64 w #s(literal 5 binary64)) (pow.f64 #s(literal -1 binary64) #s(literal 3/2 binary64)))))))) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (pow.f64 c0 #s(literal 3 binary64)) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 M (.f64 (pow.f64 w #s(literal 3 binary64)) (sqrt.f64 #s(literal -1 binary64)))))))) h)) (.f64 #s(literal -1/2 binary64) (.f64 (ratio-of-squares.f64 c0 D) (ratio-of-squares.f64 d w)))) h)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 M (*.f64 c0 (sqrt.f64 #s(literal -1 binary64)))) w))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (.f64 d d) w))) (.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 M (.f64 h (.f64 (.f64 w w) (sqrt.f64 #s(literal -1 binary64))))))))) h)) (*.f64 M (sqrt.f64 #s(literal -1 binary64)))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (.f64 d d) w))) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (pow.f64 c0 #s(literal 4 binary64)) (pow.f64 D #s(literal 8 binary64))) (/.f64 (pow.f64 d #s(literal 8 binary64)) (.f64 (pow.f64 M #s(literal 3 binary64)) (.f64 (.f64 h h) (.f64 (pow.f64 w #s(literal 4 binary64)) (pow.f64 #s(literal -1 binary64) #s(literal 3/2 binary64)))))))) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 M (.f64 (.f64 w w) (sqrt.f64 #s(literal -1 binary64)))))))) h))) h)) (*.f64 M (sqrt.f64 #s(literal -1 binary64)))))
#s(approx (/ (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (* w w)) (.f64 #s(literal -1 binary64) (.f64 h (+.f64 (.f64 #s(literal -1 binary64) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) (pow.f64 (.f64 h w) #s(literal 2 binary64))))) (.f64 #s(literal 1/4 binary64) (ratio-of-squares.f64 (.f64 D M) d))))))
#s(approx (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (.f64 #s(literal -1 binary64) (.f64 h (+.f64 (.f64 #s(literal -1 binary64) (.f64 (ratio-of-squares.f64 c0 D) (ratio-of-squares.f64 d h))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (.f64 D D) (pow.f64 (.f64 M w) #s(literal 2 binary64))) (*.f64 d d)))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (/.f64 (+.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 (.f64 M M) h)) (.f64 d d))) (.f64 (/.f64 (.f64 c0 c0) h) (ratio-of-squares.f64 d w))) (.f64 D D)))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (/.f64 (+.f64 (.f64 (pow.f64 D #s(literal 4 binary64)) (+.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 M M) h) (.f64 d d))) (.f64 #s(literal -1/16 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 c0 c0)) (/.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (.f64 (pow.f64 h #s(literal 3 binary64)) (.f64 w w))) (pow.f64 d #s(literal 6 binary64))))))) (.f64 (/.f64 (.f64 c0 c0) h) (ratio-of-squares.f64 d w))) (.f64 D D)))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (/.f64 (+.f64 (.f64 (pow.f64 D #s(literal 4 binary64)) (+.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 M M) h) (.f64 d d))) (.f64 (pow.f64 D #s(literal 4 binary64)) (+.f64 (.f64 #s(literal -1/16 binary64) (.f64 (/.f64 (pow.f64 M #s(literal 4 binary64)) (.f64 c0 c0)) (/.f64 (.f64 (pow.f64 h #s(literal 3 binary64)) (.f64 w w)) (pow.f64 d #s(literal 6 binary64))))) (.f64 #s(literal -1/32 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 4 binary64)) (pow.f64 c0 #s(literal 4 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 6 binary64)) (.f64 (pow.f64 h #s(literal 5 binary64)) (pow.f64 w #s(literal 4 binary64)))) (pow.f64 d #s(literal 10 binary64))))))))) (.f64 (/.f64 (.f64 c0 c0) h) (ratio-of-squares.f64 d w))) (.f64 D D)))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (/.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 (.f64 M M) (.f64 h w))) (.f64 c0 (.f64 d d)))) (.f64 #s(literal 2 binary64) (.f64 (/.f64 c0 h) (/.f64 (.f64 d d) w)))) (*.f64 D D)))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (/.f64 (+.f64 (.f64 #s(literal 2 binary64) (.f64 (/.f64 c0 h) (/.f64 (.f64 d d) w))) (.f64 (pow.f64 D #s(literal 4 binary64)) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 M M) (.f64 h w)) (.f64 c0 (.f64 d d)))) (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 4 binary64)) (pow.f64 c0 #s(literal 3 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (pow.f64 (.f64 h w) #s(literal 3 binary64))) (pow.f64 d #s(literal 6 binary64)))))))) (*.f64 D D)))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (/.f64 (+.f64 (.f64 #s(literal 2 binary64) (.f64 (/.f64 c0 h) (/.f64 (.f64 d d) w))) (.f64 (pow.f64 D #s(literal 4 binary64)) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 M M) (.f64 h w)) (.f64 c0 (.f64 d d)))) (.f64 (pow.f64 D #s(literal 4 binary64)) (+.f64 (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (pow.f64 M #s(literal 4 binary64)) (pow.f64 c0 #s(literal 3 binary64))) (/.f64 (pow.f64 (.f64 h w) #s(literal 3 binary64)) (pow.f64 d #s(literal 6 binary64))))) (.f64 #s(literal -1/16 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 4 binary64)) (pow.f64 c0 #s(literal 5 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 6 binary64)) (pow.f64 (.f64 h w) #s(literal 5 binary64))) (pow.f64 d #s(literal 10 binary64)))))))))) (*.f64 D D)))
#s(approx (/ (* d d) (* D D)) (ratio-of-squares.f64 d D))
#s(approx D D)
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (/.f64 (+.f64 (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (.f64 D D) (.f64 h (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))))) (.f64 d d))) (.f64 (/.f64 (.f64 c0 c0) h) (ratio-of-squares.f64 d w))) (*.f64 D D)))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (/.f64 (+.f64 (.f64 (.f64 D D) (+.f64 (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 h (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w)))) (.f64 d d))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (.f64 D D) (.f64 h (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (.f64 (ratio-of-squares.f64 h c0) (/.f64 (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w)))) #s(literal 2 binary64)) (pow.f64 d #s(literal 4 binary64)))))))) (.f64 d d))))) (.f64 (/.f64 (.f64 c0 c0) h) (ratio-of-squares.f64 d w))) (.f64 D D)))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (/.f64 (+.f64 (.f64 (.f64 D D) (+.f64 (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 h (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w)))) (.f64 d d))) (.f64 (.f64 D D) (+.f64 (.f64 #s(literal -1/8 binary64) (.f64 (ratio-of-squares.f64 D c0) (/.f64 (.f64 (pow.f64 h #s(literal 3 binary64)) (.f64 (.f64 w w) (.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (.f64 (ratio-of-squares.f64 h c0) (/.f64 (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w)))) #s(literal 2 binary64)) (pow.f64 d #s(literal 4 binary64))))))))) (pow.f64 d #s(literal 6 binary64))))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 h (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (.f64 (ratio-of-squares.f64 h c0) (/.f64 (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w)))) #s(literal 2 binary64)) (pow.f64 d #s(literal 4 binary64))))))) (.f64 d d))))))) (.f64 (/.f64 (.f64 c0 c0) h) (ratio-of-squares.f64 d w))) (*.f64 D D)))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (/.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 D D) (.f64 h (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w)))))) (.f64 d d))) (.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (.f64 c0 d) #s(literal 2 binary64)) (.f64 h w)))) (*.f64 D D)))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (/.f64 (+.f64 (.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (.f64 c0 d) #s(literal 2 binary64)) (.f64 h w))) (.f64 (.f64 D D) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 h (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))))) (.f64 d d))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 D D) (.f64 h (.f64 w (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (.f64 (ratio-of-squares.f64 h c0) (/.f64 (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w)))) #s(literal 2 binary64)) (pow.f64 d #s(literal 4 binary64))))))))) (.f64 d d)))))) (*.f64 D D)))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (/.f64 (+.f64 (.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (.f64 c0 d) #s(literal 2 binary64)) (.f64 h w))) (.f64 (.f64 D D) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 h (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))))) (.f64 d d))) (.f64 (.f64 D D) (+.f64 (.f64 #s(literal -1/4 binary64) (.f64 (ratio-of-squares.f64 D c0) (/.f64 (.f64 (pow.f64 h #s(literal 3 binary64)) (.f64 (pow.f64 w #s(literal 3 binary64)) (.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (.f64 (ratio-of-squares.f64 h c0) (/.f64 (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w)))) #s(literal 2 binary64)) (pow.f64 d #s(literal 4 binary64))))))))) (pow.f64 d #s(literal 6 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 h (.f64 w (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (.f64 (ratio-of-squares.f64 h c0) (/.f64 (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w)))) #s(literal 2 binary64)) (pow.f64 d #s(literal 4 binary64)))))))) (.f64 d d)))))))) (*.f64 D D)))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) (/.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 D D) c0) (/.f64 (.f64 h (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))))) (.f64 d d)))) (.f64 #s(literal 2 binary64) (.f64 (/.f64 c0 h) (/.f64 (.f64 d d) w)))) (*.f64 D D)))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) (/.f64 (+.f64 (.f64 #s(literal 2 binary64) (.f64 (/.f64 c0 h) (/.f64 (.f64 d d) w))) (.f64 (.f64 D D) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 h c0) (/.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w)))) (.f64 d d)))) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 D D) c0) (/.f64 (.f64 h (.f64 w (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (.f64 (ratio-of-squares.f64 h c0) (/.f64 (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w)))) #s(literal 2 binary64)) (pow.f64 d #s(literal 4 binary64)))))))) (.f64 d d))))))) (*.f64 D D)))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) (/.f64 (+.f64 (.f64 #s(literal 2 binary64) (.f64 (/.f64 c0 h) (/.f64 (.f64 d d) w))) (.f64 (.f64 D D) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 h c0) (/.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w)))) (.f64 d d)))) (.f64 (.f64 D D) (+.f64 (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (.f64 D D) (pow.f64 c0 #s(literal 3 binary64))) (/.f64 (.f64 (pow.f64 h #s(literal 3 binary64)) (.f64 (pow.f64 w #s(literal 3 binary64)) (.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (.f64 (ratio-of-squares.f64 h c0) (/.f64 (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w)))) #s(literal 2 binary64)) (pow.f64 d #s(literal 4 binary64))))))))) (pow.f64 d #s(literal 6 binary64))))) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 h c0) (/.f64 (.f64 w (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (.f64 (ratio-of-squares.f64 h c0) (/.f64 (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w)))) #s(literal 2 binary64)) (pow.f64 d #s(literal 4 binary64))))))) (.f64 d d))))))))) (.f64 D D)))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))) (/.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 D D) c0) (/.f64 (.f64 h (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))))) (.f64 d d)))) (.f64 (/.f64 c0 h) (/.f64 (.f64 d d) w))) (.f64 D D)))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))) (/.f64 (+.f64 (.f64 (.f64 D D) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 h c0) (/.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w)))) (.f64 d d)))) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 D D) c0) (/.f64 (.f64 h (.f64 w (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (.f64 (ratio-of-squares.f64 h c0) (/.f64 (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w)))) #s(literal 2 binary64)) (pow.f64 d #s(literal 4 binary64)))))))) (.f64 d d)))))) (.f64 (/.f64 c0 h) (/.f64 (.f64 d d) w))) (.f64 D D)))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))) (/.f64 (+.f64 (.f64 (.f64 D D) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 h c0) (/.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w)))) (.f64 d d)))) (.f64 (.f64 D D) (+.f64 (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (.f64 D D) (pow.f64 c0 #s(literal 3 binary64))) (/.f64 (.f64 (pow.f64 h #s(literal 3 binary64)) (.f64 (pow.f64 w #s(literal 3 binary64)) (.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (.f64 (ratio-of-squares.f64 h c0) (/.f64 (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w)))) #s(literal 2 binary64)) (pow.f64 d #s(literal 4 binary64))))))))) (pow.f64 d #s(literal 6 binary64))))) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 h c0) (/.f64 (.f64 w (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (.f64 (ratio-of-squares.f64 h c0) (/.f64 (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w)))) #s(literal 2 binary64)) (pow.f64 d #s(literal 4 binary64))))))) (.f64 d d)))))))) (.f64 (/.f64 c0 h) (/.f64 (.f64 d d) w))) (*.f64 D D)))
#s(approx (* (/ c0 (* 2 w)) (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (/.f64 (+.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 (.f64 M M) h)) (.f64 d d))) (.f64 (/.f64 (.f64 c0 c0) h) (ratio-of-squares.f64 d w))) (.f64 D D)))
#s(approx (* (/ c0 (* 2 w)) (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (/.f64 (+.f64 (.f64 (pow.f64 D #s(literal 4 binary64)) (+.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 M M) h) (.f64 d d))) (.f64 #s(literal -1/16 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 c0 c0)) (/.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (.f64 (pow.f64 h #s(literal 3 binary64)) (.f64 w w))) (pow.f64 d #s(literal 6 binary64))))))) (.f64 (/.f64 (.f64 c0 c0) h) (ratio-of-squares.f64 d w))) (.f64 D D)))
#s(approx (* (/ c0 (* 2 w)) (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (/.f64 (+.f64 (.f64 (pow.f64 D #s(literal 4 binary64)) (+.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 M M) h) (.f64 d d))) (.f64 (pow.f64 D #s(literal 4 binary64)) (+.f64 (.f64 #s(literal -1/16 binary64) (.f64 (/.f64 (pow.f64 M #s(literal 4 binary64)) (.f64 c0 c0)) (/.f64 (.f64 (pow.f64 h #s(literal 3 binary64)) (.f64 w w)) (pow.f64 d #s(literal 6 binary64))))) (.f64 #s(literal -1/32 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 4 binary64)) (pow.f64 c0 #s(literal 4 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 6 binary64)) (.f64 (pow.f64 h #s(literal 5 binary64)) (pow.f64 w #s(literal 4 binary64)))) (pow.f64 d #s(literal 10 binary64))))))))) (.f64 (/.f64 (.f64 c0 c0) h) (ratio-of-squares.f64 d w))) (.f64 D D)))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (/.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 (.f64 M M) (.f64 h w))) (.f64 c0 (.f64 d d)))) (.f64 #s(literal 2 binary64) (.f64 (/.f64 c0 h) (/.f64 (.f64 d d) w)))) (*.f64 D D)))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (/.f64 (+.f64 (.f64 #s(literal 2 binary64) (.f64 (/.f64 c0 h) (/.f64 (.f64 d d) w))) (.f64 (pow.f64 D #s(literal 4 binary64)) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 M M) (.f64 h w)) (.f64 c0 (.f64 d d)))) (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 4 binary64)) (pow.f64 c0 #s(literal 3 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (pow.f64 (.f64 h w) #s(literal 3 binary64))) (pow.f64 d #s(literal 6 binary64)))))))) (*.f64 D D)))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (/.f64 (+.f64 (.f64 #s(literal 2 binary64) (.f64 (/.f64 c0 h) (/.f64 (.f64 d d) w))) (.f64 (pow.f64 D #s(literal 4 binary64)) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 M M) (.f64 h w)) (.f64 c0 (.f64 d d)))) (.f64 (pow.f64 D #s(literal 4 binary64)) (+.f64 (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (pow.f64 M #s(literal 4 binary64)) (pow.f64 c0 #s(literal 3 binary64))) (/.f64 (pow.f64 (.f64 h w) #s(literal 3 binary64)) (pow.f64 d #s(literal 6 binary64))))) (.f64 #s(literal -1/16 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 4 binary64)) (pow.f64 c0 #s(literal 5 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 6 binary64)) (pow.f64 (.f64 h w) #s(literal 5 binary64))) (pow.f64 d #s(literal 10 binary64)))))))))) (*.f64 D D)))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) (/.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 (.f64 M M) (.f64 h w))) (.f64 c0 (.f64 d d)))) (.f64 (/.f64 c0 h) (/.f64 (.f64 d d) w))) (.f64 D D)))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) (/.f64 (+.f64 (.f64 (pow.f64 D #s(literal 4 binary64)) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 M M) (.f64 h w)) (.f64 c0 (.f64 d d)))) (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 4 binary64)) (pow.f64 c0 #s(literal 3 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (pow.f64 (.f64 h w) #s(literal 3 binary64))) (pow.f64 d #s(literal 6 binary64))))))) (.f64 (/.f64 c0 h) (/.f64 (.f64 d d) w))) (.f64 D D)))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) (/.f64 (+.f64 (.f64 (pow.f64 D #s(literal 4 binary64)) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 M M) (.f64 h w)) (.f64 c0 (.f64 d d)))) (.f64 (pow.f64 D #s(literal 4 binary64)) (+.f64 (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (pow.f64 M #s(literal 4 binary64)) (pow.f64 c0 #s(literal 3 binary64))) (/.f64 (pow.f64 (.f64 h w) #s(literal 3 binary64)) (pow.f64 d #s(literal 6 binary64))))) (.f64 #s(literal -1/16 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 4 binary64)) (pow.f64 c0 #s(literal 5 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 6 binary64)) (pow.f64 (.f64 h w) #s(literal 5 binary64))) (pow.f64 d #s(literal 10 binary64))))))))) (.f64 (/.f64 c0 h) (/.f64 (.f64 d d) w))) (.f64 D D)))
#s(approx (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 M M))) (.f64 (ratio-of-squares.f64 c0 h) (/.f64 (pow.f64 d #s(literal 4 binary64)) (*.f64 w w)))) (pow.f64 D #s(literal 4 binary64))))
#s(approx (* D D) (*.f64 D D))
#s(approx (/ (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (* w w)) (/.f64 (+.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 (.f64 M M) h)) (.f64 d d))) (.f64 (/.f64 (.f64 c0 c0) h) (ratio-of-squares.f64 d w))) (.f64 D D)))
#s(approx (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (/.f64 (+.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 (.f64 M M) (.f64 h (.f64 w w)))) (.f64 d d))) (/.f64 (pow.f64 (.f64 c0 d) #s(literal 2 binary64)) h)) (*.f64 D D)))
#s(approx (pow (* D M) 2) (pow.f64 (*.f64 D M) #s(literal 2 binary64)))
#s(approx (* D M) (*.f64 D M))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 M (.f64 c0 (sqrt.f64 #s(literal -1 binary64)))) w)) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 M (sqrt.f64 #s(literal -1 binary64))))) (.f64 (/.f64 c0 h) (/.f64 (*.f64 d d) w))) w)))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (+.f64 (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 c0 (pow.f64 D #s(literal 4 binary64))) (/.f64 (-.f64 (.f64 (ratio-of-squares.f64 c0 h) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 w w))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64))))) (.f64 M (.f64 w (sqrt.f64 #s(literal -1 binary64))))))) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 M (.f64 c0 (sqrt.f64 #s(literal -1 binary64)))) w)) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 M (sqrt.f64 #s(literal -1 binary64))))) (.f64 (/.f64 c0 h) (/.f64 (*.f64 d d) w))) w))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (+.f64 (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 c0 (pow.f64 D #s(literal 6 binary64))) (/.f64 (.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (-.f64 (.f64 (ratio-of-squares.f64 c0 h) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 w w))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64)))))) (.f64 (pow.f64 M #s(literal 3 binary64)) (.f64 w (pow.f64 #s(literal -1 binary64) #s(literal 3/2 binary64))))))) (+.f64 (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 c0 (pow.f64 D #s(literal 4 binary64))) (/.f64 (-.f64 (.f64 (ratio-of-squares.f64 c0 h) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 w w))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64))))) (.f64 M (.f64 w (sqrt.f64 #s(literal -1 binary64))))))) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 M (.f64 c0 (sqrt.f64 #s(literal -1 binary64)))) w)) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 M (sqrt.f64 #s(literal -1 binary64))))) (.f64 (/.f64 c0 h) (/.f64 (*.f64 d d) w))) w)))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (+.f64 (.f64 M (.f64 c0 (sqrt.f64 #s(literal -1 binary64)))) (/.f64 (.f64 c0 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 M (sqrt.f64 #s(literal -1 binary64))))) (.f64 (/.f64 c0 h) (/.f64 (.f64 d d) w)))) (*.f64 D D))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 c0 (pow.f64 D #s(literal 4 binary64))) (/.f64 (-.f64 (.f64 (ratio-of-squares.f64 c0 h) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 w w))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64))))) (.f64 M (sqrt.f64 #s(literal -1 binary64)))))) (+.f64 (.f64 M (.f64 c0 (sqrt.f64 #s(literal -1 binary64)))) (/.f64 (.f64 c0 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 M (sqrt.f64 #s(literal -1 binary64))))) (.f64 (/.f64 c0 h) (/.f64 (.f64 d d) w)))) (.f64 D D)))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (+.f64 (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 c0 (pow.f64 D #s(literal 6 binary64))) (/.f64 (.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (-.f64 (.f64 (ratio-of-squares.f64 c0 h) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 w w))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64)))))) (pow.f64 (.f64 M (sqrt.f64 #s(literal -1 binary64))) #s(literal 3 binary64))))) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 c0 (pow.f64 D #s(literal 4 binary64))) (/.f64 (-.f64 (.f64 (ratio-of-squares.f64 c0 h) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 w w))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64))))) (.f64 M (sqrt.f64 #s(literal -1 binary64)))))) (+.f64 (.f64 M (.f64 c0 (sqrt.f64 #s(literal -1 binary64)))) (/.f64 (.f64 c0 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 M (sqrt.f64 #s(literal -1 binary64))))) (.f64 (/.f64 c0 h) (/.f64 (.f64 d d) w)))) (*.f64 D D))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (.f64 D D) (.f64 M (sqrt.f64 #s(literal -1 binary64)))))) (+.f64 (.f64 M (sqrt.f64 #s(literal -1 binary64))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (*.f64 h w))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (.f64 D D) (.f64 M (sqrt.f64 #s(literal -1 binary64)))))) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 (ratio-of-squares.f64 c0 h) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 w w))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64))))) (.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 M (sqrt.f64 #s(literal -1 binary64)))))) (+.f64 (.f64 M (sqrt.f64 #s(literal -1 binary64))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) (+.f64 (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (pow.f64 D #s(literal 6 binary64))) (/.f64 (-.f64 (.f64 (ratio-of-squares.f64 c0 h) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 w w))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64))))) (pow.f64 (.f64 M (sqrt.f64 #s(literal -1 binary64))) #s(literal 3 binary64))))) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (.f64 D D) (.f64 M (sqrt.f64 #s(literal -1 binary64)))))) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 (ratio-of-squares.f64 c0 h) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 w w))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64))))) (.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 M (sqrt.f64 #s(literal -1 binary64)))))) (+.f64 (.f64 M (sqrt.f64 #s(literal -1 binary64))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (.f64 D D) (.f64 M (sqrt.f64 #s(literal -1 binary64)))))) (.f64 M (sqrt.f64 #s(literal -1 binary64)))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (.f64 D D) (.f64 M (sqrt.f64 #s(literal -1 binary64)))))) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 (ratio-of-squares.f64 c0 h) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 w w))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64))))) (.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 M (sqrt.f64 #s(literal -1 binary64)))))) (*.f64 M (sqrt.f64 #s(literal -1 binary64))))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))) (+.f64 (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (pow.f64 D #s(literal 6 binary64))) (/.f64 (-.f64 (.f64 (ratio-of-squares.f64 c0 h) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 w w))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64))))) (pow.f64 (.f64 M (sqrt.f64 #s(literal -1 binary64))) #s(literal 3 binary64))))) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (.f64 D D) (.f64 M (sqrt.f64 #s(literal -1 binary64)))))) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 (ratio-of-squares.f64 c0 h) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 w w))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64))))) (.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 M (sqrt.f64 #s(literal -1 binary64)))))) (*.f64 M (sqrt.f64 #s(literal -1 binary64)))))))
#s(approx (/ (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (* w w)) (.f64 (.f64 D D) (+.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 M M) h) (.f64 d d))) (/.f64 (pow.f64 (.f64 c0 d) #s(literal 2 binary64)) (.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 h (.f64 w w)))))))
#s(approx (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (.f64 (.f64 D D) (+.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 M M) (.f64 h (.f64 w w))) (.f64 d d))) (/.f64 (pow.f64 (.f64 c0 d) #s(literal 2 binary64)) (.f64 (pow.f64 D #s(literal 4 binary64)) h)))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 M (.f64 c0 (sqrt.f64 #s(literal -1 binary64)))) w)) (.f64 (.f64 d d) (+.f64 (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (pow.f64 c0 #s(literal 3 binary64)) (pow.f64 D #s(literal 4 binary64))) (/.f64 (.f64 d d) (.f64 M (.f64 (.f64 h h) (.f64 (pow.f64 w #s(literal 3 binary64)) (sqrt.f64 #s(literal -1 binary64)))))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 c0 c0) (.f64 (.f64 D D) (.f64 h (.f64 w w)))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 M (.f64 c0 (sqrt.f64 #s(literal -1 binary64)))) w)) (.f64 (.f64 d d) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 c0 c0) (.f64 (.f64 D D) (.f64 h (.f64 w w))))) (.f64 (.f64 d d) (+.f64 (.f64 #s(literal -1/16 binary64) (.f64 (/.f64 (pow.f64 c0 #s(literal 5 binary64)) (pow.f64 D #s(literal 8 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 (pow.f64 M #s(literal 3 binary64)) (.f64 (pow.f64 h #s(literal 4 binary64)) (.f64 (pow.f64 w #s(literal 5 binary64)) (pow.f64 #s(literal -1 binary64) #s(literal 3/2 binary64)))))))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 c0 #s(literal 3 binary64)) (.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 M (.f64 (.f64 h h) (.f64 (pow.f64 w #s(literal 3 binary64)) (sqrt.f64 #s(literal -1 binary64))))))))))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (+.f64 (.f64 M (sqrt.f64 #s(literal -1 binary64))) (.f64 (.f64 d d) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 (.f64 c0 d) #s(literal 2 binary64)) (.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 M (.f64 (.f64 h h) (.f64 (.f64 w w) (sqrt.f64 #s(literal -1 binary64)))))))) (/.f64 c0 (.f64 (.f64 D D) (.f64 h w)))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (+.f64 (.f64 M (sqrt.f64 #s(literal -1 binary64))) (.f64 (.f64 d d) (+.f64 (.f64 (.f64 d d) (+.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 (.f64 c0 d) #s(literal 4 binary64)) (.f64 (pow.f64 D #s(literal 8 binary64)) (.f64 (pow.f64 M #s(literal 3 binary64)) (.f64 (pow.f64 h #s(literal 4 binary64)) (.f64 (pow.f64 w #s(literal 4 binary64)) (pow.f64 #s(literal -1 binary64) #s(literal 3/2 binary64)))))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 c0 c0) (.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 M (.f64 (.f64 h h) (.f64 (.f64 w w) (sqrt.f64 #s(literal -1 binary64)))))))))) (/.f64 c0 (.f64 (.f64 D D) (.f64 h w)))))))
#s(approx d d)
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 M (.f64 c0 (sqrt.f64 #s(literal -1 binary64)))) w)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 c0 (.f64 (.f64 d d) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (.f64 M (sqrt.f64 #s(literal -1 binary64))))) (/.f64 c0 (.f64 (.f64 D D) (*.f64 h w)))))) w))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 M (.f64 c0 (sqrt.f64 #s(literal -1 binary64)))) w)) (.f64 (.f64 d d) (+.f64 (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 c0 M) (/.f64 (.f64 (.f64 d d) (-.f64 (/.f64 (.f64 c0 c0) (.f64 (pow.f64 D #s(literal 4 binary64)) (pow.f64 (.f64 h w) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64)))))) (.f64 w (sqrt.f64 #s(literal -1 binary64)))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 c0 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (.f64 M (sqrt.f64 #s(literal -1 binary64))))) (/.f64 c0 (.f64 (.f64 D D) (*.f64 h w))))) w))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 M (.f64 c0 (sqrt.f64 #s(literal -1 binary64)))) w)) (.f64 (.f64 d d) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 c0 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (.f64 M (sqrt.f64 #s(literal -1 binary64))))) (/.f64 c0 (.f64 (.f64 D D) (.f64 h w))))) w)) (.f64 (.f64 d d) (+.f64 (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 c0 (pow.f64 M #s(literal 3 binary64))) (/.f64 (.f64 (.f64 d d) (.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (-.f64 (/.f64 (.f64 c0 c0) (.f64 (pow.f64 D #s(literal 4 binary64)) (pow.f64 (.f64 h w) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64))))))) (.f64 w (pow.f64 #s(literal -1 binary64) #s(literal 3/2 binary64)))))) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 c0 M) (/.f64 (-.f64 (/.f64 (.f64 c0 c0) (.f64 (pow.f64 D #s(literal 4 binary64)) (pow.f64 (.f64 h w) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64))))) (*.f64 w (sqrt.f64 #s(literal -1 binary64))))))))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (+.f64 (.f64 M (.f64 c0 (sqrt.f64 #s(literal -1 binary64)))) (.f64 c0 (.f64 (.f64 d d) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (.f64 M (sqrt.f64 #s(literal -1 binary64))))) (/.f64 c0 (.f64 (.f64 D D) (*.f64 h w))))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (+.f64 (.f64 M (.f64 c0 (sqrt.f64 #s(literal -1 binary64)))) (.f64 (.f64 d d) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 c0 M) (/.f64 (.f64 (.f64 d d) (-.f64 (/.f64 (.f64 c0 c0) (.f64 (pow.f64 D #s(literal 4 binary64)) (pow.f64 (.f64 h w) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64)))))) (sqrt.f64 #s(literal -1 binary64))))) (.f64 c0 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (.f64 M (sqrt.f64 #s(literal -1 binary64))))) (/.f64 c0 (.f64 (.f64 D D) (.f64 h w)))))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (+.f64 (.f64 M (.f64 c0 (sqrt.f64 #s(literal -1 binary64)))) (.f64 (.f64 d d) (+.f64 (.f64 c0 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (.f64 M (sqrt.f64 #s(literal -1 binary64))))) (/.f64 c0 (.f64 (.f64 D D) (.f64 h w))))) (.f64 (.f64 d d) (+.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 c0 (.f64 (.f64 d d) (.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (-.f64 (/.f64 (.f64 c0 c0) (.f64 (pow.f64 D #s(literal 4 binary64)) (pow.f64 (.f64 h w) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64)))))))) (pow.f64 (.f64 M (sqrt.f64 #s(literal -1 binary64))) #s(literal 3 binary64)))) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 c0 M) (/.f64 (-.f64 (/.f64 (.f64 c0 c0) (.f64 (pow.f64 D #s(literal 4 binary64)) (pow.f64 (.f64 h w) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64))))) (sqrt.f64 #s(literal -1 binary64)))))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) (+.f64 (.f64 M (sqrt.f64 #s(literal -1 binary64))) (.f64 (.f64 d d) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (.f64 M (sqrt.f64 #s(literal -1 binary64))))) (/.f64 c0 (.f64 (.f64 D D) (*.f64 h w)))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) (+.f64 (.f64 M (sqrt.f64 #s(literal -1 binary64))) (.f64 (.f64 d d) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 d d) M) (/.f64 (-.f64 (/.f64 (.f64 c0 c0) (.f64 (pow.f64 D #s(literal 4 binary64)) (pow.f64 (.f64 h w) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64))))) (sqrt.f64 #s(literal -1 binary64))))) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (.f64 M (sqrt.f64 #s(literal -1 binary64))))) (/.f64 c0 (.f64 (.f64 D D) (*.f64 h w))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) (+.f64 (.f64 M (sqrt.f64 #s(literal -1 binary64))) (.f64 (.f64 d d) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (.f64 M (sqrt.f64 #s(literal -1 binary64))))) (+.f64 (.f64 (.f64 d d) (+.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 d d) (.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (-.f64 (/.f64 (.f64 c0 c0) (.f64 (pow.f64 D #s(literal 4 binary64)) (pow.f64 (.f64 h w) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64))))))) (pow.f64 (.f64 M (sqrt.f64 #s(literal -1 binary64))) #s(literal 3 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (/.f64 (.f64 c0 c0) (.f64 (pow.f64 D #s(literal 4 binary64)) (pow.f64 (.f64 h w) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64))))) (.f64 M (sqrt.f64 #s(literal -1 binary64))))))) (/.f64 c0 (.f64 (.f64 D D) (*.f64 h w))))))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 d d) M) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (sqrt.f64 #s(literal -1 binary64))))) (*.f64 M (sqrt.f64 #s(literal -1 binary64)))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))) (+.f64 (.f64 M (sqrt.f64 #s(literal -1 binary64))) (.f64 (.f64 d d) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 d d) M) (/.f64 (-.f64 (/.f64 (.f64 c0 c0) (.f64 (pow.f64 D #s(literal 4 binary64)) (pow.f64 (.f64 h w) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64))))) (sqrt.f64 #s(literal -1 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (.f64 M (sqrt.f64 #s(literal -1 binary64)))))))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))) (+.f64 (.f64 M (sqrt.f64 #s(literal -1 binary64))) (.f64 (.f64 d d) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (.f64 M (sqrt.f64 #s(literal -1 binary64))))) (.f64 (.f64 d d) (+.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 d d) (.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (-.f64 (/.f64 (.f64 c0 c0) (.f64 (pow.f64 D #s(literal 4 binary64)) (pow.f64 (.f64 h w) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64))))))) (pow.f64 (.f64 M (sqrt.f64 #s(literal -1 binary64))) #s(literal 3 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (/.f64 (.f64 c0 c0) (.f64 (pow.f64 D #s(literal 4 binary64)) (pow.f64 (.f64 h w) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64))))) (.f64 M (sqrt.f64 #s(literal -1 binary64)))))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 M (.f64 c0 (sqrt.f64 #s(literal -1 binary64)))) w)) (.f64 (.f64 d d) (+.f64 (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (pow.f64 c0 #s(literal 3 binary64)) (pow.f64 D #s(literal 4 binary64))) (/.f64 (.f64 d d) (.f64 M (.f64 (.f64 h h) (.f64 (pow.f64 w #s(literal 3 binary64)) (sqrt.f64 #s(literal -1 binary64)))))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 c0 c0) (.f64 (.f64 D D) (.f64 h (.f64 w w)))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 M (.f64 c0 (sqrt.f64 #s(literal -1 binary64)))) w)) (.f64 (.f64 d d) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 c0 c0) (.f64 (.f64 D D) (.f64 h (.f64 w w))))) (.f64 (.f64 d d) (+.f64 (.f64 #s(literal -1/16 binary64) (.f64 (/.f64 (pow.f64 c0 #s(literal 5 binary64)) (pow.f64 D #s(literal 8 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 (pow.f64 M #s(literal 3 binary64)) (.f64 (pow.f64 h #s(literal 4 binary64)) (.f64 (pow.f64 w #s(literal 5 binary64)) (pow.f64 #s(literal -1 binary64) #s(literal 3/2 binary64)))))))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 c0 #s(literal 3 binary64)) (.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 M (.f64 (.f64 h h) (.f64 (pow.f64 w #s(literal 3 binary64)) (sqrt.f64 #s(literal -1 binary64))))))))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (+.f64 (.f64 M (sqrt.f64 #s(literal -1 binary64))) (.f64 (.f64 d d) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 (.f64 c0 d) #s(literal 2 binary64)) (.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 M (.f64 (.f64 h h) (.f64 (.f64 w w) (sqrt.f64 #s(literal -1 binary64)))))))) (/.f64 c0 (.f64 (.f64 D D) (.f64 h w)))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (+.f64 (.f64 M (sqrt.f64 #s(literal -1 binary64))) (.f64 (.f64 d d) (+.f64 (.f64 (.f64 d d) (+.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 (.f64 c0 d) #s(literal 4 binary64)) (.f64 (pow.f64 D #s(literal 8 binary64)) (.f64 (pow.f64 M #s(literal 3 binary64)) (.f64 (pow.f64 h #s(literal 4 binary64)) (.f64 (pow.f64 w #s(literal 4 binary64)) (pow.f64 #s(literal -1 binary64) #s(literal 3/2 binary64)))))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 c0 c0) (.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 M (.f64 (.f64 h h) (.f64 (.f64 w w) (sqrt.f64 #s(literal -1 binary64)))))))))) (/.f64 c0 (.f64 (.f64 D D) (.f64 h w)))))))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) (+.f64 (.f64 M (sqrt.f64 #s(literal -1 binary64))) (.f64 (pow.f64 d #s(literal 4 binary64)) (+.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 (.f64 c0 d) #s(literal 4 binary64)) (.f64 (pow.f64 D #s(literal 8 binary64)) (.f64 (pow.f64 M #s(literal 3 binary64)) (.f64 (pow.f64 h #s(literal 4 binary64)) (.f64 (pow.f64 w #s(literal 4 binary64)) (pow.f64 #s(literal -1 binary64) #s(literal 3/2 binary64)))))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 c0 c0) (.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 M (.f64 (.f64 h h) (.f64 (.f64 w w) (sqrt.f64 #s(literal -1 binary64))))))))))))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) (+.f64 (.f64 M (sqrt.f64 #s(literal -1 binary64))) (.f64 (pow.f64 d #s(literal 4 binary64)) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 c0 c0) (.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 M (.f64 (.f64 h h) (.f64 (.f64 w w) (sqrt.f64 #s(literal -1 binary64)))))))) (.f64 (pow.f64 d #s(literal 4 binary64)) (+.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 c0 #s(literal 4 binary64)) (.f64 (pow.f64 D #s(literal 8 binary64)) (.f64 (pow.f64 M #s(literal 3 binary64)) (.f64 (pow.f64 h #s(literal 4 binary64)) (.f64 (pow.f64 w #s(literal 4 binary64)) (pow.f64 #s(literal -1 binary64) #s(literal 3/2 binary64)))))))) (.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (pow.f64 c0 #s(literal 6 binary64)) (pow.f64 D #s(literal 12 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 (pow.f64 M #s(literal 5 binary64)) (.f64 (pow.f64 h #s(literal 6 binary64)) (*.f64 (pow.f64 w #s(literal 6 binary64)) (pow.f64 #s(literal -1 binary64) #s(literal 5/2 binary64))))))))))))))
#s(approx (* d d) (*.f64 d d))
#s(approx (/ (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (* w w)) (/.f64 (+.f64 (.f64 #s(literal -1/4 binary64) (.f64 (.f64 D D) (.f64 (.f64 M M) h))) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 h (.f64 w w))))) (*.f64 d d)))
#s(approx (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (/.f64 (+.f64 (.f64 #s(literal -1/4 binary64) (.f64 (.f64 D D) (.f64 (.f64 M M) (.f64 h (.f64 w w))))) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (pow.f64 d #s(literal 4 binary64)) h))) (*.f64 d d)))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (.f64 (.f64 d d) (+.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 D D) (.f64 (.f64 M M) h)) (pow.f64 d #s(literal 4 binary64)))) (/.f64 (.f64 c0 c0) (.f64 (.f64 D D) (.f64 h (.f64 w w)))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (.f64 (.f64 d d) (+.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 D D) (.f64 (.f64 M M) h)) (pow.f64 d #s(literal 4 binary64)))) (+.f64 (.f64 #s(literal -1/16 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (.f64 c0 c0)) (/.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (.f64 (pow.f64 h #s(literal 3 binary64)) (.f64 w w))) (pow.f64 d #s(literal 8 binary64))))) (/.f64 (.f64 c0 c0) (.f64 (.f64 D D) (.f64 h (.f64 w w))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (.f64 (.f64 d d) (+.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 D D) (.f64 (.f64 M M) h)) (pow.f64 d #s(literal 4 binary64)))) (+.f64 (.f64 #s(literal -1/16 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (.f64 c0 c0)) (/.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (.f64 (pow.f64 h #s(literal 3 binary64)) (.f64 w w))) (pow.f64 d #s(literal 8 binary64))))) (+.f64 (.f64 #s(literal -1/32 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 10 binary64)) (pow.f64 c0 #s(literal 4 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 6 binary64)) (.f64 (pow.f64 h #s(literal 5 binary64)) (pow.f64 w #s(literal 4 binary64)))) (pow.f64 d #s(literal 12 binary64))))) (/.f64 (.f64 c0 c0) (.f64 (.f64 D D) (.f64 h (.f64 w w)))))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (.f64 (.f64 d d) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 D D) (.f64 (.f64 M M) (.f64 h w))) (.f64 c0 (pow.f64 d #s(literal 4 binary64))))) (.f64 #s(literal 2 binary64) (/.f64 c0 (.f64 (.f64 D D) (*.f64 h w)))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (.f64 (.f64 d d) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 D D) (.f64 (.f64 M M) (.f64 h w))) (.f64 c0 (pow.f64 d #s(literal 4 binary64))))) (+.f64 (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (pow.f64 c0 #s(literal 3 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (pow.f64 (.f64 h w) #s(literal 3 binary64))) (pow.f64 d #s(literal 8 binary64))))) (.f64 #s(literal 2 binary64) (/.f64 c0 (.f64 (.f64 D D) (*.f64 h w))))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (.f64 (.f64 d d) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 D D) (.f64 (.f64 M M) (.f64 h w))) (.f64 c0 (pow.f64 d #s(literal 4 binary64))))) (+.f64 (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (pow.f64 c0 #s(literal 3 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (pow.f64 (.f64 h w) #s(literal 3 binary64))) (pow.f64 d #s(literal 8 binary64))))) (+.f64 (.f64 #s(literal -1/16 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 10 binary64)) (pow.f64 c0 #s(literal 5 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 6 binary64)) (pow.f64 (.f64 h w) #s(literal 5 binary64))) (pow.f64 d #s(literal 12 binary64))))) (.f64 #s(literal 2 binary64) (/.f64 c0 (.f64 (.f64 D D) (*.f64 h w)))))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (.f64 (.f64 d d) (+.f64 (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (.f64 D D) (.f64 h (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))))) (.f64 d d))) (/.f64 (.f64 c0 c0) (.f64 (.f64 D D) (.f64 h (*.f64 w w)))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (.f64 (.f64 d d) (+.f64 (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (.f64 D D) (.f64 h (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))))) (.f64 d d))) (+.f64 (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (.f64 D D) (.f64 h (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 (.f64 h h) (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w))))) #s(literal 2 binary64)))) (.f64 c0 c0)))))) (pow.f64 d #s(literal 4 binary64)))) (/.f64 (.f64 c0 c0) (.f64 (.f64 D D) (.f64 h (.f64 w w))))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (.f64 (.f64 d d) (+.f64 (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (.f64 c0 c0)) (/.f64 (.f64 (pow.f64 h #s(literal 3 binary64)) (.f64 (.f64 w w) (.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 (.f64 h h) (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w))))) #s(literal 2 binary64)))) (.f64 c0 c0))))))) (pow.f64 d #s(literal 6 binary64))))) (+.f64 (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (.f64 D D) (.f64 h (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))))) (.f64 d d))) (+.f64 (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (.f64 D D) (.f64 h (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 (.f64 h h) (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w))))) #s(literal 2 binary64)))) (.f64 c0 c0)))))) (pow.f64 d #s(literal 4 binary64)))) (/.f64 (.f64 c0 c0) (.f64 (.f64 D D) (.f64 h (*.f64 w w)))))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (.f64 (.f64 d d) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 D D) (.f64 h (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w))))))) (.f64 d d))) (.f64 #s(literal 2 binary64) (/.f64 (.f64 c0 c0) (.f64 (.f64 D D) (.f64 h w)))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (.f64 (.f64 d d) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 D D) (.f64 h (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w))))))) (.f64 d d))) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 D D) (.f64 h (.f64 w (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 (.f64 h h) (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w))))) #s(literal 2 binary64)))) (.f64 c0 c0))))))) (pow.f64 d #s(literal 4 binary64)))) (.f64 #s(literal 2 binary64) (/.f64 (.f64 c0 c0) (.f64 (.f64 D D) (.f64 h w))))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (.f64 (.f64 d d) (+.f64 (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (.f64 c0 c0)) (/.f64 (.f64 (pow.f64 h #s(literal 3 binary64)) (.f64 (pow.f64 w #s(literal 3 binary64)) (.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 (.f64 h h) (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w))))) #s(literal 2 binary64)))) (.f64 c0 c0))))))) (pow.f64 d #s(literal 6 binary64))))) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 D D) (.f64 h (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w))))))) (.f64 d d))) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 D D) (.f64 h (.f64 w (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 (.f64 h h) (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w))))) #s(literal 2 binary64)))) (.f64 c0 c0))))))) (pow.f64 d #s(literal 4 binary64)))) (.f64 #s(literal 2 binary64) (/.f64 (.f64 c0 c0) (.f64 (.f64 D D) (.f64 h w)))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) (.f64 (.f64 d d) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 D D) c0) (/.f64 (.f64 h (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))))) (.f64 d d)))) (.f64 #s(literal 2 binary64) (/.f64 c0 (.f64 (.f64 D D) (*.f64 h w)))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) (.f64 (.f64 d d) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 D D) c0) (/.f64 (.f64 h (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))))) (.f64 d d)))) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 D D) c0) (/.f64 (.f64 h (.f64 w (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 (.f64 h h) (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w))))) #s(literal 2 binary64)))) (.f64 c0 c0)))))) (pow.f64 d #s(literal 4 binary64))))) (.f64 #s(literal 2 binary64) (/.f64 c0 (.f64 (.f64 D D) (*.f64 h w))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) (.f64 (.f64 d d) (+.f64 (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (pow.f64 c0 #s(literal 3 binary64))) (/.f64 (.f64 (pow.f64 h #s(literal 3 binary64)) (.f64 (pow.f64 w #s(literal 3 binary64)) (.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 (.f64 h h) (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w))))) #s(literal 2 binary64)))) (.f64 c0 c0))))))) (pow.f64 d #s(literal 6 binary64))))) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 D D) c0) (/.f64 (.f64 h (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))))) (.f64 d d)))) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 D D) c0) (/.f64 (.f64 h (.f64 w (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 (.f64 h h) (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w))))) #s(literal 2 binary64)))) (.f64 c0 c0)))))) (pow.f64 d #s(literal 4 binary64))))) (.f64 #s(literal 2 binary64) (/.f64 c0 (.f64 (.f64 D D) (.f64 h w)))))))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))) (.f64 (.f64 d d) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 D D) c0) (/.f64 (.f64 h (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))))) (.f64 d d)))) (/.f64 c0 (.f64 (.f64 D D) (.f64 h w))))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))) (.f64 (.f64 d d) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 D D) c0) (/.f64 (.f64 h (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))))) (.f64 d d)))) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 D D) c0) (/.f64 (.f64 h (.f64 w (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 (.f64 h h) (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w))))) #s(literal 2 binary64)))) (.f64 c0 c0)))))) (pow.f64 d #s(literal 4 binary64))))) (/.f64 c0 (.f64 (.f64 D D) (.f64 h w)))))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))) (.f64 (.f64 d d) (+.f64 (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (pow.f64 c0 #s(literal 3 binary64))) (/.f64 (.f64 (pow.f64 h #s(literal 3 binary64)) (.f64 (pow.f64 w #s(literal 3 binary64)) (.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 (.f64 h h) (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w))))) #s(literal 2 binary64)))) (.f64 c0 c0))))))) (pow.f64 d #s(literal 6 binary64))))) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 D D) c0) (/.f64 (.f64 h (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))))) (.f64 d d)))) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 D D) c0) (/.f64 (.f64 h (.f64 w (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 (.f64 h h) (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w))))) #s(literal 2 binary64)))) (.f64 c0 c0)))))) (pow.f64 d #s(literal 4 binary64))))) (/.f64 c0 (.f64 (.f64 D D) (*.f64 h w))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (.f64 (.f64 d d) (+.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 D D) (.f64 (.f64 M M) h)) (pow.f64 d #s(literal 4 binary64)))) (/.f64 (.f64 c0 c0) (.f64 (.f64 D D) (.f64 h (.f64 w w)))))))
#s(approx (* (/ c0 (* 2 w)) (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (.f64 (.f64 d d) (+.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 D D) (.f64 (.f64 M M) h)) (pow.f64 d #s(literal 4 binary64)))) (+.f64 (.f64 #s(literal -1/16 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (.f64 c0 c0)) (/.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (.f64 (pow.f64 h #s(literal 3 binary64)) (.f64 w w))) (pow.f64 d #s(literal 8 binary64))))) (/.f64 (.f64 c0 c0) (.f64 (.f64 D D) (.f64 h (.f64 w w))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (.f64 (.f64 d d) (+.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 D D) (.f64 (.f64 M M) h)) (pow.f64 d #s(literal 4 binary64)))) (+.f64 (.f64 #s(literal -1/16 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (.f64 c0 c0)) (/.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (.f64 (pow.f64 h #s(literal 3 binary64)) (.f64 w w))) (pow.f64 d #s(literal 8 binary64))))) (+.f64 (.f64 #s(literal -1/32 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 10 binary64)) (pow.f64 c0 #s(literal 4 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 6 binary64)) (.f64 (pow.f64 h #s(literal 5 binary64)) (pow.f64 w #s(literal 4 binary64)))) (pow.f64 d #s(literal 12 binary64))))) (/.f64 (.f64 c0 c0) (.f64 (.f64 D D) (.f64 h (.f64 w w)))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (.f64 (.f64 d d) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 D D) (.f64 (.f64 M M) (.f64 h w))) (.f64 c0 (pow.f64 d #s(literal 4 binary64))))) (.f64 #s(literal 2 binary64) (/.f64 c0 (.f64 (.f64 D D) (*.f64 h w)))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (.f64 (.f64 d d) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 D D) (.f64 (.f64 M M) (.f64 h w))) (.f64 c0 (pow.f64 d #s(literal 4 binary64))))) (+.f64 (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (pow.f64 c0 #s(literal 3 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (pow.f64 (.f64 h w) #s(literal 3 binary64))) (pow.f64 d #s(literal 8 binary64))))) (.f64 #s(literal 2 binary64) (/.f64 c0 (.f64 (.f64 D D) (*.f64 h w))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (.f64 (.f64 d d) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 D D) (.f64 (.f64 M M) (.f64 h w))) (.f64 c0 (pow.f64 d #s(literal 4 binary64))))) (+.f64 (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (pow.f64 c0 #s(literal 3 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (pow.f64 (.f64 h w) #s(literal 3 binary64))) (pow.f64 d #s(literal 8 binary64))))) (+.f64 (.f64 #s(literal -1/16 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 10 binary64)) (pow.f64 c0 #s(literal 5 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 6 binary64)) (pow.f64 (.f64 h w) #s(literal 5 binary64))) (pow.f64 d #s(literal 12 binary64))))) (.f64 #s(literal 2 binary64) (/.f64 c0 (.f64 (.f64 D D) (*.f64 h w)))))))))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) (.f64 (.f64 d d) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 D D) (.f64 (.f64 M M) (.f64 h w))) (.f64 c0 (pow.f64 d #s(literal 4 binary64))))) (/.f64 c0 (.f64 (.f64 D D) (.f64 h w))))))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) (.f64 (.f64 d d) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 D D) (.f64 (.f64 M M) (.f64 h w))) (.f64 c0 (pow.f64 d #s(literal 4 binary64))))) (+.f64 (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (pow.f64 c0 #s(literal 3 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (pow.f64 (.f64 h w) #s(literal 3 binary64))) (pow.f64 d #s(literal 8 binary64))))) (/.f64 c0 (.f64 (.f64 D D) (.f64 h w)))))))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) (.f64 (.f64 d d) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 D D) (.f64 (.f64 M M) (.f64 h w))) (.f64 c0 (pow.f64 d #s(literal 4 binary64))))) (+.f64 (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (pow.f64 c0 #s(literal 3 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (pow.f64 (.f64 h w) #s(literal 3 binary64))) (pow.f64 d #s(literal 8 binary64))))) (+.f64 (.f64 #s(literal -1/16 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 10 binary64)) (pow.f64 c0 #s(literal 5 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 6 binary64)) (pow.f64 (.f64 h w) #s(literal 5 binary64))) (pow.f64 d #s(literal 12 binary64))))) (/.f64 c0 (.f64 (.f64 D D) (.f64 h w))))))))
#s(approx (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)) (.f64 (pow.f64 d #s(literal 4 binary64)) (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M M) (pow.f64 d #s(literal 4 binary64)))) (/.f64 (.f64 c0 c0) (.f64 (pow.f64 D #s(literal 4 binary64)) (pow.f64 (.f64 h w) #s(literal 2 binary64)))))))
#s(approx (/ (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (* w w)) (.f64 (.f64 d d) (+.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 D D) (.f64 (.f64 M M) h)) (pow.f64 d #s(literal 4 binary64)))) (/.f64 (.f64 c0 c0) (.f64 (.f64 D D) (.f64 h (.f64 w w)))))))
#s(approx (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (.f64 (.f64 d d) (+.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 D D) (.f64 (.f64 M M) (.f64 h (.f64 w w)))) (pow.f64 d #s(literal 4 binary64)))) (/.f64 (.f64 c0 c0) (.f64 (.f64 D D) h)))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (+.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 D D) (.f64 (.f64 M M) h)) (.f64 d d))) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) (.f64 h (.f64 w w))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (+.f64 (.f64 (.f64 M M) (+.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 D D) h) (.f64 d d))) (.f64 #s(literal -1/16 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (.f64 c0 c0)) (/.f64 (.f64 (.f64 M M) (.f64 (pow.f64 h #s(literal 3 binary64)) (.f64 w w))) (pow.f64 d #s(literal 6 binary64))))))) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) (.f64 h (*.f64 w w))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (+.f64 (.f64 (.f64 M M) (+.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 D D) h) (.f64 d d))) (.f64 (.f64 M M) (+.f64 (.f64 #s(literal -1/16 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (.f64 c0 c0)) (/.f64 (.f64 (pow.f64 h #s(literal 3 binary64)) (.f64 w w)) (pow.f64 d #s(literal 6 binary64))))) (.f64 #s(literal -1/32 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 10 binary64)) (pow.f64 c0 #s(literal 4 binary64))) (/.f64 (.f64 (.f64 M M) (.f64 (pow.f64 h #s(literal 5 binary64)) (pow.f64 w #s(literal 4 binary64)))) (pow.f64 d #s(literal 10 binary64))))))))) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) (.f64 h (.f64 w w))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 D D) (.f64 (.f64 M M) (.f64 h w))) (.f64 c0 (.f64 d d)))) (.f64 #s(literal 2 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (+.f64 (.f64 #s(literal 2 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (.f64 (.f64 M M) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 D D) (.f64 h w)) (.f64 c0 (.f64 d d)))) (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (pow.f64 c0 #s(literal 3 binary64))) (/.f64 (.f64 (.f64 M M) (pow.f64 (*.f64 h w) #s(literal 3 binary64))) (pow.f64 d #s(literal 6 binary64)))))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (+.f64 (.f64 #s(literal 2 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (.f64 (.f64 M M) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 D D) (.f64 h w)) (.f64 c0 (.f64 d d)))) (.f64 (.f64 M M) (+.f64 (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (pow.f64 c0 #s(literal 3 binary64))) (/.f64 (pow.f64 (.f64 h w) #s(literal 3 binary64)) (pow.f64 d #s(literal 6 binary64))))) (.f64 #s(literal -1/16 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 10 binary64)) (pow.f64 c0 #s(literal 5 binary64))) (/.f64 (.f64 (.f64 M M) (pow.f64 (.f64 h w) #s(literal 5 binary64))) (pow.f64 d #s(literal 10 binary64)))))))))))
#s(approx (* (sqrt -1) M) (*.f64 M (sqrt.f64 #s(literal -1 binary64))))
#s(approx M M)
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (+.f64 (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (.f64 D D) (.f64 M (.f64 h (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))))) (.f64 d d))) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) (.f64 h (*.f64 w w))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (+.f64 (.f64 M (+.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 D D) (.f64 M (.f64 h (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 c0 c0)) (/.f64 (.f64 (.f64 h h) (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))) #s(literal 2 binary64))) (pow.f64 d #s(literal 4 binary64))))))))) (.f64 d d))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (.f64 D D) (.f64 h (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))))) (.f64 d d))))) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) (.f64 h (.f64 w w))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (+.f64 (.f64 M (+.f64 (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (.f64 D D) (.f64 h (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))))) (.f64 d d))) (.f64 M (+.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 D D) (.f64 h (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 c0 c0)) (/.f64 (.f64 (.f64 h h) (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))) #s(literal 2 binary64))) (pow.f64 d #s(literal 4 binary64)))))))) (.f64 d d))) (.f64 #s(literal 1/8 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (.f64 c0 c0)) (/.f64 (.f64 M (.f64 (pow.f64 h #s(literal 3 binary64)) (.f64 (.f64 w w) (.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 c0 c0)) (/.f64 (.f64 (.f64 h h) (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))) #s(literal 2 binary64))) (pow.f64 d #s(literal 4 binary64)))))) (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))))))) (pow.f64 d #s(literal 6 binary64))))))))) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) (.f64 h (.f64 w w))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 D D) (.f64 M (.f64 h (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))))))) (.f64 d d))) (.f64 #s(literal 2 binary64) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) (.f64 h w))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (+.f64 (.f64 #s(literal 2 binary64) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) (.f64 h w)))) (.f64 M (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 D D) (.f64 M (.f64 h (.f64 w (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 c0 c0)) (/.f64 (.f64 (.f64 h h) (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))) #s(literal 2 binary64))) (pow.f64 d #s(literal 4 binary64)))))))))) (.f64 d d))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 D D) (.f64 h (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))))) (.f64 d d)))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (+.f64 (.f64 #s(literal 2 binary64) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) (.f64 h w)))) (.f64 M (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 D D) (.f64 h (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))))) (.f64 d d))) (.f64 M (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 D D) (.f64 h (.f64 w (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 c0 c0)) (/.f64 (.f64 (.f64 h h) (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))) #s(literal 2 binary64))) (pow.f64 d #s(literal 4 binary64))))))))) (.f64 d d))) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (.f64 c0 c0)) (/.f64 (.f64 M (.f64 (pow.f64 h #s(literal 3 binary64)) (.f64 (pow.f64 w #s(literal 3 binary64)) (.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 c0 c0)) (/.f64 (.f64 (.f64 h h) (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))) #s(literal 2 binary64))) (pow.f64 d #s(literal 4 binary64)))))) (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (*.f64 h w)))))))) (pow.f64 d #s(literal 6 binary64)))))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 D D) c0) (/.f64 (.f64 M (.f64 h (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))))) (.f64 d d)))) (.f64 #s(literal 2 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) (+.f64 (.f64 #s(literal 2 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (.f64 M (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 D D) c0) (/.f64 (.f64 M (.f64 h (.f64 w (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 c0 c0)) (/.f64 (.f64 (.f64 h h) (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))) #s(literal 2 binary64))) (pow.f64 d #s(literal 4 binary64))))))))) (.f64 d d)))) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 D D) c0) (/.f64 (.f64 h (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))))) (.f64 d d))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) (+.f64 (.f64 #s(literal 2 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (.f64 M (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 D D) c0) (/.f64 (.f64 h (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))))) (.f64 d d)))) (.f64 M (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 D D) c0) (/.f64 (.f64 h (.f64 w (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 c0 c0)) (/.f64 (.f64 (.f64 h h) (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))) #s(literal 2 binary64))) (pow.f64 d #s(literal 4 binary64)))))))) (.f64 d d)))) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (pow.f64 c0 #s(literal 3 binary64))) (/.f64 (.f64 M (.f64 (pow.f64 h #s(literal 3 binary64)) (.f64 (pow.f64 w #s(literal 3 binary64)) (.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 c0 c0)) (/.f64 (.f64 (.f64 h h) (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))) #s(literal 2 binary64))) (pow.f64 d #s(literal 4 binary64)))))) (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))))))) (pow.f64 d #s(literal 6 binary64)))))))))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 D D) c0) (/.f64 (.f64 M (.f64 h (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))))) (.f64 d d)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (*.f64 h w)))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))) (+.f64 (.f64 M (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 D D) c0) (/.f64 (.f64 M (.f64 h (.f64 w (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 c0 c0)) (/.f64 (.f64 (.f64 h h) (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))) #s(literal 2 binary64))) (pow.f64 d #s(literal 4 binary64))))))))) (.f64 d d)))) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 D D) c0) (/.f64 (.f64 h (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))))) (.f64 d d)))))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (*.f64 h w)))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))) (+.f64 (.f64 M (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 D D) c0) (/.f64 (.f64 h (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))))) (.f64 d d)))) (.f64 M (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 D D) c0) (/.f64 (.f64 h (.f64 w (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 c0 c0)) (/.f64 (.f64 (.f64 h h) (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))) #s(literal 2 binary64))) (pow.f64 d #s(literal 4 binary64)))))))) (.f64 d d)))) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (pow.f64 c0 #s(literal 3 binary64))) (/.f64 (.f64 M (.f64 (pow.f64 h #s(literal 3 binary64)) (.f64 (pow.f64 w #s(literal 3 binary64)) (.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 c0 c0)) (/.f64 (.f64 (.f64 h h) (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))) #s(literal 2 binary64))) (pow.f64 d #s(literal 4 binary64)))))) (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))))))) (pow.f64 d #s(literal 6 binary64))))))))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (*.f64 h w)))))
#s(approx (* (/ c0 (* 2 w)) (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (+.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 D D) (.f64 (.f64 M M) h)) (.f64 d d))) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) (.f64 h (.f64 w w))))))
#s(approx (* (/ c0 (* 2 w)) (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (+.f64 (.f64 (.f64 M M) (+.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 D D) h) (.f64 d d))) (.f64 #s(literal -1/16 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (.f64 c0 c0)) (/.f64 (.f64 (.f64 M M) (.f64 (pow.f64 h #s(literal 3 binary64)) (.f64 w w))) (pow.f64 d #s(literal 6 binary64))))))) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) (.f64 h (*.f64 w w))))))
#s(approx (* (/ c0 (* 2 w)) (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (+.f64 (.f64 (.f64 M M) (+.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 D D) h) (.f64 d d))) (.f64 (.f64 M M) (+.f64 (.f64 #s(literal -1/16 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (.f64 c0 c0)) (/.f64 (.f64 (pow.f64 h #s(literal 3 binary64)) (.f64 w w)) (pow.f64 d #s(literal 6 binary64))))) (.f64 #s(literal -1/32 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 10 binary64)) (pow.f64 c0 #s(literal 4 binary64))) (/.f64 (.f64 (.f64 M M) (.f64 (pow.f64 h #s(literal 5 binary64)) (pow.f64 w #s(literal 4 binary64)))) (pow.f64 d #s(literal 10 binary64))))))))) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) (.f64 h (.f64 w w))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 D D) (.f64 (.f64 M M) (.f64 h w))) (.f64 c0 (.f64 d d)))) (.f64 #s(literal 2 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (+.f64 (.f64 #s(literal 2 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (.f64 (.f64 M M) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 D D) (.f64 h w)) (.f64 c0 (.f64 d d)))) (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (pow.f64 c0 #s(literal 3 binary64))) (/.f64 (.f64 (.f64 M M) (pow.f64 (*.f64 h w) #s(literal 3 binary64))) (pow.f64 d #s(literal 6 binary64)))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (+.f64 (.f64 #s(literal 2 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (.f64 (.f64 M M) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 D D) (.f64 h w)) (.f64 c0 (.f64 d d)))) (.f64 (.f64 M M) (+.f64 (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (pow.f64 c0 #s(literal 3 binary64))) (/.f64 (pow.f64 (.f64 h w) #s(literal 3 binary64)) (pow.f64 d #s(literal 6 binary64))))) (.f64 #s(literal -1/16 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 10 binary64)) (pow.f64 c0 #s(literal 5 binary64))) (/.f64 (.f64 (.f64 M M) (pow.f64 (.f64 h w) #s(literal 5 binary64))) (pow.f64 d #s(literal 10 binary64)))))))))))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 D D) (.f64 (.f64 M M) (.f64 h w))) (.f64 c0 (.f64 d d)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (*.f64 h w)))))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) (+.f64 (.f64 (.f64 M M) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 D D) (.f64 h w)) (.f64 c0 (.f64 d d)))) (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (pow.f64 c0 #s(literal 3 binary64))) (/.f64 (.f64 (.f64 M M) (pow.f64 (.f64 h w) #s(literal 3 binary64))) (pow.f64 d #s(literal 6 binary64))))))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) (+.f64 (.f64 (.f64 M M) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 D D) (.f64 h w)) (.f64 c0 (.f64 d d)))) (.f64 (.f64 M M) (+.f64 (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (pow.f64 c0 #s(literal 3 binary64))) (/.f64 (pow.f64 (.f64 h w) #s(literal 3 binary64)) (pow.f64 d #s(literal 6 binary64))))) (.f64 #s(literal -1/16 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 10 binary64)) (pow.f64 c0 #s(literal 5 binary64))) (/.f64 (.f64 (.f64 M M) (pow.f64 (.f64 h w) #s(literal 5 binary64))) (pow.f64 d #s(literal 10 binary64))))))))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (*.f64 h w)))))
#s(approx (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)) (+.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (pow.f64 (*.f64 h w) #s(literal 2 binary64))))))
#s(approx (* M M) (*.f64 M M))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (.f64 M (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 c0 (sqrt.f64 #s(literal -1 binary64))) w)) (.f64 #s(literal 1/2 binary64) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) (.f64 M (.f64 h (*.f64 w w)))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (.f64 M (+.f64 (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (pow.f64 c0 #s(literal 3 binary64)) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 (.f64 M M) (.f64 (.f64 h h) (.f64 (pow.f64 w #s(literal 3 binary64)) (sqrt.f64 #s(literal -1 binary64)))))))) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 c0 (sqrt.f64 #s(literal -1 binary64))) w)) (.f64 #s(literal 1/2 binary64) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) (.f64 M (.f64 h (.f64 w w))))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (.f64 M (+.f64 (.f64 #s(literal -1/16 binary64) (.f64 (/.f64 (pow.f64 c0 #s(literal 5 binary64)) (pow.f64 D #s(literal 8 binary64))) (/.f64 (pow.f64 d #s(literal 8 binary64)) (.f64 (pow.f64 M #s(literal 4 binary64)) (.f64 (pow.f64 h #s(literal 4 binary64)) (.f64 (pow.f64 w #s(literal 5 binary64)) (pow.f64 #s(literal -1 binary64) #s(literal 3/2 binary64)))))))) (+.f64 (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (pow.f64 c0 #s(literal 3 binary64)) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 (.f64 M M) (.f64 (.f64 h h) (.f64 (pow.f64 w #s(literal 3 binary64)) (sqrt.f64 #s(literal -1 binary64)))))))) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 c0 (sqrt.f64 #s(literal -1 binary64))) w)) (.f64 #s(literal 1/2 binary64) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) (.f64 M (.f64 h (*.f64 w w)))))))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (.f64 M (+.f64 (sqrt.f64 #s(literal -1 binary64)) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 M (*.f64 h w)))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (.f64 M (+.f64 (sqrt.f64 #s(literal -1 binary64)) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 (.f64 M M) (.f64 (.f64 h h) (.f64 (.f64 w w) (sqrt.f64 #s(literal -1 binary64)))))))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 M (.f64 h w))))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (.f64 M (+.f64 (sqrt.f64 #s(literal -1 binary64)) (+.f64 (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (pow.f64 c0 #s(literal 4 binary64)) (pow.f64 D #s(literal 8 binary64))) (/.f64 (pow.f64 d #s(literal 8 binary64)) (.f64 (pow.f64 M #s(literal 4 binary64)) (.f64 (pow.f64 h #s(literal 4 binary64)) (.f64 (pow.f64 w #s(literal 4 binary64)) (pow.f64 #s(literal -1 binary64) #s(literal 3/2 binary64)))))))) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 (.f64 M M) (.f64 (.f64 h h) (.f64 (.f64 w w) (sqrt.f64 #s(literal -1 binary64)))))))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 M (*.f64 h w)))))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (.f64 M (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 c0 (sqrt.f64 #s(literal -1 binary64))) w)) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 c0 M) (/.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (sqrt.f64 #s(literal -1 binary64)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) w))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (.f64 M (+.f64 (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 c0 (.f64 M M)) (/.f64 (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (pow.f64 (.f64 h w) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) #s(literal 2 binary64)) #s(literal -1 binary64)))) (.f64 w (sqrt.f64 #s(literal -1 binary64)))))) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 c0 (sqrt.f64 #s(literal -1 binary64))) w)) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 c0 M) (/.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (sqrt.f64 #s(literal -1 binary64)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (*.f64 h w)))) w)))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (.f64 M (+.f64 (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 c0 (pow.f64 M #s(literal 3 binary64))) (/.f64 (.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (pow.f64 (.f64 h w) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) #s(literal 2 binary64)) #s(literal -1 binary64))))) (.f64 w (pow.f64 #s(literal -1 binary64) #s(literal 3/2 binary64)))))) (+.f64 (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 c0 (.f64 M M)) (/.f64 (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (pow.f64 (.f64 h w) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) #s(literal 2 binary64)) #s(literal -1 binary64)))) (.f64 w (sqrt.f64 #s(literal -1 binary64)))))) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 c0 (sqrt.f64 #s(literal -1 binary64))) w)) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 c0 M) (/.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (sqrt.f64 #s(literal -1 binary64)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (*.f64 h w)))) w))))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (.f64 M (+.f64 (.f64 c0 (sqrt.f64 #s(literal -1 binary64))) (/.f64 (.f64 c0 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (sqrt.f64 #s(literal -1 binary64)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))) M))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (.f64 M (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 c0 (.f64 M M)) (/.f64 (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (pow.f64 (.f64 h w) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) #s(literal 2 binary64)) #s(literal -1 binary64)))) (sqrt.f64 #s(literal -1 binary64))))) (+.f64 (.f64 c0 (sqrt.f64 #s(literal -1 binary64))) (/.f64 (.f64 c0 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (sqrt.f64 #s(literal -1 binary64)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))) M)))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (.f64 M (+.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 c0 (.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (pow.f64 (.f64 h w) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) #s(literal 2 binary64)) #s(literal -1 binary64)))))) (pow.f64 (.f64 M (sqrt.f64 #s(literal -1 binary64))) #s(literal 3 binary64)))) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 c0 (.f64 M M)) (/.f64 (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (pow.f64 (.f64 h w) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) #s(literal 2 binary64)) #s(literal -1 binary64)))) (sqrt.f64 #s(literal -1 binary64))))) (+.f64 (.f64 c0 (sqrt.f64 #s(literal -1 binary64))) (/.f64 (.f64 c0 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (sqrt.f64 #s(literal -1 binary64)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))) M))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) (.f64 M (+.f64 (sqrt.f64 #s(literal -1 binary64)) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (.f64 M (sqrt.f64 #s(literal -1 binary64))))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 M (.f64 h w))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) (.f64 M (+.f64 (sqrt.f64 #s(literal -1 binary64)) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (.f64 M (sqrt.f64 #s(literal -1 binary64))))) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (pow.f64 (.f64 h w) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) #s(literal 2 binary64)) #s(literal -1 binary64)))) (.f64 (.f64 M M) (sqrt.f64 #s(literal -1 binary64))))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 M (.f64 h w)))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) (.f64 M (+.f64 (sqrt.f64 #s(literal -1 binary64)) (+.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (pow.f64 (.f64 h w) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) #s(literal 2 binary64)) #s(literal -1 binary64))))) (pow.f64 (.f64 M (sqrt.f64 #s(literal -1 binary64))) #s(literal 3 binary64)))) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (.f64 M (sqrt.f64 #s(literal -1 binary64))))) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (pow.f64 (.f64 h w) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) #s(literal 2 binary64)) #s(literal -1 binary64)))) (.f64 (.f64 M M) (sqrt.f64 #s(literal -1 binary64))))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 M (*.f64 h w))))))))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))) (.f64 M (+.f64 (sqrt.f64 #s(literal -1 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (.f64 M (sqrt.f64 #s(literal -1 binary64))))))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))) (.f64 M (+.f64 (sqrt.f64 #s(literal -1 binary64)) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (.f64 M (sqrt.f64 #s(literal -1 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (pow.f64 (.f64 h w) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) #s(literal 2 binary64)) #s(literal -1 binary64)))) (.f64 (.f64 M M) (sqrt.f64 #s(literal -1 binary64)))))))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))) (.f64 M (+.f64 (sqrt.f64 #s(literal -1 binary64)) (+.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (pow.f64 (.f64 h w) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) #s(literal 2 binary64)) #s(literal -1 binary64))))) (pow.f64 (.f64 M (sqrt.f64 #s(literal -1 binary64))) #s(literal 3 binary64)))) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (.f64 M (sqrt.f64 #s(literal -1 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (pow.f64 (.f64 h w) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) #s(literal 2 binary64)) #s(literal -1 binary64)))) (.f64 (*.f64 M M) (sqrt.f64 #s(literal -1 binary64))))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (.f64 M (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 c0 (sqrt.f64 #s(literal -1 binary64))) w)) (.f64 #s(literal 1/2 binary64) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) (.f64 M (.f64 h (*.f64 w w)))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (.f64 M (+.f64 (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (pow.f64 c0 #s(literal 3 binary64)) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 (.f64 M M) (.f64 (.f64 h h) (.f64 (pow.f64 w #s(literal 3 binary64)) (sqrt.f64 #s(literal -1 binary64)))))))) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 c0 (sqrt.f64 #s(literal -1 binary64))) w)) (.f64 #s(literal 1/2 binary64) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) (.f64 M (.f64 h (.f64 w w))))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (.f64 M (+.f64 (.f64 #s(literal -1/16 binary64) (.f64 (/.f64 (pow.f64 c0 #s(literal 5 binary64)) (pow.f64 D #s(literal 8 binary64))) (/.f64 (pow.f64 d #s(literal 8 binary64)) (.f64 (pow.f64 M #s(literal 4 binary64)) (.f64 (pow.f64 h #s(literal 4 binary64)) (.f64 (pow.f64 w #s(literal 5 binary64)) (pow.f64 #s(literal -1 binary64) #s(literal 3/2 binary64)))))))) (+.f64 (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (pow.f64 c0 #s(literal 3 binary64)) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 (.f64 M M) (.f64 (.f64 h h) (.f64 (pow.f64 w #s(literal 3 binary64)) (sqrt.f64 #s(literal -1 binary64)))))))) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 c0 (sqrt.f64 #s(literal -1 binary64))) w)) (.f64 #s(literal 1/2 binary64) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) (.f64 M (.f64 h (*.f64 w w)))))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (.f64 M (+.f64 (sqrt.f64 #s(literal -1 binary64)) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 M (*.f64 h w)))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (.f64 M (+.f64 (sqrt.f64 #s(literal -1 binary64)) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 (.f64 M M) (.f64 (.f64 h h) (.f64 (.f64 w w) (sqrt.f64 #s(literal -1 binary64)))))))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 M (.f64 h w))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (.f64 M (+.f64 (sqrt.f64 #s(literal -1 binary64)) (+.f64 (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (pow.f64 c0 #s(literal 4 binary64)) (pow.f64 D #s(literal 8 binary64))) (/.f64 (pow.f64 d #s(literal 8 binary64)) (.f64 (pow.f64 M #s(literal 4 binary64)) (.f64 (pow.f64 h #s(literal 4 binary64)) (.f64 (pow.f64 w #s(literal 4 binary64)) (pow.f64 #s(literal -1 binary64) #s(literal 3/2 binary64)))))))) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 (.f64 M M) (.f64 (.f64 h h) (.f64 (.f64 w w) (sqrt.f64 #s(literal -1 binary64)))))))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 M (*.f64 h w)))))))))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) (.f64 M (+.f64 (sqrt.f64 #s(literal -1 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 (.f64 M M) (.f64 (.f64 h h) (.f64 (.f64 w w) (sqrt.f64 #s(literal -1 binary64)))))))))))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) (.f64 M (+.f64 (sqrt.f64 #s(literal -1 binary64)) (+.f64 (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (pow.f64 c0 #s(literal 4 binary64)) (pow.f64 D #s(literal 8 binary64))) (/.f64 (pow.f64 d #s(literal 8 binary64)) (.f64 (pow.f64 M #s(literal 4 binary64)) (.f64 (pow.f64 h #s(literal 4 binary64)) (.f64 (pow.f64 w #s(literal 4 binary64)) (pow.f64 #s(literal -1 binary64) #s(literal 3/2 binary64)))))))) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 (.f64 M M) (.f64 (.f64 h h) (.f64 (*.f64 w w) (sqrt.f64 #s(literal -1 binary64))))))))))))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) (.f64 M (+.f64 (sqrt.f64 #s(literal -1 binary64)) (+.f64 (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (pow.f64 c0 #s(literal 4 binary64)) (pow.f64 D #s(literal 8 binary64))) (/.f64 (pow.f64 d #s(literal 8 binary64)) (.f64 (pow.f64 M #s(literal 4 binary64)) (.f64 (pow.f64 h #s(literal 4 binary64)) (.f64 (pow.f64 w #s(literal 4 binary64)) (pow.f64 #s(literal -1 binary64) #s(literal 3/2 binary64)))))))) (+.f64 (.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (pow.f64 c0 #s(literal 6 binary64)) (pow.f64 D #s(literal 12 binary64))) (/.f64 (pow.f64 d #s(literal 12 binary64)) (.f64 (pow.f64 M #s(literal 6 binary64)) (.f64 (pow.f64 h #s(literal 6 binary64)) (.f64 (pow.f64 w #s(literal 6 binary64)) (pow.f64 #s(literal -1 binary64) #s(literal 5/2 binary64)))))))) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 (.f64 M M) (.f64 (.f64 h h) (.f64 (.f64 w w) (sqrt.f64 #s(literal -1 binary64)))))))))))))
#s(approx (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)) (.f64 (.f64 M M) (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 (.f64 M M) (pow.f64 (*.f64 h w) #s(literal 2 binary64))))) #s(literal 1 binary64))))
#s(approx (/ (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (* w w)) (.f64 (.f64 M M) (+.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 D D) h) (.f64 d d))) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) (.f64 (.f64 M M) (.f64 h (.f64 w w))))))))
#s(approx (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (.f64 (.f64 M M) (+.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 D D) (.f64 h (.f64 w w))) (.f64 d d))) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) (.f64 (.f64 M M) h))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 M (*.f64 c0 (sqrt.f64 #s(literal -1 binary64)))) w)))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (.f64 #s(literal -1 binary64) (.f64 M (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) (.f64 M (.f64 h (.f64 w w)))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 c0 (sqrt.f64 #s(literal -1 binary64))) w))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (.f64 #s(literal -1 binary64) (.f64 M (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (pow.f64 c0 #s(literal 3 binary64)) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 M (.f64 (.f64 h h) (.f64 (pow.f64 w #s(literal 3 binary64)) (sqrt.f64 #s(literal -1 binary64)))))))) (.f64 #s(literal 1/2 binary64) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) (.f64 h (.f64 w w)))))) M)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 c0 (sqrt.f64 #s(literal -1 binary64))) w))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (.f64 #s(literal -1 binary64) (.f64 M (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1/16 binary64) (.f64 (/.f64 (pow.f64 c0 #s(literal 5 binary64)) (pow.f64 D #s(literal 8 binary64))) (/.f64 (pow.f64 d #s(literal 8 binary64)) (.f64 (.f64 M M) (.f64 (pow.f64 h #s(literal 4 binary64)) (.f64 (pow.f64 w #s(literal 5 binary64)) (pow.f64 #s(literal -1 binary64) #s(literal 3/2 binary64)))))))) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (pow.f64 c0 #s(literal 3 binary64)) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 (.f64 h h) (.f64 (pow.f64 w #s(literal 3 binary64)) (sqrt.f64 #s(literal -1 binary64)))))))) M)) (.f64 #s(literal 1/2 binary64) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) (.f64 h (.f64 w w)))))) M)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 c0 (sqrt.f64 #s(literal -1 binary64))) w))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (.f64 #s(literal -1 binary64) (.f64 M (sqrt.f64 #s(literal -1 binary64)))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (.f64 #s(literal -1 binary64) (.f64 M (+.f64 (sqrt.f64 #s(literal -1 binary64)) (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 M (*.f64 h w)))))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (.f64 #s(literal -1 binary64) (.f64 M (+.f64 (sqrt.f64 #s(literal -1 binary64)) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 M (.f64 (.f64 h h) (.f64 (.f64 w w) (sqrt.f64 #s(literal -1 binary64)))))))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) M))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (.f64 #s(literal -1 binary64) (.f64 M (+.f64 (sqrt.f64 #s(literal -1 binary64)) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (pow.f64 c0 #s(literal 4 binary64)) (pow.f64 D #s(literal 8 binary64))) (/.f64 (pow.f64 d #s(literal 8 binary64)) (.f64 (.f64 M M) (.f64 (pow.f64 h #s(literal 4 binary64)) (.f64 (pow.f64 w #s(literal 4 binary64)) (pow.f64 #s(literal -1 binary64) #s(literal 3/2 binary64)))))))) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 (.f64 h h) (.f64 (.f64 w w) (sqrt.f64 #s(literal -1 binary64)))))))) M)) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) M))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 M (*.f64 c0 (sqrt.f64 #s(literal -1 binary64)))) w)))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (.f64 #s(literal -1 binary64) (.f64 M (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (/.f64 c0 M) (/.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (sqrt.f64 #s(literal -1 binary64)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) w))) (.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 c0 (sqrt.f64 #s(literal -1 binary64))) w))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (.f64 #s(literal -1 binary64) (.f64 M (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 c0 M) (/.f64 (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (pow.f64 (.f64 h w) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) #s(literal 2 binary64)) #s(literal -1 binary64)))) (.f64 w (sqrt.f64 #s(literal -1 binary64)))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 c0 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (sqrt.f64 #s(literal -1 binary64)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))) w))) M)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 c0 (sqrt.f64 #s(literal -1 binary64))) w))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (.f64 #s(literal -1 binary64) (.f64 M (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal 1/8 binary64) (.f64 (/.f64 c0 M) (/.f64 (.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (pow.f64 (.f64 h w) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) #s(literal 2 binary64)) #s(literal -1 binary64))))) (.f64 w (pow.f64 #s(literal -1 binary64) #s(literal 3/2 binary64)))))) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 c0 w) (/.f64 (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (pow.f64 (.f64 h w) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) #s(literal 2 binary64)) #s(literal -1 binary64)))) (sqrt.f64 #s(literal -1 binary64)))))) M)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 c0 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (sqrt.f64 #s(literal -1 binary64)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))) w))) M)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 c0 (sqrt.f64 #s(literal -1 binary64))) w))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (.f64 #s(literal -1 binary64) (.f64 M (*.f64 c0 (sqrt.f64 #s(literal -1 binary64))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (.f64 #s(literal -1 binary64) (.f64 M (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (sqrt.f64 #s(literal -1 binary64)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))) M)) (.f64 c0 (sqrt.f64 #s(literal -1 binary64)))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (.f64 #s(literal -1 binary64) (.f64 M (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (/.f64 c0 M) (/.f64 (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (pow.f64 (.f64 h w) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) #s(literal 2 binary64)) #s(literal -1 binary64)))) (sqrt.f64 #s(literal -1 binary64))))) (.f64 c0 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (sqrt.f64 #s(literal -1 binary64)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))))) M)) (*.f64 c0 (sqrt.f64 #s(literal -1 binary64)))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (.f64 #s(literal -1 binary64) (.f64 M (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 c0 M) (/.f64 (.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (pow.f64 (.f64 h w) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) #s(literal 2 binary64)) #s(literal -1 binary64))))) (pow.f64 #s(literal -1 binary64) #s(literal 3/2 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 c0 (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (pow.f64 (.f64 h w) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) #s(literal 2 binary64)) #s(literal -1 binary64))))) (sqrt.f64 #s(literal -1 binary64))))) M)) (.f64 c0 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (sqrt.f64 #s(literal -1 binary64)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))))) M)) (*.f64 c0 (sqrt.f64 #s(literal -1 binary64)))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) (.f64 #s(literal -1 binary64) (.f64 M (sqrt.f64 #s(literal -1 binary64)))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) (.f64 #s(literal -1 binary64) (.f64 M (+.f64 (sqrt.f64 #s(literal -1 binary64)) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (sqrt.f64 #s(literal -1 binary64)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) M))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) (.f64 #s(literal -1 binary64) (.f64 M (+.f64 (sqrt.f64 #s(literal -1 binary64)) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (pow.f64 (.f64 h w) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) #s(literal 2 binary64)) #s(literal -1 binary64)))) (.f64 M (sqrt.f64 #s(literal -1 binary64))))) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (sqrt.f64 #s(literal -1 binary64)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (*.f64 h w))))) M))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) (.f64 #s(literal -1 binary64) (.f64 M (+.f64 (sqrt.f64 #s(literal -1 binary64)) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) M) (/.f64 (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (pow.f64 (.f64 h w) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) #s(literal 2 binary64)) #s(literal -1 binary64)))) (pow.f64 #s(literal -1 binary64) #s(literal 3/2 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (pow.f64 (.f64 h w) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) #s(literal 2 binary64)) #s(literal -1 binary64)))) (sqrt.f64 #s(literal -1 binary64))))) M)) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (sqrt.f64 #s(literal -1 binary64)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (*.f64 h w))))) M))))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))) (.f64 #s(literal -1 binary64) (.f64 M (sqrt.f64 #s(literal -1 binary64)))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))) (.f64 #s(literal -1 binary64) (.f64 M (+.f64 (sqrt.f64 #s(literal -1 binary64)) (.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (*.f64 M (sqrt.f64 #s(literal -1 binary64)))))))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))) (.f64 #s(literal -1 binary64) (.f64 M (+.f64 (sqrt.f64 #s(literal -1 binary64)) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (pow.f64 (.f64 h w) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) #s(literal 2 binary64)) #s(literal -1 binary64)))) (.f64 M (sqrt.f64 #s(literal -1 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (sqrt.f64 #s(literal -1 binary64))))) M))))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))) (.f64 #s(literal -1 binary64) (.f64 M (+.f64 (sqrt.f64 #s(literal -1 binary64)) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) M) (/.f64 (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (pow.f64 (.f64 h w) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) #s(literal 2 binary64)) #s(literal -1 binary64)))) (pow.f64 #s(literal -1 binary64) #s(literal 3/2 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (pow.f64 (.f64 h w) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) #s(literal 2 binary64)) #s(literal -1 binary64)))) (sqrt.f64 #s(literal -1 binary64))))) M)) (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (sqrt.f64 #s(literal -1 binary64))))) M))))))
#s(approx (* (/ c0 (* 2 w)) (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 M (*.f64 c0 (sqrt.f64 #s(literal -1 binary64)))) w)))
#s(approx (* (/ c0 (* 2 w)) (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (.f64 #s(literal -1 binary64) (.f64 M (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) (.f64 M (.f64 h (.f64 w w)))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 c0 (sqrt.f64 #s(literal -1 binary64))) w))))))
#s(approx (* (/ c0 (* 2 w)) (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (.f64 #s(literal -1 binary64) (.f64 M (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (pow.f64 c0 #s(literal 3 binary64)) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 M (.f64 (.f64 h h) (.f64 (pow.f64 w #s(literal 3 binary64)) (sqrt.f64 #s(literal -1 binary64)))))))) (.f64 #s(literal 1/2 binary64) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) (.f64 h (.f64 w w)))))) M)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 c0 (sqrt.f64 #s(literal -1 binary64))) w))))))
#s(approx (* (/ c0 (* 2 w)) (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (.f64 #s(literal -1 binary64) (.f64 M (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1/16 binary64) (.f64 (/.f64 (pow.f64 c0 #s(literal 5 binary64)) (pow.f64 D #s(literal 8 binary64))) (/.f64 (pow.f64 d #s(literal 8 binary64)) (.f64 (.f64 M M) (.f64 (pow.f64 h #s(literal 4 binary64)) (.f64 (pow.f64 w #s(literal 5 binary64)) (pow.f64 #s(literal -1 binary64) #s(literal 3/2 binary64)))))))) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (pow.f64 c0 #s(literal 3 binary64)) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 (.f64 h h) (.f64 (pow.f64 w #s(literal 3 binary64)) (sqrt.f64 #s(literal -1 binary64)))))))) M)) (.f64 #s(literal 1/2 binary64) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) (.f64 h (.f64 w w)))))) M)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 c0 (sqrt.f64 #s(literal -1 binary64))) w))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (.f64 #s(literal -1 binary64) (.f64 M (sqrt.f64 #s(literal -1 binary64)))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (.f64 #s(literal -1 binary64) (.f64 M (+.f64 (sqrt.f64 #s(literal -1 binary64)) (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 M (*.f64 h w)))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (.f64 #s(literal -1 binary64) (.f64 M (+.f64 (sqrt.f64 #s(literal -1 binary64)) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 M (.f64 (.f64 h h) (.f64 (.f64 w w) (sqrt.f64 #s(literal -1 binary64)))))))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) M))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (.f64 #s(literal -1 binary64) (.f64 M (+.f64 (sqrt.f64 #s(literal -1 binary64)) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (pow.f64 c0 #s(literal 4 binary64)) (pow.f64 D #s(literal 8 binary64))) (/.f64 (pow.f64 d #s(literal 8 binary64)) (.f64 (.f64 M M) (.f64 (pow.f64 h #s(literal 4 binary64)) (.f64 (pow.f64 w #s(literal 4 binary64)) (pow.f64 #s(literal -1 binary64) #s(literal 3/2 binary64)))))))) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 (.f64 h h) (.f64 (.f64 w w) (sqrt.f64 #s(literal -1 binary64)))))))) M)) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) M))))))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) (.f64 #s(literal -1 binary64) (.f64 M (sqrt.f64 #s(literal -1 binary64)))))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) (.f64 #s(literal -1 binary64) (.f64 M (+.f64 (sqrt.f64 #s(literal -1 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 (.f64 M M) (.f64 (.f64 h h) (.f64 (*.f64 w w) (sqrt.f64 #s(literal -1 binary64))))))))))))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) (.f64 #s(literal -1 binary64) (.f64 M (+.f64 (sqrt.f64 #s(literal -1 binary64)) (+.f64 (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (pow.f64 c0 #s(literal 4 binary64)) (pow.f64 D #s(literal 8 binary64))) (/.f64 (pow.f64 d #s(literal 8 binary64)) (.f64 (pow.f64 M #s(literal 4 binary64)) (.f64 (pow.f64 h #s(literal 4 binary64)) (.f64 (pow.f64 w #s(literal 4 binary64)) (pow.f64 #s(literal -1 binary64) #s(literal 3/2 binary64)))))))) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 (.f64 M M) (.f64 (.f64 h h) (.f64 (.f64 w w) (sqrt.f64 #s(literal -1 binary64)))))))))))))
#s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) (.f64 #s(literal -1 binary64) (.f64 M (+.f64 (sqrt.f64 #s(literal -1 binary64)) (+.f64 (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (pow.f64 c0 #s(literal 4 binary64)) (pow.f64 D #s(literal 8 binary64))) (/.f64 (pow.f64 d #s(literal 8 binary64)) (.f64 (pow.f64 M #s(literal 4 binary64)) (.f64 (pow.f64 h #s(literal 4 binary64)) (.f64 (pow.f64 w #s(literal 4 binary64)) (pow.f64 #s(literal -1 binary64) #s(literal 3/2 binary64)))))))) (+.f64 (.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (pow.f64 c0 #s(literal 6 binary64)) (pow.f64 D #s(literal 12 binary64))) (/.f64 (pow.f64 d #s(literal 12 binary64)) (.f64 (pow.f64 M #s(literal 6 binary64)) (.f64 (pow.f64 h #s(literal 6 binary64)) (.f64 (pow.f64 w #s(literal 6 binary64)) (pow.f64 #s(literal -1 binary64) #s(literal 5/2 binary64)))))))) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 (.f64 M M) (.f64 (.f64 h h) (.f64 (*.f64 w w) (sqrt.f64 #s(literal -1 binary64))))))))))))))

eval975.0ms (6%)

Memory

33.3MiB live, 1 335.0MiB allocated; 272ms collecting garbage

Samples

459.0ms	7 133×	0	valid
197.0ms	3 363×	0	invalid

Compiler

Compiled 85 586 to 4 462 computations (94.8% saved)

Precisions

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

ival-mult: 153.0ms (50.1% of total)

ival-sqrt: 45.0ms (14.7% of total)

ival-div: 43.0ms (14.1% of total)

ival-sub: 27.0ms (8.8% of total)

ival-add: 23.0ms (7.5% of total)

ival-true: 7.0ms (2.3% of total)

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

adjust: 3.0ms (1% of total)

prune1.1s (6.4%)

Memory

21.3MiB live, 1 323.2MiB allocated; 334ms collecting garbage

Pruning

32 alts after pruning (30 fresh and 2 done)

	Pruned	Kept	Total
New	818	21	839
Fresh	9	9	18
Picked	3	2	5
Done	0	0	0
Total	830	32	862

Accuracy

73.8%

Counts

862 → 32

Alt Table

Click to see full alt table

Status	Accuracy	Program
	12.1%	(/.f64 (.f64 c0 (+.f64 (.f64 (/.f64 c0 (.f64 h w)) (ratio-of-squares.f64 d D)) (sqrt-product.f64 (.f64 (/.f64 c0 (.f64 h w)) (.f64 (/.f64 d D) (/.f64 d D))) M))) (*.f64 w #s(literal 2 binary64)))
	33.9%	(/.f64 (.f64 c0 (+.f64 (.f64 (/.f64 c0 (.f64 h w)) (ratio-of-squares.f64 d D)) (.f64 (sqrt.f64 (+.f64 (.f64 (/.f64 c0 (.f64 h w)) (ratio-of-squares.f64 d D)) M)) (sqrt.f64 (-.f64 (.f64 (/.f64 c0 (.f64 h w)) (ratio-of-squares.f64 d D)) M))))) (*.f64 w #s(literal 2 binary64)))
	3.6%	(/.f64 (.f64 c0 (+.f64 (.f64 (/.f64 c0 (.f64 h w)) (ratio-of-squares.f64 d D)) #s(approx (sqrt ( (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))) (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))))) (*.f64 w #s(literal 2 binary64)))
▶	29.7%	(/.f64 (.f64 c0 #s(approx (+ ( (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) (.f64 #s(literal 2 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))))) (*.f64 w #s(literal 2 binary64)))
	29.8%	(/.f64 #s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (.f64 #s(literal 2 binary64) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) (.f64 h w))))) (*.f64 w #s(literal 2 binary64)))
	7.5%	(.f64 (/.f64 c0 (.f64 #s(literal 2 binary64) w)) (/.f64 (+.f64 (pow.f64 (.f64 (/.f64 c0 (.f64 h w)) (ratio-of-squares.f64 d D)) #s(literal 3 binary64)) (pow.f64 (sqrt-product.f64 (.f64 (/.f64 c0 (.f64 h w)) (ratio-of-squares.f64 d D)) M) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (/.f64 c0 (.f64 h w)) (ratio-of-squares.f64 d D)) #s(literal 2 binary64)) (-.f64 (.f64 (sqrt-product.f64 (.f64 (/.f64 c0 (.f64 h w)) (ratio-of-squares.f64 d D)) M) (sqrt-product.f64 (.f64 (/.f64 c0 (.f64 h w)) (ratio-of-squares.f64 d D)) M)) (.f64 (.f64 (/.f64 c0 (.f64 h w)) (ratio-of-squares.f64 d D)) (sqrt-product.f64 (.f64 (/.f64 c0 (.f64 h w)) (ratio-of-squares.f64 d D)) M))))))
	21.2%	(.f64 (/.f64 c0 (.f64 #s(literal 2 binary64) w)) (+.f64 (/.f64 (.f64 (.f64 c0 d) d) (.f64 (.f64 w h) (.f64 D D))) (sqrt.f64 (-.f64 (.f64 (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 w h) (.f64 D D))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 w h) (.f64 D D)))) (*.f64 M M)))))
	19.9%	(.f64 (/.f64 c0 (.f64 #s(literal 2 binary64) w)) (+.f64 (.f64 (/.f64 c0 (.f64 h w)) (ratio-of-squares.f64 d D)) #s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) (.f64 c0 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (ratio-of-squares.f64 D c0) (/.f64 (.f64 (.f64 M M) (.f64 h w)) (.f64 d d)))) (/.f64 (.f64 d d) (.f64 (.f64 D D) (*.f64 h w))))))))
	23.0%	(.f64 (/.f64 c0 (.f64 #s(literal 2 binary64) w)) #s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (.f64 (+.f64 (/.f64 (.f64 #s(literal 2 binary64) c0) (.f64 (.f64 (.f64 h w) D) D)) (.f64 (/.f64 (.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) (.f64 h w)) (.f64 (pow.f64 d #s(literal 4 binary64)) c0)) #s(literal -1/2 binary64))) (*.f64 d d))))
✓	39.2%	(.f64 (/.f64 c0 (.f64 #s(literal 2 binary64) w)) #s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (.f64 (.f64 (/.f64 c0 (*.f64 h w)) (ratio-of-squares.f64 d D)) #s(literal 2 binary64))))
	30.7%	(.f64 (/.f64 c0 (.f64 #s(literal 2 binary64) w)) #s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (.f64 (.f64 (/.f64 c0 (.f64 h w)) (/.f64 (.f64 d d) (*.f64 D D))) #s(literal 2 binary64))))
▶	39.1%	(.f64 (/.f64 c0 (.f64 #s(literal 2 binary64) w)) #s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (.f64 (.f64 (/.f64 c0 (.f64 h w)) (.f64 (/.f64 d D) (/.f64 d D))) #s(literal 2 binary64))))
✓	0.0%	(.f64 (/.f64 c0 (.f64 #s(literal 2 binary64) w)) #s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (*.f64 (sqrt.f64 #s(literal -1 binary64)) M)))
▶	20.2%	(.f64 (/.f64 c0 (.f64 #s(literal 2 binary64) w)) #s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (.f64 c0 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (ratio-of-squares.f64 D c0) (/.f64 (.f64 (.f64 M M) (.f64 h w)) (.f64 d d)))) (.f64 #s(literal 2 binary64) (/.f64 (.f64 d d) (.f64 (.f64 D D) (.f64 h w))))))))
	3.7%	(.f64 (/.f64 c0 (.f64 #s(literal 2 binary64) w)) #s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (.f64 #s(literal -1 binary64) (.f64 c0 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 d d) (.f64 (.f64 D D) (.f64 h w)))) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (ratio-of-squares.f64 D c0) (/.f64 (.f64 (.f64 M M) (.f64 h w)) (.f64 d d)))) (/.f64 (.f64 d d) (.f64 (.f64 D D) (*.f64 h w)))))))))
	7.3%	(.f64 (/.f64 c0 (.f64 #s(literal 2 binary64) w)) #s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (neg.f64 (.f64 (.f64 #s(literal 0 binary64) (/.f64 (ratio-of-squares.f64 d D) (*.f64 h w))) c0))))
	27.5%	#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) (.f64 h (.f64 w w)))))
	22.1%	#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (/.f64 (+.f64 (/.f64 (pow.f64 (.f64 c0 d) #s(literal 2 binary64)) (.f64 (.f64 D D) h)) (.f64 (/.f64 (.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) (.f64 (.f64 w w) h)) (.f64 d d)) #s(literal -1/4 binary64))) (.f64 w w)))
	31.8%	#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (/.f64 (+.f64 (.f64 (ratio-of-squares.f64 c0 D) (ratio-of-squares.f64 d w)) (.f64 (.f64 (.f64 D D) (ratio-of-squares.f64 (pow.f64 (*.f64 M h) #s(literal 1 binary64)) d)) #s(literal -1/4 binary64))) h))
	18.4%	#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (/.f64 (+.f64 (.f64 (/.f64 (.f64 c0 c0) h) (ratio-of-squares.f64 d w)) (.f64 (/.f64 (.f64 (.f64 (.f64 M M) h) (pow.f64 D #s(literal 4 binary64))) (.f64 d d)) #s(literal -1/4 binary64))) (.f64 D D)))
	15.7%	#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (/.f64 #s(approx (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (/.f64 (+.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 (.f64 M M) (.f64 h (.f64 w w)))) (.f64 d d))) (/.f64 (pow.f64 (.f64 c0 d) #s(literal 2 binary64)) h)) (.f64 D D))) (.f64 w w)))
	19.3%	#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (/.f64 #s(approx (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (/.f64 (+.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 D D) (.f64 (.f64 M M) (pow.f64 (.f64 h w) #s(literal 2 binary64)))) (.f64 d d))) (/.f64 (pow.f64 (.f64 c0 d) #s(literal 2 binary64)) (.f64 D D))) h)) (.f64 w w)))
	26.1%	#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (/.f64 #s(approx (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) h))) (*.f64 w w)))
	15.3%	#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (/.f64 #s(approx (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (.f64 (.f64 c0 c0) (+.f64 (.f64 #s(literal -1/4 binary64) (.f64 (ratio-of-squares.f64 D c0) (/.f64 (.f64 (.f64 M M) (.f64 h (.f64 w w))) (.f64 d d)))) (/.f64 (.f64 d d) (.f64 (.f64 D D) h))))) (*.f64 w w)))
▶	21.0%	#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (/.f64 #s(approx (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (.f64 h (+.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 D D) (pow.f64 (.f64 M w) #s(literal 2 binary64))) (.f64 d d))) (.f64 (ratio-of-squares.f64 c0 D) (ratio-of-squares.f64 d h))))) (.f64 w w)))
	14.1%	#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (/.f64 #s(approx (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 D D) (.f64 (.f64 M M) (.f64 h (.f64 w w)))) (.f64 d d)))) (*.f64 w w)))
	5.9%	#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (.f64 (/.f64 (.f64 (.f64 #s(literal 0 binary64) (/.f64 (ratio-of-squares.f64 d D) (.f64 h w))) (*.f64 c0 c0)) w) #s(literal -1/2 binary64)))
	5.5%	#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (.f64 (-.f64 (.f64 (/.f64 (.f64 #s(literal 0 binary64) (/.f64 (ratio-of-squares.f64 d D) (.f64 h w))) w) #s(literal -1/2 binary64)) (.f64 (.f64 (ratio-of-squares.f64 D c0) (.f64 (.f64 M M) (/.f64 h (.f64 d d)))) #s(literal -1/4 binary64))) (.f64 c0 c0)))
▶	31.4%	#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (.f64 (.f64 c0 c0) (/.f64 (ratio-of-squares.f64 d D) (.f64 (.f64 w w) h))))
	4.9%	#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (.f64 (.f64 c0 c0) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 d d) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 d d) (.f64 (.f64 D D) (.f64 h w)))) w)) (.f64 #s(literal 1/4 binary64) (.f64 (ratio-of-squares.f64 D c0) (/.f64 (.f64 (.f64 M M) h) (*.f64 d d)))))))
	10.9%	#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(approx (/ (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (* w w)) (.f64 (.f64 D D) (+.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 M M) h) (.f64 d d))) (/.f64 (pow.f64 (.f64 c0 d) #s(literal 2 binary64)) (.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 h (.f64 w w))))))))
	27.8%	#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(approx (/ (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (* w w)) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 D D) (.f64 (.f64 M M) h)) (.f64 d d)))))

Samples

685.0ms	12 736×	0	valid
47.0ms	832×	0	invalid

Compiler

Compiled 5 129 to 2 264 computations (55.9% saved)

Precisions

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

ival-mult: 198.0ms (53.5% of total)

ival-div: 133.0ms (35.9% of total)

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

ival-add: 9.0ms (2.4% of total)

ival-sqrt: 7.0ms (1.9% of total)

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

ival-sub: 5.0ms (1.4% of total)

adjust: 3.0ms (0.8% of total)

series268.0ms (1.6%)

Memory

-1.5MiB live, 385.8MiB allocated; 45ms collecting garbage

Counts

61 → 370

Calls

Call 1

Inputs
(.f64 (/.f64 c0 (.f64 #s(literal 2 binary64) w)) #s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (.f64 (.f64 (/.f64 c0 (.f64 h w)) (.f64 (/.f64 d D) (/.f64 d D))) #s(literal 2 binary64))))
(/.f64 c0 (*.f64 #s(literal 2 binary64) w))
c0
(*.f64 #s(literal 2 binary64) w)
#s(literal 2 binary64)
w
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (.f64 (.f64 (/.f64 c0 (.f64 h w)) (.f64 (/.f64 d D) (/.f64 d D))) #s(literal 2 binary64)))
(.f64 (.f64 (/.f64 c0 (.f64 h w)) (.f64 (/.f64 d D) (/.f64 d D))) #s(literal 2 binary64))
(.f64 (/.f64 c0 (.f64 h w)) (*.f64 (/.f64 d D) (/.f64 d D)))
(/.f64 c0 (*.f64 h w))
(*.f64 h w)
h
(*.f64 (/.f64 d D) (/.f64 d D))
(/.f64 d D)
d
D
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (.f64 (.f64 c0 c0) (/.f64 (ratio-of-squares.f64 d D) (.f64 (.f64 w w) h))))
(.f64 (.f64 c0 c0) (/.f64 (ratio-of-squares.f64 d D) (.f64 (.f64 w w) h)))
(*.f64 c0 c0)
(/.f64 (ratio-of-squares.f64 d D) (.f64 (.f64 w w) h))
(ratio-of-squares.f64 d D)
(.f64 (.f64 w w) h)
(*.f64 w w)
(/.f64 (.f64 c0 #s(approx (+ ( (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) (.f64 #s(literal 2 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))))) (*.f64 w #s(literal 2 binary64)))
(.f64 c0 #s(approx (+ ( (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) (.f64 #s(literal 2 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) (.f64 #s(literal 2 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))))
(.f64 #s(literal 2 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))
(/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (*.f64 h w)))
(.f64 c0 (.f64 d d))
(*.f64 d d)
(.f64 (.f64 D D) (*.f64 h w))
(*.f64 D D)
(*.f64 w #s(literal 2 binary64))
(.f64 (/.f64 c0 (.f64 #s(literal 2 binary64) w)) #s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (.f64 c0 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (ratio-of-squares.f64 D c0) (/.f64 (.f64 (.f64 M M) (.f64 h w)) (.f64 d d)))) (.f64 #s(literal 2 binary64) (/.f64 (.f64 d d) (.f64 (.f64 D D) (.f64 h w))))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (.f64 c0 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (ratio-of-squares.f64 D c0) (/.f64 (.f64 (.f64 M M) (.f64 h w)) (.f64 d d)))) (.f64 #s(literal 2 binary64) (/.f64 (.f64 d d) (.f64 (.f64 D D) (.f64 h w)))))))
(.f64 c0 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (ratio-of-squares.f64 D c0) (/.f64 (.f64 (.f64 M M) (.f64 h w)) (.f64 d d)))) (.f64 #s(literal 2 binary64) (/.f64 (.f64 d d) (.f64 (.f64 D D) (.f64 h w))))))
(+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (ratio-of-squares.f64 D c0) (/.f64 (.f64 (.f64 M M) (.f64 h w)) (.f64 d d)))) (.f64 #s(literal 2 binary64) (/.f64 (.f64 d d) (.f64 (.f64 D D) (*.f64 h w)))))
(.f64 #s(literal -1/2 binary64) (.f64 (ratio-of-squares.f64 D c0) (/.f64 (.f64 (.f64 M M) (.f64 h w)) (.f64 d d))))
#s(literal -1/2 binary64)
(.f64 (ratio-of-squares.f64 D c0) (/.f64 (.f64 (.f64 M M) (.f64 h w)) (*.f64 d d)))
(ratio-of-squares.f64 D c0)
(/.f64 (.f64 (.f64 M M) (.f64 h w)) (.f64 d d))
(.f64 (.f64 M M) (*.f64 h w))
(*.f64 M M)
M
(.f64 #s(literal 2 binary64) (/.f64 (.f64 d d) (.f64 (.f64 D D) (*.f64 h w))))
(/.f64 (.f64 d d) (.f64 (.f64 D D) (.f64 h w)))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (/.f64 #s(approx (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (.f64 h (+.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 D D) (pow.f64 (.f64 M w) #s(literal 2 binary64))) (.f64 d d))) (.f64 (ratio-of-squares.f64 c0 D) (ratio-of-squares.f64 d h))))) (.f64 w w)))
(/.f64 #s(approx (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (.f64 h (+.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 D D) (pow.f64 (.f64 M w) #s(literal 2 binary64))) (.f64 d d))) (.f64 (ratio-of-squares.f64 c0 D) (ratio-of-squares.f64 d h))))) (.f64 w w))
#s(approx (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (.f64 h (+.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 D D) (pow.f64 (.f64 M w) #s(literal 2 binary64))) (.f64 d d))) (*.f64 (ratio-of-squares.f64 c0 D) (ratio-of-squares.f64 d h)))))
(.f64 h (+.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 D D) (pow.f64 (.f64 M w) #s(literal 2 binary64))) (.f64 d d))) (*.f64 (ratio-of-squares.f64 c0 D) (ratio-of-squares.f64 d h))))
(+.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 D D) (pow.f64 (.f64 M w) #s(literal 2 binary64))) (.f64 d d))) (.f64 (ratio-of-squares.f64 c0 D) (ratio-of-squares.f64 d h)))
(.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 D D) (pow.f64 (.f64 M w) #s(literal 2 binary64))) (*.f64 d d)))
#s(literal -1/4 binary64)
(/.f64 (.f64 (.f64 D D) (pow.f64 (.f64 M w) #s(literal 2 binary64))) (.f64 d d))
(.f64 (.f64 D D) (pow.f64 (*.f64 M w) #s(literal 2 binary64)))
(pow.f64 (*.f64 M w) #s(literal 2 binary64))
(*.f64 M w)
(*.f64 (ratio-of-squares.f64 c0 D) (ratio-of-squares.f64 d h))
(ratio-of-squares.f64 c0 D)
(ratio-of-squares.f64 d h)

Outputs
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* 1/2 (/ (* M (* c0 (sqrt -1))) w))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* c0 (+ (* 1/2 (/ (* M (sqrt -1)) w)) (* 1/2 (/ (* c0 (pow d 2)) (* (pow D 2) (* h (pow w 2)))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* c0 (+ (* 1/2 (/ (* M (sqrt -1)) w)) (* c0 (+ (* 1/4 (/ (* c0 (pow d 4)) (* (pow D 4) (* M (* (pow h 2) (* (pow w 3) (sqrt -1))))))) (* 1/2 (/ (pow d 2) (* (pow D 2) (* h (pow w 2)))))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* c0 (+ (* 1/2 (/ (* M (sqrt -1)) w)) (* c0 (+ (* 1/2 (/ (pow d 2) (* (pow D 2) (* h (pow w 2))))) (* c0 (+ (* -1/16 (/ (* (pow c0 2) (pow d 8)) (* (pow D 8) (* (pow M 3) (* (pow h 4) (* (pow w 5) (pow (sqrt -1) 3))))))) (* 1/4 (/ (pow d 4) (* (pow D 4) (* M (* (pow h 2) (* (pow w 3) (sqrt -1)))))))))))))))
#s(approx (/ c0 (* 2 w)) #s(hole binary64 (* 1/2 (/ c0 w))))
#s(approx c0 #s(hole binary64 c0))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (* M (sqrt -1))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (+ (* M (sqrt -1)) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (+ (* M (sqrt -1)) (* c0 (+ (* 1/2 (/ (* c0 (pow d 4)) (* (pow D 4) (* M (* (pow h 2) (* (pow w 2) (sqrt -1))))))) (/ (pow d 2) (* (pow D 2) (* h w))))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (+ (* M (sqrt -1)) (* c0 (+ (* c0 (+ (* -1/8 (/ (* (pow c0 2) (pow d 8)) (* (pow D 8) (* (pow M 3) (* (pow h 4) (* (pow w 4) (pow (sqrt -1) 3))))))) (* 1/2 (/ (pow d 4) (* (pow D 4) (* M (* (pow h 2) (* (pow w 2) (sqrt -1))))))))) (/ (pow d 2) (* (pow D 2) (* h w))))))))
#s(approx (* (* (/ c0 (* h w)) (* (/ d D) (/ d D))) 2) #s(hole binary64 (* 2 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))))
#s(approx (* (/ c0 (* h w)) (* (/ d D) (/ d D))) #s(hole binary64 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))))
#s(approx (/ c0 (* h w)) #s(hole binary64 (/ c0 (* h w))))
#s(approx (* (* c0 c0) (/ (/ (* d d) (* D D)) (* (* w w) h))) #s(hole binary64 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h (pow w 2))))))
#s(approx (* c0 c0) #s(hole binary64 (pow c0 2)))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (* 1/2 (/ (* M (* c0 (sqrt -1))) w))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (* c0 (+ (* 1/2 (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (* M (* w (sqrt -1))))) (/ (pow d 2) (* (pow D 2) (* h (pow w 2))))))) (* 1/2 (/ (* M (sqrt -1)) w))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (* c0 (+ (* 1/2 (/ (* M (sqrt -1)) w)) (* c0 (+ (* 1/4 (/ (* c0 (- (/ (pow d 4) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* M (* w (sqrt -1))))) (* 1/2 (+ (* 1/2 (/ (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (* M (* w (sqrt -1))))) (/ (pow d 2) (* (pow D 2) (* h (pow w 2))))))))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (* c0 (+ (* 1/2 (/ (* M (sqrt -1)) w)) (* c0 (+ (* 1/2 (+ (* 1/2 (/ (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (* M (* w (sqrt -1))))) (/ (pow d 2) (* (pow D 2) (* h (pow w 2)))))) (* c0 (+ (* -1/8 (/ (* c0 (* (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (- (/ (pow d 4) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2) (* (pow M 2) (pow (sqrt -1) 2))))))) (* (pow M 3) (* w (pow (sqrt -1) 3))))) (* 1/4 (/ (- (/ (pow d 4) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2) (* (pow M 2) (pow (sqrt -1) 2))))) (* M (* w (sqrt -1)))))))))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (* M (* c0 (sqrt -1)))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (* c0 (+ (* M (sqrt -1)) (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (* M (sqrt -1)))) (/ (pow d 2) (* (pow D 2) (* h w)))))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (* c0 (+ (* M (sqrt -1)) (* c0 (+ (* 1/2 (/ (* c0 (- (/ (pow d 4) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* M (sqrt -1)))) (+ (* 1/2 (/ (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (* M (sqrt -1)))) (/ (pow d 2) (* (pow D 2) (* h w))))))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (* c0 (+ (* M (sqrt -1)) (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (* M (sqrt -1)))) (+ (* c0 (+ (* -1/4 (/ (* c0 (* (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (- (/ (pow d 4) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2) (* (pow M 2) (pow (sqrt -1) 2))))))) (* (pow M 3) (pow (sqrt -1) 3)))) (* 1/2 (/ (- (/ (pow d 4) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2) (* (pow M 2) (pow (sqrt -1) 2))))) (* M (sqrt -1)))))) (/ (pow d 2) (* (pow D 2) (* h w))))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (* M (sqrt -1))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (+ (* M (sqrt -1)) (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (* M (sqrt -1)))) (/ (pow d 2) (* (pow D 2) (* h w))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (+ (* M (sqrt -1)) (* c0 (+ (* 1/2 (/ (* c0 (- (/ (pow d 4) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* M (sqrt -1)))) (+ (* 1/2 (/ (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (* M (sqrt -1)))) (/ (pow d 2) (* (pow D 2) (* h w)))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (+ (* M (sqrt -1)) (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (* M (sqrt -1)))) (+ (* c0 (+ (* -1/4 (/ (* c0 (* (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (- (/ (pow d 4) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2) (* (pow M 2) (pow (sqrt -1) 2))))))) (* (pow M 3) (pow (sqrt -1) 3)))) (* 1/2 (/ (- (/ (pow d 4) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2) (* (pow M 2) (pow (sqrt -1) 2))))) (* M (sqrt -1)))))) (/ (pow d 2) (* (pow D 2) (* h w)))))))))
#s(approx (* 2 (/ (* c0 (* d d)) (* (* D D) (* h w)))) #s(hole binary64 (* 2 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))))
#s(approx (/ (* c0 (* d d)) (* (* D D) (* h w))) #s(hole binary64 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))))
#s(approx (* c0 (* d d)) #s(hole binary64 (* c0 (pow d 2))))
#s(approx (* c0 (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w)))))) #s(hole binary64 (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h w))) (* c0 (pow d 2))))))
#s(approx (* c0 (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w)))))) #s(hole binary64 (/ (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h w))) (pow d 2))) (* 2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h w))))) c0)))
#s(approx (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w))))) #s(hole binary64 (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h w))) (* (pow c0 2) (pow d 2))))))
#s(approx (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w))))) #s(hole binary64 (/ (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h w))) (pow d 2))) (* 2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h w))))) (pow c0 2))))
#s(approx (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) #s(hole binary64 (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h w))) (* (pow c0 2) (pow d 2))))))
#s(approx (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d))) #s(hole binary64 (/ (* (pow D 2) (* (pow M 2) (* h w))) (* (pow c0 2) (pow d 2)))))
#s(approx (/ (* D D) (* c0 c0)) #s(hole binary64 (/ (pow D 2) (pow c0 2))))
#s(approx (/ (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (* w w)) #s(hole binary64 (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))))
#s(approx (/ (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (* w w)) #s(hole binary64 (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h (pow w 2)))))))
#s(approx (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) #s(hole binary64 (* -1/4 (/ (* (pow D 2) (* (pow M 2) (* h (pow w 2)))) (pow d 2)))))
#s(approx (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) #s(hole binary64 (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (* h (pow w 2)))) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) h)))))
#s(approx (* h (+ (* -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h h))))) #s(hole binary64 (* -1/4 (/ (* (pow D 2) (* (pow M 2) (* h (pow w 2)))) (pow d 2)))))
#s(approx (* h (+ (* -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h h))))) #s(hole binary64 (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (* h (pow w 2)))) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) h)))))
#s(approx (+ (* -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h h)))) #s(hole binary64 (* -1/4 (/ (* (pow D 2) (* (pow M 2) (pow w 2))) (pow d 2)))))
#s(approx (+ (* -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h h)))) #s(hole binary64 (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (pow w 2))) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (pow h 2))))))
#s(approx (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h h))) #s(hole binary64 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (pow h 2)))))
#s(approx (/ (* c0 c0) (* D D)) #s(hole binary64 (/ (pow c0 2) (pow D 2))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h (pow w 2))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* (pow c0 2) (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow c0 2) (pow d 2)))) (/ (pow d 2) (* (pow D 2) (* h (pow w 2))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* (pow c0 2) (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow c0 2) (pow d 2)))) (+ (* -1/16 (/ (* (pow D 6) (* (pow M 4) (* (pow h 3) (pow w 2)))) (* (pow c0 4) (pow d 6)))) (/ (pow d 2) (* (pow D 2) (* h (pow w 2)))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* (pow c0 2) (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow c0 2) (pow d 2)))) (+ (* -1/16 (/ (* (pow D 6) (* (pow M 4) (* (pow h 3) (pow w 2)))) (* (pow c0 4) (pow d 6)))) (+ (* -1/32 (/ (* (pow D 10) (* (pow M 6) (* (pow h 5) (pow w 4)))) (* (pow c0 6) (pow d 10)))) (/ (pow d 2) (* (pow D 2) (* h (pow w 2))))))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (* 2 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (* c0 (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h w))) (* (pow c0 2) (pow d 2)))) (* 2 (/ (pow d 2) (* (pow D 2) (* h w))))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (* c0 (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h w))) (* (pow c0 2) (pow d 2)))) (+ (* -1/8 (/ (* (pow D 6) (* (pow M 4) (* (pow h 3) (pow w 3)))) (* (pow c0 4) (pow d 6)))) (* 2 (/ (pow d 2) (* (pow D 2) (* h w)))))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (* c0 (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h w))) (* (pow c0 2) (pow d 2)))) (+ (* -1/8 (/ (* (pow D 6) (* (pow M 4) (* (pow h 3) (pow w 3)))) (* (pow c0 4) (pow d 6)))) (+ (* -1/16 (/ (* (pow D 10) (* (pow M 6) (* (pow h 5) (pow w 5)))) (* (pow c0 6) (pow d 10)))) (* 2 (/ (pow d 2) (* (pow D 2) (* h w))))))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h (pow w 2))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (* (pow c0 2) (+ (* 1/4 (/ (* (pow D 2) (* h (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))))) (* c0 (pow d 2)))) (/ (pow d 2) (* (pow D 2) (* h (pow w 2))))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (* (pow c0 2) (+ (* 1/4 (/ (* (pow D 2) (* h (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))))) (* c0 (pow d 2)))) (+ (* 1/4 (/ (* (pow D 2) (* h (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (pow d 4)))))) (* (pow c0 2) (pow d 2)))) (/ (pow d 2) (* (pow D 2) (* h (pow w 2)))))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (* (pow c0 2) (+ (* -1/8 (/ (* (pow D 6) (* (pow h 3) (* (pow w 2) (* (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (pow d 4)))))))) (* (pow c0 3) (pow d 6)))) (+ (* 1/4 (/ (* (pow D 2) (* h (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))))) (* c0 (pow d 2)))) (+ (* 1/4 (/ (* (pow D 2) (* h (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (pow d 4)))))) (* (pow c0 2) (pow d 2)))) (/ (pow d 2) (* (pow D 2) (* h (pow w 2))))))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (* 2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h w))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (* (pow c0 2) (+ (* 1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w))))))) (* c0 (pow d 2)))) (* 2 (/ (pow d 2) (* (pow D 2) (* h w))))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (* (pow c0 2) (+ (* 1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w))))))) (* c0 (pow d 2)))) (+ (* 1/2 (/ (* (pow D 2) (* h (* w (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (pow d 4))))))) (* (pow c0 2) (pow d 2)))) (* 2 (/ (pow d 2) (* (pow D 2) (* h w)))))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (* (pow c0 2) (+ (* -1/4 (/ (* (pow D 6) (* (pow h 3) (* (pow w 3) (* (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (pow d 4)))))))) (* (pow c0 3) (pow d 6)))) (+ (* 1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w))))))) (* c0 (pow d 2)))) (+ (* 1/2 (/ (* (pow D 2) (* h (* w (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (pow d 4))))))) (* (pow c0 2) (pow d 2)))) (* 2 (/ (pow d 2) (* (pow D 2) (* h w))))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (* 2 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (* c0 (+ (* 1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w))))))) (* c0 (pow d 2)))) (* 2 (/ (pow d 2) (* (pow D 2) (* h w))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (* c0 (+ (* 1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w))))))) (* c0 (pow d 2)))) (+ (* 1/2 (/ (* (pow D 2) (* h (* w (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (pow d 4))))))) (* (pow c0 2) (pow d 2)))) (* 2 (/ (pow d 2) (* (pow D 2) (* h w)))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (* c0 (+ (* -1/4 (/ (* (pow D 6) (* (pow h 3) (* (pow w 3) (* (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (pow d 4)))))))) (* (pow c0 3) (pow d 6)))) (+ (* 1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w))))))) (* c0 (pow d 2)))) (+ (* 1/2 (/ (* (pow D 2) (* h (* w (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (pow d 4))))))) (* (pow c0 2) (pow d 2)))) (* 2 (/ (pow d 2) (* (pow D 2) (* h w))))))))))
#s(approx (* c0 (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w)))))) #s(hole binary64 (* 2 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))))
#s(approx (* c0 (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w)))))) #s(hole binary64 (* c0 (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h w))) (* (pow c0 2) (pow d 2)))) (* 2 (/ (pow d 2) (* (pow D 2) (* h w))))))))
#s(approx (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w))))) #s(hole binary64 (* 2 (/ (pow d 2) (* (pow D 2) (* h w))))))
#s(approx (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w))))) #s(hole binary64 (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h w))) (* (pow c0 2) (pow d 2)))) (* 2 (/ (pow d 2) (* (pow D 2) (* h w)))))))
#s(approx (/ (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (* w w)) #s(hole binary64 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h (pow w 2))))))
#s(approx (/ (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (* w w)) #s(hole binary64 (* (pow c0 2) (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow c0 2) (pow d 2)))) (/ (pow d 2) (* (pow D 2) (* h (pow w 2))))))))
#s(approx (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) #s(hole binary64 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) h))))
#s(approx (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) #s(hole binary64 (* (pow c0 2) (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (* h (pow w 2)))) (* (pow c0 2) (pow d 2)))) (/ (pow d 2) (* (pow D 2) h))))))
#s(approx (* h (+ (* -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h h))))) #s(hole binary64 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) h))))
#s(approx (* h (+ (* -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h h))))) #s(hole binary64 (* (pow c0 2) (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (* h (pow w 2)))) (* (pow c0 2) (pow d 2)))) (/ (pow d 2) (* (pow D 2) h))))))
#s(approx (+ (* -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h h)))) #s(hole binary64 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (pow h 2)))))
#s(approx (+ (* -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h h)))) #s(hole binary64 (* (pow c0 2) (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (pow w 2))) (* (pow c0 2) (pow d 2)))) (/ (pow d 2) (* (pow D 2) (pow h 2)))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* -1/2 (/ (* (pow c0 2) (+ (* -1 (/ (pow d 2) (* (pow D 2) (* h w)))) (/ (pow d 2) (* (pow D 2) (* h w))))) w))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* (pow c0 2) (+ (* -1/2 (/ (+ (* -1 (/ (pow d 2) (* (pow D 2) (* h w)))) (/ (pow d 2) (* (pow D 2) (* h w)))) w)) (* 1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow c0 2) (pow d 2))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* (pow c0 2) (+ (* -1/2 (/ (+ (* -1 (/ (pow d 2) (* (pow D 2) (* h w)))) (/ (pow d 2) (* (pow D 2) (* h w)))) w)) (+ (* 1/16 (/ (* (pow D 6) (* (pow M 4) (* (pow h 3) (pow w 2)))) (* (pow c0 4) (pow d 6)))) (* 1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow c0 2) (pow d 2)))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* (pow c0 2) (+ (* -1/2 (/ (+ (* -1 (/ (pow d 2) (* (pow D 2) (* h w)))) (/ (pow d 2) (* (pow D 2) (* h w)))) w)) (+ (* 1/32 (/ (* (pow D 10) (* (pow M 6) (* (pow h 5) (pow w 4)))) (* (pow c0 6) (pow d 10)))) (+ (* 1/16 (/ (* (pow D 6) (* (pow M 4) (* (pow h 3) (pow w 2)))) (* (pow c0 4) (pow d 6)))) (* 1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow c0 2) (pow d 2))))))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (* -1 (* c0 (+ (* -1 (/ (pow d 2) (* (pow D 2) (* h w)))) (/ (pow d 2) (* (pow D 2) (* h w))))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (* -1 (* c0 (+ (* -1 (/ (pow d 2) (* (pow D 2) (* h w)))) (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h w))) (* (pow c0 2) (pow d 2)))) (/ (pow d 2) (* (pow D 2) (* h w)))))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (* -1 (* c0 (+ (* -1 (/ (pow d 2) (* (pow D 2) (* h w)))) (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h w))) (* (pow c0 2) (pow d 2)))) (+ (* -1/8 (/ (* (pow D 6) (* (pow M 4) (* (pow h 3) (pow w 3)))) (* (pow c0 4) (pow d 6)))) (/ (pow d 2) (* (pow D 2) (* h w))))))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (* -1 (* c0 (+ (* -1 (/ (pow d 2) (* (pow D 2) (* h w)))) (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h w))) (* (pow c0 2) (pow d 2)))) (+ (* -1/8 (/ (* (pow D 6) (* (pow M 4) (* (pow h 3) (pow w 3)))) (* (pow c0 4) (pow d 6)))) (+ (* -1/16 (/ (* (pow D 10) (* (pow M 6) (* (pow h 5) (pow w 5)))) (* (pow c0 6) (pow d 10)))) (/ (pow d 2) (* (pow D 2) (* h w)))))))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (* -1/2 (/ (* (pow c0 2) (+ (* -1 (/ (pow d 2) (* (pow D 2) (* h w)))) (/ (pow d 2) (* (pow D 2) (* h w))))) w))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (* (pow c0 2) (+ (* -1/2 (/ (+ (* -1 (/ (pow d 2) (* (pow D 2) (* h w)))) (/ (pow d 2) (* (pow D 2) (* h w)))) w)) (* 1/4 (/ (* (pow D 2) (* h (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))))) (* c0 (pow d 2))))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (* (pow c0 2) (+ (* -1 (/ (+ (* -1/4 (/ (* (pow D 2) (* h (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))))) (pow d 2))) (* 1/4 (/ (* (pow D 2) (* h (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (pow d 4)))))) (* c0 (pow d 2))))) c0)) (* -1/2 (/ (+ (* -1 (/ (pow d 2) (* (pow D 2) (* h w)))) (/ (pow d 2) (* (pow D 2) (* h w)))) w))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (* (pow c0 2) (+ (* -1 (/ (+ (* -1 (/ (+ (* -1/4 (/ (* (pow D 2) (* h (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (pow d 4)))))) (pow d 2))) (* -1/8 (/ (* (pow D 6) (* (pow h 3) (* (pow w 2) (* (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (pow d 4)))))))) (* c0 (pow d 6))))) c0)) (* -1/4 (/ (* (pow D 2) (* h (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))))) (pow d 2)))) c0)) (* -1/2 (/ (+ (* -1 (/ (pow d 2) (* (pow D 2) (* h w)))) (/ (pow d 2) (* (pow D 2) (* h w)))) w))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (* -1 (* (pow c0 2) (+ (* -1 (/ (pow d 2) (* (pow D 2) (* h w)))) (/ (pow d 2) (* (pow D 2) (* h w))))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (* (pow c0 2) (+ (* -1 (+ (* -1 (/ (pow d 2) (* (pow D 2) (* h w)))) (/ (pow d 2) (* (pow D 2) (* h w))))) (* 1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w))))))) (* c0 (pow d 2))))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (* (pow c0 2) (+ (* -1 (+ (* -1 (/ (pow d 2) (* (pow D 2) (* h w)))) (/ (pow d 2) (* (pow D 2) (* h w))))) (* -1 (/ (+ (* -1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w))))))) (pow d 2))) (* 1/2 (/ (* (pow D 2) (* h (* w (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (pow d 4))))))) (* c0 (pow d 2))))) c0))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (* (pow c0 2) (+ (* -1 (+ (* -1 (/ (pow d 2) (* (pow D 2) (* h w)))) (/ (pow d 2) (* (pow D 2) (* h w))))) (* -1 (/ (+ (* -1 (/ (+ (* -1/2 (/ (* (pow D 2) (* h (* w (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (pow d 4))))))) (pow d 2))) (* -1/4 (/ (* (pow D 6) (* (pow h 3) (* (pow w 3) (* (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (pow d 4)))))))) (* c0 (pow d 6))))) c0)) (* -1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w))))))) (pow d 2)))) c0))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (* -1 (* c0 (+ (* -1 (/ (pow d 2) (* (pow D 2) (* h w)))) (/ (pow d 2) (* (pow D 2) (* h w))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (* -1 (* c0 (+ (* -1 (/ (pow d 2) (* (pow D 2) (* h w)))) (+ (* -1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w))))))) (* c0 (pow d 2)))) (/ (pow d 2) (* (pow D 2) (* h w)))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (* -1 (* c0 (+ (* -1 (/ (+ (* -1/2 (/ (* (pow D 2) (* h (* w (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (pow d 4))))))) (* c0 (pow d 2)))) (* 1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w))))))) (pow d 2)))) c0)) (+ (* -1 (/ (pow d 2) (* (pow D 2) (* h w)))) (/ (pow d 2) (* (pow D 2) (* h w)))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (* -1 (* c0 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/4 (/ (* (pow D 6) (* (pow h 3) (* (pow w 3) (* (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (pow d 4)))))))) (* c0 (pow d 6)))) (* 1/2 (/ (* (pow D 2) (* h (* w (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (pow d 4))))))) (pow d 2)))) c0)) (* 1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w))))))) (pow d 2)))) c0)) (+ (* -1 (/ (pow d 2) (* (pow D 2) (* h w)))) (/ (pow d 2) (* (pow D 2) (* h w)))))))))
#s(approx (* c0 (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w)))))) #s(hole binary64 (* -1 (* c0 (+ (* -2 (/ (pow d 2) (* (pow D 2) (* h w)))) (* 1/2 (/ (* (pow D 2) (* (pow M 2) (* h w))) (* (pow c0 2) (pow d 2)))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (/ (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (* h (pow w 2)))) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) h))) (pow w 2))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (/ (+ (* (pow w 2) (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2))) (* -1/16 (/ (* (pow D 6) (* (pow M 4) (* (pow h 3) (pow w 2)))) (* (pow c0 2) (pow d 6)))))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) h))) (pow w 2))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (/ (+ (* (pow w 2) (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2))) (* (pow w 2) (+ (* -1/16 (/ (* (pow D 6) (* (pow M 4) (pow h 3))) (* (pow c0 2) (pow d 6)))) (* -1/32 (/ (* (pow D 10) (* (pow M 6) (* (pow h 5) (pow w 2)))) (* (pow c0 4) (pow d 10)))))))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) h))) (pow w 2))))
#s(approx (* 2 w) #s(hole binary64 (* 2 w)))
#s(approx w #s(hole binary64 w))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (/ (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h (pow w 2)))) (* c0 (pow d 2)))) (* 2 (/ (* c0 (pow d 2)) (* (pow D 2) h)))) w)))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (/ (+ (* 2 (/ (* c0 (pow d 2)) (* (pow D 2) h))) (* (pow w 2) (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) h)) (* c0 (pow d 2)))) (* -1/8 (/ (* (pow D 6) (* (pow M 4) (* (pow h 3) (pow w 2)))) (* (pow c0 3) (pow d 6))))))) w)))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (/ (+ (* 2 (/ (* c0 (pow d 2)) (* (pow D 2) h))) (* (pow w 2) (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) h)) (* c0 (pow d 2)))) (* (pow w 2) (+ (* -1/8 (/ (* (pow D 6) (* (pow M 4) (pow h 3))) (* (pow c0 3) (pow d 6)))) (* -1/16 (/ (* (pow D 10) (* (pow M 6) (* (pow h 5) (pow w 2)))) (* (pow c0 5) (pow d 10))))))))) w)))
#s(approx (* h w) #s(hole binary64 (* h w)))
#s(approx (/ (/ (* d d) (* D D)) (* (* w w) h)) #s(hole binary64 (/ (pow d 2) (* (pow D 2) (* h (pow w 2))))))
#s(approx (* (* w w) h) #s(hole binary64 (* h (pow w 2))))
#s(approx (* w w) #s(hole binary64 (pow w 2)))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (/ (+ (* 1/4 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h)))))) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) h))) (pow w 2))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (/ (+ (* w (+ (* 1/4 (/ (* (pow D 2) (* h (* w (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2))) (* (pow c0 2) (pow d 4)))))))) (pow d 2))) (* 1/4 (/ (* (pow D 2) (* h (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))))) (pow d 2))))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) h))) (pow w 2))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (/ (+ (* w (+ (* 1/4 (/ (* (pow D 2) (* h (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))))) (pow d 2))) (* w (+ (* -1/8 (/ (* (pow D 6) (* (pow h 3) (* w (* (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2))) (* (pow c0 2) (pow d 4))))))))) (* (pow c0 2) (pow d 6)))) (* 1/4 (/ (* (pow D 2) (* h (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2))) (* (pow c0 2) (pow d 4))))))) (pow d 2))))))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) h))) (pow w 2))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (/ (+ (* 1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h)))))) (pow d 2))) (* 2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) h)))) w)))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (/ (+ (* 2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) h))) (* w (+ (* 1/2 (/ (* (pow D 2) (* h (* w (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2))) (* (pow c0 2) (pow d 4)))))))) (pow d 2))) (* 1/2 (/ (* (pow D 2) (* h (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))))) (pow d 2)))))) w)))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (/ (+ (* 2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) h))) (* w (+ (* 1/2 (/ (* (pow D 2) (* h (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))))) (pow d 2))) (* w (+ (* -1/4 (/ (* (pow D 6) (* (pow h 3) (* w (* (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2))) (* (pow c0 2) (pow d 4))))))))) (* (pow c0 2) (pow d 6)))) (* 1/2 (/ (* (pow D 2) (* h (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2))) (* (pow c0 2) (pow d 4))))))) (pow d 2)))))))) w)))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (/ (+ (* 1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h)))))) (* c0 (pow d 2)))) (* 2 (/ (* c0 (pow d 2)) (* (pow D 2) h)))) w)))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (/ (+ (* 2 (/ (* c0 (pow d 2)) (* (pow D 2) h))) (* w (+ (* 1/2 (/ (* (pow D 2) (* h (* w (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2))) (* (pow c0 2) (pow d 4)))))))) (* c0 (pow d 2)))) (* 1/2 (/ (* (pow D 2) (* h (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))))) (* c0 (pow d 2))))))) w)))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (/ (+ (* 2 (/ (* c0 (pow d 2)) (* (pow D 2) h))) (* w (+ (* 1/2 (/ (* (pow D 2) (* h (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))))) (* c0 (pow d 2)))) (* w (+ (* -1/4 (/ (* (pow D 6) (* (pow h 3) (* w (* (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2))) (* (pow c0 2) (pow d 4))))))))) (* (pow c0 3) (pow d 6)))) (* 1/2 (/ (* (pow D 2) (* h (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2))) (* (pow c0 2) (pow d 4))))))) (* c0 (pow d 2))))))))) w)))
#s(approx (* (* D D) (* h w)) #s(hole binary64 (* (pow D 2) (* h w))))
#s(approx (* w 2) #s(hole binary64 (* 2 w)))
#s(approx (* c0 (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w)))))) #s(hole binary64 (/ (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h (pow w 2)))) (* c0 (pow d 2)))) (* 2 (/ (* c0 (pow d 2)) (* (pow D 2) h)))) w)))
#s(approx (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w))))) #s(hole binary64 (/ (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h (pow w 2)))) (* (pow c0 2) (pow d 2)))) (* 2 (/ (pow d 2) (* (pow D 2) h)))) w)))
#s(approx (/ (* (* M M) (* h w)) (* d d)) #s(hole binary64 (/ (* (pow M 2) (* h w)) (pow d 2))))
#s(approx (* (* M M) (* h w)) #s(hole binary64 (* (pow M 2) (* h w))))
#s(approx (* 2 (/ (* d d) (* (* D D) (* h w)))) #s(hole binary64 (* 2 (/ (pow d 2) (* (pow D 2) (* h w))))))
#s(approx (/ (* d d) (* (* D D) (* h w))) #s(hole binary64 (/ (pow d 2) (* (pow D 2) (* h w)))))
#s(approx (/ (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (* w w)) #s(hole binary64 (/ (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (* h (pow w 2)))) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) h))) (pow w 2))))
#s(approx (* -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) #s(hole binary64 (* -1/4 (/ (* (pow D 2) (* (pow M 2) (pow w 2))) (pow d 2)))))
#s(approx (/ (* (* D D) (pow (* M w) 2)) (* d d)) #s(hole binary64 (/ (* (pow D 2) (* (pow M 2) (pow w 2))) (pow d 2))))
#s(approx (* (* D D) (pow (* M w) 2)) #s(hole binary64 (* (pow D 2) (* (pow M 2) (pow w 2)))))
#s(approx (pow (* M w) 2) #s(hole binary64 (* (pow M 2) (pow w 2))))
#s(approx (* M w) #s(hole binary64 (* M w)))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (/ (+ (* 1/2 (* M (* c0 (sqrt -1)))) (* 1/2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h w))))) w)))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (/ (+ (* 1/4 (/ (* (pow c0 3) (pow d 4)) (* (pow D 4) (* M (* (pow h 2) (* (pow w 2) (sqrt -1))))))) (+ (* 1/2 (* M (* c0 (sqrt -1)))) (* 1/2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h w)))))) w)))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (/ (+ (* -1/16 (/ (* (pow c0 5) (pow d 8)) (* (pow D 8) (* (pow M 3) (* (pow h 4) (* (pow w 4) (pow (sqrt -1) 3))))))) (+ (* 1/4 (/ (* (pow c0 3) (pow d 4)) (* (pow D 4) (* M (* (pow h 2) (* (pow w 2) (sqrt -1))))))) (+ (* 1/2 (* M (* c0 (sqrt -1)))) (* 1/2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h w))))))) w)))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (+ (* 1/2 (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* M (* (pow h 2) (* (pow w 2) (sqrt -1))))))) (+ (* M (sqrt -1)) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (+ (* -1/8 (/ (* (pow c0 4) (pow d 8)) (* (pow D 8) (* (pow M 3) (* (pow h 4) (* (pow w 4) (pow (sqrt -1) 3))))))) (+ (* 1/2 (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* M (* (pow h 2) (* (pow w 2) (sqrt -1))))))) (+ (* M (sqrt -1)) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (/ (+ (* 1/2 (* M (* c0 (sqrt -1)))) (* 1/2 (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (* M (sqrt -1)))) (/ (* c0 (pow d 2)) (* (pow D 2) h)))) w))) w)))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (/ (+ (* 1/4 (/ (* c0 (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow h 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* M (* (pow w 2) (sqrt -1))))) (+ (* 1/2 (* M (* c0 (sqrt -1)))) (* 1/2 (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (* M (sqrt -1)))) (/ (* c0 (pow d 2)) (* (pow D 2) h)))) w)))) w)))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (/ (+ (* -1/8 (/ (* c0 (* (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow h 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2) (* (pow M 2) (pow (sqrt -1) 2))))))) (* (pow M 3) (* (pow w 3) (pow (sqrt -1) 3))))) (+ (* 1/4 (/ (* c0 (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow h 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* M (* (pow w 2) (sqrt -1))))) (+ (* 1/2 (* M (* c0 (sqrt -1)))) (* 1/2 (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (* M (sqrt -1)))) (/ (* c0 (pow d 2)) (* (pow D 2) h)))) w))))) w)))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (+ (* M (* c0 (sqrt -1))) (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (* M (sqrt -1)))) (/ (* c0 (pow d 2)) (* (pow D 2) h)))) w))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (+ (* 1/2 (/ (* c0 (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow h 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* M (* (pow w 2) (sqrt -1))))) (+ (* M (* c0 (sqrt -1))) (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (* M (sqrt -1)))) (/ (* c0 (pow d 2)) (* (pow D 2) h)))) w)))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (+ (* -1/4 (/ (* c0 (* (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow h 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2) (* (pow M 2) (pow (sqrt -1) 2))))))) (* (pow M 3) (* (pow w 3) (pow (sqrt -1) 3))))) (+ (* 1/2 (/ (* c0 (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow h 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* M (* (pow w 2) (sqrt -1))))) (+ (* M (* c0 (sqrt -1))) (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (* M (sqrt -1)))) (/ (* c0 (pow d 2)) (* (pow D 2) h)))) w))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (* M (* w (sqrt -1))))) (+ (* M (sqrt -1)) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (* M (* w (sqrt -1))))) (+ (* 1/2 (/ (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow h 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2) (* (pow M 2) (pow (sqrt -1) 2))))) (* M (* (pow w 2) (sqrt -1))))) (+ (* M (sqrt -1)) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (+ (* -1/4 (/ (* (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow h 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* (pow M 3) (* (pow w 3) (pow (sqrt -1) 3))))) (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (* M (* w (sqrt -1))))) (+ (* 1/2 (/ (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow h 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2) (* (pow M 2) (pow (sqrt -1) 2))))) (* M (* (pow w 2) (sqrt -1))))) (+ (* M (sqrt -1)) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))))))))
#s(approx (* c0 (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w)))))) #s(hole binary64 (* w (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) h)) (* c0 (pow d 2)))) (* 2 (/ (* c0 (pow d 2)) (* (pow D 2) (* h (pow w 2)))))))))
#s(approx (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w))))) #s(hole binary64 (* w (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow c0 2) (pow d 2)))) (* 2 (/ (pow d 2) (* (pow D 2) (* h (pow w 2)))))))))
#s(approx (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) #s(hole binary64 (* (pow w 2) (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h (pow w 2))))))))
#s(approx (* h (+ (* -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h h))))) #s(hole binary64 (* (pow w 2) (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h (pow w 2))))))))
#s(approx (+ (* -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h h)))) #s(hole binary64 (* (pow w 2) (+ (* -1/4 (/ (* (pow D 2) (pow M 2)) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* (pow h 2) (pow w 2))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* -1 (/ (+ (* -1/2 (* M (* c0 (sqrt -1)))) (* -1/2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h w))))) w))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (+ (* 1/4 (/ (* (pow c0 3) (pow d 4)) (* (pow D 4) (* M (* (pow h 2) (* w (sqrt -1))))))) (* 1/2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) h)))) w)) (* -1/2 (* M (* c0 (sqrt -1))))) w))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (+ (* -1 (/ (+ (* -1/4 (/ (* (pow c0 3) (pow d 4)) (* (pow D 4) (* M (* (pow h 2) (sqrt -1)))))) (* 1/16 (/ (* (pow c0 5) (pow d 8)) (* (pow D 8) (* (pow M 3) (* (pow h 4) (* (pow w 2) (pow (sqrt -1) 3)))))))) w)) (* 1/2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) h)))) w)) (* -1/2 (* M (* c0 (sqrt -1))))) w))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) h))) (* -1/2 (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* M (* (pow h 2) (* w (sqrt -1)))))))) w)) (* M (sqrt -1)))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) h))) (* -1 (/ (+ (* -1/8 (/ (* (pow c0 4) (pow d 8)) (* (pow D 8) (* (pow M 3) (* (pow h 4) (* (pow w 2) (pow (sqrt -1) 3))))))) (* 1/2 (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* M (* (pow h 2) (sqrt -1))))))) w))) w)) (* M (sqrt -1)))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (* -1 (/ (+ (* -1/2 (* M (* c0 (sqrt -1)))) (* 1/2 (/ (* c0 (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) h))) (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (* M (sqrt -1)))))) w))) w))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (+ (* -1/2 (* c0 (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) h))) (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (* M (sqrt -1))))))) (* 1/4 (/ (* c0 (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow h 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* M (* w (sqrt -1)))))) w)) (* -1/2 (* M (* c0 (sqrt -1))))) w))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (+ (* -1 (/ (+ (* -1/4 (/ (* c0 (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow h 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* M (sqrt -1)))) (* -1/8 (/ (* c0 (* (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow h 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2) (* (pow M 2) (pow (sqrt -1) 2))))))) (* (pow M 3) (* w (pow (sqrt -1) 3)))))) w)) (* -1/2 (* c0 (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) h))) (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (* M (sqrt -1)))))))) w)) (* -1/2 (* M (* c0 (sqrt -1))))) w))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (+ (* -1 (/ (* c0 (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) h))) (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (* M (sqrt -1)))))) w)) (* M (* c0 (sqrt -1))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/2 (/ (* c0 (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow h 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* M (* w (sqrt -1))))) (* c0 (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) h))) (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (* M (sqrt -1))))))) w)) (* M (* c0 (sqrt -1))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/4 (/ (* c0 (* (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow h 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2) (* (pow M 2) (pow (sqrt -1) 2))))))) (* (pow M 3) (* w (pow (sqrt -1) 3))))) (* 1/2 (/ (* c0 (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow h 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* M (sqrt -1))))) w)) (* c0 (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) h))) (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (* M (sqrt -1))))))) w)) (* M (* c0 (sqrt -1))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) h))) (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (* M (sqrt -1))))) w)) (* M (sqrt -1)))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) h))) (+ (* -1/2 (/ (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow h 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2) (* (pow M 2) (pow (sqrt -1) 2))))) (* M (* w (sqrt -1))))) (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (* M (sqrt -1)))))) w)) (* M (sqrt -1)))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) h))) (+ (* -1 (/ (+ (* 1/4 (/ (* (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow h 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* (pow M 3) (* w (pow (sqrt -1) 3))))) (* 1/2 (/ (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow h 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2) (* (pow M 2) (pow (sqrt -1) 2))))) (* M (sqrt -1))))) w)) (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (* M (sqrt -1)))))) w)) (* M (sqrt -1)))))
#s(approx (* c0 (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w)))))) #s(hole binary64 (* -1 (* w (+ (* -2 (/ (* c0 (pow d 2)) (* (pow D 2) (* h (pow w 2))))) (* 1/2 (/ (* (pow D 2) (* (pow M 2) h)) (* c0 (pow d 2)))))))))
#s(approx (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w))))) #s(hole binary64 (* -1 (* w (+ (* -2 (/ (pow d 2) (* (pow D 2) (* h (pow w 2))))) (* 1/2 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow c0 2) (pow d 2)))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (/ (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (pow h 2))) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (pow w 2)))) h)))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (/ (+ (* (pow h 2) (+ (* -1/4 (/ (* (pow D 2) (pow M 2)) (pow d 2))) (* -1/16 (/ (* (pow D 6) (* (pow M 4) (* (pow h 2) (pow w 2)))) (* (pow c0 2) (pow d 6)))))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (pow w 2)))) h)))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (/ (+ (* (pow h 2) (+ (* -1/4 (/ (* (pow D 2) (pow M 2)) (pow d 2))) (* (pow h 2) (+ (* -1/16 (/ (* (pow D 6) (* (pow M 4) (pow w 2))) (* (pow c0 2) (pow d 6)))) (* -1/32 (/ (* (pow D 10) (* (pow M 6) (* (pow h 2) (pow w 4)))) (* (pow c0 4) (pow d 10)))))))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (pow w 2)))) h)))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (/ (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* (pow h 2) w))) (* c0 (pow d 2)))) (* 2 (/ (* c0 (pow d 2)) (* (pow D 2) w)))) h)))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (/ (+ (* 2 (/ (* c0 (pow d 2)) (* (pow D 2) w))) (* (pow h 2) (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) w)) (* c0 (pow d 2)))) (* -1/8 (/ (* (pow D 6) (* (pow M 4) (* (pow h 2) (pow w 3)))) (* (pow c0 3) (pow d 6))))))) h)))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (/ (+ (* 2 (/ (* c0 (pow d 2)) (* (pow D 2) w))) (* (pow h 2) (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) w)) (* c0 (pow d 2)))) (* (pow h 2) (+ (* -1/8 (/ (* (pow D 6) (* (pow M 4) (pow w 3))) (* (pow c0 3) (pow d 6)))) (* -1/16 (/ (* (pow D 10) (* (pow M 6) (* (pow h 2) (pow w 5)))) (* (pow c0 5) (pow d 10))))))))) h)))
#s(approx h #s(hole binary64 h))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (/ (+ (* 1/4 (/ (* (pow D 2) (* h (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))))) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (pow w 2)))) h)))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (/ (+ (* h (+ (* 1/4 (/ (* (pow D 2) (* h (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow w 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2))) (* (pow c0 2) (pow d 4))))))) (pow d 2))) (* 1/4 (/ (* (pow D 2) (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w)))) (pow d 2))))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (pow w 2)))) h)))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (/ (+ (* h (+ (* 1/4 (/ (* (pow D 2) (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w)))) (pow d 2))) (* h (+ (* -1/8 (/ (* (pow D 6) (* h (* (pow w 2) (* (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow w 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2))) (* (pow c0 2) (pow d 4))))))))) (* (pow c0 2) (pow d 6)))) (* 1/4 (/ (* (pow D 2) (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow w 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2))) (* (pow c0 2) (pow d 4)))))) (pow d 2))))))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (pow w 2)))) h)))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (/ (+ (* 1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w)))))) (pow d 2))) (* 2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) w)))) h)))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (/ (+ (* 2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) w))) (* h (+ (* 1/2 (/ (* (pow D 2) (* h (* w (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow w 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2))) (* (pow c0 2) (pow d 4)))))))) (pow d 2))) (* 1/2 (/ (* (pow D 2) (* w (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))))) (pow d 2)))))) h)))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (/ (+ (* 2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) w))) (* h (+ (* 1/2 (/ (* (pow D 2) (* w (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))))) (pow d 2))) (* h (+ (* -1/4 (/ (* (pow D 6) (* h (* (pow w 3) (* (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow w 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2))) (* (pow c0 2) (pow d 4))))))))) (* (pow c0 2) (pow d 6)))) (* 1/2 (/ (* (pow D 2) (* w (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow w 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2))) (* (pow c0 2) (pow d 4))))))) (pow d 2)))))))) h)))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (/ (+ (* 1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w)))))) (* c0 (pow d 2)))) (* 2 (/ (* c0 (pow d 2)) (* (pow D 2) w)))) h)))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (/ (+ (* 2 (/ (* c0 (pow d 2)) (* (pow D 2) w))) (* h (+ (* 1/2 (/ (* (pow D 2) (* h (* w (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow w 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2))) (* (pow c0 2) (pow d 4)))))))) (* c0 (pow d 2)))) (* 1/2 (/ (* (pow D 2) (* w (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))))) (* c0 (pow d 2))))))) h)))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (/ (+ (* 2 (/ (* c0 (pow d 2)) (* (pow D 2) w))) (* h (+ (* 1/2 (/ (* (pow D 2) (* w (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))))) (* c0 (pow d 2)))) (* h (+ (* -1/4 (/ (* (pow D 6) (* h (* (pow w 3) (* (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow w 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2))) (* (pow c0 2) (pow d 4))))))))) (* (pow c0 3) (pow d 6)))) (* 1/2 (/ (* (pow D 2) (* w (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow w 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2))) (* (pow c0 2) (pow d 4))))))) (* c0 (pow d 2))))))))) h)))
#s(approx (* c0 (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w)))))) #s(hole binary64 (/ (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* (pow h 2) w))) (* c0 (pow d 2)))) (* 2 (/ (* c0 (pow d 2)) (* (pow D 2) w)))) h)))
#s(approx (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w))))) #s(hole binary64 (/ (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* (pow h 2) w))) (* (pow c0 2) (pow d 2)))) (* 2 (/ (pow d 2) (* (pow D 2) w)))) h)))
#s(approx (/ (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (* w w)) #s(hole binary64 (/ (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (pow h 2))) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (pow w 2)))) h)))
#s(approx (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) #s(hole binary64 (/ (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (* (pow h 2) (pow w 2)))) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) (pow D 2))) h)))
#s(approx (* h (+ (* -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h h))))) #s(hole binary64 (/ (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (* (pow h 2) (pow w 2)))) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) (pow D 2))) h)))
#s(approx (+ (* -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h h)))) #s(hole binary64 (/ (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (* (pow h 2) (pow w 2)))) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) (pow D 2))) (pow h 2))))
#s(approx (/ (* d d) (* h h)) #s(hole binary64 (/ (pow d 2) (pow h 2))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (+ (* 1/2 (/ (* M (* c0 (sqrt -1))) w)) (* 1/2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h (pow w 2))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (+ (* 1/4 (/ (* (pow c0 3) (pow d 4)) (* (pow D 4) (* M (* (pow h 2) (* (pow w 3) (sqrt -1))))))) (+ (* 1/2 (/ (* M (* c0 (sqrt -1))) w)) (* 1/2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h (pow w 2)))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (+ (* -1/16 (/ (* (pow c0 5) (pow d 8)) (* (pow D 8) (* (pow M 3) (* (pow h 4) (* (pow w 5) (pow (sqrt -1) 3))))))) (+ (* 1/4 (/ (* (pow c0 3) (pow d 4)) (* (pow D 4) (* M (* (pow h 2) (* (pow w 3) (sqrt -1))))))) (+ (* 1/2 (/ (* M (* c0 (sqrt -1))) w)) (* 1/2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h (pow w 2))))))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (+ (* 1/2 (/ (* M (* c0 (sqrt -1))) w)) (* 1/2 (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (* M (sqrt -1)))) (/ (* c0 (pow d 2)) (* (pow D 2) w)))) (* h w))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (+ (* 1/4 (/ (* c0 (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* M (* (pow h 2) (* w (sqrt -1)))))) (+ (* 1/2 (/ (* M (* c0 (sqrt -1))) w)) (* 1/2 (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (* M (sqrt -1)))) (/ (* c0 (pow d 2)) (* (pow D 2) w)))) (* h w)))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (+ (* -1/8 (/ (* c0 (* (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2) (* (pow M 2) (pow (sqrt -1) 2))))))) (* (pow M 3) (* (pow h 3) (* w (pow (sqrt -1) 3)))))) (+ (* 1/4 (/ (* c0 (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* M (* (pow h 2) (* w (sqrt -1)))))) (+ (* 1/2 (/ (* M (* c0 (sqrt -1))) w)) (* 1/2 (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (* M (sqrt -1)))) (/ (* c0 (pow d 2)) (* (pow D 2) w)))) (* h w))))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (+ (* M (* c0 (sqrt -1))) (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (* M (sqrt -1)))) (/ (* c0 (pow d 2)) (* (pow D 2) w)))) h))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (+ (* 1/2 (/ (* c0 (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* M (* (pow h 2) (sqrt -1))))) (+ (* M (* c0 (sqrt -1))) (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (* M (sqrt -1)))) (/ (* c0 (pow d 2)) (* (pow D 2) w)))) h)))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (+ (* -1/4 (/ (* c0 (* (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2) (* (pow M 2) (pow (sqrt -1) 2))))))) (* (pow M 3) (* (pow h 3) (pow (sqrt -1) 3))))) (+ (* 1/2 (/ (* c0 (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* M (* (pow h 2) (sqrt -1))))) (+ (* M (* c0 (sqrt -1))) (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (* M (sqrt -1)))) (/ (* c0 (pow d 2)) (* (pow D 2) w)))) h))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (* M (* h (sqrt -1))))) (+ (* M (sqrt -1)) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (* M (* h (sqrt -1))))) (+ (* 1/2 (/ (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2) (* (pow M 2) (pow (sqrt -1) 2))))) (* M (* (pow h 2) (sqrt -1))))) (+ (* M (sqrt -1)) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (+ (* -1/4 (/ (* (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* (pow M 3) (* (pow h 3) (pow (sqrt -1) 3))))) (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (* M (* h (sqrt -1))))) (+ (* 1/2 (/ (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2) (* (pow M 2) (pow (sqrt -1) 2))))) (* M (* (pow h 2) (sqrt -1))))) (+ (* M (sqrt -1)) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))))))))
#s(approx (* c0 (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w)))))) #s(hole binary64 (* h (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) w)) (* c0 (pow d 2)))) (* 2 (/ (* c0 (pow d 2)) (* (pow D 2) (* (pow h 2) w))))))))
#s(approx (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w))))) #s(hole binary64 (* h (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) w)) (* (pow c0 2) (pow d 2)))) (* 2 (/ (pow d 2) (* (pow D 2) (* (pow h 2) w))))))))
#s(approx (/ (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (* w w)) #s(hole binary64 (* h (+ (* -1/4 (/ (* (pow D 2) (pow M 2)) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* (pow h 2) (pow w 2))))))))
#s(approx (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) #s(hole binary64 (* h (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (pow w 2))) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (pow h 2)))))))
#s(approx (* h (+ (* -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h h))))) #s(hole binary64 (* h (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (pow w 2))) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (pow h 2)))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (pow w 2)))) (* -1/4 (/ (* (pow c0 3) (pow d 4)) (* (pow D 4) (* M (* h (* (pow w 3) (sqrt -1)))))))) h)) (* 1/2 (/ (* M (* c0 (sqrt -1))) w)))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (+ (* -1 (/ (+ (* -1 (/ (+ (* -1/16 (/ (* (pow c0 5) (pow d 8)) (* (pow D 8) (* (pow M 3) (* (pow h 2) (* (pow w 5) (pow (sqrt -1) 3))))))) (* 1/4 (/ (* (pow c0 3) (pow d 4)) (* (pow D 4) (* M (* (pow w 3) (sqrt -1))))))) h)) (* -1/2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (pow w 2))))) h)) (* 1/2 (/ (* M (* c0 (sqrt -1))) w)))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) w))) (* -1/2 (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* M (* h (* (pow w 2) (sqrt -1)))))))) h)) (* M (sqrt -1)))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) w))) (* -1 (/ (+ (* -1/8 (/ (* (pow c0 4) (pow d 8)) (* (pow D 8) (* (pow M 3) (* (pow h 2) (* (pow w 4) (pow (sqrt -1) 3))))))) (* 1/2 (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* M (* (pow w 2) (sqrt -1))))))) h))) h)) (* M (sqrt -1)))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (+ (* -1/2 (/ (* c0 (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) w))) (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (* M (sqrt -1)))))) (* h w))) (* 1/2 (/ (* M (* c0 (sqrt -1))) w)))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (+ (* -1 (/ (+ (* -1/4 (/ (* c0 (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* M (* h (* w (sqrt -1)))))) (* 1/2 (/ (* c0 (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) w))) (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (* M (sqrt -1)))))) w))) h)) (* 1/2 (/ (* M (* c0 (sqrt -1))) w)))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/8 (/ (* c0 (* (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2) (* (pow M 2) (pow (sqrt -1) 2))))))) (* (pow M 3) (* h (* w (pow (sqrt -1) 3)))))) (* 1/4 (/ (* c0 (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* M (* w (sqrt -1)))))) h)) (* 1/2 (/ (* c0 (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) w))) (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (* M (sqrt -1)))))) w))) h)) (* 1/2 (/ (* M (* c0 (sqrt -1))) w)))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (+ (* -1 (/ (* c0 (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) w))) (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (* M (sqrt -1)))))) h)) (* M (* c0 (sqrt -1))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/2 (/ (* c0 (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* M (* h (sqrt -1))))) (* c0 (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) w))) (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (* M (sqrt -1))))))) h)) (* M (* c0 (sqrt -1))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/4 (/ (* c0 (* (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2) (* (pow M 2) (pow (sqrt -1) 2))))))) (* (pow M 3) (* h (pow (sqrt -1) 3))))) (* 1/2 (/ (* c0 (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* M (sqrt -1))))) h)) (* c0 (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) w))) (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (* M (sqrt -1))))))) h)) (* M (* c0 (sqrt -1))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) w))) (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (* M (sqrt -1))))) h)) (* M (sqrt -1)))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) w))) (+ (* -1/2 (/ (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2) (* (pow M 2) (pow (sqrt -1) 2))))) (* M (* h (sqrt -1))))) (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (* M (sqrt -1)))))) h)) (* M (sqrt -1)))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) w))) (+ (* -1 (/ (+ (* 1/4 (/ (* (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* (pow M 3) (* h (pow (sqrt -1) 3))))) (* 1/2 (/ (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2) (* (pow M 2) (pow (sqrt -1) 2))))) (* M (sqrt -1))))) h)) (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (* M (sqrt -1)))))) h)) (* M (sqrt -1)))))
#s(approx (* c0 (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w)))))) #s(hole binary64 (* -1 (* h (+ (* -2 (/ (* c0 (pow d 2)) (* (pow D 2) (* (pow h 2) w)))) (* 1/2 (/ (* (pow D 2) (* (pow M 2) w)) (* c0 (pow d 2)))))))))
#s(approx (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w))))) #s(hole binary64 (* -1 (* h (+ (* -2 (/ (pow d 2) (* (pow D 2) (* (pow h 2) w)))) (* 1/2 (/ (* (pow D 2) (* (pow M 2) w)) (* (pow c0 2) (pow d 2)))))))))
#s(approx (/ (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (* w w)) #s(hole binary64 (* -1 (* h (+ (* -1 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* (pow h 2) (pow w 2))))) (* 1/4 (/ (* (pow D 2) (pow M 2)) (pow d 2))))))))
#s(approx (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) #s(hole binary64 (* -1 (* h (+ (* -1 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (pow h 2)))) (* 1/4 (/ (* (pow D 2) (* (pow M 2) (pow w 2))) (pow d 2))))))))
#s(approx (* h (+ (* -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h h))))) #s(hole binary64 (* -1 (* h (+ (* -1 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (pow h 2)))) (* 1/4 (/ (* (pow D 2) (* (pow M 2) (pow w 2))) (pow d 2))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (/ (+ (* -1/4 (/ (* (pow D 4) (* (pow M 2) h)) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) (* h (pow w 2)))) (pow D 2))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (/ (+ (* (pow D 4) (+ (* -1/4 (/ (* (pow M 2) h) (pow d 2))) (* -1/16 (/ (* (pow D 4) (* (pow M 4) (* (pow h 3) (pow w 2)))) (* (pow c0 2) (pow d 6)))))) (/ (* (pow c0 2) (pow d 2)) (* h (pow w 2)))) (pow D 2))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (/ (+ (* (pow D 4) (+ (* -1/4 (/ (* (pow M 2) h) (pow d 2))) (* (pow D 4) (+ (* -1/16 (/ (* (pow M 4) (* (pow h 3) (pow w 2))) (* (pow c0 2) (pow d 6)))) (* -1/32 (/ (* (pow D 4) (* (pow M 6) (* (pow h 5) (pow w 4)))) (* (pow c0 4) (pow d 10)))))))) (/ (* (pow c0 2) (pow d 2)) (* h (pow w 2)))) (pow D 2))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (/ (+ (* -1/2 (/ (* (pow D 4) (* (pow M 2) (* h w))) (* c0 (pow d 2)))) (* 2 (/ (* c0 (pow d 2)) (* h w)))) (pow D 2))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (/ (+ (* 2 (/ (* c0 (pow d 2)) (* h w))) (* (pow D 4) (+ (* -1/2 (/ (* (pow M 2) (* h w)) (* c0 (pow d 2)))) (* -1/8 (/ (* (pow D 4) (* (pow M 4) (* (pow h 3) (pow w 3)))) (* (pow c0 3) (pow d 6))))))) (pow D 2))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (/ (+ (* 2 (/ (* c0 (pow d 2)) (* h w))) (* (pow D 4) (+ (* -1/2 (/ (* (pow M 2) (* h w)) (* c0 (pow d 2)))) (* (pow D 4) (+ (* -1/8 (/ (* (pow M 4) (* (pow h 3) (pow w 3))) (* (pow c0 3) (pow d 6)))) (* -1/16 (/ (* (pow D 4) (* (pow M 6) (* (pow h 5) (pow w 5)))) (* (pow c0 5) (pow d 10))))))))) (pow D 2))))
#s(approx (* (/ d D) (/ d D)) #s(hole binary64 (/ (pow d 2) (pow D 2))))
#s(approx (/ d D) #s(hole binary64 (/ d D)))
#s(approx D #s(hole binary64 D))
#s(approx (/ (* d d) (* D D)) #s(hole binary64 (/ (pow d 2) (pow D 2))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (/ (+ (* 1/4 (/ (* (pow D 2) (* h (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))))) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) (* h (pow w 2)))) (pow D 2))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (/ (+ (* (pow D 2) (+ (* 1/4 (/ (* h (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w)))) (pow d 2))) (* 1/4 (/ (* (pow D 2) (* h (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) 2))) (* (pow c0 2) (pow d 4))))))) (pow d 2))))) (/ (* (pow c0 2) (pow d 2)) (* h (pow w 2)))) (pow D 2))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (/ (+ (* (pow D 2) (+ (* 1/4 (/ (* h (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w)))) (pow d 2))) (* (pow D 2) (+ (* -1/8 (/ (* (pow D 2) (* (pow h 3) (* (pow w 2) (* (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) 2))) (* (pow c0 2) (pow d 4))))))))) (* (pow c0 2) (pow d 6)))) (* 1/4 (/ (* h (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) 2))) (* (pow c0 2) (pow d 4)))))) (pow d 2))))))) (/ (* (pow c0 2) (pow d 2)) (* h (pow w 2)))) (pow D 2))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (/ (+ (* 1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w)))))) (pow d 2))) (* 2 (/ (* (pow c0 2) (pow d 2)) (* h w)))) (pow D 2))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (/ (+ (* 2 (/ (* (pow c0 2) (pow d 2)) (* h w))) (* (pow D 2) (+ (* 1/2 (/ (* h (* w (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))))) (pow d 2))) (* 1/2 (/ (* (pow D 2) (* h (* w (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) 2))) (* (pow c0 2) (pow d 4)))))))) (pow d 2)))))) (pow D 2))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (/ (+ (* 2 (/ (* (pow c0 2) (pow d 2)) (* h w))) (* (pow D 2) (+ (* 1/2 (/ (* h (* w (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))))) (pow d 2))) (* (pow D 2) (+ (* -1/4 (/ (* (pow D 2) (* (pow h 3) (* (pow w 3) (* (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) 2))) (* (pow c0 2) (pow d 4))))))))) (* (pow c0 2) (pow d 6)))) (* 1/2 (/ (* h (* w (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) 2))) (* (pow c0 2) (pow d 4))))))) (pow d 2)))))))) (pow D 2))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (/ (+ (* 1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w)))))) (* c0 (pow d 2)))) (* 2 (/ (* c0 (pow d 2)) (* h w)))) (pow D 2))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (/ (+ (* 2 (/ (* c0 (pow d 2)) (* h w))) (* (pow D 2) (+ (* 1/2 (/ (* h (* w (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))))) (* c0 (pow d 2)))) (* 1/2 (/ (* (pow D 2) (* h (* w (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) 2))) (* (pow c0 2) (pow d 4)))))))) (* c0 (pow d 2))))))) (pow D 2))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (/ (+ (* 2 (/ (* c0 (pow d 2)) (* h w))) (* (pow D 2) (+ (* 1/2 (/ (* h (* w (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))))) (* c0 (pow d 2)))) (* (pow D 2) (+ (* -1/4 (/ (* (pow D 2) (* (pow h 3) (* (pow w 3) (* (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) 2))) (* (pow c0 2) (pow d 4))))))))) (* (pow c0 3) (pow d 6)))) (* 1/2 (/ (* h (* w (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) 2))) (* (pow c0 2) (pow d 4))))))) (* c0 (pow d 2))))))))) (pow D 2))))
#s(approx (* D D) #s(hole binary64 (pow D 2)))
#s(approx (* c0 (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w)))))) #s(hole binary64 (/ (+ (* -1/2 (/ (* (pow D 4) (* (pow M 2) (* h w))) (* c0 (pow d 2)))) (* 2 (/ (* c0 (pow d 2)) (* h w)))) (pow D 2))))
#s(approx (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w))))) #s(hole binary64 (/ (+ (* -1/2 (/ (* (pow D 4) (* (pow M 2) (* h w))) (* (pow c0 2) (pow d 2)))) (* 2 (/ (pow d 2) (* h w)))) (pow D 2))))
#s(approx (/ (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (* w w)) #s(hole binary64 (/ (+ (* -1/4 (/ (* (pow D 4) (* (pow M 2) h)) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) (* h (pow w 2)))) (pow D 2))))
#s(approx (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) #s(hole binary64 (/ (+ (* -1/4 (/ (* (pow D 4) (* (pow M 2) (* h (pow w 2)))) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) h)) (pow D 2))))
#s(approx (* h (+ (* -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h h))))) #s(hole binary64 (/ (+ (* -1/4 (/ (* (pow D 4) (* (pow M 2) (* h (pow w 2)))) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) h)) (pow D 2))))
#s(approx (+ (* -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h h)))) #s(hole binary64 (/ (+ (* -1/4 (/ (* (pow D 4) (* (pow M 2) (pow w 2))) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) (pow h 2))) (pow D 2))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (+ (* 1/2 (/ (* M (* c0 (sqrt -1))) w)) (* 1/2 (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) (* M (sqrt -1)))) (/ (* c0 (pow d 2)) (* h w)))) (* (pow D 2) w))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (+ (* 1/4 (/ (* c0 (- (/ (* (pow c0 2) (pow d 4)) (* (pow h 2) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* (pow D 4) (* M (* w (sqrt -1)))))) (+ (* 1/2 (/ (* M (* c0 (sqrt -1))) w)) (* 1/2 (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) (* M (sqrt -1)))) (/ (* c0 (pow d 2)) (* h w)))) (* (pow D 2) w)))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (+ (* -1/8 (/ (* c0 (* (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) (- (/ (* (pow c0 2) (pow d 4)) (* (pow h 2) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) 2) (* (pow M 2) (pow (sqrt -1) 2))))))) (* (pow D 6) (* (pow M 3) (* w (pow (sqrt -1) 3)))))) (+ (* 1/4 (/ (* c0 (- (/ (* (pow c0 2) (pow d 4)) (* (pow h 2) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* (pow D 4) (* M (* w (sqrt -1)))))) (+ (* 1/2 (/ (* M (* c0 (sqrt -1))) w)) (* 1/2 (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) (* M (sqrt -1)))) (/ (* c0 (pow d 2)) (* h w)))) (* (pow D 2) w))))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (+ (* M (* c0 (sqrt -1))) (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) (* M (sqrt -1)))) (/ (* c0 (pow d 2)) (* h w)))) (pow D 2)))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (+ (* 1/2 (/ (* c0 (- (/ (* (pow c0 2) (pow d 4)) (* (pow h 2) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* (pow D 4) (* M (sqrt -1))))) (+ (* M (* c0 (sqrt -1))) (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) (* M (sqrt -1)))) (/ (* c0 (pow d 2)) (* h w)))) (pow D 2))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (+ (* -1/4 (/ (* c0 (* (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) (- (/ (* (pow c0 2) (pow d 4)) (* (pow h 2) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) 2) (* (pow M 2) (pow (sqrt -1) 2))))))) (* (pow D 6) (* (pow M 3) (pow (sqrt -1) 3))))) (+ (* 1/2 (/ (* c0 (- (/ (* (pow c0 2) (pow d 4)) (* (pow h 2) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* (pow D 4) (* M (sqrt -1))))) (+ (* M (* c0 (sqrt -1))) (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) (* M (sqrt -1)))) (/ (* c0 (pow d 2)) (* h w)))) (pow D 2)))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) (* (pow D 2) (* M (sqrt -1))))) (+ (* M (sqrt -1)) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) (* (pow D 2) (* M (sqrt -1))))) (+ (* 1/2 (/ (- (/ (* (pow c0 2) (pow d 4)) (* (pow h 2) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) 2) (* (pow M 2) (pow (sqrt -1) 2))))) (* (pow D 4) (* M (sqrt -1))))) (+ (* M (sqrt -1)) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (+ (* -1/4 (/ (* (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) (- (/ (* (pow c0 2) (pow d 4)) (* (pow h 2) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* (pow D 6) (* (pow M 3) (pow (sqrt -1) 3))))) (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) (* (pow D 2) (* M (sqrt -1))))) (+ (* 1/2 (/ (- (/ (* (pow c0 2) (pow d 4)) (* (pow h 2) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) 2) (* (pow M 2) (pow (sqrt -1) 2))))) (* (pow D 4) (* M (sqrt -1))))) (+ (* M (sqrt -1)) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))))))))
#s(approx (* c0 (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w)))))) #s(hole binary64 (* (pow D 2) (+ (* -1/2 (/ (* (pow M 2) (* h w)) (* c0 (pow d 2)))) (* 2 (/ (* c0 (pow d 2)) (* (pow D 4) (* h w))))))))
#s(approx (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w))))) #s(hole binary64 (* (pow D 2) (+ (* -1/2 (/ (* (pow M 2) (* h w)) (* (pow c0 2) (pow d 2)))) (* 2 (/ (pow d 2) (* (pow D 4) (* h w))))))))
#s(approx (/ (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (* w w)) #s(hole binary64 (* (pow D 2) (+ (* -1/4 (/ (* (pow M 2) h) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 4) (* h (pow w 2))))))))
#s(approx (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) #s(hole binary64 (* (pow D 2) (+ (* -1/4 (/ (* (pow M 2) (* h (pow w 2))) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 4) h))))))
#s(approx (* h (+ (* -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h h))))) #s(hole binary64 (* (pow D 2) (+ (* -1/4 (/ (* (pow M 2) (* h (pow w 2))) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 4) h))))))
#s(approx (+ (* -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h h)))) #s(hole binary64 (* (pow D 2) (+ (* -1/4 (/ (* (pow M 2) (pow w 2)) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 4) (pow h 2)))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (+ (* 1/2 (/ (* M (* c0 (sqrt -1))) w)) (* (pow d 2) (+ (* 1/4 (/ (* (pow c0 3) (pow d 2)) (* (pow D 4) (* M (* (pow h 2) (* (pow w 3) (sqrt -1))))))) (* 1/2 (/ (pow c0 2) (* (pow D 2) (* h (pow w 2))))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (+ (* 1/2 (/ (* M (* c0 (sqrt -1))) w)) (* (pow d 2) (+ (* 1/2 (/ (pow c0 2) (* (pow D 2) (* h (pow w 2))))) (* (pow d 2) (+ (* -1/16 (/ (* (pow c0 5) (pow d 4)) (* (pow D 8) (* (pow M 3) (* (pow h 4) (* (pow w 5) (pow (sqrt -1) 3))))))) (* 1/4 (/ (pow c0 3) (* (pow D 4) (* M (* (pow h 2) (* (pow w 3) (sqrt -1))))))))))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (+ (* M (sqrt -1)) (* (pow d 2) (+ (* 1/2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 4) (* M (* (pow h 2) (* (pow w 2) (sqrt -1))))))) (/ c0 (* (pow D 2) (* h w))))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (+ (* M (sqrt -1)) (* (pow d 2) (+ (* (pow d 2) (+ (* -1/8 (/ (* (pow c0 4) (pow d 4)) (* (pow D 8) (* (pow M 3) (* (pow h 4) (* (pow w 4) (pow (sqrt -1) 3))))))) (* 1/2 (/ (pow c0 2) (* (pow D 4) (* M (* (pow h 2) (* (pow w 2) (sqrt -1))))))))) (/ c0 (* (pow D 2) (* h w))))))))
#s(approx d #s(hole binary64 d))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (+ (* 1/2 (/ (* M (* c0 (sqrt -1))) w)) (* 1/2 (/ (* c0 (* (pow d 2) (+ (* 1/2 (/ (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) (* M (sqrt -1)))) (/ c0 (* (pow D 2) (* h w)))))) w)))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (+ (* 1/2 (/ (* M (* c0 (sqrt -1))) w)) (* (pow d 2) (+ (* 1/4 (/ (* c0 (* (pow d 2) (- (/ (pow c0 2) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) 2) (* (pow M 2) (pow (sqrt -1) 2))))))) (* M (* w (sqrt -1))))) (* 1/2 (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) (* M (sqrt -1)))) (/ c0 (* (pow D 2) (* h w))))) w)))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (+ (* 1/2 (/ (* M (* c0 (sqrt -1))) w)) (* (pow d 2) (+ (* 1/2 (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) (* M (sqrt -1)))) (/ c0 (* (pow D 2) (* h w))))) w)) (* (pow d 2) (+ (* -1/8 (/ (* c0 (* (pow d 2) (* (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) (- (/ (pow c0 2) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))))) (* (pow M 3) (* w (pow (sqrt -1) 3))))) (* 1/4 (/ (* c0 (- (/ (pow c0 2) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* M (* w (sqrt -1))))))))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (+ (* M (* c0 (sqrt -1))) (* c0 (* (pow d 2) (+ (* 1/2 (/ (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) (* M (sqrt -1)))) (/ c0 (* (pow D 2) (* h w)))))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (+ (* M (* c0 (sqrt -1))) (* (pow d 2) (+ (* 1/2 (/ (* c0 (* (pow d 2) (- (/ (pow c0 2) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) 2) (* (pow M 2) (pow (sqrt -1) 2))))))) (* M (sqrt -1)))) (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) (* M (sqrt -1)))) (/ c0 (* (pow D 2) (* h w))))))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (+ (* M (* c0 (sqrt -1))) (* (pow d 2) (+ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) (* M (sqrt -1)))) (/ c0 (* (pow D 2) (* h w))))) (* (pow d 2) (+ (* -1/4 (/ (* c0 (* (pow d 2) (* (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) (- (/ (pow c0 2) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))))) (* (pow M 3) (pow (sqrt -1) 3)))) (* 1/2 (/ (* c0 (- (/ (pow c0 2) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* M (sqrt -1)))))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (+ (* M (sqrt -1)) (* (pow d 2) (+ (* 1/2 (/ (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) (* M (sqrt -1)))) (/ c0 (* (pow D 2) (* h w))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (+ (* M (sqrt -1)) (* (pow d 2) (+ (* 1/2 (/ (* (pow d 2) (- (/ (pow c0 2) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* M (sqrt -1)))) (+ (* 1/2 (/ (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) (* M (sqrt -1)))) (/ c0 (* (pow D 2) (* h w)))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (+ (* M (sqrt -1)) (* (pow d 2) (+ (* 1/2 (/ (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) (* M (sqrt -1)))) (+ (* (pow d 2) (+ (* -1/4 (/ (* (pow d 2) (* (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) (- (/ (pow c0 2) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) 2) (* (pow M 2) (pow (sqrt -1) 2))))))) (* (pow M 3) (pow (sqrt -1) 3)))) (* 1/2 (/ (- (/ (pow c0 2) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) 2) (* (pow M 2) (pow (sqrt -1) 2))))) (* M (sqrt -1)))))) (/ c0 (* (pow D 2) (* h w)))))))))
#s(approx (* d d) #s(hole binary64 (pow d 2)))
#s(approx (* c0 (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w)))))) #s(hole binary64 (/ (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h w))) c0)) (* 2 (/ (* c0 (pow d 4)) (* (pow D 2) (* h w))))) (pow d 2))))
#s(approx (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w))))) #s(hole binary64 (/ (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h w))) (pow c0 2))) (* 2 (/ (pow d 4) (* (pow D 2) (* h w))))) (pow d 2))))
#s(approx (/ (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (* w w)) #s(hole binary64 (/ (+ (* -1/4 (* (pow D 2) (* (pow M 2) h))) (/ (* (pow c0 2) (pow d 4)) (* (pow D 2) (* h (pow w 2))))) (pow d 2))))
#s(approx (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) #s(hole binary64 (/ (+ (* -1/4 (* (pow D 2) (* (pow M 2) (* h (pow w 2))))) (/ (* (pow c0 2) (pow d 4)) (* (pow D 2) h))) (pow d 2))))
#s(approx (* h (+ (* -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h h))))) #s(hole binary64 (/ (+ (* -1/4 (* (pow D 2) (* (pow M 2) (* h (pow w 2))))) (/ (* (pow c0 2) (pow d 4)) (* (pow D 2) h))) (pow d 2))))
#s(approx (+ (* -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h h)))) #s(hole binary64 (/ (+ (* -1/4 (* (pow D 2) (* (pow M 2) (pow w 2)))) (/ (* (pow c0 2) (pow d 4)) (* (pow D 2) (pow h 2)))) (pow d 2))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* (pow d 2) (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 4))) (/ (pow c0 2) (* (pow D 2) (* h (pow w 2))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* (pow d 2) (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 4))) (+ (* -1/16 (/ (* (pow D 6) (* (pow M 4) (* (pow h 3) (pow w 2)))) (* (pow c0 2) (pow d 8)))) (/ (pow c0 2) (* (pow D 2) (* h (pow w 2)))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* (pow d 2) (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 4))) (+ (* -1/16 (/ (* (pow D 6) (* (pow M 4) (* (pow h 3) (pow w 2)))) (* (pow c0 2) (pow d 8)))) (+ (* -1/32 (/ (* (pow D 10) (* (pow M 6) (* (pow h 5) (pow w 4)))) (* (pow c0 4) (pow d 12)))) (/ (pow c0 2) (* (pow D 2) (* h (pow w 2))))))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (* (pow d 2) (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h w))) (* c0 (pow d 4)))) (* 2 (/ c0 (* (pow D 2) (* h w))))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (* (pow d 2) (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h w))) (* c0 (pow d 4)))) (+ (* -1/8 (/ (* (pow D 6) (* (pow M 4) (* (pow h 3) (pow w 3)))) (* (pow c0 3) (pow d 8)))) (* 2 (/ c0 (* (pow D 2) (* h w)))))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (* (pow d 2) (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h w))) (* c0 (pow d 4)))) (+ (* -1/8 (/ (* (pow D 6) (* (pow M 4) (* (pow h 3) (pow w 3)))) (* (pow c0 3) (pow d 8)))) (+ (* -1/16 (/ (* (pow D 10) (* (pow M 6) (* (pow h 5) (pow w 5)))) (* (pow c0 5) (pow d 12)))) (* 2 (/ c0 (* (pow D 2) (* h w))))))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (* (pow d 2) (+ (* 1/4 (/ (* (pow D 2) (* h (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))))) (pow d 2))) (/ (pow c0 2) (* (pow D 2) (* h (pow w 2))))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (* (pow d 2) (+ (* 1/4 (/ (* (pow D 2) (* h (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))))) (pow d 2))) (+ (* 1/4 (/ (* (pow D 2) (* h (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) 2)))) (pow c0 2)))))) (pow d 4))) (/ (pow c0 2) (* (pow D 2) (* h (pow w 2)))))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (* (pow d 2) (+ (* -1/8 (/ (* (pow D 6) (* (pow h 3) (* (pow w 2) (* (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) 2)))) (pow c0 2)))))))) (* (pow c0 2) (pow d 6)))) (+ (* 1/4 (/ (* (pow D 2) (* h (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))))) (pow d 2))) (+ (* 1/4 (/ (* (pow D 2) (* h (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) 2)))) (pow c0 2)))))) (pow d 4))) (/ (pow c0 2) (* (pow D 2) (* h (pow w 2))))))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (* (pow d 2) (+ (* 1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w))))))) (pow d 2))) (* 2 (/ (pow c0 2) (* (pow D 2) (* h w))))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (* (pow d 2) (+ (* 1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w))))))) (pow d 2))) (+ (* 1/2 (/ (* (pow D 2) (* h (* w (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) 2)))) (pow c0 2))))))) (pow d 4))) (* 2 (/ (pow c0 2) (* (pow D 2) (* h w)))))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (* (pow d 2) (+ (* -1/4 (/ (* (pow D 6) (* (pow h 3) (* (pow w 3) (* (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) 2)))) (pow c0 2)))))))) (* (pow c0 2) (pow d 6)))) (+ (* 1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w))))))) (pow d 2))) (+ (* 1/2 (/ (* (pow D 2) (* h (* w (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) 2)))) (pow c0 2))))))) (pow d 4))) (* 2 (/ (pow c0 2) (* (pow D 2) (* h w))))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (* (pow d 2) (+ (* 1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w))))))) (* c0 (pow d 2)))) (* 2 (/ c0 (* (pow D 2) (* h w))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (* (pow d 2) (+ (* 1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w))))))) (* c0 (pow d 2)))) (+ (* 1/2 (/ (* (pow D 2) (* h (* w (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) 2)))) (pow c0 2))))))) (* c0 (pow d 4)))) (* 2 (/ c0 (* (pow D 2) (* h w)))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (* (pow d 2) (+ (* -1/4 (/ (* (pow D 6) (* (pow h 3) (* (pow w 3) (* (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) 2)))) (pow c0 2)))))))) (* (pow c0 3) (pow d 6)))) (+ (* 1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w))))))) (* c0 (pow d 2)))) (+ (* 1/2 (/ (* (pow D 2) (* h (* w (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) 2)))) (pow c0 2))))))) (* c0 (pow d 4)))) (* 2 (/ c0 (* (pow D 2) (* h w))))))))))
#s(approx (* c0 (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w)))))) #s(hole binary64 (* (pow d 2) (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h w))) (* c0 (pow d 4)))) (* 2 (/ c0 (* (pow D 2) (* h w))))))))
#s(approx (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w))))) #s(hole binary64 (* (pow d 2) (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h w))) (* (pow c0 2) (pow d 4)))) (* 2 (/ 1 (* (pow D 2) (* h w))))))))
#s(approx (/ (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (* w w)) #s(hole binary64 (* (pow d 2) (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 4))) (/ (pow c0 2) (* (pow D 2) (* h (pow w 2))))))))
#s(approx (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) #s(hole binary64 (* (pow d 2) (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (* h (pow w 2)))) (pow d 4))) (/ (pow c0 2) (* (pow D 2) h))))))
#s(approx (* h (+ (* -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h h))))) #s(hole binary64 (* (pow d 2) (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (* h (pow w 2)))) (pow d 4))) (/ (pow c0 2) (* (pow D 2) h))))))
#s(approx (+ (* -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h h)))) #s(hole binary64 (* (pow d 2) (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (pow w 2))) (pow d 4))) (/ (pow c0 2) (* (pow D 2) (pow h 2)))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h (pow w 2)))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (+ (* (pow M 2) (+ (* -1/4 (/ (* (pow D 2) h) (pow d 2))) (* -1/16 (/ (* (pow D 6) (* (pow M 2) (* (pow h 3) (pow w 2)))) (* (pow c0 2) (pow d 6)))))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h (pow w 2)))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (+ (* (pow M 2) (+ (* -1/4 (/ (* (pow D 2) h) (pow d 2))) (* (pow M 2) (+ (* -1/16 (/ (* (pow D 6) (* (pow h 3) (pow w 2))) (* (pow c0 2) (pow d 6)))) (* -1/32 (/ (* (pow D 10) (* (pow M 2) (* (pow h 5) (pow w 4)))) (* (pow c0 4) (pow d 10)))))))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h (pow w 2)))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h w))) (* c0 (pow d 2)))) (* 2 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (+ (* 2 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (* (pow M 2) (+ (* -1/2 (/ (* (pow D 2) (* h w)) (* c0 (pow d 2)))) (* -1/8 (/ (* (pow D 6) (* (pow M 2) (* (pow h 3) (pow w 3)))) (* (pow c0 3) (pow d 6)))))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (+ (* 2 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (* (pow M 2) (+ (* -1/2 (/ (* (pow D 2) (* h w)) (* c0 (pow d 2)))) (* (pow M 2) (+ (* -1/8 (/ (* (pow D 6) (* (pow h 3) (pow w 3))) (* (pow c0 3) (pow d 6)))) (* -1/16 (/ (* (pow D 10) (* (pow M 2) (* (pow h 5) (pow w 5)))) (* (pow c0 5) (pow d 10)))))))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (+ (* 1/4 (/ (* (pow D 2) (* M (* h (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))))) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h (pow w 2)))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (+ (* M (+ (* -1/4 (/ (* (pow D 2) (* M (* h (+ 1 (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (* (pow c0 2) (pow d 4)))))))) (pow d 2))) (* 1/4 (/ (* (pow D 2) (* h (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))))) (pow d 2))))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h (pow w 2)))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (+ (* M (+ (* 1/4 (/ (* (pow D 2) (* h (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))))) (pow d 2))) (* M (+ (* -1/4 (/ (* (pow D 2) (* h (+ 1 (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (* (pow c0 2) (pow d 4))))))) (pow d 2))) (* 1/8 (/ (* (pow D 6) (* M (* (pow h 3) (* (pow w 2) (* (+ 1 (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (* (pow c0 2) (pow d 4))))) (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))))))) (* (pow c0 2) (pow d 6)))))))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h (pow w 2)))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (+ (* 1/2 (/ (* (pow D 2) (* M (* h (* w (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))))))) (pow d 2))) (* 2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h w)))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (+ (* 2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h w)))) (* M (+ (* -1/2 (/ (* (pow D 2) (* M (* h (* w (+ 1 (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (* (pow c0 2) (pow d 4))))))))) (pow d 2))) (* 1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))))) (pow d 2))))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (+ (* 2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h w)))) (* M (+ (* 1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))))) (pow d 2))) (* M (+ (* -1/2 (/ (* (pow D 2) (* h (* w (+ 1 (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (* (pow c0 2) (pow d 4)))))))) (pow d 2))) (* 1/4 (/ (* (pow D 6) (* M (* (pow h 3) (* (pow w 3) (* (+ 1 (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (* (pow c0 2) (pow d 4))))) (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))))))) (* (pow c0 2) (pow d 6)))))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (+ (* 1/2 (/ (* (pow D 2) (* M (* h (* w (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))))))) (* c0 (pow d 2)))) (* 2 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (+ (* 2 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (* M (+ (* -1/2 (/ (* (pow D 2) (* M (* h (* w (+ 1 (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (* (pow c0 2) (pow d 4))))))))) (* c0 (pow d 2)))) (* 1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))))) (* c0 (pow d 2)))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (+ (* 2 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (* M (+ (* 1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))))) (* c0 (pow d 2)))) (* M (+ (* -1/2 (/ (* (pow D 2) (* h (* w (+ 1 (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (* (pow c0 2) (pow d 4)))))))) (* c0 (pow d 2)))) (* 1/4 (/ (* (pow D 6) (* M (* (pow h 3) (* (pow w 3) (* (+ 1 (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (* (pow c0 2) (pow d 4))))) (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))))))) (* (pow c0 3) (pow d 6)))))))))))
#s(approx (* c0 (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w)))))) #s(hole binary64 (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h w))) (* c0 (pow d 2)))) (* 2 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))))))
#s(approx (* M M) #s(hole binary64 (pow M 2)))
#s(approx M #s(hole binary64 M))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* M (+ (* 1/2 (/ (* c0 (sqrt -1)) w)) (* 1/2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* M (* h (pow w 2))))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* M (+ (* 1/4 (/ (* (pow c0 3) (pow d 4)) (* (pow D 4) (* (pow M 2) (* (pow h 2) (* (pow w 3) (sqrt -1))))))) (+ (* 1/2 (/ (* c0 (sqrt -1)) w)) (* 1/2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* M (* h (pow w 2)))))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* M (+ (* -1/16 (/ (* (pow c0 5) (pow d 8)) (* (pow D 8) (* (pow M 4) (* (pow h 4) (* (pow w 5) (pow (sqrt -1) 3))))))) (+ (* 1/4 (/ (* (pow c0 3) (pow d 4)) (* (pow D 4) (* (pow M 2) (* (pow h 2) (* (pow w 3) (sqrt -1))))))) (+ (* 1/2 (/ (* c0 (sqrt -1)) w)) (* 1/2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* M (* h (pow w 2))))))))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (* M (+ (sqrt -1) (/ (* c0 (pow d 2)) (* (pow D 2) (* M (* h w))))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (* M (+ (sqrt -1) (+ (* 1/2 (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow M 2) (* (pow h 2) (* (pow w 2) (sqrt -1))))))) (/ (* c0 (pow d 2)) (* (pow D 2) (* M (* h w)))))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (* M (+ (sqrt -1) (+ (* -1/8 (/ (* (pow c0 4) (pow d 8)) (* (pow D 8) (* (pow M 4) (* (pow h 4) (* (pow w 4) (pow (sqrt -1) 3))))))) (+ (* 1/2 (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow M 2) (* (pow h 2) (* (pow w 2) (sqrt -1))))))) (/ (* c0 (pow d 2)) (* (pow D 2) (* M (* h w))))))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (* M (+ (* 1/2 (/ (* c0 (sqrt -1)) w)) (* 1/2 (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (sqrt -1))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))) (* M w)))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (* M (+ (* 1/4 (/ (* c0 (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2) (pow (sqrt -1) 2))))) (* (pow M 2) (* w (sqrt -1))))) (+ (* 1/2 (/ (* c0 (sqrt -1)) w)) (* 1/2 (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (sqrt -1))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))) (* M w))))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (* M (+ (* -1/8 (/ (* c0 (* (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2) (pow (sqrt -1) 2)))))) (* (pow M 3) (* w (pow (sqrt -1) 3))))) (+ (* 1/4 (/ (* c0 (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2) (pow (sqrt -1) 2))))) (* (pow M 2) (* w (sqrt -1))))) (+ (* 1/2 (/ (* c0 (sqrt -1)) w)) (* 1/2 (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (sqrt -1))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))) (* M w)))))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (* M (+ (* c0 (sqrt -1)) (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (sqrt -1))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))) M)))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (* M (+ (* 1/2 (/ (* c0 (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2) (pow (sqrt -1) 2))))) (* (pow M 2) (sqrt -1)))) (+ (* c0 (sqrt -1)) (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (sqrt -1))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))) M))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (* M (+ (* -1/4 (/ (* c0 (* (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2) (pow (sqrt -1) 2)))))) (* (pow M 3) (pow (sqrt -1) 3)))) (+ (* 1/2 (/ (* c0 (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2) (pow (sqrt -1) 2))))) (* (pow M 2) (sqrt -1)))) (+ (* c0 (sqrt -1)) (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (sqrt -1))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))) M)))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (* M (+ (sqrt -1) (+ (* 1/2 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (* M (sqrt -1)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* M (* h w)))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (* M (+ (sqrt -1) (+ (* 1/2 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (* M (sqrt -1)))) (+ (* 1/2 (/ (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2) (pow (sqrt -1) 2)))) (* (pow M 2) (sqrt -1)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* M (* h w))))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (* M (+ (sqrt -1) (+ (* -1/4 (/ (* (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2) (pow (sqrt -1) 2))))) (* (pow M 3) (pow (sqrt -1) 3)))) (+ (* 1/2 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (* M (sqrt -1)))) (+ (* 1/2 (/ (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2) (pow (sqrt -1) 2)))) (* (pow M 2) (sqrt -1)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* M (* h w)))))))))))
#s(approx (* c0 (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w)))))) #s(hole binary64 (* (pow M 2) (+ (* -1/2 (/ (* (pow D 2) (* h w)) (* c0 (pow d 2)))) (* 2 (/ (* c0 (pow d 2)) (* (pow D 2) (* (pow M 2) (* h w)))))))))
#s(approx (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w))))) #s(hole binary64 (* (pow M 2) (+ (* -1/2 (/ (* (pow D 2) (* h w)) (* (pow c0 2) (pow d 2)))) (* 2 (/ (pow d 2) (* (pow D 2) (* (pow M 2) (* h w)))))))))
#s(approx (/ (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (* w w)) #s(hole binary64 (* (pow M 2) (+ (* -1/4 (/ (* (pow D 2) h) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* (pow M 2) (* h (pow w 2)))))))))
#s(approx (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) #s(hole binary64 (* (pow M 2) (+ (* -1/4 (/ (* (pow D 2) (* h (pow w 2))) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* (pow M 2) h)))))))
#s(approx (* h (+ (* -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h h))))) #s(hole binary64 (* (pow M 2) (+ (* -1/4 (/ (* (pow D 2) (* h (pow w 2))) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* (pow M 2) h)))))))
#s(approx (+ (* -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h h)))) #s(hole binary64 (* (pow M 2) (+ (* -1/4 (/ (* (pow D 2) (pow w 2)) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* (pow M 2) (pow h 2))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* -1/2 (/ (* M (* c0 (sqrt -1))) w))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* -1 (* M (+ (* -1/2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* M (* h (pow w 2)))))) (* 1/2 (/ (* c0 (sqrt -1)) w)))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* -1 (* M (+ (* -1 (/ (+ (* -1/4 (/ (* (pow c0 3) (pow d 4)) (* (pow D 4) (* M (* (pow h 2) (* (pow w 3) (sqrt -1))))))) (* 1/2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h (pow w 2)))))) M)) (* 1/2 (/ (* c0 (sqrt -1)) w)))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* -1 (* M (+ (* -1 (/ (+ (* -1 (/ (+ (* -1/16 (/ (* (pow c0 5) (pow d 8)) (* (pow D 8) (* (pow M 2) (* (pow h 4) (* (pow w 5) (pow (sqrt -1) 3))))))) (* 1/4 (/ (* (pow c0 3) (pow d 4)) (* (pow D 4) (* (pow h 2) (* (pow w 3) (sqrt -1))))))) M)) (* 1/2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h (pow w 2)))))) M)) (* 1/2 (/ (* c0 (sqrt -1)) w)))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (* -1 (* M (sqrt -1)))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (* -1 (* M (+ (sqrt -1) (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* M (* h w))))))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (* -1 (* M (+ (sqrt -1) (* -1 (/ (+ (* -1/2 (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* M (* (pow h 2) (* (pow w 2) (sqrt -1))))))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) M)))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (* -1 (* M (+ (sqrt -1) (* -1 (/ (+ (* -1 (/ (+ (* -1/8 (/ (* (pow c0 4) (pow d 8)) (* (pow D 8) (* (pow M 2) (* (pow h 4) (* (pow w 4) (pow (sqrt -1) 3))))))) (* 1/2 (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow h 2) (* (pow w 2) (sqrt -1))))))) M)) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) M)))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (* -1/2 (/ (* M (* c0 (sqrt -1))) w))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (* -1 (* M (+ (* -1/2 (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (sqrt -1))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))) (* M w))) (* 1/2 (/ (* c0 (sqrt -1)) w)))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (* -1 (* M (+ (* -1 (/ (+ (* -1/4 (/ (* c0 (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2) (pow (sqrt -1) 2))))) (* M (* w (sqrt -1))))) (* 1/2 (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (sqrt -1))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))) w))) M)) (* 1/2 (/ (* c0 (sqrt -1)) w)))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (* -1 (* M (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/8 (/ (* c0 (* (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2) (pow (sqrt -1) 2)))))) (* M (* w (pow (sqrt -1) 3))))) (* 1/4 (/ (* c0 (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2) (pow (sqrt -1) 2))))) (* w (sqrt -1))))) M)) (* 1/2 (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (sqrt -1))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))) w))) M)) (* 1/2 (/ (* c0 (sqrt -1)) w)))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (* -1 (* M (* c0 (sqrt -1))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (* -1 (* M (+ (* -1 (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (sqrt -1))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))) M)) (* c0 (sqrt -1)))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (* -1 (* M (+ (* -1 (/ (+ (* -1/2 (/ (* c0 (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2) (pow (sqrt -1) 2))))) (* M (sqrt -1)))) (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (sqrt -1))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))))) M)) (* c0 (sqrt -1)))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (* -1 (* M (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/4 (/ (* c0 (* (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2) (pow (sqrt -1) 2)))))) (* M (pow (sqrt -1) 3)))) (* 1/2 (/ (* c0 (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2) (pow (sqrt -1) 2))))) (sqrt -1)))) M)) (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (sqrt -1))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))))) M)) (* c0 (sqrt -1)))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (* -1 (* M (sqrt -1)))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (* -1 (* M (+ (sqrt -1) (* -1 (/ (+ (* 1/2 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (sqrt -1))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) M)))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (* -1 (* M (+ (sqrt -1) (* -1 (/ (+ (* -1/2 (/ (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2) (pow (sqrt -1) 2)))) (* M (sqrt -1)))) (+ (* 1/2 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (sqrt -1))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))) M)))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (* -1 (* M (+ (sqrt -1) (* -1 (/ (+ (* -1 (/ (+ (* 1/4 (/ (* (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2) (pow (sqrt -1) 2))))) (* M (pow (sqrt -1) 3)))) (* 1/2 (/ (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2) (pow (sqrt -1) 2)))) (sqrt -1)))) M)) (+ (* 1/2 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (sqrt -1))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))) M)))))))

Calls

18 calls:

Time	Variable		Point	Expression
30.0ms	h	@	-inf	((* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (/ c0 (* 2 w)) c0 (* 2 w) 2 w (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (* (* (/ c0 (* h w)) (* (/ d D) (/ d D))) 2) (* (/ c0 (* h w)) (* (/ d D) (/ d D))) (/ c0 (* h w)) (* h w) h (* (/ d D) (/ d D)) (/ d D) d D (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (* (* c0 c0) (/ (/ (* d d) (* D D)) (* (* w w) h))) (* c0 c0) (/ (/ (* d d) (* D D)) (* (* w w) h)) (/ (* d d) (* D D)) (* (* w w) h) (* w w) (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) (* 2 (/ (* c0 (* d d)) (* (* D D) (* h w)))) (/ (* c0 (* d d)) (* (* D D) (* h w))) (* c0 (* d d)) (* d d) (* (* D D) (* h w)) (* D D) (* w 2) (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (* c0 (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w)))))) (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w))))) (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d))) (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)) (* (* M M) (* h w)) (* M M) M (* 2 (/ (* d d) (* (* D D) (* h w)))) (/ (* d d) (* (* D D) (* h w))) (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (/ (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (* w w)) (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (* h (+ (* -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h h))))) (+ (* -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h h)))) (* -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d)) (* (* D D) (pow (* M w) 2)) (pow (* M w) 2) (* M w) (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h h))) (/ (* c0 c0) (* D D)) (/ (* d d) (* h h)))
17.0ms	M	@	inf	((* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (/ c0 (* 2 w)) c0 (* 2 w) 2 w (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (* (* (/ c0 (* h w)) (* (/ d D) (/ d D))) 2) (* (/ c0 (* h w)) (* (/ d D) (/ d D))) (/ c0 (* h w)) (* h w) h (* (/ d D) (/ d D)) (/ d D) d D (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (* (* c0 c0) (/ (/ (* d d) (* D D)) (* (* w w) h))) (* c0 c0) (/ (/ (* d d) (* D D)) (* (* w w) h)) (/ (* d d) (* D D)) (* (* w w) h) (* w w) (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) (* 2 (/ (* c0 (* d d)) (* (* D D) (* h w)))) (/ (* c0 (* d d)) (* (* D D) (* h w))) (* c0 (* d d)) (* d d) (* (* D D) (* h w)) (* D D) (* w 2) (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (* c0 (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w)))))) (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w))))) (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d))) (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)) (* (* M M) (* h w)) (* M M) M (* 2 (/ (* d d) (* (* D D) (* h w)))) (/ (* d d) (* (* D D) (* h w))) (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (/ (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (* w w)) (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (* h (+ (* -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h h))))) (+ (* -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h h)))) (* -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d)) (* (* D D) (pow (* M w) 2)) (pow (* M w) 2) (* M w) (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h h))) (/ (* c0 c0) (* D D)) (/ (* d d) (* h h)))
16.0ms	d	@	inf	((* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (/ c0 (* 2 w)) c0 (* 2 w) 2 w (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (* (* (/ c0 (* h w)) (* (/ d D) (/ d D))) 2) (* (/ c0 (* h w)) (* (/ d D) (/ d D))) (/ c0 (* h w)) (* h w) h (* (/ d D) (/ d D)) (/ d D) d D (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (* (* c0 c0) (/ (/ (* d d) (* D D)) (* (* w w) h))) (* c0 c0) (/ (/ (* d d) (* D D)) (* (* w w) h)) (/ (* d d) (* D D)) (* (* w w) h) (* w w) (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) (* 2 (/ (* c0 (* d d)) (* (* D D) (* h w)))) (/ (* c0 (* d d)) (* (* D D) (* h w))) (* c0 (* d d)) (* d d) (* (* D D) (* h w)) (* D D) (* w 2) (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (* c0 (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w)))))) (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w))))) (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d))) (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)) (* (* M M) (* h w)) (* M M) M (* 2 (/ (* d d) (* (* D D) (* h w)))) (/ (* d d) (* (* D D) (* h w))) (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (/ (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (* w w)) (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (* h (+ (* -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h h))))) (+ (* -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h h)))) (* -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d)) (* (* D D) (pow (* M w) 2)) (pow (* M w) 2) (* M w) (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h h))) (/ (* c0 c0) (* D D)) (/ (* d d) (* h h)))
15.0ms	w	@	-inf	((* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (/ c0 (* 2 w)) c0 (* 2 w) 2 w (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (* (* (/ c0 (* h w)) (* (/ d D) (/ d D))) 2) (* (/ c0 (* h w)) (* (/ d D) (/ d D))) (/ c0 (* h w)) (* h w) h (* (/ d D) (/ d D)) (/ d D) d D (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (* (* c0 c0) (/ (/ (* d d) (* D D)) (* (* w w) h))) (* c0 c0) (/ (/ (* d d) (* D D)) (* (* w w) h)) (/ (* d d) (* D D)) (* (* w w) h) (* w w) (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) (* 2 (/ (* c0 (* d d)) (* (* D D) (* h w)))) (/ (* c0 (* d d)) (* (* D D) (* h w))) (* c0 (* d d)) (* d d) (* (* D D) (* h w)) (* D D) (* w 2) (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (* c0 (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w)))))) (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w))))) (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d))) (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)) (* (* M M) (* h w)) (* M M) M (* 2 (/ (* d d) (* (* D D) (* h w)))) (/ (* d d) (* (* D D) (* h w))) (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (/ (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (* w w)) (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (* h (+ (* -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h h))))) (+ (* -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h h)))) (* -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d)) (* (* D D) (pow (* M w) 2)) (pow (* M w) 2) (* M w) (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h h))) (/ (* c0 c0) (* D D)) (/ (* d d) (* h h)))
14.0ms	D	@	-inf	((* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (/ c0 (* 2 w)) c0 (* 2 w) 2 w (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (* (* (/ c0 (* h w)) (* (/ d D) (/ d D))) 2) (* (/ c0 (* h w)) (* (/ d D) (/ d D))) (/ c0 (* h w)) (* h w) h (* (/ d D) (/ d D)) (/ d D) d D (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (* (* c0 c0) (/ (/ (* d d) (* D D)) (* (* w w) h))) (* c0 c0) (/ (/ (* d d) (* D D)) (* (* w w) h)) (/ (* d d) (* D D)) (* (* w w) h) (* w w) (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) (* 2 (/ (* c0 (* d d)) (* (* D D) (* h w)))) (/ (* c0 (* d d)) (* (* D D) (* h w))) (* c0 (* d d)) (* d d) (* (* D D) (* h w)) (* D D) (* w 2) (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (* c0 (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w)))))) (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w))))) (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d))) (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)) (* (* M M) (* h w)) (* M M) M (* 2 (/ (* d d) (* (* D D) (* h w)))) (/ (* d d) (* (* D D) (* h w))) (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (/ (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (* w w)) (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (* h (+ (* -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h h))))) (+ (* -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h h)))) (* -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d)) (* (* D D) (pow (* M w) 2)) (pow (* M w) 2) (* M w) (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h h))) (/ (* c0 c0) (* D D)) (/ (* d d) (* h h)))

rewrite308.0ms (1.9%)

Memory

22.1MiB live, 444.7MiB allocated; 39ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	2548	43089
0	2631	39985
0	8257	37784

Stop Event

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

Counts

431 → 537

Calls

Call 1

Inputs
(.f64 (/.f64 c0 (.f64 #s(literal 2 binary64) w)) #s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (.f64 (.f64 (/.f64 c0 (.f64 h w)) (.f64 (/.f64 d D) (/.f64 d D))) #s(literal 2 binary64))))
(/.f64 c0 (*.f64 #s(literal 2 binary64) w))
c0
(*.f64 #s(literal 2 binary64) w)
#s(literal 2 binary64)
w
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (.f64 (.f64 (/.f64 c0 (.f64 h w)) (.f64 (/.f64 d D) (/.f64 d D))) #s(literal 2 binary64)))
(.f64 (.f64 (/.f64 c0 (.f64 h w)) (.f64 (/.f64 d D) (/.f64 d D))) #s(literal 2 binary64))
(.f64 (/.f64 c0 (.f64 h w)) (*.f64 (/.f64 d D) (/.f64 d D)))
(/.f64 c0 (*.f64 h w))
(*.f64 h w)
h
(*.f64 (/.f64 d D) (/.f64 d D))
(/.f64 d D)
d
D
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (.f64 (.f64 c0 c0) (/.f64 (ratio-of-squares.f64 d D) (.f64 (.f64 w w) h))))
(.f64 (.f64 c0 c0) (/.f64 (ratio-of-squares.f64 d D) (.f64 (.f64 w w) h)))
(*.f64 c0 c0)
(/.f64 (ratio-of-squares.f64 d D) (.f64 (.f64 w w) h))
(ratio-of-squares.f64 d D)
(.f64 (.f64 w w) h)
(*.f64 w w)
(/.f64 (.f64 c0 #s(approx (+ ( (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) (.f64 #s(literal 2 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))))) (*.f64 w #s(literal 2 binary64)))
(.f64 c0 #s(approx (+ ( (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) (.f64 #s(literal 2 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) (.f64 #s(literal 2 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))))
(.f64 #s(literal 2 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))
(/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (*.f64 h w)))
(.f64 c0 (.f64 d d))
(*.f64 d d)
(.f64 (.f64 D D) (*.f64 h w))
(*.f64 D D)
(*.f64 w #s(literal 2 binary64))
(.f64 (/.f64 c0 (.f64 #s(literal 2 binary64) w)) #s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (.f64 c0 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (ratio-of-squares.f64 D c0) (/.f64 (.f64 (.f64 M M) (.f64 h w)) (.f64 d d)))) (.f64 #s(literal 2 binary64) (/.f64 (.f64 d d) (.f64 (.f64 D D) (.f64 h w))))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (.f64 c0 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (ratio-of-squares.f64 D c0) (/.f64 (.f64 (.f64 M M) (.f64 h w)) (.f64 d d)))) (.f64 #s(literal 2 binary64) (/.f64 (.f64 d d) (.f64 (.f64 D D) (.f64 h w)))))))
(.f64 c0 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (ratio-of-squares.f64 D c0) (/.f64 (.f64 (.f64 M M) (.f64 h w)) (.f64 d d)))) (.f64 #s(literal 2 binary64) (/.f64 (.f64 d d) (.f64 (.f64 D D) (.f64 h w))))))
(+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (ratio-of-squares.f64 D c0) (/.f64 (.f64 (.f64 M M) (.f64 h w)) (.f64 d d)))) (.f64 #s(literal 2 binary64) (/.f64 (.f64 d d) (.f64 (.f64 D D) (*.f64 h w)))))
(.f64 #s(literal -1/2 binary64) (.f64 (ratio-of-squares.f64 D c0) (/.f64 (.f64 (.f64 M M) (.f64 h w)) (.f64 d d))))
#s(literal -1/2 binary64)
(.f64 (ratio-of-squares.f64 D c0) (/.f64 (.f64 (.f64 M M) (.f64 h w)) (*.f64 d d)))
(ratio-of-squares.f64 D c0)
(/.f64 (.f64 (.f64 M M) (.f64 h w)) (.f64 d d))
(.f64 (.f64 M M) (*.f64 h w))
(*.f64 M M)
M
(.f64 #s(literal 2 binary64) (/.f64 (.f64 d d) (.f64 (.f64 D D) (*.f64 h w))))
(/.f64 (.f64 d d) (.f64 (.f64 D D) (.f64 h w)))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (/.f64 #s(approx (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (.f64 h (+.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 D D) (pow.f64 (.f64 M w) #s(literal 2 binary64))) (.f64 d d))) (.f64 (ratio-of-squares.f64 c0 D) (ratio-of-squares.f64 d h))))) (.f64 w w)))
(/.f64 #s(approx (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (.f64 h (+.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 D D) (pow.f64 (.f64 M w) #s(literal 2 binary64))) (.f64 d d))) (.f64 (ratio-of-squares.f64 c0 D) (ratio-of-squares.f64 d h))))) (.f64 w w))
#s(approx (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (.f64 h (+.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 D D) (pow.f64 (.f64 M w) #s(literal 2 binary64))) (.f64 d d))) (*.f64 (ratio-of-squares.f64 c0 D) (ratio-of-squares.f64 d h)))))
(.f64 h (+.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 D D) (pow.f64 (.f64 M w) #s(literal 2 binary64))) (.f64 d d))) (*.f64 (ratio-of-squares.f64 c0 D) (ratio-of-squares.f64 d h))))
(+.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 D D) (pow.f64 (.f64 M w) #s(literal 2 binary64))) (.f64 d d))) (.f64 (ratio-of-squares.f64 c0 D) (ratio-of-squares.f64 d h)))
(.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 D D) (pow.f64 (.f64 M w) #s(literal 2 binary64))) (*.f64 d d)))
#s(literal -1/4 binary64)
(/.f64 (.f64 (.f64 D D) (pow.f64 (.f64 M w) #s(literal 2 binary64))) (.f64 d d))
(.f64 (.f64 D D) (pow.f64 (*.f64 M w) #s(literal 2 binary64)))
(pow.f64 (*.f64 M w) #s(literal 2 binary64))
(*.f64 M w)
(*.f64 (ratio-of-squares.f64 c0 D) (ratio-of-squares.f64 d h))
(ratio-of-squares.f64 c0 D)
(ratio-of-squares.f64 d h)
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* 1/2 (/ (* M (* c0 (sqrt -1))) w))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* c0 (+ (* 1/2 (/ (* M (sqrt -1)) w)) (* 1/2 (/ (* c0 (pow d 2)) (* (pow D 2) (* h (pow w 2)))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* c0 (+ (* 1/2 (/ (* M (sqrt -1)) w)) (* c0 (+ (* 1/4 (/ (* c0 (pow d 4)) (* (pow D 4) (* M (* (pow h 2) (* (pow w 3) (sqrt -1))))))) (* 1/2 (/ (pow d 2) (* (pow D 2) (* h (pow w 2)))))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* c0 (+ (* 1/2 (/ (* M (sqrt -1)) w)) (* c0 (+ (* 1/2 (/ (pow d 2) (* (pow D 2) (* h (pow w 2))))) (* c0 (+ (* -1/16 (/ (* (pow c0 2) (pow d 8)) (* (pow D 8) (* (pow M 3) (* (pow h 4) (* (pow w 5) (pow (sqrt -1) 3))))))) (* 1/4 (/ (pow d 4) (* (pow D 4) (* M (* (pow h 2) (* (pow w 3) (sqrt -1)))))))))))))))
#s(approx (/ c0 (* 2 w)) #s(hole binary64 (* 1/2 (/ c0 w))))
#s(approx c0 #s(hole binary64 c0))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (* M (sqrt -1))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (+ (* M (sqrt -1)) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (+ (* M (sqrt -1)) (* c0 (+ (* 1/2 (/ (* c0 (pow d 4)) (* (pow D 4) (* M (* (pow h 2) (* (pow w 2) (sqrt -1))))))) (/ (pow d 2) (* (pow D 2) (* h w))))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (+ (* M (sqrt -1)) (* c0 (+ (* c0 (+ (* -1/8 (/ (* (pow c0 2) (pow d 8)) (* (pow D 8) (* (pow M 3) (* (pow h 4) (* (pow w 4) (pow (sqrt -1) 3))))))) (* 1/2 (/ (pow d 4) (* (pow D 4) (* M (* (pow h 2) (* (pow w 2) (sqrt -1))))))))) (/ (pow d 2) (* (pow D 2) (* h w))))))))
#s(approx (* (* (/ c0 (* h w)) (* (/ d D) (/ d D))) 2) #s(hole binary64 (* 2 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))))
#s(approx (* (/ c0 (* h w)) (* (/ d D) (/ d D))) #s(hole binary64 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))))
#s(approx (/ c0 (* h w)) #s(hole binary64 (/ c0 (* h w))))
#s(approx (* (* c0 c0) (/ (/ (* d d) (* D D)) (* (* w w) h))) #s(hole binary64 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h (pow w 2))))))
#s(approx (* c0 c0) #s(hole binary64 (pow c0 2)))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (* 1/2 (/ (* M (* c0 (sqrt -1))) w))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (* c0 (+ (* 1/2 (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (* M (* w (sqrt -1))))) (/ (pow d 2) (* (pow D 2) (* h (pow w 2))))))) (* 1/2 (/ (* M (sqrt -1)) w))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (* c0 (+ (* 1/2 (/ (* M (sqrt -1)) w)) (* c0 (+ (* 1/4 (/ (* c0 (- (/ (pow d 4) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* M (* w (sqrt -1))))) (* 1/2 (+ (* 1/2 (/ (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (* M (* w (sqrt -1))))) (/ (pow d 2) (* (pow D 2) (* h (pow w 2))))))))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (* c0 (+ (* 1/2 (/ (* M (sqrt -1)) w)) (* c0 (+ (* 1/2 (+ (* 1/2 (/ (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (* M (* w (sqrt -1))))) (/ (pow d 2) (* (pow D 2) (* h (pow w 2)))))) (* c0 (+ (* -1/8 (/ (* c0 (* (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (- (/ (pow d 4) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2) (* (pow M 2) (pow (sqrt -1) 2))))))) (* (pow M 3) (* w (pow (sqrt -1) 3))))) (* 1/4 (/ (- (/ (pow d 4) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2) (* (pow M 2) (pow (sqrt -1) 2))))) (* M (* w (sqrt -1)))))))))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (* M (* c0 (sqrt -1)))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (* c0 (+ (* M (sqrt -1)) (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (* M (sqrt -1)))) (/ (pow d 2) (* (pow D 2) (* h w)))))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (* c0 (+ (* M (sqrt -1)) (* c0 (+ (* 1/2 (/ (* c0 (- (/ (pow d 4) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* M (sqrt -1)))) (+ (* 1/2 (/ (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (* M (sqrt -1)))) (/ (pow d 2) (* (pow D 2) (* h w))))))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (* c0 (+ (* M (sqrt -1)) (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (* M (sqrt -1)))) (+ (* c0 (+ (* -1/4 (/ (* c0 (* (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (- (/ (pow d 4) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2) (* (pow M 2) (pow (sqrt -1) 2))))))) (* (pow M 3) (pow (sqrt -1) 3)))) (* 1/2 (/ (- (/ (pow d 4) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2) (* (pow M 2) (pow (sqrt -1) 2))))) (* M (sqrt -1)))))) (/ (pow d 2) (* (pow D 2) (* h w))))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (* M (sqrt -1))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (+ (* M (sqrt -1)) (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (* M (sqrt -1)))) (/ (pow d 2) (* (pow D 2) (* h w))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (+ (* M (sqrt -1)) (* c0 (+ (* 1/2 (/ (* c0 (- (/ (pow d 4) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* M (sqrt -1)))) (+ (* 1/2 (/ (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (* M (sqrt -1)))) (/ (pow d 2) (* (pow D 2) (* h w)))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (+ (* M (sqrt -1)) (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (* M (sqrt -1)))) (+ (* c0 (+ (* -1/4 (/ (* c0 (* (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (- (/ (pow d 4) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2) (* (pow M 2) (pow (sqrt -1) 2))))))) (* (pow M 3) (pow (sqrt -1) 3)))) (* 1/2 (/ (- (/ (pow d 4) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2) (* (pow M 2) (pow (sqrt -1) 2))))) (* M (sqrt -1)))))) (/ (pow d 2) (* (pow D 2) (* h w)))))))))
#s(approx (* 2 (/ (* c0 (* d d)) (* (* D D) (* h w)))) #s(hole binary64 (* 2 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))))
#s(approx (/ (* c0 (* d d)) (* (* D D) (* h w))) #s(hole binary64 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))))
#s(approx (* c0 (* d d)) #s(hole binary64 (* c0 (pow d 2))))
#s(approx (* c0 (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w)))))) #s(hole binary64 (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h w))) (* c0 (pow d 2))))))
#s(approx (* c0 (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w)))))) #s(hole binary64 (/ (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h w))) (pow d 2))) (* 2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h w))))) c0)))
#s(approx (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w))))) #s(hole binary64 (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h w))) (* (pow c0 2) (pow d 2))))))
#s(approx (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w))))) #s(hole binary64 (/ (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h w))) (pow d 2))) (* 2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h w))))) (pow c0 2))))
#s(approx (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) #s(hole binary64 (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h w))) (* (pow c0 2) (pow d 2))))))
#s(approx (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d))) #s(hole binary64 (/ (* (pow D 2) (* (pow M 2) (* h w))) (* (pow c0 2) (pow d 2)))))
#s(approx (/ (* D D) (* c0 c0)) #s(hole binary64 (/ (pow D 2) (pow c0 2))))
#s(approx (/ (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (* w w)) #s(hole binary64 (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))))
#s(approx (/ (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (* w w)) #s(hole binary64 (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h (pow w 2)))))))
#s(approx (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) #s(hole binary64 (* -1/4 (/ (* (pow D 2) (* (pow M 2) (* h (pow w 2)))) (pow d 2)))))
#s(approx (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) #s(hole binary64 (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (* h (pow w 2)))) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) h)))))
#s(approx (* h (+ (* -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h h))))) #s(hole binary64 (* -1/4 (/ (* (pow D 2) (* (pow M 2) (* h (pow w 2)))) (pow d 2)))))
#s(approx (* h (+ (* -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h h))))) #s(hole binary64 (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (* h (pow w 2)))) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) h)))))
#s(approx (+ (* -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h h)))) #s(hole binary64 (* -1/4 (/ (* (pow D 2) (* (pow M 2) (pow w 2))) (pow d 2)))))
#s(approx (+ (* -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h h)))) #s(hole binary64 (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (pow w 2))) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (pow h 2))))))
#s(approx (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h h))) #s(hole binary64 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (pow h 2)))))
#s(approx (/ (* c0 c0) (* D D)) #s(hole binary64 (/ (pow c0 2) (pow D 2))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h (pow w 2))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* (pow c0 2) (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow c0 2) (pow d 2)))) (/ (pow d 2) (* (pow D 2) (* h (pow w 2))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* (pow c0 2) (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow c0 2) (pow d 2)))) (+ (* -1/16 (/ (* (pow D 6) (* (pow M 4) (* (pow h 3) (pow w 2)))) (* (pow c0 4) (pow d 6)))) (/ (pow d 2) (* (pow D 2) (* h (pow w 2)))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* (pow c0 2) (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow c0 2) (pow d 2)))) (+ (* -1/16 (/ (* (pow D 6) (* (pow M 4) (* (pow h 3) (pow w 2)))) (* (pow c0 4) (pow d 6)))) (+ (* -1/32 (/ (* (pow D 10) (* (pow M 6) (* (pow h 5) (pow w 4)))) (* (pow c0 6) (pow d 10)))) (/ (pow d 2) (* (pow D 2) (* h (pow w 2))))))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (* 2 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (* c0 (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h w))) (* (pow c0 2) (pow d 2)))) (* 2 (/ (pow d 2) (* (pow D 2) (* h w))))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (* c0 (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h w))) (* (pow c0 2) (pow d 2)))) (+ (* -1/8 (/ (* (pow D 6) (* (pow M 4) (* (pow h 3) (pow w 3)))) (* (pow c0 4) (pow d 6)))) (* 2 (/ (pow d 2) (* (pow D 2) (* h w)))))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (* c0 (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h w))) (* (pow c0 2) (pow d 2)))) (+ (* -1/8 (/ (* (pow D 6) (* (pow M 4) (* (pow h 3) (pow w 3)))) (* (pow c0 4) (pow d 6)))) (+ (* -1/16 (/ (* (pow D 10) (* (pow M 6) (* (pow h 5) (pow w 5)))) (* (pow c0 6) (pow d 10)))) (* 2 (/ (pow d 2) (* (pow D 2) (* h w))))))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h (pow w 2))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (* (pow c0 2) (+ (* 1/4 (/ (* (pow D 2) (* h (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))))) (* c0 (pow d 2)))) (/ (pow d 2) (* (pow D 2) (* h (pow w 2))))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (* (pow c0 2) (+ (* 1/4 (/ (* (pow D 2) (* h (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))))) (* c0 (pow d 2)))) (+ (* 1/4 (/ (* (pow D 2) (* h (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (pow d 4)))))) (* (pow c0 2) (pow d 2)))) (/ (pow d 2) (* (pow D 2) (* h (pow w 2)))))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (* (pow c0 2) (+ (* -1/8 (/ (* (pow D 6) (* (pow h 3) (* (pow w 2) (* (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (pow d 4)))))))) (* (pow c0 3) (pow d 6)))) (+ (* 1/4 (/ (* (pow D 2) (* h (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))))) (* c0 (pow d 2)))) (+ (* 1/4 (/ (* (pow D 2) (* h (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (pow d 4)))))) (* (pow c0 2) (pow d 2)))) (/ (pow d 2) (* (pow D 2) (* h (pow w 2))))))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (* 2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h w))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (* (pow c0 2) (+ (* 1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w))))))) (* c0 (pow d 2)))) (* 2 (/ (pow d 2) (* (pow D 2) (* h w))))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (* (pow c0 2) (+ (* 1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w))))))) (* c0 (pow d 2)))) (+ (* 1/2 (/ (* (pow D 2) (* h (* w (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (pow d 4))))))) (* (pow c0 2) (pow d 2)))) (* 2 (/ (pow d 2) (* (pow D 2) (* h w)))))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (* (pow c0 2) (+ (* -1/4 (/ (* (pow D 6) (* (pow h 3) (* (pow w 3) (* (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (pow d 4)))))))) (* (pow c0 3) (pow d 6)))) (+ (* 1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w))))))) (* c0 (pow d 2)))) (+ (* 1/2 (/ (* (pow D 2) (* h (* w (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (pow d 4))))))) (* (pow c0 2) (pow d 2)))) (* 2 (/ (pow d 2) (* (pow D 2) (* h w))))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (* 2 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (* c0 (+ (* 1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w))))))) (* c0 (pow d 2)))) (* 2 (/ (pow d 2) (* (pow D 2) (* h w))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (* c0 (+ (* 1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w))))))) (* c0 (pow d 2)))) (+ (* 1/2 (/ (* (pow D 2) (* h (* w (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (pow d 4))))))) (* (pow c0 2) (pow d 2)))) (* 2 (/ (pow d 2) (* (pow D 2) (* h w)))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (* c0 (+ (* -1/4 (/ (* (pow D 6) (* (pow h 3) (* (pow w 3) (* (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (pow d 4)))))))) (* (pow c0 3) (pow d 6)))) (+ (* 1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w))))))) (* c0 (pow d 2)))) (+ (* 1/2 (/ (* (pow D 2) (* h (* w (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (pow d 4))))))) (* (pow c0 2) (pow d 2)))) (* 2 (/ (pow d 2) (* (pow D 2) (* h w))))))))))
#s(approx (* c0 (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w)))))) #s(hole binary64 (* 2 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))))
#s(approx (* c0 (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w)))))) #s(hole binary64 (* c0 (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h w))) (* (pow c0 2) (pow d 2)))) (* 2 (/ (pow d 2) (* (pow D 2) (* h w))))))))
#s(approx (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w))))) #s(hole binary64 (* 2 (/ (pow d 2) (* (pow D 2) (* h w))))))
#s(approx (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w))))) #s(hole binary64 (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h w))) (* (pow c0 2) (pow d 2)))) (* 2 (/ (pow d 2) (* (pow D 2) (* h w)))))))
#s(approx (/ (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (* w w)) #s(hole binary64 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h (pow w 2))))))
#s(approx (/ (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (* w w)) #s(hole binary64 (* (pow c0 2) (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow c0 2) (pow d 2)))) (/ (pow d 2) (* (pow D 2) (* h (pow w 2))))))))
#s(approx (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) #s(hole binary64 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) h))))
#s(approx (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) #s(hole binary64 (* (pow c0 2) (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (* h (pow w 2)))) (* (pow c0 2) (pow d 2)))) (/ (pow d 2) (* (pow D 2) h))))))
#s(approx (* h (+ (* -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h h))))) #s(hole binary64 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) h))))
#s(approx (* h (+ (* -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h h))))) #s(hole binary64 (* (pow c0 2) (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (* h (pow w 2)))) (* (pow c0 2) (pow d 2)))) (/ (pow d 2) (* (pow D 2) h))))))
#s(approx (+ (* -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h h)))) #s(hole binary64 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (pow h 2)))))
#s(approx (+ (* -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h h)))) #s(hole binary64 (* (pow c0 2) (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (pow w 2))) (* (pow c0 2) (pow d 2)))) (/ (pow d 2) (* (pow D 2) (pow h 2)))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* -1/2 (/ (* (pow c0 2) (+ (* -1 (/ (pow d 2) (* (pow D 2) (* h w)))) (/ (pow d 2) (* (pow D 2) (* h w))))) w))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* (pow c0 2) (+ (* -1/2 (/ (+ (* -1 (/ (pow d 2) (* (pow D 2) (* h w)))) (/ (pow d 2) (* (pow D 2) (* h w)))) w)) (* 1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow c0 2) (pow d 2))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* (pow c0 2) (+ (* -1/2 (/ (+ (* -1 (/ (pow d 2) (* (pow D 2) (* h w)))) (/ (pow d 2) (* (pow D 2) (* h w)))) w)) (+ (* 1/16 (/ (* (pow D 6) (* (pow M 4) (* (pow h 3) (pow w 2)))) (* (pow c0 4) (pow d 6)))) (* 1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow c0 2) (pow d 2)))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* (pow c0 2) (+ (* -1/2 (/ (+ (* -1 (/ (pow d 2) (* (pow D 2) (* h w)))) (/ (pow d 2) (* (pow D 2) (* h w)))) w)) (+ (* 1/32 (/ (* (pow D 10) (* (pow M 6) (* (pow h 5) (pow w 4)))) (* (pow c0 6) (pow d 10)))) (+ (* 1/16 (/ (* (pow D 6) (* (pow M 4) (* (pow h 3) (pow w 2)))) (* (pow c0 4) (pow d 6)))) (* 1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow c0 2) (pow d 2))))))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (* -1 (* c0 (+ (* -1 (/ (pow d 2) (* (pow D 2) (* h w)))) (/ (pow d 2) (* (pow D 2) (* h w))))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (* -1 (* c0 (+ (* -1 (/ (pow d 2) (* (pow D 2) (* h w)))) (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h w))) (* (pow c0 2) (pow d 2)))) (/ (pow d 2) (* (pow D 2) (* h w)))))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (* -1 (* c0 (+ (* -1 (/ (pow d 2) (* (pow D 2) (* h w)))) (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h w))) (* (pow c0 2) (pow d 2)))) (+ (* -1/8 (/ (* (pow D 6) (* (pow M 4) (* (pow h 3) (pow w 3)))) (* (pow c0 4) (pow d 6)))) (/ (pow d 2) (* (pow D 2) (* h w))))))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (* -1 (* c0 (+ (* -1 (/ (pow d 2) (* (pow D 2) (* h w)))) (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h w))) (* (pow c0 2) (pow d 2)))) (+ (* -1/8 (/ (* (pow D 6) (* (pow M 4) (* (pow h 3) (pow w 3)))) (* (pow c0 4) (pow d 6)))) (+ (* -1/16 (/ (* (pow D 10) (* (pow M 6) (* (pow h 5) (pow w 5)))) (* (pow c0 6) (pow d 10)))) (/ (pow d 2) (* (pow D 2) (* h w)))))))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (* -1/2 (/ (* (pow c0 2) (+ (* -1 (/ (pow d 2) (* (pow D 2) (* h w)))) (/ (pow d 2) (* (pow D 2) (* h w))))) w))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (* (pow c0 2) (+ (* -1/2 (/ (+ (* -1 (/ (pow d 2) (* (pow D 2) (* h w)))) (/ (pow d 2) (* (pow D 2) (* h w)))) w)) (* 1/4 (/ (* (pow D 2) (* h (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))))) (* c0 (pow d 2))))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (* (pow c0 2) (+ (* -1 (/ (+ (* -1/4 (/ (* (pow D 2) (* h (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))))) (pow d 2))) (* 1/4 (/ (* (pow D 2) (* h (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (pow d 4)))))) (* c0 (pow d 2))))) c0)) (* -1/2 (/ (+ (* -1 (/ (pow d 2) (* (pow D 2) (* h w)))) (/ (pow d 2) (* (pow D 2) (* h w)))) w))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (* (pow c0 2) (+ (* -1 (/ (+ (* -1 (/ (+ (* -1/4 (/ (* (pow D 2) (* h (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (pow d 4)))))) (pow d 2))) (* -1/8 (/ (* (pow D 6) (* (pow h 3) (* (pow w 2) (* (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (pow d 4)))))))) (* c0 (pow d 6))))) c0)) (* -1/4 (/ (* (pow D 2) (* h (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))))) (pow d 2)))) c0)) (* -1/2 (/ (+ (* -1 (/ (pow d 2) (* (pow D 2) (* h w)))) (/ (pow d 2) (* (pow D 2) (* h w)))) w))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (* -1 (* (pow c0 2) (+ (* -1 (/ (pow d 2) (* (pow D 2) (* h w)))) (/ (pow d 2) (* (pow D 2) (* h w))))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (* (pow c0 2) (+ (* -1 (+ (* -1 (/ (pow d 2) (* (pow D 2) (* h w)))) (/ (pow d 2) (* (pow D 2) (* h w))))) (* 1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w))))))) (* c0 (pow d 2))))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (* (pow c0 2) (+ (* -1 (+ (* -1 (/ (pow d 2) (* (pow D 2) (* h w)))) (/ (pow d 2) (* (pow D 2) (* h w))))) (* -1 (/ (+ (* -1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w))))))) (pow d 2))) (* 1/2 (/ (* (pow D 2) (* h (* w (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (pow d 4))))))) (* c0 (pow d 2))))) c0))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (* (pow c0 2) (+ (* -1 (+ (* -1 (/ (pow d 2) (* (pow D 2) (* h w)))) (/ (pow d 2) (* (pow D 2) (* h w))))) (* -1 (/ (+ (* -1 (/ (+ (* -1/2 (/ (* (pow D 2) (* h (* w (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (pow d 4))))))) (pow d 2))) (* -1/4 (/ (* (pow D 6) (* (pow h 3) (* (pow w 3) (* (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (pow d 4)))))))) (* c0 (pow d 6))))) c0)) (* -1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w))))))) (pow d 2)))) c0))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (* -1 (* c0 (+ (* -1 (/ (pow d 2) (* (pow D 2) (* h w)))) (/ (pow d 2) (* (pow D 2) (* h w))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (* -1 (* c0 (+ (* -1 (/ (pow d 2) (* (pow D 2) (* h w)))) (+ (* -1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w))))))) (* c0 (pow d 2)))) (/ (pow d 2) (* (pow D 2) (* h w)))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (* -1 (* c0 (+ (* -1 (/ (+ (* -1/2 (/ (* (pow D 2) (* h (* w (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (pow d 4))))))) (* c0 (pow d 2)))) (* 1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w))))))) (pow d 2)))) c0)) (+ (* -1 (/ (pow d 2) (* (pow D 2) (* h w)))) (/ (pow d 2) (* (pow D 2) (* h w)))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (* -1 (* c0 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/4 (/ (* (pow D 6) (* (pow h 3) (* (pow w 3) (* (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (pow d 4)))))))) (* c0 (pow d 6)))) (* 1/2 (/ (* (pow D 2) (* h (* w (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (pow d 4))))))) (pow d 2)))) c0)) (* 1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w))))))) (pow d 2)))) c0)) (+ (* -1 (/ (pow d 2) (* (pow D 2) (* h w)))) (/ (pow d 2) (* (pow D 2) (* h w)))))))))
#s(approx (* c0 (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w)))))) #s(hole binary64 (* -1 (* c0 (+ (* -2 (/ (pow d 2) (* (pow D 2) (* h w)))) (* 1/2 (/ (* (pow D 2) (* (pow M 2) (* h w))) (* (pow c0 2) (pow d 2)))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (/ (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (* h (pow w 2)))) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) h))) (pow w 2))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (/ (+ (* (pow w 2) (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2))) (* -1/16 (/ (* (pow D 6) (* (pow M 4) (* (pow h 3) (pow w 2)))) (* (pow c0 2) (pow d 6)))))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) h))) (pow w 2))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (/ (+ (* (pow w 2) (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2))) (* (pow w 2) (+ (* -1/16 (/ (* (pow D 6) (* (pow M 4) (pow h 3))) (* (pow c0 2) (pow d 6)))) (* -1/32 (/ (* (pow D 10) (* (pow M 6) (* (pow h 5) (pow w 2)))) (* (pow c0 4) (pow d 10)))))))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) h))) (pow w 2))))
#s(approx (* 2 w) #s(hole binary64 (* 2 w)))
#s(approx w #s(hole binary64 w))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (/ (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h (pow w 2)))) (* c0 (pow d 2)))) (* 2 (/ (* c0 (pow d 2)) (* (pow D 2) h)))) w)))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (/ (+ (* 2 (/ (* c0 (pow d 2)) (* (pow D 2) h))) (* (pow w 2) (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) h)) (* c0 (pow d 2)))) (* -1/8 (/ (* (pow D 6) (* (pow M 4) (* (pow h 3) (pow w 2)))) (* (pow c0 3) (pow d 6))))))) w)))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (/ (+ (* 2 (/ (* c0 (pow d 2)) (* (pow D 2) h))) (* (pow w 2) (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) h)) (* c0 (pow d 2)))) (* (pow w 2) (+ (* -1/8 (/ (* (pow D 6) (* (pow M 4) (pow h 3))) (* (pow c0 3) (pow d 6)))) (* -1/16 (/ (* (pow D 10) (* (pow M 6) (* (pow h 5) (pow w 2)))) (* (pow c0 5) (pow d 10))))))))) w)))
#s(approx (* h w) #s(hole binary64 (* h w)))
#s(approx (/ (/ (* d d) (* D D)) (* (* w w) h)) #s(hole binary64 (/ (pow d 2) (* (pow D 2) (* h (pow w 2))))))
#s(approx (* (* w w) h) #s(hole binary64 (* h (pow w 2))))
#s(approx (* w w) #s(hole binary64 (pow w 2)))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (/ (+ (* 1/4 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h)))))) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) h))) (pow w 2))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (/ (+ (* w (+ (* 1/4 (/ (* (pow D 2) (* h (* w (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2))) (* (pow c0 2) (pow d 4)))))))) (pow d 2))) (* 1/4 (/ (* (pow D 2) (* h (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))))) (pow d 2))))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) h))) (pow w 2))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (/ (+ (* w (+ (* 1/4 (/ (* (pow D 2) (* h (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))))) (pow d 2))) (* w (+ (* -1/8 (/ (* (pow D 6) (* (pow h 3) (* w (* (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2))) (* (pow c0 2) (pow d 4))))))))) (* (pow c0 2) (pow d 6)))) (* 1/4 (/ (* (pow D 2) (* h (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2))) (* (pow c0 2) (pow d 4))))))) (pow d 2))))))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) h))) (pow w 2))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (/ (+ (* 1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h)))))) (pow d 2))) (* 2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) h)))) w)))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (/ (+ (* 2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) h))) (* w (+ (* 1/2 (/ (* (pow D 2) (* h (* w (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2))) (* (pow c0 2) (pow d 4)))))))) (pow d 2))) (* 1/2 (/ (* (pow D 2) (* h (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))))) (pow d 2)))))) w)))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (/ (+ (* 2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) h))) (* w (+ (* 1/2 (/ (* (pow D 2) (* h (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))))) (pow d 2))) (* w (+ (* -1/4 (/ (* (pow D 6) (* (pow h 3) (* w (* (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2))) (* (pow c0 2) (pow d 4))))))))) (* (pow c0 2) (pow d 6)))) (* 1/2 (/ (* (pow D 2) (* h (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2))) (* (pow c0 2) (pow d 4))))))) (pow d 2)))))))) w)))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (/ (+ (* 1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h)))))) (* c0 (pow d 2)))) (* 2 (/ (* c0 (pow d 2)) (* (pow D 2) h)))) w)))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (/ (+ (* 2 (/ (* c0 (pow d 2)) (* (pow D 2) h))) (* w (+ (* 1/2 (/ (* (pow D 2) (* h (* w (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2))) (* (pow c0 2) (pow d 4)))))))) (* c0 (pow d 2)))) (* 1/2 (/ (* (pow D 2) (* h (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))))) (* c0 (pow d 2))))))) w)))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (/ (+ (* 2 (/ (* c0 (pow d 2)) (* (pow D 2) h))) (* w (+ (* 1/2 (/ (* (pow D 2) (* h (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))))) (* c0 (pow d 2)))) (* w (+ (* -1/4 (/ (* (pow D 6) (* (pow h 3) (* w (* (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2))) (* (pow c0 2) (pow d 4))))))))) (* (pow c0 3) (pow d 6)))) (* 1/2 (/ (* (pow D 2) (* h (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2))) (* (pow c0 2) (pow d 4))))))) (* c0 (pow d 2))))))))) w)))
#s(approx (* (* D D) (* h w)) #s(hole binary64 (* (pow D 2) (* h w))))
#s(approx (* w 2) #s(hole binary64 (* 2 w)))
#s(approx (* c0 (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w)))))) #s(hole binary64 (/ (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h (pow w 2)))) (* c0 (pow d 2)))) (* 2 (/ (* c0 (pow d 2)) (* (pow D 2) h)))) w)))
#s(approx (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w))))) #s(hole binary64 (/ (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h (pow w 2)))) (* (pow c0 2) (pow d 2)))) (* 2 (/ (pow d 2) (* (pow D 2) h)))) w)))
#s(approx (/ (* (* M M) (* h w)) (* d d)) #s(hole binary64 (/ (* (pow M 2) (* h w)) (pow d 2))))
#s(approx (* (* M M) (* h w)) #s(hole binary64 (* (pow M 2) (* h w))))
#s(approx (* 2 (/ (* d d) (* (* D D) (* h w)))) #s(hole binary64 (* 2 (/ (pow d 2) (* (pow D 2) (* h w))))))
#s(approx (/ (* d d) (* (* D D) (* h w))) #s(hole binary64 (/ (pow d 2) (* (pow D 2) (* h w)))))
#s(approx (/ (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (* w w)) #s(hole binary64 (/ (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (* h (pow w 2)))) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) h))) (pow w 2))))
#s(approx (* -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) #s(hole binary64 (* -1/4 (/ (* (pow D 2) (* (pow M 2) (pow w 2))) (pow d 2)))))
#s(approx (/ (* (* D D) (pow (* M w) 2)) (* d d)) #s(hole binary64 (/ (* (pow D 2) (* (pow M 2) (pow w 2))) (pow d 2))))
#s(approx (* (* D D) (pow (* M w) 2)) #s(hole binary64 (* (pow D 2) (* (pow M 2) (pow w 2)))))
#s(approx (pow (* M w) 2) #s(hole binary64 (* (pow M 2) (pow w 2))))
#s(approx (* M w) #s(hole binary64 (* M w)))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (/ (+ (* 1/2 (* M (* c0 (sqrt -1)))) (* 1/2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h w))))) w)))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (/ (+ (* 1/4 (/ (* (pow c0 3) (pow d 4)) (* (pow D 4) (* M (* (pow h 2) (* (pow w 2) (sqrt -1))))))) (+ (* 1/2 (* M (* c0 (sqrt -1)))) (* 1/2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h w)))))) w)))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (/ (+ (* -1/16 (/ (* (pow c0 5) (pow d 8)) (* (pow D 8) (* (pow M 3) (* (pow h 4) (* (pow w 4) (pow (sqrt -1) 3))))))) (+ (* 1/4 (/ (* (pow c0 3) (pow d 4)) (* (pow D 4) (* M (* (pow h 2) (* (pow w 2) (sqrt -1))))))) (+ (* 1/2 (* M (* c0 (sqrt -1)))) (* 1/2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h w))))))) w)))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (+ (* 1/2 (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* M (* (pow h 2) (* (pow w 2) (sqrt -1))))))) (+ (* M (sqrt -1)) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (+ (* -1/8 (/ (* (pow c0 4) (pow d 8)) (* (pow D 8) (* (pow M 3) (* (pow h 4) (* (pow w 4) (pow (sqrt -1) 3))))))) (+ (* 1/2 (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* M (* (pow h 2) (* (pow w 2) (sqrt -1))))))) (+ (* M (sqrt -1)) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (/ (+ (* 1/2 (* M (* c0 (sqrt -1)))) (* 1/2 (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (* M (sqrt -1)))) (/ (* c0 (pow d 2)) (* (pow D 2) h)))) w))) w)))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (/ (+ (* 1/4 (/ (* c0 (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow h 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* M (* (pow w 2) (sqrt -1))))) (+ (* 1/2 (* M (* c0 (sqrt -1)))) (* 1/2 (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (* M (sqrt -1)))) (/ (* c0 (pow d 2)) (* (pow D 2) h)))) w)))) w)))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (/ (+ (* -1/8 (/ (* c0 (* (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow h 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2) (* (pow M 2) (pow (sqrt -1) 2))))))) (* (pow M 3) (* (pow w 3) (pow (sqrt -1) 3))))) (+ (* 1/4 (/ (* c0 (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow h 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* M (* (pow w 2) (sqrt -1))))) (+ (* 1/2 (* M (* c0 (sqrt -1)))) (* 1/2 (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (* M (sqrt -1)))) (/ (* c0 (pow d 2)) (* (pow D 2) h)))) w))))) w)))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (+ (* M (* c0 (sqrt -1))) (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (* M (sqrt -1)))) (/ (* c0 (pow d 2)) (* (pow D 2) h)))) w))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (+ (* 1/2 (/ (* c0 (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow h 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* M (* (pow w 2) (sqrt -1))))) (+ (* M (* c0 (sqrt -1))) (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (* M (sqrt -1)))) (/ (* c0 (pow d 2)) (* (pow D 2) h)))) w)))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (+ (* -1/4 (/ (* c0 (* (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow h 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2) (* (pow M 2) (pow (sqrt -1) 2))))))) (* (pow M 3) (* (pow w 3) (pow (sqrt -1) 3))))) (+ (* 1/2 (/ (* c0 (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow h 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* M (* (pow w 2) (sqrt -1))))) (+ (* M (* c0 (sqrt -1))) (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (* M (sqrt -1)))) (/ (* c0 (pow d 2)) (* (pow D 2) h)))) w))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (* M (* w (sqrt -1))))) (+ (* M (sqrt -1)) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (* M (* w (sqrt -1))))) (+ (* 1/2 (/ (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow h 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2) (* (pow M 2) (pow (sqrt -1) 2))))) (* M (* (pow w 2) (sqrt -1))))) (+ (* M (sqrt -1)) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (+ (* -1/4 (/ (* (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow h 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* (pow M 3) (* (pow w 3) (pow (sqrt -1) 3))))) (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (* M (* w (sqrt -1))))) (+ (* 1/2 (/ (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow h 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2) (* (pow M 2) (pow (sqrt -1) 2))))) (* M (* (pow w 2) (sqrt -1))))) (+ (* M (sqrt -1)) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))))))))
#s(approx (* c0 (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w)))))) #s(hole binary64 (* w (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) h)) (* c0 (pow d 2)))) (* 2 (/ (* c0 (pow d 2)) (* (pow D 2) (* h (pow w 2)))))))))
#s(approx (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w))))) #s(hole binary64 (* w (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow c0 2) (pow d 2)))) (* 2 (/ (pow d 2) (* (pow D 2) (* h (pow w 2)))))))))
#s(approx (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) #s(hole binary64 (* (pow w 2) (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h (pow w 2))))))))
#s(approx (* h (+ (* -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h h))))) #s(hole binary64 (* (pow w 2) (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h (pow w 2))))))))
#s(approx (+ (* -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h h)))) #s(hole binary64 (* (pow w 2) (+ (* -1/4 (/ (* (pow D 2) (pow M 2)) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* (pow h 2) (pow w 2))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* -1 (/ (+ (* -1/2 (* M (* c0 (sqrt -1)))) (* -1/2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h w))))) w))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (+ (* 1/4 (/ (* (pow c0 3) (pow d 4)) (* (pow D 4) (* M (* (pow h 2) (* w (sqrt -1))))))) (* 1/2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) h)))) w)) (* -1/2 (* M (* c0 (sqrt -1))))) w))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (+ (* -1 (/ (+ (* -1/4 (/ (* (pow c0 3) (pow d 4)) (* (pow D 4) (* M (* (pow h 2) (sqrt -1)))))) (* 1/16 (/ (* (pow c0 5) (pow d 8)) (* (pow D 8) (* (pow M 3) (* (pow h 4) (* (pow w 2) (pow (sqrt -1) 3)))))))) w)) (* 1/2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) h)))) w)) (* -1/2 (* M (* c0 (sqrt -1))))) w))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) h))) (* -1/2 (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* M (* (pow h 2) (* w (sqrt -1)))))))) w)) (* M (sqrt -1)))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) h))) (* -1 (/ (+ (* -1/8 (/ (* (pow c0 4) (pow d 8)) (* (pow D 8) (* (pow M 3) (* (pow h 4) (* (pow w 2) (pow (sqrt -1) 3))))))) (* 1/2 (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* M (* (pow h 2) (sqrt -1))))))) w))) w)) (* M (sqrt -1)))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (* -1 (/ (+ (* -1/2 (* M (* c0 (sqrt -1)))) (* 1/2 (/ (* c0 (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) h))) (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (* M (sqrt -1)))))) w))) w))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (+ (* -1/2 (* c0 (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) h))) (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (* M (sqrt -1))))))) (* 1/4 (/ (* c0 (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow h 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* M (* w (sqrt -1)))))) w)) (* -1/2 (* M (* c0 (sqrt -1))))) w))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (+ (* -1 (/ (+ (* -1/4 (/ (* c0 (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow h 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* M (sqrt -1)))) (* -1/8 (/ (* c0 (* (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow h 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2) (* (pow M 2) (pow (sqrt -1) 2))))))) (* (pow M 3) (* w (pow (sqrt -1) 3)))))) w)) (* -1/2 (* c0 (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) h))) (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (* M (sqrt -1)))))))) w)) (* -1/2 (* M (* c0 (sqrt -1))))) w))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (+ (* -1 (/ (* c0 (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) h))) (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (* M (sqrt -1)))))) w)) (* M (* c0 (sqrt -1))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/2 (/ (* c0 (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow h 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* M (* w (sqrt -1))))) (* c0 (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) h))) (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (* M (sqrt -1))))))) w)) (* M (* c0 (sqrt -1))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/4 (/ (* c0 (* (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow h 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2) (* (pow M 2) (pow (sqrt -1) 2))))))) (* (pow M 3) (* w (pow (sqrt -1) 3))))) (* 1/2 (/ (* c0 (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow h 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* M (sqrt -1))))) w)) (* c0 (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) h))) (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (* M (sqrt -1))))))) w)) (* M (* c0 (sqrt -1))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) h))) (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (* M (sqrt -1))))) w)) (* M (sqrt -1)))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) h))) (+ (* -1/2 (/ (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow h 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2) (* (pow M 2) (pow (sqrt -1) 2))))) (* M (* w (sqrt -1))))) (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (* M (sqrt -1)))))) w)) (* M (sqrt -1)))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) h))) (+ (* -1 (/ (+ (* 1/4 (/ (* (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow h 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* (pow M 3) (* w (pow (sqrt -1) 3))))) (* 1/2 (/ (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow h 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2) (* (pow M 2) (pow (sqrt -1) 2))))) (* M (sqrt -1))))) w)) (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (* M (sqrt -1)))))) w)) (* M (sqrt -1)))))
#s(approx (* c0 (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w)))))) #s(hole binary64 (* -1 (* w (+ (* -2 (/ (* c0 (pow d 2)) (* (pow D 2) (* h (pow w 2))))) (* 1/2 (/ (* (pow D 2) (* (pow M 2) h)) (* c0 (pow d 2)))))))))
#s(approx (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w))))) #s(hole binary64 (* -1 (* w (+ (* -2 (/ (pow d 2) (* (pow D 2) (* h (pow w 2))))) (* 1/2 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow c0 2) (pow d 2)))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (/ (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (pow h 2))) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (pow w 2)))) h)))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (/ (+ (* (pow h 2) (+ (* -1/4 (/ (* (pow D 2) (pow M 2)) (pow d 2))) (* -1/16 (/ (* (pow D 6) (* (pow M 4) (* (pow h 2) (pow w 2)))) (* (pow c0 2) (pow d 6)))))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (pow w 2)))) h)))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (/ (+ (* (pow h 2) (+ (* -1/4 (/ (* (pow D 2) (pow M 2)) (pow d 2))) (* (pow h 2) (+ (* -1/16 (/ (* (pow D 6) (* (pow M 4) (pow w 2))) (* (pow c0 2) (pow d 6)))) (* -1/32 (/ (* (pow D 10) (* (pow M 6) (* (pow h 2) (pow w 4)))) (* (pow c0 4) (pow d 10)))))))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (pow w 2)))) h)))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (/ (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* (pow h 2) w))) (* c0 (pow d 2)))) (* 2 (/ (* c0 (pow d 2)) (* (pow D 2) w)))) h)))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (/ (+ (* 2 (/ (* c0 (pow d 2)) (* (pow D 2) w))) (* (pow h 2) (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) w)) (* c0 (pow d 2)))) (* -1/8 (/ (* (pow D 6) (* (pow M 4) (* (pow h 2) (pow w 3)))) (* (pow c0 3) (pow d 6))))))) h)))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (/ (+ (* 2 (/ (* c0 (pow d 2)) (* (pow D 2) w))) (* (pow h 2) (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) w)) (* c0 (pow d 2)))) (* (pow h 2) (+ (* -1/8 (/ (* (pow D 6) (* (pow M 4) (pow w 3))) (* (pow c0 3) (pow d 6)))) (* -1/16 (/ (* (pow D 10) (* (pow M 6) (* (pow h 2) (pow w 5)))) (* (pow c0 5) (pow d 10))))))))) h)))
#s(approx h #s(hole binary64 h))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (/ (+ (* 1/4 (/ (* (pow D 2) (* h (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))))) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (pow w 2)))) h)))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (/ (+ (* h (+ (* 1/4 (/ (* (pow D 2) (* h (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow w 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2))) (* (pow c0 2) (pow d 4))))))) (pow d 2))) (* 1/4 (/ (* (pow D 2) (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w)))) (pow d 2))))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (pow w 2)))) h)))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (/ (+ (* h (+ (* 1/4 (/ (* (pow D 2) (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w)))) (pow d 2))) (* h (+ (* -1/8 (/ (* (pow D 6) (* h (* (pow w 2) (* (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow w 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2))) (* (pow c0 2) (pow d 4))))))))) (* (pow c0 2) (pow d 6)))) (* 1/4 (/ (* (pow D 2) (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow w 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2))) (* (pow c0 2) (pow d 4)))))) (pow d 2))))))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (pow w 2)))) h)))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (/ (+ (* 1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w)))))) (pow d 2))) (* 2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) w)))) h)))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (/ (+ (* 2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) w))) (* h (+ (* 1/2 (/ (* (pow D 2) (* h (* w (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow w 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2))) (* (pow c0 2) (pow d 4)))))))) (pow d 2))) (* 1/2 (/ (* (pow D 2) (* w (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))))) (pow d 2)))))) h)))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (/ (+ (* 2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) w))) (* h (+ (* 1/2 (/ (* (pow D 2) (* w (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))))) (pow d 2))) (* h (+ (* -1/4 (/ (* (pow D 6) (* h (* (pow w 3) (* (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow w 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2))) (* (pow c0 2) (pow d 4))))))))) (* (pow c0 2) (pow d 6)))) (* 1/2 (/ (* (pow D 2) (* w (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow w 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2))) (* (pow c0 2) (pow d 4))))))) (pow d 2)))))))) h)))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (/ (+ (* 1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w)))))) (* c0 (pow d 2)))) (* 2 (/ (* c0 (pow d 2)) (* (pow D 2) w)))) h)))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (/ (+ (* 2 (/ (* c0 (pow d 2)) (* (pow D 2) w))) (* h (+ (* 1/2 (/ (* (pow D 2) (* h (* w (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow w 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2))) (* (pow c0 2) (pow d 4)))))))) (* c0 (pow d 2)))) (* 1/2 (/ (* (pow D 2) (* w (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))))) (* c0 (pow d 2))))))) h)))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (/ (+ (* 2 (/ (* c0 (pow d 2)) (* (pow D 2) w))) (* h (+ (* 1/2 (/ (* (pow D 2) (* w (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))))) (* c0 (pow d 2)))) (* h (+ (* -1/4 (/ (* (pow D 6) (* h (* (pow w 3) (* (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow w 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2))) (* (pow c0 2) (pow d 4))))))))) (* (pow c0 3) (pow d 6)))) (* 1/2 (/ (* (pow D 2) (* w (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow w 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2))) (* (pow c0 2) (pow d 4))))))) (* c0 (pow d 2))))))))) h)))
#s(approx (* c0 (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w)))))) #s(hole binary64 (/ (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* (pow h 2) w))) (* c0 (pow d 2)))) (* 2 (/ (* c0 (pow d 2)) (* (pow D 2) w)))) h)))
#s(approx (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w))))) #s(hole binary64 (/ (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* (pow h 2) w))) (* (pow c0 2) (pow d 2)))) (* 2 (/ (pow d 2) (* (pow D 2) w)))) h)))
#s(approx (/ (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (* w w)) #s(hole binary64 (/ (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (pow h 2))) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (pow w 2)))) h)))
#s(approx (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) #s(hole binary64 (/ (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (* (pow h 2) (pow w 2)))) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) (pow D 2))) h)))
#s(approx (* h (+ (* -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h h))))) #s(hole binary64 (/ (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (* (pow h 2) (pow w 2)))) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) (pow D 2))) h)))
#s(approx (+ (* -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h h)))) #s(hole binary64 (/ (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (* (pow h 2) (pow w 2)))) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) (pow D 2))) (pow h 2))))
#s(approx (/ (* d d) (* h h)) #s(hole binary64 (/ (pow d 2) (pow h 2))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (+ (* 1/2 (/ (* M (* c0 (sqrt -1))) w)) (* 1/2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h (pow w 2))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (+ (* 1/4 (/ (* (pow c0 3) (pow d 4)) (* (pow D 4) (* M (* (pow h 2) (* (pow w 3) (sqrt -1))))))) (+ (* 1/2 (/ (* M (* c0 (sqrt -1))) w)) (* 1/2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h (pow w 2)))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (+ (* -1/16 (/ (* (pow c0 5) (pow d 8)) (* (pow D 8) (* (pow M 3) (* (pow h 4) (* (pow w 5) (pow (sqrt -1) 3))))))) (+ (* 1/4 (/ (* (pow c0 3) (pow d 4)) (* (pow D 4) (* M (* (pow h 2) (* (pow w 3) (sqrt -1))))))) (+ (* 1/2 (/ (* M (* c0 (sqrt -1))) w)) (* 1/2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h (pow w 2))))))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (+ (* 1/2 (/ (* M (* c0 (sqrt -1))) w)) (* 1/2 (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (* M (sqrt -1)))) (/ (* c0 (pow d 2)) (* (pow D 2) w)))) (* h w))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (+ (* 1/4 (/ (* c0 (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* M (* (pow h 2) (* w (sqrt -1)))))) (+ (* 1/2 (/ (* M (* c0 (sqrt -1))) w)) (* 1/2 (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (* M (sqrt -1)))) (/ (* c0 (pow d 2)) (* (pow D 2) w)))) (* h w)))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (+ (* -1/8 (/ (* c0 (* (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2) (* (pow M 2) (pow (sqrt -1) 2))))))) (* (pow M 3) (* (pow h 3) (* w (pow (sqrt -1) 3)))))) (+ (* 1/4 (/ (* c0 (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* M (* (pow h 2) (* w (sqrt -1)))))) (+ (* 1/2 (/ (* M (* c0 (sqrt -1))) w)) (* 1/2 (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (* M (sqrt -1)))) (/ (* c0 (pow d 2)) (* (pow D 2) w)))) (* h w))))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (+ (* M (* c0 (sqrt -1))) (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (* M (sqrt -1)))) (/ (* c0 (pow d 2)) (* (pow D 2) w)))) h))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (+ (* 1/2 (/ (* c0 (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* M (* (pow h 2) (sqrt -1))))) (+ (* M (* c0 (sqrt -1))) (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (* M (sqrt -1)))) (/ (* c0 (pow d 2)) (* (pow D 2) w)))) h)))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (+ (* -1/4 (/ (* c0 (* (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2) (* (pow M 2) (pow (sqrt -1) 2))))))) (* (pow M 3) (* (pow h 3) (pow (sqrt -1) 3))))) (+ (* 1/2 (/ (* c0 (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* M (* (pow h 2) (sqrt -1))))) (+ (* M (* c0 (sqrt -1))) (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (* M (sqrt -1)))) (/ (* c0 (pow d 2)) (* (pow D 2) w)))) h))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (* M (* h (sqrt -1))))) (+ (* M (sqrt -1)) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (* M (* h (sqrt -1))))) (+ (* 1/2 (/ (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2) (* (pow M 2) (pow (sqrt -1) 2))))) (* M (* (pow h 2) (sqrt -1))))) (+ (* M (sqrt -1)) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (+ (* -1/4 (/ (* (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* (pow M 3) (* (pow h 3) (pow (sqrt -1) 3))))) (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (* M (* h (sqrt -1))))) (+ (* 1/2 (/ (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2) (* (pow M 2) (pow (sqrt -1) 2))))) (* M (* (pow h 2) (sqrt -1))))) (+ (* M (sqrt -1)) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))))))))
#s(approx (* c0 (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w)))))) #s(hole binary64 (* h (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) w)) (* c0 (pow d 2)))) (* 2 (/ (* c0 (pow d 2)) (* (pow D 2) (* (pow h 2) w))))))))
#s(approx (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w))))) #s(hole binary64 (* h (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) w)) (* (pow c0 2) (pow d 2)))) (* 2 (/ (pow d 2) (* (pow D 2) (* (pow h 2) w))))))))
#s(approx (/ (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (* w w)) #s(hole binary64 (* h (+ (* -1/4 (/ (* (pow D 2) (pow M 2)) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* (pow h 2) (pow w 2))))))))
#s(approx (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) #s(hole binary64 (* h (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (pow w 2))) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (pow h 2)))))))
#s(approx (* h (+ (* -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h h))))) #s(hole binary64 (* h (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (pow w 2))) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (pow h 2)))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (pow w 2)))) (* -1/4 (/ (* (pow c0 3) (pow d 4)) (* (pow D 4) (* M (* h (* (pow w 3) (sqrt -1)))))))) h)) (* 1/2 (/ (* M (* c0 (sqrt -1))) w)))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (+ (* -1 (/ (+ (* -1 (/ (+ (* -1/16 (/ (* (pow c0 5) (pow d 8)) (* (pow D 8) (* (pow M 3) (* (pow h 2) (* (pow w 5) (pow (sqrt -1) 3))))))) (* 1/4 (/ (* (pow c0 3) (pow d 4)) (* (pow D 4) (* M (* (pow w 3) (sqrt -1))))))) h)) (* -1/2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (pow w 2))))) h)) (* 1/2 (/ (* M (* c0 (sqrt -1))) w)))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) w))) (* -1/2 (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* M (* h (* (pow w 2) (sqrt -1)))))))) h)) (* M (sqrt -1)))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) w))) (* -1 (/ (+ (* -1/8 (/ (* (pow c0 4) (pow d 8)) (* (pow D 8) (* (pow M 3) (* (pow h 2) (* (pow w 4) (pow (sqrt -1) 3))))))) (* 1/2 (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* M (* (pow w 2) (sqrt -1))))))) h))) h)) (* M (sqrt -1)))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (+ (* -1/2 (/ (* c0 (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) w))) (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (* M (sqrt -1)))))) (* h w))) (* 1/2 (/ (* M (* c0 (sqrt -1))) w)))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (+ (* -1 (/ (+ (* -1/4 (/ (* c0 (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* M (* h (* w (sqrt -1)))))) (* 1/2 (/ (* c0 (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) w))) (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (* M (sqrt -1)))))) w))) h)) (* 1/2 (/ (* M (* c0 (sqrt -1))) w)))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/8 (/ (* c0 (* (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2) (* (pow M 2) (pow (sqrt -1) 2))))))) (* (pow M 3) (* h (* w (pow (sqrt -1) 3)))))) (* 1/4 (/ (* c0 (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* M (* w (sqrt -1)))))) h)) (* 1/2 (/ (* c0 (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) w))) (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (* M (sqrt -1)))))) w))) h)) (* 1/2 (/ (* M (* c0 (sqrt -1))) w)))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (+ (* -1 (/ (* c0 (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) w))) (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (* M (sqrt -1)))))) h)) (* M (* c0 (sqrt -1))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/2 (/ (* c0 (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* M (* h (sqrt -1))))) (* c0 (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) w))) (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (* M (sqrt -1))))))) h)) (* M (* c0 (sqrt -1))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/4 (/ (* c0 (* (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2) (* (pow M 2) (pow (sqrt -1) 2))))))) (* (pow M 3) (* h (pow (sqrt -1) 3))))) (* 1/2 (/ (* c0 (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* M (sqrt -1))))) h)) (* c0 (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) w))) (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (* M (sqrt -1))))))) h)) (* M (* c0 (sqrt -1))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) w))) (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (* M (sqrt -1))))) h)) (* M (sqrt -1)))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) w))) (+ (* -1/2 (/ (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2) (* (pow M 2) (pow (sqrt -1) 2))))) (* M (* h (sqrt -1))))) (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (* M (sqrt -1)))))) h)) (* M (sqrt -1)))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) w))) (+ (* -1 (/ (+ (* 1/4 (/ (* (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* (pow M 3) (* h (pow (sqrt -1) 3))))) (* 1/2 (/ (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2) (* (pow M 2) (pow (sqrt -1) 2))))) (* M (sqrt -1))))) h)) (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (* M (sqrt -1)))))) h)) (* M (sqrt -1)))))
#s(approx (* c0 (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w)))))) #s(hole binary64 (* -1 (* h (+ (* -2 (/ (* c0 (pow d 2)) (* (pow D 2) (* (pow h 2) w)))) (* 1/2 (/ (* (pow D 2) (* (pow M 2) w)) (* c0 (pow d 2)))))))))
#s(approx (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w))))) #s(hole binary64 (* -1 (* h (+ (* -2 (/ (pow d 2) (* (pow D 2) (* (pow h 2) w)))) (* 1/2 (/ (* (pow D 2) (* (pow M 2) w)) (* (pow c0 2) (pow d 2)))))))))
#s(approx (/ (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (* w w)) #s(hole binary64 (* -1 (* h (+ (* -1 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* (pow h 2) (pow w 2))))) (* 1/4 (/ (* (pow D 2) (pow M 2)) (pow d 2))))))))
#s(approx (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) #s(hole binary64 (* -1 (* h (+ (* -1 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (pow h 2)))) (* 1/4 (/ (* (pow D 2) (* (pow M 2) (pow w 2))) (pow d 2))))))))
#s(approx (* h (+ (* -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h h))))) #s(hole binary64 (* -1 (* h (+ (* -1 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (pow h 2)))) (* 1/4 (/ (* (pow D 2) (* (pow M 2) (pow w 2))) (pow d 2))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (/ (+ (* -1/4 (/ (* (pow D 4) (* (pow M 2) h)) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) (* h (pow w 2)))) (pow D 2))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (/ (+ (* (pow D 4) (+ (* -1/4 (/ (* (pow M 2) h) (pow d 2))) (* -1/16 (/ (* (pow D 4) (* (pow M 4) (* (pow h 3) (pow w 2)))) (* (pow c0 2) (pow d 6)))))) (/ (* (pow c0 2) (pow d 2)) (* h (pow w 2)))) (pow D 2))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (/ (+ (* (pow D 4) (+ (* -1/4 (/ (* (pow M 2) h) (pow d 2))) (* (pow D 4) (+ (* -1/16 (/ (* (pow M 4) (* (pow h 3) (pow w 2))) (* (pow c0 2) (pow d 6)))) (* -1/32 (/ (* (pow D 4) (* (pow M 6) (* (pow h 5) (pow w 4)))) (* (pow c0 4) (pow d 10)))))))) (/ (* (pow c0 2) (pow d 2)) (* h (pow w 2)))) (pow D 2))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (/ (+ (* -1/2 (/ (* (pow D 4) (* (pow M 2) (* h w))) (* c0 (pow d 2)))) (* 2 (/ (* c0 (pow d 2)) (* h w)))) (pow D 2))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (/ (+ (* 2 (/ (* c0 (pow d 2)) (* h w))) (* (pow D 4) (+ (* -1/2 (/ (* (pow M 2) (* h w)) (* c0 (pow d 2)))) (* -1/8 (/ (* (pow D 4) (* (pow M 4) (* (pow h 3) (pow w 3)))) (* (pow c0 3) (pow d 6))))))) (pow D 2))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (/ (+ (* 2 (/ (* c0 (pow d 2)) (* h w))) (* (pow D 4) (+ (* -1/2 (/ (* (pow M 2) (* h w)) (* c0 (pow d 2)))) (* (pow D 4) (+ (* -1/8 (/ (* (pow M 4) (* (pow h 3) (pow w 3))) (* (pow c0 3) (pow d 6)))) (* -1/16 (/ (* (pow D 4) (* (pow M 6) (* (pow h 5) (pow w 5)))) (* (pow c0 5) (pow d 10))))))))) (pow D 2))))
#s(approx (* (/ d D) (/ d D)) #s(hole binary64 (/ (pow d 2) (pow D 2))))
#s(approx (/ d D) #s(hole binary64 (/ d D)))
#s(approx D #s(hole binary64 D))
#s(approx (/ (* d d) (* D D)) #s(hole binary64 (/ (pow d 2) (pow D 2))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (/ (+ (* 1/4 (/ (* (pow D 2) (* h (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))))) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) (* h (pow w 2)))) (pow D 2))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (/ (+ (* (pow D 2) (+ (* 1/4 (/ (* h (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w)))) (pow d 2))) (* 1/4 (/ (* (pow D 2) (* h (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) 2))) (* (pow c0 2) (pow d 4))))))) (pow d 2))))) (/ (* (pow c0 2) (pow d 2)) (* h (pow w 2)))) (pow D 2))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (/ (+ (* (pow D 2) (+ (* 1/4 (/ (* h (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w)))) (pow d 2))) (* (pow D 2) (+ (* -1/8 (/ (* (pow D 2) (* (pow h 3) (* (pow w 2) (* (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) 2))) (* (pow c0 2) (pow d 4))))))))) (* (pow c0 2) (pow d 6)))) (* 1/4 (/ (* h (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) 2))) (* (pow c0 2) (pow d 4)))))) (pow d 2))))))) (/ (* (pow c0 2) (pow d 2)) (* h (pow w 2)))) (pow D 2))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (/ (+ (* 1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w)))))) (pow d 2))) (* 2 (/ (* (pow c0 2) (pow d 2)) (* h w)))) (pow D 2))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (/ (+ (* 2 (/ (* (pow c0 2) (pow d 2)) (* h w))) (* (pow D 2) (+ (* 1/2 (/ (* h (* w (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))))) (pow d 2))) (* 1/2 (/ (* (pow D 2) (* h (* w (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) 2))) (* (pow c0 2) (pow d 4)))))))) (pow d 2)))))) (pow D 2))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (/ (+ (* 2 (/ (* (pow c0 2) (pow d 2)) (* h w))) (* (pow D 2) (+ (* 1/2 (/ (* h (* w (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))))) (pow d 2))) (* (pow D 2) (+ (* -1/4 (/ (* (pow D 2) (* (pow h 3) (* (pow w 3) (* (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) 2))) (* (pow c0 2) (pow d 4))))))))) (* (pow c0 2) (pow d 6)))) (* 1/2 (/ (* h (* w (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) 2))) (* (pow c0 2) (pow d 4))))))) (pow d 2)))))))) (pow D 2))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (/ (+ (* 1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w)))))) (* c0 (pow d 2)))) (* 2 (/ (* c0 (pow d 2)) (* h w)))) (pow D 2))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (/ (+ (* 2 (/ (* c0 (pow d 2)) (* h w))) (* (pow D 2) (+ (* 1/2 (/ (* h (* w (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))))) (* c0 (pow d 2)))) (* 1/2 (/ (* (pow D 2) (* h (* w (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) 2))) (* (pow c0 2) (pow d 4)))))))) (* c0 (pow d 2))))))) (pow D 2))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (/ (+ (* 2 (/ (* c0 (pow d 2)) (* h w))) (* (pow D 2) (+ (* 1/2 (/ (* h (* w (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))))) (* c0 (pow d 2)))) (* (pow D 2) (+ (* -1/4 (/ (* (pow D 2) (* (pow h 3) (* (pow w 3) (* (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) 2))) (* (pow c0 2) (pow d 4))))))))) (* (pow c0 3) (pow d 6)))) (* 1/2 (/ (* h (* w (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) 2))) (* (pow c0 2) (pow d 4))))))) (* c0 (pow d 2))))))))) (pow D 2))))
#s(approx (* D D) #s(hole binary64 (pow D 2)))
#s(approx (* c0 (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w)))))) #s(hole binary64 (/ (+ (* -1/2 (/ (* (pow D 4) (* (pow M 2) (* h w))) (* c0 (pow d 2)))) (* 2 (/ (* c0 (pow d 2)) (* h w)))) (pow D 2))))
#s(approx (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w))))) #s(hole binary64 (/ (+ (* -1/2 (/ (* (pow D 4) (* (pow M 2) (* h w))) (* (pow c0 2) (pow d 2)))) (* 2 (/ (pow d 2) (* h w)))) (pow D 2))))
#s(approx (/ (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (* w w)) #s(hole binary64 (/ (+ (* -1/4 (/ (* (pow D 4) (* (pow M 2) h)) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) (* h (pow w 2)))) (pow D 2))))
#s(approx (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) #s(hole binary64 (/ (+ (* -1/4 (/ (* (pow D 4) (* (pow M 2) (* h (pow w 2)))) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) h)) (pow D 2))))
#s(approx (* h (+ (* -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h h))))) #s(hole binary64 (/ (+ (* -1/4 (/ (* (pow D 4) (* (pow M 2) (* h (pow w 2)))) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) h)) (pow D 2))))
#s(approx (+ (* -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h h)))) #s(hole binary64 (/ (+ (* -1/4 (/ (* (pow D 4) (* (pow M 2) (pow w 2))) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) (pow h 2))) (pow D 2))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (+ (* 1/2 (/ (* M (* c0 (sqrt -1))) w)) (* 1/2 (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) (* M (sqrt -1)))) (/ (* c0 (pow d 2)) (* h w)))) (* (pow D 2) w))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (+ (* 1/4 (/ (* c0 (- (/ (* (pow c0 2) (pow d 4)) (* (pow h 2) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* (pow D 4) (* M (* w (sqrt -1)))))) (+ (* 1/2 (/ (* M (* c0 (sqrt -1))) w)) (* 1/2 (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) (* M (sqrt -1)))) (/ (* c0 (pow d 2)) (* h w)))) (* (pow D 2) w)))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (+ (* -1/8 (/ (* c0 (* (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) (- (/ (* (pow c0 2) (pow d 4)) (* (pow h 2) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) 2) (* (pow M 2) (pow (sqrt -1) 2))))))) (* (pow D 6) (* (pow M 3) (* w (pow (sqrt -1) 3)))))) (+ (* 1/4 (/ (* c0 (- (/ (* (pow c0 2) (pow d 4)) (* (pow h 2) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* (pow D 4) (* M (* w (sqrt -1)))))) (+ (* 1/2 (/ (* M (* c0 (sqrt -1))) w)) (* 1/2 (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) (* M (sqrt -1)))) (/ (* c0 (pow d 2)) (* h w)))) (* (pow D 2) w))))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (+ (* M (* c0 (sqrt -1))) (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) (* M (sqrt -1)))) (/ (* c0 (pow d 2)) (* h w)))) (pow D 2)))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (+ (* 1/2 (/ (* c0 (- (/ (* (pow c0 2) (pow d 4)) (* (pow h 2) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* (pow D 4) (* M (sqrt -1))))) (+ (* M (* c0 (sqrt -1))) (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) (* M (sqrt -1)))) (/ (* c0 (pow d 2)) (* h w)))) (pow D 2))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (+ (* -1/4 (/ (* c0 (* (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) (- (/ (* (pow c0 2) (pow d 4)) (* (pow h 2) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) 2) (* (pow M 2) (pow (sqrt -1) 2))))))) (* (pow D 6) (* (pow M 3) (pow (sqrt -1) 3))))) (+ (* 1/2 (/ (* c0 (- (/ (* (pow c0 2) (pow d 4)) (* (pow h 2) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* (pow D 4) (* M (sqrt -1))))) (+ (* M (* c0 (sqrt -1))) (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) (* M (sqrt -1)))) (/ (* c0 (pow d 2)) (* h w)))) (pow D 2)))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) (* (pow D 2) (* M (sqrt -1))))) (+ (* M (sqrt -1)) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) (* (pow D 2) (* M (sqrt -1))))) (+ (* 1/2 (/ (- (/ (* (pow c0 2) (pow d 4)) (* (pow h 2) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) 2) (* (pow M 2) (pow (sqrt -1) 2))))) (* (pow D 4) (* M (sqrt -1))))) (+ (* M (sqrt -1)) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (+ (* -1/4 (/ (* (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) (- (/ (* (pow c0 2) (pow d 4)) (* (pow h 2) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* (pow D 6) (* (pow M 3) (pow (sqrt -1) 3))))) (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) (* (pow D 2) (* M (sqrt -1))))) (+ (* 1/2 (/ (- (/ (* (pow c0 2) (pow d 4)) (* (pow h 2) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) 2) (* (pow M 2) (pow (sqrt -1) 2))))) (* (pow D 4) (* M (sqrt -1))))) (+ (* M (sqrt -1)) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))))))))
#s(approx (* c0 (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w)))))) #s(hole binary64 (* (pow D 2) (+ (* -1/2 (/ (* (pow M 2) (* h w)) (* c0 (pow d 2)))) (* 2 (/ (* c0 (pow d 2)) (* (pow D 4) (* h w))))))))
#s(approx (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w))))) #s(hole binary64 (* (pow D 2) (+ (* -1/2 (/ (* (pow M 2) (* h w)) (* (pow c0 2) (pow d 2)))) (* 2 (/ (pow d 2) (* (pow D 4) (* h w))))))))
#s(approx (/ (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (* w w)) #s(hole binary64 (* (pow D 2) (+ (* -1/4 (/ (* (pow M 2) h) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 4) (* h (pow w 2))))))))
#s(approx (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) #s(hole binary64 (* (pow D 2) (+ (* -1/4 (/ (* (pow M 2) (* h (pow w 2))) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 4) h))))))
#s(approx (* h (+ (* -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h h))))) #s(hole binary64 (* (pow D 2) (+ (* -1/4 (/ (* (pow M 2) (* h (pow w 2))) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 4) h))))))
#s(approx (+ (* -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h h)))) #s(hole binary64 (* (pow D 2) (+ (* -1/4 (/ (* (pow M 2) (pow w 2)) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 4) (pow h 2)))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (+ (* 1/2 (/ (* M (* c0 (sqrt -1))) w)) (* (pow d 2) (+ (* 1/4 (/ (* (pow c0 3) (pow d 2)) (* (pow D 4) (* M (* (pow h 2) (* (pow w 3) (sqrt -1))))))) (* 1/2 (/ (pow c0 2) (* (pow D 2) (* h (pow w 2))))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (+ (* 1/2 (/ (* M (* c0 (sqrt -1))) w)) (* (pow d 2) (+ (* 1/2 (/ (pow c0 2) (* (pow D 2) (* h (pow w 2))))) (* (pow d 2) (+ (* -1/16 (/ (* (pow c0 5) (pow d 4)) (* (pow D 8) (* (pow M 3) (* (pow h 4) (* (pow w 5) (pow (sqrt -1) 3))))))) (* 1/4 (/ (pow c0 3) (* (pow D 4) (* M (* (pow h 2) (* (pow w 3) (sqrt -1))))))))))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (+ (* M (sqrt -1)) (* (pow d 2) (+ (* 1/2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 4) (* M (* (pow h 2) (* (pow w 2) (sqrt -1))))))) (/ c0 (* (pow D 2) (* h w))))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (+ (* M (sqrt -1)) (* (pow d 2) (+ (* (pow d 2) (+ (* -1/8 (/ (* (pow c0 4) (pow d 4)) (* (pow D 8) (* (pow M 3) (* (pow h 4) (* (pow w 4) (pow (sqrt -1) 3))))))) (* 1/2 (/ (pow c0 2) (* (pow D 4) (* M (* (pow h 2) (* (pow w 2) (sqrt -1))))))))) (/ c0 (* (pow D 2) (* h w))))))))
#s(approx d #s(hole binary64 d))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (+ (* 1/2 (/ (* M (* c0 (sqrt -1))) w)) (* 1/2 (/ (* c0 (* (pow d 2) (+ (* 1/2 (/ (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) (* M (sqrt -1)))) (/ c0 (* (pow D 2) (* h w)))))) w)))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (+ (* 1/2 (/ (* M (* c0 (sqrt -1))) w)) (* (pow d 2) (+ (* 1/4 (/ (* c0 (* (pow d 2) (- (/ (pow c0 2) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) 2) (* (pow M 2) (pow (sqrt -1) 2))))))) (* M (* w (sqrt -1))))) (* 1/2 (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) (* M (sqrt -1)))) (/ c0 (* (pow D 2) (* h w))))) w)))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (+ (* 1/2 (/ (* M (* c0 (sqrt -1))) w)) (* (pow d 2) (+ (* 1/2 (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) (* M (sqrt -1)))) (/ c0 (* (pow D 2) (* h w))))) w)) (* (pow d 2) (+ (* -1/8 (/ (* c0 (* (pow d 2) (* (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) (- (/ (pow c0 2) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))))) (* (pow M 3) (* w (pow (sqrt -1) 3))))) (* 1/4 (/ (* c0 (- (/ (pow c0 2) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* M (* w (sqrt -1))))))))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (+ (* M (* c0 (sqrt -1))) (* c0 (* (pow d 2) (+ (* 1/2 (/ (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) (* M (sqrt -1)))) (/ c0 (* (pow D 2) (* h w)))))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (+ (* M (* c0 (sqrt -1))) (* (pow d 2) (+ (* 1/2 (/ (* c0 (* (pow d 2) (- (/ (pow c0 2) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) 2) (* (pow M 2) (pow (sqrt -1) 2))))))) (* M (sqrt -1)))) (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) (* M (sqrt -1)))) (/ c0 (* (pow D 2) (* h w))))))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (+ (* M (* c0 (sqrt -1))) (* (pow d 2) (+ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) (* M (sqrt -1)))) (/ c0 (* (pow D 2) (* h w))))) (* (pow d 2) (+ (* -1/4 (/ (* c0 (* (pow d 2) (* (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) (- (/ (pow c0 2) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))))) (* (pow M 3) (pow (sqrt -1) 3)))) (* 1/2 (/ (* c0 (- (/ (pow c0 2) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* M (sqrt -1)))))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (+ (* M (sqrt -1)) (* (pow d 2) (+ (* 1/2 (/ (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) (* M (sqrt -1)))) (/ c0 (* (pow D 2) (* h w))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (+ (* M (sqrt -1)) (* (pow d 2) (+ (* 1/2 (/ (* (pow d 2) (- (/ (pow c0 2) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* M (sqrt -1)))) (+ (* 1/2 (/ (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) (* M (sqrt -1)))) (/ c0 (* (pow D 2) (* h w)))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (+ (* M (sqrt -1)) (* (pow d 2) (+ (* 1/2 (/ (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) (* M (sqrt -1)))) (+ (* (pow d 2) (+ (* -1/4 (/ (* (pow d 2) (* (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) (- (/ (pow c0 2) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) 2) (* (pow M 2) (pow (sqrt -1) 2))))))) (* (pow M 3) (pow (sqrt -1) 3)))) (* 1/2 (/ (- (/ (pow c0 2) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) 2) (* (pow M 2) (pow (sqrt -1) 2))))) (* M (sqrt -1)))))) (/ c0 (* (pow D 2) (* h w)))))))))
#s(approx (* d d) #s(hole binary64 (pow d 2)))
#s(approx (* c0 (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w)))))) #s(hole binary64 (/ (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h w))) c0)) (* 2 (/ (* c0 (pow d 4)) (* (pow D 2) (* h w))))) (pow d 2))))
#s(approx (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w))))) #s(hole binary64 (/ (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h w))) (pow c0 2))) (* 2 (/ (pow d 4) (* (pow D 2) (* h w))))) (pow d 2))))
#s(approx (/ (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (* w w)) #s(hole binary64 (/ (+ (* -1/4 (* (pow D 2) (* (pow M 2) h))) (/ (* (pow c0 2) (pow d 4)) (* (pow D 2) (* h (pow w 2))))) (pow d 2))))
#s(approx (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) #s(hole binary64 (/ (+ (* -1/4 (* (pow D 2) (* (pow M 2) (* h (pow w 2))))) (/ (* (pow c0 2) (pow d 4)) (* (pow D 2) h))) (pow d 2))))
#s(approx (* h (+ (* -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h h))))) #s(hole binary64 (/ (+ (* -1/4 (* (pow D 2) (* (pow M 2) (* h (pow w 2))))) (/ (* (pow c0 2) (pow d 4)) (* (pow D 2) h))) (pow d 2))))
#s(approx (+ (* -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h h)))) #s(hole binary64 (/ (+ (* -1/4 (* (pow D 2) (* (pow M 2) (pow w 2)))) (/ (* (pow c0 2) (pow d 4)) (* (pow D 2) (pow h 2)))) (pow d 2))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* (pow d 2) (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 4))) (/ (pow c0 2) (* (pow D 2) (* h (pow w 2))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* (pow d 2) (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 4))) (+ (* -1/16 (/ (* (pow D 6) (* (pow M 4) (* (pow h 3) (pow w 2)))) (* (pow c0 2) (pow d 8)))) (/ (pow c0 2) (* (pow D 2) (* h (pow w 2)))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* (pow d 2) (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 4))) (+ (* -1/16 (/ (* (pow D 6) (* (pow M 4) (* (pow h 3) (pow w 2)))) (* (pow c0 2) (pow d 8)))) (+ (* -1/32 (/ (* (pow D 10) (* (pow M 6) (* (pow h 5) (pow w 4)))) (* (pow c0 4) (pow d 12)))) (/ (pow c0 2) (* (pow D 2) (* h (pow w 2))))))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (* (pow d 2) (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h w))) (* c0 (pow d 4)))) (* 2 (/ c0 (* (pow D 2) (* h w))))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (* (pow d 2) (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h w))) (* c0 (pow d 4)))) (+ (* -1/8 (/ (* (pow D 6) (* (pow M 4) (* (pow h 3) (pow w 3)))) (* (pow c0 3) (pow d 8)))) (* 2 (/ c0 (* (pow D 2) (* h w)))))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (* (pow d 2) (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h w))) (* c0 (pow d 4)))) (+ (* -1/8 (/ (* (pow D 6) (* (pow M 4) (* (pow h 3) (pow w 3)))) (* (pow c0 3) (pow d 8)))) (+ (* -1/16 (/ (* (pow D 10) (* (pow M 6) (* (pow h 5) (pow w 5)))) (* (pow c0 5) (pow d 12)))) (* 2 (/ c0 (* (pow D 2) (* h w))))))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (* (pow d 2) (+ (* 1/4 (/ (* (pow D 2) (* h (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))))) (pow d 2))) (/ (pow c0 2) (* (pow D 2) (* h (pow w 2))))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (* (pow d 2) (+ (* 1/4 (/ (* (pow D 2) (* h (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))))) (pow d 2))) (+ (* 1/4 (/ (* (pow D 2) (* h (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) 2)))) (pow c0 2)))))) (pow d 4))) (/ (pow c0 2) (* (pow D 2) (* h (pow w 2)))))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (* (pow d 2) (+ (* -1/8 (/ (* (pow D 6) (* (pow h 3) (* (pow w 2) (* (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) 2)))) (pow c0 2)))))))) (* (pow c0 2) (pow d 6)))) (+ (* 1/4 (/ (* (pow D 2) (* h (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))))) (pow d 2))) (+ (* 1/4 (/ (* (pow D 2) (* h (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) 2)))) (pow c0 2)))))) (pow d 4))) (/ (pow c0 2) (* (pow D 2) (* h (pow w 2))))))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (* (pow d 2) (+ (* 1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w))))))) (pow d 2))) (* 2 (/ (pow c0 2) (* (pow D 2) (* h w))))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (* (pow d 2) (+ (* 1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w))))))) (pow d 2))) (+ (* 1/2 (/ (* (pow D 2) (* h (* w (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) 2)))) (pow c0 2))))))) (pow d 4))) (* 2 (/ (pow c0 2) (* (pow D 2) (* h w)))))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (* (pow d 2) (+ (* -1/4 (/ (* (pow D 6) (* (pow h 3) (* (pow w 3) (* (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) 2)))) (pow c0 2)))))))) (* (pow c0 2) (pow d 6)))) (+ (* 1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w))))))) (pow d 2))) (+ (* 1/2 (/ (* (pow D 2) (* h (* w (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) 2)))) (pow c0 2))))))) (pow d 4))) (* 2 (/ (pow c0 2) (* (pow D 2) (* h w))))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (* (pow d 2) (+ (* 1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w))))))) (* c0 (pow d 2)))) (* 2 (/ c0 (* (pow D 2) (* h w))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (* (pow d 2) (+ (* 1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w))))))) (* c0 (pow d 2)))) (+ (* 1/2 (/ (* (pow D 2) (* h (* w (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) 2)))) (pow c0 2))))))) (* c0 (pow d 4)))) (* 2 (/ c0 (* (pow D 2) (* h w)))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (* (pow d 2) (+ (* -1/4 (/ (* (pow D 6) (* (pow h 3) (* (pow w 3) (* (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) 2)))) (pow c0 2)))))))) (* (pow c0 3) (pow d 6)))) (+ (* 1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w))))))) (* c0 (pow d 2)))) (+ (* 1/2 (/ (* (pow D 2) (* h (* w (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) 2)))) (pow c0 2))))))) (* c0 (pow d 4)))) (* 2 (/ c0 (* (pow D 2) (* h w))))))))))
#s(approx (* c0 (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w)))))) #s(hole binary64 (* (pow d 2) (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h w))) (* c0 (pow d 4)))) (* 2 (/ c0 (* (pow D 2) (* h w))))))))
#s(approx (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w))))) #s(hole binary64 (* (pow d 2) (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h w))) (* (pow c0 2) (pow d 4)))) (* 2 (/ 1 (* (pow D 2) (* h w))))))))
#s(approx (/ (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (* w w)) #s(hole binary64 (* (pow d 2) (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 4))) (/ (pow c0 2) (* (pow D 2) (* h (pow w 2))))))))
#s(approx (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) #s(hole binary64 (* (pow d 2) (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (* h (pow w 2)))) (pow d 4))) (/ (pow c0 2) (* (pow D 2) h))))))
#s(approx (* h (+ (* -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h h))))) #s(hole binary64 (* (pow d 2) (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (* h (pow w 2)))) (pow d 4))) (/ (pow c0 2) (* (pow D 2) h))))))
#s(approx (+ (* -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h h)))) #s(hole binary64 (* (pow d 2) (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (pow w 2))) (pow d 4))) (/ (pow c0 2) (* (pow D 2) (pow h 2)))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h (pow w 2)))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (+ (* (pow M 2) (+ (* -1/4 (/ (* (pow D 2) h) (pow d 2))) (* -1/16 (/ (* (pow D 6) (* (pow M 2) (* (pow h 3) (pow w 2)))) (* (pow c0 2) (pow d 6)))))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h (pow w 2)))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (+ (* (pow M 2) (+ (* -1/4 (/ (* (pow D 2) h) (pow d 2))) (* (pow M 2) (+ (* -1/16 (/ (* (pow D 6) (* (pow h 3) (pow w 2))) (* (pow c0 2) (pow d 6)))) (* -1/32 (/ (* (pow D 10) (* (pow M 2) (* (pow h 5) (pow w 4)))) (* (pow c0 4) (pow d 10)))))))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h (pow w 2)))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h w))) (* c0 (pow d 2)))) (* 2 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (+ (* 2 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (* (pow M 2) (+ (* -1/2 (/ (* (pow D 2) (* h w)) (* c0 (pow d 2)))) (* -1/8 (/ (* (pow D 6) (* (pow M 2) (* (pow h 3) (pow w 3)))) (* (pow c0 3) (pow d 6)))))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (+ (* 2 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (* (pow M 2) (+ (* -1/2 (/ (* (pow D 2) (* h w)) (* c0 (pow d 2)))) (* (pow M 2) (+ (* -1/8 (/ (* (pow D 6) (* (pow h 3) (pow w 3))) (* (pow c0 3) (pow d 6)))) (* -1/16 (/ (* (pow D 10) (* (pow M 2) (* (pow h 5) (pow w 5)))) (* (pow c0 5) (pow d 10)))))))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (+ (* 1/4 (/ (* (pow D 2) (* M (* h (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))))) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h (pow w 2)))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (+ (* M (+ (* -1/4 (/ (* (pow D 2) (* M (* h (+ 1 (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (* (pow c0 2) (pow d 4)))))))) (pow d 2))) (* 1/4 (/ (* (pow D 2) (* h (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))))) (pow d 2))))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h (pow w 2)))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (+ (* M (+ (* 1/4 (/ (* (pow D 2) (* h (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))))) (pow d 2))) (* M (+ (* -1/4 (/ (* (pow D 2) (* h (+ 1 (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (* (pow c0 2) (pow d 4))))))) (pow d 2))) (* 1/8 (/ (* (pow D 6) (* M (* (pow h 3) (* (pow w 2) (* (+ 1 (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (* (pow c0 2) (pow d 4))))) (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))))))) (* (pow c0 2) (pow d 6)))))))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h (pow w 2)))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (+ (* 1/2 (/ (* (pow D 2) (* M (* h (* w (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))))))) (pow d 2))) (* 2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h w)))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (+ (* 2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h w)))) (* M (+ (* -1/2 (/ (* (pow D 2) (* M (* h (* w (+ 1 (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (* (pow c0 2) (pow d 4))))))))) (pow d 2))) (* 1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))))) (pow d 2))))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (+ (* 2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h w)))) (* M (+ (* 1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))))) (pow d 2))) (* M (+ (* -1/2 (/ (* (pow D 2) (* h (* w (+ 1 (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (* (pow c0 2) (pow d 4)))))))) (pow d 2))) (* 1/4 (/ (* (pow D 6) (* M (* (pow h 3) (* (pow w 3) (* (+ 1 (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (* (pow c0 2) (pow d 4))))) (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))))))) (* (pow c0 2) (pow d 6)))))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (+ (* 1/2 (/ (* (pow D 2) (* M (* h (* w (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))))))) (* c0 (pow d 2)))) (* 2 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (+ (* 2 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (* M (+ (* -1/2 (/ (* (pow D 2) (* M (* h (* w (+ 1 (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (* (pow c0 2) (pow d 4))))))))) (* c0 (pow d 2)))) (* 1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))))) (* c0 (pow d 2)))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (+ (* 2 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (* M (+ (* 1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))))) (* c0 (pow d 2)))) (* M (+ (* -1/2 (/ (* (pow D 2) (* h (* w (+ 1 (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (* (pow c0 2) (pow d 4)))))))) (* c0 (pow d 2)))) (* 1/4 (/ (* (pow D 6) (* M (* (pow h 3) (* (pow w 3) (* (+ 1 (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (* (pow c0 2) (pow d 4))))) (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))))))) (* (pow c0 3) (pow d 6)))))))))))
#s(approx (* c0 (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w)))))) #s(hole binary64 (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h w))) (* c0 (pow d 2)))) (* 2 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))))))
#s(approx (* M M) #s(hole binary64 (pow M 2)))
#s(approx M #s(hole binary64 M))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* M (+ (* 1/2 (/ (* c0 (sqrt -1)) w)) (* 1/2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* M (* h (pow w 2))))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* M (+ (* 1/4 (/ (* (pow c0 3) (pow d 4)) (* (pow D 4) (* (pow M 2) (* (pow h 2) (* (pow w 3) (sqrt -1))))))) (+ (* 1/2 (/ (* c0 (sqrt -1)) w)) (* 1/2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* M (* h (pow w 2)))))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* M (+ (* -1/16 (/ (* (pow c0 5) (pow d 8)) (* (pow D 8) (* (pow M 4) (* (pow h 4) (* (pow w 5) (pow (sqrt -1) 3))))))) (+ (* 1/4 (/ (* (pow c0 3) (pow d 4)) (* (pow D 4) (* (pow M 2) (* (pow h 2) (* (pow w 3) (sqrt -1))))))) (+ (* 1/2 (/ (* c0 (sqrt -1)) w)) (* 1/2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* M (* h (pow w 2))))))))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (* M (+ (sqrt -1) (/ (* c0 (pow d 2)) (* (pow D 2) (* M (* h w))))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (* M (+ (sqrt -1) (+ (* 1/2 (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow M 2) (* (pow h 2) (* (pow w 2) (sqrt -1))))))) (/ (* c0 (pow d 2)) (* (pow D 2) (* M (* h w)))))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (* M (+ (sqrt -1) (+ (* -1/8 (/ (* (pow c0 4) (pow d 8)) (* (pow D 8) (* (pow M 4) (* (pow h 4) (* (pow w 4) (pow (sqrt -1) 3))))))) (+ (* 1/2 (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow M 2) (* (pow h 2) (* (pow w 2) (sqrt -1))))))) (/ (* c0 (pow d 2)) (* (pow D 2) (* M (* h w))))))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (* M (+ (* 1/2 (/ (* c0 (sqrt -1)) w)) (* 1/2 (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (sqrt -1))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))) (* M w)))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (* M (+ (* 1/4 (/ (* c0 (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2) (pow (sqrt -1) 2))))) (* (pow M 2) (* w (sqrt -1))))) (+ (* 1/2 (/ (* c0 (sqrt -1)) w)) (* 1/2 (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (sqrt -1))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))) (* M w))))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (* M (+ (* -1/8 (/ (* c0 (* (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2) (pow (sqrt -1) 2)))))) (* (pow M 3) (* w (pow (sqrt -1) 3))))) (+ (* 1/4 (/ (* c0 (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2) (pow (sqrt -1) 2))))) (* (pow M 2) (* w (sqrt -1))))) (+ (* 1/2 (/ (* c0 (sqrt -1)) w)) (* 1/2 (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (sqrt -1))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))) (* M w)))))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (* M (+ (* c0 (sqrt -1)) (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (sqrt -1))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))) M)))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (* M (+ (* 1/2 (/ (* c0 (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2) (pow (sqrt -1) 2))))) (* (pow M 2) (sqrt -1)))) (+ (* c0 (sqrt -1)) (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (sqrt -1))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))) M))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (* M (+ (* -1/4 (/ (* c0 (* (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2) (pow (sqrt -1) 2)))))) (* (pow M 3) (pow (sqrt -1) 3)))) (+ (* 1/2 (/ (* c0 (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2) (pow (sqrt -1) 2))))) (* (pow M 2) (sqrt -1)))) (+ (* c0 (sqrt -1)) (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (sqrt -1))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))) M)))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (* M (+ (sqrt -1) (+ (* 1/2 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (* M (sqrt -1)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* M (* h w)))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (* M (+ (sqrt -1) (+ (* 1/2 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (* M (sqrt -1)))) (+ (* 1/2 (/ (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2) (pow (sqrt -1) 2)))) (* (pow M 2) (sqrt -1)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* M (* h w))))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (* M (+ (sqrt -1) (+ (* -1/4 (/ (* (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2) (pow (sqrt -1) 2))))) (* (pow M 3) (pow (sqrt -1) 3)))) (+ (* 1/2 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (* M (sqrt -1)))) (+ (* 1/2 (/ (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2) (pow (sqrt -1) 2)))) (* (pow M 2) (sqrt -1)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* M (* h w)))))))))))
#s(approx (* c0 (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w)))))) #s(hole binary64 (* (pow M 2) (+ (* -1/2 (/ (* (pow D 2) (* h w)) (* c0 (pow d 2)))) (* 2 (/ (* c0 (pow d 2)) (* (pow D 2) (* (pow M 2) (* h w)))))))))
#s(approx (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w))))) #s(hole binary64 (* (pow M 2) (+ (* -1/2 (/ (* (pow D 2) (* h w)) (* (pow c0 2) (pow d 2)))) (* 2 (/ (pow d 2) (* (pow D 2) (* (pow M 2) (* h w)))))))))
#s(approx (/ (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (* w w)) #s(hole binary64 (* (pow M 2) (+ (* -1/4 (/ (* (pow D 2) h) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* (pow M 2) (* h (pow w 2)))))))))
#s(approx (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) #s(hole binary64 (* (pow M 2) (+ (* -1/4 (/ (* (pow D 2) (* h (pow w 2))) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* (pow M 2) h)))))))
#s(approx (* h (+ (* -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h h))))) #s(hole binary64 (* (pow M 2) (+ (* -1/4 (/ (* (pow D 2) (* h (pow w 2))) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* (pow M 2) h)))))))
#s(approx (+ (* -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h h)))) #s(hole binary64 (* (pow M 2) (+ (* -1/4 (/ (* (pow D 2) (pow w 2)) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* (pow M 2) (pow h 2))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* -1/2 (/ (* M (* c0 (sqrt -1))) w))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* -1 (* M (+ (* -1/2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* M (* h (pow w 2)))))) (* 1/2 (/ (* c0 (sqrt -1)) w)))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* -1 (* M (+ (* -1 (/ (+ (* -1/4 (/ (* (pow c0 3) (pow d 4)) (* (pow D 4) (* M (* (pow h 2) (* (pow w 3) (sqrt -1))))))) (* 1/2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h (pow w 2)))))) M)) (* 1/2 (/ (* c0 (sqrt -1)) w)))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* -1 (* M (+ (* -1 (/ (+ (* -1 (/ (+ (* -1/16 (/ (* (pow c0 5) (pow d 8)) (* (pow D 8) (* (pow M 2) (* (pow h 4) (* (pow w 5) (pow (sqrt -1) 3))))))) (* 1/4 (/ (* (pow c0 3) (pow d 4)) (* (pow D 4) (* (pow h 2) (* (pow w 3) (sqrt -1))))))) M)) (* 1/2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h (pow w 2)))))) M)) (* 1/2 (/ (* c0 (sqrt -1)) w)))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (* -1 (* M (sqrt -1)))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (* -1 (* M (+ (sqrt -1) (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* M (* h w))))))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (* -1 (* M (+ (sqrt -1) (* -1 (/ (+ (* -1/2 (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* M (* (pow h 2) (* (pow w 2) (sqrt -1))))))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) M)))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (* -1 (* M (+ (sqrt -1) (* -1 (/ (+ (* -1 (/ (+ (* -1/8 (/ (* (pow c0 4) (pow d 8)) (* (pow D 8) (* (pow M 2) (* (pow h 4) (* (pow w 4) (pow (sqrt -1) 3))))))) (* 1/2 (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow h 2) (* (pow w 2) (sqrt -1))))))) M)) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) M)))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (* -1/2 (/ (* M (* c0 (sqrt -1))) w))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (* -1 (* M (+ (* -1/2 (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (sqrt -1))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))) (* M w))) (* 1/2 (/ (* c0 (sqrt -1)) w)))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (* -1 (* M (+ (* -1 (/ (+ (* -1/4 (/ (* c0 (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2) (pow (sqrt -1) 2))))) (* M (* w (sqrt -1))))) (* 1/2 (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (sqrt -1))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))) w))) M)) (* 1/2 (/ (* c0 (sqrt -1)) w)))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (* -1 (* M (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/8 (/ (* c0 (* (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2) (pow (sqrt -1) 2)))))) (* M (* w (pow (sqrt -1) 3))))) (* 1/4 (/ (* c0 (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2) (pow (sqrt -1) 2))))) (* w (sqrt -1))))) M)) (* 1/2 (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (sqrt -1))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))) w))) M)) (* 1/2 (/ (* c0 (sqrt -1)) w)))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (* -1 (* M (* c0 (sqrt -1))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (* -1 (* M (+ (* -1 (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (sqrt -1))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))) M)) (* c0 (sqrt -1)))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (* -1 (* M (+ (* -1 (/ (+ (* -1/2 (/ (* c0 (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2) (pow (sqrt -1) 2))))) (* M (sqrt -1)))) (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (sqrt -1))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))))) M)) (* c0 (sqrt -1)))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) #s(hole binary64 (* -1 (* M (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/4 (/ (* c0 (* (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2) (pow (sqrt -1) 2)))))) (* M (pow (sqrt -1) 3)))) (* 1/2 (/ (* c0 (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2) (pow (sqrt -1) 2))))) (sqrt -1)))) M)) (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (sqrt -1))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))))) M)) (* c0 (sqrt -1)))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (* -1 (* M (sqrt -1)))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (* -1 (* M (+ (sqrt -1) (* -1 (/ (+ (* 1/2 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (sqrt -1))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) M)))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (* -1 (* M (+ (sqrt -1) (* -1 (/ (+ (* -1/2 (/ (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2) (pow (sqrt -1) 2)))) (* M (sqrt -1)))) (+ (* 1/2 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (sqrt -1))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))) M)))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) #s(hole binary64 (* -1 (* M (+ (sqrt -1) (* -1 (/ (+ (* -1 (/ (+ (* 1/4 (/ (* (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2) (pow (sqrt -1) 2))))) (* M (pow (sqrt -1) 3)))) (* 1/2 (/ (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2) (pow (sqrt -1) 2)))) (sqrt -1)))) M)) (+ (* 1/2 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (sqrt -1))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))) M)))))))

Outputs
(.f64 (/.f64 c0 (.f64 #s(literal 2 binary64) w)) #s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (.f64 (.f64 (/.f64 c0 (*.f64 h w)) (ratio-of-squares.f64 d D)) #s(literal 2 binary64))))
(/.f64 (neg.f64 c0) (neg.f64 (*.f64 #s(literal 2 binary64) w)))
(/.f64 c0 (*.f64 #s(literal 2 binary64) w))
c0
(*.f64 #s(literal 2 binary64) w)
#s(literal 2 binary64)
w
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (.f64 (.f64 (/.f64 c0 (*.f64 h w)) (ratio-of-squares.f64 d D)) #s(literal 2 binary64)))
(.f64 (.f64 (/.f64 c0 (*.f64 h w)) (ratio-of-squares.f64 d D)) #s(literal 2 binary64))
(.f64 (/.f64 c0 (.f64 h w)) (ratio-of-squares.f64 d D))
(/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 h w) (*.f64 D D)))
(/.f64 (neg.f64 c0) (neg.f64 (*.f64 h w)))
(/.f64 c0 (*.f64 h w))
(*.f64 h w)
h
(*.f64 (neg.f64 (/.f64 d D)) (neg.f64 (/.f64 d D)))
(*.f64 (fabs.f64 (/.f64 d D)) (fabs.f64 (/.f64 d D)))
(*.f64 (/.f64 d D) (/.f64 d D))
(ratio-of-squares.f64 (neg.f64 d) (neg.f64 D))
(ratio-of-squares.f64 (neg.f64 d) (fabs.f64 D))
(ratio-of-squares.f64 (neg.f64 d) D)
(ratio-of-squares.f64 (fabs.f64 d) (neg.f64 D))
(ratio-of-squares.f64 (fabs.f64 d) (fabs.f64 D))
(ratio-of-squares.f64 (fabs.f64 d) D)
(ratio-of-squares.f64 d (neg.f64 D))
(ratio-of-squares.f64 d (fabs.f64 D))
(ratio-of-squares.f64 d D)
(pow.f64 (/.f64 d D) #s(literal 2 binary64))
(/.f64 (neg.f64 (.f64 d d)) (neg.f64 (.f64 D D)))
(/.f64 (.f64 d d) (.f64 D D))
(/.f64 (neg.f64 d) (neg.f64 D))
(/.f64 d D)
d
D
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (.f64 (.f64 c0 c0) (/.f64 (ratio-of-squares.f64 d D) (.f64 (.f64 w w) h))))
(.f64 (.f64 c0 c0) (/.f64 (ratio-of-squares.f64 d D) (.f64 (.f64 w w) h)))
(*.f64 (neg.f64 c0) (neg.f64 c0))
(*.f64 (fabs.f64 c0) (fabs.f64 c0))
(*.f64 c0 c0)
(pow.f64 c0 #s(literal 2 binary64))
(exp.f64 (*.f64 (log.f64 c0) #s(literal 2 binary64)))
(/.f64 (neg.f64 (ratio-of-squares.f64 d D)) (neg.f64 (.f64 (.f64 w w) h)))
(/.f64 (ratio-of-squares.f64 d D) (.f64 (.f64 w w) h))
(*.f64 (neg.f64 (/.f64 d D)) (neg.f64 (/.f64 d D)))
(*.f64 (fabs.f64 (/.f64 d D)) (fabs.f64 (/.f64 d D)))
(*.f64 (/.f64 d D) (/.f64 d D))
(ratio-of-squares.f64 (neg.f64 d) (neg.f64 D))
(ratio-of-squares.f64 (neg.f64 d) (fabs.f64 D))
(ratio-of-squares.f64 (neg.f64 d) D)
(ratio-of-squares.f64 (fabs.f64 d) (neg.f64 D))
(ratio-of-squares.f64 (fabs.f64 d) (fabs.f64 D))
(ratio-of-squares.f64 (fabs.f64 d) D)
(ratio-of-squares.f64 d (neg.f64 D))
(ratio-of-squares.f64 d (fabs.f64 D))
(ratio-of-squares.f64 d D)
(pow.f64 (/.f64 d D) #s(literal 2 binary64))
(/.f64 (neg.f64 (.f64 d d)) (neg.f64 (.f64 D D)))
(/.f64 (.f64 d d) (.f64 D D))
(.f64 (.f64 w w) h)
(*.f64 (neg.f64 w) (neg.f64 w))
(*.f64 (fabs.f64 w) (fabs.f64 w))
(*.f64 w w)
(pow.f64 w #s(literal 2 binary64))
(exp.f64 (*.f64 (log.f64 w) #s(literal 2 binary64)))
(.f64 (/.f64 c0 w) (/.f64 #s(approx (+ ( (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) (.f64 #s(literal 2 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))) #s(literal 2 binary64)))
(/.f64 (neg.f64 (.f64 c0 #s(approx (+ ( (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) (.f64 #s(literal 2 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))))) (neg.f64 (*.f64 w #s(literal 2 binary64))))
(/.f64 (.f64 c0 #s(approx (+ ( (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) (.f64 #s(literal 2 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))))) (*.f64 w #s(literal 2 binary64)))
(.f64 c0 #s(approx (+ ( (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) (.f64 #s(literal 2 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) (.f64 #s(literal 2 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))))
(.f64 #s(literal 2 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))
(.f64 (/.f64 c0 (.f64 D D)) (/.f64 (.f64 d d) (.f64 h w)))
(/.f64 (neg.f64 (.f64 c0 (.f64 d d))) (neg.f64 (.f64 (.f64 D D) (*.f64 h w))))
(/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (*.f64 h w)))
(.f64 c0 (.f64 d d))
(*.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 D D) (*.f64 h w))
(*.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 w #s(literal 2 binary64))
(.f64 (/.f64 c0 (.f64 #s(literal 2 binary64) w)) #s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (.f64 c0 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (ratio-of-squares.f64 D c0) (.f64 (/.f64 (.f64 M M) d) (/.f64 (.f64 h w) d)))) (.f64 #s(literal 2 binary64) (.f64 (/.f64 d (.f64 D D)) (/.f64 d (.f64 h w))))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (.f64 c0 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (ratio-of-squares.f64 D c0) (.f64 (/.f64 (.f64 M M) d) (/.f64 (.f64 h w) d)))) (.f64 #s(literal 2 binary64) (.f64 (/.f64 d (.f64 D D)) (/.f64 d (.f64 h w)))))))
(.f64 c0 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (ratio-of-squares.f64 D c0) (.f64 (/.f64 (.f64 M M) d) (/.f64 (.f64 h w) d)))) (.f64 #s(literal 2 binary64) (.f64 (/.f64 d (.f64 D D)) (/.f64 d (.f64 h w))))))
(/.f64 (+.f64 (pow.f64 (.f64 #s(literal -1/2 binary64) (.f64 (ratio-of-squares.f64 D c0) (.f64 (/.f64 (.f64 M M) d) (/.f64 (.f64 h w) d)))) #s(literal 3 binary64)) (pow.f64 (.f64 #s(literal 2 binary64) (.f64 (/.f64 d (.f64 D D)) (/.f64 d (.f64 h w)))) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 #s(literal -1/2 binary64) (.f64 (ratio-of-squares.f64 D c0) (.f64 (/.f64 (.f64 M M) d) (/.f64 (.f64 h w) d)))) (.f64 #s(literal -1/2 binary64) (.f64 (ratio-of-squares.f64 D c0) (.f64 (/.f64 (.f64 M M) d) (/.f64 (.f64 h w) d))))) (-.f64 (.f64 (.f64 #s(literal 2 binary64) (.f64 (/.f64 d (.f64 D D)) (/.f64 d (.f64 h w)))) (.f64 #s(literal 2 binary64) (.f64 (/.f64 d (.f64 D D)) (/.f64 d (.f64 h w))))) (.f64 (.f64 #s(literal -1/2 binary64) (.f64 (ratio-of-squares.f64 D c0) (.f64 (/.f64 (.f64 M M) d) (/.f64 (.f64 h w) d)))) (.f64 #s(literal 2 binary64) (.f64 (/.f64 d (.f64 D D)) (/.f64 d (*.f64 h w))))))))
(+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (ratio-of-squares.f64 D c0) (.f64 (/.f64 (.f64 M M) d) (/.f64 (.f64 h w) d)))) (.f64 #s(literal 2 binary64) (.f64 (/.f64 d (.f64 D D)) (/.f64 d (*.f64 h w)))))
(.f64 #s(literal -1/2 binary64) (.f64 (ratio-of-squares.f64 D c0) (.f64 (/.f64 (.f64 M M) d) (/.f64 (*.f64 h w) d))))
#s(literal -1/2 binary64)
(.f64 (ratio-of-squares.f64 D c0) (.f64 (/.f64 (.f64 M M) d) (/.f64 (.f64 h w) d)))
(/.f64 (neg.f64 (.f64 (.f64 D D) (.f64 (.f64 M M) (.f64 h w)))) (neg.f64 (pow.f64 (.f64 c0 d) #s(literal 2 binary64))))
(/.f64 (.f64 (.f64 D D) (.f64 (.f64 M M) (.f64 h w))) (pow.f64 (.f64 c0 d) #s(literal 2 binary64)))
(*.f64 (/.f64 D c0) (/.f64 D c0))
(ratio-of-squares.f64 (neg.f64 D) (neg.f64 c0))
(ratio-of-squares.f64 (neg.f64 D) (fabs.f64 c0))
(ratio-of-squares.f64 (neg.f64 D) c0)
(ratio-of-squares.f64 (fabs.f64 D) (neg.f64 c0))
(ratio-of-squares.f64 (fabs.f64 D) (fabs.f64 c0))
(ratio-of-squares.f64 (fabs.f64 D) c0)
(ratio-of-squares.f64 D (neg.f64 c0))
(ratio-of-squares.f64 D (fabs.f64 c0))
(ratio-of-squares.f64 D c0)
(/.f64 (neg.f64 (.f64 D D)) (neg.f64 (.f64 c0 c0)))
(/.f64 (.f64 D D) (.f64 c0 c0))
(.f64 (/.f64 (.f64 M M) d) (/.f64 (*.f64 h w) d))
(/.f64 (neg.f64 (.f64 (.f64 M M) (.f64 h w))) (neg.f64 (.f64 d d)))
(/.f64 (.f64 (.f64 M M) (.f64 h w)) (.f64 d d))
(.f64 (.f64 M M) (*.f64 h w))
(*.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)))
M
(.f64 #s(literal 2 binary64) (.f64 (/.f64 d (.f64 D D)) (/.f64 d (.f64 h w))))
(.f64 (/.f64 d (.f64 D D)) (/.f64 d (*.f64 h w)))
(/.f64 (neg.f64 (.f64 d d)) (neg.f64 (.f64 (.f64 D D) (.f64 h w))))
(/.f64 (.f64 d d) (.f64 (.f64 D D) (.f64 h w)))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (/.f64 #s(approx (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (.f64 h (+.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 D D) (pow.f64 (.f64 M w) #s(literal 2 binary64))) (.f64 d d))) (.f64 (ratio-of-squares.f64 c0 D) (ratio-of-squares.f64 d h))))) (.f64 w w)))
(/.f64 (neg.f64 #s(approx (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (.f64 h (+.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 D D) (pow.f64 (.f64 M w) #s(literal 2 binary64))) (.f64 d d))) (.f64 (ratio-of-squares.f64 c0 D) (ratio-of-squares.f64 d h)))))) (neg.f64 (.f64 w w)))
(/.f64 #s(approx (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (.f64 h (+.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 D D) (pow.f64 (.f64 M w) #s(literal 2 binary64))) (.f64 d d))) (.f64 (ratio-of-squares.f64 c0 D) (ratio-of-squares.f64 d h))))) (.f64 w w))
#s(approx (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (.f64 h (+.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 D D) (pow.f64 (.f64 M w) #s(literal 2 binary64))) (.f64 d d))) (*.f64 (ratio-of-squares.f64 c0 D) (ratio-of-squares.f64 d h)))))
(.f64 h (+.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 D D) (pow.f64 (.f64 M w) #s(literal 2 binary64))) (.f64 d d))) (*.f64 (ratio-of-squares.f64 c0 D) (ratio-of-squares.f64 d h))))
(/.f64 (+.f64 (pow.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 D D) (pow.f64 (.f64 M w) #s(literal 2 binary64))) (.f64 d d))) #s(literal 3 binary64)) (pow.f64 (.f64 (ratio-of-squares.f64 c0 D) (ratio-of-squares.f64 d h)) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 D D) (pow.f64 (.f64 M w) #s(literal 2 binary64))) (.f64 d d))) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 D D) (pow.f64 (.f64 M w) #s(literal 2 binary64))) (.f64 d d)))) (-.f64 (.f64 (.f64 (ratio-of-squares.f64 c0 D) (ratio-of-squares.f64 d h)) (.f64 (ratio-of-squares.f64 c0 D) (ratio-of-squares.f64 d h))) (.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 D D) (pow.f64 (.f64 M w) #s(literal 2 binary64))) (.f64 d d))) (*.f64 (ratio-of-squares.f64 c0 D) (ratio-of-squares.f64 d h))))))
(+.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 D D) (pow.f64 (.f64 M w) #s(literal 2 binary64))) (.f64 d d))) (.f64 (ratio-of-squares.f64 c0 D) (ratio-of-squares.f64 d h)))
(.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 D D) (pow.f64 (.f64 M w) #s(literal 2 binary64))) (*.f64 d d)))
#s(literal -1/4 binary64)
(.f64 (/.f64 (.f64 D D) d) (/.f64 (pow.f64 (*.f64 M w) #s(literal 2 binary64)) d))
(/.f64 (neg.f64 (.f64 (.f64 D D) (pow.f64 (.f64 M w) #s(literal 2 binary64)))) (neg.f64 (.f64 d d)))
(/.f64 (.f64 (.f64 D D) (pow.f64 (.f64 M w) #s(literal 2 binary64))) (.f64 d d))
(.f64 (.f64 D D) (pow.f64 (*.f64 M w) #s(literal 2 binary64)))
(.f64 (.f64 M w) (*.f64 M w))
(.f64 (.f64 M M) (*.f64 w w))
(pow.f64 (*.f64 M w) #s(literal 2 binary64))
(exp.f64 (.f64 (log.f64 (.f64 M w)) #s(literal 2 binary64)))
(*.f64 M w)
(*.f64 (ratio-of-squares.f64 c0 D) (ratio-of-squares.f64 d h))
(/.f64 (neg.f64 (pow.f64 (.f64 c0 d) #s(literal 2 binary64))) (neg.f64 (pow.f64 (.f64 D h) #s(literal 2 binary64))))
(/.f64 (pow.f64 (.f64 c0 d) #s(literal 2 binary64)) (pow.f64 (.f64 D h) #s(literal 2 binary64)))
(*.f64 (/.f64 c0 D) (/.f64 c0 D))
(ratio-of-squares.f64 (neg.f64 c0) (neg.f64 D))
(ratio-of-squares.f64 (neg.f64 c0) (fabs.f64 D))
(ratio-of-squares.f64 (neg.f64 c0) D)
(ratio-of-squares.f64 (fabs.f64 c0) (neg.f64 D))
(ratio-of-squares.f64 (fabs.f64 c0) (fabs.f64 D))
(ratio-of-squares.f64 (fabs.f64 c0) D)
(ratio-of-squares.f64 c0 (neg.f64 D))
(ratio-of-squares.f64 c0 (fabs.f64 D))
(ratio-of-squares.f64 c0 D)
(/.f64 (neg.f64 (.f64 c0 c0)) (neg.f64 (.f64 D D)))
(/.f64 (.f64 c0 c0) (.f64 D D))
(*.f64 (/.f64 d h) (/.f64 d h))
(ratio-of-squares.f64 (neg.f64 d) (neg.f64 h))
(ratio-of-squares.f64 (neg.f64 d) (fabs.f64 h))
(ratio-of-squares.f64 (neg.f64 d) h)
(ratio-of-squares.f64 (fabs.f64 d) (neg.f64 h))
(ratio-of-squares.f64 (fabs.f64 d) (fabs.f64 h))
(ratio-of-squares.f64 (fabs.f64 d) h)
(ratio-of-squares.f64 d (neg.f64 h))
(ratio-of-squares.f64 d (fabs.f64 h))
(ratio-of-squares.f64 d h)
(/.f64 (neg.f64 (.f64 d d)) (neg.f64 (.f64 h h)))
(/.f64 (.f64 d d) (.f64 h h))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 M (*.f64 c0 (sqrt.f64 #s(literal -1 binary64)))) w)))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (.f64 c0 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 M (sqrt.f64 #s(literal -1 binary64))) w)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h (.f64 w w))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (.f64 c0 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 M (sqrt.f64 #s(literal -1 binary64))) w)) (.f64 c0 (+.f64 (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 c0 (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 M (.f64 (.f64 h h) (.f64 (pow.f64 w #s(literal 3 binary64)) (sqrt.f64 #s(literal -1 binary64)))))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 d d) (.f64 (.f64 D D) (.f64 h (.f64 w w))))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (.f64 c0 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 M (sqrt.f64 #s(literal -1 binary64))) w)) (.f64 c0 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 d d) (.f64 (.f64 D D) (.f64 h (.f64 w w))))) (.f64 c0 (+.f64 (.f64 #s(literal -1/16 binary64) (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 8 binary64))) (/.f64 (pow.f64 d #s(literal 8 binary64)) (.f64 (pow.f64 M #s(literal 3 binary64)) (.f64 (pow.f64 h #s(literal 4 binary64)) (.f64 (pow.f64 w #s(literal 5 binary64)) (pow.f64 #s(literal -1 binary64) #s(literal 3/2 binary64)))))))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 M (.f64 (.f64 h h) (*.f64 (pow.f64 w #s(literal 3 binary64)) (sqrt.f64 #s(literal -1 binary64)))))))))))))))
#s(approx (/ c0 (* 2 w)) (*.f64 #s(literal 1/2 binary64) (/.f64 c0 w)))
#s(approx c0 c0)
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (*.f64 M (sqrt.f64 #s(literal -1 binary64))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (+.f64 (.f64 M (sqrt.f64 #s(literal -1 binary64))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (+.f64 (.f64 M (sqrt.f64 #s(literal -1 binary64))) (.f64 c0 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 c0 (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 M (.f64 (.f64 h h) (.f64 (.f64 w w) (sqrt.f64 #s(literal -1 binary64)))))))) (.f64 (/.f64 d (.f64 D D)) (/.f64 d (.f64 h w)))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (+.f64 (.f64 M (sqrt.f64 #s(literal -1 binary64))) (.f64 c0 (+.f64 (.f64 c0 (+.f64 (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 8 binary64))) (/.f64 (pow.f64 d #s(literal 8 binary64)) (.f64 (pow.f64 M #s(literal 3 binary64)) (.f64 (pow.f64 h #s(literal 4 binary64)) (.f64 (pow.f64 w #s(literal 4 binary64)) (pow.f64 #s(literal -1 binary64) #s(literal 3/2 binary64)))))))) (.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 M (.f64 (.f64 h h) (.f64 (.f64 w w) (sqrt.f64 #s(literal -1 binary64)))))))))) (.f64 (/.f64 d (.f64 D D)) (/.f64 d (*.f64 h w)))))))
#s(approx (* (* (/ c0 (* h w)) (* (/ d D) (/ d D))) 2) (.f64 #s(literal 2 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))))
#s(approx (* (/ c0 (* h w)) (* (/ d D) (/ d D))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (*.f64 h w))))
#s(approx (/ c0 (* h w)) (/.f64 c0 (*.f64 h w)))
#s(approx (* (* c0 c0) (/ (/ (* d d) (* D D)) (* (* w w) h))) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) (.f64 h (.f64 w w)))))
#s(approx (* c0 c0) (*.f64 c0 c0))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 M (*.f64 c0 (sqrt.f64 #s(literal -1 binary64)))) w)))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (.f64 c0 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 c0 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (.f64 M (.f64 w (sqrt.f64 #s(literal -1 binary64)))))) (/.f64 (.f64 d d) (.f64 (.f64 D D) (.f64 h (.f64 w w))))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 M (sqrt.f64 #s(literal -1 binary64))) w)))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (.f64 c0 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 M (sqrt.f64 #s(literal -1 binary64))) w)) (.f64 c0 (+.f64 (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 c0 M) (/.f64 (-.f64 (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 (pow.f64 D #s(literal 4 binary64)) (pow.f64 (.f64 h w) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64))))) (.f64 w (sqrt.f64 #s(literal -1 binary64)))))) (.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (.f64 M (.f64 w (sqrt.f64 #s(literal -1 binary64)))))) (/.f64 (.f64 d d) (.f64 (.f64 D D) (.f64 h (*.f64 w w)))))))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (.f64 c0 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 M (sqrt.f64 #s(literal -1 binary64))) w)) (.f64 c0 (+.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (.f64 M (.f64 w (sqrt.f64 #s(literal -1 binary64)))))) (/.f64 (.f64 d d) (.f64 (.f64 D D) (.f64 h (.f64 w w)))))) (.f64 c0 (+.f64 (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 c0 (pow.f64 M #s(literal 3 binary64))) (/.f64 (.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (-.f64 (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 (pow.f64 D #s(literal 4 binary64)) (pow.f64 (.f64 h w) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64)))))) (.f64 w (pow.f64 #s(literal -1 binary64) #s(literal 3/2 binary64)))))) (.f64 #s(literal 1/4 binary64) (/.f64 (-.f64 (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 (pow.f64 D #s(literal 4 binary64)) (pow.f64 (.f64 h w) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64))))) (.f64 M (*.f64 w (sqrt.f64 #s(literal -1 binary64)))))))))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (.f64 M (.f64 c0 (sqrt.f64 #s(literal -1 binary64)))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (.f64 c0 (+.f64 (.f64 M (sqrt.f64 #s(literal -1 binary64))) (.f64 c0 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (.f64 M (sqrt.f64 #s(literal -1 binary64))))) (.f64 (/.f64 d (.f64 D D)) (/.f64 d (*.f64 h w))))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (.f64 c0 (+.f64 (.f64 M (sqrt.f64 #s(literal -1 binary64))) (.f64 c0 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 c0 M) (/.f64 (-.f64 (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 (pow.f64 D #s(literal 4 binary64)) (pow.f64 (.f64 h w) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64))))) (sqrt.f64 #s(literal -1 binary64))))) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (.f64 M (sqrt.f64 #s(literal -1 binary64))))) (.f64 (/.f64 d (.f64 D D)) (/.f64 d (*.f64 h w)))))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (.f64 c0 (+.f64 (.f64 M (sqrt.f64 #s(literal -1 binary64))) (.f64 c0 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (.f64 M (sqrt.f64 #s(literal -1 binary64))))) (+.f64 (.f64 c0 (+.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 c0 (.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (-.f64 (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 (pow.f64 D #s(literal 4 binary64)) (pow.f64 (.f64 h w) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64))))))) (pow.f64 (.f64 M (sqrt.f64 #s(literal -1 binary64))) #s(literal 3 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 (pow.f64 D #s(literal 4 binary64)) (pow.f64 (.f64 h w) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64))))) (.f64 M (sqrt.f64 #s(literal -1 binary64))))))) (.f64 (/.f64 d (.f64 D D)) (/.f64 d (*.f64 h w)))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) (*.f64 M (sqrt.f64 #s(literal -1 binary64))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) (+.f64 (.f64 M (sqrt.f64 #s(literal -1 binary64))) (.f64 c0 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (.f64 M (sqrt.f64 #s(literal -1 binary64))))) (.f64 (/.f64 d (.f64 D D)) (/.f64 d (.f64 h w)))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) (+.f64 (.f64 M (sqrt.f64 #s(literal -1 binary64))) (.f64 c0 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 c0 M) (/.f64 (-.f64 (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 (pow.f64 D #s(literal 4 binary64)) (pow.f64 (.f64 h w) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64))))) (sqrt.f64 #s(literal -1 binary64))))) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (.f64 M (sqrt.f64 #s(literal -1 binary64))))) (.f64 (/.f64 d (.f64 D D)) (/.f64 d (.f64 h w))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) (+.f64 (.f64 M (sqrt.f64 #s(literal -1 binary64))) (.f64 c0 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (.f64 M (sqrt.f64 #s(literal -1 binary64))))) (+.f64 (.f64 c0 (+.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 c0 (.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (-.f64 (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 (pow.f64 D #s(literal 4 binary64)) (pow.f64 (.f64 h w) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64))))))) (pow.f64 (.f64 M (sqrt.f64 #s(literal -1 binary64))) #s(literal 3 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 (pow.f64 D #s(literal 4 binary64)) (pow.f64 (.f64 h w) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64))))) (.f64 M (sqrt.f64 #s(literal -1 binary64))))))) (.f64 (/.f64 d (.f64 D D)) (/.f64 d (.f64 h w))))))))
#s(approx (* 2 (/ (* c0 (* d d)) (* (* D D) (* h w)))) (.f64 #s(literal 2 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))))
#s(approx (/ (* c0 (* d d)) (* (* D D) (* h w))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (*.f64 h w))))
#s(approx (* c0 (* d d)) (.f64 c0 (.f64 d d)))
#s(approx (* c0 (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w)))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 D D) (.f64 (.f64 M M) (.f64 h w))) (.f64 c0 (.f64 d d)))))
#s(approx (* c0 (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w)))))) (/.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 D D) (.f64 (.f64 M M) (.f64 h w))) (.f64 d d))) (.f64 #s(literal 2 binary64) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) (*.f64 h w))))) c0))
#s(approx (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w))))) (.f64 #s(literal -1/2 binary64) (.f64 (ratio-of-squares.f64 D c0) (.f64 (/.f64 (.f64 M M) d) (/.f64 (*.f64 h w) d)))))
#s(approx (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w))))) (/.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 D D) (.f64 (.f64 M M) (.f64 h w))) (.f64 d d))) (.f64 #s(literal 2 binary64) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) (.f64 h w))))) (.f64 c0 c0)))
#s(approx (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (.f64 #s(literal -1/2 binary64) (.f64 (ratio-of-squares.f64 D c0) (.f64 (/.f64 (.f64 M M) d) (/.f64 (*.f64 h w) d)))))
#s(approx (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d))) (.f64 (ratio-of-squares.f64 D c0) (.f64 (/.f64 (.f64 M M) d) (/.f64 (.f64 h w) d))))
#s(approx (/ (* D D) (* c0 c0)) (ratio-of-squares.f64 D c0))
#s(approx (/ (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (* w w)) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 D D) (.f64 (.f64 M M) h)) (.f64 d d))))
#s(approx (/ (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (* w w)) (+.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 D D) (.f64 (.f64 M M) h)) (.f64 d d))) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) (.f64 h (.f64 w w))))))
#s(approx (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 D D) (.f64 (.f64 M M) (.f64 h (.f64 w w)))) (.f64 d d))))
#s(approx (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (+.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 D D) (.f64 (.f64 M M) (.f64 h (.f64 w w)))) (.f64 d d))) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) h))))
#s(approx (* h (+ (* -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h h))))) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 D D) (.f64 (.f64 M M) (.f64 h (.f64 w w)))) (.f64 d d))))
#s(approx (* h (+ (* -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h h))))) (+.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 D D) (.f64 (.f64 M M) (.f64 h (.f64 w w)))) (.f64 d d))) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) h))))
#s(approx (+ (* -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h h)))) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 D D) (pow.f64 (.f64 M w) #s(literal 2 binary64))) (*.f64 d d))))
#s(approx (+ (* -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h h)))) (+.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 D D) (pow.f64 (.f64 M w) #s(literal 2 binary64))) (.f64 d d))) (.f64 (ratio-of-squares.f64 c0 D) (ratio-of-squares.f64 d h))))
#s(approx (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h h))) (*.f64 (ratio-of-squares.f64 c0 D) (ratio-of-squares.f64 d h)))
#s(approx (/ (* c0 c0) (* D D)) (ratio-of-squares.f64 c0 D))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) (.f64 h (.f64 w w)))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (.f64 (.f64 c0 c0) (+.f64 (.f64 #s(literal -1/4 binary64) (.f64 (ratio-of-squares.f64 D c0) (/.f64 (.f64 (.f64 M M) h) (.f64 d d)))) (/.f64 (.f64 d d) (.f64 (.f64 D D) (.f64 h (.f64 w w)))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (.f64 (.f64 c0 c0) (+.f64 (.f64 #s(literal -1/4 binary64) (.f64 (ratio-of-squares.f64 D c0) (/.f64 (.f64 (.f64 M M) h) (.f64 d d)))) (+.f64 (.f64 #s(literal -1/16 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (pow.f64 c0 #s(literal 4 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (.f64 (pow.f64 h #s(literal 3 binary64)) (.f64 w w))) (pow.f64 d #s(literal 6 binary64))))) (/.f64 (.f64 d d) (.f64 (.f64 D D) (.f64 h (*.f64 w w))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (.f64 (.f64 c0 c0) (+.f64 (.f64 #s(literal -1/4 binary64) (.f64 (ratio-of-squares.f64 D c0) (/.f64 (.f64 (.f64 M M) h) (.f64 d d)))) (+.f64 (.f64 #s(literal -1/16 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (pow.f64 c0 #s(literal 4 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (.f64 (pow.f64 h #s(literal 3 binary64)) (.f64 w w))) (pow.f64 d #s(literal 6 binary64))))) (+.f64 (.f64 #s(literal -1/32 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 10 binary64)) (pow.f64 c0 #s(literal 6 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 6 binary64)) (.f64 (pow.f64 h #s(literal 5 binary64)) (pow.f64 w #s(literal 4 binary64)))) (pow.f64 d #s(literal 10 binary64))))) (/.f64 (.f64 d d) (.f64 (.f64 D D) (.f64 h (*.f64 w w)))))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (.f64 #s(literal 2 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (.f64 c0 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (ratio-of-squares.f64 D c0) (.f64 (/.f64 (.f64 M M) d) (/.f64 (.f64 h w) d)))) (.f64 #s(literal 2 binary64) (.f64 (/.f64 d (.f64 D D)) (/.f64 d (.f64 h w)))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (.f64 c0 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (ratio-of-squares.f64 D c0) (.f64 (/.f64 (.f64 M M) d) (/.f64 (.f64 h w) d)))) (+.f64 (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (pow.f64 c0 #s(literal 4 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (pow.f64 (.f64 h w) #s(literal 3 binary64))) (pow.f64 d #s(literal 6 binary64))))) (.f64 #s(literal 2 binary64) (.f64 (/.f64 d (.f64 D D)) (/.f64 d (.f64 h w))))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (.f64 c0 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (ratio-of-squares.f64 D c0) (.f64 (/.f64 (.f64 M M) d) (/.f64 (.f64 h w) d)))) (+.f64 (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (pow.f64 c0 #s(literal 4 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (pow.f64 (.f64 h w) #s(literal 3 binary64))) (pow.f64 d #s(literal 6 binary64))))) (+.f64 (.f64 #s(literal -1/16 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 10 binary64)) (pow.f64 c0 #s(literal 6 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 6 binary64)) (pow.f64 (.f64 h w) #s(literal 5 binary64))) (pow.f64 d #s(literal 10 binary64))))) (.f64 #s(literal 2 binary64) (.f64 (/.f64 d (.f64 D D)) (/.f64 d (.f64 h w)))))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) (.f64 h (.f64 w w)))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (.f64 (.f64 c0 c0) (+.f64 (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (.f64 D D) c0) (/.f64 (.f64 h (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))) (.f64 d d)))) (/.f64 (.f64 d d) (.f64 (.f64 D D) (.f64 h (*.f64 w w)))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (.f64 (.f64 c0 c0) (+.f64 (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (.f64 D D) c0) (/.f64 (.f64 h (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))) (.f64 d d)))) (+.f64 (.f64 #s(literal 1/4 binary64) (.f64 (ratio-of-squares.f64 D c0) (/.f64 (.f64 h (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 (.f64 h h) (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))) #s(literal 2 binary64)))) (pow.f64 d #s(literal 4 binary64)))))) (.f64 d d)))) (/.f64 (.f64 d d) (.f64 (.f64 D D) (.f64 h (*.f64 w w))))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (.f64 (.f64 c0 c0) (+.f64 (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (pow.f64 c0 #s(literal 3 binary64))) (/.f64 (.f64 (pow.f64 h #s(literal 3 binary64)) (.f64 (.f64 w w) (.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 (.f64 h h) (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))) #s(literal 2 binary64)))) (pow.f64 d #s(literal 4 binary64)))))))) (pow.f64 d #s(literal 6 binary64))))) (+.f64 (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (.f64 D D) c0) (/.f64 (.f64 h (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))) (.f64 d d)))) (+.f64 (.f64 #s(literal 1/4 binary64) (.f64 (ratio-of-squares.f64 D c0) (/.f64 (.f64 h (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 (.f64 h h) (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))) #s(literal 2 binary64)))) (pow.f64 d #s(literal 4 binary64)))))) (.f64 d d)))) (/.f64 (.f64 d d) (.f64 (.f64 D D) (.f64 h (.f64 w w)))))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (.f64 #s(literal 2 binary64) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) (.f64 h w)))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (.f64 (.f64 c0 c0) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 D D) c0) (/.f64 (.f64 h (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))))) (.f64 d d)))) (.f64 #s(literal 2 binary64) (.f64 (/.f64 d (.f64 D D)) (/.f64 d (*.f64 h w)))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (.f64 (.f64 c0 c0) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 D D) c0) (/.f64 (.f64 h (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))))) (.f64 d d)))) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (ratio-of-squares.f64 D c0) (/.f64 (.f64 h (.f64 w (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 (.f64 h h) (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))) #s(literal 2 binary64)))) (pow.f64 d #s(literal 4 binary64))))))) (.f64 d d)))) (.f64 #s(literal 2 binary64) (.f64 (/.f64 d (.f64 D D)) (/.f64 d (.f64 h w))))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (.f64 (.f64 c0 c0) (+.f64 (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (pow.f64 c0 #s(literal 3 binary64))) (/.f64 (.f64 (pow.f64 h #s(literal 3 binary64)) (.f64 (pow.f64 w #s(literal 3 binary64)) (.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 (.f64 h h) (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))) #s(literal 2 binary64)))) (pow.f64 d #s(literal 4 binary64)))))))) (pow.f64 d #s(literal 6 binary64))))) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 D D) c0) (/.f64 (.f64 h (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))))) (.f64 d d)))) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (ratio-of-squares.f64 D c0) (/.f64 (.f64 h (.f64 w (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 (.f64 h h) (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))) #s(literal 2 binary64)))) (pow.f64 d #s(literal 4 binary64))))))) (.f64 d d)))) (.f64 #s(literal 2 binary64) (.f64 (/.f64 d (.f64 D D)) (/.f64 d (.f64 h w)))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) (.f64 #s(literal 2 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) (.f64 c0 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 D D) c0) (/.f64 (.f64 h (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))))) (.f64 d d)))) (.f64 #s(literal 2 binary64) (.f64 (/.f64 d (.f64 D D)) (/.f64 d (.f64 h w)))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) (.f64 c0 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 D D) c0) (/.f64 (.f64 h (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))))) (.f64 d d)))) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (ratio-of-squares.f64 D c0) (/.f64 (.f64 h (.f64 w (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 (.f64 h h) (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))) #s(literal 2 binary64)))) (pow.f64 d #s(literal 4 binary64))))))) (.f64 d d)))) (.f64 #s(literal 2 binary64) (.f64 (/.f64 d (.f64 D D)) (/.f64 d (*.f64 h w))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) (.f64 c0 (+.f64 (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (pow.f64 c0 #s(literal 3 binary64))) (/.f64 (.f64 (pow.f64 h #s(literal 3 binary64)) (.f64 (pow.f64 w #s(literal 3 binary64)) (.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 (.f64 h h) (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))) #s(literal 2 binary64)))) (pow.f64 d #s(literal 4 binary64)))))))) (pow.f64 d #s(literal 6 binary64))))) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 D D) c0) (/.f64 (.f64 h (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))))) (.f64 d d)))) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (ratio-of-squares.f64 D c0) (/.f64 (.f64 h (.f64 w (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 (.f64 h h) (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))) #s(literal 2 binary64)))) (pow.f64 d #s(literal 4 binary64))))))) (.f64 d d)))) (.f64 #s(literal 2 binary64) (.f64 (/.f64 d (.f64 D D)) (/.f64 d (*.f64 h w)))))))))
#s(approx (* c0 (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w)))))) (.f64 #s(literal 2 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))))
#s(approx (* c0 (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w)))))) (.f64 c0 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (ratio-of-squares.f64 D c0) (.f64 (/.f64 (.f64 M M) d) (/.f64 (.f64 h w) d)))) (.f64 #s(literal 2 binary64) (.f64 (/.f64 d (.f64 D D)) (/.f64 d (.f64 h w)))))))
#s(approx (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w))))) (.f64 #s(literal 2 binary64) (.f64 (/.f64 d (.f64 D D)) (/.f64 d (.f64 h w)))))
#s(approx (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w))))) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (ratio-of-squares.f64 D c0) (.f64 (/.f64 (.f64 M M) d) (/.f64 (.f64 h w) d)))) (.f64 #s(literal 2 binary64) (.f64 (/.f64 d (.f64 D D)) (/.f64 d (*.f64 h w))))))
#s(approx (/ (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (* w w)) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) (.f64 h (.f64 w w)))))
#s(approx (/ (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (* w w)) (.f64 (.f64 c0 c0) (+.f64 (.f64 #s(literal -1/4 binary64) (.f64 (ratio-of-squares.f64 D c0) (/.f64 (.f64 (.f64 M M) h) (.f64 d d)))) (/.f64 (.f64 d d) (.f64 (.f64 D D) (.f64 h (.f64 w w)))))))
#s(approx (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) h)))
#s(approx (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (.f64 (.f64 c0 c0) (+.f64 (.f64 #s(literal -1/4 binary64) (.f64 (ratio-of-squares.f64 D c0) (/.f64 (.f64 (.f64 M M) (.f64 h (.f64 w w))) (.f64 d d)))) (/.f64 (.f64 d d) (.f64 (.f64 D D) h)))))
#s(approx (* h (+ (* -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h h))))) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) h)))
#s(approx (* h (+ (* -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h h))))) (.f64 (.f64 c0 c0) (+.f64 (.f64 #s(literal -1/4 binary64) (.f64 (ratio-of-squares.f64 D c0) (/.f64 (.f64 (.f64 M M) (.f64 h (.f64 w w))) (.f64 d d)))) (/.f64 (.f64 d d) (.f64 (.f64 D D) h)))))
#s(approx (+ (* -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h h)))) (*.f64 (ratio-of-squares.f64 c0 D) (ratio-of-squares.f64 d h)))
#s(approx (+ (* -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h h)))) (.f64 (.f64 c0 c0) (+.f64 (.f64 #s(literal -1/4 binary64) (.f64 (ratio-of-squares.f64 D c0) (ratio-of-squares.f64 (.f64 M w) d))) (/.f64 (.f64 d d) (pow.f64 (*.f64 D h) #s(literal 2 binary64))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 c0 c0) (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 d (.f64 D D)) (/.f64 d (.f64 h w)))) (.f64 (/.f64 d (.f64 D D)) (/.f64 d (.f64 h w))))) w)))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (.f64 (.f64 c0 c0) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 d (.f64 D D)) (/.f64 d (.f64 h w)))) (.f64 (/.f64 d (.f64 D D)) (/.f64 d (.f64 h w)))) w)) (.f64 #s(literal 1/4 binary64) (.f64 (ratio-of-squares.f64 D c0) (/.f64 (.f64 (.f64 M M) h) (*.f64 d d)))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (.f64 (.f64 c0 c0) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 d (.f64 D D)) (/.f64 d (.f64 h w)))) (.f64 (/.f64 d (.f64 D D)) (/.f64 d (.f64 h w)))) w)) (+.f64 (.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (pow.f64 c0 #s(literal 4 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (.f64 (pow.f64 h #s(literal 3 binary64)) (.f64 w w))) (pow.f64 d #s(literal 6 binary64))))) (.f64 #s(literal 1/4 binary64) (.f64 (ratio-of-squares.f64 D c0) (/.f64 (.f64 (.f64 M M) h) (.f64 d d))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (.f64 (.f64 c0 c0) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 d (.f64 D D)) (/.f64 d (.f64 h w)))) (.f64 (/.f64 d (.f64 D D)) (/.f64 d (.f64 h w)))) w)) (+.f64 (.f64 #s(literal 1/32 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 10 binary64)) (pow.f64 c0 #s(literal 6 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 6 binary64)) (.f64 (pow.f64 h #s(literal 5 binary64)) (pow.f64 w #s(literal 4 binary64)))) (pow.f64 d #s(literal 10 binary64))))) (+.f64 (.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (pow.f64 c0 #s(literal 4 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (.f64 (pow.f64 h #s(literal 3 binary64)) (.f64 w w))) (pow.f64 d #s(literal 6 binary64))))) (.f64 #s(literal 1/4 binary64) (.f64 (ratio-of-squares.f64 D c0) (/.f64 (.f64 (.f64 M M) h) (.f64 d d)))))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (.f64 #s(literal -1 binary64) (.f64 c0 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 d (.f64 D D)) (/.f64 d (.f64 h w)))) (.f64 (/.f64 d (.f64 D D)) (/.f64 d (*.f64 h w)))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (.f64 #s(literal -1 binary64) (.f64 c0 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 d (.f64 D D)) (/.f64 d (.f64 h w)))) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (ratio-of-squares.f64 D c0) (.f64 (/.f64 (.f64 M M) d) (/.f64 (.f64 h w) d)))) (.f64 (/.f64 d (.f64 D D)) (/.f64 d (.f64 h w))))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (.f64 #s(literal -1 binary64) (.f64 c0 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 d (.f64 D D)) (/.f64 d (.f64 h w)))) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (ratio-of-squares.f64 D c0) (.f64 (/.f64 (.f64 M M) d) (/.f64 (.f64 h w) d)))) (+.f64 (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (pow.f64 c0 #s(literal 4 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (pow.f64 (.f64 h w) #s(literal 3 binary64))) (pow.f64 d #s(literal 6 binary64))))) (.f64 (/.f64 d (.f64 D D)) (/.f64 d (.f64 h w)))))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (.f64 #s(literal -1 binary64) (.f64 c0 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 d (.f64 D D)) (/.f64 d (.f64 h w)))) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (ratio-of-squares.f64 D c0) (.f64 (/.f64 (.f64 M M) d) (/.f64 (.f64 h w) d)))) (+.f64 (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (pow.f64 c0 #s(literal 4 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (pow.f64 (.f64 h w) #s(literal 3 binary64))) (pow.f64 d #s(literal 6 binary64))))) (+.f64 (.f64 #s(literal -1/16 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 10 binary64)) (pow.f64 c0 #s(literal 6 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 6 binary64)) (pow.f64 (.f64 h w) #s(literal 5 binary64))) (pow.f64 d #s(literal 10 binary64))))) (.f64 (/.f64 d (.f64 D D)) (/.f64 d (.f64 h w))))))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 c0 c0) (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 d (.f64 D D)) (/.f64 d (.f64 h w)))) (.f64 (/.f64 d (.f64 D D)) (/.f64 d (.f64 h w))))) w)))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (.f64 (.f64 c0 c0) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 d (.f64 D D)) (/.f64 d (.f64 h w)))) (.f64 (/.f64 d (.f64 D D)) (/.f64 d (.f64 h w)))) w)) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (.f64 D D) c0) (/.f64 (.f64 h (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))) (.f64 d d)))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (.f64 (.f64 c0 c0) (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 D D) (.f64 h (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))))) (.f64 d d))) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (.f64 D D) c0) (/.f64 (.f64 h (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 (.f64 h h) (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))) #s(literal 2 binary64)))) (pow.f64 d #s(literal 4 binary64)))))) (.f64 d d))))) c0)) (.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 d (.f64 D D)) (/.f64 d (.f64 h w)))) (.f64 (/.f64 d (.f64 D D)) (/.f64 d (.f64 h w)))) w)))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (.f64 (.f64 c0 c0) (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 D D) (.f64 h (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 (.f64 h h) (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))) #s(literal 2 binary64)))) (pow.f64 d #s(literal 4 binary64))))))) (.f64 d d))) (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) c0) (/.f64 (.f64 (pow.f64 h #s(literal 3 binary64)) (.f64 (.f64 w w) (.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 (.f64 h h) (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))) #s(literal 2 binary64)))) (pow.f64 d #s(literal 4 binary64)))))))) (pow.f64 d #s(literal 6 binary64)))))) c0)) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 D D) (.f64 h (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))))) (.f64 d d)))) c0)) (.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 d (.f64 D D)) (/.f64 d (.f64 h w)))) (.f64 (/.f64 d (.f64 D D)) (/.f64 d (.f64 h w)))) w)))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (.f64 #s(literal -1 binary64) (.f64 (.f64 c0 c0) (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 d (.f64 D D)) (/.f64 d (.f64 h w)))) (.f64 (/.f64 d (.f64 D D)) (/.f64 d (.f64 h w)))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (.f64 (.f64 c0 c0) (+.f64 (.f64 #s(literal -1 binary64) (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 d (.f64 D D)) (/.f64 d (.f64 h w)))) (.f64 (/.f64 d (.f64 D D)) (/.f64 d (.f64 h w))))) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 D D) c0) (/.f64 (.f64 h (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))))) (*.f64 d d)))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (.f64 (.f64 c0 c0) (+.f64 (.f64 #s(literal -1 binary64) (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 d (.f64 D D)) (/.f64 d (.f64 h w)))) (.f64 (/.f64 d (.f64 D D)) (/.f64 d (.f64 h w))))) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 D D) (.f64 h (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))))) (.f64 d d))) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 D D) c0) (/.f64 (.f64 h (.f64 w (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 (.f64 h h) (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))) #s(literal 2 binary64)))) (pow.f64 d #s(literal 4 binary64))))))) (.f64 d d))))) c0)))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (.f64 (.f64 c0 c0) (+.f64 (.f64 #s(literal -1 binary64) (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 d (.f64 D D)) (/.f64 d (.f64 h w)))) (.f64 (/.f64 d (.f64 D D)) (/.f64 d (.f64 h w))))) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 D D) (.f64 h (.f64 w (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 (.f64 h h) (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))) #s(literal 2 binary64)))) (pow.f64 d #s(literal 4 binary64)))))))) (.f64 d d))) (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) c0) (/.f64 (.f64 (pow.f64 h #s(literal 3 binary64)) (.f64 (pow.f64 w #s(literal 3 binary64)) (.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 (.f64 h h) (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))) #s(literal 2 binary64)))) (pow.f64 d #s(literal 4 binary64)))))))) (pow.f64 d #s(literal 6 binary64)))))) c0)) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 D D) (.f64 h (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))))) (*.f64 d d)))) c0)))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) (.f64 #s(literal -1 binary64) (.f64 c0 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 d (.f64 D D)) (/.f64 d (.f64 h w)))) (.f64 (/.f64 d (.f64 D D)) (/.f64 d (*.f64 h w)))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) (.f64 #s(literal -1 binary64) (.f64 c0 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 d (.f64 D D)) (/.f64 d (.f64 h w)))) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 D D) c0) (/.f64 (.f64 h (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))))) (.f64 d d)))) (.f64 (/.f64 d (.f64 D D)) (/.f64 d (.f64 h w))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) (.f64 #s(literal -1 binary64) (.f64 c0 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 D D) c0) (/.f64 (.f64 h (.f64 w (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 (.f64 h h) (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))) #s(literal 2 binary64)))) (pow.f64 d #s(literal 4 binary64))))))) (.f64 d d)))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 D D) (.f64 h (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))))) (.f64 d d)))) c0)) (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 d (.f64 D D)) (/.f64 d (.f64 h w)))) (.f64 (/.f64 d (.f64 D D)) (/.f64 d (*.f64 h w))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) (.f64 #s(literal -1 binary64) (.f64 c0 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) c0) (/.f64 (.f64 (pow.f64 h #s(literal 3 binary64)) (.f64 (pow.f64 w #s(literal 3 binary64)) (.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 (.f64 h h) (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))) #s(literal 2 binary64)))) (pow.f64 d #s(literal 4 binary64)))))))) (pow.f64 d #s(literal 6 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 D D) (.f64 h (.f64 w (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 (.f64 h h) (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))) #s(literal 2 binary64)))) (pow.f64 d #s(literal 4 binary64)))))))) (.f64 d d)))) c0)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 D D) (.f64 h (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))))) (.f64 d d)))) c0)) (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 d (.f64 D D)) (/.f64 d (.f64 h w)))) (.f64 (/.f64 d (.f64 D D)) (/.f64 d (.f64 h w))))))))
#s(approx (* c0 (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w)))))) (.f64 #s(literal -1 binary64) (.f64 c0 (+.f64 (.f64 #s(literal -2 binary64) (.f64 (/.f64 d (.f64 D D)) (/.f64 d (.f64 h w)))) (.f64 #s(literal 1/2 binary64) (.f64 (ratio-of-squares.f64 D c0) (.f64 (/.f64 (.f64 M M) d) (/.f64 (*.f64 h w) d))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (/.f64 (+.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 D D) (.f64 (.f64 M M) (.f64 h (.f64 w w)))) (.f64 d d))) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) h))) (*.f64 w w)))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (/.f64 (+.f64 (.f64 (.f64 w w) (+.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 D D) (.f64 (.f64 M M) h)) (.f64 d d))) (.f64 #s(literal -1/16 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (.f64 c0 c0)) (/.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (.f64 (pow.f64 h #s(literal 3 binary64)) (.f64 w w))) (pow.f64 d #s(literal 6 binary64))))))) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) h))) (*.f64 w w)))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (/.f64 (+.f64 (.f64 (.f64 w w) (+.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 D D) (.f64 (.f64 M M) h)) (.f64 d d))) (.f64 (.f64 w w) (+.f64 (.f64 #s(literal -1/16 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (.f64 c0 c0)) (/.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (pow.f64 h #s(literal 3 binary64))) (pow.f64 d #s(literal 6 binary64))))) (.f64 #s(literal -1/32 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 10 binary64)) (pow.f64 c0 #s(literal 4 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 6 binary64)) (.f64 (pow.f64 h #s(literal 5 binary64)) (.f64 w w))) (pow.f64 d #s(literal 10 binary64))))))))) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) h))) (.f64 w w)))
#s(approx (* 2 w) (*.f64 #s(literal 2 binary64) w))
#s(approx w w)
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (/.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 D D) (.f64 (.f64 M M) (.f64 h (.f64 w w)))) (.f64 c0 (.f64 d d)))) (.f64 #s(literal 2 binary64) (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (*.f64 d d) h)))) w))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (/.f64 (+.f64 (.f64 #s(literal 2 binary64) (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (.f64 d d) h))) (.f64 (.f64 w w) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 D D) (.f64 (.f64 M M) h)) (.f64 c0 (.f64 d d)))) (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (pow.f64 c0 #s(literal 3 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (.f64 (pow.f64 h #s(literal 3 binary64)) (.f64 w w))) (pow.f64 d #s(literal 6 binary64)))))))) w))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (/.f64 (+.f64 (.f64 #s(literal 2 binary64) (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (.f64 d d) h))) (.f64 (.f64 w w) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 D D) (.f64 (.f64 M M) h)) (.f64 c0 (.f64 d d)))) (.f64 (.f64 w w) (+.f64 (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (pow.f64 c0 #s(literal 3 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (pow.f64 h #s(literal 3 binary64))) (pow.f64 d #s(literal 6 binary64))))) (.f64 #s(literal -1/16 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 10 binary64)) (pow.f64 c0 #s(literal 5 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 6 binary64)) (.f64 (pow.f64 h #s(literal 5 binary64)) (*.f64 w w))) (pow.f64 d #s(literal 10 binary64)))))))))) w))
#s(approx (* h w) (*.f64 h w))
#s(approx (/ (/ (* d d) (* D D)) (* (* w w) h)) (/.f64 (.f64 d d) (.f64 (.f64 D D) (.f64 h (*.f64 w w)))))
#s(approx (* (* w w) h) (.f64 h (.f64 w w)))
#s(approx (* w w) (*.f64 w w))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (/.f64 (+.f64 (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (.f64 D D) (.f64 h (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h)))))) (.f64 d d))) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) h))) (.f64 w w)))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (/.f64 (+.f64 (.f64 w (+.f64 (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (.f64 D D) (.f64 h (.f64 w (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 c0 c0)) (/.f64 (pow.f64 (.f64 h (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h)))) #s(literal 2 binary64)) (pow.f64 d #s(literal 4 binary64))))))))) (.f64 d d))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (.f64 D D) (.f64 h (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))))) (.f64 d d))))) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) h))) (*.f64 w w)))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (/.f64 (+.f64 (.f64 w (+.f64 (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (.f64 D D) (.f64 h (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))))) (.f64 d d))) (.f64 w (+.f64 (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (.f64 c0 c0)) (/.f64 (.f64 (pow.f64 h #s(literal 3 binary64)) (.f64 w (.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 c0 c0)) (/.f64 (pow.f64 (.f64 h (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h)))) #s(literal 2 binary64)) (pow.f64 d #s(literal 4 binary64))))))))) (pow.f64 d #s(literal 6 binary64))))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (.f64 D D) (.f64 h (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 c0 c0)) (/.f64 (pow.f64 (.f64 h (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h)))) #s(literal 2 binary64)) (pow.f64 d #s(literal 4 binary64)))))))) (.f64 d d))))))) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) h))) (*.f64 w w)))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (/.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 D D) (.f64 h (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h)))))) (.f64 d d))) (.f64 #s(literal 2 binary64) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) h)))) w))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (/.f64 (+.f64 (.f64 #s(literal 2 binary64) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) h))) (.f64 w (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 D D) (.f64 h (.f64 w (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 c0 c0)) (/.f64 (pow.f64 (.f64 h (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h)))) #s(literal 2 binary64)) (pow.f64 d #s(literal 4 binary64))))))))) (.f64 d d))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 D D) (.f64 h (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))))) (*.f64 d d)))))) w))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (/.f64 (+.f64 (.f64 #s(literal 2 binary64) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) h))) (.f64 w (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 D D) (.f64 h (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))))) (.f64 d d))) (.f64 w (+.f64 (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (.f64 c0 c0)) (/.f64 (.f64 (pow.f64 h #s(literal 3 binary64)) (.f64 w (.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 c0 c0)) (/.f64 (pow.f64 (.f64 h (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h)))) #s(literal 2 binary64)) (pow.f64 d #s(literal 4 binary64))))))))) (pow.f64 d #s(literal 6 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 D D) (.f64 h (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 c0 c0)) (/.f64 (pow.f64 (.f64 h (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h)))) #s(literal 2 binary64)) (pow.f64 d #s(literal 4 binary64)))))))) (*.f64 d d)))))))) w))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) (/.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 D D) c0) (/.f64 (.f64 h (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))))) (.f64 d d)))) (.f64 #s(literal 2 binary64) (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (*.f64 d d) h)))) w))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) (/.f64 (+.f64 (.f64 #s(literal 2 binary64) (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (.f64 d d) h))) (.f64 w (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 D D) c0) (/.f64 (.f64 h (.f64 w (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 c0 c0)) (/.f64 (pow.f64 (.f64 h (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h)))) #s(literal 2 binary64)) (pow.f64 d #s(literal 4 binary64)))))))) (.f64 d d)))) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 D D) c0) (/.f64 (.f64 h (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h)))) (.f64 d d))))))) w))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) (/.f64 (+.f64 (.f64 #s(literal 2 binary64) (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (.f64 d d) h))) (.f64 w (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 D D) c0) (/.f64 (.f64 h (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h)))) (.f64 d d)))) (.f64 w (+.f64 (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (pow.f64 c0 #s(literal 3 binary64))) (/.f64 (.f64 (pow.f64 h #s(literal 3 binary64)) (.f64 w (.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 c0 c0)) (/.f64 (pow.f64 (.f64 h (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h)))) #s(literal 2 binary64)) (pow.f64 d #s(literal 4 binary64))))))))) (pow.f64 d #s(literal 6 binary64))))) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 D D) c0) (/.f64 (.f64 h (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 c0 c0)) (/.f64 (pow.f64 (.f64 h (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h)))) #s(literal 2 binary64)) (pow.f64 d #s(literal 4 binary64))))))) (*.f64 d d))))))))) w))
#s(approx (* (* D D) (* h w)) (.f64 (.f64 D D) (*.f64 h w)))
#s(approx (* w 2) (*.f64 #s(literal 2 binary64) w))
#s(approx (* c0 (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w)))))) (/.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 D D) (.f64 (.f64 M M) (.f64 h (.f64 w w)))) (.f64 c0 (.f64 d d)))) (.f64 #s(literal 2 binary64) (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (*.f64 d d) h)))) w))
#s(approx (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w))))) (/.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (ratio-of-squares.f64 D c0) (/.f64 (.f64 (.f64 M M) (.f64 h (.f64 w w))) (.f64 d d)))) (.f64 #s(literal 2 binary64) (/.f64 (.f64 d d) (.f64 (*.f64 D D) h)))) w))
#s(approx (/ (* (* M M) (* h w)) (* d d)) (.f64 (/.f64 (.f64 M M) d) (/.f64 (*.f64 h w) d)))
#s(approx (* (* M M) (* h w)) (.f64 (.f64 M M) (*.f64 h w)))
#s(approx (* 2 (/ (* d d) (* (* D D) (* h w)))) (.f64 #s(literal 2 binary64) (.f64 (/.f64 d (.f64 D D)) (/.f64 d (.f64 h w)))))
#s(approx (/ (* d d) (* (* D D) (* h w))) (.f64 (/.f64 d (.f64 D D)) (/.f64 d (*.f64 h w))))
#s(approx (/ (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (* w w)) (/.f64 (+.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 D D) (.f64 (.f64 M M) (.f64 h (.f64 w w)))) (.f64 d d))) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) h))) (*.f64 w w)))
#s(approx (* -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 D D) (pow.f64 (.f64 M w) #s(literal 2 binary64))) (*.f64 d d))))
#s(approx (/ (* (* D D) (pow (* M w) 2)) (* d d)) (/.f64 (.f64 (.f64 D D) (pow.f64 (.f64 M w) #s(literal 2 binary64))) (.f64 d d)))
#s(approx (* (* D D) (pow (* M w) 2)) (.f64 (.f64 D D) (pow.f64 (*.f64 M w) #s(literal 2 binary64))))
#s(approx (pow (* M w) 2) (pow.f64 (*.f64 M w) #s(literal 2 binary64)))
#s(approx (* M w) (*.f64 M w))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (/.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 M (.f64 c0 (sqrt.f64 #s(literal -1 binary64))))) (.f64 #s(literal 1/2 binary64) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) (*.f64 h w))))) w))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (/.f64 (+.f64 (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (pow.f64 c0 #s(literal 3 binary64)) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 M (.f64 (.f64 h h) (.f64 (.f64 w w) (sqrt.f64 #s(literal -1 binary64)))))))) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 M (.f64 c0 (sqrt.f64 #s(literal -1 binary64))))) (.f64 #s(literal 1/2 binary64) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) (.f64 h w)))))) w))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (/.f64 (+.f64 (.f64 #s(literal -1/16 binary64) (.f64 (/.f64 (pow.f64 c0 #s(literal 5 binary64)) (pow.f64 D #s(literal 8 binary64))) (/.f64 (pow.f64 d #s(literal 8 binary64)) (.f64 (pow.f64 M #s(literal 3 binary64)) (.f64 (pow.f64 h #s(literal 4 binary64)) (.f64 (pow.f64 w #s(literal 4 binary64)) (pow.f64 #s(literal -1 binary64) #s(literal 3/2 binary64)))))))) (+.f64 (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (pow.f64 c0 #s(literal 3 binary64)) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 M (.f64 (.f64 h h) (.f64 (.f64 w w) (sqrt.f64 #s(literal -1 binary64)))))))) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 M (.f64 c0 (sqrt.f64 #s(literal -1 binary64))))) (.f64 #s(literal 1/2 binary64) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) (*.f64 h w))))))) w))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 M (.f64 (.f64 h h) (.f64 (.f64 w w) (sqrt.f64 #s(literal -1 binary64)))))))) (+.f64 (.f64 M (sqrt.f64 #s(literal -1 binary64))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (+.f64 (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (pow.f64 c0 #s(literal 4 binary64)) (pow.f64 D #s(literal 8 binary64))) (/.f64 (pow.f64 d #s(literal 8 binary64)) (.f64 (pow.f64 M #s(literal 3 binary64)) (.f64 (pow.f64 h #s(literal 4 binary64)) (.f64 (pow.f64 w #s(literal 4 binary64)) (pow.f64 #s(literal -1 binary64) #s(literal 3/2 binary64)))))))) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 M (.f64 (.f64 h h) (.f64 (.f64 w w) (sqrt.f64 #s(literal -1 binary64)))))))) (+.f64 (.f64 M (sqrt.f64 #s(literal -1 binary64))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (*.f64 h w)))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (/.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 M (.f64 c0 (sqrt.f64 #s(literal -1 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 c0 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 M (sqrt.f64 #s(literal -1 binary64))))) (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (*.f64 d d) h)))) w))) w))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (/.f64 (+.f64 (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 c0 M) (/.f64 (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 h h))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64))))) (.f64 (.f64 w w) (sqrt.f64 #s(literal -1 binary64)))))) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 M (.f64 c0 (sqrt.f64 #s(literal -1 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 c0 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 M (sqrt.f64 #s(literal -1 binary64))))) (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (.f64 d d) h)))) w)))) w))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (/.f64 (+.f64 (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 c0 (pow.f64 M #s(literal 3 binary64))) (/.f64 (.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 h h))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64)))))) (pow.f64 (.f64 w (sqrt.f64 #s(literal -1 binary64))) #s(literal 3 binary64))))) (+.f64 (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 c0 M) (/.f64 (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 h h))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64))))) (.f64 (.f64 w w) (sqrt.f64 #s(literal -1 binary64)))))) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 M (.f64 c0 (sqrt.f64 #s(literal -1 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 c0 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 M (sqrt.f64 #s(literal -1 binary64))))) (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (.f64 d d) h)))) w))))) w))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (+.f64 (.f64 M (.f64 c0 (sqrt.f64 #s(literal -1 binary64)))) (/.f64 (.f64 c0 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 M (sqrt.f64 #s(literal -1 binary64))))) (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (*.f64 d d) h)))) w)))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 c0 M) (/.f64 (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 h h))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64))))) (.f64 (.f64 w w) (sqrt.f64 #s(literal -1 binary64)))))) (+.f64 (.f64 M (.f64 c0 (sqrt.f64 #s(literal -1 binary64)))) (/.f64 (.f64 c0 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 M (sqrt.f64 #s(literal -1 binary64))))) (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (.f64 d d) h)))) w))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (+.f64 (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 c0 (pow.f64 M #s(literal 3 binary64))) (/.f64 (.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 h h))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64)))))) (pow.f64 (.f64 w (sqrt.f64 #s(literal -1 binary64))) #s(literal 3 binary64))))) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 c0 M) (/.f64 (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 h h))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64))))) (.f64 (.f64 w w) (sqrt.f64 #s(literal -1 binary64)))))) (+.f64 (.f64 M (.f64 c0 (sqrt.f64 #s(literal -1 binary64)))) (/.f64 (.f64 c0 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 M (sqrt.f64 #s(literal -1 binary64))))) (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (.f64 d d) h)))) w)))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 M (.f64 w (sqrt.f64 #s(literal -1 binary64)))))) (+.f64 (.f64 M (sqrt.f64 #s(literal -1 binary64))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 M (.f64 w (sqrt.f64 #s(literal -1 binary64)))))) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 h h))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64))))) (.f64 M (.f64 (.f64 w w) (sqrt.f64 #s(literal -1 binary64)))))) (+.f64 (.f64 M (sqrt.f64 #s(literal -1 binary64))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (*.f64 h w)))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) (+.f64 (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (pow.f64 M #s(literal 3 binary64))) (/.f64 (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 h h))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64))))) (pow.f64 (.f64 w (sqrt.f64 #s(literal -1 binary64))) #s(literal 3 binary64))))) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 M (.f64 w (sqrt.f64 #s(literal -1 binary64)))))) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 h h))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64))))) (.f64 M (.f64 (.f64 w w) (sqrt.f64 #s(literal -1 binary64)))))) (+.f64 (.f64 M (sqrt.f64 #s(literal -1 binary64))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))))))
#s(approx (* c0 (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w)))))) (.f64 w (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 D D) (.f64 (.f64 M M) h)) (.f64 c0 (.f64 d d)))) (.f64 #s(literal 2 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h (*.f64 w w))))))))
#s(approx (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w))))) (.f64 w (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (ratio-of-squares.f64 D c0) (/.f64 (.f64 (.f64 M M) h) (.f64 d d)))) (.f64 #s(literal 2 binary64) (/.f64 (.f64 d d) (.f64 (.f64 D D) (.f64 h (.f64 w w))))))))
#s(approx (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (.f64 (.f64 w w) (+.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 D D) (.f64 (.f64 M M) h)) (.f64 d d))) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) (.f64 h (.f64 w w)))))))
#s(approx (* h (+ (* -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h h))))) (.f64 (.f64 w w) (+.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 D D) (.f64 (.f64 M M) h)) (.f64 d d))) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) (.f64 h (.f64 w w)))))))
#s(approx (+ (* -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h h)))) (.f64 (.f64 w w) (+.f64 (.f64 #s(literal -1/4 binary64) (ratio-of-squares.f64 (.f64 D M) d)) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) (pow.f64 (*.f64 h w) #s(literal 2 binary64)))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 M (.f64 c0 (sqrt.f64 #s(literal -1 binary64))))) (.f64 #s(literal -1/2 binary64) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) (.f64 h w))))) w)))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (pow.f64 c0 #s(literal 3 binary64)) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 M (.f64 (.f64 h h) (.f64 w (sqrt.f64 #s(literal -1 binary64)))))))) (.f64 #s(literal 1/2 binary64) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) h)))) w)) (.f64 #s(literal -1/2 binary64) (.f64 M (.f64 c0 (sqrt.f64 #s(literal -1 binary64)))))) w)))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (pow.f64 c0 #s(literal 3 binary64)) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 M (.f64 (.f64 h h) (sqrt.f64 #s(literal -1 binary64))))))) (.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (pow.f64 c0 #s(literal 5 binary64)) (pow.f64 D #s(literal 8 binary64))) (/.f64 (pow.f64 d #s(literal 8 binary64)) (.f64 (pow.f64 M #s(literal 3 binary64)) (.f64 (pow.f64 h #s(literal 4 binary64)) (.f64 (.f64 w w) (pow.f64 #s(literal -1 binary64) #s(literal 3/2 binary64))))))))) w)) (.f64 #s(literal 1/2 binary64) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) h)))) w)) (.f64 #s(literal -1/2 binary64) (.f64 M (.f64 c0 (sqrt.f64 #s(literal -1 binary64)))))) w)))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (.f64 d d) h))) (.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 M (.f64 (.f64 h h) (.f64 w (sqrt.f64 #s(literal -1 binary64))))))))) w)) (*.f64 M (sqrt.f64 #s(literal -1 binary64)))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (.f64 d d) h))) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (pow.f64 c0 #s(literal 4 binary64)) (pow.f64 D #s(literal 8 binary64))) (/.f64 (pow.f64 d #s(literal 8 binary64)) (.f64 (pow.f64 M #s(literal 3 binary64)) (.f64 (pow.f64 h #s(literal 4 binary64)) (.f64 (.f64 w w) (pow.f64 #s(literal -1 binary64) #s(literal 3/2 binary64)))))))) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 M (.f64 (.f64 h h) (sqrt.f64 #s(literal -1 binary64)))))))) w))) w)) (*.f64 M (sqrt.f64 #s(literal -1 binary64)))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 M (.f64 c0 (sqrt.f64 #s(literal -1 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 c0 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (.f64 d d) h))) (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (*.f64 M (sqrt.f64 #s(literal -1 binary64))))))) w))) w)))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 c0 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (.f64 d d) h))) (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 M (sqrt.f64 #s(literal -1 binary64)))))))) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 c0 M) (/.f64 (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 h h))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64))))) (.f64 w (sqrt.f64 #s(literal -1 binary64))))))) w)) (.f64 #s(literal -1/2 binary64) (.f64 M (.f64 c0 (sqrt.f64 #s(literal -1 binary64)))))) w)))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 c0 M) (/.f64 (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 h h))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64))))) (sqrt.f64 #s(literal -1 binary64))))) (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 c0 (pow.f64 M #s(literal 3 binary64))) (/.f64 (.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 h h))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64)))))) (.f64 w (pow.f64 #s(literal -1 binary64) #s(literal 3/2 binary64))))))) w)) (.f64 #s(literal -1/2 binary64) (.f64 c0 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (.f64 d d) h))) (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 M (sqrt.f64 #s(literal -1 binary64))))))))) w)) (.f64 #s(literal -1/2 binary64) (.f64 M (.f64 c0 (sqrt.f64 #s(literal -1 binary64)))))) w)))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (.f64 d d) h))) (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 M (sqrt.f64 #s(literal -1 binary64))))))) w)) (.f64 M (*.f64 c0 (sqrt.f64 #s(literal -1 binary64))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (/.f64 c0 M) (/.f64 (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 h h))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64))))) (.f64 w (sqrt.f64 #s(literal -1 binary64)))))) (.f64 c0 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (.f64 d d) h))) (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 M (sqrt.f64 #s(literal -1 binary64)))))))) w)) (.f64 M (*.f64 c0 (sqrt.f64 #s(literal -1 binary64))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 c0 (pow.f64 M #s(literal 3 binary64))) (/.f64 (.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 h h))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64)))))) (.f64 w (pow.f64 #s(literal -1 binary64) #s(literal 3/2 binary64)))))) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 c0 M) (/.f64 (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 h h))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64))))) (sqrt.f64 #s(literal -1 binary64)))))) w)) (.f64 c0 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (.f64 d d) h))) (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 M (sqrt.f64 #s(literal -1 binary64)))))))) w)) (.f64 M (*.f64 c0 (sqrt.f64 #s(literal -1 binary64))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (.f64 d d) h))) (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 M (sqrt.f64 #s(literal -1 binary64)))))) w)) (*.f64 M (sqrt.f64 #s(literal -1 binary64)))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (.f64 d d) h))) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 h h))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64))))) (.f64 M (.f64 w (sqrt.f64 #s(literal -1 binary64)))))) (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 M (sqrt.f64 #s(literal -1 binary64))))))) w)) (*.f64 M (sqrt.f64 #s(literal -1 binary64)))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (.f64 d d) h))) (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (pow.f64 M #s(literal 3 binary64))) (/.f64 (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 h h))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64))))) (.f64 w (pow.f64 #s(literal -1 binary64) #s(literal 3/2 binary64)))))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 h h))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64))))) (.f64 M (sqrt.f64 #s(literal -1 binary64)))))) w)) (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 M (sqrt.f64 #s(literal -1 binary64))))))) w)) (.f64 M (sqrt.f64 #s(literal -1 binary64)))))
#s(approx (* c0 (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w)))))) (.f64 #s(literal -1 binary64) (.f64 w (+.f64 (.f64 #s(literal -2 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h (.f64 w w))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 D D) (.f64 (.f64 M M) h)) (.f64 c0 (.f64 d d))))))))
#s(approx (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w))))) (.f64 #s(literal -1 binary64) (.f64 w (+.f64 (.f64 #s(literal -2 binary64) (/.f64 (.f64 d d) (.f64 (.f64 D D) (.f64 h (.f64 w w))))) (.f64 #s(literal 1/2 binary64) (.f64 (ratio-of-squares.f64 D c0) (/.f64 (.f64 (.f64 M M) h) (*.f64 d d))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (/.f64 (+.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 D D) (pow.f64 (.f64 M h) #s(literal 2 binary64))) (.f64 d d))) (.f64 (ratio-of-squares.f64 c0 D) (ratio-of-squares.f64 d w))) h))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (/.f64 (+.f64 (.f64 (.f64 h h) (+.f64 (.f64 #s(literal -1/4 binary64) (ratio-of-squares.f64 (.f64 D M) d)) (.f64 #s(literal -1/16 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (.f64 c0 c0)) (/.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (pow.f64 (.f64 h w) #s(literal 2 binary64))) (pow.f64 d #s(literal 6 binary64))))))) (.f64 (ratio-of-squares.f64 c0 D) (ratio-of-squares.f64 d w))) h))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (/.f64 (+.f64 (.f64 (.f64 h h) (+.f64 (.f64 #s(literal -1/4 binary64) (ratio-of-squares.f64 (.f64 D M) d)) (.f64 (.f64 h h) (+.f64 (.f64 #s(literal -1/16 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (.f64 c0 c0)) (/.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (.f64 w w)) (pow.f64 d #s(literal 6 binary64))))) (.f64 #s(literal -1/32 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 10 binary64)) (pow.f64 c0 #s(literal 4 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 6 binary64)) (.f64 (.f64 h h) (pow.f64 w #s(literal 4 binary64)))) (pow.f64 d #s(literal 10 binary64))))))))) (*.f64 (ratio-of-squares.f64 c0 D) (ratio-of-squares.f64 d w))) h))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (/.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 D D) (.f64 (.f64 M M) (.f64 (.f64 h h) w))) (.f64 c0 (.f64 d d)))) (.f64 #s(literal 2 binary64) (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (*.f64 d d) w)))) h))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (/.f64 (+.f64 (.f64 #s(literal 2 binary64) (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (.f64 d d) w))) (.f64 (.f64 h h) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 D D) (.f64 (.f64 M M) w)) (.f64 c0 (.f64 d d)))) (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (pow.f64 c0 #s(literal 3 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (.f64 (.f64 h h) (pow.f64 w #s(literal 3 binary64)))) (pow.f64 d #s(literal 6 binary64)))))))) h))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (/.f64 (+.f64 (.f64 #s(literal 2 binary64) (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (.f64 d d) w))) (.f64 (.f64 h h) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 D D) (.f64 (.f64 M M) w)) (.f64 c0 (.f64 d d)))) (.f64 (.f64 h h) (+.f64 (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (pow.f64 c0 #s(literal 3 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (pow.f64 w #s(literal 3 binary64))) (pow.f64 d #s(literal 6 binary64))))) (.f64 #s(literal -1/16 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 10 binary64)) (pow.f64 c0 #s(literal 5 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 6 binary64)) (.f64 (*.f64 h h) (pow.f64 w #s(literal 5 binary64)))) (pow.f64 d #s(literal 10 binary64)))))))))) h))
#s(approx h h)
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (/.f64 (+.f64 (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (.f64 D D) (.f64 h (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))))) (.f64 d d))) (*.f64 (ratio-of-squares.f64 c0 D) (ratio-of-squares.f64 d w))) h))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (/.f64 (+.f64 (.f64 h (+.f64 (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (.f64 D D) (.f64 h (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 c0 c0)) (/.f64 (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w)))) #s(literal 2 binary64)) (pow.f64 d #s(literal 4 binary64)))))))) (.f64 d d))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (.f64 D D) (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w)))) (.f64 d d))))) (*.f64 (ratio-of-squares.f64 c0 D) (ratio-of-squares.f64 d w))) h))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (/.f64 (+.f64 (.f64 h (+.f64 (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (.f64 D D) (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w)))) (.f64 d d))) (.f64 h (+.f64 (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (.f64 c0 c0)) (/.f64 (.f64 h (.f64 (.f64 w w) (.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 c0 c0)) (/.f64 (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w)))) #s(literal 2 binary64)) (pow.f64 d #s(literal 4 binary64))))))))) (pow.f64 d #s(literal 6 binary64))))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (.f64 D D) (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 c0 c0)) (/.f64 (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w)))) #s(literal 2 binary64)) (pow.f64 d #s(literal 4 binary64))))))) (.f64 d d))))))) (.f64 (ratio-of-squares.f64 c0 D) (ratio-of-squares.f64 d w))) h))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (/.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 D D) (.f64 h (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w)))))) (.f64 d d))) (.f64 #s(literal 2 binary64) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) w)))) h))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (/.f64 (+.f64 (.f64 #s(literal 2 binary64) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) w))) (.f64 h (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 D D) (.f64 h (.f64 w (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 c0 c0)) (/.f64 (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w)))) #s(literal 2 binary64)) (pow.f64 d #s(literal 4 binary64))))))))) (.f64 d d))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 D D) (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))))) (*.f64 d d)))))) h))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (/.f64 (+.f64 (.f64 #s(literal 2 binary64) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) w))) (.f64 h (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 D D) (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))))) (.f64 d d))) (.f64 h (+.f64 (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (.f64 c0 c0)) (/.f64 (.f64 h (.f64 (pow.f64 w #s(literal 3 binary64)) (.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 c0 c0)) (/.f64 (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w)))) #s(literal 2 binary64)) (pow.f64 d #s(literal 4 binary64))))))))) (pow.f64 d #s(literal 6 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 D D) (.f64 w (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 c0 c0)) (/.f64 (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w)))) #s(literal 2 binary64)) (pow.f64 d #s(literal 4 binary64)))))))) (*.f64 d d)))))))) h))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) (/.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 D D) c0) (/.f64 (.f64 h (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))))) (.f64 d d)))) (.f64 #s(literal 2 binary64) (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (*.f64 d d) w)))) h))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) (/.f64 (+.f64 (.f64 #s(literal 2 binary64) (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (.f64 d d) w))) (.f64 h (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 D D) c0) (/.f64 (.f64 h (.f64 w (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 c0 c0)) (/.f64 (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w)))) #s(literal 2 binary64)) (pow.f64 d #s(literal 4 binary64)))))))) (.f64 d d)))) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 D D) c0) (/.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w)))) (.f64 d d))))))) h))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) (/.f64 (+.f64 (.f64 #s(literal 2 binary64) (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (.f64 d d) w))) (.f64 h (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 D D) c0) (/.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w)))) (.f64 d d)))) (.f64 h (+.f64 (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (pow.f64 c0 #s(literal 3 binary64))) (/.f64 (.f64 h (.f64 (pow.f64 w #s(literal 3 binary64)) (.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 c0 c0)) (/.f64 (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w)))) #s(literal 2 binary64)) (pow.f64 d #s(literal 4 binary64))))))))) (pow.f64 d #s(literal 6 binary64))))) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 D D) c0) (/.f64 (.f64 w (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 c0 c0)) (/.f64 (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w)))) #s(literal 2 binary64)) (pow.f64 d #s(literal 4 binary64))))))) (*.f64 d d))))))))) h))
#s(approx (* c0 (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w)))))) (/.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 D D) (.f64 (.f64 M M) (.f64 (.f64 h h) w))) (.f64 c0 (.f64 d d)))) (.f64 #s(literal 2 binary64) (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (*.f64 d d) w)))) h))
#s(approx (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w))))) (/.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (ratio-of-squares.f64 D c0) (/.f64 (.f64 (.f64 M M) (.f64 (.f64 h h) w)) (.f64 d d)))) (.f64 #s(literal 2 binary64) (/.f64 (.f64 d d) (.f64 (*.f64 D D) w)))) h))
#s(approx (/ (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (* w w)) (/.f64 (+.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 D D) (pow.f64 (.f64 M h) #s(literal 2 binary64))) (.f64 d d))) (.f64 (ratio-of-squares.f64 c0 D) (ratio-of-squares.f64 d w))) h))
#s(approx (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (/.f64 (+.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 D D) (.f64 (.f64 M M) (pow.f64 (.f64 h w) #s(literal 2 binary64)))) (.f64 d d))) (/.f64 (pow.f64 (.f64 c0 d) #s(literal 2 binary64)) (*.f64 D D))) h))
#s(approx (* h (+ (* -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h h))))) (/.f64 (+.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 D D) (.f64 (.f64 M M) (pow.f64 (.f64 h w) #s(literal 2 binary64)))) (.f64 d d))) (/.f64 (pow.f64 (.f64 c0 d) #s(literal 2 binary64)) (*.f64 D D))) h))
#s(approx (+ (* -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h h)))) (/.f64 (+.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 D D) (.f64 (.f64 M M) (pow.f64 (.f64 h w) #s(literal 2 binary64)))) (.f64 d d))) (/.f64 (pow.f64 (.f64 c0 d) #s(literal 2 binary64)) (.f64 D D))) (.f64 h h)))
#s(approx (/ (* d d) (* h h)) (ratio-of-squares.f64 d h))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 M (.f64 c0 (sqrt.f64 #s(literal -1 binary64)))) w)) (.f64 #s(literal 1/2 binary64) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) (.f64 h (.f64 w w)))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (+.f64 (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (pow.f64 c0 #s(literal 3 binary64)) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 M (.f64 (.f64 h h) (.f64 (pow.f64 w #s(literal 3 binary64)) (sqrt.f64 #s(literal -1 binary64)))))))) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 M (.f64 c0 (sqrt.f64 #s(literal -1 binary64)))) w)) (.f64 #s(literal 1/2 binary64) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) (.f64 h (.f64 w w))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (+.f64 (.f64 #s(literal -1/16 binary64) (.f64 (/.f64 (pow.f64 c0 #s(literal 5 binary64)) (pow.f64 D #s(literal 8 binary64))) (/.f64 (pow.f64 d #s(literal 8 binary64)) (.f64 (pow.f64 M #s(literal 3 binary64)) (.f64 (pow.f64 h #s(literal 4 binary64)) (.f64 (pow.f64 w #s(literal 5 binary64)) (pow.f64 #s(literal -1 binary64) #s(literal 3/2 binary64)))))))) (+.f64 (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (pow.f64 c0 #s(literal 3 binary64)) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 M (.f64 (.f64 h h) (.f64 (pow.f64 w #s(literal 3 binary64)) (sqrt.f64 #s(literal -1 binary64)))))))) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 M (.f64 c0 (sqrt.f64 #s(literal -1 binary64)))) w)) (.f64 #s(literal 1/2 binary64) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) (.f64 h (*.f64 w w)))))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 M (.f64 c0 (sqrt.f64 #s(literal -1 binary64)))) w)) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 c0 h) (/.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 M (sqrt.f64 #s(literal -1 binary64))))) (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (*.f64 d d) w))) w)))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (+.f64 (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 c0 M) (/.f64 (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 w w))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64))))) (.f64 (.f64 h h) (.f64 w (sqrt.f64 #s(literal -1 binary64))))))) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 M (.f64 c0 (sqrt.f64 #s(literal -1 binary64)))) w)) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 c0 h) (/.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 M (sqrt.f64 #s(literal -1 binary64))))) (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (*.f64 d d) w))) w))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (+.f64 (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 c0 (pow.f64 M #s(literal 3 binary64))) (/.f64 (.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 w w))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64)))))) (.f64 (pow.f64 h #s(literal 3 binary64)) (.f64 w (pow.f64 #s(literal -1 binary64) #s(literal 3/2 binary64))))))) (+.f64 (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 c0 M) (/.f64 (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 w w))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64))))) (.f64 (.f64 h h) (.f64 w (sqrt.f64 #s(literal -1 binary64))))))) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 M (.f64 c0 (sqrt.f64 #s(literal -1 binary64)))) w)) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 c0 h) (/.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 M (sqrt.f64 #s(literal -1 binary64))))) (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (.f64 d d) w))) w)))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (+.f64 (.f64 M (.f64 c0 (sqrt.f64 #s(literal -1 binary64)))) (/.f64 (.f64 c0 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 M (sqrt.f64 #s(literal -1 binary64))))) (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (*.f64 d d) w)))) h)))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 c0 M) (/.f64 (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 w w))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64))))) (.f64 (.f64 h h) (sqrt.f64 #s(literal -1 binary64)))))) (+.f64 (.f64 M (.f64 c0 (sqrt.f64 #s(literal -1 binary64)))) (/.f64 (.f64 c0 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 M (sqrt.f64 #s(literal -1 binary64))))) (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (.f64 d d) w)))) h))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (+.f64 (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 c0 (pow.f64 M #s(literal 3 binary64))) (/.f64 (.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 w w))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64)))))) (pow.f64 (.f64 h (sqrt.f64 #s(literal -1 binary64))) #s(literal 3 binary64))))) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 c0 M) (/.f64 (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 w w))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64))))) (.f64 (.f64 h h) (sqrt.f64 #s(literal -1 binary64)))))) (+.f64 (.f64 M (.f64 c0 (sqrt.f64 #s(literal -1 binary64)))) (/.f64 (.f64 c0 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 M (sqrt.f64 #s(literal -1 binary64))))) (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (.f64 d d) w)))) h)))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 M (.f64 h (sqrt.f64 #s(literal -1 binary64)))))) (+.f64 (.f64 M (sqrt.f64 #s(literal -1 binary64))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 M (.f64 h (sqrt.f64 #s(literal -1 binary64)))))) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 w w))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64))))) (.f64 M (.f64 (.f64 h h) (sqrt.f64 #s(literal -1 binary64)))))) (+.f64 (.f64 M (sqrt.f64 #s(literal -1 binary64))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (*.f64 h w)))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) (+.f64 (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (pow.f64 M #s(literal 3 binary64))) (/.f64 (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 w w))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64))))) (pow.f64 (.f64 h (sqrt.f64 #s(literal -1 binary64))) #s(literal 3 binary64))))) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 M (.f64 h (sqrt.f64 #s(literal -1 binary64)))))) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 w w))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64))))) (.f64 M (.f64 (.f64 h h) (sqrt.f64 #s(literal -1 binary64)))))) (+.f64 (.f64 M (sqrt.f64 #s(literal -1 binary64))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))))))
#s(approx (* c0 (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w)))))) (.f64 h (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 D D) (.f64 (.f64 M M) w)) (.f64 c0 (.f64 d d)))) (.f64 #s(literal 2 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 (*.f64 h h) w)))))))
#s(approx (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w))))) (.f64 h (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (ratio-of-squares.f64 D c0) (/.f64 (.f64 (.f64 M M) w) (.f64 d d)))) (.f64 #s(literal 2 binary64) (/.f64 (.f64 d d) (.f64 (.f64 D D) (.f64 (.f64 h h) w)))))))
#s(approx (/ (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (* w w)) (.f64 h (+.f64 (.f64 #s(literal -1/4 binary64) (ratio-of-squares.f64 (.f64 D M) d)) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) (pow.f64 (.f64 h w) #s(literal 2 binary64)))))))
#s(approx (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (.f64 h (+.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 D D) (pow.f64 (.f64 M w) #s(literal 2 binary64))) (.f64 d d))) (*.f64 (ratio-of-squares.f64 c0 D) (ratio-of-squares.f64 d h)))))
#s(approx (* h (+ (* -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h h))))) (.f64 h (+.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 D D) (pow.f64 (.f64 M w) #s(literal 2 binary64))) (.f64 d d))) (*.f64 (ratio-of-squares.f64 c0 D) (ratio-of-squares.f64 d h)))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (ratio-of-squares.f64 c0 D) (ratio-of-squares.f64 d w))) (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (pow.f64 c0 #s(literal 3 binary64)) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 M (.f64 h (.f64 (pow.f64 w #s(literal 3 binary64)) (sqrt.f64 #s(literal -1 binary64))))))))) h)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 M (*.f64 c0 (sqrt.f64 #s(literal -1 binary64)))) w))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1/16 binary64) (.f64 (/.f64 (pow.f64 c0 #s(literal 5 binary64)) (pow.f64 D #s(literal 8 binary64))) (/.f64 (pow.f64 d #s(literal 8 binary64)) (.f64 (pow.f64 M #s(literal 3 binary64)) (.f64 (.f64 h h) (.f64 (pow.f64 w #s(literal 5 binary64)) (pow.f64 #s(literal -1 binary64) #s(literal 3/2 binary64)))))))) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (pow.f64 c0 #s(literal 3 binary64)) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 M (.f64 (pow.f64 w #s(literal 3 binary64)) (sqrt.f64 #s(literal -1 binary64)))))))) h)) (.f64 #s(literal -1/2 binary64) (.f64 (ratio-of-squares.f64 c0 D) (ratio-of-squares.f64 d w)))) h)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 M (*.f64 c0 (sqrt.f64 #s(literal -1 binary64)))) w))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (.f64 d d) w))) (.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 M (.f64 h (.f64 (.f64 w w) (sqrt.f64 #s(literal -1 binary64))))))))) h)) (*.f64 M (sqrt.f64 #s(literal -1 binary64)))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (.f64 d d) w))) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (pow.f64 c0 #s(literal 4 binary64)) (pow.f64 D #s(literal 8 binary64))) (/.f64 (pow.f64 d #s(literal 8 binary64)) (.f64 (pow.f64 M #s(literal 3 binary64)) (.f64 (.f64 h h) (.f64 (pow.f64 w #s(literal 4 binary64)) (pow.f64 #s(literal -1 binary64) #s(literal 3/2 binary64)))))))) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 M (.f64 (.f64 w w) (sqrt.f64 #s(literal -1 binary64)))))))) h))) h)) (*.f64 M (sqrt.f64 #s(literal -1 binary64)))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (/.f64 c0 h) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (.f64 d d) w))) (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 M (sqrt.f64 #s(literal -1 binary64)))))) w))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 M (.f64 c0 (sqrt.f64 #s(literal -1 binary64)))) w))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 c0 M) (/.f64 (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 w w))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64))))) (.f64 h (.f64 w (sqrt.f64 #s(literal -1 binary64))))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 c0 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (.f64 d d) w))) (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 M (sqrt.f64 #s(literal -1 binary64))))))) w))) h)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 M (.f64 c0 (sqrt.f64 #s(literal -1 binary64)))) w))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal 1/8 binary64) (.f64 (/.f64 c0 (pow.f64 M #s(literal 3 binary64))) (/.f64 (.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 w w))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64)))))) (.f64 h (.f64 w (pow.f64 #s(literal -1 binary64) #s(literal 3/2 binary64))))))) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 c0 M) (/.f64 (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 w w))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64))))) (.f64 w (sqrt.f64 #s(literal -1 binary64))))))) h)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 c0 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (.f64 d d) w))) (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 M (sqrt.f64 #s(literal -1 binary64))))))) w))) h)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 M (*.f64 c0 (sqrt.f64 #s(literal -1 binary64)))) w))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (.f64 d d) w))) (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 M (sqrt.f64 #s(literal -1 binary64))))))) h)) (.f64 M (*.f64 c0 (sqrt.f64 #s(literal -1 binary64))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (/.f64 c0 M) (/.f64 (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 w w))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64))))) (.f64 h (sqrt.f64 #s(literal -1 binary64)))))) (.f64 c0 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (.f64 d d) w))) (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 M (sqrt.f64 #s(literal -1 binary64)))))))) h)) (.f64 M (*.f64 c0 (sqrt.f64 #s(literal -1 binary64))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 c0 (pow.f64 M #s(literal 3 binary64))) (/.f64 (.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 w w))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64)))))) (.f64 h (pow.f64 #s(literal -1 binary64) #s(literal 3/2 binary64)))))) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 c0 M) (/.f64 (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 w w))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64))))) (sqrt.f64 #s(literal -1 binary64)))))) h)) (.f64 c0 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (.f64 d d) w))) (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 M (sqrt.f64 #s(literal -1 binary64)))))))) h)) (.f64 M (*.f64 c0 (sqrt.f64 #s(literal -1 binary64))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (.f64 d d) w))) (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 M (sqrt.f64 #s(literal -1 binary64)))))) h)) (*.f64 M (sqrt.f64 #s(literal -1 binary64)))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (.f64 d d) w))) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 w w))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64))))) (.f64 M (.f64 h (sqrt.f64 #s(literal -1 binary64)))))) (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 M (sqrt.f64 #s(literal -1 binary64))))))) h)) (*.f64 M (sqrt.f64 #s(literal -1 binary64)))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (.f64 d d) w))) (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (pow.f64 M #s(literal 3 binary64))) (/.f64 (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 w w))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64))))) (.f64 h (pow.f64 #s(literal -1 binary64) #s(literal 3/2 binary64)))))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 w w))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64))))) (.f64 M (sqrt.f64 #s(literal -1 binary64)))))) h)) (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 M (sqrt.f64 #s(literal -1 binary64))))))) h)) (.f64 M (sqrt.f64 #s(literal -1 binary64)))))
#s(approx (* c0 (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w)))))) (.f64 #s(literal -1 binary64) (.f64 h (+.f64 (.f64 #s(literal -2 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 (.f64 h h) w)))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 D D) (.f64 (.f64 M M) w)) (.f64 c0 (.f64 d d))))))))
#s(approx (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w))))) (.f64 #s(literal -1 binary64) (.f64 h (+.f64 (.f64 #s(literal -2 binary64) (/.f64 (.f64 d d) (.f64 (.f64 D D) (.f64 (.f64 h h) w)))) (.f64 #s(literal 1/2 binary64) (.f64 (ratio-of-squares.f64 D c0) (/.f64 (.f64 (.f64 M M) w) (*.f64 d d))))))))
#s(approx (/ (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (* w w)) (.f64 #s(literal -1 binary64) (.f64 h (+.f64 (.f64 #s(literal -1 binary64) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) (pow.f64 (.f64 h w) #s(literal 2 binary64))))) (.f64 #s(literal 1/4 binary64) (ratio-of-squares.f64 (.f64 D M) d))))))
#s(approx (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (.f64 #s(literal -1 binary64) (.f64 h (+.f64 (.f64 #s(literal -1 binary64) (.f64 (ratio-of-squares.f64 c0 D) (ratio-of-squares.f64 d h))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (.f64 D D) (pow.f64 (.f64 M w) #s(literal 2 binary64))) (*.f64 d d)))))))
#s(approx (* h (+ (* -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h h))))) (.f64 #s(literal -1 binary64) (.f64 h (+.f64 (.f64 #s(literal -1 binary64) (.f64 (ratio-of-squares.f64 c0 D) (ratio-of-squares.f64 d h))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (.f64 D D) (pow.f64 (.f64 M w) #s(literal 2 binary64))) (*.f64 d d)))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (/.f64 (+.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 (.f64 M M) h)) (.f64 d d))) (.f64 (/.f64 (.f64 c0 c0) h) (ratio-of-squares.f64 d w))) (.f64 D D)))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (/.f64 (+.f64 (.f64 (pow.f64 D #s(literal 4 binary64)) (+.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 M M) h) (.f64 d d))) (.f64 #s(literal -1/16 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 c0 c0)) (/.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (.f64 (pow.f64 h #s(literal 3 binary64)) (.f64 w w))) (pow.f64 d #s(literal 6 binary64))))))) (.f64 (/.f64 (.f64 c0 c0) h) (ratio-of-squares.f64 d w))) (.f64 D D)))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (/.f64 (+.f64 (.f64 (pow.f64 D #s(literal 4 binary64)) (+.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 M M) h) (.f64 d d))) (.f64 (pow.f64 D #s(literal 4 binary64)) (+.f64 (.f64 #s(literal -1/16 binary64) (.f64 (/.f64 (pow.f64 M #s(literal 4 binary64)) (.f64 c0 c0)) (/.f64 (.f64 (pow.f64 h #s(literal 3 binary64)) (.f64 w w)) (pow.f64 d #s(literal 6 binary64))))) (.f64 #s(literal -1/32 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 4 binary64)) (pow.f64 c0 #s(literal 4 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 6 binary64)) (.f64 (pow.f64 h #s(literal 5 binary64)) (pow.f64 w #s(literal 4 binary64)))) (pow.f64 d #s(literal 10 binary64))))))))) (.f64 (/.f64 (.f64 c0 c0) h) (ratio-of-squares.f64 d w))) (.f64 D D)))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (/.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 4 binary64)) c0) (.f64 (/.f64 (.f64 M M) d) (/.f64 (.f64 h w) d)))) (.f64 #s(literal 2 binary64) (.f64 (/.f64 c0 h) (/.f64 (.f64 d d) w)))) (*.f64 D D)))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (/.f64 (+.f64 (.f64 #s(literal 2 binary64) (.f64 (/.f64 c0 h) (/.f64 (.f64 d d) w))) (.f64 (pow.f64 D #s(literal 4 binary64)) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 M M) (.f64 h w)) (.f64 c0 (.f64 d d)))) (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 4 binary64)) (pow.f64 c0 #s(literal 3 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (pow.f64 (.f64 h w) #s(literal 3 binary64))) (pow.f64 d #s(literal 6 binary64)))))))) (*.f64 D D)))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (/.f64 (+.f64 (.f64 #s(literal 2 binary64) (.f64 (/.f64 c0 h) (/.f64 (.f64 d d) w))) (.f64 (pow.f64 D #s(literal 4 binary64)) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 M M) (.f64 h w)) (.f64 c0 (.f64 d d)))) (.f64 (pow.f64 D #s(literal 4 binary64)) (+.f64 (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (pow.f64 M #s(literal 4 binary64)) (pow.f64 c0 #s(literal 3 binary64))) (/.f64 (pow.f64 (.f64 h w) #s(literal 3 binary64)) (pow.f64 d #s(literal 6 binary64))))) (.f64 #s(literal -1/16 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 4 binary64)) (pow.f64 c0 #s(literal 5 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 6 binary64)) (pow.f64 (.f64 h w) #s(literal 5 binary64))) (pow.f64 d #s(literal 10 binary64)))))))))) (*.f64 D D)))
#s(approx (/ (* d d) (* D D)) (ratio-of-squares.f64 d D))
#s(approx (/ d D) (/.f64 d D))
#s(approx D D)
#s(approx (/ (* d d) (* D D)) (ratio-of-squares.f64 d D))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (/.f64 (+.f64 (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (.f64 D D) (.f64 h (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))))) (.f64 d d))) (.f64 (/.f64 (.f64 c0 c0) h) (ratio-of-squares.f64 d w))) (*.f64 D D)))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (/.f64 (+.f64 (.f64 (.f64 D D) (+.f64 (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 h (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w)))) (.f64 d d))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (.f64 D D) (.f64 h (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (.f64 (ratio-of-squares.f64 h c0) (/.f64 (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w)))) #s(literal 2 binary64)) (pow.f64 d #s(literal 4 binary64)))))))) (.f64 d d))))) (.f64 (/.f64 (.f64 c0 c0) h) (ratio-of-squares.f64 d w))) (.f64 D D)))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (/.f64 (+.f64 (.f64 (.f64 D D) (+.f64 (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 h (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w)))) (.f64 d d))) (.f64 (.f64 D D) (+.f64 (.f64 #s(literal -1/8 binary64) (.f64 (ratio-of-squares.f64 D c0) (/.f64 (.f64 (pow.f64 h #s(literal 3 binary64)) (.f64 (.f64 w w) (.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (.f64 (ratio-of-squares.f64 h c0) (/.f64 (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w)))) #s(literal 2 binary64)) (pow.f64 d #s(literal 4 binary64))))))))) (pow.f64 d #s(literal 6 binary64))))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 h (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (.f64 (ratio-of-squares.f64 h c0) (/.f64 (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w)))) #s(literal 2 binary64)) (pow.f64 d #s(literal 4 binary64))))))) (.f64 d d))))))) (.f64 (/.f64 (.f64 c0 c0) h) (ratio-of-squares.f64 d w))) (*.f64 D D)))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (/.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 D D) (.f64 h (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w)))))) (.f64 d d))) (.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (.f64 c0 d) #s(literal 2 binary64)) (.f64 h w)))) (*.f64 D D)))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (/.f64 (+.f64 (.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (.f64 c0 d) #s(literal 2 binary64)) (.f64 h w))) (.f64 (.f64 D D) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 h (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))))) (.f64 d d))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 D D) (.f64 h (.f64 w (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (.f64 (ratio-of-squares.f64 h c0) (/.f64 (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w)))) #s(literal 2 binary64)) (pow.f64 d #s(literal 4 binary64))))))))) (.f64 d d)))))) (*.f64 D D)))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (/.f64 (+.f64 (.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (.f64 c0 d) #s(literal 2 binary64)) (.f64 h w))) (.f64 (.f64 D D) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 h (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))))) (.f64 d d))) (.f64 (.f64 D D) (+.f64 (.f64 #s(literal -1/4 binary64) (.f64 (ratio-of-squares.f64 D c0) (/.f64 (.f64 (pow.f64 h #s(literal 3 binary64)) (.f64 (pow.f64 w #s(literal 3 binary64)) (.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (.f64 (ratio-of-squares.f64 h c0) (/.f64 (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w)))) #s(literal 2 binary64)) (pow.f64 d #s(literal 4 binary64))))))))) (pow.f64 d #s(literal 6 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 h (.f64 w (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (.f64 (ratio-of-squares.f64 h c0) (/.f64 (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w)))) #s(literal 2 binary64)) (pow.f64 d #s(literal 4 binary64)))))))) (.f64 d d)))))))) (*.f64 D D)))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) (/.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 D D) c0) (/.f64 (.f64 h (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))))) (.f64 d d)))) (.f64 #s(literal 2 binary64) (.f64 (/.f64 c0 h) (/.f64 (.f64 d d) w)))) (*.f64 D D)))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) (/.f64 (+.f64 (.f64 #s(literal 2 binary64) (.f64 (/.f64 c0 h) (/.f64 (.f64 d d) w))) (.f64 (.f64 D D) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 h c0) (/.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w)))) (.f64 d d)))) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 D D) c0) (/.f64 (.f64 h (.f64 w (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (.f64 (ratio-of-squares.f64 h c0) (/.f64 (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w)))) #s(literal 2 binary64)) (pow.f64 d #s(literal 4 binary64)))))))) (.f64 d d))))))) (*.f64 D D)))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) (/.f64 (+.f64 (.f64 #s(literal 2 binary64) (.f64 (/.f64 c0 h) (/.f64 (.f64 d d) w))) (.f64 (.f64 D D) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 h c0) (/.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w)))) (.f64 d d)))) (.f64 (.f64 D D) (+.f64 (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (.f64 D D) (pow.f64 c0 #s(literal 3 binary64))) (/.f64 (.f64 (pow.f64 h #s(literal 3 binary64)) (.f64 (pow.f64 w #s(literal 3 binary64)) (.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (.f64 (ratio-of-squares.f64 h c0) (/.f64 (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w)))) #s(literal 2 binary64)) (pow.f64 d #s(literal 4 binary64))))))))) (pow.f64 d #s(literal 6 binary64))))) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 h c0) (/.f64 (.f64 w (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (.f64 (ratio-of-squares.f64 h c0) (/.f64 (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w)))) #s(literal 2 binary64)) (pow.f64 d #s(literal 4 binary64))))))) (.f64 d d))))))))) (.f64 D D)))
#s(approx (* D D) (*.f64 D D))
#s(approx (* c0 (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w)))))) (/.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 4 binary64)) c0) (.f64 (/.f64 (.f64 M M) d) (/.f64 (.f64 h w) d)))) (.f64 #s(literal 2 binary64) (.f64 (/.f64 c0 h) (/.f64 (.f64 d d) w)))) (*.f64 D D)))
#s(approx (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w))))) (/.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 (.f64 M M) (.f64 h w))) (pow.f64 (.f64 c0 d) #s(literal 2 binary64)))) (.f64 #s(literal 2 binary64) (/.f64 (.f64 d d) (.f64 h w)))) (.f64 D D)))
#s(approx (/ (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (* w w)) (/.f64 (+.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 (.f64 M M) h)) (.f64 d d))) (.f64 (/.f64 (.f64 c0 c0) h) (ratio-of-squares.f64 d w))) (.f64 D D)))
#s(approx (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (/.f64 (+.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 (.f64 M M) (.f64 h (.f64 w w)))) (.f64 d d))) (/.f64 (pow.f64 (.f64 c0 d) #s(literal 2 binary64)) h)) (*.f64 D D)))
#s(approx (* h (+ (* -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h h))))) (/.f64 (+.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 (.f64 M M) (.f64 h (.f64 w w)))) (.f64 d d))) (/.f64 (pow.f64 (.f64 c0 d) #s(literal 2 binary64)) h)) (*.f64 D D)))
#s(approx (+ (* -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h h)))) (/.f64 (+.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 4 binary64)) (pow.f64 (.f64 M w) #s(literal 2 binary64))) (.f64 d d))) (/.f64 (pow.f64 (.f64 c0 d) #s(literal 2 binary64)) (.f64 h h))) (*.f64 D D)))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 M (.f64 c0 (sqrt.f64 #s(literal -1 binary64)))) w)) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 M (sqrt.f64 #s(literal -1 binary64))))) (.f64 (/.f64 c0 h) (/.f64 (*.f64 d d) w))) w)))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (+.f64 (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 c0 (pow.f64 D #s(literal 4 binary64))) (/.f64 (-.f64 (.f64 (ratio-of-squares.f64 c0 h) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 w w))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64))))) (.f64 M (.f64 w (sqrt.f64 #s(literal -1 binary64))))))) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 M (.f64 c0 (sqrt.f64 #s(literal -1 binary64)))) w)) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 M (sqrt.f64 #s(literal -1 binary64))))) (.f64 (/.f64 c0 h) (/.f64 (*.f64 d d) w))) w))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (+.f64 (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 c0 (pow.f64 D #s(literal 6 binary64))) (/.f64 (.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (-.f64 (.f64 (ratio-of-squares.f64 c0 h) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 w w))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64)))))) (.f64 (pow.f64 M #s(literal 3 binary64)) (.f64 w (pow.f64 #s(literal -1 binary64) #s(literal 3/2 binary64))))))) (+.f64 (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 c0 (pow.f64 D #s(literal 4 binary64))) (/.f64 (-.f64 (.f64 (ratio-of-squares.f64 c0 h) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 w w))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64))))) (.f64 M (.f64 w (sqrt.f64 #s(literal -1 binary64))))))) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 M (.f64 c0 (sqrt.f64 #s(literal -1 binary64)))) w)) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 M (sqrt.f64 #s(literal -1 binary64))))) (.f64 (/.f64 c0 h) (/.f64 (*.f64 d d) w))) w)))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (+.f64 (.f64 M (.f64 c0 (sqrt.f64 #s(literal -1 binary64)))) (/.f64 (.f64 c0 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 M (sqrt.f64 #s(literal -1 binary64))))) (.f64 (/.f64 c0 h) (/.f64 (.f64 d d) w)))) (*.f64 D D))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 c0 (pow.f64 D #s(literal 4 binary64))) (/.f64 (-.f64 (.f64 (ratio-of-squares.f64 c0 h) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 w w))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64))))) (.f64 M (sqrt.f64 #s(literal -1 binary64)))))) (+.f64 (.f64 M (.f64 c0 (sqrt.f64 #s(literal -1 binary64)))) (/.f64 (.f64 c0 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 M (sqrt.f64 #s(literal -1 binary64))))) (.f64 (/.f64 c0 h) (/.f64 (.f64 d d) w)))) (.f64 D D)))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (+.f64 (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 c0 (pow.f64 D #s(literal 6 binary64))) (/.f64 (.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (-.f64 (.f64 (ratio-of-squares.f64 c0 h) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 w w))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64)))))) (pow.f64 (.f64 M (sqrt.f64 #s(literal -1 binary64))) #s(literal 3 binary64))))) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 c0 (pow.f64 D #s(literal 4 binary64))) (/.f64 (-.f64 (.f64 (ratio-of-squares.f64 c0 h) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 w w))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64))))) (.f64 M (sqrt.f64 #s(literal -1 binary64)))))) (+.f64 (.f64 M (.f64 c0 (sqrt.f64 #s(literal -1 binary64)))) (/.f64 (.f64 c0 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 M (sqrt.f64 #s(literal -1 binary64))))) (.f64 (/.f64 c0 h) (/.f64 (.f64 d d) w)))) (*.f64 D D))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (.f64 D D) (.f64 M (sqrt.f64 #s(literal -1 binary64)))))) (+.f64 (.f64 M (sqrt.f64 #s(literal -1 binary64))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (*.f64 h w))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (.f64 D D) (.f64 M (sqrt.f64 #s(literal -1 binary64)))))) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 (ratio-of-squares.f64 c0 h) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 w w))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64))))) (.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 M (sqrt.f64 #s(literal -1 binary64)))))) (+.f64 (.f64 M (sqrt.f64 #s(literal -1 binary64))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) (+.f64 (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (pow.f64 D #s(literal 6 binary64))) (/.f64 (-.f64 (.f64 (ratio-of-squares.f64 c0 h) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 w w))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64))))) (pow.f64 (.f64 M (sqrt.f64 #s(literal -1 binary64))) #s(literal 3 binary64))))) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (.f64 D D) (.f64 M (sqrt.f64 #s(literal -1 binary64)))))) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 (ratio-of-squares.f64 c0 h) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 w w))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64))))) (.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 M (sqrt.f64 #s(literal -1 binary64)))))) (+.f64 (.f64 M (sqrt.f64 #s(literal -1 binary64))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))))))
#s(approx (* c0 (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w)))))) (.f64 (.f64 D D) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 M M) (.f64 h w)) (.f64 c0 (.f64 d d)))) (.f64 #s(literal 2 binary64) (.f64 (/.f64 c0 (pow.f64 D #s(literal 4 binary64))) (/.f64 (.f64 d d) (.f64 h w)))))))
#s(approx (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w))))) (.f64 (.f64 D D) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (ratio-of-squares.f64 M c0) (/.f64 (.f64 h w) (.f64 d d)))) (.f64 #s(literal 2 binary64) (/.f64 (.f64 d d) (.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 h w)))))))
#s(approx (/ (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (* w w)) (.f64 (.f64 D D) (+.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 M M) h) (.f64 d d))) (/.f64 (pow.f64 (.f64 c0 d) #s(literal 2 binary64)) (.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 h (.f64 w w)))))))
#s(approx (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (.f64 (.f64 D D) (+.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 M M) (.f64 h (.f64 w w))) (.f64 d d))) (/.f64 (pow.f64 (.f64 c0 d) #s(literal 2 binary64)) (.f64 (pow.f64 D #s(literal 4 binary64)) h)))))
#s(approx (* h (+ (* -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h h))))) (.f64 (.f64 D D) (+.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 M M) (.f64 h (.f64 w w))) (.f64 d d))) (/.f64 (pow.f64 (.f64 c0 d) #s(literal 2 binary64)) (.f64 (pow.f64 D #s(literal 4 binary64)) h)))))
#s(approx (+ (* -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h h)))) (.f64 (.f64 D D) (+.f64 (.f64 #s(literal -1/4 binary64) (ratio-of-squares.f64 (.f64 M w) d)) (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (ratio-of-squares.f64 d h)))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 M (.f64 c0 (sqrt.f64 #s(literal -1 binary64)))) w)) (.f64 (.f64 d d) (+.f64 (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (pow.f64 c0 #s(literal 3 binary64)) (pow.f64 D #s(literal 4 binary64))) (/.f64 (.f64 d d) (.f64 M (.f64 (.f64 h h) (.f64 (pow.f64 w #s(literal 3 binary64)) (sqrt.f64 #s(literal -1 binary64)))))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 c0 c0) (.f64 (.f64 D D) (.f64 h (.f64 w w)))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 M (.f64 c0 (sqrt.f64 #s(literal -1 binary64)))) w)) (.f64 (.f64 d d) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 c0 c0) (.f64 (.f64 D D) (.f64 h (.f64 w w))))) (.f64 (.f64 d d) (+.f64 (.f64 #s(literal -1/16 binary64) (.f64 (/.f64 (pow.f64 c0 #s(literal 5 binary64)) (pow.f64 D #s(literal 8 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 (pow.f64 M #s(literal 3 binary64)) (.f64 (pow.f64 h #s(literal 4 binary64)) (.f64 (pow.f64 w #s(literal 5 binary64)) (pow.f64 #s(literal -1 binary64) #s(literal 3/2 binary64)))))))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 c0 #s(literal 3 binary64)) (.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 M (.f64 (.f64 h h) (.f64 (pow.f64 w #s(literal 3 binary64)) (sqrt.f64 #s(literal -1 binary64))))))))))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (+.f64 (.f64 M (sqrt.f64 #s(literal -1 binary64))) (.f64 (.f64 d d) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 (.f64 c0 d) #s(literal 2 binary64)) (.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 M (.f64 (.f64 h h) (.f64 (.f64 w w) (sqrt.f64 #s(literal -1 binary64)))))))) (/.f64 c0 (.f64 (.f64 D D) (.f64 h w)))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (+.f64 (.f64 M (sqrt.f64 #s(literal -1 binary64))) (.f64 (.f64 d d) (+.f64 (.f64 (.f64 d d) (+.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 (.f64 c0 d) #s(literal 4 binary64)) (.f64 (pow.f64 D #s(literal 8 binary64)) (.f64 (pow.f64 M #s(literal 3 binary64)) (.f64 (pow.f64 h #s(literal 4 binary64)) (.f64 (pow.f64 w #s(literal 4 binary64)) (pow.f64 #s(literal -1 binary64) #s(literal 3/2 binary64)))))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 c0 c0) (.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 M (.f64 (.f64 h h) (.f64 (.f64 w w) (sqrt.f64 #s(literal -1 binary64)))))))))) (/.f64 c0 (.f64 (.f64 D D) (.f64 h w)))))))
#s(approx d d)
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 M (.f64 c0 (sqrt.f64 #s(literal -1 binary64)))) w)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 c0 (.f64 (.f64 d d) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (.f64 M (sqrt.f64 #s(literal -1 binary64))))) (/.f64 c0 (.f64 (.f64 D D) (*.f64 h w)))))) w))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 M (.f64 c0 (sqrt.f64 #s(literal -1 binary64)))) w)) (.f64 (.f64 d d) (+.f64 (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 c0 M) (/.f64 (.f64 (.f64 d d) (-.f64 (/.f64 (.f64 c0 c0) (.f64 (pow.f64 D #s(literal 4 binary64)) (pow.f64 (.f64 h w) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64)))))) (.f64 w (sqrt.f64 #s(literal -1 binary64)))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 c0 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (.f64 M (sqrt.f64 #s(literal -1 binary64))))) (/.f64 c0 (.f64 (.f64 D D) (*.f64 h w))))) w))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 M (.f64 c0 (sqrt.f64 #s(literal -1 binary64)))) w)) (.f64 (.f64 d d) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 c0 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (.f64 M (sqrt.f64 #s(literal -1 binary64))))) (/.f64 c0 (.f64 (.f64 D D) (.f64 h w))))) w)) (.f64 (.f64 d d) (+.f64 (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 c0 (pow.f64 M #s(literal 3 binary64))) (/.f64 (.f64 (.f64 d d) (.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (-.f64 (/.f64 (.f64 c0 c0) (.f64 (pow.f64 D #s(literal 4 binary64)) (pow.f64 (.f64 h w) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64))))))) (.f64 w (pow.f64 #s(literal -1 binary64) #s(literal 3/2 binary64)))))) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 c0 M) (/.f64 (-.f64 (/.f64 (.f64 c0 c0) (.f64 (pow.f64 D #s(literal 4 binary64)) (pow.f64 (.f64 h w) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64))))) (*.f64 w (sqrt.f64 #s(literal -1 binary64))))))))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (+.f64 (.f64 M (.f64 c0 (sqrt.f64 #s(literal -1 binary64)))) (.f64 c0 (.f64 (.f64 d d) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (.f64 M (sqrt.f64 #s(literal -1 binary64))))) (/.f64 c0 (.f64 (.f64 D D) (*.f64 h w))))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (+.f64 (.f64 M (.f64 c0 (sqrt.f64 #s(literal -1 binary64)))) (.f64 (.f64 d d) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 c0 M) (/.f64 (.f64 (.f64 d d) (-.f64 (/.f64 (.f64 c0 c0) (.f64 (pow.f64 D #s(literal 4 binary64)) (pow.f64 (.f64 h w) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64)))))) (sqrt.f64 #s(literal -1 binary64))))) (.f64 c0 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (.f64 M (sqrt.f64 #s(literal -1 binary64))))) (/.f64 c0 (.f64 (.f64 D D) (.f64 h w)))))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (+.f64 (.f64 M (.f64 c0 (sqrt.f64 #s(literal -1 binary64)))) (.f64 (.f64 d d) (+.f64 (.f64 c0 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (.f64 M (sqrt.f64 #s(literal -1 binary64))))) (/.f64 c0 (.f64 (.f64 D D) (.f64 h w))))) (.f64 (.f64 d d) (+.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 c0 (.f64 (.f64 d d) (.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (-.f64 (/.f64 (.f64 c0 c0) (.f64 (pow.f64 D #s(literal 4 binary64)) (pow.f64 (.f64 h w) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64)))))))) (pow.f64 (.f64 M (sqrt.f64 #s(literal -1 binary64))) #s(literal 3 binary64)))) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 c0 M) (/.f64 (-.f64 (/.f64 (.f64 c0 c0) (.f64 (pow.f64 D #s(literal 4 binary64)) (pow.f64 (.f64 h w) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64))))) (sqrt.f64 #s(literal -1 binary64)))))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) (+.f64 (.f64 M (sqrt.f64 #s(literal -1 binary64))) (.f64 (.f64 d d) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (.f64 M (sqrt.f64 #s(literal -1 binary64))))) (/.f64 c0 (.f64 (.f64 D D) (*.f64 h w)))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) (+.f64 (.f64 M (sqrt.f64 #s(literal -1 binary64))) (.f64 (.f64 d d) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 d d) M) (/.f64 (-.f64 (/.f64 (.f64 c0 c0) (.f64 (pow.f64 D #s(literal 4 binary64)) (pow.f64 (.f64 h w) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64))))) (sqrt.f64 #s(literal -1 binary64))))) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (.f64 M (sqrt.f64 #s(literal -1 binary64))))) (/.f64 c0 (.f64 (.f64 D D) (*.f64 h w))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) (+.f64 (.f64 M (sqrt.f64 #s(literal -1 binary64))) (.f64 (.f64 d d) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (.f64 M (sqrt.f64 #s(literal -1 binary64))))) (+.f64 (.f64 (.f64 d d) (+.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 d d) (.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (-.f64 (/.f64 (.f64 c0 c0) (.f64 (pow.f64 D #s(literal 4 binary64)) (pow.f64 (.f64 h w) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64))))))) (pow.f64 (.f64 M (sqrt.f64 #s(literal -1 binary64))) #s(literal 3 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (/.f64 (.f64 c0 c0) (.f64 (pow.f64 D #s(literal 4 binary64)) (pow.f64 (.f64 h w) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64))))) (.f64 M (sqrt.f64 #s(literal -1 binary64))))))) (/.f64 c0 (.f64 (.f64 D D) (*.f64 h w))))))))
#s(approx (* d d) (*.f64 d d))
#s(approx (* c0 (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w)))))) (/.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 D D) (.f64 (.f64 M M) (.f64 h w))) c0)) (.f64 #s(literal 2 binary64) (/.f64 (.f64 c0 (pow.f64 d #s(literal 4 binary64))) (.f64 (.f64 D D) (.f64 h w))))) (.f64 d d)))
#s(approx (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w))))) (/.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 D D) (.f64 (.f64 M M) (.f64 h w))) (.f64 c0 c0))) (.f64 #s(literal 2 binary64) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 (.f64 D D) (.f64 h w))))) (.f64 d d)))
#s(approx (/ (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (* w w)) (/.f64 (+.f64 (.f64 #s(literal -1/4 binary64) (.f64 (.f64 D D) (.f64 (.f64 M M) h))) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 h (.f64 w w))))) (*.f64 d d)))
#s(approx (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (/.f64 (+.f64 (.f64 #s(literal -1/4 binary64) (.f64 (.f64 D D) (.f64 (.f64 M M) (.f64 h (.f64 w w))))) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (pow.f64 d #s(literal 4 binary64)) h))) (*.f64 d d)))
#s(approx (* h (+ (* -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h h))))) (/.f64 (+.f64 (.f64 #s(literal -1/4 binary64) (.f64 (.f64 D D) (.f64 (.f64 M M) (.f64 h (.f64 w w))))) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (pow.f64 d #s(literal 4 binary64)) h))) (*.f64 d d)))
#s(approx (+ (* -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h h)))) (/.f64 (+.f64 (.f64 #s(literal -1/4 binary64) (.f64 (.f64 D D) (pow.f64 (.f64 M w) #s(literal 2 binary64)))) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 h h)))) (*.f64 d d)))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (.f64 (.f64 d d) (+.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 D D) (.f64 (.f64 M M) h)) (pow.f64 d #s(literal 4 binary64)))) (/.f64 (.f64 c0 c0) (.f64 (.f64 D D) (.f64 h (.f64 w w)))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (.f64 (.f64 d d) (+.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 D D) (.f64 (.f64 M M) h)) (pow.f64 d #s(literal 4 binary64)))) (+.f64 (.f64 #s(literal -1/16 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (.f64 c0 c0)) (/.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (.f64 (pow.f64 h #s(literal 3 binary64)) (.f64 w w))) (pow.f64 d #s(literal 8 binary64))))) (/.f64 (.f64 c0 c0) (.f64 (.f64 D D) (.f64 h (.f64 w w))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (.f64 (.f64 d d) (+.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 D D) (.f64 (.f64 M M) h)) (pow.f64 d #s(literal 4 binary64)))) (+.f64 (.f64 #s(literal -1/16 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (.f64 c0 c0)) (/.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (.f64 (pow.f64 h #s(literal 3 binary64)) (.f64 w w))) (pow.f64 d #s(literal 8 binary64))))) (+.f64 (.f64 #s(literal -1/32 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 10 binary64)) (pow.f64 c0 #s(literal 4 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 6 binary64)) (.f64 (pow.f64 h #s(literal 5 binary64)) (pow.f64 w #s(literal 4 binary64)))) (pow.f64 d #s(literal 12 binary64))))) (/.f64 (.f64 c0 c0) (.f64 (.f64 D D) (.f64 h (.f64 w w)))))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (.f64 (.f64 d d) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 D D) (.f64 (.f64 M M) (.f64 h w))) (.f64 c0 (pow.f64 d #s(literal 4 binary64))))) (.f64 #s(literal 2 binary64) (/.f64 c0 (.f64 (.f64 D D) (*.f64 h w)))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (.f64 (.f64 d d) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 D D) (.f64 (.f64 M M) (.f64 h w))) (.f64 c0 (pow.f64 d #s(literal 4 binary64))))) (+.f64 (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (pow.f64 c0 #s(literal 3 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (pow.f64 (.f64 h w) #s(literal 3 binary64))) (pow.f64 d #s(literal 8 binary64))))) (.f64 #s(literal 2 binary64) (/.f64 c0 (.f64 (.f64 D D) (*.f64 h w))))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (.f64 (.f64 d d) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 D D) (.f64 (.f64 M M) (.f64 h w))) (.f64 c0 (pow.f64 d #s(literal 4 binary64))))) (+.f64 (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (pow.f64 c0 #s(literal 3 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (pow.f64 (.f64 h w) #s(literal 3 binary64))) (pow.f64 d #s(literal 8 binary64))))) (+.f64 (.f64 #s(literal -1/16 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 10 binary64)) (pow.f64 c0 #s(literal 5 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 6 binary64)) (pow.f64 (.f64 h w) #s(literal 5 binary64))) (pow.f64 d #s(literal 12 binary64))))) (.f64 #s(literal 2 binary64) (/.f64 c0 (.f64 (.f64 D D) (*.f64 h w)))))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (.f64 (.f64 d d) (+.f64 (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (.f64 D D) (.f64 h (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))))) (.f64 d d))) (/.f64 (.f64 c0 c0) (.f64 (.f64 D D) (.f64 h (*.f64 w w)))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (.f64 (.f64 d d) (+.f64 (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (.f64 D D) (.f64 h (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))))) (.f64 d d))) (+.f64 (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (.f64 D D) (.f64 h (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 (.f64 h h) (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w))))) #s(literal 2 binary64)))) (.f64 c0 c0)))))) (pow.f64 d #s(literal 4 binary64)))) (/.f64 (.f64 c0 c0) (.f64 (.f64 D D) (.f64 h (.f64 w w))))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (.f64 (.f64 d d) (+.f64 (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (.f64 c0 c0)) (/.f64 (.f64 (pow.f64 h #s(literal 3 binary64)) (.f64 (.f64 w w) (.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 (.f64 h h) (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w))))) #s(literal 2 binary64)))) (.f64 c0 c0))))))) (pow.f64 d #s(literal 6 binary64))))) (+.f64 (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (.f64 D D) (.f64 h (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))))) (.f64 d d))) (+.f64 (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (.f64 D D) (.f64 h (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 (.f64 h h) (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w))))) #s(literal 2 binary64)))) (.f64 c0 c0)))))) (pow.f64 d #s(literal 4 binary64)))) (/.f64 (.f64 c0 c0) (.f64 (.f64 D D) (.f64 h (*.f64 w w)))))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (.f64 (.f64 d d) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 D D) (.f64 h (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w))))))) (.f64 d d))) (.f64 #s(literal 2 binary64) (/.f64 (.f64 c0 c0) (.f64 (.f64 D D) (.f64 h w)))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (.f64 (.f64 d d) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 D D) (.f64 h (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w))))))) (.f64 d d))) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 D D) (.f64 h (.f64 w (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 (.f64 h h) (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w))))) #s(literal 2 binary64)))) (.f64 c0 c0))))))) (pow.f64 d #s(literal 4 binary64)))) (.f64 #s(literal 2 binary64) (/.f64 (.f64 c0 c0) (.f64 (.f64 D D) (.f64 h w))))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (.f64 (.f64 d d) (+.f64 (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (.f64 c0 c0)) (/.f64 (.f64 (pow.f64 h #s(literal 3 binary64)) (.f64 (pow.f64 w #s(literal 3 binary64)) (.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 (.f64 h h) (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w))))) #s(literal 2 binary64)))) (.f64 c0 c0))))))) (pow.f64 d #s(literal 6 binary64))))) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 D D) (.f64 h (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w))))))) (.f64 d d))) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 D D) (.f64 h (.f64 w (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 (.f64 h h) (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w))))) #s(literal 2 binary64)))) (.f64 c0 c0))))))) (pow.f64 d #s(literal 4 binary64)))) (.f64 #s(literal 2 binary64) (/.f64 (.f64 c0 c0) (.f64 (.f64 D D) (.f64 h w)))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) (.f64 (.f64 d d) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 D D) c0) (/.f64 (.f64 h (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))))) (.f64 d d)))) (.f64 #s(literal 2 binary64) (/.f64 c0 (.f64 (.f64 D D) (*.f64 h w)))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) (.f64 (.f64 d d) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 D D) c0) (/.f64 (.f64 h (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))))) (.f64 d d)))) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 D D) c0) (/.f64 (.f64 h (.f64 w (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 (.f64 h h) (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w))))) #s(literal 2 binary64)))) (.f64 c0 c0)))))) (pow.f64 d #s(literal 4 binary64))))) (.f64 #s(literal 2 binary64) (/.f64 c0 (.f64 (.f64 D D) (*.f64 h w))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) (.f64 (.f64 d d) (+.f64 (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (pow.f64 c0 #s(literal 3 binary64))) (/.f64 (.f64 (pow.f64 h #s(literal 3 binary64)) (.f64 (pow.f64 w #s(literal 3 binary64)) (.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 (.f64 h h) (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w))))) #s(literal 2 binary64)))) (.f64 c0 c0))))))) (pow.f64 d #s(literal 6 binary64))))) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 D D) c0) (/.f64 (.f64 h (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))))) (.f64 d d)))) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 D D) c0) (/.f64 (.f64 h (.f64 w (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 (.f64 h h) (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w))))) #s(literal 2 binary64)))) (.f64 c0 c0)))))) (pow.f64 d #s(literal 4 binary64))))) (.f64 #s(literal 2 binary64) (/.f64 c0 (.f64 (.f64 D D) (.f64 h w)))))))))
#s(approx (* c0 (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w)))))) (.f64 (.f64 d d) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 D D) (.f64 (.f64 M M) (.f64 h w))) (.f64 c0 (pow.f64 d #s(literal 4 binary64))))) (.f64 #s(literal 2 binary64) (/.f64 c0 (.f64 (.f64 D D) (*.f64 h w)))))))
#s(approx (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w))))) (.f64 (.f64 d d) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (ratio-of-squares.f64 D c0) (/.f64 (.f64 (.f64 M M) (.f64 h w)) (pow.f64 d #s(literal 4 binary64))))) (.f64 #s(literal 2 binary64) (pow.f64 (.f64 (.f64 D D) (*.f64 h w)) #s(literal -1 binary64))))))
#s(approx (/ (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (* w w)) (.f64 (.f64 d d) (+.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 D D) (.f64 (.f64 M M) h)) (pow.f64 d #s(literal 4 binary64)))) (/.f64 (.f64 c0 c0) (.f64 (.f64 D D) (.f64 h (.f64 w w)))))))
#s(approx (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (.f64 (.f64 d d) (+.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 D D) (.f64 (.f64 M M) (.f64 h (.f64 w w)))) (pow.f64 d #s(literal 4 binary64)))) (/.f64 (.f64 c0 c0) (.f64 (.f64 D D) h)))))
#s(approx (* h (+ (* -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h h))))) (.f64 (.f64 d d) (+.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 D D) (.f64 (.f64 M M) (.f64 h (.f64 w w)))) (pow.f64 d #s(literal 4 binary64)))) (/.f64 (.f64 c0 c0) (.f64 (.f64 D D) h)))))
#s(approx (+ (* -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h h)))) (.f64 (.f64 d d) (+.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 D D) (pow.f64 (.f64 M w) #s(literal 2 binary64))) (pow.f64 d #s(literal 4 binary64)))) (/.f64 (.f64 c0 c0) (pow.f64 (.f64 D h) #s(literal 2 binary64))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (+.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 D D) (.f64 (.f64 M M) h)) (.f64 d d))) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) (.f64 h (.f64 w w))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (+.f64 (.f64 (.f64 M M) (+.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 D D) h) (.f64 d d))) (.f64 #s(literal -1/16 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (.f64 c0 c0)) (/.f64 (.f64 (.f64 M M) (.f64 (pow.f64 h #s(literal 3 binary64)) (.f64 w w))) (pow.f64 d #s(literal 6 binary64))))))) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) (.f64 h (*.f64 w w))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (+.f64 (.f64 (.f64 M M) (+.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 D D) h) (.f64 d d))) (.f64 (.f64 M M) (+.f64 (.f64 #s(literal -1/16 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (.f64 c0 c0)) (/.f64 (.f64 (pow.f64 h #s(literal 3 binary64)) (.f64 w w)) (pow.f64 d #s(literal 6 binary64))))) (.f64 #s(literal -1/32 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 10 binary64)) (pow.f64 c0 #s(literal 4 binary64))) (/.f64 (.f64 (.f64 M M) (.f64 (pow.f64 h #s(literal 5 binary64)) (pow.f64 w #s(literal 4 binary64)))) (pow.f64 d #s(literal 10 binary64))))))))) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) (.f64 h (.f64 w w))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 D D) (.f64 (.f64 M M) (.f64 h w))) (.f64 c0 (.f64 d d)))) (.f64 #s(literal 2 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (+.f64 (.f64 #s(literal 2 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (.f64 (.f64 M M) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 D D) (.f64 h w)) (.f64 c0 (.f64 d d)))) (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (pow.f64 c0 #s(literal 3 binary64))) (/.f64 (.f64 (.f64 M M) (pow.f64 (*.f64 h w) #s(literal 3 binary64))) (pow.f64 d #s(literal 6 binary64)))))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (+.f64 (.f64 #s(literal 2 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (.f64 (.f64 M M) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 D D) (.f64 h w)) (.f64 c0 (.f64 d d)))) (.f64 (.f64 M M) (+.f64 (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (pow.f64 c0 #s(literal 3 binary64))) (/.f64 (pow.f64 (.f64 h w) #s(literal 3 binary64)) (pow.f64 d #s(literal 6 binary64))))) (.f64 #s(literal -1/16 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 10 binary64)) (pow.f64 c0 #s(literal 5 binary64))) (/.f64 (.f64 (.f64 M M) (pow.f64 (.f64 h w) #s(literal 5 binary64))) (pow.f64 d #s(literal 10 binary64)))))))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (+.f64 (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (.f64 D D) (.f64 M (.f64 h (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))))) (.f64 d d))) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) (.f64 h (*.f64 w w))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (+.f64 (.f64 M (+.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 D D) (.f64 M (.f64 h (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 c0 c0)) (/.f64 (.f64 (.f64 h h) (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))) #s(literal 2 binary64))) (pow.f64 d #s(literal 4 binary64))))))))) (.f64 d d))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (.f64 D D) (.f64 h (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))))) (.f64 d d))))) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) (.f64 h (.f64 w w))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (+.f64 (.f64 M (+.f64 (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (.f64 D D) (.f64 h (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))))) (.f64 d d))) (.f64 M (+.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 D D) (.f64 h (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 c0 c0)) (/.f64 (.f64 (.f64 h h) (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))) #s(literal 2 binary64))) (pow.f64 d #s(literal 4 binary64)))))))) (.f64 d d))) (.f64 #s(literal 1/8 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (.f64 c0 c0)) (/.f64 (.f64 M (.f64 (pow.f64 h #s(literal 3 binary64)) (.f64 (.f64 w w) (.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 c0 c0)) (/.f64 (.f64 (.f64 h h) (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))) #s(literal 2 binary64))) (pow.f64 d #s(literal 4 binary64)))))) (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))))))) (pow.f64 d #s(literal 6 binary64))))))))) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) (.f64 h (.f64 w w))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 D D) (.f64 M (.f64 h (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))))))) (.f64 d d))) (.f64 #s(literal 2 binary64) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) (.f64 h w))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (+.f64 (.f64 #s(literal 2 binary64) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) (.f64 h w)))) (.f64 M (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 D D) (.f64 M (.f64 h (.f64 w (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 c0 c0)) (/.f64 (.f64 (.f64 h h) (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))) #s(literal 2 binary64))) (pow.f64 d #s(literal 4 binary64)))))))))) (.f64 d d))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 D D) (.f64 h (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))))) (.f64 d d)))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (+.f64 (.f64 #s(literal 2 binary64) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) (.f64 h w)))) (.f64 M (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 D D) (.f64 h (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))))) (.f64 d d))) (.f64 M (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 D D) (.f64 h (.f64 w (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 c0 c0)) (/.f64 (.f64 (.f64 h h) (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))) #s(literal 2 binary64))) (pow.f64 d #s(literal 4 binary64))))))))) (.f64 d d))) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (.f64 c0 c0)) (/.f64 (.f64 M (.f64 (pow.f64 h #s(literal 3 binary64)) (.f64 (pow.f64 w #s(literal 3 binary64)) (.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 c0 c0)) (/.f64 (.f64 (.f64 h h) (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))) #s(literal 2 binary64))) (pow.f64 d #s(literal 4 binary64)))))) (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (*.f64 h w)))))))) (pow.f64 d #s(literal 6 binary64)))))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 D D) c0) (/.f64 (.f64 M (.f64 h (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))))) (.f64 d d)))) (.f64 #s(literal 2 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) (+.f64 (.f64 #s(literal 2 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (.f64 M (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 D D) c0) (/.f64 (.f64 M (.f64 h (.f64 w (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 c0 c0)) (/.f64 (.f64 (.f64 h h) (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))) #s(literal 2 binary64))) (pow.f64 d #s(literal 4 binary64))))))))) (.f64 d d)))) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 D D) c0) (/.f64 (.f64 h (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))))) (.f64 d d))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) (+.f64 (.f64 #s(literal 2 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (.f64 M (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 D D) c0) (/.f64 (.f64 h (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))))) (.f64 d d)))) (.f64 M (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 D D) c0) (/.f64 (.f64 h (.f64 w (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 c0 c0)) (/.f64 (.f64 (.f64 h h) (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))) #s(literal 2 binary64))) (pow.f64 d #s(literal 4 binary64)))))))) (.f64 d d)))) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (pow.f64 c0 #s(literal 3 binary64))) (/.f64 (.f64 M (.f64 (pow.f64 h #s(literal 3 binary64)) (.f64 (pow.f64 w #s(literal 3 binary64)) (.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 c0 c0)) (/.f64 (.f64 (.f64 h h) (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))) #s(literal 2 binary64))) (pow.f64 d #s(literal 4 binary64)))))) (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))))))) (pow.f64 d #s(literal 6 binary64)))))))))))
#s(approx (* c0 (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w)))))) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 D D) (.f64 (.f64 M M) (.f64 h w))) (.f64 c0 (.f64 d d)))) (.f64 #s(literal 2 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))))
#s(approx (* M M) (*.f64 M M))
#s(approx M M)
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (.f64 M (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 c0 (sqrt.f64 #s(literal -1 binary64))) w)) (.f64 #s(literal 1/2 binary64) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) (.f64 M (.f64 h (*.f64 w w)))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (.f64 M (+.f64 (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (pow.f64 c0 #s(literal 3 binary64)) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 (.f64 M M) (.f64 (.f64 h h) (.f64 (pow.f64 w #s(literal 3 binary64)) (sqrt.f64 #s(literal -1 binary64)))))))) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 c0 (sqrt.f64 #s(literal -1 binary64))) w)) (.f64 #s(literal 1/2 binary64) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) (.f64 M (.f64 h (.f64 w w))))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (.f64 M (+.f64 (.f64 #s(literal -1/16 binary64) (.f64 (/.f64 (pow.f64 c0 #s(literal 5 binary64)) (pow.f64 D #s(literal 8 binary64))) (/.f64 (pow.f64 d #s(literal 8 binary64)) (.f64 (pow.f64 M #s(literal 4 binary64)) (.f64 (pow.f64 h #s(literal 4 binary64)) (.f64 (pow.f64 w #s(literal 5 binary64)) (pow.f64 #s(literal -1 binary64) #s(literal 3/2 binary64)))))))) (+.f64 (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (pow.f64 c0 #s(literal 3 binary64)) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 (.f64 M M) (.f64 (.f64 h h) (.f64 (pow.f64 w #s(literal 3 binary64)) (sqrt.f64 #s(literal -1 binary64)))))))) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 c0 (sqrt.f64 #s(literal -1 binary64))) w)) (.f64 #s(literal 1/2 binary64) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) (.f64 M (.f64 h (*.f64 w w)))))))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (.f64 M (+.f64 (sqrt.f64 #s(literal -1 binary64)) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 M (*.f64 h w)))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (.f64 M (+.f64 (sqrt.f64 #s(literal -1 binary64)) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 (.f64 M M) (.f64 (.f64 h h) (.f64 (.f64 w w) (sqrt.f64 #s(literal -1 binary64)))))))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 M (.f64 h w))))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (.f64 M (+.f64 (sqrt.f64 #s(literal -1 binary64)) (+.f64 (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (pow.f64 c0 #s(literal 4 binary64)) (pow.f64 D #s(literal 8 binary64))) (/.f64 (pow.f64 d #s(literal 8 binary64)) (.f64 (pow.f64 M #s(literal 4 binary64)) (.f64 (pow.f64 h #s(literal 4 binary64)) (.f64 (pow.f64 w #s(literal 4 binary64)) (pow.f64 #s(literal -1 binary64) #s(literal 3/2 binary64)))))))) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 (.f64 M M) (.f64 (.f64 h h) (.f64 (.f64 w w) (sqrt.f64 #s(literal -1 binary64)))))))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 M (*.f64 h w)))))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (.f64 M (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 c0 (sqrt.f64 #s(literal -1 binary64))) w)) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 c0 M) (/.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (sqrt.f64 #s(literal -1 binary64)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) w))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (.f64 M (+.f64 (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 c0 (.f64 M M)) (/.f64 (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (pow.f64 (.f64 h w) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) #s(literal 2 binary64)) #s(literal -1 binary64)))) (.f64 w (sqrt.f64 #s(literal -1 binary64)))))) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 c0 (sqrt.f64 #s(literal -1 binary64))) w)) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 c0 M) (/.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (sqrt.f64 #s(literal -1 binary64)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (*.f64 h w)))) w)))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (.f64 M (+.f64 (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 c0 (pow.f64 M #s(literal 3 binary64))) (/.f64 (.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (pow.f64 (.f64 h w) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) #s(literal 2 binary64)) #s(literal -1 binary64))))) (.f64 w (pow.f64 #s(literal -1 binary64) #s(literal 3/2 binary64)))))) (+.f64 (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 c0 (.f64 M M)) (/.f64 (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (pow.f64 (.f64 h w) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) #s(literal 2 binary64)) #s(literal -1 binary64)))) (.f64 w (sqrt.f64 #s(literal -1 binary64)))))) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 c0 (sqrt.f64 #s(literal -1 binary64))) w)) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 c0 M) (/.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (sqrt.f64 #s(literal -1 binary64)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (*.f64 h w)))) w))))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (.f64 M (+.f64 (.f64 c0 (sqrt.f64 #s(literal -1 binary64))) (/.f64 (.f64 c0 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (sqrt.f64 #s(literal -1 binary64)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))) M))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (.f64 M (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 c0 (.f64 M M)) (/.f64 (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (pow.f64 (.f64 h w) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) #s(literal 2 binary64)) #s(literal -1 binary64)))) (sqrt.f64 #s(literal -1 binary64))))) (+.f64 (.f64 c0 (sqrt.f64 #s(literal -1 binary64))) (/.f64 (.f64 c0 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (sqrt.f64 #s(literal -1 binary64)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))) M)))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (.f64 M (+.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 c0 (.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (pow.f64 (.f64 h w) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) #s(literal 2 binary64)) #s(literal -1 binary64)))))) (pow.f64 (.f64 M (sqrt.f64 #s(literal -1 binary64))) #s(literal 3 binary64)))) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 c0 (.f64 M M)) (/.f64 (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (pow.f64 (.f64 h w) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) #s(literal 2 binary64)) #s(literal -1 binary64)))) (sqrt.f64 #s(literal -1 binary64))))) (+.f64 (.f64 c0 (sqrt.f64 #s(literal -1 binary64))) (/.f64 (.f64 c0 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (sqrt.f64 #s(literal -1 binary64)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))) M))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) (.f64 M (+.f64 (sqrt.f64 #s(literal -1 binary64)) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (.f64 M (sqrt.f64 #s(literal -1 binary64))))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 M (.f64 h w))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) (.f64 M (+.f64 (sqrt.f64 #s(literal -1 binary64)) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (.f64 M (sqrt.f64 #s(literal -1 binary64))))) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (pow.f64 (.f64 h w) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) #s(literal 2 binary64)) #s(literal -1 binary64)))) (.f64 (.f64 M M) (sqrt.f64 #s(literal -1 binary64))))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 M (.f64 h w)))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) (.f64 M (+.f64 (sqrt.f64 #s(literal -1 binary64)) (+.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (pow.f64 (.f64 h w) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) #s(literal 2 binary64)) #s(literal -1 binary64))))) (pow.f64 (.f64 M (sqrt.f64 #s(literal -1 binary64))) #s(literal 3 binary64)))) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (.f64 M (sqrt.f64 #s(literal -1 binary64))))) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (pow.f64 (.f64 h w) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) #s(literal 2 binary64)) #s(literal -1 binary64)))) (.f64 (.f64 M M) (sqrt.f64 #s(literal -1 binary64))))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 M (*.f64 h w))))))))))
#s(approx (* c0 (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w)))))) (.f64 (.f64 M M) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 D D) (.f64 h w)) (.f64 c0 (.f64 d d)))) (.f64 #s(literal 2 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 (.f64 M M) (.f64 h w))))))))
#s(approx (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w))))) (.f64 (.f64 M M) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (ratio-of-squares.f64 D c0) (/.f64 (.f64 h w) (.f64 d d)))) (.f64 #s(literal 2 binary64) (/.f64 (.f64 d d) (.f64 (.f64 D D) (.f64 (.f64 M M) (*.f64 h w))))))))
#s(approx (/ (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (* w w)) (.f64 (.f64 M M) (+.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 D D) h) (.f64 d d))) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) (.f64 (.f64 M M) (.f64 h (.f64 w w))))))))
#s(approx (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (.f64 (.f64 M M) (+.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 D D) (.f64 h (.f64 w w))) (.f64 d d))) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) (.f64 (.f64 M M) h))))))
#s(approx (* h (+ (* -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h h))))) (.f64 (.f64 M M) (+.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 D D) (.f64 h (.f64 w w))) (.f64 d d))) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) (.f64 (.f64 M M) h))))))
#s(approx (+ (* -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h h)))) (.f64 (.f64 M M) (+.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (.f64 D w) #s(literal 2 binary64)) (.f64 d d))) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) (pow.f64 (.f64 M h) #s(literal 2 binary64)))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 M (*.f64 c0 (sqrt.f64 #s(literal -1 binary64)))) w)))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (.f64 #s(literal -1 binary64) (.f64 M (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) (.f64 M (.f64 h (.f64 w w)))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 c0 (sqrt.f64 #s(literal -1 binary64))) w))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (.f64 #s(literal -1 binary64) (.f64 M (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (pow.f64 c0 #s(literal 3 binary64)) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 M (.f64 (.f64 h h) (.f64 (pow.f64 w #s(literal 3 binary64)) (sqrt.f64 #s(literal -1 binary64)))))))) (.f64 #s(literal 1/2 binary64) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) (.f64 h (.f64 w w)))))) M)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 c0 (sqrt.f64 #s(literal -1 binary64))) w))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (.f64 #s(literal -1 binary64) (.f64 M (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1/16 binary64) (.f64 (/.f64 (pow.f64 c0 #s(literal 5 binary64)) (pow.f64 D #s(literal 8 binary64))) (/.f64 (pow.f64 d #s(literal 8 binary64)) (.f64 (.f64 M M) (.f64 (pow.f64 h #s(literal 4 binary64)) (.f64 (pow.f64 w #s(literal 5 binary64)) (pow.f64 #s(literal -1 binary64) #s(literal 3/2 binary64)))))))) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (pow.f64 c0 #s(literal 3 binary64)) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 (.f64 h h) (.f64 (pow.f64 w #s(literal 3 binary64)) (sqrt.f64 #s(literal -1 binary64)))))))) M)) (.f64 #s(literal 1/2 binary64) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) (.f64 h (.f64 w w)))))) M)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 c0 (sqrt.f64 #s(literal -1 binary64))) w))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (.f64 #s(literal -1 binary64) (.f64 M (sqrt.f64 #s(literal -1 binary64)))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (.f64 #s(literal -1 binary64) (.f64 M (+.f64 (sqrt.f64 #s(literal -1 binary64)) (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 M (*.f64 h w)))))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (.f64 #s(literal -1 binary64) (.f64 M (+.f64 (sqrt.f64 #s(literal -1 binary64)) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 M (.f64 (.f64 h h) (.f64 (.f64 w w) (sqrt.f64 #s(literal -1 binary64)))))))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) M))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (.f64 #s(literal -1 binary64) (.f64 M (+.f64 (sqrt.f64 #s(literal -1 binary64)) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (pow.f64 c0 #s(literal 4 binary64)) (pow.f64 D #s(literal 8 binary64))) (/.f64 (pow.f64 d #s(literal 8 binary64)) (.f64 (.f64 M M) (.f64 (pow.f64 h #s(literal 4 binary64)) (.f64 (pow.f64 w #s(literal 4 binary64)) (pow.f64 #s(literal -1 binary64) #s(literal 3/2 binary64)))))))) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 (.f64 h h) (.f64 (.f64 w w) (sqrt.f64 #s(literal -1 binary64)))))))) M)) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) M))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 M (*.f64 c0 (sqrt.f64 #s(literal -1 binary64)))) w)))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (.f64 #s(literal -1 binary64) (.f64 M (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (/.f64 c0 M) (/.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (sqrt.f64 #s(literal -1 binary64)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) w))) (.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 c0 (sqrt.f64 #s(literal -1 binary64))) w))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (.f64 #s(literal -1 binary64) (.f64 M (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 c0 M) (/.f64 (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (pow.f64 (.f64 h w) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) #s(literal 2 binary64)) #s(literal -1 binary64)))) (.f64 w (sqrt.f64 #s(literal -1 binary64)))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 c0 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (sqrt.f64 #s(literal -1 binary64)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))) w))) M)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 c0 (sqrt.f64 #s(literal -1 binary64))) w))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (.f64 #s(literal -1 binary64) (.f64 M (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal 1/8 binary64) (.f64 (/.f64 c0 M) (/.f64 (.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (pow.f64 (.f64 h w) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) #s(literal 2 binary64)) #s(literal -1 binary64))))) (.f64 w (pow.f64 #s(literal -1 binary64) #s(literal 3/2 binary64)))))) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 c0 w) (/.f64 (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (pow.f64 (.f64 h w) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) #s(literal 2 binary64)) #s(literal -1 binary64)))) (sqrt.f64 #s(literal -1 binary64)))))) M)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 c0 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (sqrt.f64 #s(literal -1 binary64)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))) w))) M)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 c0 (sqrt.f64 #s(literal -1 binary64))) w))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (.f64 #s(literal -1 binary64) (.f64 M (*.f64 c0 (sqrt.f64 #s(literal -1 binary64))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (.f64 #s(literal -1 binary64) (.f64 M (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (sqrt.f64 #s(literal -1 binary64)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))) M)) (.f64 c0 (sqrt.f64 #s(literal -1 binary64)))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (.f64 #s(literal -1 binary64) (.f64 M (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (/.f64 c0 M) (/.f64 (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (pow.f64 (.f64 h w) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) #s(literal 2 binary64)) #s(literal -1 binary64)))) (sqrt.f64 #s(literal -1 binary64))))) (.f64 c0 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (sqrt.f64 #s(literal -1 binary64)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))))) M)) (*.f64 c0 (sqrt.f64 #s(literal -1 binary64)))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (.f64 #s(literal -1 binary64) (.f64 M (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 c0 M) (/.f64 (.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (pow.f64 (.f64 h w) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) #s(literal 2 binary64)) #s(literal -1 binary64))))) (pow.f64 #s(literal -1 binary64) #s(literal 3/2 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 c0 (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (pow.f64 (.f64 h w) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) #s(literal 2 binary64)) #s(literal -1 binary64))))) (sqrt.f64 #s(literal -1 binary64))))) M)) (.f64 c0 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (sqrt.f64 #s(literal -1 binary64)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))))) M)) (*.f64 c0 (sqrt.f64 #s(literal -1 binary64)))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) (.f64 #s(literal -1 binary64) (.f64 M (sqrt.f64 #s(literal -1 binary64)))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) (.f64 #s(literal -1 binary64) (.f64 M (+.f64 (sqrt.f64 #s(literal -1 binary64)) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (sqrt.f64 #s(literal -1 binary64)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) M))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) (.f64 #s(literal -1 binary64) (.f64 M (+.f64 (sqrt.f64 #s(literal -1 binary64)) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (pow.f64 (.f64 h w) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) #s(literal 2 binary64)) #s(literal -1 binary64)))) (.f64 M (sqrt.f64 #s(literal -1 binary64))))) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (sqrt.f64 #s(literal -1 binary64)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (*.f64 h w))))) M))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) (.f64 #s(literal -1 binary64) (.f64 M (+.f64 (sqrt.f64 #s(literal -1 binary64)) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) M) (/.f64 (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (pow.f64 (.f64 h w) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) #s(literal 2 binary64)) #s(literal -1 binary64)))) (pow.f64 #s(literal -1 binary64) #s(literal 3/2 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (pow.f64 (.f64 h w) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) #s(literal 2 binary64)) #s(literal -1 binary64)))) (sqrt.f64 #s(literal -1 binary64))))) M)) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (sqrt.f64 #s(literal -1 binary64)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (*.f64 h w))))) M))))))

eval684.0ms (4.2%)

Memory

34.6MiB live, 959.7MiB allocated; 131ms collecting garbage

Samples

441.0ms	10 722×	0	valid
1.0ms	30×	0	invalid

Compiler

Compiled 79 178 to 4 327 computations (94.5% saved)

Precisions

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

ival-mult: 142.0ms (65.4% of total)

ival-div: 62.0ms (28.6% of total)

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

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

adjust: 2.0ms (0.9% of total)

prune904.0ms (5.5%)

Memory

-29.3MiB live, 1 225.8MiB allocated; 214ms collecting garbage

Pruning

33 alts after pruning (28 fresh and 5 done)

	Pruned	Kept	Total
New	668	6	674
Fresh	3	22	25
Picked	2	3	5
Done	0	2	2
Total	673	33	706

Accuracy

74.6%

Counts

706 → 33

Alt Table

Click to see full alt table

Status	Accuracy	Program
▶	12.1%	(/.f64 (.f64 c0 (+.f64 (.f64 (/.f64 c0 (.f64 h w)) (ratio-of-squares.f64 d D)) (sqrt-product.f64 (.f64 (/.f64 c0 (.f64 h w)) (.f64 (/.f64 d D) (/.f64 d D))) M))) (*.f64 w #s(literal 2 binary64)))
	33.9%	(/.f64 (.f64 c0 (+.f64 (.f64 (/.f64 c0 (.f64 h w)) (ratio-of-squares.f64 d D)) (.f64 (sqrt.f64 (+.f64 (.f64 (/.f64 c0 (.f64 h w)) (ratio-of-squares.f64 d D)) M)) (sqrt.f64 (-.f64 (.f64 (/.f64 c0 (.f64 h w)) (ratio-of-squares.f64 d D)) M))))) (*.f64 w #s(literal 2 binary64)))
	3.6%	(/.f64 (.f64 c0 (+.f64 (.f64 (/.f64 c0 (.f64 h w)) (ratio-of-squares.f64 d D)) #s(approx (sqrt ( (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))) (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))))) (*.f64 w #s(literal 2 binary64)))
✓	29.7%	(/.f64 (.f64 c0 #s(approx (+ ( (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) (.f64 #s(literal 2 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))))) (*.f64 w #s(literal 2 binary64)))
	29.8%	(/.f64 #s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (.f64 #s(literal 2 binary64) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) (.f64 h w))))) (*.f64 w #s(literal 2 binary64)))
	7.5%	(.f64 (/.f64 c0 (.f64 #s(literal 2 binary64) w)) (/.f64 (+.f64 (pow.f64 (.f64 (/.f64 c0 (.f64 h w)) (ratio-of-squares.f64 d D)) #s(literal 3 binary64)) (pow.f64 (sqrt-product.f64 (.f64 (/.f64 c0 (.f64 h w)) (ratio-of-squares.f64 d D)) M) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (/.f64 c0 (.f64 h w)) (ratio-of-squares.f64 d D)) #s(literal 2 binary64)) (-.f64 (.f64 (sqrt-product.f64 (.f64 (/.f64 c0 (.f64 h w)) (ratio-of-squares.f64 d D)) M) (sqrt-product.f64 (.f64 (/.f64 c0 (.f64 h w)) (ratio-of-squares.f64 d D)) M)) (.f64 (.f64 (/.f64 c0 (.f64 h w)) (ratio-of-squares.f64 d D)) (sqrt-product.f64 (.f64 (/.f64 c0 (.f64 h w)) (ratio-of-squares.f64 d D)) M))))))
	21.2%	(.f64 (/.f64 c0 (.f64 #s(literal 2 binary64) w)) (+.f64 (/.f64 (.f64 (.f64 c0 d) d) (.f64 (.f64 w h) (.f64 D D))) (sqrt.f64 (-.f64 (.f64 (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 w h) (.f64 D D))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 w h) (.f64 D D)))) (*.f64 M M)))))
	19.9%	(.f64 (/.f64 c0 (.f64 #s(literal 2 binary64) w)) (+.f64 (.f64 (/.f64 c0 (.f64 h w)) (ratio-of-squares.f64 d D)) #s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) (.f64 c0 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (ratio-of-squares.f64 D c0) (/.f64 (.f64 (.f64 M M) (.f64 h w)) (.f64 d d)))) (/.f64 (.f64 d d) (.f64 (.f64 D D) (*.f64 h w))))))))
✓	39.2%	(.f64 (/.f64 c0 (.f64 #s(literal 2 binary64) w)) #s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (.f64 (.f64 (/.f64 c0 (*.f64 h w)) (ratio-of-squares.f64 d D)) #s(literal 2 binary64))))
✓	39.1%	(.f64 (/.f64 c0 (.f64 #s(literal 2 binary64) w)) #s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (.f64 (.f64 (/.f64 c0 (.f64 h w)) (.f64 (/.f64 d D) (/.f64 d D))) #s(literal 2 binary64))))
✓	0.0%	(.f64 (/.f64 c0 (.f64 #s(literal 2 binary64) w)) #s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (*.f64 (sqrt.f64 #s(literal -1 binary64)) M)))
▶	35.3%	(.f64 (/.f64 c0 (.f64 #s(literal 2 binary64) w)) #s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (.f64 c0 #s(approx (+ ( -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w))))) (.f64 #s(literal 2 binary64) (.f64 (/.f64 d (.f64 D D)) (/.f64 d (.f64 h w))))))))
	18.4%	(.f64 (/.f64 c0 (.f64 #s(literal 2 binary64) w)) #s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (.f64 c0 #s(approx (+ ( -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w))))) (.f64 #s(literal -1/2 binary64) (.f64 (ratio-of-squares.f64 D c0) (.f64 (/.f64 (.f64 M M) d) (/.f64 (*.f64 h w) d))))))))
	3.7%	(.f64 (/.f64 c0 (.f64 #s(literal 2 binary64) w)) #s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (.f64 #s(literal -1 binary64) (.f64 c0 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 d d) (.f64 (.f64 D D) (.f64 h w)))) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (ratio-of-squares.f64 D c0) (/.f64 (.f64 (.f64 M M) (.f64 h w)) (.f64 d d)))) (/.f64 (.f64 d d) (.f64 (.f64 D D) (*.f64 h w)))))))))
▶	7.3%	(.f64 (/.f64 c0 (.f64 #s(literal 2 binary64) w)) #s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (neg.f64 (.f64 (.f64 #s(literal 0 binary64) (/.f64 (ratio-of-squares.f64 d D) (*.f64 h w))) c0))))
	20.1%	(.f64 (/.f64 c0 (.f64 #s(literal 2 binary64) w)) #s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(approx (* c0 (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w)))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 D D) (.f64 (.f64 M M) (.f64 h w))) (.f64 c0 (.f64 d d)))))))
▶	27.5%	#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) (.f64 h (.f64 w w)))))
	22.1%	#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (/.f64 (+.f64 (/.f64 (pow.f64 (.f64 c0 d) #s(literal 2 binary64)) (.f64 (.f64 D D) h)) (.f64 (/.f64 (.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) (.f64 (.f64 w w) h)) (.f64 d d)) #s(literal -1/4 binary64))) (.f64 w w)))
	31.8%	#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (/.f64 (+.f64 (.f64 (ratio-of-squares.f64 c0 D) (ratio-of-squares.f64 d w)) (.f64 (.f64 (.f64 D D) (ratio-of-squares.f64 (pow.f64 (*.f64 M h) #s(literal 1 binary64)) d)) #s(literal -1/4 binary64))) h))
	18.4%	#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (/.f64 (+.f64 (.f64 (/.f64 (.f64 c0 c0) h) (ratio-of-squares.f64 d w)) (.f64 (/.f64 (.f64 (.f64 (.f64 M M) h) (pow.f64 D #s(literal 4 binary64))) (.f64 d d)) #s(literal -1/4 binary64))) (.f64 D D)))
	15.7%	#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (/.f64 #s(approx (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (/.f64 (+.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 (.f64 M M) (.f64 h (.f64 w w)))) (.f64 d d))) (/.f64 (pow.f64 (.f64 c0 d) #s(literal 2 binary64)) h)) (.f64 D D))) (.f64 w w)))
	19.3%	#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (/.f64 #s(approx (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (/.f64 (+.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 D D) (.f64 (.f64 M M) (pow.f64 (.f64 h w) #s(literal 2 binary64)))) (.f64 d d))) (/.f64 (pow.f64 (.f64 c0 d) #s(literal 2 binary64)) (.f64 D D))) h)) (.f64 w w)))
	26.1%	#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (/.f64 #s(approx (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) h))) (*.f64 w w)))
	29.5%	#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (/.f64 #s(approx (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (.f64 h #s(approx (+ ( -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h h)))) (.f64 (ratio-of-squares.f64 c0 D) (ratio-of-squares.f64 d h))))) (.f64 w w)))
	21.3%	#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (/.f64 #s(approx (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (.f64 h #s(approx (+ ( -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h h)))) (.f64 (.f64 c0 c0) (+.f64 (.f64 #s(literal -1/4 binary64) (.f64 (ratio-of-squares.f64 D c0) (ratio-of-squares.f64 (.f64 M w) d))) (/.f64 (.f64 d d) (pow.f64 (.f64 D h) #s(literal 2 binary64)))))))) (.f64 w w)))
▶	17.7%	#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (/.f64 #s(approx (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (.f64 h #s(approx (+ ( -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h h)))) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 D D) (pow.f64 (.f64 M w) #s(literal 2 binary64))) (.f64 d d)))))) (.f64 w w)))
	14.1%	#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (/.f64 #s(approx (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 D D) (.f64 (.f64 M M) (.f64 h (.f64 w w)))) (.f64 d d)))) (*.f64 w w)))
	5.9%	#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (.f64 (/.f64 (.f64 (.f64 #s(literal 0 binary64) (/.f64 (ratio-of-squares.f64 d D) (.f64 h w))) (*.f64 c0 c0)) w) #s(literal -1/2 binary64)))
	5.5%	#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (.f64 (-.f64 (.f64 (/.f64 (.f64 #s(literal 0 binary64) (/.f64 (ratio-of-squares.f64 d D) (.f64 h w))) w) #s(literal -1/2 binary64)) (.f64 (.f64 (ratio-of-squares.f64 D c0) (.f64 (.f64 M M) (/.f64 h (.f64 d d)))) #s(literal -1/4 binary64))) (.f64 c0 c0)))
✓	31.4%	#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (.f64 (.f64 c0 c0) (/.f64 (ratio-of-squares.f64 d D) (.f64 (.f64 w w) h))))
	4.9%	#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (.f64 (.f64 c0 c0) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 d d) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 d d) (.f64 (.f64 D D) (.f64 h w)))) w)) (.f64 #s(literal 1/4 binary64) (.f64 (ratio-of-squares.f64 D c0) (/.f64 (.f64 (.f64 M M) h) (*.f64 d d)))))))
	10.9%	#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(approx (/ (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (* w w)) (.f64 (.f64 D D) (+.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 M M) h) (.f64 d d))) (/.f64 (pow.f64 (.f64 c0 d) #s(literal 2 binary64)) (.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 h (.f64 w w))))))))
	27.8%	#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(approx (/ (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (* w w)) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 D D) (.f64 (.f64 M M) h)) (.f64 d d)))))

Samples

593.0ms	12 952×	0	valid
39.0ms	872×	0	invalid

Compiler

Compiled 5 451 to 2 377 computations (56.4% saved)

Precisions

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

ival-mult: 216.0ms (67.5% of total)

ival-div: 73.0ms (22.8% of total)

ival-true: 8.0ms (2.5% of total)

ival-sqrt: 6.0ms (1.9% of total)

ival-add: 5.0ms (1.6% of total)

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

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

adjust: 3.0ms (0.9% of total)

series242.0ms (1.5%)

Memory

25.2MiB live, 455.5MiB allocated; 58ms collecting garbage

Counts

55 → 467

Calls

Call 1

Inputs
(.f64 (/.f64 c0 (.f64 #s(literal 2 binary64) w)) #s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (.f64 c0 #s(approx (+ ( -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w))))) (.f64 #s(literal 2 binary64) (.f64 (/.f64 d (.f64 D D)) (/.f64 d (.f64 h w))))))))
(/.f64 c0 (*.f64 #s(literal 2 binary64) w))
c0
(*.f64 #s(literal 2 binary64) w)
#s(literal 2 binary64)
w
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (.f64 c0 #s(approx (+ ( -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w))))) (.f64 #s(literal 2 binary64) (.f64 (/.f64 d (.f64 D D)) (/.f64 d (.f64 h w)))))))
(.f64 c0 #s(approx (+ ( -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w))))) (.f64 #s(literal 2 binary64) (.f64 (/.f64 d (.f64 D D)) (/.f64 d (.f64 h w))))))
#s(approx (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w))))) (.f64 #s(literal 2 binary64) (.f64 (/.f64 d (.f64 D D)) (/.f64 d (.f64 h w)))))
(.f64 #s(literal 2 binary64) (.f64 (/.f64 d (.f64 D D)) (/.f64 d (.f64 h w))))
(.f64 (/.f64 d (.f64 D D)) (/.f64 d (*.f64 h w)))
(/.f64 d (*.f64 D D))
d
(*.f64 D D)
D
(/.f64 d (*.f64 h w))
(*.f64 h w)
h
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) (.f64 h (.f64 w w)))))
(.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) (.f64 h (.f64 w w))))
(ratio-of-squares.f64 c0 D)
(/.f64 (.f64 d d) (.f64 h (*.f64 w w)))
(*.f64 d d)
(.f64 h (.f64 w w))
(*.f64 w w)
(.f64 (/.f64 c0 (.f64 #s(literal 2 binary64) w)) #s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (neg.f64 (.f64 (.f64 #s(literal 0 binary64) (/.f64 (ratio-of-squares.f64 d D) (*.f64 h w))) c0))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (neg.f64 (.f64 (.f64 #s(literal 0 binary64) (/.f64 (ratio-of-squares.f64 d D) (*.f64 h w))) c0)))
(neg.f64 (.f64 (.f64 #s(literal 0 binary64) (/.f64 (ratio-of-squares.f64 d D) (*.f64 h w))) c0))
(.f64 (.f64 #s(literal 0 binary64) (/.f64 (ratio-of-squares.f64 d D) (*.f64 h w))) c0)
(.f64 #s(literal 0 binary64) (/.f64 (ratio-of-squares.f64 d D) (.f64 h w)))
#s(literal 0 binary64)
(/.f64 (ratio-of-squares.f64 d D) (*.f64 h w))
(ratio-of-squares.f64 d D)
(/.f64 (.f64 c0 (+.f64 (.f64 (/.f64 c0 (.f64 h w)) (ratio-of-squares.f64 d D)) (sqrt-product.f64 (.f64 (/.f64 c0 (.f64 h w)) (.f64 (/.f64 d D) (/.f64 d D))) M))) (*.f64 w #s(literal 2 binary64)))
(.f64 c0 (+.f64 (.f64 (/.f64 c0 (.f64 h w)) (ratio-of-squares.f64 d D)) (sqrt-product.f64 (.f64 (/.f64 c0 (.f64 h w)) (.f64 (/.f64 d D) (/.f64 d D))) M)))
(+.f64 (.f64 (/.f64 c0 (.f64 h w)) (ratio-of-squares.f64 d D)) (sqrt-product.f64 (.f64 (/.f64 c0 (.f64 h w)) (*.f64 (/.f64 d D) (/.f64 d D))) M))
(.f64 (/.f64 c0 (.f64 h w)) (ratio-of-squares.f64 d D))
(/.f64 c0 (*.f64 h w))
(sqrt-product.f64 (.f64 (/.f64 c0 (.f64 h w)) (*.f64 (/.f64 d D) (/.f64 d D))) M)
(.f64 (/.f64 c0 (.f64 h w)) (*.f64 (/.f64 d D) (/.f64 d D)))
(*.f64 (/.f64 d D) (/.f64 d D))
(/.f64 d D)
M
(*.f64 w #s(literal 2 binary64))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (/.f64 #s(approx (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (.f64 h #s(approx (+ ( -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h h)))) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 D D) (pow.f64 (.f64 M w) #s(literal 2 binary64))) (.f64 d d)))))) (.f64 w w)))
(/.f64 #s(approx (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (.f64 h #s(approx (+ ( -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h h)))) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 D D) (pow.f64 (.f64 M w) #s(literal 2 binary64))) (.f64 d d)))))) (.f64 w w))
#s(approx (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (.f64 h #s(approx (+ ( -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h h)))) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 D D) (pow.f64 (.f64 M w) #s(literal 2 binary64))) (*.f64 d d))))))
(.f64 h #s(approx (+ ( -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h h)))) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 D D) (pow.f64 (.f64 M w) #s(literal 2 binary64))) (*.f64 d d)))))
#s(approx (+ (* -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h h)))) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 D D) (pow.f64 (.f64 M w) #s(literal 2 binary64))) (*.f64 d d))))
(.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 D D) (pow.f64 (.f64 M w) #s(literal 2 binary64))) (*.f64 d d)))
#s(literal -1/4 binary64)
(/.f64 (.f64 (.f64 D D) (pow.f64 (.f64 M w) #s(literal 2 binary64))) (.f64 d d))
(.f64 (.f64 D D) (pow.f64 (*.f64 M w) #s(literal 2 binary64)))
(pow.f64 (*.f64 M w) #s(literal 2 binary64))
(*.f64 M w)

Outputs
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* 1/2 (/ (* M (* c0 (sqrt -1))) w))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* c0 (+ (* 1/2 (/ (* M (sqrt -1)) w)) (* 1/2 (/ (* c0 (pow d 2)) (* (pow D 2) (* h (pow w 2)))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* c0 (+ (* 1/2 (/ (* M (sqrt -1)) w)) (* c0 (+ (* 1/4 (/ (* c0 (pow d 4)) (* (pow D 4) (* M (* (pow h 2) (* (pow w 3) (sqrt -1))))))) (* 1/2 (/ (pow d 2) (* (pow D 2) (* h (pow w 2)))))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* c0 (+ (* 1/2 (/ (* M (sqrt -1)) w)) (* c0 (+ (* 1/2 (/ (pow d 2) (* (pow D 2) (* h (pow w 2))))) (* c0 (+ (* -1/16 (/ (* (pow c0 2) (pow d 8)) (* (pow D 8) (* (pow M 3) (* (pow h 4) (* (pow w 5) (pow (sqrt -1) 3))))))) (* 1/4 (/ (pow d 4) (* (pow D 4) (* M (* (pow h 2) (* (pow w 3) (sqrt -1)))))))))))))))
#s(approx (/ c0 (* 2 w)) #s(hole binary64 (* 1/2 (/ c0 w))))
#s(approx c0 #s(hole binary64 c0))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (* M (sqrt -1))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (+ (* M (sqrt -1)) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (+ (* M (sqrt -1)) (* c0 (+ (* 1/2 (/ (* c0 (pow d 4)) (* (pow D 4) (* M (* (pow h 2) (* (pow w 2) (sqrt -1))))))) (/ (pow d 2) (* (pow D 2) (* h w))))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (+ (* M (sqrt -1)) (* c0 (+ (* c0 (+ (* -1/8 (/ (* (pow c0 2) (pow d 8)) (* (pow D 8) (* (pow M 3) (* (pow h 4) (* (pow w 4) (pow (sqrt -1) 3))))))) (* 1/2 (/ (pow d 4) (* (pow D 4) (* M (* (pow h 2) (* (pow w 2) (sqrt -1))))))))) (/ (pow d 2) (* (pow D 2) (* h w))))))))
#s(approx (* c0 (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w)))))) #s(hole binary64 (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h w))) (* c0 (pow d 2))))))
#s(approx (* c0 (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w)))))) #s(hole binary64 (/ (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h w))) (pow d 2))) (* 2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h w))))) c0)))
#s(approx (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w))))) #s(hole binary64 (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h w))) (* (pow c0 2) (pow d 2))))))
#s(approx (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w))))) #s(hole binary64 (/ (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h w))) (pow d 2))) (* 2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h w))))) (pow c0 2))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (* 1/2 (/ (* M (* c0 (sqrt -1))) w))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (* c0 (+ (* 1/2 (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (* M (* w (sqrt -1))))) (/ (pow d 2) (* (pow D 2) (* h (pow w 2))))))) (* 1/2 (/ (* M (sqrt -1)) w))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (* c0 (+ (* 1/2 (/ (* M (sqrt -1)) w)) (* c0 (+ (* 1/4 (/ (* c0 (- (/ (pow d 4) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* M (* w (sqrt -1))))) (* 1/2 (+ (* 1/2 (/ (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (* M (* w (sqrt -1))))) (/ (pow d 2) (* (pow D 2) (* h (pow w 2))))))))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (* c0 (+ (* 1/2 (/ (* M (sqrt -1)) w)) (* c0 (+ (* 1/2 (+ (* 1/2 (/ (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (* M (* w (sqrt -1))))) (/ (pow d 2) (* (pow D 2) (* h (pow w 2)))))) (* c0 (+ (* -1/8 (/ (* c0 (* (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (- (/ (pow d 4) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2) (* (pow M 2) (pow (sqrt -1) 2))))))) (* (pow M 3) (* w (pow (sqrt -1) 3))))) (* 1/4 (/ (- (/ (pow d 4) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2) (* (pow M 2) (pow (sqrt -1) 2))))) (* M (* w (sqrt -1)))))))))))))
#s(approx (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h (* w w)))) #s(hole binary64 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h (pow w 2))))))
#s(approx (/ (* c0 c0) (* D D)) #s(hole binary64 (/ (pow c0 2) (pow D 2))))
#s(approx (neg (* (* 0 (/ (/ (* d d) (* D D)) (* h w))) c0)) #s(hole binary64 0))
#s(approx (* (* 0 (/ (/ (* d d) (* D D)) (* h w))) c0) #s(hole binary64 0))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) (* w 2)) #s(hole binary64 (* 1/2 (/ (* M (* c0 (sqrt -1))) w))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) (* w 2)) #s(hole binary64 (* c0 (+ (* 1/2 (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (* M (* w (sqrt -1))))) (/ (pow d 2) (* (pow D 2) (* h (pow w 2))))))) (* 1/2 (/ (* M (sqrt -1)) w))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) (* w 2)) #s(hole binary64 (* c0 (+ (* 1/2 (/ (* M (sqrt -1)) w)) (* c0 (+ (* 1/4 (/ (* c0 (- (/ (pow d 4) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* M (* w (sqrt -1))))) (* 1/2 (+ (* 1/2 (/ (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (* M (* w (sqrt -1))))) (/ (pow d 2) (* (pow D 2) (* h (pow w 2))))))))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) (* w 2)) #s(hole binary64 (* c0 (+ (* 1/2 (/ (* M (sqrt -1)) w)) (* c0 (+ (* 1/2 (+ (* 1/2 (/ (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (* M (* w (sqrt -1))))) (/ (pow d 2) (* (pow D 2) (* h (pow w 2)))))) (* c0 (+ (* -1/8 (/ (* c0 (* (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (- (/ (pow d 4) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2) (* (pow M 2) (pow (sqrt -1) 2))))))) (* (pow M 3) (* w (pow (sqrt -1) 3))))) (* 1/4 (/ (- (/ (pow d 4) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2) (* (pow M 2) (pow (sqrt -1) 2))))) (* M (* w (sqrt -1)))))))))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) #s(hole binary64 (* M (* c0 (sqrt -1)))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) #s(hole binary64 (* c0 (+ (* M (sqrt -1)) (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (* M (sqrt -1)))) (/ (pow d 2) (* (pow D 2) (* h w)))))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) #s(hole binary64 (* c0 (+ (* M (sqrt -1)) (* c0 (+ (* 1/2 (/ (* c0 (- (/ (pow d 4) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* M (sqrt -1)))) (+ (* 1/2 (/ (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (* M (sqrt -1)))) (/ (pow d 2) (* (pow D 2) (* h w))))))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) #s(hole binary64 (* c0 (+ (* M (sqrt -1)) (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (* M (sqrt -1)))) (+ (* c0 (+ (* -1/4 (/ (* c0 (* (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (- (/ (pow d 4) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2) (* (pow M 2) (pow (sqrt -1) 2))))))) (* (pow M 3) (pow (sqrt -1) 3)))) (* 1/2 (/ (- (/ (pow d 4) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2) (* (pow M 2) (pow (sqrt -1) 2))))) (* M (sqrt -1)))))) (/ (pow d 2) (* (pow D 2) (* h w))))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M)))) #s(hole binary64 (* M (sqrt -1))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M)))) #s(hole binary64 (+ (* M (sqrt -1)) (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (* M (sqrt -1)))) (/ (pow d 2) (* (pow D 2) (* h w))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M)))) #s(hole binary64 (+ (* M (sqrt -1)) (* c0 (+ (* 1/2 (/ (* c0 (- (/ (pow d 4) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* M (sqrt -1)))) (+ (* 1/2 (/ (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (* M (sqrt -1)))) (/ (pow d 2) (* (pow D 2) (* h w)))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M)))) #s(hole binary64 (+ (* M (sqrt -1)) (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (* M (sqrt -1)))) (+ (* c0 (+ (* -1/4 (/ (* c0 (* (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (- (/ (pow d 4) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2) (* (pow M 2) (pow (sqrt -1) 2))))))) (* (pow M 3) (pow (sqrt -1) 3)))) (* 1/2 (/ (- (/ (pow d 4) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2) (* (pow M 2) (pow (sqrt -1) 2))))) (* M (sqrt -1)))))) (/ (pow d 2) (* (pow D 2) (* h w)))))))))
#s(approx (* (/ c0 (* h w)) (/ (* d d) (* D D))) #s(hole binary64 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))))
#s(approx (/ c0 (* h w)) #s(hole binary64 (/ c0 (* h w))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))) #s(hole binary64 (* M (sqrt -1))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))) #s(hole binary64 (+ (* 1/2 (/ (* c0 (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w))))) (* M (sqrt -1)))) (* M (sqrt -1)))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))) #s(hole binary64 (+ (* M (sqrt -1)) (* c0 (+ (* 1/2 (/ (* c0 (- (/ (pow d 4) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* M (sqrt -1)))) (* 1/2 (/ (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (* M (sqrt -1)))))))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))) #s(hole binary64 (+ (* M (sqrt -1)) (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (* M (sqrt -1)))) (* c0 (+ (* -1/4 (/ (* c0 (* (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (- (/ (pow d 4) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2) (* (pow M 2) (pow (sqrt -1) 2))))))) (* (pow M 3) (pow (sqrt -1) 3)))) (* 1/2 (/ (- (/ (pow d 4) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2) (* (pow M 2) (pow (sqrt -1) 2))))) (* M (sqrt -1)))))))))))
#s(approx (* (/ c0 (* h w)) (* (/ d D) (/ d D))) #s(hole binary64 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))))
#s(approx (/ (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (* w w)) #s(hole binary64 (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))))
#s(approx (/ (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (* w w)) #s(hole binary64 (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h (pow w 2)))))))
#s(approx (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) #s(hole binary64 (* -1/4 (/ (* (pow D 2) (* (pow M 2) (* h (pow w 2)))) (pow d 2)))))
#s(approx (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) #s(hole binary64 (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (* h (pow w 2)))) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) h)))))
#s(approx (* h (+ (* -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h h))))) #s(hole binary64 (* -1/4 (/ (* (pow D 2) (* (pow M 2) (* h (pow w 2)))) (pow d 2)))))
#s(approx (* h (+ (* -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h h))))) #s(hole binary64 (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (* h (pow w 2)))) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) h)))))
#s(approx (+ (* -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h h)))) #s(hole binary64 (* -1/4 (/ (* (pow D 2) (* (pow M 2) (pow w 2))) (pow d 2)))))
#s(approx (+ (* -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h h)))) #s(hole binary64 (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (pow w 2))) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (pow h 2))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h (pow w 2))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* (pow c0 2) (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow c0 2) (pow d 2)))) (/ (pow d 2) (* (pow D 2) (* h (pow w 2))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* (pow c0 2) (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow c0 2) (pow d 2)))) (+ (* -1/16 (/ (* (pow D 6) (* (pow M 4) (* (pow h 3) (pow w 2)))) (* (pow c0 4) (pow d 6)))) (/ (pow d 2) (* (pow D 2) (* h (pow w 2)))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* (pow c0 2) (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow c0 2) (pow d 2)))) (+ (* -1/16 (/ (* (pow D 6) (* (pow M 4) (* (pow h 3) (pow w 2)))) (* (pow c0 4) (pow d 6)))) (+ (* -1/32 (/ (* (pow D 10) (* (pow M 6) (* (pow h 5) (pow w 4)))) (* (pow c0 6) (pow d 10)))) (/ (pow d 2) (* (pow D 2) (* h (pow w 2))))))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (* 2 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (* c0 (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h w))) (* (pow c0 2) (pow d 2)))) (* 2 (/ (pow d 2) (* (pow D 2) (* h w))))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (* c0 (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h w))) (* (pow c0 2) (pow d 2)))) (+ (* -1/8 (/ (* (pow D 6) (* (pow M 4) (* (pow h 3) (pow w 3)))) (* (pow c0 4) (pow d 6)))) (* 2 (/ (pow d 2) (* (pow D 2) (* h w)))))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (* c0 (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h w))) (* (pow c0 2) (pow d 2)))) (+ (* -1/8 (/ (* (pow D 6) (* (pow M 4) (* (pow h 3) (pow w 3)))) (* (pow c0 4) (pow d 6)))) (+ (* -1/16 (/ (* (pow D 10) (* (pow M 6) (* (pow h 5) (pow w 5)))) (* (pow c0 6) (pow d 10)))) (* 2 (/ (pow d 2) (* (pow D 2) (* h w))))))))))
#s(approx (* c0 (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w)))))) #s(hole binary64 (* 2 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))))
#s(approx (* c0 (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w)))))) #s(hole binary64 (* c0 (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h w))) (* (pow c0 2) (pow d 2)))) (* 2 (/ (pow d 2) (* (pow D 2) (* h w))))))))
#s(approx (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w))))) #s(hole binary64 (* 2 (/ (pow d 2) (* (pow D 2) (* h w))))))
#s(approx (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w))))) #s(hole binary64 (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h w))) (* (pow c0 2) (pow d 2)))) (* 2 (/ (pow d 2) (* (pow D 2) (* h w)))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h (pow w 2))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (* (pow c0 2) (+ (* 1/4 (/ (* (pow D 2) (* h (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))))) (* c0 (pow d 2)))) (/ (pow d 2) (* (pow D 2) (* h (pow w 2))))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (* (pow c0 2) (+ (* 1/4 (/ (* (pow D 2) (* h (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))))) (* c0 (pow d 2)))) (+ (* 1/4 (/ (* (pow D 2) (* h (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (pow d 4)))))) (* (pow c0 2) (pow d 2)))) (/ (pow d 2) (* (pow D 2) (* h (pow w 2)))))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (* (pow c0 2) (+ (* -1/8 (/ (* (pow D 6) (* (pow h 3) (* (pow w 2) (* (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (pow d 4)))))))) (* (pow c0 3) (pow d 6)))) (+ (* 1/4 (/ (* (pow D 2) (* h (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))))) (* c0 (pow d 2)))) (+ (* 1/4 (/ (* (pow D 2) (* h (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (pow d 4)))))) (* (pow c0 2) (pow d 2)))) (/ (pow d 2) (* (pow D 2) (* h (pow w 2))))))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) (* w 2)) #s(hole binary64 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h (pow w 2))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) (* w 2)) #s(hole binary64 (* (pow c0 2) (+ (* 1/4 (/ (* (pow D 2) (* h (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))))) (* c0 (pow d 2)))) (/ (pow d 2) (* (pow D 2) (* h (pow w 2))))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) (* w 2)) #s(hole binary64 (* (pow c0 2) (+ (* 1/4 (/ (* (pow D 2) (* h (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))))) (* c0 (pow d 2)))) (+ (* 1/4 (/ (* (pow D 2) (* h (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (pow d 4)))))) (* (pow c0 2) (pow d 2)))) (/ (pow d 2) (* (pow D 2) (* h (pow w 2)))))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) (* w 2)) #s(hole binary64 (* (pow c0 2) (+ (* -1/8 (/ (* (pow D 6) (* (pow h 3) (* (pow w 2) (* (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (pow d 4)))))))) (* (pow c0 3) (pow d 6)))) (+ (* 1/4 (/ (* (pow D 2) (* h (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))))) (* c0 (pow d 2)))) (+ (* 1/4 (/ (* (pow D 2) (* h (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (pow d 4)))))) (* (pow c0 2) (pow d 2)))) (/ (pow d 2) (* (pow D 2) (* h (pow w 2))))))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) #s(hole binary64 (* 2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h w))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) #s(hole binary64 (* (pow c0 2) (+ (* 1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w))))))) (* c0 (pow d 2)))) (* 2 (/ (pow d 2) (* (pow D 2) (* h w))))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) #s(hole binary64 (* (pow c0 2) (+ (* 1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w))))))) (* c0 (pow d 2)))) (+ (* 1/2 (/ (* (pow D 2) (* h (* w (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (pow d 4))))))) (* (pow c0 2) (pow d 2)))) (* 2 (/ (pow d 2) (* (pow D 2) (* h w)))))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) #s(hole binary64 (* (pow c0 2) (+ (* -1/4 (/ (* (pow D 6) (* (pow h 3) (* (pow w 3) (* (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (pow d 4)))))))) (* (pow c0 3) (pow d 6)))) (+ (* 1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w))))))) (* c0 (pow d 2)))) (+ (* 1/2 (/ (* (pow D 2) (* h (* w (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (pow d 4))))))) (* (pow c0 2) (pow d 2)))) (* 2 (/ (pow d 2) (* (pow D 2) (* h w))))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M)))) #s(hole binary64 (* 2 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M)))) #s(hole binary64 (* c0 (+ (* 1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w))))))) (* c0 (pow d 2)))) (* 2 (/ (pow d 2) (* (pow D 2) (* h w))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M)))) #s(hole binary64 (* c0 (+ (* 1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w))))))) (* c0 (pow d 2)))) (+ (* 1/2 (/ (* (pow D 2) (* h (* w (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (pow d 4))))))) (* (pow c0 2) (pow d 2)))) (* 2 (/ (pow d 2) (* (pow D 2) (* h w)))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M)))) #s(hole binary64 (* c0 (+ (* -1/4 (/ (* (pow D 6) (* (pow h 3) (* (pow w 3) (* (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (pow d 4)))))))) (* (pow c0 3) (pow d 6)))) (+ (* 1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w))))))) (* c0 (pow d 2)))) (+ (* 1/2 (/ (* (pow D 2) (* h (* w (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (pow d 4))))))) (* (pow c0 2) (pow d 2)))) (* 2 (/ (pow d 2) (* (pow D 2) (* h w))))))))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))) #s(hole binary64 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))) #s(hole binary64 (* c0 (+ (* 1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w))))))) (* c0 (pow d 2)))) (/ (pow d 2) (* (pow D 2) (* h w)))))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))) #s(hole binary64 (* c0 (+ (* 1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w))))))) (* c0 (pow d 2)))) (+ (* 1/2 (/ (* (pow D 2) (* h (* w (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (pow d 4))))))) (* (pow c0 2) (pow d 2)))) (/ (pow d 2) (* (pow D 2) (* h w))))))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))) #s(hole binary64 (* c0 (+ (* -1/4 (/ (* (pow D 6) (* (pow h 3) (* (pow w 3) (* (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (pow d 4)))))))) (* (pow c0 3) (pow d 6)))) (+ (* 1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w))))))) (* c0 (pow d 2)))) (+ (* 1/2 (/ (* (pow D 2) (* h (* w (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (pow d 4))))))) (* (pow c0 2) (pow d 2)))) (/ (pow d 2) (* (pow D 2) (* h w)))))))))
#s(approx (/ (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (* w w)) #s(hole binary64 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h (pow w 2))))))
#s(approx (/ (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (* w w)) #s(hole binary64 (* (pow c0 2) (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow c0 2) (pow d 2)))) (/ (pow d 2) (* (pow D 2) (* h (pow w 2))))))))
#s(approx (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) #s(hole binary64 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) h))))
#s(approx (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) #s(hole binary64 (* (pow c0 2) (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (* h (pow w 2)))) (* (pow c0 2) (pow d 2)))) (/ (pow d 2) (* (pow D 2) h))))))
#s(approx (* h (+ (* -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h h))))) #s(hole binary64 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) h))))
#s(approx (* h (+ (* -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h h))))) #s(hole binary64 (* (pow c0 2) (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (* h (pow w 2)))) (* (pow c0 2) (pow d 2)))) (/ (pow d 2) (* (pow D 2) h))))))
#s(approx (+ (* -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h h)))) #s(hole binary64 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (pow h 2)))))
#s(approx (+ (* -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h h)))) #s(hole binary64 (* (pow c0 2) (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (pow w 2))) (* (pow c0 2) (pow d 2)))) (/ (pow d 2) (* (pow D 2) (pow h 2)))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* -1/2 (/ (* (pow c0 2) (+ (* -1 (/ (pow d 2) (* (pow D 2) (* h w)))) (/ (pow d 2) (* (pow D 2) (* h w))))) w))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* (pow c0 2) (+ (* -1/2 (/ (+ (* -1 (/ (pow d 2) (* (pow D 2) (* h w)))) (/ (pow d 2) (* (pow D 2) (* h w)))) w)) (* 1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow c0 2) (pow d 2))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* (pow c0 2) (+ (* -1/2 (/ (+ (* -1 (/ (pow d 2) (* (pow D 2) (* h w)))) (/ (pow d 2) (* (pow D 2) (* h w)))) w)) (+ (* 1/16 (/ (* (pow D 6) (* (pow M 4) (* (pow h 3) (pow w 2)))) (* (pow c0 4) (pow d 6)))) (* 1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow c0 2) (pow d 2)))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* (pow c0 2) (+ (* -1/2 (/ (+ (* -1 (/ (pow d 2) (* (pow D 2) (* h w)))) (/ (pow d 2) (* (pow D 2) (* h w)))) w)) (+ (* 1/32 (/ (* (pow D 10) (* (pow M 6) (* (pow h 5) (pow w 4)))) (* (pow c0 6) (pow d 10)))) (+ (* 1/16 (/ (* (pow D 6) (* (pow M 4) (* (pow h 3) (pow w 2)))) (* (pow c0 4) (pow d 6)))) (* 1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow c0 2) (pow d 2))))))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (* -1 (* c0 (+ (* -1 (/ (pow d 2) (* (pow D 2) (* h w)))) (/ (pow d 2) (* (pow D 2) (* h w))))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (* -1 (* c0 (+ (* -1 (/ (pow d 2) (* (pow D 2) (* h w)))) (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h w))) (* (pow c0 2) (pow d 2)))) (/ (pow d 2) (* (pow D 2) (* h w)))))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (* -1 (* c0 (+ (* -1 (/ (pow d 2) (* (pow D 2) (* h w)))) (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h w))) (* (pow c0 2) (pow d 2)))) (+ (* -1/8 (/ (* (pow D 6) (* (pow M 4) (* (pow h 3) (pow w 3)))) (* (pow c0 4) (pow d 6)))) (/ (pow d 2) (* (pow D 2) (* h w))))))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (* -1 (* c0 (+ (* -1 (/ (pow d 2) (* (pow D 2) (* h w)))) (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h w))) (* (pow c0 2) (pow d 2)))) (+ (* -1/8 (/ (* (pow D 6) (* (pow M 4) (* (pow h 3) (pow w 3)))) (* (pow c0 4) (pow d 6)))) (+ (* -1/16 (/ (* (pow D 10) (* (pow M 6) (* (pow h 5) (pow w 5)))) (* (pow c0 6) (pow d 10)))) (/ (pow d 2) (* (pow D 2) (* h w)))))))))))
#s(approx (* c0 (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w)))))) #s(hole binary64 (* -1 (* c0 (+ (* -2 (/ (pow d 2) (* (pow D 2) (* h w)))) (* 1/2 (/ (* (pow D 2) (* (pow M 2) (* h w))) (* (pow c0 2) (pow d 2)))))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (* -1/2 (/ (* (pow c0 2) (+ (* -1 (/ (pow d 2) (* (pow D 2) (* h w)))) (/ (pow d 2) (* (pow D 2) (* h w))))) w))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (* (pow c0 2) (+ (* -1/2 (/ (+ (* -1 (/ (pow d 2) (* (pow D 2) (* h w)))) (/ (pow d 2) (* (pow D 2) (* h w)))) w)) (* 1/4 (/ (* (pow D 2) (* h (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))))) (* c0 (pow d 2))))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (* (pow c0 2) (+ (* -1 (/ (+ (* -1/4 (/ (* (pow D 2) (* h (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))))) (pow d 2))) (* 1/4 (/ (* (pow D 2) (* h (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (pow d 4)))))) (* c0 (pow d 2))))) c0)) (* -1/2 (/ (+ (* -1 (/ (pow d 2) (* (pow D 2) (* h w)))) (/ (pow d 2) (* (pow D 2) (* h w)))) w))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (* (pow c0 2) (+ (* -1 (/ (+ (* -1 (/ (+ (* -1/4 (/ (* (pow D 2) (* h (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (pow d 4)))))) (pow d 2))) (* -1/8 (/ (* (pow D 6) (* (pow h 3) (* (pow w 2) (* (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (pow d 4)))))))) (* c0 (pow d 6))))) c0)) (* -1/4 (/ (* (pow D 2) (* h (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))))) (pow d 2)))) c0)) (* -1/2 (/ (+ (* -1 (/ (pow d 2) (* (pow D 2) (* h w)))) (/ (pow d 2) (* (pow D 2) (* h w)))) w))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) (* w 2)) #s(hole binary64 (* -1/2 (/ (* (pow c0 2) (+ (* -1 (/ (pow d 2) (* (pow D 2) (* h w)))) (/ (pow d 2) (* (pow D 2) (* h w))))) w))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) (* w 2)) #s(hole binary64 (* (pow c0 2) (+ (* -1/2 (/ (+ (* -1 (/ (pow d 2) (* (pow D 2) (* h w)))) (/ (pow d 2) (* (pow D 2) (* h w)))) w)) (* 1/4 (/ (* (pow D 2) (* h (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))))) (* c0 (pow d 2))))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) (* w 2)) #s(hole binary64 (* (pow c0 2) (+ (* -1 (/ (+ (* -1/4 (/ (* (pow D 2) (* h (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))))) (pow d 2))) (* 1/4 (/ (* (pow D 2) (* h (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (pow d 4)))))) (* c0 (pow d 2))))) c0)) (* -1/2 (/ (+ (* -1 (/ (pow d 2) (* (pow D 2) (* h w)))) (/ (pow d 2) (* (pow D 2) (* h w)))) w))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) (* w 2)) #s(hole binary64 (* (pow c0 2) (+ (* -1 (/ (+ (* -1 (/ (+ (* -1/4 (/ (* (pow D 2) (* h (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (pow d 4)))))) (pow d 2))) (* -1/8 (/ (* (pow D 6) (* (pow h 3) (* (pow w 2) (* (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (pow d 4)))))))) (* c0 (pow d 6))))) c0)) (* -1/4 (/ (* (pow D 2) (* h (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))))) (pow d 2)))) c0)) (* -1/2 (/ (+ (* -1 (/ (pow d 2) (* (pow D 2) (* h w)))) (/ (pow d 2) (* (pow D 2) (* h w)))) w))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) #s(hole binary64 (* -1 (* (pow c0 2) (+ (* -1 (/ (pow d 2) (* (pow D 2) (* h w)))) (/ (pow d 2) (* (pow D 2) (* h w))))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) #s(hole binary64 (* (pow c0 2) (+ (* -1 (+ (* -1 (/ (pow d 2) (* (pow D 2) (* h w)))) (/ (pow d 2) (* (pow D 2) (* h w))))) (* 1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w))))))) (* c0 (pow d 2))))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) #s(hole binary64 (* (pow c0 2) (+ (* -1 (+ (* -1 (/ (pow d 2) (* (pow D 2) (* h w)))) (/ (pow d 2) (* (pow D 2) (* h w))))) (* -1 (/ (+ (* -1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w))))))) (pow d 2))) (* 1/2 (/ (* (pow D 2) (* h (* w (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (pow d 4))))))) (* c0 (pow d 2))))) c0))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) #s(hole binary64 (* (pow c0 2) (+ (* -1 (+ (* -1 (/ (pow d 2) (* (pow D 2) (* h w)))) (/ (pow d 2) (* (pow D 2) (* h w))))) (* -1 (/ (+ (* -1 (/ (+ (* -1/2 (/ (* (pow D 2) (* h (* w (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (pow d 4))))))) (pow d 2))) (* -1/4 (/ (* (pow D 6) (* (pow h 3) (* (pow w 3) (* (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (pow d 4)))))))) (* c0 (pow d 6))))) c0)) (* -1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w))))))) (pow d 2)))) c0))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M)))) #s(hole binary64 (* -1 (* c0 (+ (* -1 (/ (pow d 2) (* (pow D 2) (* h w)))) (/ (pow d 2) (* (pow D 2) (* h w))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M)))) #s(hole binary64 (* -1 (* c0 (+ (* -1 (/ (pow d 2) (* (pow D 2) (* h w)))) (+ (* -1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w))))))) (* c0 (pow d 2)))) (/ (pow d 2) (* (pow D 2) (* h w)))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M)))) #s(hole binary64 (* -1 (* c0 (+ (* -1 (/ (+ (* -1/2 (/ (* (pow D 2) (* h (* w (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (pow d 4))))))) (* c0 (pow d 2)))) (* 1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w))))))) (pow d 2)))) c0)) (+ (* -1 (/ (pow d 2) (* (pow D 2) (* h w)))) (/ (pow d 2) (* (pow D 2) (* h w)))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M)))) #s(hole binary64 (* -1 (* c0 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/4 (/ (* (pow D 6) (* (pow h 3) (* (pow w 3) (* (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (pow d 4)))))))) (* c0 (pow d 6)))) (* 1/2 (/ (* (pow D 2) (* h (* w (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (pow d 4))))))) (pow d 2)))) c0)) (* 1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w))))))) (pow d 2)))) c0)) (+ (* -1 (/ (pow d 2) (* (pow D 2) (* h w)))) (/ (pow d 2) (* (pow D 2) (* h w)))))))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))) #s(hole binary64 (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))) #s(hole binary64 (* -1 (* c0 (+ (* -1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w))))))) (* c0 (pow d 2)))) (/ (pow d 2) (* (pow D 2) (* h w))))))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))) #s(hole binary64 (* -1 (* c0 (+ (* -1 (/ (+ (* -1/2 (/ (* (pow D 2) (* h (* w (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (pow d 4))))))) (* c0 (pow d 2)))) (* 1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w))))))) (pow d 2)))) c0)) (/ (pow d 2) (* (pow D 2) (* h w))))))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))) #s(hole binary64 (* -1 (* c0 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/4 (/ (* (pow D 6) (* (pow h 3) (* (pow w 3) (* (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (pow d 4)))))))) (* c0 (pow d 6)))) (* 1/2 (/ (* (pow D 2) (* h (* w (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (pow d 4))))))) (pow d 2)))) c0)) (* 1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w))))))) (pow d 2)))) c0)) (/ (pow d 2) (* (pow D 2) (* h w))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (/ (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (* h (pow w 2)))) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) h))) (pow w 2))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (/ (+ (* (pow w 2) (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2))) (* -1/16 (/ (* (pow D 6) (* (pow M 4) (* (pow h 3) (pow w 2)))) (* (pow c0 2) (pow d 6)))))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) h))) (pow w 2))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (/ (+ (* (pow w 2) (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2))) (* (pow w 2) (+ (* -1/16 (/ (* (pow D 6) (* (pow M 4) (pow h 3))) (* (pow c0 2) (pow d 6)))) (* -1/32 (/ (* (pow D 10) (* (pow M 6) (* (pow h 5) (pow w 2)))) (* (pow c0 4) (pow d 10)))))))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) h))) (pow w 2))))
#s(approx (* 2 w) #s(hole binary64 (* 2 w)))
#s(approx w #s(hole binary64 w))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (/ (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h (pow w 2)))) (* c0 (pow d 2)))) (* 2 (/ (* c0 (pow d 2)) (* (pow D 2) h)))) w)))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (/ (+ (* 2 (/ (* c0 (pow d 2)) (* (pow D 2) h))) (* (pow w 2) (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) h)) (* c0 (pow d 2)))) (* -1/8 (/ (* (pow D 6) (* (pow M 4) (* (pow h 3) (pow w 2)))) (* (pow c0 3) (pow d 6))))))) w)))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (/ (+ (* 2 (/ (* c0 (pow d 2)) (* (pow D 2) h))) (* (pow w 2) (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) h)) (* c0 (pow d 2)))) (* (pow w 2) (+ (* -1/8 (/ (* (pow D 6) (* (pow M 4) (pow h 3))) (* (pow c0 3) (pow d 6)))) (* -1/16 (/ (* (pow D 10) (* (pow M 6) (* (pow h 5) (pow w 2)))) (* (pow c0 5) (pow d 10))))))))) w)))
#s(approx (* c0 (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w)))))) #s(hole binary64 (/ (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h (pow w 2)))) (* c0 (pow d 2)))) (* 2 (/ (* c0 (pow d 2)) (* (pow D 2) h)))) w)))
#s(approx (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w))))) #s(hole binary64 (/ (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h (pow w 2)))) (* (pow c0 2) (pow d 2)))) (* 2 (/ (pow d 2) (* (pow D 2) h)))) w)))
#s(approx (* 2 (* (/ d (* D D)) (/ d (* h w)))) #s(hole binary64 (* 2 (/ (pow d 2) (* (pow D 2) (* h w))))))
#s(approx (* (/ d (* D D)) (/ d (* h w))) #s(hole binary64 (/ (pow d 2) (* (pow D 2) (* h w)))))
#s(approx (/ d (* h w)) #s(hole binary64 (/ d (* h w))))
#s(approx (* h w) #s(hole binary64 (* h w)))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (/ (+ (* 1/4 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h)))))) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) h))) (pow w 2))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (/ (+ (* w (+ (* 1/4 (/ (* (pow D 2) (* h (* w (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2))) (* (pow c0 2) (pow d 4)))))))) (pow d 2))) (* 1/4 (/ (* (pow D 2) (* h (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))))) (pow d 2))))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) h))) (pow w 2))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (/ (+ (* w (+ (* 1/4 (/ (* (pow D 2) (* h (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))))) (pow d 2))) (* w (+ (* -1/8 (/ (* (pow D 6) (* (pow h 3) (* w (* (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2))) (* (pow c0 2) (pow d 4))))))))) (* (pow c0 2) (pow d 6)))) (* 1/4 (/ (* (pow D 2) (* h (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2))) (* (pow c0 2) (pow d 4))))))) (pow d 2))))))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) h))) (pow w 2))))
#s(approx (/ (* d d) (* h (* w w))) #s(hole binary64 (/ (pow d 2) (* h (pow w 2)))))
#s(approx (* h (* w w)) #s(hole binary64 (* h (pow w 2))))
#s(approx (* w w) #s(hole binary64 (pow w 2)))
#s(approx (* 0 (/ (/ (* d d) (* D D)) (* h w))) #s(hole binary64 0))
#s(approx (/ (/ (* d d) (* D D)) (* h w)) #s(hole binary64 (/ (pow d 2) (* (pow D 2) (* h w)))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) (* w 2)) #s(hole binary64 (/ (+ (* 1/4 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h)))))) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) h))) (pow w 2))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) (* w 2)) #s(hole binary64 (/ (+ (* w (+ (* 1/4 (/ (* (pow D 2) (* h (* w (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2))) (* (pow c0 2) (pow d 4)))))))) (pow d 2))) (* 1/4 (/ (* (pow D 2) (* h (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))))) (pow d 2))))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) h))) (pow w 2))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) (* w 2)) #s(hole binary64 (/ (+ (* w (+ (* 1/4 (/ (* (pow D 2) (* h (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))))) (pow d 2))) (* w (+ (* -1/8 (/ (* (pow D 6) (* (pow h 3) (* w (* (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2))) (* (pow c0 2) (pow d 4))))))))) (* (pow c0 2) (pow d 6)))) (* 1/4 (/ (* (pow D 2) (* h (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2))) (* (pow c0 2) (pow d 4))))))) (pow d 2))))))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) h))) (pow w 2))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) #s(hole binary64 (/ (+ (* 1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h)))))) (pow d 2))) (* 2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) h)))) w)))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) #s(hole binary64 (/ (+ (* 2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) h))) (* w (+ (* 1/2 (/ (* (pow D 2) (* h (* w (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2))) (* (pow c0 2) (pow d 4)))))))) (pow d 2))) (* 1/2 (/ (* (pow D 2) (* h (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))))) (pow d 2)))))) w)))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) #s(hole binary64 (/ (+ (* 2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) h))) (* w (+ (* 1/2 (/ (* (pow D 2) (* h (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))))) (pow d 2))) (* w (+ (* -1/4 (/ (* (pow D 6) (* (pow h 3) (* w (* (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2))) (* (pow c0 2) (pow d 4))))))))) (* (pow c0 2) (pow d 6)))) (* 1/2 (/ (* (pow D 2) (* h (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2))) (* (pow c0 2) (pow d 4))))))) (pow d 2)))))))) w)))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M)))) #s(hole binary64 (/ (+ (* 1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h)))))) (* c0 (pow d 2)))) (* 2 (/ (* c0 (pow d 2)) (* (pow D 2) h)))) w)))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M)))) #s(hole binary64 (/ (+ (* 2 (/ (* c0 (pow d 2)) (* (pow D 2) h))) (* w (+ (* 1/2 (/ (* (pow D 2) (* h (* w (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2))) (* (pow c0 2) (pow d 4)))))))) (* c0 (pow d 2)))) (* 1/2 (/ (* (pow D 2) (* h (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))))) (* c0 (pow d 2))))))) w)))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M)))) #s(hole binary64 (/ (+ (* 2 (/ (* c0 (pow d 2)) (* (pow D 2) h))) (* w (+ (* 1/2 (/ (* (pow D 2) (* h (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))))) (* c0 (pow d 2)))) (* w (+ (* -1/4 (/ (* (pow D 6) (* (pow h 3) (* w (* (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2))) (* (pow c0 2) (pow d 4))))))))) (* (pow c0 3) (pow d 6)))) (* 1/2 (/ (* (pow D 2) (* h (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2))) (* (pow c0 2) (pow d 4))))))) (* c0 (pow d 2))))))))) w)))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))) #s(hole binary64 (/ (+ (* 1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h)))))) (* c0 (pow d 2)))) (/ (* c0 (pow d 2)) (* (pow D 2) h))) w)))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))) #s(hole binary64 (/ (+ (* w (+ (* 1/2 (/ (* (pow D 2) (* h (* w (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2))) (* (pow c0 2) (pow d 4)))))))) (* c0 (pow d 2)))) (* 1/2 (/ (* (pow D 2) (* h (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))))) (* c0 (pow d 2)))))) (/ (* c0 (pow d 2)) (* (pow D 2) h))) w)))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))) #s(hole binary64 (/ (+ (* w (+ (* 1/2 (/ (* (pow D 2) (* h (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))))) (* c0 (pow d 2)))) (* w (+ (* -1/4 (/ (* (pow D 6) (* (pow h 3) (* w (* (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2))) (* (pow c0 2) (pow d 4))))))))) (* (pow c0 3) (pow d 6)))) (* 1/2 (/ (* (pow D 2) (* h (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2))) (* (pow c0 2) (pow d 4))))))) (* c0 (pow d 2)))))))) (/ (* c0 (pow d 2)) (* (pow D 2) h))) w)))
#s(approx (* w 2) #s(hole binary64 (* 2 w)))
#s(approx (/ (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (* w w)) #s(hole binary64 (/ (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (* h (pow w 2)))) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) h))) (pow w 2))))
#s(approx (* -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) #s(hole binary64 (* -1/4 (/ (* (pow D 2) (* (pow M 2) (pow w 2))) (pow d 2)))))
#s(approx (/ (* (* D D) (pow (* M w) 2)) (* d d)) #s(hole binary64 (/ (* (pow D 2) (* (pow M 2) (pow w 2))) (pow d 2))))
#s(approx (* (* D D) (pow (* M w) 2)) #s(hole binary64 (* (pow D 2) (* (pow M 2) (pow w 2)))))
#s(approx (pow (* M w) 2) #s(hole binary64 (* (pow M 2) (pow w 2))))
#s(approx (* M w) #s(hole binary64 (* M w)))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (/ (+ (* 1/2 (* M (* c0 (sqrt -1)))) (* 1/2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h w))))) w)))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (/ (+ (* 1/4 (/ (* (pow c0 3) (pow d 4)) (* (pow D 4) (* M (* (pow h 2) (* (pow w 2) (sqrt -1))))))) (+ (* 1/2 (* M (* c0 (sqrt -1)))) (* 1/2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h w)))))) w)))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (/ (+ (* -1/16 (/ (* (pow c0 5) (pow d 8)) (* (pow D 8) (* (pow M 3) (* (pow h 4) (* (pow w 4) (pow (sqrt -1) 3))))))) (+ (* 1/4 (/ (* (pow c0 3) (pow d 4)) (* (pow D 4) (* M (* (pow h 2) (* (pow w 2) (sqrt -1))))))) (+ (* 1/2 (* M (* c0 (sqrt -1)))) (* 1/2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h w))))))) w)))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (+ (* 1/2 (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* M (* (pow h 2) (* (pow w 2) (sqrt -1))))))) (+ (* M (sqrt -1)) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (+ (* -1/8 (/ (* (pow c0 4) (pow d 8)) (* (pow D 8) (* (pow M 3) (* (pow h 4) (* (pow w 4) (pow (sqrt -1) 3))))))) (+ (* 1/2 (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* M (* (pow h 2) (* (pow w 2) (sqrt -1))))))) (+ (* M (sqrt -1)) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))))))
#s(approx (* c0 (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w)))))) #s(hole binary64 (* w (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) h)) (* c0 (pow d 2)))) (* 2 (/ (* c0 (pow d 2)) (* (pow D 2) (* h (pow w 2)))))))))
#s(approx (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w))))) #s(hole binary64 (* w (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow c0 2) (pow d 2)))) (* 2 (/ (pow d 2) (* (pow D 2) (* h (pow w 2)))))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (/ (+ (* 1/2 (* M (* c0 (sqrt -1)))) (* 1/2 (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (* M (sqrt -1)))) (/ (* c0 (pow d 2)) (* (pow D 2) h)))) w))) w)))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (/ (+ (* 1/4 (/ (* c0 (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow h 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* M (* (pow w 2) (sqrt -1))))) (+ (* 1/2 (* M (* c0 (sqrt -1)))) (* 1/2 (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (* M (sqrt -1)))) (/ (* c0 (pow d 2)) (* (pow D 2) h)))) w)))) w)))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (/ (+ (* -1/8 (/ (* c0 (* (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow h 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2) (* (pow M 2) (pow (sqrt -1) 2))))))) (* (pow M 3) (* (pow w 3) (pow (sqrt -1) 3))))) (+ (* 1/4 (/ (* c0 (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow h 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* M (* (pow w 2) (sqrt -1))))) (+ (* 1/2 (* M (* c0 (sqrt -1)))) (* 1/2 (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (* M (sqrt -1)))) (/ (* c0 (pow d 2)) (* (pow D 2) h)))) w))))) w)))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) (* w 2)) #s(hole binary64 (/ (+ (* 1/2 (* M (* c0 (sqrt -1)))) (* 1/2 (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (* M (sqrt -1)))) (/ (* c0 (pow d 2)) (* (pow D 2) h)))) w))) w)))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) (* w 2)) #s(hole binary64 (/ (+ (* 1/4 (/ (* c0 (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow h 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* M (* (pow w 2) (sqrt -1))))) (+ (* 1/2 (* M (* c0 (sqrt -1)))) (* 1/2 (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (* M (sqrt -1)))) (/ (* c0 (pow d 2)) (* (pow D 2) h)))) w)))) w)))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) (* w 2)) #s(hole binary64 (/ (+ (* -1/8 (/ (* c0 (* (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow h 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2) (* (pow M 2) (pow (sqrt -1) 2))))))) (* (pow M 3) (* (pow w 3) (pow (sqrt -1) 3))))) (+ (* 1/4 (/ (* c0 (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow h 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* M (* (pow w 2) (sqrt -1))))) (+ (* 1/2 (* M (* c0 (sqrt -1)))) (* 1/2 (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (* M (sqrt -1)))) (/ (* c0 (pow d 2)) (* (pow D 2) h)))) w))))) w)))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) #s(hole binary64 (+ (* M (* c0 (sqrt -1))) (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (* M (sqrt -1)))) (/ (* c0 (pow d 2)) (* (pow D 2) h)))) w))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) #s(hole binary64 (+ (* 1/2 (/ (* c0 (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow h 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* M (* (pow w 2) (sqrt -1))))) (+ (* M (* c0 (sqrt -1))) (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (* M (sqrt -1)))) (/ (* c0 (pow d 2)) (* (pow D 2) h)))) w)))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) #s(hole binary64 (+ (* -1/4 (/ (* c0 (* (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow h 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2) (* (pow M 2) (pow (sqrt -1) 2))))))) (* (pow M 3) (* (pow w 3) (pow (sqrt -1) 3))))) (+ (* 1/2 (/ (* c0 (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow h 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* M (* (pow w 2) (sqrt -1))))) (+ (* M (* c0 (sqrt -1))) (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (* M (sqrt -1)))) (/ (* c0 (pow d 2)) (* (pow D 2) h)))) w))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M)))) #s(hole binary64 (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (* M (* w (sqrt -1))))) (+ (* M (sqrt -1)) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M)))) #s(hole binary64 (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (* M (* w (sqrt -1))))) (+ (* 1/2 (/ (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow h 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2) (* (pow M 2) (pow (sqrt -1) 2))))) (* M (* (pow w 2) (sqrt -1))))) (+ (* M (sqrt -1)) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M)))) #s(hole binary64 (+ (* -1/4 (/ (* (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow h 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* (pow M 3) (* (pow w 3) (pow (sqrt -1) 3))))) (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (* M (* w (sqrt -1))))) (+ (* 1/2 (/ (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow h 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2) (* (pow M 2) (pow (sqrt -1) 2))))) (* M (* (pow w 2) (sqrt -1))))) (+ (* M (sqrt -1)) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))))))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))) #s(hole binary64 (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (* M (* w (sqrt -1))))) (* M (sqrt -1)))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))) #s(hole binary64 (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (* M (* w (sqrt -1))))) (+ (* 1/2 (/ (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow h 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2) (* (pow M 2) (pow (sqrt -1) 2))))) (* M (* (pow w 2) (sqrt -1))))) (* M (sqrt -1))))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))) #s(hole binary64 (+ (* -1/4 (/ (* (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow h 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* (pow M 3) (* (pow w 3) (pow (sqrt -1) 3))))) (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (* M (* w (sqrt -1))))) (+ (* 1/2 (/ (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow h 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2) (* (pow M 2) (pow (sqrt -1) 2))))) (* M (* (pow w 2) (sqrt -1))))) (* M (sqrt -1)))))))
#s(approx (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) #s(hole binary64 (* (pow w 2) (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h (pow w 2))))))))
#s(approx (* h (+ (* -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h h))))) #s(hole binary64 (* (pow w 2) (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h (pow w 2))))))))
#s(approx (+ (* -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h h)))) #s(hole binary64 (* (pow w 2) (+ (* -1/4 (/ (* (pow D 2) (pow M 2)) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* (pow h 2) (pow w 2))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* -1 (/ (+ (* -1/2 (* M (* c0 (sqrt -1)))) (* -1/2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h w))))) w))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (+ (* 1/4 (/ (* (pow c0 3) (pow d 4)) (* (pow D 4) (* M (* (pow h 2) (* w (sqrt -1))))))) (* 1/2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) h)))) w)) (* -1/2 (* M (* c0 (sqrt -1))))) w))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (+ (* -1 (/ (+ (* -1/4 (/ (* (pow c0 3) (pow d 4)) (* (pow D 4) (* M (* (pow h 2) (sqrt -1)))))) (* 1/16 (/ (* (pow c0 5) (pow d 8)) (* (pow D 8) (* (pow M 3) (* (pow h 4) (* (pow w 2) (pow (sqrt -1) 3)))))))) w)) (* 1/2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) h)))) w)) (* -1/2 (* M (* c0 (sqrt -1))))) w))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) h))) (* -1/2 (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* M (* (pow h 2) (* w (sqrt -1)))))))) w)) (* M (sqrt -1)))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) h))) (* -1 (/ (+ (* -1/8 (/ (* (pow c0 4) (pow d 8)) (* (pow D 8) (* (pow M 3) (* (pow h 4) (* (pow w 2) (pow (sqrt -1) 3))))))) (* 1/2 (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* M (* (pow h 2) (sqrt -1))))))) w))) w)) (* M (sqrt -1)))))
#s(approx (* c0 (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w)))))) #s(hole binary64 (* -1 (* w (+ (* -2 (/ (* c0 (pow d 2)) (* (pow D 2) (* h (pow w 2))))) (* 1/2 (/ (* (pow D 2) (* (pow M 2) h)) (* c0 (pow d 2)))))))))
#s(approx (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w))))) #s(hole binary64 (* -1 (* w (+ (* -2 (/ (pow d 2) (* (pow D 2) (* h (pow w 2))))) (* 1/2 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow c0 2) (pow d 2)))))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (* -1 (/ (+ (* -1/2 (* M (* c0 (sqrt -1)))) (* 1/2 (/ (* c0 (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) h))) (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (* M (sqrt -1)))))) w))) w))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (+ (* -1/2 (* c0 (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) h))) (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (* M (sqrt -1))))))) (* 1/4 (/ (* c0 (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow h 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* M (* w (sqrt -1)))))) w)) (* -1/2 (* M (* c0 (sqrt -1))))) w))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (+ (* -1 (/ (+ (* -1/4 (/ (* c0 (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow h 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* M (sqrt -1)))) (* -1/8 (/ (* c0 (* (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow h 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2) (* (pow M 2) (pow (sqrt -1) 2))))))) (* (pow M 3) (* w (pow (sqrt -1) 3)))))) w)) (* -1/2 (* c0 (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) h))) (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (* M (sqrt -1)))))))) w)) (* -1/2 (* M (* c0 (sqrt -1))))) w))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) (* w 2)) #s(hole binary64 (* -1 (/ (+ (* -1/2 (* M (* c0 (sqrt -1)))) (* 1/2 (/ (* c0 (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) h))) (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (* M (sqrt -1)))))) w))) w))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) (* w 2)) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (+ (* -1/2 (* c0 (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) h))) (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (* M (sqrt -1))))))) (* 1/4 (/ (* c0 (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow h 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* M (* w (sqrt -1)))))) w)) (* -1/2 (* M (* c0 (sqrt -1))))) w))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) (* w 2)) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (+ (* -1 (/ (+ (* -1/4 (/ (* c0 (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow h 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* M (sqrt -1)))) (* -1/8 (/ (* c0 (* (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow h 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2) (* (pow M 2) (pow (sqrt -1) 2))))))) (* (pow M 3) (* w (pow (sqrt -1) 3)))))) w)) (* -1/2 (* c0 (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) h))) (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (* M (sqrt -1)))))))) w)) (* -1/2 (* M (* c0 (sqrt -1))))) w))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) #s(hole binary64 (+ (* -1 (/ (* c0 (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) h))) (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (* M (sqrt -1)))))) w)) (* M (* c0 (sqrt -1))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/2 (/ (* c0 (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow h 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* M (* w (sqrt -1))))) (* c0 (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) h))) (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (* M (sqrt -1))))))) w)) (* M (* c0 (sqrt -1))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) #s(hole binary64 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/4 (/ (* c0 (* (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow h 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2) (* (pow M 2) (pow (sqrt -1) 2))))))) (* (pow M 3) (* w (pow (sqrt -1) 3))))) (* 1/2 (/ (* c0 (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow h 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* M (sqrt -1))))) w)) (* c0 (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) h))) (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (* M (sqrt -1))))))) w)) (* M (* c0 (sqrt -1))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) h))) (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (* M (sqrt -1))))) w)) (* M (sqrt -1)))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) h))) (+ (* -1/2 (/ (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow h 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2) (* (pow M 2) (pow (sqrt -1) 2))))) (* M (* w (sqrt -1))))) (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (* M (sqrt -1)))))) w)) (* M (sqrt -1)))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) h))) (+ (* -1 (/ (+ (* 1/4 (/ (* (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow h 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* (pow M 3) (* w (pow (sqrt -1) 3))))) (* 1/2 (/ (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow h 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2) (* (pow M 2) (pow (sqrt -1) 2))))) (* M (sqrt -1))))) w)) (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (* M (sqrt -1)))))) w)) (* M (sqrt -1)))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))) #s(hole binary64 (+ (* -1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (* M (* w (sqrt -1))))) (* M (sqrt -1)))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/2 (/ (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow h 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2) (* (pow M 2) (pow (sqrt -1) 2))))) (* M (* w (sqrt -1))))) (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (* M (sqrt -1))))) w)) (* M (sqrt -1)))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))) #s(hole binary64 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/4 (/ (* (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow h 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* (pow M 3) (* w (pow (sqrt -1) 3))))) (* 1/2 (/ (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow h 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2) (* (pow M 2) (pow (sqrt -1) 2))))) (* M (sqrt -1))))) w)) (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (* M (sqrt -1))))) w)) (* M (sqrt -1)))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (/ (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (pow h 2))) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (pow w 2)))) h)))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (/ (+ (* (pow h 2) (+ (* -1/4 (/ (* (pow D 2) (pow M 2)) (pow d 2))) (* -1/16 (/ (* (pow D 6) (* (pow M 4) (* (pow h 2) (pow w 2)))) (* (pow c0 2) (pow d 6)))))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (pow w 2)))) h)))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (/ (+ (* (pow h 2) (+ (* -1/4 (/ (* (pow D 2) (pow M 2)) (pow d 2))) (* (pow h 2) (+ (* -1/16 (/ (* (pow D 6) (* (pow M 4) (pow w 2))) (* (pow c0 2) (pow d 6)))) (* -1/32 (/ (* (pow D 10) (* (pow M 6) (* (pow h 2) (pow w 4)))) (* (pow c0 4) (pow d 10)))))))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (pow w 2)))) h)))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (/ (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* (pow h 2) w))) (* c0 (pow d 2)))) (* 2 (/ (* c0 (pow d 2)) (* (pow D 2) w)))) h)))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (/ (+ (* 2 (/ (* c0 (pow d 2)) (* (pow D 2) w))) (* (pow h 2) (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) w)) (* c0 (pow d 2)))) (* -1/8 (/ (* (pow D 6) (* (pow M 4) (* (pow h 2) (pow w 3)))) (* (pow c0 3) (pow d 6))))))) h)))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (/ (+ (* 2 (/ (* c0 (pow d 2)) (* (pow D 2) w))) (* (pow h 2) (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) w)) (* c0 (pow d 2)))) (* (pow h 2) (+ (* -1/8 (/ (* (pow D 6) (* (pow M 4) (pow w 3))) (* (pow c0 3) (pow d 6)))) (* -1/16 (/ (* (pow D 10) (* (pow M 6) (* (pow h 2) (pow w 5)))) (* (pow c0 5) (pow d 10))))))))) h)))
#s(approx (* c0 (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w)))))) #s(hole binary64 (/ (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* (pow h 2) w))) (* c0 (pow d 2)))) (* 2 (/ (* c0 (pow d 2)) (* (pow D 2) w)))) h)))
#s(approx (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w))))) #s(hole binary64 (/ (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* (pow h 2) w))) (* (pow c0 2) (pow d 2)))) (* 2 (/ (pow d 2) (* (pow D 2) w)))) h)))
#s(approx h #s(hole binary64 h))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (/ (+ (* 1/4 (/ (* (pow D 2) (* h (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))))) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (pow w 2)))) h)))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (/ (+ (* h (+ (* 1/4 (/ (* (pow D 2) (* h (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow w 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2))) (* (pow c0 2) (pow d 4))))))) (pow d 2))) (* 1/4 (/ (* (pow D 2) (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w)))) (pow d 2))))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (pow w 2)))) h)))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (/ (+ (* h (+ (* 1/4 (/ (* (pow D 2) (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w)))) (pow d 2))) (* h (+ (* -1/8 (/ (* (pow D 6) (* h (* (pow w 2) (* (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow w 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2))) (* (pow c0 2) (pow d 4))))))))) (* (pow c0 2) (pow d 6)))) (* 1/4 (/ (* (pow D 2) (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow w 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2))) (* (pow c0 2) (pow d 4)))))) (pow d 2))))))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (pow w 2)))) h)))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) (* w 2)) #s(hole binary64 (/ (+ (* 1/4 (/ (* (pow D 2) (* h (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))))) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (pow w 2)))) h)))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) (* w 2)) #s(hole binary64 (/ (+ (* h (+ (* 1/4 (/ (* (pow D 2) (* h (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow w 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2))) (* (pow c0 2) (pow d 4))))))) (pow d 2))) (* 1/4 (/ (* (pow D 2) (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w)))) (pow d 2))))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (pow w 2)))) h)))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) (* w 2)) #s(hole binary64 (/ (+ (* h (+ (* 1/4 (/ (* (pow D 2) (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w)))) (pow d 2))) (* h (+ (* -1/8 (/ (* (pow D 6) (* h (* (pow w 2) (* (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow w 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2))) (* (pow c0 2) (pow d 4))))))))) (* (pow c0 2) (pow d 6)))) (* 1/4 (/ (* (pow D 2) (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow w 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2))) (* (pow c0 2) (pow d 4)))))) (pow d 2))))))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (pow w 2)))) h)))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) #s(hole binary64 (/ (+ (* 1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w)))))) (pow d 2))) (* 2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) w)))) h)))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) #s(hole binary64 (/ (+ (* 2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) w))) (* h (+ (* 1/2 (/ (* (pow D 2) (* h (* w (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow w 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2))) (* (pow c0 2) (pow d 4)))))))) (pow d 2))) (* 1/2 (/ (* (pow D 2) (* w (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))))) (pow d 2)))))) h)))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) #s(hole binary64 (/ (+ (* 2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) w))) (* h (+ (* 1/2 (/ (* (pow D 2) (* w (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))))) (pow d 2))) (* h (+ (* -1/4 (/ (* (pow D 6) (* h (* (pow w 3) (* (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow w 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2))) (* (pow c0 2) (pow d 4))))))))) (* (pow c0 2) (pow d 6)))) (* 1/2 (/ (* (pow D 2) (* w (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow w 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2))) (* (pow c0 2) (pow d 4))))))) (pow d 2)))))))) h)))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M)))) #s(hole binary64 (/ (+ (* 1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w)))))) (* c0 (pow d 2)))) (* 2 (/ (* c0 (pow d 2)) (* (pow D 2) w)))) h)))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M)))) #s(hole binary64 (/ (+ (* 2 (/ (* c0 (pow d 2)) (* (pow D 2) w))) (* h (+ (* 1/2 (/ (* (pow D 2) (* h (* w (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow w 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2))) (* (pow c0 2) (pow d 4)))))))) (* c0 (pow d 2)))) (* 1/2 (/ (* (pow D 2) (* w (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))))) (* c0 (pow d 2))))))) h)))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M)))) #s(hole binary64 (/ (+ (* 2 (/ (* c0 (pow d 2)) (* (pow D 2) w))) (* h (+ (* 1/2 (/ (* (pow D 2) (* w (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))))) (* c0 (pow d 2)))) (* h (+ (* -1/4 (/ (* (pow D 6) (* h (* (pow w 3) (* (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow w 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2))) (* (pow c0 2) (pow d 4))))))))) (* (pow c0 3) (pow d 6)))) (* 1/2 (/ (* (pow D 2) (* w (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow w 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2))) (* (pow c0 2) (pow d 4))))))) (* c0 (pow d 2))))))))) h)))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))) #s(hole binary64 (/ (+ (* 1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w)))))) (* c0 (pow d 2)))) (/ (* c0 (pow d 2)) (* (pow D 2) w))) h)))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))) #s(hole binary64 (/ (+ (* h (+ (* 1/2 (/ (* (pow D 2) (* h (* w (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow w 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2))) (* (pow c0 2) (pow d 4)))))))) (* c0 (pow d 2)))) (* 1/2 (/ (* (pow D 2) (* w (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))))) (* c0 (pow d 2)))))) (/ (* c0 (pow d 2)) (* (pow D 2) w))) h)))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))) #s(hole binary64 (/ (+ (* h (+ (* 1/2 (/ (* (pow D 2) (* w (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))))) (* c0 (pow d 2)))) (* h (+ (* -1/4 (/ (* (pow D 6) (* h (* (pow w 3) (* (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow w 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2))) (* (pow c0 2) (pow d 4))))))))) (* (pow c0 3) (pow d 6)))) (* 1/2 (/ (* (pow D 2) (* w (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow w 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2))) (* (pow c0 2) (pow d 4))))))) (* c0 (pow d 2)))))))) (/ (* c0 (pow d 2)) (* (pow D 2) w))) h)))
#s(approx (/ (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (* w w)) #s(hole binary64 (/ (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (pow h 2))) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (pow w 2)))) h)))
#s(approx (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) #s(hole binary64 (/ (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (* (pow h 2) (pow w 2)))) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) (pow D 2))) h)))
#s(approx (* h (+ (* -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h h))))) #s(hole binary64 (/ (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (* (pow h 2) (pow w 2)))) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) (pow D 2))) h)))
#s(approx (+ (* -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h h)))) #s(hole binary64 (/ (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (* (pow h 2) (pow w 2)))) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) (pow D 2))) (pow h 2))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (+ (* 1/2 (/ (* M (* c0 (sqrt -1))) w)) (* 1/2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h (pow w 2))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (+ (* 1/4 (/ (* (pow c0 3) (pow d 4)) (* (pow D 4) (* M (* (pow h 2) (* (pow w 3) (sqrt -1))))))) (+ (* 1/2 (/ (* M (* c0 (sqrt -1))) w)) (* 1/2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h (pow w 2)))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (+ (* -1/16 (/ (* (pow c0 5) (pow d 8)) (* (pow D 8) (* (pow M 3) (* (pow h 4) (* (pow w 5) (pow (sqrt -1) 3))))))) (+ (* 1/4 (/ (* (pow c0 3) (pow d 4)) (* (pow D 4) (* M (* (pow h 2) (* (pow w 3) (sqrt -1))))))) (+ (* 1/2 (/ (* M (* c0 (sqrt -1))) w)) (* 1/2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h (pow w 2))))))))))
#s(approx (* c0 (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w)))))) #s(hole binary64 (* h (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) w)) (* c0 (pow d 2)))) (* 2 (/ (* c0 (pow d 2)) (* (pow D 2) (* (pow h 2) w))))))))
#s(approx (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w))))) #s(hole binary64 (* h (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) w)) (* (pow c0 2) (pow d 2)))) (* 2 (/ (pow d 2) (* (pow D 2) (* (pow h 2) w))))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (+ (* 1/2 (/ (* M (* c0 (sqrt -1))) w)) (* 1/2 (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (* M (sqrt -1)))) (/ (* c0 (pow d 2)) (* (pow D 2) w)))) (* h w))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (+ (* 1/4 (/ (* c0 (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* M (* (pow h 2) (* w (sqrt -1)))))) (+ (* 1/2 (/ (* M (* c0 (sqrt -1))) w)) (* 1/2 (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (* M (sqrt -1)))) (/ (* c0 (pow d 2)) (* (pow D 2) w)))) (* h w)))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (+ (* -1/8 (/ (* c0 (* (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2) (* (pow M 2) (pow (sqrt -1) 2))))))) (* (pow M 3) (* (pow h 3) (* w (pow (sqrt -1) 3)))))) (+ (* 1/4 (/ (* c0 (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* M (* (pow h 2) (* w (sqrt -1)))))) (+ (* 1/2 (/ (* M (* c0 (sqrt -1))) w)) (* 1/2 (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (* M (sqrt -1)))) (/ (* c0 (pow d 2)) (* (pow D 2) w)))) (* h w))))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) (* w 2)) #s(hole binary64 (+ (* 1/2 (/ (* M (* c0 (sqrt -1))) w)) (* 1/2 (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (* M (sqrt -1)))) (/ (* c0 (pow d 2)) (* (pow D 2) w)))) (* h w))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) (* w 2)) #s(hole binary64 (+ (* 1/4 (/ (* c0 (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* M (* (pow h 2) (* w (sqrt -1)))))) (+ (* 1/2 (/ (* M (* c0 (sqrt -1))) w)) (* 1/2 (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (* M (sqrt -1)))) (/ (* c0 (pow d 2)) (* (pow D 2) w)))) (* h w)))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) (* w 2)) #s(hole binary64 (+ (* -1/8 (/ (* c0 (* (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2) (* (pow M 2) (pow (sqrt -1) 2))))))) (* (pow M 3) (* (pow h 3) (* w (pow (sqrt -1) 3)))))) (+ (* 1/4 (/ (* c0 (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* M (* (pow h 2) (* w (sqrt -1)))))) (+ (* 1/2 (/ (* M (* c0 (sqrt -1))) w)) (* 1/2 (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (* M (sqrt -1)))) (/ (* c0 (pow d 2)) (* (pow D 2) w)))) (* h w))))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) #s(hole binary64 (+ (* M (* c0 (sqrt -1))) (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (* M (sqrt -1)))) (/ (* c0 (pow d 2)) (* (pow D 2) w)))) h))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) #s(hole binary64 (+ (* 1/2 (/ (* c0 (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* M (* (pow h 2) (sqrt -1))))) (+ (* M (* c0 (sqrt -1))) (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (* M (sqrt -1)))) (/ (* c0 (pow d 2)) (* (pow D 2) w)))) h)))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) #s(hole binary64 (+ (* -1/4 (/ (* c0 (* (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2) (* (pow M 2) (pow (sqrt -1) 2))))))) (* (pow M 3) (* (pow h 3) (pow (sqrt -1) 3))))) (+ (* 1/2 (/ (* c0 (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* M (* (pow h 2) (sqrt -1))))) (+ (* M (* c0 (sqrt -1))) (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (* M (sqrt -1)))) (/ (* c0 (pow d 2)) (* (pow D 2) w)))) h))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M)))) #s(hole binary64 (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (* M (* h (sqrt -1))))) (+ (* M (sqrt -1)) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M)))) #s(hole binary64 (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (* M (* h (sqrt -1))))) (+ (* 1/2 (/ (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2) (* (pow M 2) (pow (sqrt -1) 2))))) (* M (* (pow h 2) (sqrt -1))))) (+ (* M (sqrt -1)) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M)))) #s(hole binary64 (+ (* -1/4 (/ (* (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* (pow M 3) (* (pow h 3) (pow (sqrt -1) 3))))) (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (* M (* h (sqrt -1))))) (+ (* 1/2 (/ (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2) (* (pow M 2) (pow (sqrt -1) 2))))) (* M (* (pow h 2) (sqrt -1))))) (+ (* M (sqrt -1)) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))))))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))) #s(hole binary64 (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (* M (* h (sqrt -1))))) (* M (sqrt -1)))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))) #s(hole binary64 (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (* M (* h (sqrt -1))))) (+ (* 1/2 (/ (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2) (* (pow M 2) (pow (sqrt -1) 2))))) (* M (* (pow h 2) (sqrt -1))))) (* M (sqrt -1))))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))) #s(hole binary64 (+ (* -1/4 (/ (* (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* (pow M 3) (* (pow h 3) (pow (sqrt -1) 3))))) (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (* M (* h (sqrt -1))))) (+ (* 1/2 (/ (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2) (* (pow M 2) (pow (sqrt -1) 2))))) (* M (* (pow h 2) (sqrt -1))))) (* M (sqrt -1)))))))
#s(approx (/ (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (* w w)) #s(hole binary64 (* h (+ (* -1/4 (/ (* (pow D 2) (pow M 2)) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* (pow h 2) (pow w 2))))))))
#s(approx (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) #s(hole binary64 (* h (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (pow w 2))) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (pow h 2)))))))
#s(approx (* h (+ (* -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h h))))) #s(hole binary64 (* h (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (pow w 2))) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (pow h 2)))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (pow w 2)))) (* -1/4 (/ (* (pow c0 3) (pow d 4)) (* (pow D 4) (* M (* h (* (pow w 3) (sqrt -1)))))))) h)) (* 1/2 (/ (* M (* c0 (sqrt -1))) w)))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (+ (* -1 (/ (+ (* -1 (/ (+ (* -1/16 (/ (* (pow c0 5) (pow d 8)) (* (pow D 8) (* (pow M 3) (* (pow h 2) (* (pow w 5) (pow (sqrt -1) 3))))))) (* 1/4 (/ (* (pow c0 3) (pow d 4)) (* (pow D 4) (* M (* (pow w 3) (sqrt -1))))))) h)) (* -1/2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (pow w 2))))) h)) (* 1/2 (/ (* M (* c0 (sqrt -1))) w)))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) w))) (* -1/2 (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* M (* h (* (pow w 2) (sqrt -1)))))))) h)) (* M (sqrt -1)))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) w))) (* -1 (/ (+ (* -1/8 (/ (* (pow c0 4) (pow d 8)) (* (pow D 8) (* (pow M 3) (* (pow h 2) (* (pow w 4) (pow (sqrt -1) 3))))))) (* 1/2 (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* M (* (pow w 2) (sqrt -1))))))) h))) h)) (* M (sqrt -1)))))
#s(approx (* c0 (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w)))))) #s(hole binary64 (* -1 (* h (+ (* -2 (/ (* c0 (pow d 2)) (* (pow D 2) (* (pow h 2) w)))) (* 1/2 (/ (* (pow D 2) (* (pow M 2) w)) (* c0 (pow d 2)))))))))
#s(approx (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w))))) #s(hole binary64 (* -1 (* h (+ (* -2 (/ (pow d 2) (* (pow D 2) (* (pow h 2) w)))) (* 1/2 (/ (* (pow D 2) (* (pow M 2) w)) (* (pow c0 2) (pow d 2)))))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (+ (* -1/2 (/ (* c0 (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) w))) (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (* M (sqrt -1)))))) (* h w))) (* 1/2 (/ (* M (* c0 (sqrt -1))) w)))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (+ (* -1 (/ (+ (* -1/4 (/ (* c0 (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* M (* h (* w (sqrt -1)))))) (* 1/2 (/ (* c0 (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) w))) (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (* M (sqrt -1)))))) w))) h)) (* 1/2 (/ (* M (* c0 (sqrt -1))) w)))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/8 (/ (* c0 (* (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2) (* (pow M 2) (pow (sqrt -1) 2))))))) (* (pow M 3) (* h (* w (pow (sqrt -1) 3)))))) (* 1/4 (/ (* c0 (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* M (* w (sqrt -1)))))) h)) (* 1/2 (/ (* c0 (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) w))) (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (* M (sqrt -1)))))) w))) h)) (* 1/2 (/ (* M (* c0 (sqrt -1))) w)))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) (* w 2)) #s(hole binary64 (+ (* -1/2 (/ (* c0 (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) w))) (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (* M (sqrt -1)))))) (* h w))) (* 1/2 (/ (* M (* c0 (sqrt -1))) w)))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) (* w 2)) #s(hole binary64 (+ (* -1 (/ (+ (* -1/4 (/ (* c0 (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* M (* h (* w (sqrt -1)))))) (* 1/2 (/ (* c0 (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) w))) (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (* M (sqrt -1)))))) w))) h)) (* 1/2 (/ (* M (* c0 (sqrt -1))) w)))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) (* w 2)) #s(hole binary64 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/8 (/ (* c0 (* (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2) (* (pow M 2) (pow (sqrt -1) 2))))))) (* (pow M 3) (* h (* w (pow (sqrt -1) 3)))))) (* 1/4 (/ (* c0 (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* M (* w (sqrt -1)))))) h)) (* 1/2 (/ (* c0 (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) w))) (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (* M (sqrt -1)))))) w))) h)) (* 1/2 (/ (* M (* c0 (sqrt -1))) w)))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) #s(hole binary64 (+ (* -1 (/ (* c0 (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) w))) (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (* M (sqrt -1)))))) h)) (* M (* c0 (sqrt -1))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/2 (/ (* c0 (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* M (* h (sqrt -1))))) (* c0 (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) w))) (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (* M (sqrt -1))))))) h)) (* M (* c0 (sqrt -1))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) #s(hole binary64 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/4 (/ (* c0 (* (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2) (* (pow M 2) (pow (sqrt -1) 2))))))) (* (pow M 3) (* h (pow (sqrt -1) 3))))) (* 1/2 (/ (* c0 (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* M (sqrt -1))))) h)) (* c0 (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) w))) (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (* M (sqrt -1))))))) h)) (* M (* c0 (sqrt -1))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) w))) (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (* M (sqrt -1))))) h)) (* M (sqrt -1)))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) w))) (+ (* -1/2 (/ (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2) (* (pow M 2) (pow (sqrt -1) 2))))) (* M (* h (sqrt -1))))) (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (* M (sqrt -1)))))) h)) (* M (sqrt -1)))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) w))) (+ (* -1 (/ (+ (* 1/4 (/ (* (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* (pow M 3) (* h (pow (sqrt -1) 3))))) (* 1/2 (/ (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2) (* (pow M 2) (pow (sqrt -1) 2))))) (* M (sqrt -1))))) h)) (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (* M (sqrt -1)))))) h)) (* M (sqrt -1)))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))) #s(hole binary64 (+ (* -1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (* M (* h (sqrt -1))))) (* M (sqrt -1)))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/2 (/ (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2) (* (pow M 2) (pow (sqrt -1) 2))))) (* M (* h (sqrt -1))))) (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (* M (sqrt -1))))) h)) (* M (sqrt -1)))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))) #s(hole binary64 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/4 (/ (* (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* (pow M 3) (* h (pow (sqrt -1) 3))))) (* 1/2 (/ (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2) (* (pow M 2) (pow (sqrt -1) 2))))) (* M (sqrt -1))))) h)) (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (* M (sqrt -1))))) h)) (* M (sqrt -1)))))
#s(approx (/ (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (* w w)) #s(hole binary64 (* -1 (* h (+ (* -1 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* (pow h 2) (pow w 2))))) (* 1/4 (/ (* (pow D 2) (pow M 2)) (pow d 2))))))))
#s(approx (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) #s(hole binary64 (* -1 (* h (+ (* -1 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (pow h 2)))) (* 1/4 (/ (* (pow D 2) (* (pow M 2) (pow w 2))) (pow d 2))))))))
#s(approx (* h (+ (* -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h h))))) #s(hole binary64 (* -1 (* h (+ (* -1 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (pow h 2)))) (* 1/4 (/ (* (pow D 2) (* (pow M 2) (pow w 2))) (pow d 2))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (/ (+ (* -1/4 (/ (* (pow D 4) (* (pow M 2) h)) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) (* h (pow w 2)))) (pow D 2))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (/ (+ (* (pow D 4) (+ (* -1/4 (/ (* (pow M 2) h) (pow d 2))) (* -1/16 (/ (* (pow D 4) (* (pow M 4) (* (pow h 3) (pow w 2)))) (* (pow c0 2) (pow d 6)))))) (/ (* (pow c0 2) (pow d 2)) (* h (pow w 2)))) (pow D 2))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (/ (+ (* (pow D 4) (+ (* -1/4 (/ (* (pow M 2) h) (pow d 2))) (* (pow D 4) (+ (* -1/16 (/ (* (pow M 4) (* (pow h 3) (pow w 2))) (* (pow c0 2) (pow d 6)))) (* -1/32 (/ (* (pow D 4) (* (pow M 6) (* (pow h 5) (pow w 4)))) (* (pow c0 4) (pow d 10)))))))) (/ (* (pow c0 2) (pow d 2)) (* h (pow w 2)))) (pow D 2))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (/ (+ (* -1/2 (/ (* (pow D 4) (* (pow M 2) (* h w))) (* c0 (pow d 2)))) (* 2 (/ (* c0 (pow d 2)) (* h w)))) (pow D 2))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (/ (+ (* 2 (/ (* c0 (pow d 2)) (* h w))) (* (pow D 4) (+ (* -1/2 (/ (* (pow M 2) (* h w)) (* c0 (pow d 2)))) (* -1/8 (/ (* (pow D 4) (* (pow M 4) (* (pow h 3) (pow w 3)))) (* (pow c0 3) (pow d 6))))))) (pow D 2))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (/ (+ (* 2 (/ (* c0 (pow d 2)) (* h w))) (* (pow D 4) (+ (* -1/2 (/ (* (pow M 2) (* h w)) (* c0 (pow d 2)))) (* (pow D 4) (+ (* -1/8 (/ (* (pow M 4) (* (pow h 3) (pow w 3))) (* (pow c0 3) (pow d 6)))) (* -1/16 (/ (* (pow D 4) (* (pow M 6) (* (pow h 5) (pow w 5)))) (* (pow c0 5) (pow d 10))))))))) (pow D 2))))
#s(approx (* c0 (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w)))))) #s(hole binary64 (/ (+ (* -1/2 (/ (* (pow D 4) (* (pow M 2) (* h w))) (* c0 (pow d 2)))) (* 2 (/ (* c0 (pow d 2)) (* h w)))) (pow D 2))))
#s(approx (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w))))) #s(hole binary64 (/ (+ (* -1/2 (/ (* (pow D 4) (* (pow M 2) (* h w))) (* (pow c0 2) (pow d 2)))) (* 2 (/ (pow d 2) (* h w)))) (pow D 2))))
#s(approx (/ d (* D D)) #s(hole binary64 (/ d (pow D 2))))
#s(approx (* D D) #s(hole binary64 (pow D 2)))
#s(approx D #s(hole binary64 D))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (/ (+ (* 1/4 (/ (* (pow D 2) (* h (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))))) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) (* h (pow w 2)))) (pow D 2))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (/ (+ (* (pow D 2) (+ (* 1/4 (/ (* h (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w)))) (pow d 2))) (* 1/4 (/ (* (pow D 2) (* h (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) 2))) (* (pow c0 2) (pow d 4))))))) (pow d 2))))) (/ (* (pow c0 2) (pow d 2)) (* h (pow w 2)))) (pow D 2))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (/ (+ (* (pow D 2) (+ (* 1/4 (/ (* h (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w)))) (pow d 2))) (* (pow D 2) (+ (* -1/8 (/ (* (pow D 2) (* (pow h 3) (* (pow w 2) (* (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) 2))) (* (pow c0 2) (pow d 4))))))))) (* (pow c0 2) (pow d 6)))) (* 1/4 (/ (* h (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) 2))) (* (pow c0 2) (pow d 4)))))) (pow d 2))))))) (/ (* (pow c0 2) (pow d 2)) (* h (pow w 2)))) (pow D 2))))
#s(approx (/ (* d d) (* D D)) #s(hole binary64 (/ (pow d 2) (pow D 2))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) (* w 2)) #s(hole binary64 (/ (+ (* 1/4 (/ (* (pow D 2) (* h (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))))) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) (* h (pow w 2)))) (pow D 2))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) (* w 2)) #s(hole binary64 (/ (+ (* (pow D 2) (+ (* 1/4 (/ (* h (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w)))) (pow d 2))) (* 1/4 (/ (* (pow D 2) (* h (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) 2))) (* (pow c0 2) (pow d 4))))))) (pow d 2))))) (/ (* (pow c0 2) (pow d 2)) (* h (pow w 2)))) (pow D 2))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) (* w 2)) #s(hole binary64 (/ (+ (* (pow D 2) (+ (* 1/4 (/ (* h (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w)))) (pow d 2))) (* (pow D 2) (+ (* -1/8 (/ (* (pow D 2) (* (pow h 3) (* (pow w 2) (* (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) 2))) (* (pow c0 2) (pow d 4))))))))) (* (pow c0 2) (pow d 6)))) (* 1/4 (/ (* h (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) 2))) (* (pow c0 2) (pow d 4)))))) (pow d 2))))))) (/ (* (pow c0 2) (pow d 2)) (* h (pow w 2)))) (pow D 2))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) #s(hole binary64 (/ (+ (* 1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w)))))) (pow d 2))) (* 2 (/ (* (pow c0 2) (pow d 2)) (* h w)))) (pow D 2))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) #s(hole binary64 (/ (+ (* 2 (/ (* (pow c0 2) (pow d 2)) (* h w))) (* (pow D 2) (+ (* 1/2 (/ (* h (* w (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))))) (pow d 2))) (* 1/2 (/ (* (pow D 2) (* h (* w (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) 2))) (* (pow c0 2) (pow d 4)))))))) (pow d 2)))))) (pow D 2))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) #s(hole binary64 (/ (+ (* 2 (/ (* (pow c0 2) (pow d 2)) (* h w))) (* (pow D 2) (+ (* 1/2 (/ (* h (* w (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))))) (pow d 2))) (* (pow D 2) (+ (* -1/4 (/ (* (pow D 2) (* (pow h 3) (* (pow w 3) (* (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) 2))) (* (pow c0 2) (pow d 4))))))))) (* (pow c0 2) (pow d 6)))) (* 1/2 (/ (* h (* w (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) 2))) (* (pow c0 2) (pow d 4))))))) (pow d 2)))))))) (pow D 2))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M)))) #s(hole binary64 (/ (+ (* 1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w)))))) (* c0 (pow d 2)))) (* 2 (/ (* c0 (pow d 2)) (* h w)))) (pow D 2))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M)))) #s(hole binary64 (/ (+ (* 2 (/ (* c0 (pow d 2)) (* h w))) (* (pow D 2) (+ (* 1/2 (/ (* h (* w (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))))) (* c0 (pow d 2)))) (* 1/2 (/ (* (pow D 2) (* h (* w (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) 2))) (* (pow c0 2) (pow d 4)))))))) (* c0 (pow d 2))))))) (pow D 2))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M)))) #s(hole binary64 (/ (+ (* 2 (/ (* c0 (pow d 2)) (* h w))) (* (pow D 2) (+ (* 1/2 (/ (* h (* w (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))))) (* c0 (pow d 2)))) (* (pow D 2) (+ (* -1/4 (/ (* (pow D 2) (* (pow h 3) (* (pow w 3) (* (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) 2))) (* (pow c0 2) (pow d 4))))))))) (* (pow c0 3) (pow d 6)))) (* 1/2 (/ (* h (* w (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) 2))) (* (pow c0 2) (pow d 4))))))) (* c0 (pow d 2))))))))) (pow D 2))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))) #s(hole binary64 (/ (+ (* 1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w)))))) (* c0 (pow d 2)))) (/ (* c0 (pow d 2)) (* h w))) (pow D 2))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))) #s(hole binary64 (/ (+ (* (pow D 2) (+ (* 1/2 (/ (* h (* w (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))))) (* c0 (pow d 2)))) (* 1/2 (/ (* (pow D 2) (* h (* w (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) 2))) (* (pow c0 2) (pow d 4)))))))) (* c0 (pow d 2)))))) (/ (* c0 (pow d 2)) (* h w))) (pow D 2))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))) #s(hole binary64 (/ (+ (* (pow D 2) (+ (* 1/2 (/ (* h (* w (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))))) (* c0 (pow d 2)))) (* (pow D 2) (+ (* -1/4 (/ (* (pow D 2) (* (pow h 3) (* (pow w 3) (* (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) 2))) (* (pow c0 2) (pow d 4))))))))) (* (pow c0 3) (pow d 6)))) (* 1/2 (/ (* h (* w (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) 2))) (* (pow c0 2) (pow d 4))))))) (* c0 (pow d 2)))))))) (/ (* c0 (pow d 2)) (* h w))) (pow D 2))))
#s(approx (* (/ d D) (/ d D)) #s(hole binary64 (/ (pow d 2) (pow D 2))))
#s(approx (/ d D) #s(hole binary64 (/ d D)))
#s(approx (/ (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (* w w)) #s(hole binary64 (/ (+ (* -1/4 (/ (* (pow D 4) (* (pow M 2) h)) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) (* h (pow w 2)))) (pow D 2))))
#s(approx (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) #s(hole binary64 (/ (+ (* -1/4 (/ (* (pow D 4) (* (pow M 2) (* h (pow w 2)))) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) h)) (pow D 2))))
#s(approx (* h (+ (* -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h h))))) #s(hole binary64 (/ (+ (* -1/4 (/ (* (pow D 4) (* (pow M 2) (* h (pow w 2)))) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) h)) (pow D 2))))
#s(approx (+ (* -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h h)))) #s(hole binary64 (/ (+ (* -1/4 (/ (* (pow D 4) (* (pow M 2) (pow w 2))) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) (pow h 2))) (pow D 2))))
#s(approx (* c0 (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w)))))) #s(hole binary64 (* (pow D 2) (+ (* -1/2 (/ (* (pow M 2) (* h w)) (* c0 (pow d 2)))) (* 2 (/ (* c0 (pow d 2)) (* (pow D 4) (* h w))))))))
#s(approx (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w))))) #s(hole binary64 (* (pow D 2) (+ (* -1/2 (/ (* (pow M 2) (* h w)) (* (pow c0 2) (pow d 2)))) (* 2 (/ (pow d 2) (* (pow D 4) (* h w))))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (+ (* 1/2 (/ (* M (* c0 (sqrt -1))) w)) (* 1/2 (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) (* M (sqrt -1)))) (/ (* c0 (pow d 2)) (* h w)))) (* (pow D 2) w))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (+ (* 1/4 (/ (* c0 (- (/ (* (pow c0 2) (pow d 4)) (* (pow h 2) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* (pow D 4) (* M (* w (sqrt -1)))))) (+ (* 1/2 (/ (* M (* c0 (sqrt -1))) w)) (* 1/2 (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) (* M (sqrt -1)))) (/ (* c0 (pow d 2)) (* h w)))) (* (pow D 2) w)))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (+ (* -1/8 (/ (* c0 (* (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) (- (/ (* (pow c0 2) (pow d 4)) (* (pow h 2) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) 2) (* (pow M 2) (pow (sqrt -1) 2))))))) (* (pow D 6) (* (pow M 3) (* w (pow (sqrt -1) 3)))))) (+ (* 1/4 (/ (* c0 (- (/ (* (pow c0 2) (pow d 4)) (* (pow h 2) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* (pow D 4) (* M (* w (sqrt -1)))))) (+ (* 1/2 (/ (* M (* c0 (sqrt -1))) w)) (* 1/2 (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) (* M (sqrt -1)))) (/ (* c0 (pow d 2)) (* h w)))) (* (pow D 2) w))))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) (* w 2)) #s(hole binary64 (+ (* 1/2 (/ (* M (* c0 (sqrt -1))) w)) (* 1/2 (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) (* M (sqrt -1)))) (/ (* c0 (pow d 2)) (* h w)))) (* (pow D 2) w))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) (* w 2)) #s(hole binary64 (+ (* 1/4 (/ (* c0 (- (/ (* (pow c0 2) (pow d 4)) (* (pow h 2) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* (pow D 4) (* M (* w (sqrt -1)))))) (+ (* 1/2 (/ (* M (* c0 (sqrt -1))) w)) (* 1/2 (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) (* M (sqrt -1)))) (/ (* c0 (pow d 2)) (* h w)))) (* (pow D 2) w)))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) (* w 2)) #s(hole binary64 (+ (* -1/8 (/ (* c0 (* (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) (- (/ (* (pow c0 2) (pow d 4)) (* (pow h 2) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) 2) (* (pow M 2) (pow (sqrt -1) 2))))))) (* (pow D 6) (* (pow M 3) (* w (pow (sqrt -1) 3)))))) (+ (* 1/4 (/ (* c0 (- (/ (* (pow c0 2) (pow d 4)) (* (pow h 2) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* (pow D 4) (* M (* w (sqrt -1)))))) (+ (* 1/2 (/ (* M (* c0 (sqrt -1))) w)) (* 1/2 (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) (* M (sqrt -1)))) (/ (* c0 (pow d 2)) (* h w)))) (* (pow D 2) w))))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) #s(hole binary64 (+ (* M (* c0 (sqrt -1))) (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) (* M (sqrt -1)))) (/ (* c0 (pow d 2)) (* h w)))) (pow D 2)))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) #s(hole binary64 (+ (* 1/2 (/ (* c0 (- (/ (* (pow c0 2) (pow d 4)) (* (pow h 2) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* (pow D 4) (* M (sqrt -1))))) (+ (* M (* c0 (sqrt -1))) (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) (* M (sqrt -1)))) (/ (* c0 (pow d 2)) (* h w)))) (pow D 2))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) #s(hole binary64 (+ (* -1/4 (/ (* c0 (* (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) (- (/ (* (pow c0 2) (pow d 4)) (* (pow h 2) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) 2) (* (pow M 2) (pow (sqrt -1) 2))))))) (* (pow D 6) (* (pow M 3) (pow (sqrt -1) 3))))) (+ (* 1/2 (/ (* c0 (- (/ (* (pow c0 2) (pow d 4)) (* (pow h 2) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* (pow D 4) (* M (sqrt -1))))) (+ (* M (* c0 (sqrt -1))) (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) (* M (sqrt -1)))) (/ (* c0 (pow d 2)) (* h w)))) (pow D 2)))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M)))) #s(hole binary64 (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) (* (pow D 2) (* M (sqrt -1))))) (+ (* M (sqrt -1)) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M)))) #s(hole binary64 (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) (* (pow D 2) (* M (sqrt -1))))) (+ (* 1/2 (/ (- (/ (* (pow c0 2) (pow d 4)) (* (pow h 2) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) 2) (* (pow M 2) (pow (sqrt -1) 2))))) (* (pow D 4) (* M (sqrt -1))))) (+ (* M (sqrt -1)) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M)))) #s(hole binary64 (+ (* -1/4 (/ (* (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) (- (/ (* (pow c0 2) (pow d 4)) (* (pow h 2) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* (pow D 6) (* (pow M 3) (pow (sqrt -1) 3))))) (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) (* (pow D 2) (* M (sqrt -1))))) (+ (* 1/2 (/ (- (/ (* (pow c0 2) (pow d 4)) (* (pow h 2) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) 2) (* (pow M 2) (pow (sqrt -1) 2))))) (* (pow D 4) (* M (sqrt -1))))) (+ (* M (sqrt -1)) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))))))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))) #s(hole binary64 (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) (* (pow D 2) (* M (sqrt -1))))) (* M (sqrt -1)))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))) #s(hole binary64 (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) (* (pow D 2) (* M (sqrt -1))))) (+ (* 1/2 (/ (- (/ (* (pow c0 2) (pow d 4)) (* (pow h 2) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) 2) (* (pow M 2) (pow (sqrt -1) 2))))) (* (pow D 4) (* M (sqrt -1))))) (* M (sqrt -1))))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))) #s(hole binary64 (+ (* -1/4 (/ (* (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) (- (/ (* (pow c0 2) (pow d 4)) (* (pow h 2) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* (pow D 6) (* (pow M 3) (pow (sqrt -1) 3))))) (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) (* (pow D 2) (* M (sqrt -1))))) (+ (* 1/2 (/ (- (/ (* (pow c0 2) (pow d 4)) (* (pow h 2) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) 2) (* (pow M 2) (pow (sqrt -1) 2))))) (* (pow D 4) (* M (sqrt -1))))) (* M (sqrt -1)))))))
#s(approx (/ (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (* w w)) #s(hole binary64 (* (pow D 2) (+ (* -1/4 (/ (* (pow M 2) h) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 4) (* h (pow w 2))))))))
#s(approx (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) #s(hole binary64 (* (pow D 2) (+ (* -1/4 (/ (* (pow M 2) (* h (pow w 2))) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 4) h))))))
#s(approx (* h (+ (* -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h h))))) #s(hole binary64 (* (pow D 2) (+ (* -1/4 (/ (* (pow M 2) (* h (pow w 2))) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 4) h))))))
#s(approx (+ (* -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h h)))) #s(hole binary64 (* (pow D 2) (+ (* -1/4 (/ (* (pow M 2) (pow w 2)) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 4) (pow h 2)))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (+ (* 1/2 (/ (* M (* c0 (sqrt -1))) w)) (* (pow d 2) (+ (* 1/4 (/ (* (pow c0 3) (pow d 2)) (* (pow D 4) (* M (* (pow h 2) (* (pow w 3) (sqrt -1))))))) (* 1/2 (/ (pow c0 2) (* (pow D 2) (* h (pow w 2))))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (+ (* 1/2 (/ (* M (* c0 (sqrt -1))) w)) (* (pow d 2) (+ (* 1/2 (/ (pow c0 2) (* (pow D 2) (* h (pow w 2))))) (* (pow d 2) (+ (* -1/16 (/ (* (pow c0 5) (pow d 4)) (* (pow D 8) (* (pow M 3) (* (pow h 4) (* (pow w 5) (pow (sqrt -1) 3))))))) (* 1/4 (/ (pow c0 3) (* (pow D 4) (* M (* (pow h 2) (* (pow w 3) (sqrt -1))))))))))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (+ (* M (sqrt -1)) (* (pow d 2) (+ (* 1/2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 4) (* M (* (pow h 2) (* (pow w 2) (sqrt -1))))))) (/ c0 (* (pow D 2) (* h w))))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (+ (* M (sqrt -1)) (* (pow d 2) (+ (* (pow d 2) (+ (* -1/8 (/ (* (pow c0 4) (pow d 4)) (* (pow D 8) (* (pow M 3) (* (pow h 4) (* (pow w 4) (pow (sqrt -1) 3))))))) (* 1/2 (/ (pow c0 2) (* (pow D 4) (* M (* (pow h 2) (* (pow w 2) (sqrt -1))))))))) (/ c0 (* (pow D 2) (* h w))))))))
#s(approx (* c0 (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w)))))) #s(hole binary64 (/ (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h w))) c0)) (* 2 (/ (* c0 (pow d 4)) (* (pow D 2) (* h w))))) (pow d 2))))
#s(approx (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w))))) #s(hole binary64 (/ (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h w))) (pow c0 2))) (* 2 (/ (pow d 4) (* (pow D 2) (* h w))))) (pow d 2))))
#s(approx d #s(hole binary64 d))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (+ (* 1/2 (/ (* M (* c0 (sqrt -1))) w)) (* 1/2 (/ (* c0 (* (pow d 2) (+ (* 1/2 (/ (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) (* M (sqrt -1)))) (/ c0 (* (pow D 2) (* h w)))))) w)))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (+ (* 1/2 (/ (* M (* c0 (sqrt -1))) w)) (* (pow d 2) (+ (* 1/4 (/ (* c0 (* (pow d 2) (- (/ (pow c0 2) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) 2) (* (pow M 2) (pow (sqrt -1) 2))))))) (* M (* w (sqrt -1))))) (* 1/2 (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) (* M (sqrt -1)))) (/ c0 (* (pow D 2) (* h w))))) w)))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (+ (* 1/2 (/ (* M (* c0 (sqrt -1))) w)) (* (pow d 2) (+ (* 1/2 (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) (* M (sqrt -1)))) (/ c0 (* (pow D 2) (* h w))))) w)) (* (pow d 2) (+ (* -1/8 (/ (* c0 (* (pow d 2) (* (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) (- (/ (pow c0 2) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))))) (* (pow M 3) (* w (pow (sqrt -1) 3))))) (* 1/4 (/ (* c0 (- (/ (pow c0 2) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* M (* w (sqrt -1))))))))))))
#s(approx (* d d) #s(hole binary64 (pow d 2)))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) (* w 2)) #s(hole binary64 (+ (* 1/2 (/ (* M (* c0 (sqrt -1))) w)) (* 1/2 (/ (* c0 (* (pow d 2) (+ (* 1/2 (/ (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) (* M (sqrt -1)))) (/ c0 (* (pow D 2) (* h w)))))) w)))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) (* w 2)) #s(hole binary64 (+ (* 1/2 (/ (* M (* c0 (sqrt -1))) w)) (* (pow d 2) (+ (* 1/4 (/ (* c0 (* (pow d 2) (- (/ (pow c0 2) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) 2) (* (pow M 2) (pow (sqrt -1) 2))))))) (* M (* w (sqrt -1))))) (* 1/2 (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) (* M (sqrt -1)))) (/ c0 (* (pow D 2) (* h w))))) w)))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) (* w 2)) #s(hole binary64 (+ (* 1/2 (/ (* M (* c0 (sqrt -1))) w)) (* (pow d 2) (+ (* 1/2 (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) (* M (sqrt -1)))) (/ c0 (* (pow D 2) (* h w))))) w)) (* (pow d 2) (+ (* -1/8 (/ (* c0 (* (pow d 2) (* (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) (- (/ (pow c0 2) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))))) (* (pow M 3) (* w (pow (sqrt -1) 3))))) (* 1/4 (/ (* c0 (- (/ (pow c0 2) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* M (* w (sqrt -1))))))))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) #s(hole binary64 (+ (* M (* c0 (sqrt -1))) (* c0 (* (pow d 2) (+ (* 1/2 (/ (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) (* M (sqrt -1)))) (/ c0 (* (pow D 2) (* h w)))))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) #s(hole binary64 (+ (* M (* c0 (sqrt -1))) (* (pow d 2) (+ (* 1/2 (/ (* c0 (* (pow d 2) (- (/ (pow c0 2) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) 2) (* (pow M 2) (pow (sqrt -1) 2))))))) (* M (sqrt -1)))) (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) (* M (sqrt -1)))) (/ c0 (* (pow D 2) (* h w))))))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) #s(hole binary64 (+ (* M (* c0 (sqrt -1))) (* (pow d 2) (+ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) (* M (sqrt -1)))) (/ c0 (* (pow D 2) (* h w))))) (* (pow d 2) (+ (* -1/4 (/ (* c0 (* (pow d 2) (* (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) (- (/ (pow c0 2) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))))) (* (pow M 3) (pow (sqrt -1) 3)))) (* 1/2 (/ (* c0 (- (/ (pow c0 2) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* M (sqrt -1)))))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M)))) #s(hole binary64 (+ (* M (sqrt -1)) (* (pow d 2) (+ (* 1/2 (/ (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) (* M (sqrt -1)))) (/ c0 (* (pow D 2) (* h w))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M)))) #s(hole binary64 (+ (* M (sqrt -1)) (* (pow d 2) (+ (* 1/2 (/ (* (pow d 2) (- (/ (pow c0 2) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* M (sqrt -1)))) (+ (* 1/2 (/ (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) (* M (sqrt -1)))) (/ c0 (* (pow D 2) (* h w)))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M)))) #s(hole binary64 (+ (* M (sqrt -1)) (* (pow d 2) (+ (* 1/2 (/ (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) (* M (sqrt -1)))) (+ (* (pow d 2) (+ (* -1/4 (/ (* (pow d 2) (* (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) (- (/ (pow c0 2) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) 2) (* (pow M 2) (pow (sqrt -1) 2))))))) (* (pow M 3) (pow (sqrt -1) 3)))) (* 1/2 (/ (- (/ (pow c0 2) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) 2) (* (pow M 2) (pow (sqrt -1) 2))))) (* M (sqrt -1)))))) (/ c0 (* (pow D 2) (* h w)))))))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))) #s(hole binary64 (+ (* 1/2 (/ (* (pow d 2) (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w))))) (* M (sqrt -1)))) (* M (sqrt -1)))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))) #s(hole binary64 (+ (* M (sqrt -1)) (* (pow d 2) (+ (* 1/2 (/ (* (pow d 2) (- (/ (pow c0 2) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* M (sqrt -1)))) (* 1/2 (/ (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) (* M (sqrt -1)))))))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))) #s(hole binary64 (+ (* M (sqrt -1)) (* (pow d 2) (+ (* 1/2 (/ (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) (* M (sqrt -1)))) (* (pow d 2) (+ (* -1/4 (/ (* (pow d 2) (* (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) (- (/ (pow c0 2) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) 2) (* (pow M 2) (pow (sqrt -1) 2))))))) (* (pow M 3) (pow (sqrt -1) 3)))) (* 1/2 (/ (- (/ (pow c0 2) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) 2) (* (pow M 2) (pow (sqrt -1) 2))))) (* M (sqrt -1)))))))))))
#s(approx (/ (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (* w w)) #s(hole binary64 (/ (+ (* -1/4 (* (pow D 2) (* (pow M 2) h))) (/ (* (pow c0 2) (pow d 4)) (* (pow D 2) (* h (pow w 2))))) (pow d 2))))
#s(approx (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) #s(hole binary64 (/ (+ (* -1/4 (* (pow D 2) (* (pow M 2) (* h (pow w 2))))) (/ (* (pow c0 2) (pow d 4)) (* (pow D 2) h))) (pow d 2))))
#s(approx (* h (+ (* -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h h))))) #s(hole binary64 (/ (+ (* -1/4 (* (pow D 2) (* (pow M 2) (* h (pow w 2))))) (/ (* (pow c0 2) (pow d 4)) (* (pow D 2) h))) (pow d 2))))
#s(approx (+ (* -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h h)))) #s(hole binary64 (/ (+ (* -1/4 (* (pow D 2) (* (pow M 2) (pow w 2)))) (/ (* (pow c0 2) (pow d 4)) (* (pow D 2) (pow h 2)))) (pow d 2))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* (pow d 2) (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 4))) (/ (pow c0 2) (* (pow D 2) (* h (pow w 2))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* (pow d 2) (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 4))) (+ (* -1/16 (/ (* (pow D 6) (* (pow M 4) (* (pow h 3) (pow w 2)))) (* (pow c0 2) (pow d 8)))) (/ (pow c0 2) (* (pow D 2) (* h (pow w 2)))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* (pow d 2) (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 4))) (+ (* -1/16 (/ (* (pow D 6) (* (pow M 4) (* (pow h 3) (pow w 2)))) (* (pow c0 2) (pow d 8)))) (+ (* -1/32 (/ (* (pow D 10) (* (pow M 6) (* (pow h 5) (pow w 4)))) (* (pow c0 4) (pow d 12)))) (/ (pow c0 2) (* (pow D 2) (* h (pow w 2))))))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (* (pow d 2) (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h w))) (* c0 (pow d 4)))) (* 2 (/ c0 (* (pow D 2) (* h w))))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (* (pow d 2) (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h w))) (* c0 (pow d 4)))) (+ (* -1/8 (/ (* (pow D 6) (* (pow M 4) (* (pow h 3) (pow w 3)))) (* (pow c0 3) (pow d 8)))) (* 2 (/ c0 (* (pow D 2) (* h w)))))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (* (pow d 2) (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h w))) (* c0 (pow d 4)))) (+ (* -1/8 (/ (* (pow D 6) (* (pow M 4) (* (pow h 3) (pow w 3)))) (* (pow c0 3) (pow d 8)))) (+ (* -1/16 (/ (* (pow D 10) (* (pow M 6) (* (pow h 5) (pow w 5)))) (* (pow c0 5) (pow d 12)))) (* 2 (/ c0 (* (pow D 2) (* h w))))))))))
#s(approx (* c0 (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w)))))) #s(hole binary64 (* (pow d 2) (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h w))) (* c0 (pow d 4)))) (* 2 (/ c0 (* (pow D 2) (* h w))))))))
#s(approx (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w))))) #s(hole binary64 (* (pow d 2) (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h w))) (* (pow c0 2) (pow d 4)))) (* 2 (/ 1 (* (pow D 2) (* h w))))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (* (pow d 2) (+ (* 1/4 (/ (* (pow D 2) (* h (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))))) (pow d 2))) (/ (pow c0 2) (* (pow D 2) (* h (pow w 2))))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (* (pow d 2) (+ (* 1/4 (/ (* (pow D 2) (* h (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))))) (pow d 2))) (+ (* 1/4 (/ (* (pow D 2) (* h (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) 2)))) (pow c0 2)))))) (pow d 4))) (/ (pow c0 2) (* (pow D 2) (* h (pow w 2)))))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (* (pow d 2) (+ (* -1/8 (/ (* (pow D 6) (* (pow h 3) (* (pow w 2) (* (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) 2)))) (pow c0 2)))))))) (* (pow c0 2) (pow d 6)))) (+ (* 1/4 (/ (* (pow D 2) (* h (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))))) (pow d 2))) (+ (* 1/4 (/ (* (pow D 2) (* h (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) 2)))) (pow c0 2)))))) (pow d 4))) (/ (pow c0 2) (* (pow D 2) (* h (pow w 2))))))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) (* w 2)) #s(hole binary64 (* (pow d 2) (+ (* 1/4 (/ (* (pow D 2) (* h (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))))) (pow d 2))) (/ (pow c0 2) (* (pow D 2) (* h (pow w 2))))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) (* w 2)) #s(hole binary64 (* (pow d 2) (+ (* 1/4 (/ (* (pow D 2) (* h (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))))) (pow d 2))) (+ (* 1/4 (/ (* (pow D 2) (* h (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) 2)))) (pow c0 2)))))) (pow d 4))) (/ (pow c0 2) (* (pow D 2) (* h (pow w 2)))))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) (* w 2)) #s(hole binary64 (* (pow d 2) (+ (* -1/8 (/ (* (pow D 6) (* (pow h 3) (* (pow w 2) (* (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) 2)))) (pow c0 2)))))))) (* (pow c0 2) (pow d 6)))) (+ (* 1/4 (/ (* (pow D 2) (* h (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))))) (pow d 2))) (+ (* 1/4 (/ (* (pow D 2) (* h (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) 2)))) (pow c0 2)))))) (pow d 4))) (/ (pow c0 2) (* (pow D 2) (* h (pow w 2))))))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) #s(hole binary64 (* (pow d 2) (+ (* 1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w))))))) (pow d 2))) (* 2 (/ (pow c0 2) (* (pow D 2) (* h w))))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) #s(hole binary64 (* (pow d 2) (+ (* 1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w))))))) (pow d 2))) (+ (* 1/2 (/ (* (pow D 2) (* h (* w (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) 2)))) (pow c0 2))))))) (pow d 4))) (* 2 (/ (pow c0 2) (* (pow D 2) (* h w)))))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) #s(hole binary64 (* (pow d 2) (+ (* -1/4 (/ (* (pow D 6) (* (pow h 3) (* (pow w 3) (* (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) 2)))) (pow c0 2)))))))) (* (pow c0 2) (pow d 6)))) (+ (* 1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w))))))) (pow d 2))) (+ (* 1/2 (/ (* (pow D 2) (* h (* w (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) 2)))) (pow c0 2))))))) (pow d 4))) (* 2 (/ (pow c0 2) (* (pow D 2) (* h w))))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M)))) #s(hole binary64 (* (pow d 2) (+ (* 1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w))))))) (* c0 (pow d 2)))) (* 2 (/ c0 (* (pow D 2) (* h w))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M)))) #s(hole binary64 (* (pow d 2) (+ (* 1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w))))))) (* c0 (pow d 2)))) (+ (* 1/2 (/ (* (pow D 2) (* h (* w (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) 2)))) (pow c0 2))))))) (* c0 (pow d 4)))) (* 2 (/ c0 (* (pow D 2) (* h w)))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M)))) #s(hole binary64 (* (pow d 2) (+ (* -1/4 (/ (* (pow D 6) (* (pow h 3) (* (pow w 3) (* (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) 2)))) (pow c0 2)))))))) (* (pow c0 3) (pow d 6)))) (+ (* 1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w))))))) (* c0 (pow d 2)))) (+ (* 1/2 (/ (* (pow D 2) (* h (* w (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) 2)))) (pow c0 2))))))) (* c0 (pow d 4)))) (* 2 (/ c0 (* (pow D 2) (* h w))))))))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))) #s(hole binary64 (* (pow d 2) (+ (* 1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w))))))) (* c0 (pow d 2)))) (/ c0 (* (pow D 2) (* h w)))))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))) #s(hole binary64 (* (pow d 2) (+ (* 1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w))))))) (* c0 (pow d 2)))) (+ (* 1/2 (/ (* (pow D 2) (* h (* w (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) 2)))) (pow c0 2))))))) (* c0 (pow d 4)))) (/ c0 (* (pow D 2) (* h w))))))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))) #s(hole binary64 (* (pow d 2) (+ (* -1/4 (/ (* (pow D 6) (* (pow h 3) (* (pow w 3) (* (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) 2)))) (pow c0 2)))))))) (* (pow c0 3) (pow d 6)))) (+ (* 1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w))))))) (* c0 (pow d 2)))) (+ (* 1/2 (/ (* (pow D 2) (* h (* w (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) 2)))) (pow c0 2))))))) (* c0 (pow d 4)))) (/ c0 (* (pow D 2) (* h w)))))))))
#s(approx (/ (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (* w w)) #s(hole binary64 (* (pow d 2) (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 4))) (/ (pow c0 2) (* (pow D 2) (* h (pow w 2))))))))
#s(approx (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) #s(hole binary64 (* (pow d 2) (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (* h (pow w 2)))) (pow d 4))) (/ (pow c0 2) (* (pow D 2) h))))))
#s(approx (* h (+ (* -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h h))))) #s(hole binary64 (* (pow d 2) (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (* h (pow w 2)))) (pow d 4))) (/ (pow c0 2) (* (pow D 2) h))))))
#s(approx (+ (* -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h h)))) #s(hole binary64 (* (pow d 2) (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (pow w 2))) (pow d 4))) (/ (pow c0 2) (* (pow D 2) (pow h 2)))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h (pow w 2)))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (+ (* (pow M 2) (+ (* -1/4 (/ (* (pow D 2) h) (pow d 2))) (* -1/16 (/ (* (pow D 6) (* (pow M 2) (* (pow h 3) (pow w 2)))) (* (pow c0 2) (pow d 6)))))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h (pow w 2)))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (+ (* (pow M 2) (+ (* -1/4 (/ (* (pow D 2) h) (pow d 2))) (* (pow M 2) (+ (* -1/16 (/ (* (pow D 6) (* (pow h 3) (pow w 2))) (* (pow c0 2) (pow d 6)))) (* -1/32 (/ (* (pow D 10) (* (pow M 2) (* (pow h 5) (pow w 4)))) (* (pow c0 4) (pow d 10)))))))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h (pow w 2)))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h w))) (* c0 (pow d 2)))) (* 2 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (+ (* 2 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (* (pow M 2) (+ (* -1/2 (/ (* (pow D 2) (* h w)) (* c0 (pow d 2)))) (* -1/8 (/ (* (pow D 6) (* (pow M 2) (* (pow h 3) (pow w 3)))) (* (pow c0 3) (pow d 6)))))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (+ (* 2 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (* (pow M 2) (+ (* -1/2 (/ (* (pow D 2) (* h w)) (* c0 (pow d 2)))) (* (pow M 2) (+ (* -1/8 (/ (* (pow D 6) (* (pow h 3) (pow w 3))) (* (pow c0 3) (pow d 6)))) (* -1/16 (/ (* (pow D 10) (* (pow M 2) (* (pow h 5) (pow w 5)))) (* (pow c0 5) (pow d 10)))))))))))
#s(approx (* c0 (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w)))))) #s(hole binary64 (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h w))) (* c0 (pow d 2)))) (* 2 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (+ (* 1/4 (/ (* (pow D 2) (* M (* h (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))))) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h (pow w 2)))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (+ (* M (+ (* -1/4 (/ (* (pow D 2) (* M (* h (+ 1 (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (* (pow c0 2) (pow d 4)))))))) (pow d 2))) (* 1/4 (/ (* (pow D 2) (* h (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))))) (pow d 2))))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h (pow w 2)))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (+ (* M (+ (* 1/4 (/ (* (pow D 2) (* h (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))))) (pow d 2))) (* M (+ (* -1/4 (/ (* (pow D 2) (* h (+ 1 (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (* (pow c0 2) (pow d 4))))))) (pow d 2))) (* 1/8 (/ (* (pow D 6) (* M (* (pow h 3) (* (pow w 2) (* (+ 1 (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (* (pow c0 2) (pow d 4))))) (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))))))) (* (pow c0 2) (pow d 6)))))))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h (pow w 2)))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) (* w 2)) #s(hole binary64 (+ (* 1/4 (/ (* (pow D 2) (* M (* h (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))))) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h (pow w 2)))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) (* w 2)) #s(hole binary64 (+ (* M (+ (* -1/4 (/ (* (pow D 2) (* M (* h (+ 1 (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (* (pow c0 2) (pow d 4)))))))) (pow d 2))) (* 1/4 (/ (* (pow D 2) (* h (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))))) (pow d 2))))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h (pow w 2)))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) (* w 2)) #s(hole binary64 (+ (* M (+ (* 1/4 (/ (* (pow D 2) (* h (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))))) (pow d 2))) (* M (+ (* -1/4 (/ (* (pow D 2) (* h (+ 1 (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (* (pow c0 2) (pow d 4))))))) (pow d 2))) (* 1/8 (/ (* (pow D 6) (* M (* (pow h 3) (* (pow w 2) (* (+ 1 (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (* (pow c0 2) (pow d 4))))) (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))))))) (* (pow c0 2) (pow d 6)))))))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h (pow w 2)))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) #s(hole binary64 (+ (* 1/2 (/ (* (pow D 2) (* M (* h (* w (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))))))) (pow d 2))) (* 2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h w)))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) #s(hole binary64 (+ (* 2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h w)))) (* M (+ (* -1/2 (/ (* (pow D 2) (* M (* h (* w (+ 1 (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (* (pow c0 2) (pow d 4))))))))) (pow d 2))) (* 1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))))) (pow d 2))))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) #s(hole binary64 (+ (* 2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h w)))) (* M (+ (* 1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))))) (pow d 2))) (* M (+ (* -1/2 (/ (* (pow D 2) (* h (* w (+ 1 (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (* (pow c0 2) (pow d 4)))))))) (pow d 2))) (* 1/4 (/ (* (pow D 6) (* M (* (pow h 3) (* (pow w 3) (* (+ 1 (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (* (pow c0 2) (pow d 4))))) (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))))))) (* (pow c0 2) (pow d 6)))))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M)))) #s(hole binary64 (+ (* 1/2 (/ (* (pow D 2) (* M (* h (* w (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))))))) (* c0 (pow d 2)))) (* 2 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M)))) #s(hole binary64 (+ (* 2 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (* M (+ (* -1/2 (/ (* (pow D 2) (* M (* h (* w (+ 1 (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (* (pow c0 2) (pow d 4))))))))) (* c0 (pow d 2)))) (* 1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))))) (* c0 (pow d 2)))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M)))) #s(hole binary64 (+ (* 2 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (* M (+ (* 1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))))) (* c0 (pow d 2)))) (* M (+ (* -1/2 (/ (* (pow D 2) (* h (* w (+ 1 (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (* (pow c0 2) (pow d 4)))))))) (* c0 (pow d 2)))) (* 1/4 (/ (* (pow D 6) (* M (* (pow h 3) (* (pow w 3) (* (+ 1 (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (* (pow c0 2) (pow d 4))))) (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))))))) (* (pow c0 3) (pow d 6)))))))))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))) #s(hole binary64 (+ (* 1/2 (/ (* (pow D 2) (* M (* h (* w (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))))))) (* c0 (pow d 2)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))) #s(hole binary64 (+ (* M (+ (* -1/2 (/ (* (pow D 2) (* M (* h (* w (+ 1 (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (* (pow c0 2) (pow d 4))))))))) (* c0 (pow d 2)))) (* 1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))))) (* c0 (pow d 2)))))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))) #s(hole binary64 (+ (* M (+ (* 1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))))) (* c0 (pow d 2)))) (* M (+ (* -1/2 (/ (* (pow D 2) (* h (* w (+ 1 (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (* (pow c0 2) (pow d 4)))))))) (* c0 (pow d 2)))) (* 1/4 (/ (* (pow D 6) (* M (* (pow h 3) (* (pow w 3) (* (+ 1 (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (* (pow c0 2) (pow d 4))))) (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))))))) (* (pow c0 3) (pow d 6)))))))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))))
#s(approx M #s(hole binary64 M))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* M (+ (* 1/2 (/ (* c0 (sqrt -1)) w)) (* 1/2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* M (* h (pow w 2))))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* M (+ (* 1/4 (/ (* (pow c0 3) (pow d 4)) (* (pow D 4) (* (pow M 2) (* (pow h 2) (* (pow w 3) (sqrt -1))))))) (+ (* 1/2 (/ (* c0 (sqrt -1)) w)) (* 1/2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* M (* h (pow w 2)))))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* M (+ (* -1/16 (/ (* (pow c0 5) (pow d 8)) (* (pow D 8) (* (pow M 4) (* (pow h 4) (* (pow w 5) (pow (sqrt -1) 3))))))) (+ (* 1/4 (/ (* (pow c0 3) (pow d 4)) (* (pow D 4) (* (pow M 2) (* (pow h 2) (* (pow w 3) (sqrt -1))))))) (+ (* 1/2 (/ (* c0 (sqrt -1)) w)) (* 1/2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* M (* h (pow w 2))))))))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (* M (+ (sqrt -1) (/ (* c0 (pow d 2)) (* (pow D 2) (* M (* h w))))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (* M (+ (sqrt -1) (+ (* 1/2 (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow M 2) (* (pow h 2) (* (pow w 2) (sqrt -1))))))) (/ (* c0 (pow d 2)) (* (pow D 2) (* M (* h w)))))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (* M (+ (sqrt -1) (+ (* -1/8 (/ (* (pow c0 4) (pow d 8)) (* (pow D 8) (* (pow M 4) (* (pow h 4) (* (pow w 4) (pow (sqrt -1) 3))))))) (+ (* 1/2 (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow M 2) (* (pow h 2) (* (pow w 2) (sqrt -1))))))) (/ (* c0 (pow d 2)) (* (pow D 2) (* M (* h w))))))))))
#s(approx (* c0 (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w)))))) #s(hole binary64 (* (pow M 2) (+ (* -1/2 (/ (* (pow D 2) (* h w)) (* c0 (pow d 2)))) (* 2 (/ (* c0 (pow d 2)) (* (pow D 2) (* (pow M 2) (* h w)))))))))
#s(approx (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w))))) #s(hole binary64 (* (pow M 2) (+ (* -1/2 (/ (* (pow D 2) (* h w)) (* (pow c0 2) (pow d 2)))) (* 2 (/ (pow d 2) (* (pow D 2) (* (pow M 2) (* h w)))))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (* M (+ (* 1/2 (/ (* c0 (sqrt -1)) w)) (* 1/2 (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (sqrt -1))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))) (* M w)))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (* M (+ (* 1/4 (/ (* c0 (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2) (pow (sqrt -1) 2))))) (* (pow M 2) (* w (sqrt -1))))) (+ (* 1/2 (/ (* c0 (sqrt -1)) w)) (* 1/2 (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (sqrt -1))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))) (* M w))))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (* M (+ (* -1/8 (/ (* c0 (* (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2) (pow (sqrt -1) 2)))))) (* (pow M 3) (* w (pow (sqrt -1) 3))))) (+ (* 1/4 (/ (* c0 (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2) (pow (sqrt -1) 2))))) (* (pow M 2) (* w (sqrt -1))))) (+ (* 1/2 (/ (* c0 (sqrt -1)) w)) (* 1/2 (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (sqrt -1))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))) (* M w)))))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) (* w 2)) #s(hole binary64 (* M (+ (* 1/2 (/ (* c0 (sqrt -1)) w)) (* 1/2 (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (sqrt -1))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))) (* M w)))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) (* w 2)) #s(hole binary64 (* M (+ (* 1/4 (/ (* c0 (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2) (pow (sqrt -1) 2))))) (* (pow M 2) (* w (sqrt -1))))) (+ (* 1/2 (/ (* c0 (sqrt -1)) w)) (* 1/2 (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (sqrt -1))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))) (* M w))))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) (* w 2)) #s(hole binary64 (* M (+ (* -1/8 (/ (* c0 (* (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2) (pow (sqrt -1) 2)))))) (* (pow M 3) (* w (pow (sqrt -1) 3))))) (+ (* 1/4 (/ (* c0 (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2) (pow (sqrt -1) 2))))) (* (pow M 2) (* w (sqrt -1))))) (+ (* 1/2 (/ (* c0 (sqrt -1)) w)) (* 1/2 (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (sqrt -1))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))) (* M w)))))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) #s(hole binary64 (* M (+ (* c0 (sqrt -1)) (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (sqrt -1))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))) M)))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) #s(hole binary64 (* M (+ (* 1/2 (/ (* c0 (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2) (pow (sqrt -1) 2))))) (* (pow M 2) (sqrt -1)))) (+ (* c0 (sqrt -1)) (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (sqrt -1))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))) M))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) #s(hole binary64 (* M (+ (* -1/4 (/ (* c0 (* (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2) (pow (sqrt -1) 2)))))) (* (pow M 3) (pow (sqrt -1) 3)))) (+ (* 1/2 (/ (* c0 (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2) (pow (sqrt -1) 2))))) (* (pow M 2) (sqrt -1)))) (+ (* c0 (sqrt -1)) (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (sqrt -1))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))) M)))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M)))) #s(hole binary64 (* M (+ (sqrt -1) (+ (* 1/2 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (* M (sqrt -1)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* M (* h w)))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M)))) #s(hole binary64 (* M (+ (sqrt -1) (+ (* 1/2 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (* M (sqrt -1)))) (+ (* 1/2 (/ (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2) (pow (sqrt -1) 2)))) (* (pow M 2) (sqrt -1)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* M (* h w))))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M)))) #s(hole binary64 (* M (+ (sqrt -1) (+ (* -1/4 (/ (* (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2) (pow (sqrt -1) 2))))) (* (pow M 3) (pow (sqrt -1) 3)))) (+ (* 1/2 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (* M (sqrt -1)))) (+ (* 1/2 (/ (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2) (pow (sqrt -1) 2)))) (* (pow M 2) (sqrt -1)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* M (* h w)))))))))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))) #s(hole binary64 (* M (+ (sqrt -1) (* 1/2 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (* M (sqrt -1))))))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))) #s(hole binary64 (* M (+ (sqrt -1) (+ (* 1/2 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (* M (sqrt -1)))) (* 1/2 (/ (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2) (pow (sqrt -1) 2)))) (* (pow M 2) (sqrt -1)))))))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))) #s(hole binary64 (* M (+ (sqrt -1) (+ (* -1/4 (/ (* (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2) (pow (sqrt -1) 2))))) (* (pow M 3) (pow (sqrt -1) 3)))) (+ (* 1/2 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (* M (sqrt -1)))) (* 1/2 (/ (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2) (pow (sqrt -1) 2)))) (* (pow M 2) (sqrt -1))))))))))
#s(approx (/ (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (* w w)) #s(hole binary64 (* (pow M 2) (+ (* -1/4 (/ (* (pow D 2) h) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* (pow M 2) (* h (pow w 2)))))))))
#s(approx (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) #s(hole binary64 (* (pow M 2) (+ (* -1/4 (/ (* (pow D 2) (* h (pow w 2))) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* (pow M 2) h)))))))
#s(approx (* h (+ (* -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h h))))) #s(hole binary64 (* (pow M 2) (+ (* -1/4 (/ (* (pow D 2) (* h (pow w 2))) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* (pow M 2) h)))))))
#s(approx (+ (* -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h h)))) #s(hole binary64 (* (pow M 2) (+ (* -1/4 (/ (* (pow D 2) (pow w 2)) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* (pow M 2) (pow h 2))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* -1/2 (/ (* M (* c0 (sqrt -1))) w))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* -1 (* M (+ (* -1/2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* M (* h (pow w 2)))))) (* 1/2 (/ (* c0 (sqrt -1)) w)))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* -1 (* M (+ (* -1 (/ (+ (* -1/4 (/ (* (pow c0 3) (pow d 4)) (* (pow D 4) (* M (* (pow h 2) (* (pow w 3) (sqrt -1))))))) (* 1/2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h (pow w 2)))))) M)) (* 1/2 (/ (* c0 (sqrt -1)) w)))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* -1 (* M (+ (* -1 (/ (+ (* -1 (/ (+ (* -1/16 (/ (* (pow c0 5) (pow d 8)) (* (pow D 8) (* (pow M 2) (* (pow h 4) (* (pow w 5) (pow (sqrt -1) 3))))))) (* 1/4 (/ (* (pow c0 3) (pow d 4)) (* (pow D 4) (* (pow h 2) (* (pow w 3) (sqrt -1))))))) M)) (* 1/2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h (pow w 2)))))) M)) (* 1/2 (/ (* c0 (sqrt -1)) w)))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (* -1 (* M (sqrt -1)))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (* -1 (* M (+ (sqrt -1) (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* M (* h w))))))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (* -1 (* M (+ (sqrt -1) (* -1 (/ (+ (* -1/2 (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* M (* (pow h 2) (* (pow w 2) (sqrt -1))))))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) M)))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (* -1 (* M (+ (sqrt -1) (* -1 (/ (+ (* -1 (/ (+ (* -1/8 (/ (* (pow c0 4) (pow d 8)) (* (pow D 8) (* (pow M 2) (* (pow h 4) (* (pow w 4) (pow (sqrt -1) 3))))))) (* 1/2 (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow h 2) (* (pow w 2) (sqrt -1))))))) M)) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) M)))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (* -1/2 (/ (* M (* c0 (sqrt -1))) w))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (* -1 (* M (+ (* -1/2 (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (sqrt -1))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))) (* M w))) (* 1/2 (/ (* c0 (sqrt -1)) w)))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (* -1 (* M (+ (* -1 (/ (+ (* -1/4 (/ (* c0 (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2) (pow (sqrt -1) 2))))) (* M (* w (sqrt -1))))) (* 1/2 (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (sqrt -1))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))) w))) M)) (* 1/2 (/ (* c0 (sqrt -1)) w)))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (* -1 (* M (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/8 (/ (* c0 (* (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2) (pow (sqrt -1) 2)))))) (* M (* w (pow (sqrt -1) 3))))) (* 1/4 (/ (* c0 (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2) (pow (sqrt -1) 2))))) (* w (sqrt -1))))) M)) (* 1/2 (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (sqrt -1))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))) w))) M)) (* 1/2 (/ (* c0 (sqrt -1)) w)))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) (* w 2)) #s(hole binary64 (* -1/2 (/ (* M (* c0 (sqrt -1))) w))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) (* w 2)) #s(hole binary64 (* -1 (* M (+ (* -1/2 (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (sqrt -1))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))) (* M w))) (* 1/2 (/ (* c0 (sqrt -1)) w)))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) (* w 2)) #s(hole binary64 (* -1 (* M (+ (* -1 (/ (+ (* -1/4 (/ (* c0 (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2) (pow (sqrt -1) 2))))) (* M (* w (sqrt -1))))) (* 1/2 (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (sqrt -1))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))) w))) M)) (* 1/2 (/ (* c0 (sqrt -1)) w)))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) (* w 2)) #s(hole binary64 (* -1 (* M (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/8 (/ (* c0 (* (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2) (pow (sqrt -1) 2)))))) (* M (* w (pow (sqrt -1) 3))))) (* 1/4 (/ (* c0 (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2) (pow (sqrt -1) 2))))) (* w (sqrt -1))))) M)) (* 1/2 (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (sqrt -1))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))) w))) M)) (* 1/2 (/ (* c0 (sqrt -1)) w)))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) #s(hole binary64 (* -1 (* M (* c0 (sqrt -1))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) #s(hole binary64 (* -1 (* M (+ (* -1 (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (sqrt -1))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))) M)) (* c0 (sqrt -1)))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) #s(hole binary64 (* -1 (* M (+ (* -1 (/ (+ (* -1/2 (/ (* c0 (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2) (pow (sqrt -1) 2))))) (* M (sqrt -1)))) (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (sqrt -1))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))))) M)) (* c0 (sqrt -1)))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) #s(hole binary64 (* -1 (* M (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/4 (/ (* c0 (* (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2) (pow (sqrt -1) 2)))))) (* M (pow (sqrt -1) 3)))) (* 1/2 (/ (* c0 (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2) (pow (sqrt -1) 2))))) (sqrt -1)))) M)) (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (sqrt -1))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))))) M)) (* c0 (sqrt -1)))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M)))) #s(hole binary64 (* -1 (* M (sqrt -1)))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M)))) #s(hole binary64 (* -1 (* M (+ (sqrt -1) (* -1 (/ (+ (* 1/2 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (sqrt -1))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) M)))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M)))) #s(hole binary64 (* -1 (* M (+ (sqrt -1) (* -1 (/ (+ (* -1/2 (/ (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2) (pow (sqrt -1) 2)))) (* M (sqrt -1)))) (+ (* 1/2 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (sqrt -1))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))) M)))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M)))) #s(hole binary64 (* -1 (* M (+ (sqrt -1) (* -1 (/ (+ (* -1 (/ (+ (* 1/4 (/ (* (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2) (pow (sqrt -1) 2))))) (* M (pow (sqrt -1) 3)))) (* 1/2 (/ (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2) (pow (sqrt -1) 2)))) (sqrt -1)))) M)) (+ (* 1/2 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (sqrt -1))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))) M)))))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))) #s(hole binary64 (* -1 (* M (sqrt -1)))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))) #s(hole binary64 (* -1 (* M (+ (sqrt -1) (* -1/2 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (* M (sqrt -1)))))))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))) #s(hole binary64 (* -1 (* M (+ (sqrt -1) (* -1 (/ (+ (* -1/2 (/ (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2) (pow (sqrt -1) 2)))) (* M (sqrt -1)))) (* 1/2 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (sqrt -1)))) M)))))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))) #s(hole binary64 (* -1 (* M (+ (sqrt -1) (* -1 (/ (+ (* -1 (/ (+ (* 1/4 (/ (* (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2) (pow (sqrt -1) 2))))) (* M (pow (sqrt -1) 3)))) (* 1/2 (/ (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2) (pow (sqrt -1) 2)))) (sqrt -1)))) M)) (* 1/2 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (sqrt -1)))) M)))))))

Calls

18 calls:

Time	Variable		Point	Expression
16.0ms	M	@	-inf	((* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (/ c0 (* 2 w)) c0 (* 2 w) 2 w (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (* c0 (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w)))))) (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w))))) (* 2 (* (/ d (* D D)) (/ d (* h w)))) (* (/ d (* D D)) (/ d (* h w))) (/ d (* D D)) d (* D D) D (/ d (* h w)) (* h w) h (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h (* w w)))) (/ (* c0 c0) (* D D)) (/ (* d d) (* h (* w w))) (* d d) (* h (* w w)) (* w w) (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (neg (* (* 0 (/ (/ (* d d) (* D D)) (* h w))) c0)) (* (* 0 (/ (/ (* d d) (* D D)) (* h w))) c0) (* 0 (/ (/ (* d d) (* D D)) (* h w))) 0 (/ (/ (* d d) (* D D)) (* h w)) (/ (* d d) (* D D)) (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) (* w 2)) (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M)))) (* (/ c0 (* h w)) (/ (* d d) (* D D))) (/ c0 (* h w)) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))) (* (/ c0 (* h w)) (* (/ d D) (/ d D))) (* (/ d D) (/ d D)) (/ d D) M (* w 2) (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (/ (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (* w w)) (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (* h (+ (* -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h h))))) (+ (* -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h h)))) (* -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d)) (* (* D D) (pow (* M w) 2)) (pow (* M w) 2) (* M w))
15.0ms	w	@	-inf	((* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (/ c0 (* 2 w)) c0 (* 2 w) 2 w (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (* c0 (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w)))))) (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w))))) (* 2 (* (/ d (* D D)) (/ d (* h w)))) (* (/ d (* D D)) (/ d (* h w))) (/ d (* D D)) d (* D D) D (/ d (* h w)) (* h w) h (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h (* w w)))) (/ (* c0 c0) (* D D)) (/ (* d d) (* h (* w w))) (* d d) (* h (* w w)) (* w w) (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (neg (* (* 0 (/ (/ (* d d) (* D D)) (* h w))) c0)) (* (* 0 (/ (/ (* d d) (* D D)) (* h w))) c0) (* 0 (/ (/ (* d d) (* D D)) (* h w))) 0 (/ (/ (* d d) (* D D)) (* h w)) (/ (* d d) (* D D)) (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) (* w 2)) (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M)))) (* (/ c0 (* h w)) (/ (* d d) (* D D))) (/ c0 (* h w)) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))) (* (/ c0 (* h w)) (* (/ d D) (/ d D))) (* (/ d D) (/ d D)) (/ d D) M (* w 2) (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (/ (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (* w w)) (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (* h (+ (* -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h h))))) (+ (* -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h h)))) (* -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d)) (* (* D D) (pow (* M w) 2)) (pow (* M w) 2) (* M w))
15.0ms	d	@	-inf	((* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (/ c0 (* 2 w)) c0 (* 2 w) 2 w (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (* c0 (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w)))))) (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w))))) (* 2 (* (/ d (* D D)) (/ d (* h w)))) (* (/ d (* D D)) (/ d (* h w))) (/ d (* D D)) d (* D D) D (/ d (* h w)) (* h w) h (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h (* w w)))) (/ (* c0 c0) (* D D)) (/ (* d d) (* h (* w w))) (* d d) (* h (* w w)) (* w w) (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (neg (* (* 0 (/ (/ (* d d) (* D D)) (* h w))) c0)) (* (* 0 (/ (/ (* d d) (* D D)) (* h w))) c0) (* 0 (/ (/ (* d d) (* D D)) (* h w))) 0 (/ (/ (* d d) (* D D)) (* h w)) (/ (* d d) (* D D)) (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) (* w 2)) (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M)))) (* (/ c0 (* h w)) (/ (* d d) (* D D))) (/ c0 (* h w)) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))) (* (/ c0 (* h w)) (* (/ d D) (/ d D))) (* (/ d D) (/ d D)) (/ d D) M (* w 2) (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (/ (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (* w w)) (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (* h (+ (* -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h h))))) (+ (* -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h h)))) (* -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d)) (* (* D D) (pow (* M w) 2)) (pow (* M w) 2) (* M w))
13.0ms	w	@	0	((* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (/ c0 (* 2 w)) c0 (* 2 w) 2 w (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (* c0 (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w)))))) (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w))))) (* 2 (* (/ d (* D D)) (/ d (* h w)))) (* (/ d (* D D)) (/ d (* h w))) (/ d (* D D)) d (* D D) D (/ d (* h w)) (* h w) h (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h (* w w)))) (/ (* c0 c0) (* D D)) (/ (* d d) (* h (* w w))) (* d d) (* h (* w w)) (* w w) (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (neg (* (* 0 (/ (/ (* d d) (* D D)) (* h w))) c0)) (* (* 0 (/ (/ (* d d) (* D D)) (* h w))) c0) (* 0 (/ (/ (* d d) (* D D)) (* h w))) 0 (/ (/ (* d d) (* D D)) (* h w)) (/ (* d d) (* D D)) (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) (* w 2)) (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M)))) (* (/ c0 (* h w)) (/ (* d d) (* D D))) (/ c0 (* h w)) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))) (* (/ c0 (* h w)) (* (/ d D) (/ d D))) (* (/ d D) (/ d D)) (/ d D) M (* w 2) (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (/ (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (* w w)) (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (* h (+ (* -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h h))))) (+ (* -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h h)))) (* -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d)) (* (* D D) (pow (* M w) 2)) (pow (* M w) 2) (* M w))
13.0ms	d	@	0	((* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (/ c0 (* 2 w)) c0 (* 2 w) 2 w (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (* c0 (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w)))))) (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w))))) (* 2 (* (/ d (* D D)) (/ d (* h w)))) (* (/ d (* D D)) (/ d (* h w))) (/ d (* D D)) d (* D D) D (/ d (* h w)) (* h w) h (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h (* w w)))) (/ (* c0 c0) (* D D)) (/ (* d d) (* h (* w w))) (* d d) (* h (* w w)) (* w w) (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (neg (* (* 0 (/ (/ (* d d) (* D D)) (* h w))) c0)) (* (* 0 (/ (/ (* d d) (* D D)) (* h w))) c0) (* 0 (/ (/ (* d d) (* D D)) (* h w))) 0 (/ (/ (* d d) (* D D)) (* h w)) (/ (* d d) (* D D)) (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) (* w 2)) (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M)))) (* (/ c0 (* h w)) (/ (* d d) (* D D))) (/ c0 (* h w)) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))) (* (/ c0 (* h w)) (* (/ d D) (/ d D))) (* (/ d D) (/ d D)) (/ d D) M (* w 2) (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (/ (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (* w w)) (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (* h (+ (* -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h h))))) (+ (* -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h h)))) (* -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d)) (* (* D D) (pow (* M w) 2)) (pow (* M w) 2) (* M w))

rewrite344.0ms (2.1%)

Memory

9.1MiB live, 566.6MiB allocated; 68ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	2767	58089
0	2839	53155
0	8882	52663

Stop Event

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

Counts

522 → 599

Calls

Call 1

Inputs
(.f64 (/.f64 c0 (.f64 #s(literal 2 binary64) w)) #s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (.f64 c0 #s(approx (+ ( -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w))))) (.f64 #s(literal 2 binary64) (.f64 (/.f64 d (.f64 D D)) (/.f64 d (.f64 h w))))))))
(/.f64 c0 (*.f64 #s(literal 2 binary64) w))
c0
(*.f64 #s(literal 2 binary64) w)
#s(literal 2 binary64)
w
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (.f64 c0 #s(approx (+ ( -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w))))) (.f64 #s(literal 2 binary64) (.f64 (/.f64 d (.f64 D D)) (/.f64 d (.f64 h w)))))))
(.f64 c0 #s(approx (+ ( -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w))))) (.f64 #s(literal 2 binary64) (.f64 (/.f64 d (.f64 D D)) (/.f64 d (.f64 h w))))))
#s(approx (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w))))) (.f64 #s(literal 2 binary64) (.f64 (/.f64 d (.f64 D D)) (/.f64 d (.f64 h w)))))
(.f64 #s(literal 2 binary64) (.f64 (/.f64 d (.f64 D D)) (/.f64 d (.f64 h w))))
(.f64 (/.f64 d (.f64 D D)) (/.f64 d (*.f64 h w)))
(/.f64 d (*.f64 D D))
d
(*.f64 D D)
D
(/.f64 d (*.f64 h w))
(*.f64 h w)
h
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) (.f64 h (.f64 w w)))))
(.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) (.f64 h (.f64 w w))))
(ratio-of-squares.f64 c0 D)
(/.f64 (.f64 d d) (.f64 h (*.f64 w w)))
(*.f64 d d)
(.f64 h (.f64 w w))
(*.f64 w w)
(.f64 (/.f64 c0 (.f64 #s(literal 2 binary64) w)) #s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (neg.f64 (.f64 (.f64 #s(literal 0 binary64) (/.f64 (ratio-of-squares.f64 d D) (*.f64 h w))) c0))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (neg.f64 (.f64 (.f64 #s(literal 0 binary64) (/.f64 (ratio-of-squares.f64 d D) (*.f64 h w))) c0)))
(neg.f64 (.f64 (.f64 #s(literal 0 binary64) (/.f64 (ratio-of-squares.f64 d D) (*.f64 h w))) c0))
(.f64 (.f64 #s(literal 0 binary64) (/.f64 (ratio-of-squares.f64 d D) (*.f64 h w))) c0)
(.f64 #s(literal 0 binary64) (/.f64 (ratio-of-squares.f64 d D) (.f64 h w)))
#s(literal 0 binary64)
(/.f64 (ratio-of-squares.f64 d D) (*.f64 h w))
(ratio-of-squares.f64 d D)
(/.f64 (.f64 c0 (+.f64 (.f64 (/.f64 c0 (.f64 h w)) (ratio-of-squares.f64 d D)) (sqrt-product.f64 (.f64 (/.f64 c0 (.f64 h w)) (.f64 (/.f64 d D) (/.f64 d D))) M))) (*.f64 w #s(literal 2 binary64)))
(.f64 c0 (+.f64 (.f64 (/.f64 c0 (.f64 h w)) (ratio-of-squares.f64 d D)) (sqrt-product.f64 (.f64 (/.f64 c0 (.f64 h w)) (.f64 (/.f64 d D) (/.f64 d D))) M)))
(+.f64 (.f64 (/.f64 c0 (.f64 h w)) (ratio-of-squares.f64 d D)) (sqrt-product.f64 (.f64 (/.f64 c0 (.f64 h w)) (*.f64 (/.f64 d D) (/.f64 d D))) M))
(.f64 (/.f64 c0 (.f64 h w)) (ratio-of-squares.f64 d D))
(/.f64 c0 (*.f64 h w))
(sqrt-product.f64 (.f64 (/.f64 c0 (.f64 h w)) (*.f64 (/.f64 d D) (/.f64 d D))) M)
(.f64 (/.f64 c0 (.f64 h w)) (*.f64 (/.f64 d D) (/.f64 d D)))
(*.f64 (/.f64 d D) (/.f64 d D))
(/.f64 d D)
M
(*.f64 w #s(literal 2 binary64))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (/.f64 #s(approx (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (.f64 h #s(approx (+ ( -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h h)))) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 D D) (pow.f64 (.f64 M w) #s(literal 2 binary64))) (.f64 d d)))))) (.f64 w w)))
(/.f64 #s(approx (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (.f64 h #s(approx (+ ( -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h h)))) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 D D) (pow.f64 (.f64 M w) #s(literal 2 binary64))) (.f64 d d)))))) (.f64 w w))
#s(approx (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (.f64 h #s(approx (+ ( -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h h)))) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 D D) (pow.f64 (.f64 M w) #s(literal 2 binary64))) (*.f64 d d))))))
(.f64 h #s(approx (+ ( -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h h)))) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 D D) (pow.f64 (.f64 M w) #s(literal 2 binary64))) (*.f64 d d)))))
#s(approx (+ (* -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h h)))) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 D D) (pow.f64 (.f64 M w) #s(literal 2 binary64))) (*.f64 d d))))
(.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 D D) (pow.f64 (.f64 M w) #s(literal 2 binary64))) (*.f64 d d)))
#s(literal -1/4 binary64)
(/.f64 (.f64 (.f64 D D) (pow.f64 (.f64 M w) #s(literal 2 binary64))) (.f64 d d))
(.f64 (.f64 D D) (pow.f64 (*.f64 M w) #s(literal 2 binary64)))
(pow.f64 (*.f64 M w) #s(literal 2 binary64))
(*.f64 M w)
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* 1/2 (/ (* M (* c0 (sqrt -1))) w))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* c0 (+ (* 1/2 (/ (* M (sqrt -1)) w)) (* 1/2 (/ (* c0 (pow d 2)) (* (pow D 2) (* h (pow w 2)))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* c0 (+ (* 1/2 (/ (* M (sqrt -1)) w)) (* c0 (+ (* 1/4 (/ (* c0 (pow d 4)) (* (pow D 4) (* M (* (pow h 2) (* (pow w 3) (sqrt -1))))))) (* 1/2 (/ (pow d 2) (* (pow D 2) (* h (pow w 2)))))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* c0 (+ (* 1/2 (/ (* M (sqrt -1)) w)) (* c0 (+ (* 1/2 (/ (pow d 2) (* (pow D 2) (* h (pow w 2))))) (* c0 (+ (* -1/16 (/ (* (pow c0 2) (pow d 8)) (* (pow D 8) (* (pow M 3) (* (pow h 4) (* (pow w 5) (pow (sqrt -1) 3))))))) (* 1/4 (/ (pow d 4) (* (pow D 4) (* M (* (pow h 2) (* (pow w 3) (sqrt -1)))))))))))))))
#s(approx (/ c0 (* 2 w)) #s(hole binary64 (* 1/2 (/ c0 w))))
#s(approx c0 #s(hole binary64 c0))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (* M (sqrt -1))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (+ (* M (sqrt -1)) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (+ (* M (sqrt -1)) (* c0 (+ (* 1/2 (/ (* c0 (pow d 4)) (* (pow D 4) (* M (* (pow h 2) (* (pow w 2) (sqrt -1))))))) (/ (pow d 2) (* (pow D 2) (* h w))))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (+ (* M (sqrt -1)) (* c0 (+ (* c0 (+ (* -1/8 (/ (* (pow c0 2) (pow d 8)) (* (pow D 8) (* (pow M 3) (* (pow h 4) (* (pow w 4) (pow (sqrt -1) 3))))))) (* 1/2 (/ (pow d 4) (* (pow D 4) (* M (* (pow h 2) (* (pow w 2) (sqrt -1))))))))) (/ (pow d 2) (* (pow D 2) (* h w))))))))
#s(approx (* c0 (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w)))))) #s(hole binary64 (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h w))) (* c0 (pow d 2))))))
#s(approx (* c0 (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w)))))) #s(hole binary64 (/ (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h w))) (pow d 2))) (* 2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h w))))) c0)))
#s(approx (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w))))) #s(hole binary64 (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h w))) (* (pow c0 2) (pow d 2))))))
#s(approx (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w))))) #s(hole binary64 (/ (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h w))) (pow d 2))) (* 2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h w))))) (pow c0 2))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (* 1/2 (/ (* M (* c0 (sqrt -1))) w))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (* c0 (+ (* 1/2 (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (* M (* w (sqrt -1))))) (/ (pow d 2) (* (pow D 2) (* h (pow w 2))))))) (* 1/2 (/ (* M (sqrt -1)) w))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (* c0 (+ (* 1/2 (/ (* M (sqrt -1)) w)) (* c0 (+ (* 1/4 (/ (* c0 (- (/ (pow d 4) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* M (* w (sqrt -1))))) (* 1/2 (+ (* 1/2 (/ (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (* M (* w (sqrt -1))))) (/ (pow d 2) (* (pow D 2) (* h (pow w 2))))))))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (* c0 (+ (* 1/2 (/ (* M (sqrt -1)) w)) (* c0 (+ (* 1/2 (+ (* 1/2 (/ (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (* M (* w (sqrt -1))))) (/ (pow d 2) (* (pow D 2) (* h (pow w 2)))))) (* c0 (+ (* -1/8 (/ (* c0 (* (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (- (/ (pow d 4) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2) (* (pow M 2) (pow (sqrt -1) 2))))))) (* (pow M 3) (* w (pow (sqrt -1) 3))))) (* 1/4 (/ (- (/ (pow d 4) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2) (* (pow M 2) (pow (sqrt -1) 2))))) (* M (* w (sqrt -1)))))))))))))
#s(approx (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h (* w w)))) #s(hole binary64 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h (pow w 2))))))
#s(approx (/ (* c0 c0) (* D D)) #s(hole binary64 (/ (pow c0 2) (pow D 2))))
#s(approx (neg (* (* 0 (/ (/ (* d d) (* D D)) (* h w))) c0)) #s(hole binary64 0))
#s(approx (* (* 0 (/ (/ (* d d) (* D D)) (* h w))) c0) #s(hole binary64 0))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) (* w 2)) #s(hole binary64 (* 1/2 (/ (* M (* c0 (sqrt -1))) w))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) (* w 2)) #s(hole binary64 (* c0 (+ (* 1/2 (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (* M (* w (sqrt -1))))) (/ (pow d 2) (* (pow D 2) (* h (pow w 2))))))) (* 1/2 (/ (* M (sqrt -1)) w))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) (* w 2)) #s(hole binary64 (* c0 (+ (* 1/2 (/ (* M (sqrt -1)) w)) (* c0 (+ (* 1/4 (/ (* c0 (- (/ (pow d 4) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* M (* w (sqrt -1))))) (* 1/2 (+ (* 1/2 (/ (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (* M (* w (sqrt -1))))) (/ (pow d 2) (* (pow D 2) (* h (pow w 2))))))))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) (* w 2)) #s(hole binary64 (* c0 (+ (* 1/2 (/ (* M (sqrt -1)) w)) (* c0 (+ (* 1/2 (+ (* 1/2 (/ (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (* M (* w (sqrt -1))))) (/ (pow d 2) (* (pow D 2) (* h (pow w 2)))))) (* c0 (+ (* -1/8 (/ (* c0 (* (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (- (/ (pow d 4) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2) (* (pow M 2) (pow (sqrt -1) 2))))))) (* (pow M 3) (* w (pow (sqrt -1) 3))))) (* 1/4 (/ (- (/ (pow d 4) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2) (* (pow M 2) (pow (sqrt -1) 2))))) (* M (* w (sqrt -1)))))))))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) #s(hole binary64 (* M (* c0 (sqrt -1)))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) #s(hole binary64 (* c0 (+ (* M (sqrt -1)) (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (* M (sqrt -1)))) (/ (pow d 2) (* (pow D 2) (* h w)))))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) #s(hole binary64 (* c0 (+ (* M (sqrt -1)) (* c0 (+ (* 1/2 (/ (* c0 (- (/ (pow d 4) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* M (sqrt -1)))) (+ (* 1/2 (/ (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (* M (sqrt -1)))) (/ (pow d 2) (* (pow D 2) (* h w))))))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) #s(hole binary64 (* c0 (+ (* M (sqrt -1)) (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (* M (sqrt -1)))) (+ (* c0 (+ (* -1/4 (/ (* c0 (* (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (- (/ (pow d 4) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2) (* (pow M 2) (pow (sqrt -1) 2))))))) (* (pow M 3) (pow (sqrt -1) 3)))) (* 1/2 (/ (- (/ (pow d 4) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2) (* (pow M 2) (pow (sqrt -1) 2))))) (* M (sqrt -1)))))) (/ (pow d 2) (* (pow D 2) (* h w))))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M)))) #s(hole binary64 (* M (sqrt -1))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M)))) #s(hole binary64 (+ (* M (sqrt -1)) (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (* M (sqrt -1)))) (/ (pow d 2) (* (pow D 2) (* h w))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M)))) #s(hole binary64 (+ (* M (sqrt -1)) (* c0 (+ (* 1/2 (/ (* c0 (- (/ (pow d 4) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* M (sqrt -1)))) (+ (* 1/2 (/ (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (* M (sqrt -1)))) (/ (pow d 2) (* (pow D 2) (* h w)))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M)))) #s(hole binary64 (+ (* M (sqrt -1)) (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (* M (sqrt -1)))) (+ (* c0 (+ (* -1/4 (/ (* c0 (* (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (- (/ (pow d 4) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2) (* (pow M 2) (pow (sqrt -1) 2))))))) (* (pow M 3) (pow (sqrt -1) 3)))) (* 1/2 (/ (- (/ (pow d 4) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2) (* (pow M 2) (pow (sqrt -1) 2))))) (* M (sqrt -1)))))) (/ (pow d 2) (* (pow D 2) (* h w)))))))))
#s(approx (* (/ c0 (* h w)) (/ (* d d) (* D D))) #s(hole binary64 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))))
#s(approx (/ c0 (* h w)) #s(hole binary64 (/ c0 (* h w))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))) #s(hole binary64 (* M (sqrt -1))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))) #s(hole binary64 (+ (* 1/2 (/ (* c0 (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w))))) (* M (sqrt -1)))) (* M (sqrt -1)))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))) #s(hole binary64 (+ (* M (sqrt -1)) (* c0 (+ (* 1/2 (/ (* c0 (- (/ (pow d 4) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* M (sqrt -1)))) (* 1/2 (/ (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (* M (sqrt -1)))))))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))) #s(hole binary64 (+ (* M (sqrt -1)) (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (* M (sqrt -1)))) (* c0 (+ (* -1/4 (/ (* c0 (* (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (- (/ (pow d 4) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2) (* (pow M 2) (pow (sqrt -1) 2))))))) (* (pow M 3) (pow (sqrt -1) 3)))) (* 1/2 (/ (- (/ (pow d 4) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2) (* (pow M 2) (pow (sqrt -1) 2))))) (* M (sqrt -1)))))))))))
#s(approx (* (/ c0 (* h w)) (* (/ d D) (/ d D))) #s(hole binary64 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))))
#s(approx (/ (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (* w w)) #s(hole binary64 (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2)))))
#s(approx (/ (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (* w w)) #s(hole binary64 (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h (pow w 2)))))))
#s(approx (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) #s(hole binary64 (* -1/4 (/ (* (pow D 2) (* (pow M 2) (* h (pow w 2)))) (pow d 2)))))
#s(approx (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) #s(hole binary64 (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (* h (pow w 2)))) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) h)))))
#s(approx (* h (+ (* -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h h))))) #s(hole binary64 (* -1/4 (/ (* (pow D 2) (* (pow M 2) (* h (pow w 2)))) (pow d 2)))))
#s(approx (* h (+ (* -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h h))))) #s(hole binary64 (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (* h (pow w 2)))) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) h)))))
#s(approx (+ (* -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h h)))) #s(hole binary64 (* -1/4 (/ (* (pow D 2) (* (pow M 2) (pow w 2))) (pow d 2)))))
#s(approx (+ (* -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h h)))) #s(hole binary64 (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (pow w 2))) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (pow h 2))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h (pow w 2))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* (pow c0 2) (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow c0 2) (pow d 2)))) (/ (pow d 2) (* (pow D 2) (* h (pow w 2))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* (pow c0 2) (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow c0 2) (pow d 2)))) (+ (* -1/16 (/ (* (pow D 6) (* (pow M 4) (* (pow h 3) (pow w 2)))) (* (pow c0 4) (pow d 6)))) (/ (pow d 2) (* (pow D 2) (* h (pow w 2)))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* (pow c0 2) (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow c0 2) (pow d 2)))) (+ (* -1/16 (/ (* (pow D 6) (* (pow M 4) (* (pow h 3) (pow w 2)))) (* (pow c0 4) (pow d 6)))) (+ (* -1/32 (/ (* (pow D 10) (* (pow M 6) (* (pow h 5) (pow w 4)))) (* (pow c0 6) (pow d 10)))) (/ (pow d 2) (* (pow D 2) (* h (pow w 2))))))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (* 2 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (* c0 (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h w))) (* (pow c0 2) (pow d 2)))) (* 2 (/ (pow d 2) (* (pow D 2) (* h w))))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (* c0 (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h w))) (* (pow c0 2) (pow d 2)))) (+ (* -1/8 (/ (* (pow D 6) (* (pow M 4) (* (pow h 3) (pow w 3)))) (* (pow c0 4) (pow d 6)))) (* 2 (/ (pow d 2) (* (pow D 2) (* h w)))))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (* c0 (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h w))) (* (pow c0 2) (pow d 2)))) (+ (* -1/8 (/ (* (pow D 6) (* (pow M 4) (* (pow h 3) (pow w 3)))) (* (pow c0 4) (pow d 6)))) (+ (* -1/16 (/ (* (pow D 10) (* (pow M 6) (* (pow h 5) (pow w 5)))) (* (pow c0 6) (pow d 10)))) (* 2 (/ (pow d 2) (* (pow D 2) (* h w))))))))))
#s(approx (* c0 (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w)))))) #s(hole binary64 (* 2 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))))
#s(approx (* c0 (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w)))))) #s(hole binary64 (* c0 (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h w))) (* (pow c0 2) (pow d 2)))) (* 2 (/ (pow d 2) (* (pow D 2) (* h w))))))))
#s(approx (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w))))) #s(hole binary64 (* 2 (/ (pow d 2) (* (pow D 2) (* h w))))))
#s(approx (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w))))) #s(hole binary64 (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h w))) (* (pow c0 2) (pow d 2)))) (* 2 (/ (pow d 2) (* (pow D 2) (* h w)))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h (pow w 2))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (* (pow c0 2) (+ (* 1/4 (/ (* (pow D 2) (* h (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))))) (* c0 (pow d 2)))) (/ (pow d 2) (* (pow D 2) (* h (pow w 2))))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (* (pow c0 2) (+ (* 1/4 (/ (* (pow D 2) (* h (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))))) (* c0 (pow d 2)))) (+ (* 1/4 (/ (* (pow D 2) (* h (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (pow d 4)))))) (* (pow c0 2) (pow d 2)))) (/ (pow d 2) (* (pow D 2) (* h (pow w 2)))))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (* (pow c0 2) (+ (* -1/8 (/ (* (pow D 6) (* (pow h 3) (* (pow w 2) (* (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (pow d 4)))))))) (* (pow c0 3) (pow d 6)))) (+ (* 1/4 (/ (* (pow D 2) (* h (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))))) (* c0 (pow d 2)))) (+ (* 1/4 (/ (* (pow D 2) (* h (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (pow d 4)))))) (* (pow c0 2) (pow d 2)))) (/ (pow d 2) (* (pow D 2) (* h (pow w 2))))))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) (* w 2)) #s(hole binary64 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h (pow w 2))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) (* w 2)) #s(hole binary64 (* (pow c0 2) (+ (* 1/4 (/ (* (pow D 2) (* h (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))))) (* c0 (pow d 2)))) (/ (pow d 2) (* (pow D 2) (* h (pow w 2))))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) (* w 2)) #s(hole binary64 (* (pow c0 2) (+ (* 1/4 (/ (* (pow D 2) (* h (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))))) (* c0 (pow d 2)))) (+ (* 1/4 (/ (* (pow D 2) (* h (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (pow d 4)))))) (* (pow c0 2) (pow d 2)))) (/ (pow d 2) (* (pow D 2) (* h (pow w 2)))))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) (* w 2)) #s(hole binary64 (* (pow c0 2) (+ (* -1/8 (/ (* (pow D 6) (* (pow h 3) (* (pow w 2) (* (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (pow d 4)))))))) (* (pow c0 3) (pow d 6)))) (+ (* 1/4 (/ (* (pow D 2) (* h (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))))) (* c0 (pow d 2)))) (+ (* 1/4 (/ (* (pow D 2) (* h (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (pow d 4)))))) (* (pow c0 2) (pow d 2)))) (/ (pow d 2) (* (pow D 2) (* h (pow w 2))))))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) #s(hole binary64 (* 2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h w))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) #s(hole binary64 (* (pow c0 2) (+ (* 1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w))))))) (* c0 (pow d 2)))) (* 2 (/ (pow d 2) (* (pow D 2) (* h w))))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) #s(hole binary64 (* (pow c0 2) (+ (* 1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w))))))) (* c0 (pow d 2)))) (+ (* 1/2 (/ (* (pow D 2) (* h (* w (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (pow d 4))))))) (* (pow c0 2) (pow d 2)))) (* 2 (/ (pow d 2) (* (pow D 2) (* h w)))))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) #s(hole binary64 (* (pow c0 2) (+ (* -1/4 (/ (* (pow D 6) (* (pow h 3) (* (pow w 3) (* (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (pow d 4)))))))) (* (pow c0 3) (pow d 6)))) (+ (* 1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w))))))) (* c0 (pow d 2)))) (+ (* 1/2 (/ (* (pow D 2) (* h (* w (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (pow d 4))))))) (* (pow c0 2) (pow d 2)))) (* 2 (/ (pow d 2) (* (pow D 2) (* h w))))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M)))) #s(hole binary64 (* 2 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M)))) #s(hole binary64 (* c0 (+ (* 1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w))))))) (* c0 (pow d 2)))) (* 2 (/ (pow d 2) (* (pow D 2) (* h w))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M)))) #s(hole binary64 (* c0 (+ (* 1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w))))))) (* c0 (pow d 2)))) (+ (* 1/2 (/ (* (pow D 2) (* h (* w (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (pow d 4))))))) (* (pow c0 2) (pow d 2)))) (* 2 (/ (pow d 2) (* (pow D 2) (* h w)))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M)))) #s(hole binary64 (* c0 (+ (* -1/4 (/ (* (pow D 6) (* (pow h 3) (* (pow w 3) (* (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (pow d 4)))))))) (* (pow c0 3) (pow d 6)))) (+ (* 1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w))))))) (* c0 (pow d 2)))) (+ (* 1/2 (/ (* (pow D 2) (* h (* w (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (pow d 4))))))) (* (pow c0 2) (pow d 2)))) (* 2 (/ (pow d 2) (* (pow D 2) (* h w))))))))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))) #s(hole binary64 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))) #s(hole binary64 (* c0 (+ (* 1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w))))))) (* c0 (pow d 2)))) (/ (pow d 2) (* (pow D 2) (* h w)))))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))) #s(hole binary64 (* c0 (+ (* 1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w))))))) (* c0 (pow d 2)))) (+ (* 1/2 (/ (* (pow D 2) (* h (* w (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (pow d 4))))))) (* (pow c0 2) (pow d 2)))) (/ (pow d 2) (* (pow D 2) (* h w))))))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))) #s(hole binary64 (* c0 (+ (* -1/4 (/ (* (pow D 6) (* (pow h 3) (* (pow w 3) (* (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (pow d 4)))))))) (* (pow c0 3) (pow d 6)))) (+ (* 1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w))))))) (* c0 (pow d 2)))) (+ (* 1/2 (/ (* (pow D 2) (* h (* w (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (pow d 4))))))) (* (pow c0 2) (pow d 2)))) (/ (pow d 2) (* (pow D 2) (* h w)))))))))
#s(approx (/ (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (* w w)) #s(hole binary64 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h (pow w 2))))))
#s(approx (/ (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (* w w)) #s(hole binary64 (* (pow c0 2) (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow c0 2) (pow d 2)))) (/ (pow d 2) (* (pow D 2) (* h (pow w 2))))))))
#s(approx (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) #s(hole binary64 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) h))))
#s(approx (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) #s(hole binary64 (* (pow c0 2) (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (* h (pow w 2)))) (* (pow c0 2) (pow d 2)))) (/ (pow d 2) (* (pow D 2) h))))))
#s(approx (* h (+ (* -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h h))))) #s(hole binary64 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) h))))
#s(approx (* h (+ (* -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h h))))) #s(hole binary64 (* (pow c0 2) (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (* h (pow w 2)))) (* (pow c0 2) (pow d 2)))) (/ (pow d 2) (* (pow D 2) h))))))
#s(approx (+ (* -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h h)))) #s(hole binary64 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (pow h 2)))))
#s(approx (+ (* -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h h)))) #s(hole binary64 (* (pow c0 2) (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (pow w 2))) (* (pow c0 2) (pow d 2)))) (/ (pow d 2) (* (pow D 2) (pow h 2)))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* -1/2 (/ (* (pow c0 2) (+ (* -1 (/ (pow d 2) (* (pow D 2) (* h w)))) (/ (pow d 2) (* (pow D 2) (* h w))))) w))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* (pow c0 2) (+ (* -1/2 (/ (+ (* -1 (/ (pow d 2) (* (pow D 2) (* h w)))) (/ (pow d 2) (* (pow D 2) (* h w)))) w)) (* 1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow c0 2) (pow d 2))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* (pow c0 2) (+ (* -1/2 (/ (+ (* -1 (/ (pow d 2) (* (pow D 2) (* h w)))) (/ (pow d 2) (* (pow D 2) (* h w)))) w)) (+ (* 1/16 (/ (* (pow D 6) (* (pow M 4) (* (pow h 3) (pow w 2)))) (* (pow c0 4) (pow d 6)))) (* 1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow c0 2) (pow d 2)))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* (pow c0 2) (+ (* -1/2 (/ (+ (* -1 (/ (pow d 2) (* (pow D 2) (* h w)))) (/ (pow d 2) (* (pow D 2) (* h w)))) w)) (+ (* 1/32 (/ (* (pow D 10) (* (pow M 6) (* (pow h 5) (pow w 4)))) (* (pow c0 6) (pow d 10)))) (+ (* 1/16 (/ (* (pow D 6) (* (pow M 4) (* (pow h 3) (pow w 2)))) (* (pow c0 4) (pow d 6)))) (* 1/4 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow c0 2) (pow d 2))))))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (* -1 (* c0 (+ (* -1 (/ (pow d 2) (* (pow D 2) (* h w)))) (/ (pow d 2) (* (pow D 2) (* h w))))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (* -1 (* c0 (+ (* -1 (/ (pow d 2) (* (pow D 2) (* h w)))) (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h w))) (* (pow c0 2) (pow d 2)))) (/ (pow d 2) (* (pow D 2) (* h w)))))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (* -1 (* c0 (+ (* -1 (/ (pow d 2) (* (pow D 2) (* h w)))) (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h w))) (* (pow c0 2) (pow d 2)))) (+ (* -1/8 (/ (* (pow D 6) (* (pow M 4) (* (pow h 3) (pow w 3)))) (* (pow c0 4) (pow d 6)))) (/ (pow d 2) (* (pow D 2) (* h w))))))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (* -1 (* c0 (+ (* -1 (/ (pow d 2) (* (pow D 2) (* h w)))) (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h w))) (* (pow c0 2) (pow d 2)))) (+ (* -1/8 (/ (* (pow D 6) (* (pow M 4) (* (pow h 3) (pow w 3)))) (* (pow c0 4) (pow d 6)))) (+ (* -1/16 (/ (* (pow D 10) (* (pow M 6) (* (pow h 5) (pow w 5)))) (* (pow c0 6) (pow d 10)))) (/ (pow d 2) (* (pow D 2) (* h w)))))))))))
#s(approx (* c0 (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w)))))) #s(hole binary64 (* -1 (* c0 (+ (* -2 (/ (pow d 2) (* (pow D 2) (* h w)))) (* 1/2 (/ (* (pow D 2) (* (pow M 2) (* h w))) (* (pow c0 2) (pow d 2)))))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (* -1/2 (/ (* (pow c0 2) (+ (* -1 (/ (pow d 2) (* (pow D 2) (* h w)))) (/ (pow d 2) (* (pow D 2) (* h w))))) w))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (* (pow c0 2) (+ (* -1/2 (/ (+ (* -1 (/ (pow d 2) (* (pow D 2) (* h w)))) (/ (pow d 2) (* (pow D 2) (* h w)))) w)) (* 1/4 (/ (* (pow D 2) (* h (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))))) (* c0 (pow d 2))))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (* (pow c0 2) (+ (* -1 (/ (+ (* -1/4 (/ (* (pow D 2) (* h (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))))) (pow d 2))) (* 1/4 (/ (* (pow D 2) (* h (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (pow d 4)))))) (* c0 (pow d 2))))) c0)) (* -1/2 (/ (+ (* -1 (/ (pow d 2) (* (pow D 2) (* h w)))) (/ (pow d 2) (* (pow D 2) (* h w)))) w))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (* (pow c0 2) (+ (* -1 (/ (+ (* -1 (/ (+ (* -1/4 (/ (* (pow D 2) (* h (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (pow d 4)))))) (pow d 2))) (* -1/8 (/ (* (pow D 6) (* (pow h 3) (* (pow w 2) (* (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (pow d 4)))))))) (* c0 (pow d 6))))) c0)) (* -1/4 (/ (* (pow D 2) (* h (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))))) (pow d 2)))) c0)) (* -1/2 (/ (+ (* -1 (/ (pow d 2) (* (pow D 2) (* h w)))) (/ (pow d 2) (* (pow D 2) (* h w)))) w))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) (* w 2)) #s(hole binary64 (* -1/2 (/ (* (pow c0 2) (+ (* -1 (/ (pow d 2) (* (pow D 2) (* h w)))) (/ (pow d 2) (* (pow D 2) (* h w))))) w))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) (* w 2)) #s(hole binary64 (* (pow c0 2) (+ (* -1/2 (/ (+ (* -1 (/ (pow d 2) (* (pow D 2) (* h w)))) (/ (pow d 2) (* (pow D 2) (* h w)))) w)) (* 1/4 (/ (* (pow D 2) (* h (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))))) (* c0 (pow d 2))))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) (* w 2)) #s(hole binary64 (* (pow c0 2) (+ (* -1 (/ (+ (* -1/4 (/ (* (pow D 2) (* h (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))))) (pow d 2))) (* 1/4 (/ (* (pow D 2) (* h (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (pow d 4)))))) (* c0 (pow d 2))))) c0)) (* -1/2 (/ (+ (* -1 (/ (pow d 2) (* (pow D 2) (* h w)))) (/ (pow d 2) (* (pow D 2) (* h w)))) w))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) (* w 2)) #s(hole binary64 (* (pow c0 2) (+ (* -1 (/ (+ (* -1 (/ (+ (* -1/4 (/ (* (pow D 2) (* h (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (pow d 4)))))) (pow d 2))) (* -1/8 (/ (* (pow D 6) (* (pow h 3) (* (pow w 2) (* (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (pow d 4)))))))) (* c0 (pow d 6))))) c0)) (* -1/4 (/ (* (pow D 2) (* h (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))))) (pow d 2)))) c0)) (* -1/2 (/ (+ (* -1 (/ (pow d 2) (* (pow D 2) (* h w)))) (/ (pow d 2) (* (pow D 2) (* h w)))) w))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) #s(hole binary64 (* -1 (* (pow c0 2) (+ (* -1 (/ (pow d 2) (* (pow D 2) (* h w)))) (/ (pow d 2) (* (pow D 2) (* h w))))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) #s(hole binary64 (* (pow c0 2) (+ (* -1 (+ (* -1 (/ (pow d 2) (* (pow D 2) (* h w)))) (/ (pow d 2) (* (pow D 2) (* h w))))) (* 1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w))))))) (* c0 (pow d 2))))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) #s(hole binary64 (* (pow c0 2) (+ (* -1 (+ (* -1 (/ (pow d 2) (* (pow D 2) (* h w)))) (/ (pow d 2) (* (pow D 2) (* h w))))) (* -1 (/ (+ (* -1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w))))))) (pow d 2))) (* 1/2 (/ (* (pow D 2) (* h (* w (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (pow d 4))))))) (* c0 (pow d 2))))) c0))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) #s(hole binary64 (* (pow c0 2) (+ (* -1 (+ (* -1 (/ (pow d 2) (* (pow D 2) (* h w)))) (/ (pow d 2) (* (pow D 2) (* h w))))) (* -1 (/ (+ (* -1 (/ (+ (* -1/2 (/ (* (pow D 2) (* h (* w (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (pow d 4))))))) (pow d 2))) (* -1/4 (/ (* (pow D 6) (* (pow h 3) (* (pow w 3) (* (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (pow d 4)))))))) (* c0 (pow d 6))))) c0)) (* -1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w))))))) (pow d 2)))) c0))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M)))) #s(hole binary64 (* -1 (* c0 (+ (* -1 (/ (pow d 2) (* (pow D 2) (* h w)))) (/ (pow d 2) (* (pow D 2) (* h w))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M)))) #s(hole binary64 (* -1 (* c0 (+ (* -1 (/ (pow d 2) (* (pow D 2) (* h w)))) (+ (* -1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w))))))) (* c0 (pow d 2)))) (/ (pow d 2) (* (pow D 2) (* h w)))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M)))) #s(hole binary64 (* -1 (* c0 (+ (* -1 (/ (+ (* -1/2 (/ (* (pow D 2) (* h (* w (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (pow d 4))))))) (* c0 (pow d 2)))) (* 1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w))))))) (pow d 2)))) c0)) (+ (* -1 (/ (pow d 2) (* (pow D 2) (* h w)))) (/ (pow d 2) (* (pow D 2) (* h w)))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M)))) #s(hole binary64 (* -1 (* c0 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/4 (/ (* (pow D 6) (* (pow h 3) (* (pow w 3) (* (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (pow d 4)))))))) (* c0 (pow d 6)))) (* 1/2 (/ (* (pow D 2) (* h (* w (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (pow d 4))))))) (pow d 2)))) c0)) (* 1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w))))))) (pow d 2)))) c0)) (+ (* -1 (/ (pow d 2) (* (pow D 2) (* h w)))) (/ (pow d 2) (* (pow D 2) (* h w)))))))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))) #s(hole binary64 (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))) #s(hole binary64 (* -1 (* c0 (+ (* -1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w))))))) (* c0 (pow d 2)))) (/ (pow d 2) (* (pow D 2) (* h w))))))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))) #s(hole binary64 (* -1 (* c0 (+ (* -1 (/ (+ (* -1/2 (/ (* (pow D 2) (* h (* w (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (pow d 4))))))) (* c0 (pow d 2)))) (* 1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w))))))) (pow d 2)))) c0)) (/ (pow d 2) (* (pow D 2) (* h w))))))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))) #s(hole binary64 (* -1 (* c0 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/4 (/ (* (pow D 6) (* (pow h 3) (* (pow w 3) (* (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (pow d 4)))))))) (* c0 (pow d 6)))) (* 1/2 (/ (* (pow D 2) (* h (* w (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (pow d 4))))))) (pow d 2)))) c0)) (* 1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* M (pow d 2)) (* (pow D 2) (* h w)))) (/ (* M (pow d 2)) (* (pow D 2) (* h w))))))) (pow d 2)))) c0)) (/ (pow d 2) (* (pow D 2) (* h w))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (/ (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (* h (pow w 2)))) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) h))) (pow w 2))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (/ (+ (* (pow w 2) (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2))) (* -1/16 (/ (* (pow D 6) (* (pow M 4) (* (pow h 3) (pow w 2)))) (* (pow c0 2) (pow d 6)))))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) h))) (pow w 2))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (/ (+ (* (pow w 2) (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2))) (* (pow w 2) (+ (* -1/16 (/ (* (pow D 6) (* (pow M 4) (pow h 3))) (* (pow c0 2) (pow d 6)))) (* -1/32 (/ (* (pow D 10) (* (pow M 6) (* (pow h 5) (pow w 2)))) (* (pow c0 4) (pow d 10)))))))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) h))) (pow w 2))))
#s(approx (* 2 w) #s(hole binary64 (* 2 w)))
#s(approx w #s(hole binary64 w))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (/ (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h (pow w 2)))) (* c0 (pow d 2)))) (* 2 (/ (* c0 (pow d 2)) (* (pow D 2) h)))) w)))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (/ (+ (* 2 (/ (* c0 (pow d 2)) (* (pow D 2) h))) (* (pow w 2) (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) h)) (* c0 (pow d 2)))) (* -1/8 (/ (* (pow D 6) (* (pow M 4) (* (pow h 3) (pow w 2)))) (* (pow c0 3) (pow d 6))))))) w)))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (/ (+ (* 2 (/ (* c0 (pow d 2)) (* (pow D 2) h))) (* (pow w 2) (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) h)) (* c0 (pow d 2)))) (* (pow w 2) (+ (* -1/8 (/ (* (pow D 6) (* (pow M 4) (pow h 3))) (* (pow c0 3) (pow d 6)))) (* -1/16 (/ (* (pow D 10) (* (pow M 6) (* (pow h 5) (pow w 2)))) (* (pow c0 5) (pow d 10))))))))) w)))
#s(approx (* c0 (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w)))))) #s(hole binary64 (/ (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h (pow w 2)))) (* c0 (pow d 2)))) (* 2 (/ (* c0 (pow d 2)) (* (pow D 2) h)))) w)))
#s(approx (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w))))) #s(hole binary64 (/ (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h (pow w 2)))) (* (pow c0 2) (pow d 2)))) (* 2 (/ (pow d 2) (* (pow D 2) h)))) w)))
#s(approx (* 2 (* (/ d (* D D)) (/ d (* h w)))) #s(hole binary64 (* 2 (/ (pow d 2) (* (pow D 2) (* h w))))))
#s(approx (* (/ d (* D D)) (/ d (* h w))) #s(hole binary64 (/ (pow d 2) (* (pow D 2) (* h w)))))
#s(approx (/ d (* h w)) #s(hole binary64 (/ d (* h w))))
#s(approx (* h w) #s(hole binary64 (* h w)))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (/ (+ (* 1/4 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h)))))) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) h))) (pow w 2))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (/ (+ (* w (+ (* 1/4 (/ (* (pow D 2) (* h (* w (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2))) (* (pow c0 2) (pow d 4)))))))) (pow d 2))) (* 1/4 (/ (* (pow D 2) (* h (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))))) (pow d 2))))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) h))) (pow w 2))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (/ (+ (* w (+ (* 1/4 (/ (* (pow D 2) (* h (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))))) (pow d 2))) (* w (+ (* -1/8 (/ (* (pow D 6) (* (pow h 3) (* w (* (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2))) (* (pow c0 2) (pow d 4))))))))) (* (pow c0 2) (pow d 6)))) (* 1/4 (/ (* (pow D 2) (* h (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2))) (* (pow c0 2) (pow d 4))))))) (pow d 2))))))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) h))) (pow w 2))))
#s(approx (/ (* d d) (* h (* w w))) #s(hole binary64 (/ (pow d 2) (* h (pow w 2)))))
#s(approx (* h (* w w)) #s(hole binary64 (* h (pow w 2))))
#s(approx (* w w) #s(hole binary64 (pow w 2)))
#s(approx (* 0 (/ (/ (* d d) (* D D)) (* h w))) #s(hole binary64 0))
#s(approx (/ (/ (* d d) (* D D)) (* h w)) #s(hole binary64 (/ (pow d 2) (* (pow D 2) (* h w)))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) (* w 2)) #s(hole binary64 (/ (+ (* 1/4 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h)))))) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) h))) (pow w 2))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) (* w 2)) #s(hole binary64 (/ (+ (* w (+ (* 1/4 (/ (* (pow D 2) (* h (* w (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2))) (* (pow c0 2) (pow d 4)))))))) (pow d 2))) (* 1/4 (/ (* (pow D 2) (* h (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))))) (pow d 2))))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) h))) (pow w 2))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) (* w 2)) #s(hole binary64 (/ (+ (* w (+ (* 1/4 (/ (* (pow D 2) (* h (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))))) (pow d 2))) (* w (+ (* -1/8 (/ (* (pow D 6) (* (pow h 3) (* w (* (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2))) (* (pow c0 2) (pow d 4))))))))) (* (pow c0 2) (pow d 6)))) (* 1/4 (/ (* (pow D 2) (* h (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2))) (* (pow c0 2) (pow d 4))))))) (pow d 2))))))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) h))) (pow w 2))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) #s(hole binary64 (/ (+ (* 1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h)))))) (pow d 2))) (* 2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) h)))) w)))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) #s(hole binary64 (/ (+ (* 2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) h))) (* w (+ (* 1/2 (/ (* (pow D 2) (* h (* w (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2))) (* (pow c0 2) (pow d 4)))))))) (pow d 2))) (* 1/2 (/ (* (pow D 2) (* h (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))))) (pow d 2)))))) w)))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) #s(hole binary64 (/ (+ (* 2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) h))) (* w (+ (* 1/2 (/ (* (pow D 2) (* h (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))))) (pow d 2))) (* w (+ (* -1/4 (/ (* (pow D 6) (* (pow h 3) (* w (* (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2))) (* (pow c0 2) (pow d 4))))))))) (* (pow c0 2) (pow d 6)))) (* 1/2 (/ (* (pow D 2) (* h (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2))) (* (pow c0 2) (pow d 4))))))) (pow d 2)))))))) w)))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M)))) #s(hole binary64 (/ (+ (* 1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h)))))) (* c0 (pow d 2)))) (* 2 (/ (* c0 (pow d 2)) (* (pow D 2) h)))) w)))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M)))) #s(hole binary64 (/ (+ (* 2 (/ (* c0 (pow d 2)) (* (pow D 2) h))) (* w (+ (* 1/2 (/ (* (pow D 2) (* h (* w (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2))) (* (pow c0 2) (pow d 4)))))))) (* c0 (pow d 2)))) (* 1/2 (/ (* (pow D 2) (* h (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))))) (* c0 (pow d 2))))))) w)))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M)))) #s(hole binary64 (/ (+ (* 2 (/ (* c0 (pow d 2)) (* (pow D 2) h))) (* w (+ (* 1/2 (/ (* (pow D 2) (* h (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))))) (* c0 (pow d 2)))) (* w (+ (* -1/4 (/ (* (pow D 6) (* (pow h 3) (* w (* (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2))) (* (pow c0 2) (pow d 4))))))))) (* (pow c0 3) (pow d 6)))) (* 1/2 (/ (* (pow D 2) (* h (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2))) (* (pow c0 2) (pow d 4))))))) (* c0 (pow d 2))))))))) w)))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))) #s(hole binary64 (/ (+ (* 1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h)))))) (* c0 (pow d 2)))) (/ (* c0 (pow d 2)) (* (pow D 2) h))) w)))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))) #s(hole binary64 (/ (+ (* w (+ (* 1/2 (/ (* (pow D 2) (* h (* w (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2))) (* (pow c0 2) (pow d 4)))))))) (* c0 (pow d 2)))) (* 1/2 (/ (* (pow D 2) (* h (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))))) (* c0 (pow d 2)))))) (/ (* c0 (pow d 2)) (* (pow D 2) h))) w)))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))) #s(hole binary64 (/ (+ (* w (+ (* 1/2 (/ (* (pow D 2) (* h (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))))) (* c0 (pow d 2)))) (* w (+ (* -1/4 (/ (* (pow D 6) (* (pow h 3) (* w (* (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2))) (* (pow c0 2) (pow d 4))))))))) (* (pow c0 3) (pow d 6)))) (* 1/2 (/ (* (pow D 2) (* h (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2))) (* (pow c0 2) (pow d 4))))))) (* c0 (pow d 2)))))))) (/ (* c0 (pow d 2)) (* (pow D 2) h))) w)))
#s(approx (* w 2) #s(hole binary64 (* 2 w)))
#s(approx (/ (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (* w w)) #s(hole binary64 (/ (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (* h (pow w 2)))) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) h))) (pow w 2))))
#s(approx (* -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) #s(hole binary64 (* -1/4 (/ (* (pow D 2) (* (pow M 2) (pow w 2))) (pow d 2)))))
#s(approx (/ (* (* D D) (pow (* M w) 2)) (* d d)) #s(hole binary64 (/ (* (pow D 2) (* (pow M 2) (pow w 2))) (pow d 2))))
#s(approx (* (* D D) (pow (* M w) 2)) #s(hole binary64 (* (pow D 2) (* (pow M 2) (pow w 2)))))
#s(approx (pow (* M w) 2) #s(hole binary64 (* (pow M 2) (pow w 2))))
#s(approx (* M w) #s(hole binary64 (* M w)))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (/ (+ (* 1/2 (* M (* c0 (sqrt -1)))) (* 1/2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h w))))) w)))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (/ (+ (* 1/4 (/ (* (pow c0 3) (pow d 4)) (* (pow D 4) (* M (* (pow h 2) (* (pow w 2) (sqrt -1))))))) (+ (* 1/2 (* M (* c0 (sqrt -1)))) (* 1/2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h w)))))) w)))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (/ (+ (* -1/16 (/ (* (pow c0 5) (pow d 8)) (* (pow D 8) (* (pow M 3) (* (pow h 4) (* (pow w 4) (pow (sqrt -1) 3))))))) (+ (* 1/4 (/ (* (pow c0 3) (pow d 4)) (* (pow D 4) (* M (* (pow h 2) (* (pow w 2) (sqrt -1))))))) (+ (* 1/2 (* M (* c0 (sqrt -1)))) (* 1/2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h w))))))) w)))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (+ (* 1/2 (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* M (* (pow h 2) (* (pow w 2) (sqrt -1))))))) (+ (* M (sqrt -1)) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (+ (* -1/8 (/ (* (pow c0 4) (pow d 8)) (* (pow D 8) (* (pow M 3) (* (pow h 4) (* (pow w 4) (pow (sqrt -1) 3))))))) (+ (* 1/2 (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* M (* (pow h 2) (* (pow w 2) (sqrt -1))))))) (+ (* M (sqrt -1)) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))))))
#s(approx (* c0 (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w)))))) #s(hole binary64 (* w (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) h)) (* c0 (pow d 2)))) (* 2 (/ (* c0 (pow d 2)) (* (pow D 2) (* h (pow w 2)))))))))
#s(approx (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w))))) #s(hole binary64 (* w (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow c0 2) (pow d 2)))) (* 2 (/ (pow d 2) (* (pow D 2) (* h (pow w 2)))))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (/ (+ (* 1/2 (* M (* c0 (sqrt -1)))) (* 1/2 (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (* M (sqrt -1)))) (/ (* c0 (pow d 2)) (* (pow D 2) h)))) w))) w)))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (/ (+ (* 1/4 (/ (* c0 (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow h 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* M (* (pow w 2) (sqrt -1))))) (+ (* 1/2 (* M (* c0 (sqrt -1)))) (* 1/2 (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (* M (sqrt -1)))) (/ (* c0 (pow d 2)) (* (pow D 2) h)))) w)))) w)))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (/ (+ (* -1/8 (/ (* c0 (* (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow h 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2) (* (pow M 2) (pow (sqrt -1) 2))))))) (* (pow M 3) (* (pow w 3) (pow (sqrt -1) 3))))) (+ (* 1/4 (/ (* c0 (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow h 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* M (* (pow w 2) (sqrt -1))))) (+ (* 1/2 (* M (* c0 (sqrt -1)))) (* 1/2 (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (* M (sqrt -1)))) (/ (* c0 (pow d 2)) (* (pow D 2) h)))) w))))) w)))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) (* w 2)) #s(hole binary64 (/ (+ (* 1/2 (* M (* c0 (sqrt -1)))) (* 1/2 (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (* M (sqrt -1)))) (/ (* c0 (pow d 2)) (* (pow D 2) h)))) w))) w)))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) (* w 2)) #s(hole binary64 (/ (+ (* 1/4 (/ (* c0 (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow h 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* M (* (pow w 2) (sqrt -1))))) (+ (* 1/2 (* M (* c0 (sqrt -1)))) (* 1/2 (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (* M (sqrt -1)))) (/ (* c0 (pow d 2)) (* (pow D 2) h)))) w)))) w)))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) (* w 2)) #s(hole binary64 (/ (+ (* -1/8 (/ (* c0 (* (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow h 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2) (* (pow M 2) (pow (sqrt -1) 2))))))) (* (pow M 3) (* (pow w 3) (pow (sqrt -1) 3))))) (+ (* 1/4 (/ (* c0 (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow h 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* M (* (pow w 2) (sqrt -1))))) (+ (* 1/2 (* M (* c0 (sqrt -1)))) (* 1/2 (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (* M (sqrt -1)))) (/ (* c0 (pow d 2)) (* (pow D 2) h)))) w))))) w)))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) #s(hole binary64 (+ (* M (* c0 (sqrt -1))) (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (* M (sqrt -1)))) (/ (* c0 (pow d 2)) (* (pow D 2) h)))) w))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) #s(hole binary64 (+ (* 1/2 (/ (* c0 (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow h 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* M (* (pow w 2) (sqrt -1))))) (+ (* M (* c0 (sqrt -1))) (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (* M (sqrt -1)))) (/ (* c0 (pow d 2)) (* (pow D 2) h)))) w)))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) #s(hole binary64 (+ (* -1/4 (/ (* c0 (* (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow h 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2) (* (pow M 2) (pow (sqrt -1) 2))))))) (* (pow M 3) (* (pow w 3) (pow (sqrt -1) 3))))) (+ (* 1/2 (/ (* c0 (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow h 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* M (* (pow w 2) (sqrt -1))))) (+ (* M (* c0 (sqrt -1))) (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (* M (sqrt -1)))) (/ (* c0 (pow d 2)) (* (pow D 2) h)))) w))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M)))) #s(hole binary64 (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (* M (* w (sqrt -1))))) (+ (* M (sqrt -1)) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M)))) #s(hole binary64 (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (* M (* w (sqrt -1))))) (+ (* 1/2 (/ (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow h 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2) (* (pow M 2) (pow (sqrt -1) 2))))) (* M (* (pow w 2) (sqrt -1))))) (+ (* M (sqrt -1)) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M)))) #s(hole binary64 (+ (* -1/4 (/ (* (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow h 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* (pow M 3) (* (pow w 3) (pow (sqrt -1) 3))))) (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (* M (* w (sqrt -1))))) (+ (* 1/2 (/ (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow h 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2) (* (pow M 2) (pow (sqrt -1) 2))))) (* M (* (pow w 2) (sqrt -1))))) (+ (* M (sqrt -1)) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))))))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))) #s(hole binary64 (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (* M (* w (sqrt -1))))) (* M (sqrt -1)))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))) #s(hole binary64 (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (* M (* w (sqrt -1))))) (+ (* 1/2 (/ (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow h 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2) (* (pow M 2) (pow (sqrt -1) 2))))) (* M (* (pow w 2) (sqrt -1))))) (* M (sqrt -1))))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))) #s(hole binary64 (+ (* -1/4 (/ (* (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow h 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* (pow M 3) (* (pow w 3) (pow (sqrt -1) 3))))) (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (* M (* w (sqrt -1))))) (+ (* 1/2 (/ (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow h 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2) (* (pow M 2) (pow (sqrt -1) 2))))) (* M (* (pow w 2) (sqrt -1))))) (* M (sqrt -1)))))))
#s(approx (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) #s(hole binary64 (* (pow w 2) (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h (pow w 2))))))))
#s(approx (* h (+ (* -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h h))))) #s(hole binary64 (* (pow w 2) (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h (pow w 2))))))))
#s(approx (+ (* -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h h)))) #s(hole binary64 (* (pow w 2) (+ (* -1/4 (/ (* (pow D 2) (pow M 2)) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* (pow h 2) (pow w 2))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* -1 (/ (+ (* -1/2 (* M (* c0 (sqrt -1)))) (* -1/2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h w))))) w))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (+ (* 1/4 (/ (* (pow c0 3) (pow d 4)) (* (pow D 4) (* M (* (pow h 2) (* w (sqrt -1))))))) (* 1/2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) h)))) w)) (* -1/2 (* M (* c0 (sqrt -1))))) w))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (+ (* -1 (/ (+ (* -1/4 (/ (* (pow c0 3) (pow d 4)) (* (pow D 4) (* M (* (pow h 2) (sqrt -1)))))) (* 1/16 (/ (* (pow c0 5) (pow d 8)) (* (pow D 8) (* (pow M 3) (* (pow h 4) (* (pow w 2) (pow (sqrt -1) 3)))))))) w)) (* 1/2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) h)))) w)) (* -1/2 (* M (* c0 (sqrt -1))))) w))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) h))) (* -1/2 (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* M (* (pow h 2) (* w (sqrt -1)))))))) w)) (* M (sqrt -1)))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) h))) (* -1 (/ (+ (* -1/8 (/ (* (pow c0 4) (pow d 8)) (* (pow D 8) (* (pow M 3) (* (pow h 4) (* (pow w 2) (pow (sqrt -1) 3))))))) (* 1/2 (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* M (* (pow h 2) (sqrt -1))))))) w))) w)) (* M (sqrt -1)))))
#s(approx (* c0 (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w)))))) #s(hole binary64 (* -1 (* w (+ (* -2 (/ (* c0 (pow d 2)) (* (pow D 2) (* h (pow w 2))))) (* 1/2 (/ (* (pow D 2) (* (pow M 2) h)) (* c0 (pow d 2)))))))))
#s(approx (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w))))) #s(hole binary64 (* -1 (* w (+ (* -2 (/ (pow d 2) (* (pow D 2) (* h (pow w 2))))) (* 1/2 (/ (* (pow D 2) (* (pow M 2) h)) (* (pow c0 2) (pow d 2)))))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (* -1 (/ (+ (* -1/2 (* M (* c0 (sqrt -1)))) (* 1/2 (/ (* c0 (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) h))) (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (* M (sqrt -1)))))) w))) w))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (+ (* -1/2 (* c0 (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) h))) (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (* M (sqrt -1))))))) (* 1/4 (/ (* c0 (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow h 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* M (* w (sqrt -1)))))) w)) (* -1/2 (* M (* c0 (sqrt -1))))) w))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (+ (* -1 (/ (+ (* -1/4 (/ (* c0 (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow h 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* M (sqrt -1)))) (* -1/8 (/ (* c0 (* (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow h 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2) (* (pow M 2) (pow (sqrt -1) 2))))))) (* (pow M 3) (* w (pow (sqrt -1) 3)))))) w)) (* -1/2 (* c0 (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) h))) (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (* M (sqrt -1)))))))) w)) (* -1/2 (* M (* c0 (sqrt -1))))) w))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) (* w 2)) #s(hole binary64 (* -1 (/ (+ (* -1/2 (* M (* c0 (sqrt -1)))) (* 1/2 (/ (* c0 (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) h))) (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (* M (sqrt -1)))))) w))) w))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) (* w 2)) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (+ (* -1/2 (* c0 (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) h))) (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (* M (sqrt -1))))))) (* 1/4 (/ (* c0 (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow h 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* M (* w (sqrt -1)))))) w)) (* -1/2 (* M (* c0 (sqrt -1))))) w))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) (* w 2)) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (+ (* -1 (/ (+ (* -1/4 (/ (* c0 (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow h 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* M (sqrt -1)))) (* -1/8 (/ (* c0 (* (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow h 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2) (* (pow M 2) (pow (sqrt -1) 2))))))) (* (pow M 3) (* w (pow (sqrt -1) 3)))))) w)) (* -1/2 (* c0 (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) h))) (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (* M (sqrt -1)))))))) w)) (* -1/2 (* M (* c0 (sqrt -1))))) w))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) #s(hole binary64 (+ (* -1 (/ (* c0 (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) h))) (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (* M (sqrt -1)))))) w)) (* M (* c0 (sqrt -1))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/2 (/ (* c0 (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow h 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* M (* w (sqrt -1))))) (* c0 (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) h))) (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (* M (sqrt -1))))))) w)) (* M (* c0 (sqrt -1))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) #s(hole binary64 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/4 (/ (* c0 (* (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow h 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2) (* (pow M 2) (pow (sqrt -1) 2))))))) (* (pow M 3) (* w (pow (sqrt -1) 3))))) (* 1/2 (/ (* c0 (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow h 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* M (sqrt -1))))) w)) (* c0 (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) h))) (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (* M (sqrt -1))))))) w)) (* M (* c0 (sqrt -1))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) h))) (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (* M (sqrt -1))))) w)) (* M (sqrt -1)))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) h))) (+ (* -1/2 (/ (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow h 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2) (* (pow M 2) (pow (sqrt -1) 2))))) (* M (* w (sqrt -1))))) (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (* M (sqrt -1)))))) w)) (* M (sqrt -1)))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) h))) (+ (* -1 (/ (+ (* 1/4 (/ (* (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow h 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* (pow M 3) (* w (pow (sqrt -1) 3))))) (* 1/2 (/ (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow h 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2) (* (pow M 2) (pow (sqrt -1) 2))))) (* M (sqrt -1))))) w)) (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (* M (sqrt -1)))))) w)) (* M (sqrt -1)))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))) #s(hole binary64 (+ (* -1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (* M (* w (sqrt -1))))) (* M (sqrt -1)))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/2 (/ (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow h 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2) (* (pow M 2) (pow (sqrt -1) 2))))) (* M (* w (sqrt -1))))) (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (* M (sqrt -1))))) w)) (* M (sqrt -1)))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))) #s(hole binary64 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/4 (/ (* (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow h 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* (pow M 3) (* w (pow (sqrt -1) 3))))) (* 1/2 (/ (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow h 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) 2) (* (pow M 2) (pow (sqrt -1) 2))))) (* M (sqrt -1))))) w)) (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) h))) (* M (sqrt -1))))) w)) (* M (sqrt -1)))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (/ (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (pow h 2))) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (pow w 2)))) h)))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (/ (+ (* (pow h 2) (+ (* -1/4 (/ (* (pow D 2) (pow M 2)) (pow d 2))) (* -1/16 (/ (* (pow D 6) (* (pow M 4) (* (pow h 2) (pow w 2)))) (* (pow c0 2) (pow d 6)))))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (pow w 2)))) h)))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (/ (+ (* (pow h 2) (+ (* -1/4 (/ (* (pow D 2) (pow M 2)) (pow d 2))) (* (pow h 2) (+ (* -1/16 (/ (* (pow D 6) (* (pow M 4) (pow w 2))) (* (pow c0 2) (pow d 6)))) (* -1/32 (/ (* (pow D 10) (* (pow M 6) (* (pow h 2) (pow w 4)))) (* (pow c0 4) (pow d 10)))))))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (pow w 2)))) h)))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (/ (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* (pow h 2) w))) (* c0 (pow d 2)))) (* 2 (/ (* c0 (pow d 2)) (* (pow D 2) w)))) h)))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (/ (+ (* 2 (/ (* c0 (pow d 2)) (* (pow D 2) w))) (* (pow h 2) (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) w)) (* c0 (pow d 2)))) (* -1/8 (/ (* (pow D 6) (* (pow M 4) (* (pow h 2) (pow w 3)))) (* (pow c0 3) (pow d 6))))))) h)))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (/ (+ (* 2 (/ (* c0 (pow d 2)) (* (pow D 2) w))) (* (pow h 2) (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) w)) (* c0 (pow d 2)))) (* (pow h 2) (+ (* -1/8 (/ (* (pow D 6) (* (pow M 4) (pow w 3))) (* (pow c0 3) (pow d 6)))) (* -1/16 (/ (* (pow D 10) (* (pow M 6) (* (pow h 2) (pow w 5)))) (* (pow c0 5) (pow d 10))))))))) h)))
#s(approx (* c0 (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w)))))) #s(hole binary64 (/ (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* (pow h 2) w))) (* c0 (pow d 2)))) (* 2 (/ (* c0 (pow d 2)) (* (pow D 2) w)))) h)))
#s(approx (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w))))) #s(hole binary64 (/ (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* (pow h 2) w))) (* (pow c0 2) (pow d 2)))) (* 2 (/ (pow d 2) (* (pow D 2) w)))) h)))
#s(approx h #s(hole binary64 h))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (/ (+ (* 1/4 (/ (* (pow D 2) (* h (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))))) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (pow w 2)))) h)))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (/ (+ (* h (+ (* 1/4 (/ (* (pow D 2) (* h (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow w 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2))) (* (pow c0 2) (pow d 4))))))) (pow d 2))) (* 1/4 (/ (* (pow D 2) (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w)))) (pow d 2))))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (pow w 2)))) h)))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (/ (+ (* h (+ (* 1/4 (/ (* (pow D 2) (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w)))) (pow d 2))) (* h (+ (* -1/8 (/ (* (pow D 6) (* h (* (pow w 2) (* (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow w 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2))) (* (pow c0 2) (pow d 4))))))))) (* (pow c0 2) (pow d 6)))) (* 1/4 (/ (* (pow D 2) (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow w 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2))) (* (pow c0 2) (pow d 4)))))) (pow d 2))))))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (pow w 2)))) h)))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) (* w 2)) #s(hole binary64 (/ (+ (* 1/4 (/ (* (pow D 2) (* h (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))))) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (pow w 2)))) h)))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) (* w 2)) #s(hole binary64 (/ (+ (* h (+ (* 1/4 (/ (* (pow D 2) (* h (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow w 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2))) (* (pow c0 2) (pow d 4))))))) (pow d 2))) (* 1/4 (/ (* (pow D 2) (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w)))) (pow d 2))))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (pow w 2)))) h)))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) (* w 2)) #s(hole binary64 (/ (+ (* h (+ (* 1/4 (/ (* (pow D 2) (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w)))) (pow d 2))) (* h (+ (* -1/8 (/ (* (pow D 6) (* h (* (pow w 2) (* (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow w 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2))) (* (pow c0 2) (pow d 4))))))))) (* (pow c0 2) (pow d 6)))) (* 1/4 (/ (* (pow D 2) (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow w 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2))) (* (pow c0 2) (pow d 4)))))) (pow d 2))))))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (pow w 2)))) h)))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) #s(hole binary64 (/ (+ (* 1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w)))))) (pow d 2))) (* 2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) w)))) h)))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) #s(hole binary64 (/ (+ (* 2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) w))) (* h (+ (* 1/2 (/ (* (pow D 2) (* h (* w (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow w 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2))) (* (pow c0 2) (pow d 4)))))))) (pow d 2))) (* 1/2 (/ (* (pow D 2) (* w (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))))) (pow d 2)))))) h)))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) #s(hole binary64 (/ (+ (* 2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) w))) (* h (+ (* 1/2 (/ (* (pow D 2) (* w (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))))) (pow d 2))) (* h (+ (* -1/4 (/ (* (pow D 6) (* h (* (pow w 3) (* (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow w 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2))) (* (pow c0 2) (pow d 4))))))))) (* (pow c0 2) (pow d 6)))) (* 1/2 (/ (* (pow D 2) (* w (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow w 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2))) (* (pow c0 2) (pow d 4))))))) (pow d 2)))))))) h)))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M)))) #s(hole binary64 (/ (+ (* 1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w)))))) (* c0 (pow d 2)))) (* 2 (/ (* c0 (pow d 2)) (* (pow D 2) w)))) h)))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M)))) #s(hole binary64 (/ (+ (* 2 (/ (* c0 (pow d 2)) (* (pow D 2) w))) (* h (+ (* 1/2 (/ (* (pow D 2) (* h (* w (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow w 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2))) (* (pow c0 2) (pow d 4)))))))) (* c0 (pow d 2)))) (* 1/2 (/ (* (pow D 2) (* w (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))))) (* c0 (pow d 2))))))) h)))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M)))) #s(hole binary64 (/ (+ (* 2 (/ (* c0 (pow d 2)) (* (pow D 2) w))) (* h (+ (* 1/2 (/ (* (pow D 2) (* w (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))))) (* c0 (pow d 2)))) (* h (+ (* -1/4 (/ (* (pow D 6) (* h (* (pow w 3) (* (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow w 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2))) (* (pow c0 2) (pow d 4))))))))) (* (pow c0 3) (pow d 6)))) (* 1/2 (/ (* (pow D 2) (* w (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow w 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2))) (* (pow c0 2) (pow d 4))))))) (* c0 (pow d 2))))))))) h)))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))) #s(hole binary64 (/ (+ (* 1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w)))))) (* c0 (pow d 2)))) (/ (* c0 (pow d 2)) (* (pow D 2) w))) h)))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))) #s(hole binary64 (/ (+ (* h (+ (* 1/2 (/ (* (pow D 2) (* h (* w (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow w 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2))) (* (pow c0 2) (pow d 4)))))))) (* c0 (pow d 2)))) (* 1/2 (/ (* (pow D 2) (* w (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))))) (* c0 (pow d 2)))))) (/ (* c0 (pow d 2)) (* (pow D 2) w))) h)))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))) #s(hole binary64 (/ (+ (* h (+ (* 1/2 (/ (* (pow D 2) (* w (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))))) (* c0 (pow d 2)))) (* h (+ (* -1/4 (/ (* (pow D 6) (* h (* (pow w 3) (* (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow w 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2))) (* (pow c0 2) (pow d 4))))))))) (* (pow c0 3) (pow d 6)))) (* 1/2 (/ (* (pow D 2) (* w (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow w 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2))) (* (pow c0 2) (pow d 4))))))) (* c0 (pow d 2)))))))) (/ (* c0 (pow d 2)) (* (pow D 2) w))) h)))
#s(approx (/ (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (* w w)) #s(hole binary64 (/ (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (pow h 2))) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (pow w 2)))) h)))
#s(approx (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) #s(hole binary64 (/ (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (* (pow h 2) (pow w 2)))) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) (pow D 2))) h)))
#s(approx (* h (+ (* -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h h))))) #s(hole binary64 (/ (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (* (pow h 2) (pow w 2)))) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) (pow D 2))) h)))
#s(approx (+ (* -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h h)))) #s(hole binary64 (/ (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (* (pow h 2) (pow w 2)))) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) (pow D 2))) (pow h 2))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (+ (* 1/2 (/ (* M (* c0 (sqrt -1))) w)) (* 1/2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h (pow w 2))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (+ (* 1/4 (/ (* (pow c0 3) (pow d 4)) (* (pow D 4) (* M (* (pow h 2) (* (pow w 3) (sqrt -1))))))) (+ (* 1/2 (/ (* M (* c0 (sqrt -1))) w)) (* 1/2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h (pow w 2)))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (+ (* -1/16 (/ (* (pow c0 5) (pow d 8)) (* (pow D 8) (* (pow M 3) (* (pow h 4) (* (pow w 5) (pow (sqrt -1) 3))))))) (+ (* 1/4 (/ (* (pow c0 3) (pow d 4)) (* (pow D 4) (* M (* (pow h 2) (* (pow w 3) (sqrt -1))))))) (+ (* 1/2 (/ (* M (* c0 (sqrt -1))) w)) (* 1/2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h (pow w 2))))))))))
#s(approx (* c0 (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w)))))) #s(hole binary64 (* h (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) w)) (* c0 (pow d 2)))) (* 2 (/ (* c0 (pow d 2)) (* (pow D 2) (* (pow h 2) w))))))))
#s(approx (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w))))) #s(hole binary64 (* h (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) w)) (* (pow c0 2) (pow d 2)))) (* 2 (/ (pow d 2) (* (pow D 2) (* (pow h 2) w))))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (+ (* 1/2 (/ (* M (* c0 (sqrt -1))) w)) (* 1/2 (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (* M (sqrt -1)))) (/ (* c0 (pow d 2)) (* (pow D 2) w)))) (* h w))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (+ (* 1/4 (/ (* c0 (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* M (* (pow h 2) (* w (sqrt -1)))))) (+ (* 1/2 (/ (* M (* c0 (sqrt -1))) w)) (* 1/2 (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (* M (sqrt -1)))) (/ (* c0 (pow d 2)) (* (pow D 2) w)))) (* h w)))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (+ (* -1/8 (/ (* c0 (* (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2) (* (pow M 2) (pow (sqrt -1) 2))))))) (* (pow M 3) (* (pow h 3) (* w (pow (sqrt -1) 3)))))) (+ (* 1/4 (/ (* c0 (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* M (* (pow h 2) (* w (sqrt -1)))))) (+ (* 1/2 (/ (* M (* c0 (sqrt -1))) w)) (* 1/2 (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (* M (sqrt -1)))) (/ (* c0 (pow d 2)) (* (pow D 2) w)))) (* h w))))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) (* w 2)) #s(hole binary64 (+ (* 1/2 (/ (* M (* c0 (sqrt -1))) w)) (* 1/2 (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (* M (sqrt -1)))) (/ (* c0 (pow d 2)) (* (pow D 2) w)))) (* h w))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) (* w 2)) #s(hole binary64 (+ (* 1/4 (/ (* c0 (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* M (* (pow h 2) (* w (sqrt -1)))))) (+ (* 1/2 (/ (* M (* c0 (sqrt -1))) w)) (* 1/2 (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (* M (sqrt -1)))) (/ (* c0 (pow d 2)) (* (pow D 2) w)))) (* h w)))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) (* w 2)) #s(hole binary64 (+ (* -1/8 (/ (* c0 (* (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2) (* (pow M 2) (pow (sqrt -1) 2))))))) (* (pow M 3) (* (pow h 3) (* w (pow (sqrt -1) 3)))))) (+ (* 1/4 (/ (* c0 (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* M (* (pow h 2) (* w (sqrt -1)))))) (+ (* 1/2 (/ (* M (* c0 (sqrt -1))) w)) (* 1/2 (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (* M (sqrt -1)))) (/ (* c0 (pow d 2)) (* (pow D 2) w)))) (* h w))))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) #s(hole binary64 (+ (* M (* c0 (sqrt -1))) (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (* M (sqrt -1)))) (/ (* c0 (pow d 2)) (* (pow D 2) w)))) h))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) #s(hole binary64 (+ (* 1/2 (/ (* c0 (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* M (* (pow h 2) (sqrt -1))))) (+ (* M (* c0 (sqrt -1))) (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (* M (sqrt -1)))) (/ (* c0 (pow d 2)) (* (pow D 2) w)))) h)))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) #s(hole binary64 (+ (* -1/4 (/ (* c0 (* (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2) (* (pow M 2) (pow (sqrt -1) 2))))))) (* (pow M 3) (* (pow h 3) (pow (sqrt -1) 3))))) (+ (* 1/2 (/ (* c0 (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* M (* (pow h 2) (sqrt -1))))) (+ (* M (* c0 (sqrt -1))) (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (* M (sqrt -1)))) (/ (* c0 (pow d 2)) (* (pow D 2) w)))) h))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M)))) #s(hole binary64 (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (* M (* h (sqrt -1))))) (+ (* M (sqrt -1)) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M)))) #s(hole binary64 (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (* M (* h (sqrt -1))))) (+ (* 1/2 (/ (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2) (* (pow M 2) (pow (sqrt -1) 2))))) (* M (* (pow h 2) (sqrt -1))))) (+ (* M (sqrt -1)) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M)))) #s(hole binary64 (+ (* -1/4 (/ (* (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* (pow M 3) (* (pow h 3) (pow (sqrt -1) 3))))) (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (* M (* h (sqrt -1))))) (+ (* 1/2 (/ (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2) (* (pow M 2) (pow (sqrt -1) 2))))) (* M (* (pow h 2) (sqrt -1))))) (+ (* M (sqrt -1)) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))))))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))) #s(hole binary64 (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (* M (* h (sqrt -1))))) (* M (sqrt -1)))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))) #s(hole binary64 (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (* M (* h (sqrt -1))))) (+ (* 1/2 (/ (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2) (* (pow M 2) (pow (sqrt -1) 2))))) (* M (* (pow h 2) (sqrt -1))))) (* M (sqrt -1))))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))) #s(hole binary64 (+ (* -1/4 (/ (* (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* (pow M 3) (* (pow h 3) (pow (sqrt -1) 3))))) (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (* M (* h (sqrt -1))))) (+ (* 1/2 (/ (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2) (* (pow M 2) (pow (sqrt -1) 2))))) (* M (* (pow h 2) (sqrt -1))))) (* M (sqrt -1)))))))
#s(approx (/ (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (* w w)) #s(hole binary64 (* h (+ (* -1/4 (/ (* (pow D 2) (pow M 2)) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* (pow h 2) (pow w 2))))))))
#s(approx (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) #s(hole binary64 (* h (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (pow w 2))) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (pow h 2)))))))
#s(approx (* h (+ (* -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h h))))) #s(hole binary64 (* h (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (pow w 2))) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (pow h 2)))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (pow w 2)))) (* -1/4 (/ (* (pow c0 3) (pow d 4)) (* (pow D 4) (* M (* h (* (pow w 3) (sqrt -1)))))))) h)) (* 1/2 (/ (* M (* c0 (sqrt -1))) w)))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (+ (* -1 (/ (+ (* -1 (/ (+ (* -1/16 (/ (* (pow c0 5) (pow d 8)) (* (pow D 8) (* (pow M 3) (* (pow h 2) (* (pow w 5) (pow (sqrt -1) 3))))))) (* 1/4 (/ (* (pow c0 3) (pow d 4)) (* (pow D 4) (* M (* (pow w 3) (sqrt -1))))))) h)) (* -1/2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (pow w 2))))) h)) (* 1/2 (/ (* M (* c0 (sqrt -1))) w)))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) w))) (* -1/2 (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* M (* h (* (pow w 2) (sqrt -1)))))))) h)) (* M (sqrt -1)))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) w))) (* -1 (/ (+ (* -1/8 (/ (* (pow c0 4) (pow d 8)) (* (pow D 8) (* (pow M 3) (* (pow h 2) (* (pow w 4) (pow (sqrt -1) 3))))))) (* 1/2 (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* M (* (pow w 2) (sqrt -1))))))) h))) h)) (* M (sqrt -1)))))
#s(approx (* c0 (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w)))))) #s(hole binary64 (* -1 (* h (+ (* -2 (/ (* c0 (pow d 2)) (* (pow D 2) (* (pow h 2) w)))) (* 1/2 (/ (* (pow D 2) (* (pow M 2) w)) (* c0 (pow d 2)))))))))
#s(approx (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w))))) #s(hole binary64 (* -1 (* h (+ (* -2 (/ (pow d 2) (* (pow D 2) (* (pow h 2) w)))) (* 1/2 (/ (* (pow D 2) (* (pow M 2) w)) (* (pow c0 2) (pow d 2)))))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (+ (* -1/2 (/ (* c0 (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) w))) (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (* M (sqrt -1)))))) (* h w))) (* 1/2 (/ (* M (* c0 (sqrt -1))) w)))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (+ (* -1 (/ (+ (* -1/4 (/ (* c0 (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* M (* h (* w (sqrt -1)))))) (* 1/2 (/ (* c0 (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) w))) (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (* M (sqrt -1)))))) w))) h)) (* 1/2 (/ (* M (* c0 (sqrt -1))) w)))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/8 (/ (* c0 (* (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2) (* (pow M 2) (pow (sqrt -1) 2))))))) (* (pow M 3) (* h (* w (pow (sqrt -1) 3)))))) (* 1/4 (/ (* c0 (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* M (* w (sqrt -1)))))) h)) (* 1/2 (/ (* c0 (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) w))) (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (* M (sqrt -1)))))) w))) h)) (* 1/2 (/ (* M (* c0 (sqrt -1))) w)))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) (* w 2)) #s(hole binary64 (+ (* -1/2 (/ (* c0 (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) w))) (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (* M (sqrt -1)))))) (* h w))) (* 1/2 (/ (* M (* c0 (sqrt -1))) w)))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) (* w 2)) #s(hole binary64 (+ (* -1 (/ (+ (* -1/4 (/ (* c0 (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* M (* h (* w (sqrt -1)))))) (* 1/2 (/ (* c0 (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) w))) (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (* M (sqrt -1)))))) w))) h)) (* 1/2 (/ (* M (* c0 (sqrt -1))) w)))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) (* w 2)) #s(hole binary64 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/8 (/ (* c0 (* (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2) (* (pow M 2) (pow (sqrt -1) 2))))))) (* (pow M 3) (* h (* w (pow (sqrt -1) 3)))))) (* 1/4 (/ (* c0 (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* M (* w (sqrt -1)))))) h)) (* 1/2 (/ (* c0 (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) w))) (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (* M (sqrt -1)))))) w))) h)) (* 1/2 (/ (* M (* c0 (sqrt -1))) w)))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) #s(hole binary64 (+ (* -1 (/ (* c0 (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) w))) (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (* M (sqrt -1)))))) h)) (* M (* c0 (sqrt -1))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/2 (/ (* c0 (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* M (* h (sqrt -1))))) (* c0 (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) w))) (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (* M (sqrt -1))))))) h)) (* M (* c0 (sqrt -1))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) #s(hole binary64 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/4 (/ (* c0 (* (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2) (* (pow M 2) (pow (sqrt -1) 2))))))) (* (pow M 3) (* h (pow (sqrt -1) 3))))) (* 1/2 (/ (* c0 (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* M (sqrt -1))))) h)) (* c0 (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) w))) (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (* M (sqrt -1))))))) h)) (* M (* c0 (sqrt -1))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) w))) (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (* M (sqrt -1))))) h)) (* M (sqrt -1)))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) w))) (+ (* -1/2 (/ (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2) (* (pow M 2) (pow (sqrt -1) 2))))) (* M (* h (sqrt -1))))) (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (* M (sqrt -1)))))) h)) (* M (sqrt -1)))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) w))) (+ (* -1 (/ (+ (* 1/4 (/ (* (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* (pow M 3) (* h (pow (sqrt -1) 3))))) (* 1/2 (/ (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2) (* (pow M 2) (pow (sqrt -1) 2))))) (* M (sqrt -1))))) h)) (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (* M (sqrt -1)))))) h)) (* M (sqrt -1)))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))) #s(hole binary64 (+ (* -1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (* M (* h (sqrt -1))))) (* M (sqrt -1)))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/2 (/ (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2) (* (pow M 2) (pow (sqrt -1) 2))))) (* M (* h (sqrt -1))))) (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (* M (sqrt -1))))) h)) (* M (sqrt -1)))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))) #s(hole binary64 (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/4 (/ (* (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* (pow M 3) (* h (pow (sqrt -1) 3))))) (* 1/2 (/ (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) 2) (* (pow M 2) (pow (sqrt -1) 2))))) (* M (sqrt -1))))) h)) (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (/ (* M (* c0 (pow d 2))) (* (pow D 2) w))) (* M (sqrt -1))))) h)) (* M (sqrt -1)))))
#s(approx (/ (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (* w w)) #s(hole binary64 (* -1 (* h (+ (* -1 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* (pow h 2) (pow w 2))))) (* 1/4 (/ (* (pow D 2) (pow M 2)) (pow d 2))))))))
#s(approx (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) #s(hole binary64 (* -1 (* h (+ (* -1 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (pow h 2)))) (* 1/4 (/ (* (pow D 2) (* (pow M 2) (pow w 2))) (pow d 2))))))))
#s(approx (* h (+ (* -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h h))))) #s(hole binary64 (* -1 (* h (+ (* -1 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (pow h 2)))) (* 1/4 (/ (* (pow D 2) (* (pow M 2) (pow w 2))) (pow d 2))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (/ (+ (* -1/4 (/ (* (pow D 4) (* (pow M 2) h)) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) (* h (pow w 2)))) (pow D 2))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (/ (+ (* (pow D 4) (+ (* -1/4 (/ (* (pow M 2) h) (pow d 2))) (* -1/16 (/ (* (pow D 4) (* (pow M 4) (* (pow h 3) (pow w 2)))) (* (pow c0 2) (pow d 6)))))) (/ (* (pow c0 2) (pow d 2)) (* h (pow w 2)))) (pow D 2))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (/ (+ (* (pow D 4) (+ (* -1/4 (/ (* (pow M 2) h) (pow d 2))) (* (pow D 4) (+ (* -1/16 (/ (* (pow M 4) (* (pow h 3) (pow w 2))) (* (pow c0 2) (pow d 6)))) (* -1/32 (/ (* (pow D 4) (* (pow M 6) (* (pow h 5) (pow w 4)))) (* (pow c0 4) (pow d 10)))))))) (/ (* (pow c0 2) (pow d 2)) (* h (pow w 2)))) (pow D 2))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (/ (+ (* -1/2 (/ (* (pow D 4) (* (pow M 2) (* h w))) (* c0 (pow d 2)))) (* 2 (/ (* c0 (pow d 2)) (* h w)))) (pow D 2))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (/ (+ (* 2 (/ (* c0 (pow d 2)) (* h w))) (* (pow D 4) (+ (* -1/2 (/ (* (pow M 2) (* h w)) (* c0 (pow d 2)))) (* -1/8 (/ (* (pow D 4) (* (pow M 4) (* (pow h 3) (pow w 3)))) (* (pow c0 3) (pow d 6))))))) (pow D 2))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (/ (+ (* 2 (/ (* c0 (pow d 2)) (* h w))) (* (pow D 4) (+ (* -1/2 (/ (* (pow M 2) (* h w)) (* c0 (pow d 2)))) (* (pow D 4) (+ (* -1/8 (/ (* (pow M 4) (* (pow h 3) (pow w 3))) (* (pow c0 3) (pow d 6)))) (* -1/16 (/ (* (pow D 4) (* (pow M 6) (* (pow h 5) (pow w 5)))) (* (pow c0 5) (pow d 10))))))))) (pow D 2))))
#s(approx (* c0 (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w)))))) #s(hole binary64 (/ (+ (* -1/2 (/ (* (pow D 4) (* (pow M 2) (* h w))) (* c0 (pow d 2)))) (* 2 (/ (* c0 (pow d 2)) (* h w)))) (pow D 2))))
#s(approx (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w))))) #s(hole binary64 (/ (+ (* -1/2 (/ (* (pow D 4) (* (pow M 2) (* h w))) (* (pow c0 2) (pow d 2)))) (* 2 (/ (pow d 2) (* h w)))) (pow D 2))))
#s(approx (/ d (* D D)) #s(hole binary64 (/ d (pow D 2))))
#s(approx (* D D) #s(hole binary64 (pow D 2)))
#s(approx D #s(hole binary64 D))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (/ (+ (* 1/4 (/ (* (pow D 2) (* h (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))))) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) (* h (pow w 2)))) (pow D 2))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (/ (+ (* (pow D 2) (+ (* 1/4 (/ (* h (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w)))) (pow d 2))) (* 1/4 (/ (* (pow D 2) (* h (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) 2))) (* (pow c0 2) (pow d 4))))))) (pow d 2))))) (/ (* (pow c0 2) (pow d 2)) (* h (pow w 2)))) (pow D 2))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (/ (+ (* (pow D 2) (+ (* 1/4 (/ (* h (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w)))) (pow d 2))) (* (pow D 2) (+ (* -1/8 (/ (* (pow D 2) (* (pow h 3) (* (pow w 2) (* (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) 2))) (* (pow c0 2) (pow d 4))))))))) (* (pow c0 2) (pow d 6)))) (* 1/4 (/ (* h (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) 2))) (* (pow c0 2) (pow d 4)))))) (pow d 2))))))) (/ (* (pow c0 2) (pow d 2)) (* h (pow w 2)))) (pow D 2))))
#s(approx (/ (* d d) (* D D)) #s(hole binary64 (/ (pow d 2) (pow D 2))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) (* w 2)) #s(hole binary64 (/ (+ (* 1/4 (/ (* (pow D 2) (* h (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))))) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) (* h (pow w 2)))) (pow D 2))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) (* w 2)) #s(hole binary64 (/ (+ (* (pow D 2) (+ (* 1/4 (/ (* h (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w)))) (pow d 2))) (* 1/4 (/ (* (pow D 2) (* h (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) 2))) (* (pow c0 2) (pow d 4))))))) (pow d 2))))) (/ (* (pow c0 2) (pow d 2)) (* h (pow w 2)))) (pow D 2))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) (* w 2)) #s(hole binary64 (/ (+ (* (pow D 2) (+ (* 1/4 (/ (* h (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w)))) (pow d 2))) (* (pow D 2) (+ (* -1/8 (/ (* (pow D 2) (* (pow h 3) (* (pow w 2) (* (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) 2))) (* (pow c0 2) (pow d 4))))))))) (* (pow c0 2) (pow d 6)))) (* 1/4 (/ (* h (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) 2))) (* (pow c0 2) (pow d 4)))))) (pow d 2))))))) (/ (* (pow c0 2) (pow d 2)) (* h (pow w 2)))) (pow D 2))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) #s(hole binary64 (/ (+ (* 1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w)))))) (pow d 2))) (* 2 (/ (* (pow c0 2) (pow d 2)) (* h w)))) (pow D 2))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) #s(hole binary64 (/ (+ (* 2 (/ (* (pow c0 2) (pow d 2)) (* h w))) (* (pow D 2) (+ (* 1/2 (/ (* h (* w (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))))) (pow d 2))) (* 1/2 (/ (* (pow D 2) (* h (* w (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) 2))) (* (pow c0 2) (pow d 4)))))))) (pow d 2)))))) (pow D 2))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) #s(hole binary64 (/ (+ (* 2 (/ (* (pow c0 2) (pow d 2)) (* h w))) (* (pow D 2) (+ (* 1/2 (/ (* h (* w (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))))) (pow d 2))) (* (pow D 2) (+ (* -1/4 (/ (* (pow D 2) (* (pow h 3) (* (pow w 3) (* (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) 2))) (* (pow c0 2) (pow d 4))))))))) (* (pow c0 2) (pow d 6)))) (* 1/2 (/ (* h (* w (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) 2))) (* (pow c0 2) (pow d 4))))))) (pow d 2)))))))) (pow D 2))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M)))) #s(hole binary64 (/ (+ (* 1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w)))))) (* c0 (pow d 2)))) (* 2 (/ (* c0 (pow d 2)) (* h w)))) (pow D 2))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M)))) #s(hole binary64 (/ (+ (* 2 (/ (* c0 (pow d 2)) (* h w))) (* (pow D 2) (+ (* 1/2 (/ (* h (* w (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))))) (* c0 (pow d 2)))) (* 1/2 (/ (* (pow D 2) (* h (* w (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) 2))) (* (pow c0 2) (pow d 4)))))))) (* c0 (pow d 2))))))) (pow D 2))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M)))) #s(hole binary64 (/ (+ (* 2 (/ (* c0 (pow d 2)) (* h w))) (* (pow D 2) (+ (* 1/2 (/ (* h (* w (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))))) (* c0 (pow d 2)))) (* (pow D 2) (+ (* -1/4 (/ (* (pow D 2) (* (pow h 3) (* (pow w 3) (* (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) 2))) (* (pow c0 2) (pow d 4))))))))) (* (pow c0 3) (pow d 6)))) (* 1/2 (/ (* h (* w (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) 2))) (* (pow c0 2) (pow d 4))))))) (* c0 (pow d 2))))))))) (pow D 2))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))) #s(hole binary64 (/ (+ (* 1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w)))))) (* c0 (pow d 2)))) (/ (* c0 (pow d 2)) (* h w))) (pow D 2))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))) #s(hole binary64 (/ (+ (* (pow D 2) (+ (* 1/2 (/ (* h (* w (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))))) (* c0 (pow d 2)))) (* 1/2 (/ (* (pow D 2) (* h (* w (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) 2))) (* (pow c0 2) (pow d 4)))))))) (* c0 (pow d 2)))))) (/ (* c0 (pow d 2)) (* h w))) (pow D 2))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))) #s(hole binary64 (/ (+ (* (pow D 2) (+ (* 1/2 (/ (* h (* w (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))))) (* c0 (pow d 2)))) (* (pow D 2) (+ (* -1/4 (/ (* (pow D 2) (* (pow h 3) (* (pow w 3) (* (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) 2))) (* (pow c0 2) (pow d 4))))))))) (* (pow c0 3) (pow d 6)))) (* 1/2 (/ (* h (* w (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) 2))) (* (pow c0 2) (pow d 4))))))) (* c0 (pow d 2)))))))) (/ (* c0 (pow d 2)) (* h w))) (pow D 2))))
#s(approx (* (/ d D) (/ d D)) #s(hole binary64 (/ (pow d 2) (pow D 2))))
#s(approx (/ d D) #s(hole binary64 (/ d D)))
#s(approx (/ (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (* w w)) #s(hole binary64 (/ (+ (* -1/4 (/ (* (pow D 4) (* (pow M 2) h)) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) (* h (pow w 2)))) (pow D 2))))
#s(approx (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) #s(hole binary64 (/ (+ (* -1/4 (/ (* (pow D 4) (* (pow M 2) (* h (pow w 2)))) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) h)) (pow D 2))))
#s(approx (* h (+ (* -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h h))))) #s(hole binary64 (/ (+ (* -1/4 (/ (* (pow D 4) (* (pow M 2) (* h (pow w 2)))) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) h)) (pow D 2))))
#s(approx (+ (* -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h h)))) #s(hole binary64 (/ (+ (* -1/4 (/ (* (pow D 4) (* (pow M 2) (pow w 2))) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) (pow h 2))) (pow D 2))))
#s(approx (* c0 (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w)))))) #s(hole binary64 (* (pow D 2) (+ (* -1/2 (/ (* (pow M 2) (* h w)) (* c0 (pow d 2)))) (* 2 (/ (* c0 (pow d 2)) (* (pow D 4) (* h w))))))))
#s(approx (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w))))) #s(hole binary64 (* (pow D 2) (+ (* -1/2 (/ (* (pow M 2) (* h w)) (* (pow c0 2) (pow d 2)))) (* 2 (/ (pow d 2) (* (pow D 4) (* h w))))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (+ (* 1/2 (/ (* M (* c0 (sqrt -1))) w)) (* 1/2 (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) (* M (sqrt -1)))) (/ (* c0 (pow d 2)) (* h w)))) (* (pow D 2) w))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (+ (* 1/4 (/ (* c0 (- (/ (* (pow c0 2) (pow d 4)) (* (pow h 2) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* (pow D 4) (* M (* w (sqrt -1)))))) (+ (* 1/2 (/ (* M (* c0 (sqrt -1))) w)) (* 1/2 (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) (* M (sqrt -1)))) (/ (* c0 (pow d 2)) (* h w)))) (* (pow D 2) w)))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (+ (* -1/8 (/ (* c0 (* (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) (- (/ (* (pow c0 2) (pow d 4)) (* (pow h 2) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) 2) (* (pow M 2) (pow (sqrt -1) 2))))))) (* (pow D 6) (* (pow M 3) (* w (pow (sqrt -1) 3)))))) (+ (* 1/4 (/ (* c0 (- (/ (* (pow c0 2) (pow d 4)) (* (pow h 2) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* (pow D 4) (* M (* w (sqrt -1)))))) (+ (* 1/2 (/ (* M (* c0 (sqrt -1))) w)) (* 1/2 (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) (* M (sqrt -1)))) (/ (* c0 (pow d 2)) (* h w)))) (* (pow D 2) w))))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) (* w 2)) #s(hole binary64 (+ (* 1/2 (/ (* M (* c0 (sqrt -1))) w)) (* 1/2 (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) (* M (sqrt -1)))) (/ (* c0 (pow d 2)) (* h w)))) (* (pow D 2) w))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) (* w 2)) #s(hole binary64 (+ (* 1/4 (/ (* c0 (- (/ (* (pow c0 2) (pow d 4)) (* (pow h 2) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* (pow D 4) (* M (* w (sqrt -1)))))) (+ (* 1/2 (/ (* M (* c0 (sqrt -1))) w)) (* 1/2 (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) (* M (sqrt -1)))) (/ (* c0 (pow d 2)) (* h w)))) (* (pow D 2) w)))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) (* w 2)) #s(hole binary64 (+ (* -1/8 (/ (* c0 (* (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) (- (/ (* (pow c0 2) (pow d 4)) (* (pow h 2) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) 2) (* (pow M 2) (pow (sqrt -1) 2))))))) (* (pow D 6) (* (pow M 3) (* w (pow (sqrt -1) 3)))))) (+ (* 1/4 (/ (* c0 (- (/ (* (pow c0 2) (pow d 4)) (* (pow h 2) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* (pow D 4) (* M (* w (sqrt -1)))))) (+ (* 1/2 (/ (* M (* c0 (sqrt -1))) w)) (* 1/2 (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) (* M (sqrt -1)))) (/ (* c0 (pow d 2)) (* h w)))) (* (pow D 2) w))))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) #s(hole binary64 (+ (* M (* c0 (sqrt -1))) (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) (* M (sqrt -1)))) (/ (* c0 (pow d 2)) (* h w)))) (pow D 2)))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) #s(hole binary64 (+ (* 1/2 (/ (* c0 (- (/ (* (pow c0 2) (pow d 4)) (* (pow h 2) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* (pow D 4) (* M (sqrt -1))))) (+ (* M (* c0 (sqrt -1))) (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) (* M (sqrt -1)))) (/ (* c0 (pow d 2)) (* h w)))) (pow D 2))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) #s(hole binary64 (+ (* -1/4 (/ (* c0 (* (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) (- (/ (* (pow c0 2) (pow d 4)) (* (pow h 2) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) 2) (* (pow M 2) (pow (sqrt -1) 2))))))) (* (pow D 6) (* (pow M 3) (pow (sqrt -1) 3))))) (+ (* 1/2 (/ (* c0 (- (/ (* (pow c0 2) (pow d 4)) (* (pow h 2) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* (pow D 4) (* M (sqrt -1))))) (+ (* M (* c0 (sqrt -1))) (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) (* M (sqrt -1)))) (/ (* c0 (pow d 2)) (* h w)))) (pow D 2)))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M)))) #s(hole binary64 (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) (* (pow D 2) (* M (sqrt -1))))) (+ (* M (sqrt -1)) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M)))) #s(hole binary64 (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) (* (pow D 2) (* M (sqrt -1))))) (+ (* 1/2 (/ (- (/ (* (pow c0 2) (pow d 4)) (* (pow h 2) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) 2) (* (pow M 2) (pow (sqrt -1) 2))))) (* (pow D 4) (* M (sqrt -1))))) (+ (* M (sqrt -1)) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M)))) #s(hole binary64 (+ (* -1/4 (/ (* (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) (- (/ (* (pow c0 2) (pow d 4)) (* (pow h 2) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* (pow D 6) (* (pow M 3) (pow (sqrt -1) 3))))) (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) (* (pow D 2) (* M (sqrt -1))))) (+ (* 1/2 (/ (- (/ (* (pow c0 2) (pow d 4)) (* (pow h 2) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) 2) (* (pow M 2) (pow (sqrt -1) 2))))) (* (pow D 4) (* M (sqrt -1))))) (+ (* M (sqrt -1)) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))))))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))) #s(hole binary64 (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) (* (pow D 2) (* M (sqrt -1))))) (* M (sqrt -1)))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))) #s(hole binary64 (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) (* (pow D 2) (* M (sqrt -1))))) (+ (* 1/2 (/ (- (/ (* (pow c0 2) (pow d 4)) (* (pow h 2) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) 2) (* (pow M 2) (pow (sqrt -1) 2))))) (* (pow D 4) (* M (sqrt -1))))) (* M (sqrt -1))))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))) #s(hole binary64 (+ (* -1/4 (/ (* (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) (- (/ (* (pow c0 2) (pow d 4)) (* (pow h 2) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* (pow D 6) (* (pow M 3) (pow (sqrt -1) 3))))) (+ (* 1/2 (/ (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) (* (pow D 2) (* M (sqrt -1))))) (+ (* 1/2 (/ (- (/ (* (pow c0 2) (pow d 4)) (* (pow h 2) (pow w 2))) (* 1/4 (/ (pow (+ (* -1 (/ (* M (* c0 (pow d 2))) (* h w))) (/ (* M (* c0 (pow d 2))) (* h w))) 2) (* (pow M 2) (pow (sqrt -1) 2))))) (* (pow D 4) (* M (sqrt -1))))) (* M (sqrt -1)))))))
#s(approx (/ (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (* w w)) #s(hole binary64 (* (pow D 2) (+ (* -1/4 (/ (* (pow M 2) h) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 4) (* h (pow w 2))))))))
#s(approx (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) #s(hole binary64 (* (pow D 2) (+ (* -1/4 (/ (* (pow M 2) (* h (pow w 2))) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 4) h))))))
#s(approx (* h (+ (* -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h h))))) #s(hole binary64 (* (pow D 2) (+ (* -1/4 (/ (* (pow M 2) (* h (pow w 2))) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 4) h))))))
#s(approx (+ (* -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h h)))) #s(hole binary64 (* (pow D 2) (+ (* -1/4 (/ (* (pow M 2) (pow w 2)) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 4) (pow h 2)))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (+ (* 1/2 (/ (* M (* c0 (sqrt -1))) w)) (* (pow d 2) (+ (* 1/4 (/ (* (pow c0 3) (pow d 2)) (* (pow D 4) (* M (* (pow h 2) (* (pow w 3) (sqrt -1))))))) (* 1/2 (/ (pow c0 2) (* (pow D 2) (* h (pow w 2))))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (+ (* 1/2 (/ (* M (* c0 (sqrt -1))) w)) (* (pow d 2) (+ (* 1/2 (/ (pow c0 2) (* (pow D 2) (* h (pow w 2))))) (* (pow d 2) (+ (* -1/16 (/ (* (pow c0 5) (pow d 4)) (* (pow D 8) (* (pow M 3) (* (pow h 4) (* (pow w 5) (pow (sqrt -1) 3))))))) (* 1/4 (/ (pow c0 3) (* (pow D 4) (* M (* (pow h 2) (* (pow w 3) (sqrt -1))))))))))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (+ (* M (sqrt -1)) (* (pow d 2) (+ (* 1/2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 4) (* M (* (pow h 2) (* (pow w 2) (sqrt -1))))))) (/ c0 (* (pow D 2) (* h w))))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (+ (* M (sqrt -1)) (* (pow d 2) (+ (* (pow d 2) (+ (* -1/8 (/ (* (pow c0 4) (pow d 4)) (* (pow D 8) (* (pow M 3) (* (pow h 4) (* (pow w 4) (pow (sqrt -1) 3))))))) (* 1/2 (/ (pow c0 2) (* (pow D 4) (* M (* (pow h 2) (* (pow w 2) (sqrt -1))))))))) (/ c0 (* (pow D 2) (* h w))))))))
#s(approx (* c0 (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w)))))) #s(hole binary64 (/ (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h w))) c0)) (* 2 (/ (* c0 (pow d 4)) (* (pow D 2) (* h w))))) (pow d 2))))
#s(approx (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w))))) #s(hole binary64 (/ (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h w))) (pow c0 2))) (* 2 (/ (pow d 4) (* (pow D 2) (* h w))))) (pow d 2))))
#s(approx d #s(hole binary64 d))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (+ (* 1/2 (/ (* M (* c0 (sqrt -1))) w)) (* 1/2 (/ (* c0 (* (pow d 2) (+ (* 1/2 (/ (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) (* M (sqrt -1)))) (/ c0 (* (pow D 2) (* h w)))))) w)))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (+ (* 1/2 (/ (* M (* c0 (sqrt -1))) w)) (* (pow d 2) (+ (* 1/4 (/ (* c0 (* (pow d 2) (- (/ (pow c0 2) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) 2) (* (pow M 2) (pow (sqrt -1) 2))))))) (* M (* w (sqrt -1))))) (* 1/2 (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) (* M (sqrt -1)))) (/ c0 (* (pow D 2) (* h w))))) w)))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (+ (* 1/2 (/ (* M (* c0 (sqrt -1))) w)) (* (pow d 2) (+ (* 1/2 (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) (* M (sqrt -1)))) (/ c0 (* (pow D 2) (* h w))))) w)) (* (pow d 2) (+ (* -1/8 (/ (* c0 (* (pow d 2) (* (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) (- (/ (pow c0 2) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))))) (* (pow M 3) (* w (pow (sqrt -1) 3))))) (* 1/4 (/ (* c0 (- (/ (pow c0 2) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* M (* w (sqrt -1))))))))))))
#s(approx (* d d) #s(hole binary64 (pow d 2)))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) (* w 2)) #s(hole binary64 (+ (* 1/2 (/ (* M (* c0 (sqrt -1))) w)) (* 1/2 (/ (* c0 (* (pow d 2) (+ (* 1/2 (/ (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) (* M (sqrt -1)))) (/ c0 (* (pow D 2) (* h w)))))) w)))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) (* w 2)) #s(hole binary64 (+ (* 1/2 (/ (* M (* c0 (sqrt -1))) w)) (* (pow d 2) (+ (* 1/4 (/ (* c0 (* (pow d 2) (- (/ (pow c0 2) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) 2) (* (pow M 2) (pow (sqrt -1) 2))))))) (* M (* w (sqrt -1))))) (* 1/2 (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) (* M (sqrt -1)))) (/ c0 (* (pow D 2) (* h w))))) w)))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) (* w 2)) #s(hole binary64 (+ (* 1/2 (/ (* M (* c0 (sqrt -1))) w)) (* (pow d 2) (+ (* 1/2 (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) (* M (sqrt -1)))) (/ c0 (* (pow D 2) (* h w))))) w)) (* (pow d 2) (+ (* -1/8 (/ (* c0 (* (pow d 2) (* (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) (- (/ (pow c0 2) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))))) (* (pow M 3) (* w (pow (sqrt -1) 3))))) (* 1/4 (/ (* c0 (- (/ (pow c0 2) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* M (* w (sqrt -1))))))))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) #s(hole binary64 (+ (* M (* c0 (sqrt -1))) (* c0 (* (pow d 2) (+ (* 1/2 (/ (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) (* M (sqrt -1)))) (/ c0 (* (pow D 2) (* h w)))))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) #s(hole binary64 (+ (* M (* c0 (sqrt -1))) (* (pow d 2) (+ (* 1/2 (/ (* c0 (* (pow d 2) (- (/ (pow c0 2) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) 2) (* (pow M 2) (pow (sqrt -1) 2))))))) (* M (sqrt -1)))) (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) (* M (sqrt -1)))) (/ c0 (* (pow D 2) (* h w))))))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) #s(hole binary64 (+ (* M (* c0 (sqrt -1))) (* (pow d 2) (+ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) (* M (sqrt -1)))) (/ c0 (* (pow D 2) (* h w))))) (* (pow d 2) (+ (* -1/4 (/ (* c0 (* (pow d 2) (* (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) (- (/ (pow c0 2) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))))) (* (pow M 3) (pow (sqrt -1) 3)))) (* 1/2 (/ (* c0 (- (/ (pow c0 2) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* M (sqrt -1)))))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M)))) #s(hole binary64 (+ (* M (sqrt -1)) (* (pow d 2) (+ (* 1/2 (/ (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) (* M (sqrt -1)))) (/ c0 (* (pow D 2) (* h w))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M)))) #s(hole binary64 (+ (* M (sqrt -1)) (* (pow d 2) (+ (* 1/2 (/ (* (pow d 2) (- (/ (pow c0 2) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* M (sqrt -1)))) (+ (* 1/2 (/ (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) (* M (sqrt -1)))) (/ c0 (* (pow D 2) (* h w)))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M)))) #s(hole binary64 (+ (* M (sqrt -1)) (* (pow d 2) (+ (* 1/2 (/ (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) (* M (sqrt -1)))) (+ (* (pow d 2) (+ (* -1/4 (/ (* (pow d 2) (* (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) (- (/ (pow c0 2) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) 2) (* (pow M 2) (pow (sqrt -1) 2))))))) (* (pow M 3) (pow (sqrt -1) 3)))) (* 1/2 (/ (- (/ (pow c0 2) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) 2) (* (pow M 2) (pow (sqrt -1) 2))))) (* M (sqrt -1)))))) (/ c0 (* (pow D 2) (* h w)))))))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))) #s(hole binary64 (+ (* 1/2 (/ (* (pow d 2) (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w))))) (* M (sqrt -1)))) (* M (sqrt -1)))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))) #s(hole binary64 (+ (* M (sqrt -1)) (* (pow d 2) (+ (* 1/2 (/ (* (pow d 2) (- (/ (pow c0 2) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) 2) (* (pow M 2) (pow (sqrt -1) 2)))))) (* M (sqrt -1)))) (* 1/2 (/ (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) (* M (sqrt -1)))))))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))) #s(hole binary64 (+ (* M (sqrt -1)) (* (pow d 2) (+ (* 1/2 (/ (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) (* M (sqrt -1)))) (* (pow d 2) (+ (* -1/4 (/ (* (pow d 2) (* (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) (- (/ (pow c0 2) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) 2) (* (pow M 2) (pow (sqrt -1) 2))))))) (* (pow M 3) (pow (sqrt -1) 3)))) (* 1/2 (/ (- (/ (pow c0 2) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) 2) (* (pow M 2) (pow (sqrt -1) 2))))) (* M (sqrt -1)))))))))))
#s(approx (/ (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (* w w)) #s(hole binary64 (/ (+ (* -1/4 (* (pow D 2) (* (pow M 2) h))) (/ (* (pow c0 2) (pow d 4)) (* (pow D 2) (* h (pow w 2))))) (pow d 2))))
#s(approx (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) #s(hole binary64 (/ (+ (* -1/4 (* (pow D 2) (* (pow M 2) (* h (pow w 2))))) (/ (* (pow c0 2) (pow d 4)) (* (pow D 2) h))) (pow d 2))))
#s(approx (* h (+ (* -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h h))))) #s(hole binary64 (/ (+ (* -1/4 (* (pow D 2) (* (pow M 2) (* h (pow w 2))))) (/ (* (pow c0 2) (pow d 4)) (* (pow D 2) h))) (pow d 2))))
#s(approx (+ (* -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h h)))) #s(hole binary64 (/ (+ (* -1/4 (* (pow D 2) (* (pow M 2) (pow w 2)))) (/ (* (pow c0 2) (pow d 4)) (* (pow D 2) (pow h 2)))) (pow d 2))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* (pow d 2) (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 4))) (/ (pow c0 2) (* (pow D 2) (* h (pow w 2))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* (pow d 2) (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 4))) (+ (* -1/16 (/ (* (pow D 6) (* (pow M 4) (* (pow h 3) (pow w 2)))) (* (pow c0 2) (pow d 8)))) (/ (pow c0 2) (* (pow D 2) (* h (pow w 2)))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* (pow d 2) (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 4))) (+ (* -1/16 (/ (* (pow D 6) (* (pow M 4) (* (pow h 3) (pow w 2)))) (* (pow c0 2) (pow d 8)))) (+ (* -1/32 (/ (* (pow D 10) (* (pow M 6) (* (pow h 5) (pow w 4)))) (* (pow c0 4) (pow d 12)))) (/ (pow c0 2) (* (pow D 2) (* h (pow w 2))))))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (* (pow d 2) (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h w))) (* c0 (pow d 4)))) (* 2 (/ c0 (* (pow D 2) (* h w))))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (* (pow d 2) (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h w))) (* c0 (pow d 4)))) (+ (* -1/8 (/ (* (pow D 6) (* (pow M 4) (* (pow h 3) (pow w 3)))) (* (pow c0 3) (pow d 8)))) (* 2 (/ c0 (* (pow D 2) (* h w)))))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (* (pow d 2) (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h w))) (* c0 (pow d 4)))) (+ (* -1/8 (/ (* (pow D 6) (* (pow M 4) (* (pow h 3) (pow w 3)))) (* (pow c0 3) (pow d 8)))) (+ (* -1/16 (/ (* (pow D 10) (* (pow M 6) (* (pow h 5) (pow w 5)))) (* (pow c0 5) (pow d 12)))) (* 2 (/ c0 (* (pow D 2) (* h w))))))))))
#s(approx (* c0 (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w)))))) #s(hole binary64 (* (pow d 2) (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h w))) (* c0 (pow d 4)))) (* 2 (/ c0 (* (pow D 2) (* h w))))))))
#s(approx (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w))))) #s(hole binary64 (* (pow d 2) (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h w))) (* (pow c0 2) (pow d 4)))) (* 2 (/ 1 (* (pow D 2) (* h w))))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (* (pow d 2) (+ (* 1/4 (/ (* (pow D 2) (* h (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))))) (pow d 2))) (/ (pow c0 2) (* (pow D 2) (* h (pow w 2))))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (* (pow d 2) (+ (* 1/4 (/ (* (pow D 2) (* h (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))))) (pow d 2))) (+ (* 1/4 (/ (* (pow D 2) (* h (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) 2)))) (pow c0 2)))))) (pow d 4))) (/ (pow c0 2) (* (pow D 2) (* h (pow w 2)))))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (* (pow d 2) (+ (* -1/8 (/ (* (pow D 6) (* (pow h 3) (* (pow w 2) (* (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) 2)))) (pow c0 2)))))))) (* (pow c0 2) (pow d 6)))) (+ (* 1/4 (/ (* (pow D 2) (* h (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))))) (pow d 2))) (+ (* 1/4 (/ (* (pow D 2) (* h (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) 2)))) (pow c0 2)))))) (pow d 4))) (/ (pow c0 2) (* (pow D 2) (* h (pow w 2))))))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) (* w 2)) #s(hole binary64 (* (pow d 2) (+ (* 1/4 (/ (* (pow D 2) (* h (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))))) (pow d 2))) (/ (pow c0 2) (* (pow D 2) (* h (pow w 2))))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) (* w 2)) #s(hole binary64 (* (pow d 2) (+ (* 1/4 (/ (* (pow D 2) (* h (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))))) (pow d 2))) (+ (* 1/4 (/ (* (pow D 2) (* h (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) 2)))) (pow c0 2)))))) (pow d 4))) (/ (pow c0 2) (* (pow D 2) (* h (pow w 2)))))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) (* w 2)) #s(hole binary64 (* (pow d 2) (+ (* -1/8 (/ (* (pow D 6) (* (pow h 3) (* (pow w 2) (* (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) 2)))) (pow c0 2)))))))) (* (pow c0 2) (pow d 6)))) (+ (* 1/4 (/ (* (pow D 2) (* h (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))))) (pow d 2))) (+ (* 1/4 (/ (* (pow D 2) (* h (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) 2)))) (pow c0 2)))))) (pow d 4))) (/ (pow c0 2) (* (pow D 2) (* h (pow w 2))))))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) #s(hole binary64 (* (pow d 2) (+ (* 1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w))))))) (pow d 2))) (* 2 (/ (pow c0 2) (* (pow D 2) (* h w))))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) #s(hole binary64 (* (pow d 2) (+ (* 1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w))))))) (pow d 2))) (+ (* 1/2 (/ (* (pow D 2) (* h (* w (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) 2)))) (pow c0 2))))))) (pow d 4))) (* 2 (/ (pow c0 2) (* (pow D 2) (* h w)))))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) #s(hole binary64 (* (pow d 2) (+ (* -1/4 (/ (* (pow D 6) (* (pow h 3) (* (pow w 3) (* (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) 2)))) (pow c0 2)))))))) (* (pow c0 2) (pow d 6)))) (+ (* 1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w))))))) (pow d 2))) (+ (* 1/2 (/ (* (pow D 2) (* h (* w (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) 2)))) (pow c0 2))))))) (pow d 4))) (* 2 (/ (pow c0 2) (* (pow D 2) (* h w))))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M)))) #s(hole binary64 (* (pow d 2) (+ (* 1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w))))))) (* c0 (pow d 2)))) (* 2 (/ c0 (* (pow D 2) (* h w))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M)))) #s(hole binary64 (* (pow d 2) (+ (* 1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w))))))) (* c0 (pow d 2)))) (+ (* 1/2 (/ (* (pow D 2) (* h (* w (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) 2)))) (pow c0 2))))))) (* c0 (pow d 4)))) (* 2 (/ c0 (* (pow D 2) (* h w)))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M)))) #s(hole binary64 (* (pow d 2) (+ (* -1/4 (/ (* (pow D 6) (* (pow h 3) (* (pow w 3) (* (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) 2)))) (pow c0 2)))))))) (* (pow c0 3) (pow d 6)))) (+ (* 1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w))))))) (* c0 (pow d 2)))) (+ (* 1/2 (/ (* (pow D 2) (* h (* w (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) 2)))) (pow c0 2))))))) (* c0 (pow d 4)))) (* 2 (/ c0 (* (pow D 2) (* h w))))))))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))) #s(hole binary64 (* (pow d 2) (+ (* 1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w))))))) (* c0 (pow d 2)))) (/ c0 (* (pow D 2) (* h w)))))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))) #s(hole binary64 (* (pow d 2) (+ (* 1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w))))))) (* c0 (pow d 2)))) (+ (* 1/2 (/ (* (pow D 2) (* h (* w (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) 2)))) (pow c0 2))))))) (* c0 (pow d 4)))) (/ c0 (* (pow D 2) (* h w))))))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))) #s(hole binary64 (* (pow d 2) (+ (* -1/4 (/ (* (pow D 6) (* (pow h 3) (* (pow w 3) (* (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) 2)))) (pow c0 2)))))))) (* (pow c0 3) (pow d 6)))) (+ (* 1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w))))))) (* c0 (pow d 2)))) (+ (* 1/2 (/ (* (pow D 2) (* h (* w (- (* -1 (pow M 2)) (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* M c0) (* (pow D 2) (* h w)))) (/ (* M c0) (* (pow D 2) (* h w)))) 2)))) (pow c0 2))))))) (* c0 (pow d 4)))) (/ c0 (* (pow D 2) (* h w)))))))))
#s(approx (/ (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (* w w)) #s(hole binary64 (* (pow d 2) (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 4))) (/ (pow c0 2) (* (pow D 2) (* h (pow w 2))))))))
#s(approx (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) #s(hole binary64 (* (pow d 2) (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (* h (pow w 2)))) (pow d 4))) (/ (pow c0 2) (* (pow D 2) h))))))
#s(approx (* h (+ (* -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h h))))) #s(hole binary64 (* (pow d 2) (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (* h (pow w 2)))) (pow d 4))) (/ (pow c0 2) (* (pow D 2) h))))))
#s(approx (+ (* -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h h)))) #s(hole binary64 (* (pow d 2) (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) (pow w 2))) (pow d 4))) (/ (pow c0 2) (* (pow D 2) (pow h 2)))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (+ (* -1/4 (/ (* (pow D 2) (* (pow M 2) h)) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h (pow w 2)))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (+ (* (pow M 2) (+ (* -1/4 (/ (* (pow D 2) h) (pow d 2))) (* -1/16 (/ (* (pow D 6) (* (pow M 2) (* (pow h 3) (pow w 2)))) (* (pow c0 2) (pow d 6)))))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h (pow w 2)))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (+ (* (pow M 2) (+ (* -1/4 (/ (* (pow D 2) h) (pow d 2))) (* (pow M 2) (+ (* -1/16 (/ (* (pow D 6) (* (pow h 3) (pow w 2))) (* (pow c0 2) (pow d 6)))) (* -1/32 (/ (* (pow D 10) (* (pow M 2) (* (pow h 5) (pow w 4)))) (* (pow c0 4) (pow d 10)))))))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h (pow w 2)))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h w))) (* c0 (pow d 2)))) (* 2 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (+ (* 2 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (* (pow M 2) (+ (* -1/2 (/ (* (pow D 2) (* h w)) (* c0 (pow d 2)))) (* -1/8 (/ (* (pow D 6) (* (pow M 2) (* (pow h 3) (pow w 3)))) (* (pow c0 3) (pow d 6)))))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (+ (* 2 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (* (pow M 2) (+ (* -1/2 (/ (* (pow D 2) (* h w)) (* c0 (pow d 2)))) (* (pow M 2) (+ (* -1/8 (/ (* (pow D 6) (* (pow h 3) (pow w 3))) (* (pow c0 3) (pow d 6)))) (* -1/16 (/ (* (pow D 10) (* (pow M 2) (* (pow h 5) (pow w 5)))) (* (pow c0 5) (pow d 10)))))))))))
#s(approx (* c0 (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w)))))) #s(hole binary64 (+ (* -1/2 (/ (* (pow D 2) (* (pow M 2) (* h w))) (* c0 (pow d 2)))) (* 2 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (+ (* 1/4 (/ (* (pow D 2) (* M (* h (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))))) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h (pow w 2)))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (+ (* M (+ (* -1/4 (/ (* (pow D 2) (* M (* h (+ 1 (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (* (pow c0 2) (pow d 4)))))))) (pow d 2))) (* 1/4 (/ (* (pow D 2) (* h (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))))) (pow d 2))))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h (pow w 2)))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (+ (* M (+ (* 1/4 (/ (* (pow D 2) (* h (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))))) (pow d 2))) (* M (+ (* -1/4 (/ (* (pow D 2) (* h (+ 1 (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (* (pow c0 2) (pow d 4))))))) (pow d 2))) (* 1/8 (/ (* (pow D 6) (* M (* (pow h 3) (* (pow w 2) (* (+ 1 (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (* (pow c0 2) (pow d 4))))) (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))))))) (* (pow c0 2) (pow d 6)))))))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h (pow w 2)))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) (* w 2)) #s(hole binary64 (+ (* 1/4 (/ (* (pow D 2) (* M (* h (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))))) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h (pow w 2)))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) (* w 2)) #s(hole binary64 (+ (* M (+ (* -1/4 (/ (* (pow D 2) (* M (* h (+ 1 (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (* (pow c0 2) (pow d 4)))))))) (pow d 2))) (* 1/4 (/ (* (pow D 2) (* h (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))))) (pow d 2))))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h (pow w 2)))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) (* w 2)) #s(hole binary64 (+ (* M (+ (* 1/4 (/ (* (pow D 2) (* h (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))))) (pow d 2))) (* M (+ (* -1/4 (/ (* (pow D 2) (* h (+ 1 (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (* (pow c0 2) (pow d 4))))))) (pow d 2))) (* 1/8 (/ (* (pow D 6) (* M (* (pow h 3) (* (pow w 2) (* (+ 1 (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (* (pow c0 2) (pow d 4))))) (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))))))) (* (pow c0 2) (pow d 6)))))))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h (pow w 2)))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) #s(hole binary64 (+ (* 1/2 (/ (* (pow D 2) (* M (* h (* w (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))))))) (pow d 2))) (* 2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h w)))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) #s(hole binary64 (+ (* 2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h w)))) (* M (+ (* -1/2 (/ (* (pow D 2) (* M (* h (* w (+ 1 (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (* (pow c0 2) (pow d 4))))))))) (pow d 2))) (* 1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))))) (pow d 2))))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) #s(hole binary64 (+ (* 2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h w)))) (* M (+ (* 1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))))) (pow d 2))) (* M (+ (* -1/2 (/ (* (pow D 2) (* h (* w (+ 1 (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (* (pow c0 2) (pow d 4)))))))) (pow d 2))) (* 1/4 (/ (* (pow D 6) (* M (* (pow h 3) (* (pow w 3) (* (+ 1 (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (* (pow c0 2) (pow d 4))))) (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))))))) (* (pow c0 2) (pow d 6)))))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M)))) #s(hole binary64 (+ (* 1/2 (/ (* (pow D 2) (* M (* h (* w (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))))))) (* c0 (pow d 2)))) (* 2 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M)))) #s(hole binary64 (+ (* 2 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (* M (+ (* -1/2 (/ (* (pow D 2) (* M (* h (* w (+ 1 (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (* (pow c0 2) (pow d 4))))))))) (* c0 (pow d 2)))) (* 1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))))) (* c0 (pow d 2)))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M)))) #s(hole binary64 (+ (* 2 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (* M (+ (* 1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))))) (* c0 (pow d 2)))) (* M (+ (* -1/2 (/ (* (pow D 2) (* h (* w (+ 1 (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (* (pow c0 2) (pow d 4)))))))) (* c0 (pow d 2)))) (* 1/4 (/ (* (pow D 6) (* M (* (pow h 3) (* (pow w 3) (* (+ 1 (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (* (pow c0 2) (pow d 4))))) (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))))))) (* (pow c0 3) (pow d 6)))))))))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))) #s(hole binary64 (+ (* 1/2 (/ (* (pow D 2) (* M (* h (* w (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))))))) (* c0 (pow d 2)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))) #s(hole binary64 (+ (* M (+ (* -1/2 (/ (* (pow D 2) (* M (* h (* w (+ 1 (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (* (pow c0 2) (pow d 4))))))))) (* c0 (pow d 2)))) (* 1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))))) (* c0 (pow d 2)))))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))) #s(hole binary64 (+ (* M (+ (* 1/2 (/ (* (pow D 2) (* h (* w (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))))) (* c0 (pow d 2)))) (* M (+ (* -1/2 (/ (* (pow D 2) (* h (* w (+ 1 (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (* (pow c0 2) (pow d 4)))))))) (* c0 (pow d 2)))) (* 1/4 (/ (* (pow D 6) (* M (* (pow h 3) (* (pow w 3) (* (+ 1 (* 1/4 (/ (* (pow D 4) (* (pow h 2) (* (pow w 2) (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2)))) (* (pow c0 2) (pow d 4))))) (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))))))) (* (pow c0 3) (pow d 6)))))))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))))
#s(approx M #s(hole binary64 M))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* M (+ (* 1/2 (/ (* c0 (sqrt -1)) w)) (* 1/2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* M (* h (pow w 2))))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* M (+ (* 1/4 (/ (* (pow c0 3) (pow d 4)) (* (pow D 4) (* (pow M 2) (* (pow h 2) (* (pow w 3) (sqrt -1))))))) (+ (* 1/2 (/ (* c0 (sqrt -1)) w)) (* 1/2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* M (* h (pow w 2)))))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* M (+ (* -1/16 (/ (* (pow c0 5) (pow d 8)) (* (pow D 8) (* (pow M 4) (* (pow h 4) (* (pow w 5) (pow (sqrt -1) 3))))))) (+ (* 1/4 (/ (* (pow c0 3) (pow d 4)) (* (pow D 4) (* (pow M 2) (* (pow h 2) (* (pow w 3) (sqrt -1))))))) (+ (* 1/2 (/ (* c0 (sqrt -1)) w)) (* 1/2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* M (* h (pow w 2))))))))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (* M (+ (sqrt -1) (/ (* c0 (pow d 2)) (* (pow D 2) (* M (* h w))))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (* M (+ (sqrt -1) (+ (* 1/2 (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow M 2) (* (pow h 2) (* (pow w 2) (sqrt -1))))))) (/ (* c0 (pow d 2)) (* (pow D 2) (* M (* h w)))))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (* M (+ (sqrt -1) (+ (* -1/8 (/ (* (pow c0 4) (pow d 8)) (* (pow D 8) (* (pow M 4) (* (pow h 4) (* (pow w 4) (pow (sqrt -1) 3))))))) (+ (* 1/2 (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow M 2) (* (pow h 2) (* (pow w 2) (sqrt -1))))))) (/ (* c0 (pow d 2)) (* (pow D 2) (* M (* h w))))))))))
#s(approx (* c0 (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w)))))) #s(hole binary64 (* (pow M 2) (+ (* -1/2 (/ (* (pow D 2) (* h w)) (* c0 (pow d 2)))) (* 2 (/ (* c0 (pow d 2)) (* (pow D 2) (* (pow M 2) (* h w)))))))))
#s(approx (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w))))) #s(hole binary64 (* (pow M 2) (+ (* -1/2 (/ (* (pow D 2) (* h w)) (* (pow c0 2) (pow d 2)))) (* 2 (/ (pow d 2) (* (pow D 2) (* (pow M 2) (* h w)))))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (* M (+ (* 1/2 (/ (* c0 (sqrt -1)) w)) (* 1/2 (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (sqrt -1))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))) (* M w)))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (* M (+ (* 1/4 (/ (* c0 (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2) (pow (sqrt -1) 2))))) (* (pow M 2) (* w (sqrt -1))))) (+ (* 1/2 (/ (* c0 (sqrt -1)) w)) (* 1/2 (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (sqrt -1))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))) (* M w))))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (* M (+ (* -1/8 (/ (* c0 (* (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2) (pow (sqrt -1) 2)))))) (* (pow M 3) (* w (pow (sqrt -1) 3))))) (+ (* 1/4 (/ (* c0 (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2) (pow (sqrt -1) 2))))) (* (pow M 2) (* w (sqrt -1))))) (+ (* 1/2 (/ (* c0 (sqrt -1)) w)) (* 1/2 (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (sqrt -1))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))) (* M w)))))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) (* w 2)) #s(hole binary64 (* M (+ (* 1/2 (/ (* c0 (sqrt -1)) w)) (* 1/2 (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (sqrt -1))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))) (* M w)))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) (* w 2)) #s(hole binary64 (* M (+ (* 1/4 (/ (* c0 (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2) (pow (sqrt -1) 2))))) (* (pow M 2) (* w (sqrt -1))))) (+ (* 1/2 (/ (* c0 (sqrt -1)) w)) (* 1/2 (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (sqrt -1))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))) (* M w))))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) (* w 2)) #s(hole binary64 (* M (+ (* -1/8 (/ (* c0 (* (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2) (pow (sqrt -1) 2)))))) (* (pow M 3) (* w (pow (sqrt -1) 3))))) (+ (* 1/4 (/ (* c0 (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2) (pow (sqrt -1) 2))))) (* (pow M 2) (* w (sqrt -1))))) (+ (* 1/2 (/ (* c0 (sqrt -1)) w)) (* 1/2 (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (sqrt -1))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))) (* M w)))))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) #s(hole binary64 (* M (+ (* c0 (sqrt -1)) (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (sqrt -1))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))) M)))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) #s(hole binary64 (* M (+ (* 1/2 (/ (* c0 (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2) (pow (sqrt -1) 2))))) (* (pow M 2) (sqrt -1)))) (+ (* c0 (sqrt -1)) (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (sqrt -1))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))) M))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) #s(hole binary64 (* M (+ (* -1/4 (/ (* c0 (* (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2) (pow (sqrt -1) 2)))))) (* (pow M 3) (pow (sqrt -1) 3)))) (+ (* 1/2 (/ (* c0 (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2) (pow (sqrt -1) 2))))) (* (pow M 2) (sqrt -1)))) (+ (* c0 (sqrt -1)) (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (sqrt -1))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))) M)))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M)))) #s(hole binary64 (* M (+ (sqrt -1) (+ (* 1/2 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (* M (sqrt -1)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* M (* h w)))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M)))) #s(hole binary64 (* M (+ (sqrt -1) (+ (* 1/2 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (* M (sqrt -1)))) (+ (* 1/2 (/ (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2) (pow (sqrt -1) 2)))) (* (pow M 2) (sqrt -1)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* M (* h w))))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M)))) #s(hole binary64 (* M (+ (sqrt -1) (+ (* -1/4 (/ (* (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2) (pow (sqrt -1) 2))))) (* (pow M 3) (pow (sqrt -1) 3)))) (+ (* 1/2 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (* M (sqrt -1)))) (+ (* 1/2 (/ (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2) (pow (sqrt -1) 2)))) (* (pow M 2) (sqrt -1)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* M (* h w)))))))))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))) #s(hole binary64 (* M (+ (sqrt -1) (* 1/2 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (* M (sqrt -1))))))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))) #s(hole binary64 (* M (+ (sqrt -1) (+ (* 1/2 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (* M (sqrt -1)))) (* 1/2 (/ (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2) (pow (sqrt -1) 2)))) (* (pow M 2) (sqrt -1)))))))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))) #s(hole binary64 (* M (+ (sqrt -1) (+ (* -1/4 (/ (* (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2) (pow (sqrt -1) 2))))) (* (pow M 3) (pow (sqrt -1) 3)))) (+ (* 1/2 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (* M (sqrt -1)))) (* 1/2 (/ (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2) (pow (sqrt -1) 2)))) (* (pow M 2) (sqrt -1))))))))))
#s(approx (/ (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (* w w)) #s(hole binary64 (* (pow M 2) (+ (* -1/4 (/ (* (pow D 2) h) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* (pow M 2) (* h (pow w 2)))))))))
#s(approx (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) #s(hole binary64 (* (pow M 2) (+ (* -1/4 (/ (* (pow D 2) (* h (pow w 2))) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* (pow M 2) h)))))))
#s(approx (* h (+ (* -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h h))))) #s(hole binary64 (* (pow M 2) (+ (* -1/4 (/ (* (pow D 2) (* h (pow w 2))) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* (pow M 2) h)))))))
#s(approx (+ (* -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h h)))) #s(hole binary64 (* (pow M 2) (+ (* -1/4 (/ (* (pow D 2) (pow w 2)) (pow d 2))) (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* (pow M 2) (pow h 2))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* -1/2 (/ (* M (* c0 (sqrt -1))) w))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* -1 (* M (+ (* -1/2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* M (* h (pow w 2)))))) (* 1/2 (/ (* c0 (sqrt -1)) w)))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* -1 (* M (+ (* -1 (/ (+ (* -1/4 (/ (* (pow c0 3) (pow d 4)) (* (pow D 4) (* M (* (pow h 2) (* (pow w 3) (sqrt -1))))))) (* 1/2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h (pow w 2)))))) M)) (* 1/2 (/ (* c0 (sqrt -1)) w)))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(hole binary64 (* -1 (* M (+ (* -1 (/ (+ (* -1 (/ (+ (* -1/16 (/ (* (pow c0 5) (pow d 8)) (* (pow D 8) (* (pow M 2) (* (pow h 4) (* (pow w 5) (pow (sqrt -1) 3))))))) (* 1/4 (/ (* (pow c0 3) (pow d 4)) (* (pow D 4) (* (pow h 2) (* (pow w 3) (sqrt -1))))))) M)) (* 1/2 (/ (* (pow c0 2) (pow d 2)) (* (pow D 2) (* h (pow w 2)))))) M)) (* 1/2 (/ (* c0 (sqrt -1)) w)))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (* -1 (* M (sqrt -1)))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (* -1 (* M (+ (sqrt -1) (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* M (* h w))))))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (* -1 (* M (+ (sqrt -1) (* -1 (/ (+ (* -1/2 (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* M (* (pow h 2) (* (pow w 2) (sqrt -1))))))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) M)))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(hole binary64 (* -1 (* M (+ (sqrt -1) (* -1 (/ (+ (* -1 (/ (+ (* -1/8 (/ (* (pow c0 4) (pow d 8)) (* (pow D 8) (* (pow M 2) (* (pow h 4) (* (pow w 4) (pow (sqrt -1) 3))))))) (* 1/2 (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow h 2) (* (pow w 2) (sqrt -1))))))) M)) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) M)))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (* -1/2 (/ (* M (* c0 (sqrt -1))) w))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (* -1 (* M (+ (* -1/2 (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (sqrt -1))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))) (* M w))) (* 1/2 (/ (* c0 (sqrt -1)) w)))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (* -1 (* M (+ (* -1 (/ (+ (* -1/4 (/ (* c0 (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2) (pow (sqrt -1) 2))))) (* M (* w (sqrt -1))))) (* 1/2 (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (sqrt -1))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))) w))) M)) (* 1/2 (/ (* c0 (sqrt -1)) w)))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) #s(hole binary64 (* -1 (* M (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/8 (/ (* c0 (* (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2) (pow (sqrt -1) 2)))))) (* M (* w (pow (sqrt -1) 3))))) (* 1/4 (/ (* c0 (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2) (pow (sqrt -1) 2))))) (* w (sqrt -1))))) M)) (* 1/2 (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (sqrt -1))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))) w))) M)) (* 1/2 (/ (* c0 (sqrt -1)) w)))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) (* w 2)) #s(hole binary64 (* -1/2 (/ (* M (* c0 (sqrt -1))) w))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) (* w 2)) #s(hole binary64 (* -1 (* M (+ (* -1/2 (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (sqrt -1))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))) (* M w))) (* 1/2 (/ (* c0 (sqrt -1)) w)))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) (* w 2)) #s(hole binary64 (* -1 (* M (+ (* -1 (/ (+ (* -1/4 (/ (* c0 (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2) (pow (sqrt -1) 2))))) (* M (* w (sqrt -1))))) (* 1/2 (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (sqrt -1))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))) w))) M)) (* 1/2 (/ (* c0 (sqrt -1)) w)))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) (* w 2)) #s(hole binary64 (* -1 (* M (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/8 (/ (* c0 (* (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2) (pow (sqrt -1) 2)))))) (* M (* w (pow (sqrt -1) 3))))) (* 1/4 (/ (* c0 (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2) (pow (sqrt -1) 2))))) (* w (sqrt -1))))) M)) (* 1/2 (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (sqrt -1))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))) w))) M)) (* 1/2 (/ (* c0 (sqrt -1)) w)))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) #s(hole binary64 (* -1 (* M (* c0 (sqrt -1))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) #s(hole binary64 (* -1 (* M (+ (* -1 (/ (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (sqrt -1))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))) M)) (* c0 (sqrt -1)))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) #s(hole binary64 (* -1 (* M (+ (* -1 (/ (+ (* -1/2 (/ (* c0 (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2) (pow (sqrt -1) 2))))) (* M (sqrt -1)))) (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (sqrt -1))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))))) M)) (* c0 (sqrt -1)))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) #s(hole binary64 (* -1 (* M (+ (* -1 (/ (+ (* -1 (/ (+ (* 1/4 (/ (* c0 (* (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2) (pow (sqrt -1) 2)))))) (* M (pow (sqrt -1) 3)))) (* 1/2 (/ (* c0 (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2) (pow (sqrt -1) 2))))) (sqrt -1)))) M)) (* c0 (+ (* 1/2 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (sqrt -1))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))))) M)) (* c0 (sqrt -1)))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M)))) #s(hole binary64 (* -1 (* M (sqrt -1)))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M)))) #s(hole binary64 (* -1 (* M (+ (sqrt -1) (* -1 (/ (+ (* 1/2 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (sqrt -1))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) M)))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M)))) #s(hole binary64 (* -1 (* M (+ (sqrt -1) (* -1 (/ (+ (* -1/2 (/ (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2) (pow (sqrt -1) 2)))) (* M (sqrt -1)))) (+ (* 1/2 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (sqrt -1))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))) M)))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M)))) #s(hole binary64 (* -1 (* M (+ (sqrt -1) (* -1 (/ (+ (* -1 (/ (+ (* 1/4 (/ (* (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2) (pow (sqrt -1) 2))))) (* M (pow (sqrt -1) 3)))) (* 1/2 (/ (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2) (pow (sqrt -1) 2)))) (sqrt -1)))) M)) (+ (* 1/2 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (sqrt -1))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w))))) M)))))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))) #s(hole binary64 (* -1 (* M (sqrt -1)))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))) #s(hole binary64 (* -1 (* M (+ (sqrt -1) (* -1/2 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (* M (sqrt -1)))))))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))) #s(hole binary64 (* -1 (* M (+ (sqrt -1) (* -1 (/ (+ (* -1/2 (/ (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2) (pow (sqrt -1) 2)))) (* M (sqrt -1)))) (* 1/2 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (sqrt -1)))) M)))))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))) #s(hole binary64 (* -1 (* M (+ (sqrt -1) (* -1 (/ (+ (* -1 (/ (+ (* 1/4 (/ (* (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2) (pow (sqrt -1) 2))))) (* M (pow (sqrt -1) 3)))) (* 1/2 (/ (- (/ (* (pow c0 2) (pow d 4)) (* (pow D 4) (* (pow h 2) (pow w 2)))) (* 1/4 (/ (pow (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) 2) (pow (sqrt -1) 2)))) (sqrt -1)))) M)) (* 1/2 (/ (+ (* -1 (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (/ (* c0 (pow d 2)) (* (pow D 2) (* h w)))) (sqrt -1)))) M)))))))

Outputs
(.f64 (/.f64 c0 (.f64 #s(literal 2 binary64) w)) #s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (.f64 c0 #s(approx (+ ( -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w))))) (.f64 #s(literal 2 binary64) (.f64 (/.f64 d (.f64 D D)) (/.f64 d (.f64 h w))))))))
(/.f64 (neg.f64 c0) (neg.f64 (*.f64 #s(literal 2 binary64) w)))
(/.f64 c0 (*.f64 #s(literal 2 binary64) w))
c0
(*.f64 #s(literal 2 binary64) w)
#s(literal 2 binary64)
w
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (.f64 c0 #s(approx (+ ( -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w))))) (.f64 #s(literal 2 binary64) (.f64 (/.f64 d (.f64 D D)) (/.f64 d (.f64 h w)))))))
(.f64 c0 #s(approx (+ ( -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w))))) (.f64 #s(literal 2 binary64) (.f64 (/.f64 d (.f64 D D)) (/.f64 d (.f64 h w))))))
#s(approx (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w))))) (.f64 #s(literal 2 binary64) (.f64 (/.f64 d (.f64 D D)) (/.f64 d (.f64 h w)))))
(.f64 #s(literal 2 binary64) (.f64 (/.f64 d (.f64 D D)) (/.f64 d (.f64 h w))))
(.f64 (/.f64 d (.f64 D D)) (/.f64 d (*.f64 h w)))
(/.f64 (neg.f64 (.f64 d d)) (neg.f64 (.f64 (.f64 D D) (.f64 h w))))
(/.f64 (.f64 d d) (.f64 (.f64 D D) (.f64 h w)))
(/.f64 (neg.f64 d) (neg.f64 (*.f64 D D)))
(/.f64 d (*.f64 D D))
d
(*.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)))
D
(/.f64 (neg.f64 d) (neg.f64 (*.f64 h w)))
(/.f64 d (*.f64 h w))
(*.f64 h w)
h
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (.f64 (ratio-of-squares.f64 c0 D) (.f64 (/.f64 d h) (/.f64 d (*.f64 w w)))))
(.f64 (ratio-of-squares.f64 c0 D) (.f64 (/.f64 d h) (/.f64 d (*.f64 w w))))
(/.f64 (neg.f64 (pow.f64 (.f64 c0 d) #s(literal 2 binary64))) (neg.f64 (.f64 (.f64 D D) (.f64 h (*.f64 w w)))))
(/.f64 (pow.f64 (.f64 c0 d) #s(literal 2 binary64)) (.f64 (.f64 D D) (.f64 h (*.f64 w w))))
(*.f64 (/.f64 c0 D) (/.f64 c0 D))
(ratio-of-squares.f64 (neg.f64 c0) (neg.f64 D))
(ratio-of-squares.f64 (neg.f64 c0) (fabs.f64 D))
(ratio-of-squares.f64 (neg.f64 c0) D)
(ratio-of-squares.f64 (fabs.f64 c0) (neg.f64 D))
(ratio-of-squares.f64 (fabs.f64 c0) (fabs.f64 D))
(ratio-of-squares.f64 (fabs.f64 c0) D)
(ratio-of-squares.f64 c0 (neg.f64 D))
(ratio-of-squares.f64 c0 (fabs.f64 D))
(ratio-of-squares.f64 c0 D)
(/.f64 (neg.f64 (.f64 c0 c0)) (neg.f64 (.f64 D D)))
(/.f64 (.f64 c0 c0) (.f64 D D))
(.f64 (/.f64 d h) (/.f64 d (.f64 w w)))
(/.f64 (neg.f64 (.f64 d d)) (neg.f64 (.f64 h (*.f64 w w))))
(/.f64 (.f64 d d) (.f64 h (*.f64 w w)))
(*.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 h (.f64 w w))
(*.f64 (neg.f64 w) (neg.f64 w))
(*.f64 (fabs.f64 w) (fabs.f64 w))
(*.f64 w w)
(pow.f64 w #s(literal 2 binary64))
(exp.f64 (*.f64 (log.f64 w) #s(literal 2 binary64)))
(.f64 (/.f64 c0 (.f64 #s(literal 2 binary64) w)) #s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (neg.f64 (.f64 (.f64 #s(literal 0 binary64) (/.f64 (ratio-of-squares.f64 d D) (*.f64 h w))) c0))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (neg.f64 (.f64 (.f64 #s(literal 0 binary64) (/.f64 (ratio-of-squares.f64 d D) (*.f64 h w))) c0)))
(neg.f64 (.f64 (.f64 #s(literal 0 binary64) (/.f64 (ratio-of-squares.f64 d D) (*.f64 h w))) c0))
(.f64 (.f64 #s(literal 0 binary64) (/.f64 (ratio-of-squares.f64 d D) (*.f64 h w))) c0)
(.f64 #s(literal 0 binary64) (/.f64 (ratio-of-squares.f64 d D) (.f64 h w)))
#s(literal 0 binary64)
(/.f64 (neg.f64 (ratio-of-squares.f64 d D)) (neg.f64 (*.f64 h w)))
(/.f64 (ratio-of-squares.f64 d D) (*.f64 h w))
(*.f64 (neg.f64 (/.f64 d D)) (neg.f64 (/.f64 d D)))
(*.f64 (fabs.f64 (/.f64 d D)) (fabs.f64 (/.f64 d D)))
(*.f64 (/.f64 d D) (/.f64 d D))
(ratio-of-squares.f64 (neg.f64 d) (neg.f64 D))
(ratio-of-squares.f64 (neg.f64 d) (fabs.f64 D))
(ratio-of-squares.f64 (neg.f64 d) D)
(ratio-of-squares.f64 (fabs.f64 d) (neg.f64 D))
(ratio-of-squares.f64 (fabs.f64 d) (fabs.f64 D))
(ratio-of-squares.f64 (fabs.f64 d) D)
(ratio-of-squares.f64 d (neg.f64 D))
(ratio-of-squares.f64 d (fabs.f64 D))
(ratio-of-squares.f64 d D)
(pow.f64 (/.f64 d D) #s(literal 2 binary64))
(/.f64 (neg.f64 (.f64 d d)) (neg.f64 (.f64 D D)))
(/.f64 (.f64 d d) (.f64 D D))
(.f64 (/.f64 c0 w) (/.f64 (+.f64 (.f64 (/.f64 c0 (.f64 h w)) (ratio-of-squares.f64 d D)) (sqrt-product.f64 (.f64 (/.f64 c0 (*.f64 h w)) (ratio-of-squares.f64 d D)) M)) #s(literal 2 binary64)))
(/.f64 (neg.f64 (.f64 c0 (+.f64 (.f64 (/.f64 c0 (.f64 h w)) (ratio-of-squares.f64 d D)) (sqrt-product.f64 (.f64 (/.f64 c0 (.f64 h w)) (ratio-of-squares.f64 d D)) M)))) (neg.f64 (.f64 w #s(literal 2 binary64))))
(/.f64 (.f64 c0 (+.f64 (.f64 (/.f64 c0 (.f64 h w)) (ratio-of-squares.f64 d D)) (sqrt-product.f64 (.f64 (/.f64 c0 (.f64 h w)) (ratio-of-squares.f64 d D)) M))) (.f64 w #s(literal 2 binary64)))
(.f64 c0 (+.f64 (.f64 (/.f64 c0 (.f64 h w)) (ratio-of-squares.f64 d D)) (sqrt-product.f64 (.f64 (/.f64 c0 (*.f64 h w)) (ratio-of-squares.f64 d D)) M)))
(/.f64 (+.f64 (pow.f64 (.f64 (/.f64 c0 (.f64 h w)) (ratio-of-squares.f64 d D)) #s(literal 3 binary64)) (pow.f64 (sqrt-product.f64 (.f64 (/.f64 c0 (.f64 h w)) (ratio-of-squares.f64 d D)) M) #s(literal 3 binary64))) (+.f64 (.f64 (.f64 (/.f64 c0 (.f64 h w)) (ratio-of-squares.f64 d D)) (.f64 (/.f64 c0 (.f64 h w)) (ratio-of-squares.f64 d D))) (-.f64 (.f64 (sqrt-product.f64 (.f64 (/.f64 c0 (.f64 h w)) (ratio-of-squares.f64 d D)) M) (sqrt-product.f64 (.f64 (/.f64 c0 (.f64 h w)) (ratio-of-squares.f64 d D)) M)) (.f64 (.f64 (/.f64 c0 (.f64 h w)) (ratio-of-squares.f64 d D)) (sqrt-product.f64 (.f64 (/.f64 c0 (*.f64 h w)) (ratio-of-squares.f64 d D)) M)))))
(+.f64 (.f64 (/.f64 c0 (.f64 h w)) (ratio-of-squares.f64 d D)) (sqrt-product.f64 (.f64 (/.f64 c0 (.f64 h w)) (ratio-of-squares.f64 d D)) M))
(.f64 (/.f64 c0 (.f64 h w)) (ratio-of-squares.f64 d D))
(/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 h w) (*.f64 D D)))
(/.f64 (neg.f64 c0) (neg.f64 (*.f64 h w)))
(/.f64 c0 (*.f64 h w))
(.f64 (sqrt.f64 (+.f64 (.f64 (/.f64 c0 (.f64 h w)) (ratio-of-squares.f64 d D)) M)) (sqrt.f64 (-.f64 (.f64 (/.f64 c0 (*.f64 h w)) (ratio-of-squares.f64 d D)) M)))
(pow.f64 (.f64 (+.f64 (.f64 (/.f64 c0 (.f64 h w)) (ratio-of-squares.f64 d D)) M) (-.f64 (.f64 (/.f64 c0 (*.f64 h w)) (ratio-of-squares.f64 d D)) M)) #s(literal 1/2 binary64))
(sqrt-product.f64 (.f64 (/.f64 c0 (.f64 h w)) (ratio-of-squares.f64 d D)) M)
(sqrt.f64 (.f64 (+.f64 (.f64 (/.f64 c0 (.f64 h w)) (ratio-of-squares.f64 d D)) M) (-.f64 (.f64 (/.f64 c0 (*.f64 h w)) (ratio-of-squares.f64 d D)) M)))
(.f64 (/.f64 c0 (.f64 h w)) (ratio-of-squares.f64 d D))
(/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 h w) (*.f64 D D)))
(*.f64 (neg.f64 (/.f64 d D)) (neg.f64 (/.f64 d D)))
(*.f64 (fabs.f64 (/.f64 d D)) (fabs.f64 (/.f64 d D)))
(*.f64 (/.f64 d D) (/.f64 d D))
(ratio-of-squares.f64 (neg.f64 d) (neg.f64 D))
(ratio-of-squares.f64 (neg.f64 d) (fabs.f64 D))
(ratio-of-squares.f64 (neg.f64 d) D)
(ratio-of-squares.f64 (fabs.f64 d) (neg.f64 D))
(ratio-of-squares.f64 (fabs.f64 d) (fabs.f64 D))
(ratio-of-squares.f64 (fabs.f64 d) D)
(ratio-of-squares.f64 d (neg.f64 D))
(ratio-of-squares.f64 d (fabs.f64 D))
(ratio-of-squares.f64 d D)
(pow.f64 (/.f64 d D) #s(literal 2 binary64))
(/.f64 (neg.f64 (.f64 d d)) (neg.f64 (.f64 D D)))
(/.f64 (.f64 d d) (.f64 D D))
(/.f64 (neg.f64 d) (neg.f64 D))
(/.f64 d D)
M
(*.f64 w #s(literal 2 binary64))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (/.f64 #s(approx (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (.f64 h #s(approx (+ ( -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h h)))) (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (.f64 D D) d) (/.f64 (pow.f64 (.f64 M w) #s(literal 2 binary64)) d)))))) (*.f64 w w)))
(/.f64 (neg.f64 #s(approx (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (.f64 h #s(approx (+ ( -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h h)))) (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (.f64 D D) d) (/.f64 (pow.f64 (.f64 M w) #s(literal 2 binary64)) d))))))) (neg.f64 (*.f64 w w)))
(/.f64 #s(approx (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (.f64 h #s(approx (+ ( -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h h)))) (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (.f64 D D) d) (/.f64 (pow.f64 (.f64 M w) #s(literal 2 binary64)) d)))))) (*.f64 w w))
#s(approx (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (.f64 h #s(approx (+ ( -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h h)))) (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (.f64 D D) d) (/.f64 (pow.f64 (.f64 M w) #s(literal 2 binary64)) d))))))
(.f64 h #s(approx (+ ( -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h h)))) (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (.f64 D D) d) (/.f64 (pow.f64 (.f64 M w) #s(literal 2 binary64)) d)))))
#s(approx (+ (* -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h h)))) (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (.f64 D D) d) (/.f64 (pow.f64 (.f64 M w) #s(literal 2 binary64)) d))))
(.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (.f64 D D) d) (/.f64 (pow.f64 (.f64 M w) #s(literal 2 binary64)) d)))
#s(literal -1/4 binary64)
(.f64 (/.f64 (.f64 D D) d) (/.f64 (pow.f64 (*.f64 M w) #s(literal 2 binary64)) d))
(/.f64 (neg.f64 (.f64 (.f64 D D) (pow.f64 (.f64 M w) #s(literal 2 binary64)))) (neg.f64 (.f64 d d)))
(/.f64 (.f64 (.f64 D D) (pow.f64 (.f64 M w) #s(literal 2 binary64))) (.f64 d d))
(.f64 (.f64 D D) (pow.f64 (*.f64 M w) #s(literal 2 binary64)))
(.f64 (.f64 M M) (*.f64 w w))
(.f64 (.f64 M w) (*.f64 M w))
(pow.f64 (*.f64 M w) #s(literal 2 binary64))
(exp.f64 (.f64 (log.f64 (.f64 M w)) #s(literal 2 binary64)))
(*.f64 M w)
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 M (*.f64 c0 (sqrt.f64 #s(literal -1 binary64)))) w)))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (.f64 c0 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 M (sqrt.f64 #s(literal -1 binary64))) w)) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 c0 (.f64 D D)) (.f64 (/.f64 d h) (/.f64 d (.f64 w w))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (.f64 c0 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 M (sqrt.f64 #s(literal -1 binary64))) w)) (.f64 c0 (+.f64 (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 c0 (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 M (.f64 (.f64 h h) (.f64 (pow.f64 w #s(literal 3 binary64)) (sqrt.f64 #s(literal -1 binary64)))))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 d d) (.f64 (.f64 D D) (.f64 h (.f64 w w))))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (.f64 c0 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 M (sqrt.f64 #s(literal -1 binary64))) w)) (.f64 c0 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 d d) (.f64 (.f64 D D) (.f64 h (.f64 w w))))) (.f64 c0 (+.f64 (.f64 #s(literal -1/16 binary64) (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 8 binary64))) (/.f64 (pow.f64 d #s(literal 8 binary64)) (.f64 (pow.f64 M #s(literal 3 binary64)) (.f64 (pow.f64 h #s(literal 4 binary64)) (.f64 (pow.f64 w #s(literal 5 binary64)) (pow.f64 #s(literal -1 binary64) #s(literal 3/2 binary64)))))))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 M (.f64 (.f64 h h) (*.f64 (pow.f64 w #s(literal 3 binary64)) (sqrt.f64 #s(literal -1 binary64)))))))))))))))
#s(approx (/ c0 (* 2 w)) (*.f64 #s(literal 1/2 binary64) (/.f64 c0 w)))
#s(approx c0 c0)
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (*.f64 M (sqrt.f64 #s(literal -1 binary64))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (+.f64 (.f64 M (sqrt.f64 #s(literal -1 binary64))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (+.f64 (.f64 M (sqrt.f64 #s(literal -1 binary64))) (.f64 c0 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 c0 (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 M (.f64 (.f64 h h) (.f64 (.f64 w w) (sqrt.f64 #s(literal -1 binary64)))))))) (.f64 (/.f64 d (.f64 D D)) (/.f64 d (.f64 h w)))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (+.f64 (.f64 M (sqrt.f64 #s(literal -1 binary64))) (.f64 c0 (+.f64 (.f64 c0 (+.f64 (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 8 binary64))) (/.f64 (pow.f64 d #s(literal 8 binary64)) (.f64 (pow.f64 M #s(literal 3 binary64)) (.f64 (pow.f64 h #s(literal 4 binary64)) (.f64 (pow.f64 w #s(literal 4 binary64)) (pow.f64 #s(literal -1 binary64) #s(literal 3/2 binary64)))))))) (.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 M (.f64 (.f64 h h) (.f64 (.f64 w w) (sqrt.f64 #s(literal -1 binary64)))))))))) (.f64 (/.f64 d (.f64 D D)) (/.f64 d (*.f64 h w)))))))
#s(approx (* c0 (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w)))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 D D) (.f64 (.f64 M M) (.f64 h w))) (.f64 c0 (.f64 d d)))))
#s(approx (* c0 (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w)))))) (/.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 D D) (.f64 (.f64 M M) (.f64 h w))) (.f64 d d))) (.f64 #s(literal 2 binary64) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) (*.f64 h w))))) c0))
#s(approx (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w))))) (.f64 #s(literal -1/2 binary64) (.f64 (ratio-of-squares.f64 D c0) (.f64 (/.f64 (.f64 M M) d) (/.f64 (*.f64 h w) d)))))
#s(approx (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w))))) (/.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 D D) (.f64 (.f64 M M) (.f64 h w))) (.f64 d d))) (.f64 #s(literal 2 binary64) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) (.f64 h w))))) (.f64 c0 c0)))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 M (*.f64 c0 (sqrt.f64 #s(literal -1 binary64)))) w)))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (.f64 c0 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 c0 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (.f64 M (.f64 w (sqrt.f64 #s(literal -1 binary64)))))) (/.f64 (.f64 d d) (.f64 (.f64 D D) (.f64 h (.f64 w w))))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 M (sqrt.f64 #s(literal -1 binary64))) w)))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (.f64 c0 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 M (sqrt.f64 #s(literal -1 binary64))) w)) (.f64 c0 (+.f64 (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 c0 M) (/.f64 (-.f64 (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 (pow.f64 D #s(literal 4 binary64)) (pow.f64 (.f64 h w) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64))))) (.f64 w (sqrt.f64 #s(literal -1 binary64)))))) (.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (.f64 M (.f64 w (sqrt.f64 #s(literal -1 binary64)))))) (/.f64 (.f64 d d) (.f64 (.f64 D D) (.f64 h (*.f64 w w)))))))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (.f64 c0 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 M (sqrt.f64 #s(literal -1 binary64))) w)) (.f64 c0 (+.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (.f64 M (.f64 w (sqrt.f64 #s(literal -1 binary64)))))) (/.f64 (.f64 d d) (.f64 (.f64 D D) (.f64 h (.f64 w w)))))) (.f64 c0 (+.f64 (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 c0 (pow.f64 M #s(literal 3 binary64))) (/.f64 (.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (-.f64 (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 (pow.f64 D #s(literal 4 binary64)) (pow.f64 (.f64 h w) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64)))))) (.f64 w (pow.f64 #s(literal -1 binary64) #s(literal 3/2 binary64)))))) (.f64 #s(literal 1/4 binary64) (/.f64 (-.f64 (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 (pow.f64 D #s(literal 4 binary64)) (pow.f64 (.f64 h w) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64))))) (.f64 M (*.f64 w (sqrt.f64 #s(literal -1 binary64)))))))))))))
#s(approx (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h (* w w)))) (.f64 (ratio-of-squares.f64 c0 D) (.f64 (/.f64 d h) (/.f64 d (*.f64 w w)))))
#s(approx (/ (* c0 c0) (* D D)) (ratio-of-squares.f64 c0 D))
#s(approx (neg (* (* 0 (/ (/ (* d d) (* D D)) (* h w))) c0)) #s(literal 0 binary64))
#s(approx (* (* 0 (/ (/ (* d d) (* D D)) (* h w))) c0) #s(literal 0 binary64))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 M (*.f64 c0 (sqrt.f64 #s(literal -1 binary64)))) w)))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (.f64 c0 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 c0 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (.f64 M (.f64 w (sqrt.f64 #s(literal -1 binary64)))))) (/.f64 (.f64 d d) (.f64 (.f64 D D) (.f64 h (.f64 w w))))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 M (sqrt.f64 #s(literal -1 binary64))) w)))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (.f64 c0 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 M (sqrt.f64 #s(literal -1 binary64))) w)) (.f64 c0 (+.f64 (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 c0 M) (/.f64 (-.f64 (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 (pow.f64 D #s(literal 4 binary64)) (pow.f64 (.f64 h w) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64))))) (.f64 w (sqrt.f64 #s(literal -1 binary64)))))) (.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (.f64 M (.f64 w (sqrt.f64 #s(literal -1 binary64)))))) (/.f64 (.f64 d d) (.f64 (.f64 D D) (.f64 h (*.f64 w w)))))))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (.f64 c0 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 M (sqrt.f64 #s(literal -1 binary64))) w)) (.f64 c0 (+.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (.f64 M (.f64 w (sqrt.f64 #s(literal -1 binary64)))))) (/.f64 (.f64 d d) (.f64 (.f64 D D) (.f64 h (.f64 w w)))))) (.f64 c0 (+.f64 (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 c0 (pow.f64 M #s(literal 3 binary64))) (/.f64 (.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (-.f64 (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 (pow.f64 D #s(literal 4 binary64)) (pow.f64 (.f64 h w) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64)))))) (.f64 w (pow.f64 #s(literal -1 binary64) #s(literal 3/2 binary64)))))) (.f64 #s(literal 1/4 binary64) (/.f64 (-.f64 (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 (pow.f64 D #s(literal 4 binary64)) (pow.f64 (.f64 h w) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64))))) (.f64 M (*.f64 w (sqrt.f64 #s(literal -1 binary64)))))))))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) (.f64 M (.f64 c0 (sqrt.f64 #s(literal -1 binary64)))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) (.f64 c0 (+.f64 (.f64 M (sqrt.f64 #s(literal -1 binary64))) (.f64 c0 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (.f64 M (sqrt.f64 #s(literal -1 binary64))))) (.f64 (/.f64 d (.f64 D D)) (/.f64 d (*.f64 h w))))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) (.f64 c0 (+.f64 (.f64 M (sqrt.f64 #s(literal -1 binary64))) (.f64 c0 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 c0 M) (/.f64 (-.f64 (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 (pow.f64 D #s(literal 4 binary64)) (pow.f64 (.f64 h w) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64))))) (sqrt.f64 #s(literal -1 binary64))))) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (.f64 M (sqrt.f64 #s(literal -1 binary64))))) (.f64 (/.f64 d (.f64 D D)) (/.f64 d (*.f64 h w)))))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) (.f64 c0 (+.f64 (.f64 M (sqrt.f64 #s(literal -1 binary64))) (.f64 c0 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (.f64 M (sqrt.f64 #s(literal -1 binary64))))) (+.f64 (.f64 c0 (+.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 c0 (.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (-.f64 (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 (pow.f64 D #s(literal 4 binary64)) (pow.f64 (.f64 h w) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64))))))) (pow.f64 (.f64 M (sqrt.f64 #s(literal -1 binary64))) #s(literal 3 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 (pow.f64 D #s(literal 4 binary64)) (pow.f64 (.f64 h w) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64))))) (.f64 M (sqrt.f64 #s(literal -1 binary64))))))) (.f64 (/.f64 d (.f64 D D)) (/.f64 d (*.f64 h w)))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M)))) (*.f64 M (sqrt.f64 #s(literal -1 binary64))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M)))) (+.f64 (.f64 M (sqrt.f64 #s(literal -1 binary64))) (.f64 c0 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (.f64 M (sqrt.f64 #s(literal -1 binary64))))) (.f64 (/.f64 d (.f64 D D)) (/.f64 d (.f64 h w)))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M)))) (+.f64 (.f64 M (sqrt.f64 #s(literal -1 binary64))) (.f64 c0 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 c0 M) (/.f64 (-.f64 (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 (pow.f64 D #s(literal 4 binary64)) (pow.f64 (.f64 h w) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64))))) (sqrt.f64 #s(literal -1 binary64))))) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (.f64 M (sqrt.f64 #s(literal -1 binary64))))) (.f64 (/.f64 d (.f64 D D)) (/.f64 d (.f64 h w))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M)))) (+.f64 (.f64 M (sqrt.f64 #s(literal -1 binary64))) (.f64 c0 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (.f64 M (sqrt.f64 #s(literal -1 binary64))))) (+.f64 (.f64 c0 (+.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 c0 (.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (-.f64 (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 (pow.f64 D #s(literal 4 binary64)) (pow.f64 (.f64 h w) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64))))))) (pow.f64 (.f64 M (sqrt.f64 #s(literal -1 binary64))) #s(literal 3 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 (pow.f64 D #s(literal 4 binary64)) (pow.f64 (.f64 h w) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64))))) (.f64 M (sqrt.f64 #s(literal -1 binary64))))))) (.f64 (/.f64 d (.f64 D D)) (/.f64 d (.f64 h w))))))))
#s(approx (* (/ c0 (* h w)) (* (/ d D) (/ d D))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (*.f64 h w))))
#s(approx (/ c0 (* h w)) (/.f64 c0 (*.f64 h w)))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))) (*.f64 M (sqrt.f64 #s(literal -1 binary64))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 c0 M) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (sqrt.f64 #s(literal -1 binary64))))) (.f64 M (sqrt.f64 #s(literal -1 binary64)))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))) (+.f64 (.f64 M (sqrt.f64 #s(literal -1 binary64))) (.f64 c0 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 c0 M) (/.f64 (-.f64 (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 (pow.f64 D #s(literal 4 binary64)) (pow.f64 (.f64 h w) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64))))) (sqrt.f64 #s(literal -1 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (*.f64 M (sqrt.f64 #s(literal -1 binary64)))))))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))) (+.f64 (.f64 M (sqrt.f64 #s(literal -1 binary64))) (.f64 c0 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (.f64 M (sqrt.f64 #s(literal -1 binary64))))) (.f64 c0 (+.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 c0 (.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (-.f64 (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 (pow.f64 D #s(literal 4 binary64)) (pow.f64 (.f64 h w) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64))))))) (pow.f64 (.f64 M (sqrt.f64 #s(literal -1 binary64))) #s(literal 3 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 (pow.f64 D #s(literal 4 binary64)) (pow.f64 (.f64 h w) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64))))) (*.f64 M (sqrt.f64 #s(literal -1 binary64)))))))))))
#s(approx (* (/ c0 (* h w)) (* (/ d D) (/ d D))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (*.f64 h w))))
#s(approx (/ (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (* w w)) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 D D) (.f64 (.f64 M M) h)) (.f64 d d))))
#s(approx (/ (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (* w w)) (+.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 D D) (.f64 (.f64 M M) h)) (.f64 d d))) (.f64 (ratio-of-squares.f64 c0 D) (.f64 (/.f64 d h) (/.f64 d (*.f64 w w))))))
#s(approx (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 D D) (.f64 (.f64 M M) (.f64 h (.f64 w w)))) (.f64 d d))))
#s(approx (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (+.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 D D) (.f64 (.f64 M M) (.f64 h (.f64 w w)))) (.f64 d d))) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) h))))
#s(approx (* h (+ (* -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h h))))) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 D D) (.f64 (.f64 M M) (.f64 h (.f64 w w)))) (.f64 d d))))
#s(approx (* h (+ (* -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h h))))) (+.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 D D) (.f64 (.f64 M M) (.f64 h (.f64 w w)))) (.f64 d d))) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) h))))
#s(approx (+ (* -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h h)))) (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (.f64 D D) d) (/.f64 (pow.f64 (.f64 M w) #s(literal 2 binary64)) d))))
#s(approx (+ (* -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h h)))) (+.f64 (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (.f64 D D) d) (/.f64 (pow.f64 (.f64 M w) #s(literal 2 binary64)) d))) (*.f64 (ratio-of-squares.f64 c0 D) (ratio-of-squares.f64 d h))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (.f64 (ratio-of-squares.f64 c0 D) (.f64 (/.f64 d h) (/.f64 d (*.f64 w w)))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (.f64 (.f64 c0 c0) (+.f64 (.f64 #s(literal -1/4 binary64) (.f64 (ratio-of-squares.f64 D c0) (/.f64 (.f64 (.f64 M M) h) (.f64 d d)))) (/.f64 (.f64 d d) (.f64 (.f64 D D) (.f64 h (.f64 w w)))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (.f64 (.f64 c0 c0) (+.f64 (.f64 #s(literal -1/4 binary64) (.f64 (ratio-of-squares.f64 D c0) (/.f64 (.f64 (.f64 M M) h) (.f64 d d)))) (+.f64 (.f64 #s(literal -1/16 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (pow.f64 c0 #s(literal 4 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (.f64 (pow.f64 h #s(literal 3 binary64)) (.f64 w w))) (pow.f64 d #s(literal 6 binary64))))) (/.f64 (.f64 d d) (.f64 (.f64 D D) (.f64 h (*.f64 w w))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (.f64 (.f64 c0 c0) (+.f64 (.f64 #s(literal -1/4 binary64) (.f64 (ratio-of-squares.f64 D c0) (/.f64 (.f64 (.f64 M M) h) (.f64 d d)))) (+.f64 (.f64 #s(literal -1/16 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (pow.f64 c0 #s(literal 4 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (.f64 (pow.f64 h #s(literal 3 binary64)) (.f64 w w))) (pow.f64 d #s(literal 6 binary64))))) (+.f64 (.f64 #s(literal -1/32 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 10 binary64)) (pow.f64 c0 #s(literal 6 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 6 binary64)) (.f64 (pow.f64 h #s(literal 5 binary64)) (pow.f64 w #s(literal 4 binary64)))) (pow.f64 d #s(literal 10 binary64))))) (/.f64 (.f64 d d) (.f64 (.f64 D D) (.f64 h (*.f64 w w)))))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (.f64 #s(literal 2 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (.f64 c0 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (ratio-of-squares.f64 D c0) (.f64 (/.f64 (.f64 M M) d) (/.f64 (.f64 h w) d)))) (.f64 #s(literal 2 binary64) (.f64 (/.f64 d (.f64 D D)) (/.f64 d (.f64 h w)))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (.f64 c0 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (ratio-of-squares.f64 D c0) (.f64 (/.f64 (.f64 M M) d) (/.f64 (.f64 h w) d)))) (+.f64 (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (pow.f64 c0 #s(literal 4 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (pow.f64 (.f64 h w) #s(literal 3 binary64))) (pow.f64 d #s(literal 6 binary64))))) (.f64 #s(literal 2 binary64) (.f64 (/.f64 d (.f64 D D)) (/.f64 d (.f64 h w))))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (.f64 c0 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (ratio-of-squares.f64 D c0) (.f64 (/.f64 (.f64 M M) d) (/.f64 (.f64 h w) d)))) (+.f64 (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (pow.f64 c0 #s(literal 4 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (pow.f64 (.f64 h w) #s(literal 3 binary64))) (pow.f64 d #s(literal 6 binary64))))) (+.f64 (.f64 #s(literal -1/16 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 10 binary64)) (pow.f64 c0 #s(literal 6 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 6 binary64)) (pow.f64 (.f64 h w) #s(literal 5 binary64))) (pow.f64 d #s(literal 10 binary64))))) (.f64 #s(literal 2 binary64) (.f64 (/.f64 d (.f64 D D)) (/.f64 d (.f64 h w)))))))))
#s(approx (* c0 (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w)))))) (.f64 #s(literal 2 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))))
#s(approx (* c0 (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w)))))) (.f64 c0 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (ratio-of-squares.f64 D c0) (.f64 (/.f64 (.f64 M M) d) (/.f64 (.f64 h w) d)))) (.f64 #s(literal 2 binary64) (.f64 (/.f64 d (.f64 D D)) (/.f64 d (.f64 h w)))))))
#s(approx (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w))))) (.f64 #s(literal 2 binary64) (.f64 (/.f64 d (.f64 D D)) (/.f64 d (.f64 h w)))))
#s(approx (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w))))) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (ratio-of-squares.f64 D c0) (.f64 (/.f64 (.f64 M M) d) (/.f64 (.f64 h w) d)))) (.f64 #s(literal 2 binary64) (.f64 (/.f64 d (.f64 D D)) (/.f64 d (*.f64 h w))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (.f64 (ratio-of-squares.f64 c0 D) (.f64 (/.f64 d h) (/.f64 d (*.f64 w w)))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (.f64 (.f64 c0 c0) (+.f64 (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (.f64 D D) c0) (/.f64 (.f64 h (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))) (.f64 d d)))) (/.f64 (.f64 d d) (.f64 (.f64 D D) (.f64 h (*.f64 w w)))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (.f64 (.f64 c0 c0) (+.f64 (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (.f64 D D) c0) (/.f64 (.f64 h (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))) (.f64 d d)))) (+.f64 (.f64 #s(literal 1/4 binary64) (.f64 (ratio-of-squares.f64 D c0) (/.f64 (.f64 h (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 (.f64 h h) (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))) #s(literal 2 binary64)))) (pow.f64 d #s(literal 4 binary64)))))) (.f64 d d)))) (/.f64 (.f64 d d) (.f64 (.f64 D D) (.f64 h (*.f64 w w))))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (.f64 (.f64 c0 c0) (+.f64 (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (pow.f64 c0 #s(literal 3 binary64))) (/.f64 (.f64 (pow.f64 h #s(literal 3 binary64)) (.f64 (.f64 w w) (.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 (.f64 h h) (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))) #s(literal 2 binary64)))) (pow.f64 d #s(literal 4 binary64)))))))) (pow.f64 d #s(literal 6 binary64))))) (+.f64 (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (.f64 D D) c0) (/.f64 (.f64 h (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))) (.f64 d d)))) (+.f64 (.f64 #s(literal 1/4 binary64) (.f64 (ratio-of-squares.f64 D c0) (/.f64 (.f64 h (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 (.f64 h h) (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))) #s(literal 2 binary64)))) (pow.f64 d #s(literal 4 binary64)))))) (.f64 d d)))) (/.f64 (.f64 d d) (.f64 (.f64 D D) (.f64 h (.f64 w w)))))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (.f64 (ratio-of-squares.f64 c0 D) (.f64 (/.f64 d h) (/.f64 d (*.f64 w w)))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (.f64 (.f64 c0 c0) (+.f64 (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (.f64 D D) c0) (/.f64 (.f64 h (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))) (.f64 d d)))) (/.f64 (.f64 d d) (.f64 (.f64 D D) (.f64 h (*.f64 w w)))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (.f64 (.f64 c0 c0) (+.f64 (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (.f64 D D) c0) (/.f64 (.f64 h (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))) (.f64 d d)))) (+.f64 (.f64 #s(literal 1/4 binary64) (.f64 (ratio-of-squares.f64 D c0) (/.f64 (.f64 h (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 (.f64 h h) (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))) #s(literal 2 binary64)))) (pow.f64 d #s(literal 4 binary64)))))) (.f64 d d)))) (/.f64 (.f64 d d) (.f64 (.f64 D D) (.f64 h (*.f64 w w))))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (.f64 (.f64 c0 c0) (+.f64 (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (pow.f64 c0 #s(literal 3 binary64))) (/.f64 (.f64 (pow.f64 h #s(literal 3 binary64)) (.f64 (.f64 w w) (.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 (.f64 h h) (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))) #s(literal 2 binary64)))) (pow.f64 d #s(literal 4 binary64)))))))) (pow.f64 d #s(literal 6 binary64))))) (+.f64 (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (.f64 D D) c0) (/.f64 (.f64 h (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))) (.f64 d d)))) (+.f64 (.f64 #s(literal 1/4 binary64) (.f64 (ratio-of-squares.f64 D c0) (/.f64 (.f64 h (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 (.f64 h h) (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))) #s(literal 2 binary64)))) (pow.f64 d #s(literal 4 binary64)))))) (.f64 d d)))) (/.f64 (.f64 d d) (.f64 (.f64 D D) (.f64 h (.f64 w w)))))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) (.f64 #s(literal 2 binary64) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) (.f64 h w)))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) (.f64 (.f64 c0 c0) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 D D) c0) (/.f64 (.f64 h (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))))) (.f64 d d)))) (.f64 #s(literal 2 binary64) (.f64 (/.f64 d (.f64 D D)) (/.f64 d (*.f64 h w)))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) (.f64 (.f64 c0 c0) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 D D) c0) (/.f64 (.f64 h (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))))) (.f64 d d)))) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (ratio-of-squares.f64 D c0) (/.f64 (.f64 h (.f64 w (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 (.f64 h h) (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))) #s(literal 2 binary64)))) (pow.f64 d #s(literal 4 binary64))))))) (.f64 d d)))) (.f64 #s(literal 2 binary64) (.f64 (/.f64 d (.f64 D D)) (/.f64 d (.f64 h w))))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) (.f64 (.f64 c0 c0) (+.f64 (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (pow.f64 c0 #s(literal 3 binary64))) (/.f64 (.f64 (pow.f64 h #s(literal 3 binary64)) (.f64 (pow.f64 w #s(literal 3 binary64)) (.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 (.f64 h h) (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))) #s(literal 2 binary64)))) (pow.f64 d #s(literal 4 binary64)))))))) (pow.f64 d #s(literal 6 binary64))))) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 D D) c0) (/.f64 (.f64 h (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))))) (.f64 d d)))) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (ratio-of-squares.f64 D c0) (/.f64 (.f64 h (.f64 w (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 (.f64 h h) (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))) #s(literal 2 binary64)))) (pow.f64 d #s(literal 4 binary64))))))) (.f64 d d)))) (.f64 #s(literal 2 binary64) (.f64 (/.f64 d (.f64 D D)) (/.f64 d (.f64 h w)))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M)))) (.f64 #s(literal 2 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M)))) (.f64 c0 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 D D) c0) (/.f64 (.f64 h (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))))) (.f64 d d)))) (.f64 #s(literal 2 binary64) (.f64 (/.f64 d (.f64 D D)) (/.f64 d (.f64 h w)))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M)))) (.f64 c0 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 D D) c0) (/.f64 (.f64 h (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))))) (.f64 d d)))) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (ratio-of-squares.f64 D c0) (/.f64 (.f64 h (.f64 w (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 (.f64 h h) (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))) #s(literal 2 binary64)))) (pow.f64 d #s(literal 4 binary64))))))) (.f64 d d)))) (.f64 #s(literal 2 binary64) (.f64 (/.f64 d (.f64 D D)) (/.f64 d (*.f64 h w))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M)))) (.f64 c0 (+.f64 (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (pow.f64 c0 #s(literal 3 binary64))) (/.f64 (.f64 (pow.f64 h #s(literal 3 binary64)) (.f64 (pow.f64 w #s(literal 3 binary64)) (.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 (.f64 h h) (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))) #s(literal 2 binary64)))) (pow.f64 d #s(literal 4 binary64)))))))) (pow.f64 d #s(literal 6 binary64))))) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 D D) c0) (/.f64 (.f64 h (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))))) (.f64 d d)))) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (ratio-of-squares.f64 D c0) (/.f64 (.f64 h (.f64 w (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 (.f64 h h) (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))) #s(literal 2 binary64)))) (pow.f64 d #s(literal 4 binary64))))))) (.f64 d d)))) (.f64 #s(literal 2 binary64) (.f64 (/.f64 d (.f64 D D)) (/.f64 d (*.f64 h w)))))))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (*.f64 h w))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))) (.f64 c0 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 D D) c0) (/.f64 (.f64 h (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))))) (.f64 d d)))) (.f64 (/.f64 d (.f64 D D)) (/.f64 d (*.f64 h w))))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))) (.f64 c0 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 D D) c0) (/.f64 (.f64 h (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))))) (.f64 d d)))) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (ratio-of-squares.f64 D c0) (/.f64 (.f64 h (.f64 w (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 (.f64 h h) (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))) #s(literal 2 binary64)))) (pow.f64 d #s(literal 4 binary64))))))) (.f64 d d)))) (.f64 (/.f64 d (.f64 D D)) (/.f64 d (.f64 h w)))))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))) (.f64 c0 (+.f64 (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (pow.f64 c0 #s(literal 3 binary64))) (/.f64 (.f64 (pow.f64 h #s(literal 3 binary64)) (.f64 (pow.f64 w #s(literal 3 binary64)) (.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 (.f64 h h) (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))) #s(literal 2 binary64)))) (pow.f64 d #s(literal 4 binary64)))))))) (pow.f64 d #s(literal 6 binary64))))) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 D D) c0) (/.f64 (.f64 h (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))))) (.f64 d d)))) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (ratio-of-squares.f64 D c0) (/.f64 (.f64 h (.f64 w (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 (.f64 h h) (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))) #s(literal 2 binary64)))) (pow.f64 d #s(literal 4 binary64))))))) (.f64 d d)))) (.f64 (/.f64 d (.f64 D D)) (/.f64 d (.f64 h w))))))))
#s(approx (/ (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (* w w)) (.f64 (ratio-of-squares.f64 c0 D) (.f64 (/.f64 d h) (/.f64 d (*.f64 w w)))))
#s(approx (/ (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (* w w)) (.f64 (.f64 c0 c0) (+.f64 (.f64 #s(literal -1/4 binary64) (.f64 (ratio-of-squares.f64 D c0) (/.f64 (.f64 (.f64 M M) h) (.f64 d d)))) (/.f64 (.f64 d d) (.f64 (.f64 D D) (.f64 h (.f64 w w)))))))
#s(approx (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) h)))
#s(approx (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (.f64 (.f64 c0 c0) (+.f64 (.f64 #s(literal -1/4 binary64) (.f64 (ratio-of-squares.f64 D c0) (/.f64 (.f64 (.f64 M M) (.f64 h (.f64 w w))) (.f64 d d)))) (/.f64 (.f64 d d) (.f64 (.f64 D D) h)))))
#s(approx (* h (+ (* -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h h))))) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) h)))
#s(approx (* h (+ (* -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h h))))) (.f64 (.f64 c0 c0) (+.f64 (.f64 #s(literal -1/4 binary64) (.f64 (ratio-of-squares.f64 D c0) (/.f64 (.f64 (.f64 M M) (.f64 h (.f64 w w))) (.f64 d d)))) (/.f64 (.f64 d d) (.f64 (.f64 D D) h)))))
#s(approx (+ (* -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h h)))) (*.f64 (ratio-of-squares.f64 c0 D) (ratio-of-squares.f64 d h)))
#s(approx (+ (* -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h h)))) (.f64 (.f64 c0 c0) (+.f64 (.f64 #s(literal -1/4 binary64) (.f64 (ratio-of-squares.f64 D c0) (ratio-of-squares.f64 (.f64 M w) d))) (/.f64 (.f64 d d) (pow.f64 (*.f64 D h) #s(literal 2 binary64))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 c0 c0) (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 d (.f64 D D)) (/.f64 d (.f64 h w)))) (.f64 (/.f64 d (.f64 D D)) (/.f64 d (.f64 h w))))) w)))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (.f64 (.f64 c0 c0) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 d (.f64 D D)) (/.f64 d (.f64 h w)))) (.f64 (/.f64 d (.f64 D D)) (/.f64 d (.f64 h w)))) w)) (.f64 #s(literal 1/4 binary64) (.f64 (ratio-of-squares.f64 D c0) (/.f64 (.f64 (.f64 M M) h) (*.f64 d d)))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (.f64 (.f64 c0 c0) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 d (.f64 D D)) (/.f64 d (.f64 h w)))) (.f64 (/.f64 d (.f64 D D)) (/.f64 d (.f64 h w)))) w)) (+.f64 (.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (pow.f64 c0 #s(literal 4 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (.f64 (pow.f64 h #s(literal 3 binary64)) (.f64 w w))) (pow.f64 d #s(literal 6 binary64))))) (.f64 #s(literal 1/4 binary64) (.f64 (ratio-of-squares.f64 D c0) (/.f64 (.f64 (.f64 M M) h) (.f64 d d))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (.f64 (.f64 c0 c0) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 d (.f64 D D)) (/.f64 d (.f64 h w)))) (.f64 (/.f64 d (.f64 D D)) (/.f64 d (.f64 h w)))) w)) (+.f64 (.f64 #s(literal 1/32 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 10 binary64)) (pow.f64 c0 #s(literal 6 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 6 binary64)) (.f64 (pow.f64 h #s(literal 5 binary64)) (pow.f64 w #s(literal 4 binary64)))) (pow.f64 d #s(literal 10 binary64))))) (+.f64 (.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (pow.f64 c0 #s(literal 4 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (.f64 (pow.f64 h #s(literal 3 binary64)) (.f64 w w))) (pow.f64 d #s(literal 6 binary64))))) (.f64 #s(literal 1/4 binary64) (.f64 (ratio-of-squares.f64 D c0) (/.f64 (.f64 (.f64 M M) h) (.f64 d d)))))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (.f64 #s(literal -1 binary64) (.f64 c0 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 d (.f64 D D)) (/.f64 d (.f64 h w)))) (.f64 (/.f64 d (.f64 D D)) (/.f64 d (*.f64 h w)))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (.f64 #s(literal -1 binary64) (.f64 c0 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 d (.f64 D D)) (/.f64 d (.f64 h w)))) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (ratio-of-squares.f64 D c0) (.f64 (/.f64 (.f64 M M) d) (/.f64 (.f64 h w) d)))) (.f64 (/.f64 d (.f64 D D)) (/.f64 d (.f64 h w))))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (.f64 #s(literal -1 binary64) (.f64 c0 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 d (.f64 D D)) (/.f64 d (.f64 h w)))) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (ratio-of-squares.f64 D c0) (.f64 (/.f64 (.f64 M M) d) (/.f64 (.f64 h w) d)))) (+.f64 (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (pow.f64 c0 #s(literal 4 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (pow.f64 (.f64 h w) #s(literal 3 binary64))) (pow.f64 d #s(literal 6 binary64))))) (.f64 (/.f64 d (.f64 D D)) (/.f64 d (.f64 h w)))))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (.f64 #s(literal -1 binary64) (.f64 c0 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 d (.f64 D D)) (/.f64 d (.f64 h w)))) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (ratio-of-squares.f64 D c0) (.f64 (/.f64 (.f64 M M) d) (/.f64 (.f64 h w) d)))) (+.f64 (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (pow.f64 c0 #s(literal 4 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (pow.f64 (.f64 h w) #s(literal 3 binary64))) (pow.f64 d #s(literal 6 binary64))))) (+.f64 (.f64 #s(literal -1/16 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 10 binary64)) (pow.f64 c0 #s(literal 6 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 6 binary64)) (pow.f64 (.f64 h w) #s(literal 5 binary64))) (pow.f64 d #s(literal 10 binary64))))) (.f64 (/.f64 d (.f64 D D)) (/.f64 d (.f64 h w))))))))))
#s(approx (* c0 (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w)))))) (.f64 #s(literal -1 binary64) (.f64 c0 (+.f64 (.f64 #s(literal -2 binary64) (.f64 (/.f64 d (.f64 D D)) (/.f64 d (.f64 h w)))) (.f64 #s(literal 1/2 binary64) (.f64 (ratio-of-squares.f64 D c0) (.f64 (/.f64 (.f64 M M) d) (/.f64 (*.f64 h w) d))))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 c0 c0) (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 d (.f64 D D)) (/.f64 d (.f64 h w)))) (.f64 (/.f64 d (.f64 D D)) (/.f64 d (.f64 h w))))) w)))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (.f64 (.f64 c0 c0) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 d (.f64 D D)) (/.f64 d (.f64 h w)))) (.f64 (/.f64 d (.f64 D D)) (/.f64 d (.f64 h w)))) w)) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (.f64 D D) c0) (/.f64 (.f64 h (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))) (.f64 d d)))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (.f64 (.f64 c0 c0) (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 D D) (.f64 h (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))))) (.f64 d d))) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (.f64 D D) c0) (/.f64 (.f64 h (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 (.f64 h h) (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))) #s(literal 2 binary64)))) (pow.f64 d #s(literal 4 binary64)))))) (.f64 d d))))) c0)) (.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 d (.f64 D D)) (/.f64 d (.f64 h w)))) (.f64 (/.f64 d (.f64 D D)) (/.f64 d (.f64 h w)))) w)))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (.f64 (.f64 c0 c0) (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 D D) (.f64 h (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 (.f64 h h) (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))) #s(literal 2 binary64)))) (pow.f64 d #s(literal 4 binary64))))))) (.f64 d d))) (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) c0) (/.f64 (.f64 (pow.f64 h #s(literal 3 binary64)) (.f64 (.f64 w w) (.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 (.f64 h h) (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))) #s(literal 2 binary64)))) (pow.f64 d #s(literal 4 binary64)))))))) (pow.f64 d #s(literal 6 binary64)))))) c0)) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 D D) (.f64 h (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))))) (.f64 d d)))) c0)) (.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 d (.f64 D D)) (/.f64 d (.f64 h w)))) (.f64 (/.f64 d (.f64 D D)) (/.f64 d (.f64 h w)))) w)))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 c0 c0) (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 d (.f64 D D)) (/.f64 d (.f64 h w)))) (.f64 (/.f64 d (.f64 D D)) (/.f64 d (.f64 h w))))) w)))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (.f64 (.f64 c0 c0) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 d (.f64 D D)) (/.f64 d (.f64 h w)))) (.f64 (/.f64 d (.f64 D D)) (/.f64 d (.f64 h w)))) w)) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (.f64 D D) c0) (/.f64 (.f64 h (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))) (.f64 d d)))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (.f64 (.f64 c0 c0) (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 D D) (.f64 h (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))))) (.f64 d d))) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (.f64 D D) c0) (/.f64 (.f64 h (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 (.f64 h h) (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))) #s(literal 2 binary64)))) (pow.f64 d #s(literal 4 binary64)))))) (.f64 d d))))) c0)) (.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 d (.f64 D D)) (/.f64 d (.f64 h w)))) (.f64 (/.f64 d (.f64 D D)) (/.f64 d (.f64 h w)))) w)))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (.f64 (.f64 c0 c0) (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 D D) (.f64 h (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 (.f64 h h) (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))) #s(literal 2 binary64)))) (pow.f64 d #s(literal 4 binary64))))))) (.f64 d d))) (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) c0) (/.f64 (.f64 (pow.f64 h #s(literal 3 binary64)) (.f64 (.f64 w w) (.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 (.f64 h h) (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))) #s(literal 2 binary64)))) (pow.f64 d #s(literal 4 binary64)))))))) (pow.f64 d #s(literal 6 binary64)))))) c0)) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 D D) (.f64 h (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))))) (.f64 d d)))) c0)) (.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 d (.f64 D D)) (/.f64 d (.f64 h w)))) (.f64 (/.f64 d (.f64 D D)) (/.f64 d (.f64 h w)))) w)))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) (.f64 #s(literal -1 binary64) (.f64 (.f64 c0 c0) (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 d (.f64 D D)) (/.f64 d (.f64 h w)))) (.f64 (/.f64 d (.f64 D D)) (/.f64 d (.f64 h w)))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) (.f64 (.f64 c0 c0) (+.f64 (.f64 #s(literal -1 binary64) (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 d (.f64 D D)) (/.f64 d (.f64 h w)))) (.f64 (/.f64 d (.f64 D D)) (/.f64 d (.f64 h w))))) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 D D) c0) (/.f64 (.f64 h (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))))) (*.f64 d d)))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) (.f64 (.f64 c0 c0) (+.f64 (.f64 #s(literal -1 binary64) (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 d (.f64 D D)) (/.f64 d (.f64 h w)))) (.f64 (/.f64 d (.f64 D D)) (/.f64 d (.f64 h w))))) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 D D) (.f64 h (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))))) (.f64 d d))) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 D D) c0) (/.f64 (.f64 h (.f64 w (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 (.f64 h h) (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))) #s(literal 2 binary64)))) (pow.f64 d #s(literal 4 binary64))))))) (.f64 d d))))) c0)))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) (.f64 (.f64 c0 c0) (+.f64 (.f64 #s(literal -1 binary64) (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 d (.f64 D D)) (/.f64 d (.f64 h w)))) (.f64 (/.f64 d (.f64 D D)) (/.f64 d (.f64 h w))))) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 D D) (.f64 h (.f64 w (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 (.f64 h h) (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))) #s(literal 2 binary64)))) (pow.f64 d #s(literal 4 binary64)))))))) (.f64 d d))) (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) c0) (/.f64 (.f64 (pow.f64 h #s(literal 3 binary64)) (.f64 (pow.f64 w #s(literal 3 binary64)) (.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 (.f64 h h) (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))) #s(literal 2 binary64)))) (pow.f64 d #s(literal 4 binary64)))))))) (pow.f64 d #s(literal 6 binary64)))))) c0)) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 D D) (.f64 h (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))))) (*.f64 d d)))) c0)))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M)))) (.f64 #s(literal -1 binary64) (.f64 c0 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 d (.f64 D D)) (/.f64 d (.f64 h w)))) (.f64 (/.f64 d (.f64 D D)) (/.f64 d (*.f64 h w)))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M)))) (.f64 #s(literal -1 binary64) (.f64 c0 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 d (.f64 D D)) (/.f64 d (.f64 h w)))) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 D D) c0) (/.f64 (.f64 h (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))))) (.f64 d d)))) (.f64 (/.f64 d (.f64 D D)) (/.f64 d (.f64 h w))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M)))) (.f64 #s(literal -1 binary64) (.f64 c0 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 D D) c0) (/.f64 (.f64 h (.f64 w (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 (.f64 h h) (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))) #s(literal 2 binary64)))) (pow.f64 d #s(literal 4 binary64))))))) (.f64 d d)))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 D D) (.f64 h (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))))) (.f64 d d)))) c0)) (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 d (.f64 D D)) (/.f64 d (.f64 h w)))) (.f64 (/.f64 d (.f64 D D)) (/.f64 d (*.f64 h w))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M)))) (.f64 #s(literal -1 binary64) (.f64 c0 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) c0) (/.f64 (.f64 (pow.f64 h #s(literal 3 binary64)) (.f64 (pow.f64 w #s(literal 3 binary64)) (.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 (.f64 h h) (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))) #s(literal 2 binary64)))) (pow.f64 d #s(literal 4 binary64)))))))) (pow.f64 d #s(literal 6 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 D D) (.f64 h (.f64 w (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 (.f64 h h) (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))) #s(literal 2 binary64)))) (pow.f64 d #s(literal 4 binary64)))))))) (.f64 d d)))) c0)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 D D) (.f64 h (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))))) (.f64 d d)))) c0)) (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 d (.f64 D D)) (/.f64 d (.f64 h w)))) (.f64 (/.f64 d (.f64 D D)) (/.f64 d (.f64 h w))))))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))) (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))) (.f64 #s(literal -1 binary64) (.f64 c0 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 D D) c0) (/.f64 (.f64 h (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))))) (.f64 d d)))) (.f64 (/.f64 d (.f64 D D)) (/.f64 d (.f64 h w)))))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))) (.f64 #s(literal -1 binary64) (.f64 c0 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 D D) c0) (/.f64 (.f64 h (.f64 w (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 (.f64 h h) (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))) #s(literal 2 binary64)))) (pow.f64 d #s(literal 4 binary64))))))) (.f64 d d)))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 D D) (.f64 h (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))))) (.f64 d d)))) c0)) (.f64 (/.f64 d (.f64 D D)) (/.f64 d (*.f64 h w)))))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))) (.f64 #s(literal -1 binary64) (.f64 c0 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) c0) (/.f64 (.f64 (pow.f64 h #s(literal 3 binary64)) (.f64 (pow.f64 w #s(literal 3 binary64)) (.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 (.f64 h h) (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))) #s(literal 2 binary64)))) (pow.f64 d #s(literal 4 binary64)))))))) (pow.f64 d #s(literal 6 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 D D) (.f64 h (.f64 w (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 (.f64 h h) (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))) #s(literal 2 binary64)))) (pow.f64 d #s(literal 4 binary64)))))))) (.f64 d d)))) c0)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 D D) (.f64 h (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 M (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))))) (.f64 d d)))) c0)) (.f64 (/.f64 d (.f64 D D)) (/.f64 d (.f64 h w)))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (/.f64 (+.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 D D) (.f64 (.f64 M M) (.f64 h (.f64 w w)))) (.f64 d d))) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) h))) (*.f64 w w)))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (/.f64 (+.f64 (.f64 (.f64 w w) (+.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 D D) (.f64 (.f64 M M) h)) (.f64 d d))) (.f64 #s(literal -1/16 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (.f64 c0 c0)) (/.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (.f64 (pow.f64 h #s(literal 3 binary64)) (.f64 w w))) (pow.f64 d #s(literal 6 binary64))))))) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) h))) (*.f64 w w)))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (/.f64 (+.f64 (.f64 (.f64 w w) (+.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 D D) (.f64 (.f64 M M) h)) (.f64 d d))) (.f64 (.f64 w w) (+.f64 (.f64 #s(literal -1/16 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (.f64 c0 c0)) (/.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (pow.f64 h #s(literal 3 binary64))) (pow.f64 d #s(literal 6 binary64))))) (.f64 #s(literal -1/32 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 10 binary64)) (pow.f64 c0 #s(literal 4 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 6 binary64)) (.f64 (pow.f64 h #s(literal 5 binary64)) (.f64 w w))) (pow.f64 d #s(literal 10 binary64))))))))) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) h))) (.f64 w w)))
#s(approx (* 2 w) (*.f64 #s(literal 2 binary64) w))
#s(approx w w)
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (/.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 D D) (.f64 (.f64 M M) (.f64 h (.f64 w w)))) (.f64 c0 (.f64 d d)))) (.f64 #s(literal 2 binary64) (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (*.f64 d d) h)))) w))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (/.f64 (+.f64 (.f64 #s(literal 2 binary64) (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (.f64 d d) h))) (.f64 (.f64 w w) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 D D) (.f64 (.f64 M M) h)) (.f64 c0 (.f64 d d)))) (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (pow.f64 c0 #s(literal 3 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (.f64 (pow.f64 h #s(literal 3 binary64)) (.f64 w w))) (pow.f64 d #s(literal 6 binary64)))))))) w))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (/.f64 (+.f64 (.f64 #s(literal 2 binary64) (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (.f64 d d) h))) (.f64 (.f64 w w) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 D D) (.f64 (.f64 M M) h)) (.f64 c0 (.f64 d d)))) (.f64 (.f64 w w) (+.f64 (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (pow.f64 c0 #s(literal 3 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (pow.f64 h #s(literal 3 binary64))) (pow.f64 d #s(literal 6 binary64))))) (.f64 #s(literal -1/16 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 10 binary64)) (pow.f64 c0 #s(literal 5 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 6 binary64)) (.f64 (pow.f64 h #s(literal 5 binary64)) (*.f64 w w))) (pow.f64 d #s(literal 10 binary64)))))))))) w))
#s(approx (* c0 (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w)))))) (/.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 D D) (.f64 (.f64 M M) (.f64 h (.f64 w w)))) (.f64 c0 (.f64 d d)))) (.f64 #s(literal 2 binary64) (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (*.f64 d d) h)))) w))
#s(approx (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w))))) (/.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (ratio-of-squares.f64 D c0) (/.f64 (.f64 (.f64 M M) (.f64 h (.f64 w w))) (.f64 d d)))) (.f64 #s(literal 2 binary64) (/.f64 (.f64 d d) (.f64 (*.f64 D D) h)))) w))
#s(approx (* 2 (* (/ d (* D D)) (/ d (* h w)))) (.f64 #s(literal 2 binary64) (.f64 (/.f64 d (.f64 D D)) (/.f64 d (.f64 h w)))))
#s(approx (* (/ d (* D D)) (/ d (* h w))) (.f64 (/.f64 d (.f64 D D)) (/.f64 d (*.f64 h w))))
#s(approx (/ d (* h w)) (/.f64 d (*.f64 h w)))
#s(approx (* h w) (*.f64 h w))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (/.f64 (+.f64 (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (.f64 D D) (.f64 h (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h)))))) (.f64 d d))) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) h))) (.f64 w w)))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (/.f64 (+.f64 (.f64 w (+.f64 (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (.f64 D D) (.f64 h (.f64 w (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 c0 c0)) (/.f64 (pow.f64 (.f64 h (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h)))) #s(literal 2 binary64)) (pow.f64 d #s(literal 4 binary64))))))))) (.f64 d d))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (.f64 D D) (.f64 h (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))))) (.f64 d d))))) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) h))) (*.f64 w w)))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (/.f64 (+.f64 (.f64 w (+.f64 (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (.f64 D D) (.f64 h (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))))) (.f64 d d))) (.f64 w (+.f64 (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (.f64 c0 c0)) (/.f64 (.f64 (pow.f64 h #s(literal 3 binary64)) (.f64 w (.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 c0 c0)) (/.f64 (pow.f64 (.f64 h (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h)))) #s(literal 2 binary64)) (pow.f64 d #s(literal 4 binary64))))))))) (pow.f64 d #s(literal 6 binary64))))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (.f64 D D) (.f64 h (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 c0 c0)) (/.f64 (pow.f64 (.f64 h (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h)))) #s(literal 2 binary64)) (pow.f64 d #s(literal 4 binary64)))))))) (.f64 d d))))))) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) h))) (*.f64 w w)))
#s(approx (/ (* d d) (* h (* w w))) (.f64 (/.f64 d h) (/.f64 d (.f64 w w))))
#s(approx (* h (* w w)) (.f64 h (.f64 w w)))
#s(approx (* w w) (*.f64 w w))
#s(approx (* 0 (/ (/ (* d d) (* D D)) (* h w))) #s(literal 0 binary64))
#s(approx (/ (/ (* d d) (* D D)) (* h w)) (.f64 (/.f64 d (.f64 D D)) (/.f64 d (*.f64 h w))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (/.f64 (+.f64 (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (.f64 D D) (.f64 h (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h)))))) (.f64 d d))) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) h))) (.f64 w w)))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (/.f64 (+.f64 (.f64 w (+.f64 (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (.f64 D D) (.f64 h (.f64 w (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 c0 c0)) (/.f64 (pow.f64 (.f64 h (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h)))) #s(literal 2 binary64)) (pow.f64 d #s(literal 4 binary64))))))))) (.f64 d d))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (.f64 D D) (.f64 h (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))))) (.f64 d d))))) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) h))) (*.f64 w w)))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (/.f64 (+.f64 (.f64 w (+.f64 (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (.f64 D D) (.f64 h (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))))) (.f64 d d))) (.f64 w (+.f64 (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (.f64 c0 c0)) (/.f64 (.f64 (pow.f64 h #s(literal 3 binary64)) (.f64 w (.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 c0 c0)) (/.f64 (pow.f64 (.f64 h (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h)))) #s(literal 2 binary64)) (pow.f64 d #s(literal 4 binary64))))))))) (pow.f64 d #s(literal 6 binary64))))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (.f64 D D) (.f64 h (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 c0 c0)) (/.f64 (pow.f64 (.f64 h (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h)))) #s(literal 2 binary64)) (pow.f64 d #s(literal 4 binary64)))))))) (.f64 d d))))))) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) h))) (*.f64 w w)))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) (/.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 D D) (.f64 h (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h)))))) (.f64 d d))) (.f64 #s(literal 2 binary64) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) h)))) w))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) (/.f64 (+.f64 (.f64 #s(literal 2 binary64) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) h))) (.f64 w (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 D D) (.f64 h (.f64 w (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 c0 c0)) (/.f64 (pow.f64 (.f64 h (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h)))) #s(literal 2 binary64)) (pow.f64 d #s(literal 4 binary64))))))))) (.f64 d d))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 D D) (.f64 h (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))))) (*.f64 d d)))))) w))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) (/.f64 (+.f64 (.f64 #s(literal 2 binary64) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) h))) (.f64 w (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 D D) (.f64 h (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))))) (.f64 d d))) (.f64 w (+.f64 (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (.f64 c0 c0)) (/.f64 (.f64 (pow.f64 h #s(literal 3 binary64)) (.f64 w (.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 c0 c0)) (/.f64 (pow.f64 (.f64 h (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h)))) #s(literal 2 binary64)) (pow.f64 d #s(literal 4 binary64))))))))) (pow.f64 d #s(literal 6 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 D D) (.f64 h (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 c0 c0)) (/.f64 (pow.f64 (.f64 h (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h)))) #s(literal 2 binary64)) (pow.f64 d #s(literal 4 binary64)))))))) (*.f64 d d)))))))) w))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M)))) (/.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 D D) c0) (/.f64 (.f64 h (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))))) (.f64 d d)))) (.f64 #s(literal 2 binary64) (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (*.f64 d d) h)))) w))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M)))) (/.f64 (+.f64 (.f64 #s(literal 2 binary64) (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (.f64 d d) h))) (.f64 w (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 D D) c0) (/.f64 (.f64 h (.f64 w (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 c0 c0)) (/.f64 (pow.f64 (.f64 h (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h)))) #s(literal 2 binary64)) (pow.f64 d #s(literal 4 binary64)))))))) (.f64 d d)))) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 D D) c0) (/.f64 (.f64 h (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h)))) (.f64 d d))))))) w))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M)))) (/.f64 (+.f64 (.f64 #s(literal 2 binary64) (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (.f64 d d) h))) (.f64 w (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 D D) c0) (/.f64 (.f64 h (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h)))) (.f64 d d)))) (.f64 w (+.f64 (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (pow.f64 c0 #s(literal 3 binary64))) (/.f64 (.f64 (pow.f64 h #s(literal 3 binary64)) (.f64 w (.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 c0 c0)) (/.f64 (pow.f64 (.f64 h (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h)))) #s(literal 2 binary64)) (pow.f64 d #s(literal 4 binary64))))))))) (pow.f64 d #s(literal 6 binary64))))) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 D D) c0) (/.f64 (.f64 h (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 c0 c0)) (/.f64 (pow.f64 (.f64 h (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h)))) #s(literal 2 binary64)) (pow.f64 d #s(literal 4 binary64))))))) (*.f64 d d))))))))) w))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))) (/.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 D D) c0) (/.f64 (.f64 h (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))))) (.f64 d d)))) (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (.f64 d d) h))) w))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))) (/.f64 (+.f64 (.f64 w (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 D D) c0) (/.f64 (.f64 h (.f64 w (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 c0 c0)) (/.f64 (pow.f64 (.f64 h (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h)))) #s(literal 2 binary64)) (pow.f64 d #s(literal 4 binary64)))))))) (.f64 d d)))) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 D D) c0) (/.f64 (.f64 h (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h)))) (.f64 d d)))))) (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (*.f64 d d) h))) w))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))) (/.f64 (+.f64 (.f64 w (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 D D) c0) (/.f64 (.f64 h (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h)))) (.f64 d d)))) (.f64 w (+.f64 (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (pow.f64 c0 #s(literal 3 binary64))) (/.f64 (.f64 (pow.f64 h #s(literal 3 binary64)) (.f64 w (.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 c0 c0)) (/.f64 (pow.f64 (.f64 h (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h)))) #s(literal 2 binary64)) (pow.f64 d #s(literal 4 binary64))))))))) (pow.f64 d #s(literal 6 binary64))))) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 D D) c0) (/.f64 (.f64 h (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 c0 c0)) (/.f64 (pow.f64 (.f64 h (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h)))) #s(literal 2 binary64)) (pow.f64 d #s(literal 4 binary64))))))) (.f64 d d)))))))) (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (.f64 d d) h))) w))
#s(approx (* w 2) (*.f64 #s(literal 2 binary64) w))
#s(approx (/ (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (* w w)) (/.f64 (+.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 D D) (.f64 (.f64 M M) (.f64 h (.f64 w w)))) (.f64 d d))) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) h))) (*.f64 w w)))
#s(approx (* -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (.f64 D D) d) (/.f64 (pow.f64 (.f64 M w) #s(literal 2 binary64)) d))))
#s(approx (/ (* (* D D) (pow (* M w) 2)) (* d d)) (.f64 (/.f64 (.f64 D D) d) (/.f64 (pow.f64 (*.f64 M w) #s(literal 2 binary64)) d)))
#s(approx (* (* D D) (pow (* M w) 2)) (.f64 (.f64 D D) (pow.f64 (*.f64 M w) #s(literal 2 binary64))))
#s(approx (pow (* M w) 2) (pow.f64 (*.f64 M w) #s(literal 2 binary64)))
#s(approx (* M w) (*.f64 M w))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (/.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 M (.f64 c0 (sqrt.f64 #s(literal -1 binary64))))) (.f64 #s(literal 1/2 binary64) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) (*.f64 h w))))) w))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (/.f64 (+.f64 (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (pow.f64 c0 #s(literal 3 binary64)) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 M (.f64 (.f64 h h) (.f64 (.f64 w w) (sqrt.f64 #s(literal -1 binary64)))))))) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 M (.f64 c0 (sqrt.f64 #s(literal -1 binary64))))) (.f64 #s(literal 1/2 binary64) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) (.f64 h w)))))) w))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (/.f64 (+.f64 (.f64 #s(literal -1/16 binary64) (.f64 (/.f64 (pow.f64 c0 #s(literal 5 binary64)) (pow.f64 D #s(literal 8 binary64))) (/.f64 (pow.f64 d #s(literal 8 binary64)) (.f64 (pow.f64 M #s(literal 3 binary64)) (.f64 (pow.f64 h #s(literal 4 binary64)) (.f64 (pow.f64 w #s(literal 4 binary64)) (pow.f64 #s(literal -1 binary64) #s(literal 3/2 binary64)))))))) (+.f64 (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (pow.f64 c0 #s(literal 3 binary64)) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 M (.f64 (.f64 h h) (.f64 (.f64 w w) (sqrt.f64 #s(literal -1 binary64)))))))) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 M (.f64 c0 (sqrt.f64 #s(literal -1 binary64))))) (.f64 #s(literal 1/2 binary64) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) (*.f64 h w))))))) w))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 M (.f64 (.f64 h h) (.f64 (.f64 w w) (sqrt.f64 #s(literal -1 binary64)))))))) (+.f64 (.f64 M (sqrt.f64 #s(literal -1 binary64))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (+.f64 (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (pow.f64 c0 #s(literal 4 binary64)) (pow.f64 D #s(literal 8 binary64))) (/.f64 (pow.f64 d #s(literal 8 binary64)) (.f64 (pow.f64 M #s(literal 3 binary64)) (.f64 (pow.f64 h #s(literal 4 binary64)) (.f64 (pow.f64 w #s(literal 4 binary64)) (pow.f64 #s(literal -1 binary64) #s(literal 3/2 binary64)))))))) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 M (.f64 (.f64 h h) (.f64 (.f64 w w) (sqrt.f64 #s(literal -1 binary64)))))))) (+.f64 (.f64 M (sqrt.f64 #s(literal -1 binary64))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (*.f64 h w)))))))
#s(approx (* c0 (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w)))))) (.f64 w (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 D D) (.f64 (.f64 M M) h)) (.f64 c0 (.f64 d d)))) (.f64 #s(literal 2 binary64) (.f64 (/.f64 c0 (.f64 D D)) (.f64 (/.f64 d h) (/.f64 d (*.f64 w w))))))))
#s(approx (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w))))) (.f64 w (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (ratio-of-squares.f64 D c0) (/.f64 (.f64 (.f64 M M) h) (.f64 d d)))) (.f64 #s(literal 2 binary64) (/.f64 (.f64 d d) (.f64 (.f64 D D) (.f64 h (.f64 w w))))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (/.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 M (.f64 c0 (sqrt.f64 #s(literal -1 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 c0 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 M (sqrt.f64 #s(literal -1 binary64))))) (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (*.f64 d d) h)))) w))) w))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (/.f64 (+.f64 (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 c0 M) (/.f64 (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 h h))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64))))) (.f64 (.f64 w w) (sqrt.f64 #s(literal -1 binary64)))))) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 M (.f64 c0 (sqrt.f64 #s(literal -1 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 c0 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 M (sqrt.f64 #s(literal -1 binary64))))) (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (.f64 d d) h)))) w)))) w))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (/.f64 (+.f64 (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 c0 (pow.f64 M #s(literal 3 binary64))) (/.f64 (.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 h h))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64)))))) (pow.f64 (.f64 w (sqrt.f64 #s(literal -1 binary64))) #s(literal 3 binary64))))) (+.f64 (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 c0 M) (/.f64 (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 h h))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64))))) (.f64 (.f64 w w) (sqrt.f64 #s(literal -1 binary64)))))) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 M (.f64 c0 (sqrt.f64 #s(literal -1 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 c0 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 M (sqrt.f64 #s(literal -1 binary64))))) (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (.f64 d d) h)))) w))))) w))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (/.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 M (.f64 c0 (sqrt.f64 #s(literal -1 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 c0 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 M (sqrt.f64 #s(literal -1 binary64))))) (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (*.f64 d d) h)))) w))) w))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (/.f64 (+.f64 (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 c0 M) (/.f64 (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 h h))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64))))) (.f64 (.f64 w w) (sqrt.f64 #s(literal -1 binary64)))))) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 M (.f64 c0 (sqrt.f64 #s(literal -1 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 c0 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 M (sqrt.f64 #s(literal -1 binary64))))) (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (.f64 d d) h)))) w)))) w))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (/.f64 (+.f64 (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 c0 (pow.f64 M #s(literal 3 binary64))) (/.f64 (.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 h h))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64)))))) (pow.f64 (.f64 w (sqrt.f64 #s(literal -1 binary64))) #s(literal 3 binary64))))) (+.f64 (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 c0 M) (/.f64 (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 h h))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64))))) (.f64 (.f64 w w) (sqrt.f64 #s(literal -1 binary64)))))) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 M (.f64 c0 (sqrt.f64 #s(literal -1 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 c0 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 M (sqrt.f64 #s(literal -1 binary64))))) (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (.f64 d d) h)))) w))))) w))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) (+.f64 (.f64 M (.f64 c0 (sqrt.f64 #s(literal -1 binary64)))) (/.f64 (.f64 c0 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 M (sqrt.f64 #s(literal -1 binary64))))) (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (*.f64 d d) h)))) w)))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 c0 M) (/.f64 (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 h h))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64))))) (.f64 (.f64 w w) (sqrt.f64 #s(literal -1 binary64)))))) (+.f64 (.f64 M (.f64 c0 (sqrt.f64 #s(literal -1 binary64)))) (/.f64 (.f64 c0 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 M (sqrt.f64 #s(literal -1 binary64))))) (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (.f64 d d) h)))) w))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) (+.f64 (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 c0 (pow.f64 M #s(literal 3 binary64))) (/.f64 (.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 h h))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64)))))) (pow.f64 (.f64 w (sqrt.f64 #s(literal -1 binary64))) #s(literal 3 binary64))))) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 c0 M) (/.f64 (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 h h))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64))))) (.f64 (.f64 w w) (sqrt.f64 #s(literal -1 binary64)))))) (+.f64 (.f64 M (.f64 c0 (sqrt.f64 #s(literal -1 binary64)))) (/.f64 (.f64 c0 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 M (sqrt.f64 #s(literal -1 binary64))))) (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (.f64 d d) h)))) w)))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M)))) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 M (.f64 w (sqrt.f64 #s(literal -1 binary64)))))) (+.f64 (.f64 M (sqrt.f64 #s(literal -1 binary64))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M)))) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 M (.f64 w (sqrt.f64 #s(literal -1 binary64)))))) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 h h))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64))))) (.f64 M (.f64 (.f64 w w) (sqrt.f64 #s(literal -1 binary64)))))) (+.f64 (.f64 M (sqrt.f64 #s(literal -1 binary64))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (*.f64 h w)))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M)))) (+.f64 (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (pow.f64 M #s(literal 3 binary64))) (/.f64 (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 h h))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64))))) (pow.f64 (.f64 w (sqrt.f64 #s(literal -1 binary64))) #s(literal 3 binary64))))) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 M (.f64 w (sqrt.f64 #s(literal -1 binary64)))))) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 h h))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64))))) (.f64 M (.f64 (.f64 w w) (sqrt.f64 #s(literal -1 binary64)))))) (+.f64 (.f64 M (sqrt.f64 #s(literal -1 binary64))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 M (.f64 w (sqrt.f64 #s(literal -1 binary64)))))) (*.f64 M (sqrt.f64 #s(literal -1 binary64)))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 M (.f64 w (sqrt.f64 #s(literal -1 binary64)))))) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 h h))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64))))) (.f64 M (.f64 (.f64 w w) (sqrt.f64 #s(literal -1 binary64)))))) (.f64 M (sqrt.f64 #s(literal -1 binary64))))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))) (+.f64 (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (pow.f64 M #s(literal 3 binary64))) (/.f64 (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 h h))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64))))) (pow.f64 (.f64 w (sqrt.f64 #s(literal -1 binary64))) #s(literal 3 binary64))))) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 M (.f64 w (sqrt.f64 #s(literal -1 binary64)))))) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 h h))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64))))) (.f64 M (.f64 (.f64 w w) (sqrt.f64 #s(literal -1 binary64)))))) (*.f64 M (sqrt.f64 #s(literal -1 binary64)))))))
#s(approx (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (.f64 (.f64 w w) (+.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 D D) (.f64 (.f64 M M) h)) (.f64 d d))) (.f64 (ratio-of-squares.f64 c0 D) (.f64 (/.f64 d h) (/.f64 d (*.f64 w w)))))))
#s(approx (* h (+ (* -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h h))))) (.f64 (.f64 w w) (+.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 D D) (.f64 (.f64 M M) h)) (.f64 d d))) (.f64 (ratio-of-squares.f64 c0 D) (.f64 (/.f64 d h) (/.f64 d (*.f64 w w)))))))
#s(approx (+ (* -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h h)))) (.f64 (.f64 w w) (+.f64 (.f64 #s(literal -1/4 binary64) (ratio-of-squares.f64 (.f64 D M) d)) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) (pow.f64 (*.f64 h w) #s(literal 2 binary64)))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 M (.f64 c0 (sqrt.f64 #s(literal -1 binary64))))) (.f64 #s(literal -1/2 binary64) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) (.f64 h w))))) w)))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (pow.f64 c0 #s(literal 3 binary64)) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 M (.f64 (.f64 h h) (.f64 w (sqrt.f64 #s(literal -1 binary64)))))))) (.f64 #s(literal 1/2 binary64) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) h)))) w)) (.f64 #s(literal -1/2 binary64) (.f64 M (.f64 c0 (sqrt.f64 #s(literal -1 binary64)))))) w)))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (pow.f64 c0 #s(literal 3 binary64)) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 M (.f64 (.f64 h h) (sqrt.f64 #s(literal -1 binary64))))))) (.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (pow.f64 c0 #s(literal 5 binary64)) (pow.f64 D #s(literal 8 binary64))) (/.f64 (pow.f64 d #s(literal 8 binary64)) (.f64 (pow.f64 M #s(literal 3 binary64)) (.f64 (pow.f64 h #s(literal 4 binary64)) (.f64 (.f64 w w) (pow.f64 #s(literal -1 binary64) #s(literal 3/2 binary64))))))))) w)) (.f64 #s(literal 1/2 binary64) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) h)))) w)) (.f64 #s(literal -1/2 binary64) (.f64 M (.f64 c0 (sqrt.f64 #s(literal -1 binary64)))))) w)))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (.f64 d d) h))) (.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 M (.f64 (.f64 h h) (.f64 w (sqrt.f64 #s(literal -1 binary64))))))))) w)) (*.f64 M (sqrt.f64 #s(literal -1 binary64)))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (.f64 d d) h))) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (pow.f64 c0 #s(literal 4 binary64)) (pow.f64 D #s(literal 8 binary64))) (/.f64 (pow.f64 d #s(literal 8 binary64)) (.f64 (pow.f64 M #s(literal 3 binary64)) (.f64 (pow.f64 h #s(literal 4 binary64)) (.f64 (.f64 w w) (pow.f64 #s(literal -1 binary64) #s(literal 3/2 binary64)))))))) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 M (.f64 (.f64 h h) (sqrt.f64 #s(literal -1 binary64)))))))) w))) w)) (*.f64 M (sqrt.f64 #s(literal -1 binary64)))))
#s(approx (* c0 (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w)))))) (.f64 #s(literal -1 binary64) (.f64 w (+.f64 (.f64 #s(literal -2 binary64) (.f64 (/.f64 c0 (.f64 D D)) (.f64 (/.f64 d h) (/.f64 d (.f64 w w))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 D D) (.f64 (.f64 M M) h)) (.f64 c0 (.f64 d d))))))))
#s(approx (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w))))) (.f64 #s(literal -1 binary64) (.f64 w (+.f64 (.f64 #s(literal -2 binary64) (/.f64 (.f64 d d) (.f64 (.f64 D D) (.f64 h (.f64 w w))))) (.f64 #s(literal 1/2 binary64) (.f64 (ratio-of-squares.f64 D c0) (/.f64 (.f64 (.f64 M M) h) (*.f64 d d))))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 M (.f64 c0 (sqrt.f64 #s(literal -1 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 c0 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (.f64 d d) h))) (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (*.f64 M (sqrt.f64 #s(literal -1 binary64))))))) w))) w)))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 c0 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (.f64 d d) h))) (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 M (sqrt.f64 #s(literal -1 binary64)))))))) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 c0 M) (/.f64 (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 h h))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64))))) (.f64 w (sqrt.f64 #s(literal -1 binary64))))))) w)) (.f64 #s(literal -1/2 binary64) (.f64 M (.f64 c0 (sqrt.f64 #s(literal -1 binary64)))))) w)))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 c0 M) (/.f64 (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 h h))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64))))) (sqrt.f64 #s(literal -1 binary64))))) (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 c0 (pow.f64 M #s(literal 3 binary64))) (/.f64 (.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 h h))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64)))))) (.f64 w (pow.f64 #s(literal -1 binary64) #s(literal 3/2 binary64))))))) w)) (.f64 #s(literal -1/2 binary64) (.f64 c0 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (.f64 d d) h))) (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 M (sqrt.f64 #s(literal -1 binary64))))))))) w)) (.f64 #s(literal -1/2 binary64) (.f64 M (.f64 c0 (sqrt.f64 #s(literal -1 binary64)))))) w)))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 M (.f64 c0 (sqrt.f64 #s(literal -1 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 c0 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (.f64 d d) h))) (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (*.f64 M (sqrt.f64 #s(literal -1 binary64))))))) w))) w)))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 c0 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (.f64 d d) h))) (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 M (sqrt.f64 #s(literal -1 binary64)))))))) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 c0 M) (/.f64 (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 h h))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64))))) (.f64 w (sqrt.f64 #s(literal -1 binary64))))))) w)) (.f64 #s(literal -1/2 binary64) (.f64 M (.f64 c0 (sqrt.f64 #s(literal -1 binary64)))))) w)))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 c0 M) (/.f64 (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 h h))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64))))) (sqrt.f64 #s(literal -1 binary64))))) (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 c0 (pow.f64 M #s(literal 3 binary64))) (/.f64 (.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 h h))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64)))))) (.f64 w (pow.f64 #s(literal -1 binary64) #s(literal 3/2 binary64))))))) w)) (.f64 #s(literal -1/2 binary64) (.f64 c0 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (.f64 d d) h))) (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 M (sqrt.f64 #s(literal -1 binary64))))))))) w)) (.f64 #s(literal -1/2 binary64) (.f64 M (.f64 c0 (sqrt.f64 #s(literal -1 binary64)))))) w)))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (.f64 d d) h))) (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 M (sqrt.f64 #s(literal -1 binary64))))))) w)) (.f64 M (*.f64 c0 (sqrt.f64 #s(literal -1 binary64))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (/.f64 c0 M) (/.f64 (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 h h))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64))))) (.f64 w (sqrt.f64 #s(literal -1 binary64)))))) (.f64 c0 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (.f64 d d) h))) (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 M (sqrt.f64 #s(literal -1 binary64)))))))) w)) (.f64 M (*.f64 c0 (sqrt.f64 #s(literal -1 binary64))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 c0 (pow.f64 M #s(literal 3 binary64))) (/.f64 (.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 h h))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64)))))) (.f64 w (pow.f64 #s(literal -1 binary64) #s(literal 3/2 binary64)))))) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 c0 M) (/.f64 (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 h h))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64))))) (sqrt.f64 #s(literal -1 binary64)))))) w)) (.f64 c0 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (.f64 d d) h))) (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 M (sqrt.f64 #s(literal -1 binary64)))))))) w)) (.f64 M (*.f64 c0 (sqrt.f64 #s(literal -1 binary64))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M)))) (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (.f64 d d) h))) (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 M (sqrt.f64 #s(literal -1 binary64)))))) w)) (*.f64 M (sqrt.f64 #s(literal -1 binary64)))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M)))) (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (.f64 d d) h))) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 h h))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64))))) (.f64 M (.f64 w (sqrt.f64 #s(literal -1 binary64)))))) (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 M (sqrt.f64 #s(literal -1 binary64))))))) w)) (*.f64 M (sqrt.f64 #s(literal -1 binary64)))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M)))) (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (.f64 d d) h))) (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (pow.f64 M #s(literal 3 binary64))) (/.f64 (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 h h))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64))))) (.f64 w (pow.f64 #s(literal -1 binary64) #s(literal 3/2 binary64)))))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 h h))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64))))) (.f64 M (sqrt.f64 #s(literal -1 binary64)))))) w)) (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 M (sqrt.f64 #s(literal -1 binary64))))))) w)) (.f64 M (sqrt.f64 #s(literal -1 binary64)))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 M (.f64 w (sqrt.f64 #s(literal -1 binary64)))))) (*.f64 M (sqrt.f64 #s(literal -1 binary64)))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))) (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 h h))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64))))) (.f64 M (.f64 w (sqrt.f64 #s(literal -1 binary64)))))) (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 M (sqrt.f64 #s(literal -1 binary64)))))) w)) (*.f64 M (sqrt.f64 #s(literal -1 binary64)))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))) (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (pow.f64 M #s(literal 3 binary64))) (/.f64 (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 h h))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64))))) (.f64 w (pow.f64 #s(literal -1 binary64) #s(literal 3/2 binary64)))))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 h h))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64))))) (.f64 M (sqrt.f64 #s(literal -1 binary64)))))) w)) (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) h))) (.f64 M (sqrt.f64 #s(literal -1 binary64)))))) w)) (.f64 M (sqrt.f64 #s(literal -1 binary64)))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (/.f64 (+.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 D D) (pow.f64 (.f64 M h) #s(literal 2 binary64))) (.f64 d d))) (.f64 (ratio-of-squares.f64 c0 D) (ratio-of-squares.f64 d w))) h))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (/.f64 (+.f64 (.f64 (.f64 h h) (+.f64 (.f64 #s(literal -1/4 binary64) (ratio-of-squares.f64 (.f64 D M) d)) (.f64 #s(literal -1/16 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (.f64 c0 c0)) (/.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (pow.f64 (.f64 h w) #s(literal 2 binary64))) (pow.f64 d #s(literal 6 binary64))))))) (.f64 (ratio-of-squares.f64 c0 D) (ratio-of-squares.f64 d w))) h))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (/.f64 (+.f64 (.f64 (.f64 h h) (+.f64 (.f64 #s(literal -1/4 binary64) (ratio-of-squares.f64 (.f64 D M) d)) (.f64 (.f64 h h) (+.f64 (.f64 #s(literal -1/16 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (.f64 c0 c0)) (/.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (.f64 w w)) (pow.f64 d #s(literal 6 binary64))))) (.f64 #s(literal -1/32 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 10 binary64)) (pow.f64 c0 #s(literal 4 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 6 binary64)) (.f64 (.f64 h h) (pow.f64 w #s(literal 4 binary64)))) (pow.f64 d #s(literal 10 binary64))))))))) (*.f64 (ratio-of-squares.f64 c0 D) (ratio-of-squares.f64 d w))) h))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (/.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 D D) (.f64 (.f64 M M) (.f64 (.f64 h h) w))) (.f64 c0 (.f64 d d)))) (.f64 #s(literal 2 binary64) (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (*.f64 d d) w)))) h))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (/.f64 (+.f64 (.f64 #s(literal 2 binary64) (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (.f64 d d) w))) (.f64 (.f64 h h) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 D D) (.f64 (.f64 M M) w)) (.f64 c0 (.f64 d d)))) (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (pow.f64 c0 #s(literal 3 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (.f64 (.f64 h h) (pow.f64 w #s(literal 3 binary64)))) (pow.f64 d #s(literal 6 binary64)))))))) h))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (/.f64 (+.f64 (.f64 #s(literal 2 binary64) (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (.f64 d d) w))) (.f64 (.f64 h h) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 D D) (.f64 (.f64 M M) w)) (.f64 c0 (.f64 d d)))) (.f64 (.f64 h h) (+.f64 (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (pow.f64 c0 #s(literal 3 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (pow.f64 w #s(literal 3 binary64))) (pow.f64 d #s(literal 6 binary64))))) (.f64 #s(literal -1/16 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 10 binary64)) (pow.f64 c0 #s(literal 5 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 6 binary64)) (.f64 (*.f64 h h) (pow.f64 w #s(literal 5 binary64)))) (pow.f64 d #s(literal 10 binary64)))))))))) h))
#s(approx (* c0 (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w)))))) (/.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 D D) (.f64 (.f64 M M) (.f64 (.f64 h h) w))) (.f64 c0 (.f64 d d)))) (.f64 #s(literal 2 binary64) (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (*.f64 d d) w)))) h))
#s(approx (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w))))) (/.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (ratio-of-squares.f64 D c0) (/.f64 (.f64 (.f64 M M) (.f64 (.f64 h h) w)) (.f64 d d)))) (.f64 #s(literal 2 binary64) (/.f64 (.f64 d d) (.f64 (*.f64 D D) w)))) h))
#s(approx h h)
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (/.f64 (+.f64 (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (.f64 D D) (.f64 h (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))))) (.f64 d d))) (*.f64 (ratio-of-squares.f64 c0 D) (ratio-of-squares.f64 d w))) h))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (/.f64 (+.f64 (.f64 h (+.f64 (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (.f64 D D) (.f64 h (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 c0 c0)) (/.f64 (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w)))) #s(literal 2 binary64)) (pow.f64 d #s(literal 4 binary64)))))))) (.f64 d d))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (.f64 D D) (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w)))) (.f64 d d))))) (*.f64 (ratio-of-squares.f64 c0 D) (ratio-of-squares.f64 d w))) h))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (/.f64 (+.f64 (.f64 h (+.f64 (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (.f64 D D) (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w)))) (.f64 d d))) (.f64 h (+.f64 (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (.f64 c0 c0)) (/.f64 (.f64 h (.f64 (.f64 w w) (.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 c0 c0)) (/.f64 (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w)))) #s(literal 2 binary64)) (pow.f64 d #s(literal 4 binary64))))))))) (pow.f64 d #s(literal 6 binary64))))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (.f64 D D) (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 c0 c0)) (/.f64 (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w)))) #s(literal 2 binary64)) (pow.f64 d #s(literal 4 binary64))))))) (.f64 d d))))))) (.f64 (ratio-of-squares.f64 c0 D) (ratio-of-squares.f64 d w))) h))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (/.f64 (+.f64 (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (.f64 D D) (.f64 h (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))))) (.f64 d d))) (*.f64 (ratio-of-squares.f64 c0 D) (ratio-of-squares.f64 d w))) h))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (/.f64 (+.f64 (.f64 h (+.f64 (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (.f64 D D) (.f64 h (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 c0 c0)) (/.f64 (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w)))) #s(literal 2 binary64)) (pow.f64 d #s(literal 4 binary64)))))))) (.f64 d d))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (.f64 D D) (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w)))) (.f64 d d))))) (*.f64 (ratio-of-squares.f64 c0 D) (ratio-of-squares.f64 d w))) h))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (/.f64 (+.f64 (.f64 h (+.f64 (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (.f64 D D) (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w)))) (.f64 d d))) (.f64 h (+.f64 (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (.f64 c0 c0)) (/.f64 (.f64 h (.f64 (.f64 w w) (.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 c0 c0)) (/.f64 (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w)))) #s(literal 2 binary64)) (pow.f64 d #s(literal 4 binary64))))))))) (pow.f64 d #s(literal 6 binary64))))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (.f64 D D) (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 c0 c0)) (/.f64 (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w)))) #s(literal 2 binary64)) (pow.f64 d #s(literal 4 binary64))))))) (.f64 d d))))))) (.f64 (ratio-of-squares.f64 c0 D) (ratio-of-squares.f64 d w))) h))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) (/.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 D D) (.f64 h (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w)))))) (.f64 d d))) (.f64 #s(literal 2 binary64) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) w)))) h))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) (/.f64 (+.f64 (.f64 #s(literal 2 binary64) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) w))) (.f64 h (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 D D) (.f64 h (.f64 w (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 c0 c0)) (/.f64 (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w)))) #s(literal 2 binary64)) (pow.f64 d #s(literal 4 binary64))))))))) (.f64 d d))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 D D) (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))))) (*.f64 d d)))))) h))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) (/.f64 (+.f64 (.f64 #s(literal 2 binary64) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) w))) (.f64 h (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 D D) (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))))) (.f64 d d))) (.f64 h (+.f64 (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (.f64 c0 c0)) (/.f64 (.f64 h (.f64 (pow.f64 w #s(literal 3 binary64)) (.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 c0 c0)) (/.f64 (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w)))) #s(literal 2 binary64)) (pow.f64 d #s(literal 4 binary64))))))))) (pow.f64 d #s(literal 6 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 D D) (.f64 w (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 c0 c0)) (/.f64 (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w)))) #s(literal 2 binary64)) (pow.f64 d #s(literal 4 binary64)))))))) (*.f64 d d)))))))) h))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M)))) (/.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 D D) c0) (/.f64 (.f64 h (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))))) (.f64 d d)))) (.f64 #s(literal 2 binary64) (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (*.f64 d d) w)))) h))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M)))) (/.f64 (+.f64 (.f64 #s(literal 2 binary64) (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (.f64 d d) w))) (.f64 h (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 D D) c0) (/.f64 (.f64 h (.f64 w (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 c0 c0)) (/.f64 (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w)))) #s(literal 2 binary64)) (pow.f64 d #s(literal 4 binary64)))))))) (.f64 d d)))) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 D D) c0) (/.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w)))) (.f64 d d))))))) h))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M)))) (/.f64 (+.f64 (.f64 #s(literal 2 binary64) (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (.f64 d d) w))) (.f64 h (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 D D) c0) (/.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w)))) (.f64 d d)))) (.f64 h (+.f64 (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (pow.f64 c0 #s(literal 3 binary64))) (/.f64 (.f64 h (.f64 (pow.f64 w #s(literal 3 binary64)) (.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 c0 c0)) (/.f64 (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w)))) #s(literal 2 binary64)) (pow.f64 d #s(literal 4 binary64))))))))) (pow.f64 d #s(literal 6 binary64))))) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 D D) c0) (/.f64 (.f64 w (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 c0 c0)) (/.f64 (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w)))) #s(literal 2 binary64)) (pow.f64 d #s(literal 4 binary64))))))) (*.f64 d d))))))))) h))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))) (/.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 D D) c0) (/.f64 (.f64 h (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))))) (.f64 d d)))) (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (.f64 d d) w))) h))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))) (/.f64 (+.f64 (.f64 h (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 D D) c0) (/.f64 (.f64 h (.f64 w (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 c0 c0)) (/.f64 (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w)))) #s(literal 2 binary64)) (pow.f64 d #s(literal 4 binary64)))))))) (.f64 d d)))) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 D D) c0) (/.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w)))) (.f64 d d)))))) (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (*.f64 d d) w))) h))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))) (/.f64 (+.f64 (.f64 h (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 D D) c0) (/.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w)))) (.f64 d d)))) (.f64 h (+.f64 (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (pow.f64 c0 #s(literal 3 binary64))) (/.f64 (.f64 h (.f64 (pow.f64 w #s(literal 3 binary64)) (.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 c0 c0)) (/.f64 (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w)))) #s(literal 2 binary64)) (pow.f64 d #s(literal 4 binary64))))))))) (pow.f64 d #s(literal 6 binary64))))) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 D D) c0) (/.f64 (.f64 w (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 c0 c0)) (/.f64 (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w)))) #s(literal 2 binary64)) (pow.f64 d #s(literal 4 binary64))))))) (.f64 d d)))))))) (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (.f64 d d) w))) h))
#s(approx (/ (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (* w w)) (/.f64 (+.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 D D) (pow.f64 (.f64 M h) #s(literal 2 binary64))) (.f64 d d))) (.f64 (ratio-of-squares.f64 c0 D) (ratio-of-squares.f64 d w))) h))
#s(approx (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (/.f64 (+.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 D D) (.f64 (.f64 M M) (pow.f64 (.f64 h w) #s(literal 2 binary64)))) (.f64 d d))) (/.f64 (pow.f64 (.f64 c0 d) #s(literal 2 binary64)) (*.f64 D D))) h))
#s(approx (* h (+ (* -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h h))))) (/.f64 (+.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 D D) (.f64 (.f64 M M) (pow.f64 (.f64 h w) #s(literal 2 binary64)))) (.f64 d d))) (/.f64 (pow.f64 (.f64 c0 d) #s(literal 2 binary64)) (*.f64 D D))) h))
#s(approx (+ (* -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h h)))) (/.f64 (+.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 D D) (.f64 (.f64 M M) (pow.f64 (.f64 h w) #s(literal 2 binary64)))) (.f64 d d))) (/.f64 (pow.f64 (.f64 c0 d) #s(literal 2 binary64)) (.f64 D D))) (.f64 h h)))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 M (.f64 c0 (sqrt.f64 #s(literal -1 binary64)))) w)) (.f64 #s(literal 1/2 binary64) (.f64 (ratio-of-squares.f64 c0 D) (.f64 (/.f64 d h) (/.f64 d (*.f64 w w)))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (+.f64 (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (pow.f64 c0 #s(literal 3 binary64)) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 M (.f64 (.f64 h h) (.f64 (pow.f64 w #s(literal 3 binary64)) (sqrt.f64 #s(literal -1 binary64)))))))) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 M (.f64 c0 (sqrt.f64 #s(literal -1 binary64)))) w)) (.f64 #s(literal 1/2 binary64) (.f64 (ratio-of-squares.f64 c0 D) (.f64 (/.f64 d h) (/.f64 d (*.f64 w w))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (+.f64 (.f64 #s(literal -1/16 binary64) (.f64 (/.f64 (pow.f64 c0 #s(literal 5 binary64)) (pow.f64 D #s(literal 8 binary64))) (/.f64 (pow.f64 d #s(literal 8 binary64)) (.f64 (pow.f64 M #s(literal 3 binary64)) (.f64 (pow.f64 h #s(literal 4 binary64)) (.f64 (pow.f64 w #s(literal 5 binary64)) (pow.f64 #s(literal -1 binary64) #s(literal 3/2 binary64)))))))) (+.f64 (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (pow.f64 c0 #s(literal 3 binary64)) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 M (.f64 (.f64 h h) (.f64 (pow.f64 w #s(literal 3 binary64)) (sqrt.f64 #s(literal -1 binary64)))))))) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 M (.f64 c0 (sqrt.f64 #s(literal -1 binary64)))) w)) (.f64 #s(literal 1/2 binary64) (.f64 (ratio-of-squares.f64 c0 D) (.f64 (/.f64 d h) (/.f64 d (.f64 w w)))))))))
#s(approx (* c0 (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w)))))) (.f64 h (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 D D) (.f64 (.f64 M M) w)) (.f64 c0 (.f64 d d)))) (.f64 #s(literal 2 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 (*.f64 h h) w)))))))
#s(approx (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w))))) (.f64 h (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (ratio-of-squares.f64 D c0) (/.f64 (.f64 (.f64 M M) w) (.f64 d d)))) (.f64 #s(literal 2 binary64) (/.f64 (.f64 d d) (.f64 (.f64 D D) (.f64 (.f64 h h) w)))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 M (.f64 c0 (sqrt.f64 #s(literal -1 binary64)))) w)) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 c0 h) (/.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 M (sqrt.f64 #s(literal -1 binary64))))) (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (*.f64 d d) w))) w)))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (+.f64 (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 c0 M) (/.f64 (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 w w))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64))))) (.f64 (.f64 h h) (.f64 w (sqrt.f64 #s(literal -1 binary64))))))) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 M (.f64 c0 (sqrt.f64 #s(literal -1 binary64)))) w)) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 c0 h) (/.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 M (sqrt.f64 #s(literal -1 binary64))))) (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (*.f64 d d) w))) w))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (+.f64 (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 c0 (pow.f64 M #s(literal 3 binary64))) (/.f64 (.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 w w))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64)))))) (.f64 (pow.f64 h #s(literal 3 binary64)) (.f64 w (pow.f64 #s(literal -1 binary64) #s(literal 3/2 binary64))))))) (+.f64 (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 c0 M) (/.f64 (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 w w))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64))))) (.f64 (.f64 h h) (.f64 w (sqrt.f64 #s(literal -1 binary64))))))) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 M (.f64 c0 (sqrt.f64 #s(literal -1 binary64)))) w)) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 c0 h) (/.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 M (sqrt.f64 #s(literal -1 binary64))))) (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (.f64 d d) w))) w)))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 M (.f64 c0 (sqrt.f64 #s(literal -1 binary64)))) w)) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 c0 h) (/.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 M (sqrt.f64 #s(literal -1 binary64))))) (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (*.f64 d d) w))) w)))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (+.f64 (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 c0 M) (/.f64 (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 w w))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64))))) (.f64 (.f64 h h) (.f64 w (sqrt.f64 #s(literal -1 binary64))))))) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 M (.f64 c0 (sqrt.f64 #s(literal -1 binary64)))) w)) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 c0 h) (/.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 M (sqrt.f64 #s(literal -1 binary64))))) (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (*.f64 d d) w))) w))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (+.f64 (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 c0 (pow.f64 M #s(literal 3 binary64))) (/.f64 (.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 w w))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64)))))) (.f64 (pow.f64 h #s(literal 3 binary64)) (.f64 w (pow.f64 #s(literal -1 binary64) #s(literal 3/2 binary64))))))) (+.f64 (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 c0 M) (/.f64 (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 w w))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64))))) (.f64 (.f64 h h) (.f64 w (sqrt.f64 #s(literal -1 binary64))))))) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 M (.f64 c0 (sqrt.f64 #s(literal -1 binary64)))) w)) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 c0 h) (/.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 M (sqrt.f64 #s(literal -1 binary64))))) (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (.f64 d d) w))) w)))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) (+.f64 (.f64 M (.f64 c0 (sqrt.f64 #s(literal -1 binary64)))) (/.f64 (.f64 c0 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 M (sqrt.f64 #s(literal -1 binary64))))) (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (*.f64 d d) w)))) h)))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 c0 M) (/.f64 (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 w w))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64))))) (.f64 (.f64 h h) (sqrt.f64 #s(literal -1 binary64)))))) (+.f64 (.f64 M (.f64 c0 (sqrt.f64 #s(literal -1 binary64)))) (/.f64 (.f64 c0 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 M (sqrt.f64 #s(literal -1 binary64))))) (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (.f64 d d) w)))) h))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) (+.f64 (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 c0 (pow.f64 M #s(literal 3 binary64))) (/.f64 (.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 w w))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64)))))) (pow.f64 (.f64 h (sqrt.f64 #s(literal -1 binary64))) #s(literal 3 binary64))))) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 c0 M) (/.f64 (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 w w))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64))))) (.f64 (.f64 h h) (sqrt.f64 #s(literal -1 binary64)))))) (+.f64 (.f64 M (.f64 c0 (sqrt.f64 #s(literal -1 binary64)))) (/.f64 (.f64 c0 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 M (sqrt.f64 #s(literal -1 binary64))))) (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (.f64 d d) w)))) h)))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M)))) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 M (.f64 h (sqrt.f64 #s(literal -1 binary64)))))) (+.f64 (.f64 M (sqrt.f64 #s(literal -1 binary64))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M)))) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 M (.f64 h (sqrt.f64 #s(literal -1 binary64)))))) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 w w))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64))))) (.f64 M (.f64 (.f64 h h) (sqrt.f64 #s(literal -1 binary64)))))) (+.f64 (.f64 M (sqrt.f64 #s(literal -1 binary64))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (*.f64 h w)))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M)))) (+.f64 (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (pow.f64 M #s(literal 3 binary64))) (/.f64 (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 w w))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64))))) (pow.f64 (.f64 h (sqrt.f64 #s(literal -1 binary64))) #s(literal 3 binary64))))) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 M (.f64 h (sqrt.f64 #s(literal -1 binary64)))))) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 w w))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64))))) (.f64 M (.f64 (.f64 h h) (sqrt.f64 #s(literal -1 binary64)))))) (+.f64 (.f64 M (sqrt.f64 #s(literal -1 binary64))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 M (.f64 h (sqrt.f64 #s(literal -1 binary64)))))) (*.f64 M (sqrt.f64 #s(literal -1 binary64)))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 M (.f64 h (sqrt.f64 #s(literal -1 binary64)))))) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 w w))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64))))) (.f64 M (.f64 (.f64 h h) (sqrt.f64 #s(literal -1 binary64)))))) (.f64 M (sqrt.f64 #s(literal -1 binary64))))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))) (+.f64 (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (pow.f64 M #s(literal 3 binary64))) (/.f64 (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 w w))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64))))) (pow.f64 (.f64 h (sqrt.f64 #s(literal -1 binary64))) #s(literal 3 binary64))))) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 M (.f64 h (sqrt.f64 #s(literal -1 binary64)))))) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 w w))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64))))) (.f64 M (.f64 (.f64 h h) (sqrt.f64 #s(literal -1 binary64)))))) (*.f64 M (sqrt.f64 #s(literal -1 binary64)))))))
#s(approx (/ (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (* w w)) (.f64 h (+.f64 (.f64 #s(literal -1/4 binary64) (ratio-of-squares.f64 (.f64 D M) d)) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) (pow.f64 (.f64 h w) #s(literal 2 binary64)))))))
#s(approx (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (.f64 h (+.f64 (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (.f64 D D) d) (/.f64 (pow.f64 (.f64 M w) #s(literal 2 binary64)) d))) (.f64 (ratio-of-squares.f64 c0 D) (ratio-of-squares.f64 d h)))))
#s(approx (* h (+ (* -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h h))))) (.f64 h (+.f64 (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (.f64 D D) d) (/.f64 (pow.f64 (.f64 M w) #s(literal 2 binary64)) d))) (.f64 (ratio-of-squares.f64 c0 D) (ratio-of-squares.f64 d h)))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (ratio-of-squares.f64 c0 D) (ratio-of-squares.f64 d w))) (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (pow.f64 c0 #s(literal 3 binary64)) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 M (.f64 h (.f64 (pow.f64 w #s(literal 3 binary64)) (sqrt.f64 #s(literal -1 binary64))))))))) h)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 M (*.f64 c0 (sqrt.f64 #s(literal -1 binary64)))) w))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1/16 binary64) (.f64 (/.f64 (pow.f64 c0 #s(literal 5 binary64)) (pow.f64 D #s(literal 8 binary64))) (/.f64 (pow.f64 d #s(literal 8 binary64)) (.f64 (pow.f64 M #s(literal 3 binary64)) (.f64 (.f64 h h) (.f64 (pow.f64 w #s(literal 5 binary64)) (pow.f64 #s(literal -1 binary64) #s(literal 3/2 binary64)))))))) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (pow.f64 c0 #s(literal 3 binary64)) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 M (.f64 (pow.f64 w #s(literal 3 binary64)) (sqrt.f64 #s(literal -1 binary64)))))))) h)) (.f64 #s(literal -1/2 binary64) (.f64 (ratio-of-squares.f64 c0 D) (ratio-of-squares.f64 d w)))) h)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 M (*.f64 c0 (sqrt.f64 #s(literal -1 binary64)))) w))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (.f64 d d) w))) (.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 M (.f64 h (.f64 (.f64 w w) (sqrt.f64 #s(literal -1 binary64))))))))) h)) (*.f64 M (sqrt.f64 #s(literal -1 binary64)))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (.f64 d d) w))) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (pow.f64 c0 #s(literal 4 binary64)) (pow.f64 D #s(literal 8 binary64))) (/.f64 (pow.f64 d #s(literal 8 binary64)) (.f64 (pow.f64 M #s(literal 3 binary64)) (.f64 (.f64 h h) (.f64 (pow.f64 w #s(literal 4 binary64)) (pow.f64 #s(literal -1 binary64) #s(literal 3/2 binary64)))))))) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 M (.f64 (.f64 w w) (sqrt.f64 #s(literal -1 binary64)))))))) h))) h)) (*.f64 M (sqrt.f64 #s(literal -1 binary64)))))
#s(approx (* c0 (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w)))))) (.f64 #s(literal -1 binary64) (.f64 h (+.f64 (.f64 #s(literal -2 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 (.f64 h h) w)))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 D D) (.f64 (.f64 M M) w)) (.f64 c0 (.f64 d d))))))))
#s(approx (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w))))) (.f64 #s(literal -1 binary64) (.f64 h (+.f64 (.f64 #s(literal -2 binary64) (/.f64 (.f64 d d) (.f64 (.f64 D D) (.f64 (.f64 h h) w)))) (.f64 #s(literal 1/2 binary64) (.f64 (ratio-of-squares.f64 D c0) (/.f64 (.f64 (.f64 M M) w) (*.f64 d d))))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (/.f64 c0 h) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (.f64 d d) w))) (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 M (sqrt.f64 #s(literal -1 binary64)))))) w))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 M (.f64 c0 (sqrt.f64 #s(literal -1 binary64)))) w))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 c0 M) (/.f64 (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 w w))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64))))) (.f64 h (.f64 w (sqrt.f64 #s(literal -1 binary64))))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 c0 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (.f64 d d) w))) (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 M (sqrt.f64 #s(literal -1 binary64))))))) w))) h)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 M (.f64 c0 (sqrt.f64 #s(literal -1 binary64)))) w))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal 1/8 binary64) (.f64 (/.f64 c0 (pow.f64 M #s(literal 3 binary64))) (/.f64 (.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 w w))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64)))))) (.f64 h (.f64 w (pow.f64 #s(literal -1 binary64) #s(literal 3/2 binary64))))))) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 c0 M) (/.f64 (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 w w))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64))))) (.f64 w (sqrt.f64 #s(literal -1 binary64))))))) h)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 c0 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (.f64 d d) w))) (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 M (sqrt.f64 #s(literal -1 binary64))))))) w))) h)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 M (*.f64 c0 (sqrt.f64 #s(literal -1 binary64)))) w))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (/.f64 c0 h) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (.f64 d d) w))) (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 M (sqrt.f64 #s(literal -1 binary64)))))) w))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 M (.f64 c0 (sqrt.f64 #s(literal -1 binary64)))) w))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 c0 M) (/.f64 (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 w w))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64))))) (.f64 h (.f64 w (sqrt.f64 #s(literal -1 binary64))))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 c0 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (.f64 d d) w))) (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 M (sqrt.f64 #s(literal -1 binary64))))))) w))) h)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 M (.f64 c0 (sqrt.f64 #s(literal -1 binary64)))) w))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal 1/8 binary64) (.f64 (/.f64 c0 (pow.f64 M #s(literal 3 binary64))) (/.f64 (.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 w w))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64)))))) (.f64 h (.f64 w (pow.f64 #s(literal -1 binary64) #s(literal 3/2 binary64))))))) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 c0 M) (/.f64 (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 w w))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64))))) (.f64 w (sqrt.f64 #s(literal -1 binary64))))))) h)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 c0 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (.f64 d d) w))) (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 M (sqrt.f64 #s(literal -1 binary64))))))) w))) h)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 M (*.f64 c0 (sqrt.f64 #s(literal -1 binary64)))) w))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (.f64 d d) w))) (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 M (sqrt.f64 #s(literal -1 binary64))))))) h)) (.f64 M (*.f64 c0 (sqrt.f64 #s(literal -1 binary64))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (/.f64 c0 M) (/.f64 (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 w w))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64))))) (.f64 h (sqrt.f64 #s(literal -1 binary64)))))) (.f64 c0 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (.f64 d d) w))) (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 M (sqrt.f64 #s(literal -1 binary64)))))))) h)) (.f64 M (*.f64 c0 (sqrt.f64 #s(literal -1 binary64))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 c0 (pow.f64 M #s(literal 3 binary64))) (/.f64 (.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 w w))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64)))))) (.f64 h (pow.f64 #s(literal -1 binary64) #s(literal 3/2 binary64)))))) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 c0 M) (/.f64 (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 w w))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64))))) (sqrt.f64 #s(literal -1 binary64)))))) h)) (.f64 c0 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (.f64 d d) w))) (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 M (sqrt.f64 #s(literal -1 binary64)))))))) h)) (.f64 M (*.f64 c0 (sqrt.f64 #s(literal -1 binary64))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M)))) (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (.f64 d d) w))) (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 M (sqrt.f64 #s(literal -1 binary64)))))) h)) (*.f64 M (sqrt.f64 #s(literal -1 binary64)))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M)))) (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (.f64 d d) w))) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 w w))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64))))) (.f64 M (.f64 h (sqrt.f64 #s(literal -1 binary64)))))) (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 M (sqrt.f64 #s(literal -1 binary64))))))) h)) (*.f64 M (sqrt.f64 #s(literal -1 binary64)))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M)))) (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (.f64 d d) w))) (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (pow.f64 M #s(literal 3 binary64))) (/.f64 (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 w w))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64))))) (.f64 h (pow.f64 #s(literal -1 binary64) #s(literal 3/2 binary64)))))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 w w))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64))))) (.f64 M (sqrt.f64 #s(literal -1 binary64)))))) h)) (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 M (sqrt.f64 #s(literal -1 binary64))))))) h)) (.f64 M (sqrt.f64 #s(literal -1 binary64)))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 M (.f64 h (sqrt.f64 #s(literal -1 binary64)))))) (*.f64 M (sqrt.f64 #s(literal -1 binary64)))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))) (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 w w))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64))))) (.f64 M (.f64 h (sqrt.f64 #s(literal -1 binary64)))))) (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 M (sqrt.f64 #s(literal -1 binary64)))))) h)) (*.f64 M (sqrt.f64 #s(literal -1 binary64)))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))) (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (pow.f64 M #s(literal 3 binary64))) (/.f64 (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 w w))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64))))) (.f64 h (pow.f64 #s(literal -1 binary64) #s(literal 3/2 binary64)))))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 w w))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64))))) (.f64 M (sqrt.f64 #s(literal -1 binary64)))))) h)) (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M (.f64 D D)) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 M (sqrt.f64 #s(literal -1 binary64)))))) h)) (.f64 M (sqrt.f64 #s(literal -1 binary64)))))
#s(approx (/ (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (* w w)) (.f64 #s(literal -1 binary64) (.f64 h (+.f64 (.f64 #s(literal -1 binary64) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) (pow.f64 (.f64 h w) #s(literal 2 binary64))))) (.f64 #s(literal 1/4 binary64) (ratio-of-squares.f64 (.f64 D M) d))))))
#s(approx (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (.f64 #s(literal -1 binary64) (.f64 h (+.f64 (.f64 #s(literal -1 binary64) (.f64 (ratio-of-squares.f64 c0 D) (ratio-of-squares.f64 d h))) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (.f64 D D) d) (/.f64 (pow.f64 (.f64 M w) #s(literal 2 binary64)) d)))))))
#s(approx (* h (+ (* -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h h))))) (.f64 #s(literal -1 binary64) (.f64 h (+.f64 (.f64 #s(literal -1 binary64) (.f64 (ratio-of-squares.f64 c0 D) (ratio-of-squares.f64 d h))) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (.f64 D D) d) (/.f64 (pow.f64 (.f64 M w) #s(literal 2 binary64)) d)))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (/.f64 (+.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 (.f64 M M) h)) (.f64 d d))) (.f64 (/.f64 (.f64 c0 c0) h) (ratio-of-squares.f64 d w))) (.f64 D D)))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (/.f64 (+.f64 (.f64 (pow.f64 D #s(literal 4 binary64)) (+.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 M M) h) (.f64 d d))) (.f64 #s(literal -1/16 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 c0 c0)) (/.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (.f64 (pow.f64 h #s(literal 3 binary64)) (.f64 w w))) (pow.f64 d #s(literal 6 binary64))))))) (.f64 (/.f64 (.f64 c0 c0) h) (ratio-of-squares.f64 d w))) (.f64 D D)))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (/.f64 (+.f64 (.f64 (pow.f64 D #s(literal 4 binary64)) (+.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 M M) h) (.f64 d d))) (.f64 (pow.f64 D #s(literal 4 binary64)) (+.f64 (.f64 #s(literal -1/16 binary64) (.f64 (/.f64 (pow.f64 M #s(literal 4 binary64)) (.f64 c0 c0)) (/.f64 (.f64 (pow.f64 h #s(literal 3 binary64)) (.f64 w w)) (pow.f64 d #s(literal 6 binary64))))) (.f64 #s(literal -1/32 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 4 binary64)) (pow.f64 c0 #s(literal 4 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 6 binary64)) (.f64 (pow.f64 h #s(literal 5 binary64)) (pow.f64 w #s(literal 4 binary64)))) (pow.f64 d #s(literal 10 binary64))))))))) (.f64 (/.f64 (.f64 c0 c0) h) (ratio-of-squares.f64 d w))) (.f64 D D)))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (/.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 (.f64 M M) (.f64 h w))) (.f64 c0 (.f64 d d)))) (.f64 #s(literal 2 binary64) (.f64 (/.f64 c0 h) (/.f64 (.f64 d d) w)))) (*.f64 D D)))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (/.f64 (+.f64 (.f64 #s(literal 2 binary64) (.f64 (/.f64 c0 h) (/.f64 (.f64 d d) w))) (.f64 (pow.f64 D #s(literal 4 binary64)) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 M M) (.f64 h w)) (.f64 c0 (.f64 d d)))) (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 4 binary64)) (pow.f64 c0 #s(literal 3 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (pow.f64 (.f64 h w) #s(literal 3 binary64))) (pow.f64 d #s(literal 6 binary64)))))))) (*.f64 D D)))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (/.f64 (+.f64 (.f64 #s(literal 2 binary64) (.f64 (/.f64 c0 h) (/.f64 (.f64 d d) w))) (.f64 (pow.f64 D #s(literal 4 binary64)) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 M M) (.f64 h w)) (.f64 c0 (.f64 d d)))) (.f64 (pow.f64 D #s(literal 4 binary64)) (+.f64 (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (pow.f64 M #s(literal 4 binary64)) (pow.f64 c0 #s(literal 3 binary64))) (/.f64 (pow.f64 (.f64 h w) #s(literal 3 binary64)) (pow.f64 d #s(literal 6 binary64))))) (.f64 #s(literal -1/16 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 4 binary64)) (pow.f64 c0 #s(literal 5 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 6 binary64)) (pow.f64 (.f64 h w) #s(literal 5 binary64))) (pow.f64 d #s(literal 10 binary64)))))))))) (*.f64 D D)))
#s(approx (* c0 (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w)))))) (/.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 (.f64 M M) (.f64 h w))) (.f64 c0 (.f64 d d)))) (.f64 #s(literal 2 binary64) (.f64 (/.f64 c0 h) (/.f64 (.f64 d d) w)))) (*.f64 D D)))
#s(approx (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w))))) (/.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 (.f64 M M) (.f64 h w))) (pow.f64 (.f64 c0 d) #s(literal 2 binary64)))) (.f64 #s(literal 2 binary64) (/.f64 (.f64 d d) (.f64 h w)))) (.f64 D D)))
#s(approx (/ d (* D D)) (/.f64 d (*.f64 D D)))
#s(approx (* D D) (*.f64 D D))
#s(approx D D)
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (/.f64 (+.f64 (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (.f64 D D) (.f64 h (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))))) (.f64 d d))) (.f64 (/.f64 (.f64 c0 c0) h) (ratio-of-squares.f64 d w))) (*.f64 D D)))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (/.f64 (+.f64 (.f64 (.f64 D D) (+.f64 (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 h (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w)))) (.f64 d d))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (.f64 D D) (.f64 h (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (.f64 (ratio-of-squares.f64 h c0) (/.f64 (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w)))) #s(literal 2 binary64)) (pow.f64 d #s(literal 4 binary64)))))))) (.f64 d d))))) (.f64 (/.f64 (.f64 c0 c0) h) (ratio-of-squares.f64 d w))) (.f64 D D)))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (/.f64 (+.f64 (.f64 (.f64 D D) (+.f64 (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 h (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w)))) (.f64 d d))) (.f64 (.f64 D D) (+.f64 (.f64 #s(literal -1/8 binary64) (.f64 (ratio-of-squares.f64 D c0) (/.f64 (.f64 (pow.f64 h #s(literal 3 binary64)) (.f64 (.f64 w w) (.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (.f64 (ratio-of-squares.f64 h c0) (/.f64 (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w)))) #s(literal 2 binary64)) (pow.f64 d #s(literal 4 binary64))))))))) (pow.f64 d #s(literal 6 binary64))))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 h (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (.f64 (ratio-of-squares.f64 h c0) (/.f64 (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w)))) #s(literal 2 binary64)) (pow.f64 d #s(literal 4 binary64))))))) (.f64 d d))))))) (.f64 (/.f64 (.f64 c0 c0) h) (ratio-of-squares.f64 d w))) (*.f64 D D)))
#s(approx (/ (* d d) (* D D)) (ratio-of-squares.f64 d D))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (/.f64 (+.f64 (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (.f64 D D) (.f64 h (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))))) (.f64 d d))) (.f64 (/.f64 (.f64 c0 c0) h) (ratio-of-squares.f64 d w))) (*.f64 D D)))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (/.f64 (+.f64 (.f64 (.f64 D D) (+.f64 (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 h (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w)))) (.f64 d d))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (.f64 D D) (.f64 h (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (.f64 (ratio-of-squares.f64 h c0) (/.f64 (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w)))) #s(literal 2 binary64)) (pow.f64 d #s(literal 4 binary64)))))))) (.f64 d d))))) (.f64 (/.f64 (.f64 c0 c0) h) (ratio-of-squares.f64 d w))) (.f64 D D)))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (/.f64 (+.f64 (.f64 (.f64 D D) (+.f64 (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 h (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w)))) (.f64 d d))) (.f64 (.f64 D D) (+.f64 (.f64 #s(literal -1/8 binary64) (.f64 (ratio-of-squares.f64 D c0) (/.f64 (.f64 (pow.f64 h #s(literal 3 binary64)) (.f64 (.f64 w w) (.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (.f64 (ratio-of-squares.f64 h c0) (/.f64 (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w)))) #s(literal 2 binary64)) (pow.f64 d #s(literal 4 binary64))))))))) (pow.f64 d #s(literal 6 binary64))))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 h (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (.f64 (ratio-of-squares.f64 h c0) (/.f64 (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w)))) #s(literal 2 binary64)) (pow.f64 d #s(literal 4 binary64))))))) (.f64 d d))))))) (.f64 (/.f64 (.f64 c0 c0) h) (ratio-of-squares.f64 d w))) (*.f64 D D)))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) (/.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 D D) (.f64 h (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w)))))) (.f64 d d))) (.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (.f64 c0 d) #s(literal 2 binary64)) (.f64 h w)))) (*.f64 D D)))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) (/.f64 (+.f64 (.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (.f64 c0 d) #s(literal 2 binary64)) (.f64 h w))) (.f64 (.f64 D D) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 h (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))))) (.f64 d d))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 D D) (.f64 h (.f64 w (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (.f64 (ratio-of-squares.f64 h c0) (/.f64 (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w)))) #s(literal 2 binary64)) (pow.f64 d #s(literal 4 binary64))))))))) (.f64 d d)))))) (*.f64 D D)))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) (/.f64 (+.f64 (.f64 #s(literal 2 binary64) (/.f64 (pow.f64 (.f64 c0 d) #s(literal 2 binary64)) (.f64 h w))) (.f64 (.f64 D D) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 h (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))))) (.f64 d d))) (.f64 (.f64 D D) (+.f64 (.f64 #s(literal -1/4 binary64) (.f64 (ratio-of-squares.f64 D c0) (/.f64 (.f64 (pow.f64 h #s(literal 3 binary64)) (.f64 (pow.f64 w #s(literal 3 binary64)) (.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (.f64 (ratio-of-squares.f64 h c0) (/.f64 (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w)))) #s(literal 2 binary64)) (pow.f64 d #s(literal 4 binary64))))))))) (pow.f64 d #s(literal 6 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 h (.f64 w (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (.f64 (ratio-of-squares.f64 h c0) (/.f64 (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w)))) #s(literal 2 binary64)) (pow.f64 d #s(literal 4 binary64)))))))) (.f64 d d)))))))) (*.f64 D D)))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M)))) (/.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 D D) c0) (/.f64 (.f64 h (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))))) (.f64 d d)))) (.f64 #s(literal 2 binary64) (.f64 (/.f64 c0 h) (/.f64 (.f64 d d) w)))) (*.f64 D D)))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M)))) (/.f64 (+.f64 (.f64 #s(literal 2 binary64) (.f64 (/.f64 c0 h) (/.f64 (.f64 d d) w))) (.f64 (.f64 D D) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 h c0) (/.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w)))) (.f64 d d)))) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 D D) c0) (/.f64 (.f64 h (.f64 w (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (.f64 (ratio-of-squares.f64 h c0) (/.f64 (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w)))) #s(literal 2 binary64)) (pow.f64 d #s(literal 4 binary64)))))))) (.f64 d d))))))) (*.f64 D D)))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M)))) (/.f64 (+.f64 (.f64 #s(literal 2 binary64) (.f64 (/.f64 c0 h) (/.f64 (.f64 d d) w))) (.f64 (.f64 D D) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 h c0) (/.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w)))) (.f64 d d)))) (.f64 (.f64 D D) (+.f64 (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (.f64 D D) (pow.f64 c0 #s(literal 3 binary64))) (/.f64 (.f64 (pow.f64 h #s(literal 3 binary64)) (.f64 (pow.f64 w #s(literal 3 binary64)) (.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (.f64 (ratio-of-squares.f64 h c0) (/.f64 (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w)))) #s(literal 2 binary64)) (pow.f64 d #s(literal 4 binary64))))))))) (pow.f64 d #s(literal 6 binary64))))) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 h c0) (/.f64 (.f64 w (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (.f64 (ratio-of-squares.f64 h c0) (/.f64 (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w)))) #s(literal 2 binary64)) (pow.f64 d #s(literal 4 binary64))))))) (.f64 d d))))))))) (.f64 D D)))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))) (/.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 D D) c0) (/.f64 (.f64 h (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))))) (.f64 d d)))) (.f64 (/.f64 c0 h) (/.f64 (.f64 d d) w))) (.f64 D D)))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))) (/.f64 (+.f64 (.f64 (.f64 D D) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 h c0) (/.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w)))) (.f64 d d)))) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 D D) c0) (/.f64 (.f64 h (.f64 w (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (.f64 (ratio-of-squares.f64 h c0) (/.f64 (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w)))) #s(literal 2 binary64)) (pow.f64 d #s(literal 4 binary64)))))))) (.f64 d d)))))) (.f64 (/.f64 c0 h) (/.f64 (.f64 d d) w))) (.f64 D D)))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))) (/.f64 (+.f64 (.f64 (.f64 D D) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 h c0) (/.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w)))) (.f64 d d)))) (.f64 (.f64 D D) (+.f64 (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (.f64 D D) (pow.f64 c0 #s(literal 3 binary64))) (/.f64 (.f64 (pow.f64 h #s(literal 3 binary64)) (.f64 (pow.f64 w #s(literal 3 binary64)) (.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (.f64 (ratio-of-squares.f64 h c0) (/.f64 (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w)))) #s(literal 2 binary64)) (pow.f64 d #s(literal 4 binary64))))))))) (pow.f64 d #s(literal 6 binary64))))) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 h c0) (/.f64 (.f64 w (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (.f64 (ratio-of-squares.f64 h c0) (/.f64 (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w)))) #s(literal 2 binary64)) (pow.f64 d #s(literal 4 binary64))))))) (.f64 d d)))))))) (.f64 (/.f64 c0 h) (/.f64 (.f64 d d) w))) (*.f64 D D)))
#s(approx (/ (* d d) (* D D)) (ratio-of-squares.f64 d D))
#s(approx (/ d D) (/.f64 d D))
#s(approx (/ (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (* w w)) (/.f64 (+.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 (.f64 M M) h)) (.f64 d d))) (.f64 (/.f64 (.f64 c0 c0) h) (ratio-of-squares.f64 d w))) (.f64 D D)))
#s(approx (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (/.f64 (+.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 (.f64 M M) (.f64 h (.f64 w w)))) (.f64 d d))) (/.f64 (pow.f64 (.f64 c0 d) #s(literal 2 binary64)) h)) (*.f64 D D)))
#s(approx (* h (+ (* -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h h))))) (/.f64 (+.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 (.f64 M M) (.f64 h (.f64 w w)))) (.f64 d d))) (/.f64 (pow.f64 (.f64 c0 d) #s(literal 2 binary64)) h)) (*.f64 D D)))
#s(approx (+ (* -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h h)))) (/.f64 (+.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 4 binary64)) (pow.f64 (.f64 M w) #s(literal 2 binary64))) (.f64 d d))) (/.f64 (pow.f64 (.f64 c0 d) #s(literal 2 binary64)) (.f64 h h))) (*.f64 D D)))
#s(approx (* c0 (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w)))))) (.f64 (.f64 D D) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 M M) (.f64 h w)) (.f64 c0 (.f64 d d)))) (.f64 #s(literal 2 binary64) (.f64 (/.f64 c0 (pow.f64 D #s(literal 4 binary64))) (/.f64 (.f64 d d) (.f64 h w)))))))
#s(approx (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w))))) (.f64 (.f64 D D) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (ratio-of-squares.f64 M c0) (/.f64 (.f64 h w) (.f64 d d)))) (.f64 #s(literal 2 binary64) (/.f64 (.f64 d d) (.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 h w)))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 M (.f64 c0 (sqrt.f64 #s(literal -1 binary64)))) w)) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 M (sqrt.f64 #s(literal -1 binary64))))) (.f64 (/.f64 c0 h) (/.f64 (*.f64 d d) w))) w)))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (+.f64 (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 c0 (pow.f64 D #s(literal 4 binary64))) (/.f64 (-.f64 (.f64 (ratio-of-squares.f64 c0 h) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 w w))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64))))) (.f64 M (.f64 w (sqrt.f64 #s(literal -1 binary64))))))) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 M (.f64 c0 (sqrt.f64 #s(literal -1 binary64)))) w)) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 M (sqrt.f64 #s(literal -1 binary64))))) (.f64 (/.f64 c0 h) (/.f64 (*.f64 d d) w))) w))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (+.f64 (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 c0 (pow.f64 D #s(literal 6 binary64))) (/.f64 (.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (-.f64 (.f64 (ratio-of-squares.f64 c0 h) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 w w))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64)))))) (.f64 (pow.f64 M #s(literal 3 binary64)) (.f64 w (pow.f64 #s(literal -1 binary64) #s(literal 3/2 binary64))))))) (+.f64 (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 c0 (pow.f64 D #s(literal 4 binary64))) (/.f64 (-.f64 (.f64 (ratio-of-squares.f64 c0 h) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 w w))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64))))) (.f64 M (.f64 w (sqrt.f64 #s(literal -1 binary64))))))) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 M (.f64 c0 (sqrt.f64 #s(literal -1 binary64)))) w)) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 M (sqrt.f64 #s(literal -1 binary64))))) (.f64 (/.f64 c0 h) (/.f64 (*.f64 d d) w))) w)))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 M (.f64 c0 (sqrt.f64 #s(literal -1 binary64)))) w)) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 M (sqrt.f64 #s(literal -1 binary64))))) (.f64 (/.f64 c0 h) (/.f64 (*.f64 d d) w))) w)))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (+.f64 (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 c0 (pow.f64 D #s(literal 4 binary64))) (/.f64 (-.f64 (.f64 (ratio-of-squares.f64 c0 h) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 w w))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64))))) (.f64 M (.f64 w (sqrt.f64 #s(literal -1 binary64))))))) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 M (.f64 c0 (sqrt.f64 #s(literal -1 binary64)))) w)) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 M (sqrt.f64 #s(literal -1 binary64))))) (.f64 (/.f64 c0 h) (/.f64 (*.f64 d d) w))) w))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (+.f64 (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 c0 (pow.f64 D #s(literal 6 binary64))) (/.f64 (.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (-.f64 (.f64 (ratio-of-squares.f64 c0 h) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 w w))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64)))))) (.f64 (pow.f64 M #s(literal 3 binary64)) (.f64 w (pow.f64 #s(literal -1 binary64) #s(literal 3/2 binary64))))))) (+.f64 (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 c0 (pow.f64 D #s(literal 4 binary64))) (/.f64 (-.f64 (.f64 (ratio-of-squares.f64 c0 h) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 w w))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64))))) (.f64 M (.f64 w (sqrt.f64 #s(literal -1 binary64))))))) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 M (.f64 c0 (sqrt.f64 #s(literal -1 binary64)))) w)) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 M (sqrt.f64 #s(literal -1 binary64))))) (.f64 (/.f64 c0 h) (/.f64 (*.f64 d d) w))) w)))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) (+.f64 (.f64 M (.f64 c0 (sqrt.f64 #s(literal -1 binary64)))) (/.f64 (.f64 c0 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 M (sqrt.f64 #s(literal -1 binary64))))) (.f64 (/.f64 c0 h) (/.f64 (.f64 d d) w)))) (*.f64 D D))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 c0 (pow.f64 D #s(literal 4 binary64))) (/.f64 (-.f64 (.f64 (ratio-of-squares.f64 c0 h) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 w w))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64))))) (.f64 M (sqrt.f64 #s(literal -1 binary64)))))) (+.f64 (.f64 M (.f64 c0 (sqrt.f64 #s(literal -1 binary64)))) (/.f64 (.f64 c0 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 M (sqrt.f64 #s(literal -1 binary64))))) (.f64 (/.f64 c0 h) (/.f64 (.f64 d d) w)))) (.f64 D D)))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) (+.f64 (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 c0 (pow.f64 D #s(literal 6 binary64))) (/.f64 (.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (-.f64 (.f64 (ratio-of-squares.f64 c0 h) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 w w))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64)))))) (pow.f64 (.f64 M (sqrt.f64 #s(literal -1 binary64))) #s(literal 3 binary64))))) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 c0 (pow.f64 D #s(literal 4 binary64))) (/.f64 (-.f64 (.f64 (ratio-of-squares.f64 c0 h) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 w w))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64))))) (.f64 M (sqrt.f64 #s(literal -1 binary64)))))) (+.f64 (.f64 M (.f64 c0 (sqrt.f64 #s(literal -1 binary64)))) (/.f64 (.f64 c0 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 M (sqrt.f64 #s(literal -1 binary64))))) (.f64 (/.f64 c0 h) (/.f64 (.f64 d d) w)))) (*.f64 D D))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M)))) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (.f64 D D) (.f64 M (sqrt.f64 #s(literal -1 binary64)))))) (+.f64 (.f64 M (sqrt.f64 #s(literal -1 binary64))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (*.f64 h w))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M)))) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (.f64 D D) (.f64 M (sqrt.f64 #s(literal -1 binary64)))))) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 (ratio-of-squares.f64 c0 h) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 w w))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64))))) (.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 M (sqrt.f64 #s(literal -1 binary64)))))) (+.f64 (.f64 M (sqrt.f64 #s(literal -1 binary64))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M)))) (+.f64 (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (pow.f64 D #s(literal 6 binary64))) (/.f64 (-.f64 (.f64 (ratio-of-squares.f64 c0 h) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 w w))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64))))) (pow.f64 (.f64 M (sqrt.f64 #s(literal -1 binary64))) #s(literal 3 binary64))))) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (.f64 D D) (.f64 M (sqrt.f64 #s(literal -1 binary64)))))) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 (ratio-of-squares.f64 c0 h) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 w w))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64))))) (.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 M (sqrt.f64 #s(literal -1 binary64)))))) (+.f64 (.f64 M (sqrt.f64 #s(literal -1 binary64))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (.f64 D D) (.f64 M (sqrt.f64 #s(literal -1 binary64)))))) (.f64 M (sqrt.f64 #s(literal -1 binary64)))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (.f64 D D) (.f64 M (sqrt.f64 #s(literal -1 binary64)))))) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 (ratio-of-squares.f64 c0 h) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 w w))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64))))) (.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 M (sqrt.f64 #s(literal -1 binary64)))))) (*.f64 M (sqrt.f64 #s(literal -1 binary64))))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))) (+.f64 (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (pow.f64 D #s(literal 6 binary64))) (/.f64 (-.f64 (.f64 (ratio-of-squares.f64 c0 h) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 w w))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64))))) (pow.f64 (.f64 M (sqrt.f64 #s(literal -1 binary64))) #s(literal 3 binary64))))) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (.f64 D D) (.f64 M (sqrt.f64 #s(literal -1 binary64)))))) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 (ratio-of-squares.f64 c0 h) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 w w))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) (.f64 (/.f64 M h) (/.f64 (.f64 c0 (.f64 d d)) w))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64))))) (.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 M (sqrt.f64 #s(literal -1 binary64)))))) (*.f64 M (sqrt.f64 #s(literal -1 binary64)))))))
#s(approx (/ (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (* w w)) (.f64 (.f64 D D) (+.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 M M) h) (.f64 d d))) (/.f64 (pow.f64 (.f64 c0 d) #s(literal 2 binary64)) (.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 h (.f64 w w)))))))
#s(approx (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (.f64 (.f64 D D) (+.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 M M) (.f64 h (.f64 w w))) (.f64 d d))) (/.f64 (pow.f64 (.f64 c0 d) #s(literal 2 binary64)) (.f64 (pow.f64 D #s(literal 4 binary64)) h)))))
#s(approx (* h (+ (* -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h h))))) (.f64 (.f64 D D) (+.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 M M) (.f64 h (.f64 w w))) (.f64 d d))) (/.f64 (pow.f64 (.f64 c0 d) #s(literal 2 binary64)) (.f64 (pow.f64 D #s(literal 4 binary64)) h)))))
#s(approx (+ (* -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h h)))) (.f64 (.f64 D D) (+.f64 (.f64 #s(literal -1/4 binary64) (ratio-of-squares.f64 (.f64 M w) d)) (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (ratio-of-squares.f64 d h)))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 M (.f64 c0 (sqrt.f64 #s(literal -1 binary64)))) w)) (.f64 (.f64 d d) (+.f64 (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (pow.f64 c0 #s(literal 3 binary64)) (pow.f64 D #s(literal 4 binary64))) (/.f64 (.f64 d d) (.f64 M (.f64 (.f64 h h) (.f64 (pow.f64 w #s(literal 3 binary64)) (sqrt.f64 #s(literal -1 binary64)))))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 c0 c0) (.f64 (.f64 D D) (.f64 h (.f64 w w)))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 M (.f64 c0 (sqrt.f64 #s(literal -1 binary64)))) w)) (.f64 (.f64 d d) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 c0 c0) (.f64 (.f64 D D) (.f64 h (.f64 w w))))) (.f64 (.f64 d d) (+.f64 (.f64 #s(literal -1/16 binary64) (.f64 (/.f64 (pow.f64 c0 #s(literal 5 binary64)) (pow.f64 D #s(literal 8 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 (pow.f64 M #s(literal 3 binary64)) (.f64 (pow.f64 h #s(literal 4 binary64)) (.f64 (pow.f64 w #s(literal 5 binary64)) (pow.f64 #s(literal -1 binary64) #s(literal 3/2 binary64)))))))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 c0 #s(literal 3 binary64)) (.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 M (.f64 (.f64 h h) (.f64 (pow.f64 w #s(literal 3 binary64)) (sqrt.f64 #s(literal -1 binary64))))))))))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (+.f64 (.f64 M (sqrt.f64 #s(literal -1 binary64))) (.f64 (.f64 d d) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 (.f64 c0 d) #s(literal 2 binary64)) (.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 M (.f64 (.f64 h h) (.f64 (.f64 w w) (sqrt.f64 #s(literal -1 binary64)))))))) (/.f64 c0 (.f64 (.f64 D D) (.f64 h w)))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (+.f64 (.f64 M (sqrt.f64 #s(literal -1 binary64))) (.f64 (.f64 d d) (+.f64 (.f64 (.f64 d d) (+.f64 (.f64 #s(literal -1/8 binary64) (/.f64 (pow.f64 (.f64 c0 d) #s(literal 4 binary64)) (.f64 (pow.f64 D #s(literal 8 binary64)) (.f64 (pow.f64 M #s(literal 3 binary64)) (.f64 (pow.f64 h #s(literal 4 binary64)) (.f64 (pow.f64 w #s(literal 4 binary64)) (pow.f64 #s(literal -1 binary64) #s(literal 3/2 binary64)))))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 c0 c0) (.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 M (.f64 (.f64 h h) (.f64 (.f64 w w) (sqrt.f64 #s(literal -1 binary64)))))))))) (/.f64 c0 (.f64 (.f64 D D) (.f64 h w)))))))
#s(approx (* c0 (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w)))))) (/.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 D D) (.f64 (.f64 M M) (.f64 h w))) c0)) (.f64 #s(literal 2 binary64) (/.f64 (.f64 c0 (pow.f64 d #s(literal 4 binary64))) (.f64 (.f64 D D) (.f64 h w))))) (.f64 d d)))
#s(approx (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w))))) (/.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 D D) (.f64 (.f64 M M) (.f64 h w))) (.f64 c0 c0))) (.f64 #s(literal 2 binary64) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 (.f64 D D) (.f64 h w))))) (.f64 d d)))
#s(approx d d)
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 M (.f64 c0 (sqrt.f64 #s(literal -1 binary64)))) w)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 c0 (.f64 (.f64 d d) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (.f64 M (sqrt.f64 #s(literal -1 binary64))))) (/.f64 c0 (.f64 (.f64 D D) (*.f64 h w)))))) w))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 M (.f64 c0 (sqrt.f64 #s(literal -1 binary64)))) w)) (.f64 (.f64 d d) (+.f64 (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 c0 M) (/.f64 (.f64 (.f64 d d) (-.f64 (/.f64 (.f64 c0 c0) (.f64 (pow.f64 D #s(literal 4 binary64)) (pow.f64 (.f64 h w) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64)))))) (.f64 w (sqrt.f64 #s(literal -1 binary64)))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 c0 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (.f64 M (sqrt.f64 #s(literal -1 binary64))))) (/.f64 c0 (.f64 (.f64 D D) (*.f64 h w))))) w))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 M (.f64 c0 (sqrt.f64 #s(literal -1 binary64)))) w)) (.f64 (.f64 d d) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 c0 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (.f64 M (sqrt.f64 #s(literal -1 binary64))))) (/.f64 c0 (.f64 (.f64 D D) (.f64 h w))))) w)) (.f64 (.f64 d d) (+.f64 (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 c0 (pow.f64 M #s(literal 3 binary64))) (/.f64 (.f64 (.f64 d d) (.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (-.f64 (/.f64 (.f64 c0 c0) (.f64 (pow.f64 D #s(literal 4 binary64)) (pow.f64 (.f64 h w) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64))))))) (.f64 w (pow.f64 #s(literal -1 binary64) #s(literal 3/2 binary64)))))) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 c0 M) (/.f64 (-.f64 (/.f64 (.f64 c0 c0) (.f64 (pow.f64 D #s(literal 4 binary64)) (pow.f64 (.f64 h w) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64))))) (*.f64 w (sqrt.f64 #s(literal -1 binary64))))))))))))
#s(approx (* d d) (*.f64 d d))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 M (.f64 c0 (sqrt.f64 #s(literal -1 binary64)))) w)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 c0 (.f64 (.f64 d d) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (.f64 M (sqrt.f64 #s(literal -1 binary64))))) (/.f64 c0 (.f64 (.f64 D D) (*.f64 h w)))))) w))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 M (.f64 c0 (sqrt.f64 #s(literal -1 binary64)))) w)) (.f64 (.f64 d d) (+.f64 (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 c0 M) (/.f64 (.f64 (.f64 d d) (-.f64 (/.f64 (.f64 c0 c0) (.f64 (pow.f64 D #s(literal 4 binary64)) (pow.f64 (.f64 h w) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64)))))) (.f64 w (sqrt.f64 #s(literal -1 binary64)))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 c0 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (.f64 M (sqrt.f64 #s(literal -1 binary64))))) (/.f64 c0 (.f64 (.f64 D D) (*.f64 h w))))) w))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 M (.f64 c0 (sqrt.f64 #s(literal -1 binary64)))) w)) (.f64 (.f64 d d) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 c0 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (.f64 M (sqrt.f64 #s(literal -1 binary64))))) (/.f64 c0 (.f64 (.f64 D D) (.f64 h w))))) w)) (.f64 (.f64 d d) (+.f64 (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 c0 (pow.f64 M #s(literal 3 binary64))) (/.f64 (.f64 (.f64 d d) (.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (-.f64 (/.f64 (.f64 c0 c0) (.f64 (pow.f64 D #s(literal 4 binary64)) (pow.f64 (.f64 h w) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64))))))) (.f64 w (pow.f64 #s(literal -1 binary64) #s(literal 3/2 binary64)))))) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 c0 M) (/.f64 (-.f64 (/.f64 (.f64 c0 c0) (.f64 (pow.f64 D #s(literal 4 binary64)) (pow.f64 (.f64 h w) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64))))) (*.f64 w (sqrt.f64 #s(literal -1 binary64))))))))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) (+.f64 (.f64 M (.f64 c0 (sqrt.f64 #s(literal -1 binary64)))) (.f64 c0 (.f64 (.f64 d d) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (.f64 M (sqrt.f64 #s(literal -1 binary64))))) (/.f64 c0 (.f64 (.f64 D D) (*.f64 h w))))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) (+.f64 (.f64 M (.f64 c0 (sqrt.f64 #s(literal -1 binary64)))) (.f64 (.f64 d d) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 c0 M) (/.f64 (.f64 (.f64 d d) (-.f64 (/.f64 (.f64 c0 c0) (.f64 (pow.f64 D #s(literal 4 binary64)) (pow.f64 (.f64 h w) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64)))))) (sqrt.f64 #s(literal -1 binary64))))) (.f64 c0 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (.f64 M (sqrt.f64 #s(literal -1 binary64))))) (/.f64 c0 (.f64 (.f64 D D) (.f64 h w)))))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) (+.f64 (.f64 M (.f64 c0 (sqrt.f64 #s(literal -1 binary64)))) (.f64 (.f64 d d) (+.f64 (.f64 c0 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (.f64 M (sqrt.f64 #s(literal -1 binary64))))) (/.f64 c0 (.f64 (.f64 D D) (.f64 h w))))) (.f64 (.f64 d d) (+.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 c0 (.f64 (.f64 d d) (.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (-.f64 (/.f64 (.f64 c0 c0) (.f64 (pow.f64 D #s(literal 4 binary64)) (pow.f64 (.f64 h w) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64)))))))) (pow.f64 (.f64 M (sqrt.f64 #s(literal -1 binary64))) #s(literal 3 binary64)))) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 c0 M) (/.f64 (-.f64 (/.f64 (.f64 c0 c0) (.f64 (pow.f64 D #s(literal 4 binary64)) (pow.f64 (.f64 h w) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64))))) (sqrt.f64 #s(literal -1 binary64)))))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M)))) (+.f64 (.f64 M (sqrt.f64 #s(literal -1 binary64))) (.f64 (.f64 d d) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (.f64 M (sqrt.f64 #s(literal -1 binary64))))) (/.f64 c0 (.f64 (.f64 D D) (*.f64 h w)))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M)))) (+.f64 (.f64 M (sqrt.f64 #s(literal -1 binary64))) (.f64 (.f64 d d) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 d d) M) (/.f64 (-.f64 (/.f64 (.f64 c0 c0) (.f64 (pow.f64 D #s(literal 4 binary64)) (pow.f64 (.f64 h w) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64))))) (sqrt.f64 #s(literal -1 binary64))))) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (.f64 M (sqrt.f64 #s(literal -1 binary64))))) (/.f64 c0 (.f64 (.f64 D D) (*.f64 h w))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M)))) (+.f64 (.f64 M (sqrt.f64 #s(literal -1 binary64))) (.f64 (.f64 d d) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (.f64 M (sqrt.f64 #s(literal -1 binary64))))) (+.f64 (.f64 (.f64 d d) (+.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 d d) (.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (-.f64 (/.f64 (.f64 c0 c0) (.f64 (pow.f64 D #s(literal 4 binary64)) (pow.f64 (.f64 h w) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64))))))) (pow.f64 (.f64 M (sqrt.f64 #s(literal -1 binary64))) #s(literal 3 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (/.f64 (.f64 c0 c0) (.f64 (pow.f64 D #s(literal 4 binary64)) (pow.f64 (.f64 h w) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64))))) (.f64 M (sqrt.f64 #s(literal -1 binary64))))))) (/.f64 c0 (.f64 (.f64 D D) (*.f64 h w))))))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 d d) M) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (sqrt.f64 #s(literal -1 binary64))))) (*.f64 M (sqrt.f64 #s(literal -1 binary64)))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))) (+.f64 (.f64 M (sqrt.f64 #s(literal -1 binary64))) (.f64 (.f64 d d) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 d d) M) (/.f64 (-.f64 (/.f64 (.f64 c0 c0) (.f64 (pow.f64 D #s(literal 4 binary64)) (pow.f64 (.f64 h w) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64))))) (sqrt.f64 #s(literal -1 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (.f64 M (sqrt.f64 #s(literal -1 binary64)))))))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))) (+.f64 (.f64 M (sqrt.f64 #s(literal -1 binary64))) (.f64 (.f64 d d) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (.f64 M (sqrt.f64 #s(literal -1 binary64))))) (.f64 (.f64 d d) (+.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 d d) (.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (-.f64 (/.f64 (.f64 c0 c0) (.f64 (pow.f64 D #s(literal 4 binary64)) (pow.f64 (.f64 h w) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64))))))) (pow.f64 (.f64 M (sqrt.f64 #s(literal -1 binary64))) #s(literal 3 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (/.f64 (.f64 c0 c0) (.f64 (pow.f64 D #s(literal 4 binary64)) (pow.f64 (.f64 h w) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) #s(literal 2 binary64)) (.f64 (.f64 M M) #s(literal -1 binary64))))) (.f64 M (sqrt.f64 #s(literal -1 binary64)))))))))))
#s(approx (/ (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (* w w)) (/.f64 (+.f64 (.f64 #s(literal -1/4 binary64) (.f64 (.f64 D D) (.f64 (.f64 M M) h))) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 h (.f64 w w))))) (*.f64 d d)))
#s(approx (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (/.f64 (+.f64 (.f64 #s(literal -1/4 binary64) (.f64 (.f64 D D) (.f64 (.f64 M M) (.f64 h (.f64 w w))))) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (pow.f64 d #s(literal 4 binary64)) h))) (*.f64 d d)))
#s(approx (* h (+ (* -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h h))))) (/.f64 (+.f64 (.f64 #s(literal -1/4 binary64) (.f64 (.f64 D D) (.f64 (.f64 M M) (.f64 h (.f64 w w))))) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (pow.f64 d #s(literal 4 binary64)) h))) (*.f64 d d)))
#s(approx (+ (* -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h h)))) (/.f64 (+.f64 (.f64 #s(literal -1/4 binary64) (.f64 (.f64 D D) (pow.f64 (.f64 M w) #s(literal 2 binary64)))) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 h h)))) (*.f64 d d)))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (.f64 (.f64 d d) (+.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 D D) (.f64 (.f64 M M) h)) (pow.f64 d #s(literal 4 binary64)))) (/.f64 (.f64 c0 c0) (.f64 (.f64 D D) (.f64 h (.f64 w w)))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (.f64 (.f64 d d) (+.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 D D) (.f64 (.f64 M M) h)) (pow.f64 d #s(literal 4 binary64)))) (+.f64 (.f64 #s(literal -1/16 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (.f64 c0 c0)) (/.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (.f64 (pow.f64 h #s(literal 3 binary64)) (.f64 w w))) (pow.f64 d #s(literal 8 binary64))))) (/.f64 (.f64 c0 c0) (.f64 (.f64 D D) (.f64 h (.f64 w w))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (.f64 (.f64 d d) (+.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 D D) (.f64 (.f64 M M) h)) (pow.f64 d #s(literal 4 binary64)))) (+.f64 (.f64 #s(literal -1/16 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (.f64 c0 c0)) (/.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (.f64 (pow.f64 h #s(literal 3 binary64)) (.f64 w w))) (pow.f64 d #s(literal 8 binary64))))) (+.f64 (.f64 #s(literal -1/32 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 10 binary64)) (pow.f64 c0 #s(literal 4 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 6 binary64)) (.f64 (pow.f64 h #s(literal 5 binary64)) (pow.f64 w #s(literal 4 binary64)))) (pow.f64 d #s(literal 12 binary64))))) (/.f64 (.f64 c0 c0) (.f64 (.f64 D D) (.f64 h (.f64 w w)))))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (.f64 (.f64 d d) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 D D) (.f64 (.f64 M M) (.f64 h w))) (.f64 c0 (pow.f64 d #s(literal 4 binary64))))) (.f64 #s(literal 2 binary64) (/.f64 c0 (.f64 (.f64 D D) (*.f64 h w)))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (.f64 (.f64 d d) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 D D) (.f64 (.f64 M M) (.f64 h w))) (.f64 c0 (pow.f64 d #s(literal 4 binary64))))) (+.f64 (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (pow.f64 c0 #s(literal 3 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (pow.f64 (.f64 h w) #s(literal 3 binary64))) (pow.f64 d #s(literal 8 binary64))))) (.f64 #s(literal 2 binary64) (/.f64 c0 (.f64 (.f64 D D) (*.f64 h w))))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (.f64 (.f64 d d) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 D D) (.f64 (.f64 M M) (.f64 h w))) (.f64 c0 (pow.f64 d #s(literal 4 binary64))))) (+.f64 (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (pow.f64 c0 #s(literal 3 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 4 binary64)) (pow.f64 (.f64 h w) #s(literal 3 binary64))) (pow.f64 d #s(literal 8 binary64))))) (+.f64 (.f64 #s(literal -1/16 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 10 binary64)) (pow.f64 c0 #s(literal 5 binary64))) (/.f64 (.f64 (pow.f64 M #s(literal 6 binary64)) (pow.f64 (.f64 h w) #s(literal 5 binary64))) (pow.f64 d #s(literal 12 binary64))))) (.f64 #s(literal 2 binary64) (/.f64 c0 (.f64 (.f64 D D) (*.f64 h w)))))))))
#s(approx (* c0 (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w)))))) (.f64 (.f64 d d) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 D D) (.f64 (.f64 M M) (.f64 h w))) (.f64 c0 (pow.f64 d #s(literal 4 binary64))))) (.f64 #s(literal 2 binary64) (/.f64 c0 (.f64 (.f64 D D) (*.f64 h w)))))))
#s(approx (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w))))) (.f64 (.f64 d d) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (ratio-of-squares.f64 D c0) (/.f64 (.f64 (.f64 M M) (.f64 h w)) (pow.f64 d #s(literal 4 binary64))))) (.f64 #s(literal 2 binary64) (pow.f64 (.f64 (.f64 D D) (*.f64 h w)) #s(literal -1 binary64))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (.f64 (.f64 d d) (+.f64 (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (.f64 D D) (.f64 h (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))))) (.f64 d d))) (/.f64 (.f64 c0 c0) (.f64 (.f64 D D) (.f64 h (*.f64 w w)))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (.f64 (.f64 d d) (+.f64 (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (.f64 D D) (.f64 h (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))))) (.f64 d d))) (+.f64 (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (.f64 D D) (.f64 h (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 (.f64 h h) (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w))))) #s(literal 2 binary64)))) (.f64 c0 c0)))))) (pow.f64 d #s(literal 4 binary64)))) (/.f64 (.f64 c0 c0) (.f64 (.f64 D D) (.f64 h (.f64 w w))))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (.f64 (.f64 d d) (+.f64 (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (.f64 c0 c0)) (/.f64 (.f64 (pow.f64 h #s(literal 3 binary64)) (.f64 (.f64 w w) (.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 (.f64 h h) (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w))))) #s(literal 2 binary64)))) (.f64 c0 c0))))))) (pow.f64 d #s(literal 6 binary64))))) (+.f64 (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (.f64 D D) (.f64 h (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))))) (.f64 d d))) (+.f64 (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (.f64 D D) (.f64 h (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 (.f64 h h) (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w))))) #s(literal 2 binary64)))) (.f64 c0 c0)))))) (pow.f64 d #s(literal 4 binary64)))) (/.f64 (.f64 c0 c0) (.f64 (.f64 D D) (.f64 h (*.f64 w w)))))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (.f64 (.f64 d d) (+.f64 (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (.f64 D D) (.f64 h (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))))) (.f64 d d))) (/.f64 (.f64 c0 c0) (.f64 (.f64 D D) (.f64 h (*.f64 w w)))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (.f64 (.f64 d d) (+.f64 (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (.f64 D D) (.f64 h (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))))) (.f64 d d))) (+.f64 (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (.f64 D D) (.f64 h (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 (.f64 h h) (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w))))) #s(literal 2 binary64)))) (.f64 c0 c0)))))) (pow.f64 d #s(literal 4 binary64)))) (/.f64 (.f64 c0 c0) (.f64 (.f64 D D) (.f64 h (.f64 w w))))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (.f64 (.f64 d d) (+.f64 (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (.f64 c0 c0)) (/.f64 (.f64 (pow.f64 h #s(literal 3 binary64)) (.f64 (.f64 w w) (.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 (.f64 h h) (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w))))) #s(literal 2 binary64)))) (.f64 c0 c0))))))) (pow.f64 d #s(literal 6 binary64))))) (+.f64 (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (.f64 D D) (.f64 h (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))))) (.f64 d d))) (+.f64 (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (.f64 D D) (.f64 h (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 (.f64 h h) (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w))))) #s(literal 2 binary64)))) (.f64 c0 c0)))))) (pow.f64 d #s(literal 4 binary64)))) (/.f64 (.f64 c0 c0) (.f64 (.f64 D D) (.f64 h (*.f64 w w)))))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) (.f64 (.f64 d d) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 D D) (.f64 h (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w))))))) (.f64 d d))) (.f64 #s(literal 2 binary64) (/.f64 (.f64 c0 c0) (.f64 (.f64 D D) (.f64 h w)))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) (.f64 (.f64 d d) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 D D) (.f64 h (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w))))))) (.f64 d d))) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 D D) (.f64 h (.f64 w (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 (.f64 h h) (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w))))) #s(literal 2 binary64)))) (.f64 c0 c0))))))) (pow.f64 d #s(literal 4 binary64)))) (.f64 #s(literal 2 binary64) (/.f64 (.f64 c0 c0) (.f64 (.f64 D D) (.f64 h w))))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) (.f64 (.f64 d d) (+.f64 (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (.f64 c0 c0)) (/.f64 (.f64 (pow.f64 h #s(literal 3 binary64)) (.f64 (pow.f64 w #s(literal 3 binary64)) (.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 (.f64 h h) (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w))))) #s(literal 2 binary64)))) (.f64 c0 c0))))))) (pow.f64 d #s(literal 6 binary64))))) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 D D) (.f64 h (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w))))))) (.f64 d d))) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 D D) (.f64 h (.f64 w (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 (.f64 h h) (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w))))) #s(literal 2 binary64)))) (.f64 c0 c0))))))) (pow.f64 d #s(literal 4 binary64)))) (.f64 #s(literal 2 binary64) (/.f64 (.f64 c0 c0) (.f64 (.f64 D D) (.f64 h w)))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M)))) (.f64 (.f64 d d) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 D D) c0) (/.f64 (.f64 h (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))))) (.f64 d d)))) (.f64 #s(literal 2 binary64) (/.f64 c0 (.f64 (.f64 D D) (*.f64 h w)))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M)))) (.f64 (.f64 d d) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 D D) c0) (/.f64 (.f64 h (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))))) (.f64 d d)))) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 D D) c0) (/.f64 (.f64 h (.f64 w (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 (.f64 h h) (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w))))) #s(literal 2 binary64)))) (.f64 c0 c0)))))) (pow.f64 d #s(literal 4 binary64))))) (.f64 #s(literal 2 binary64) (/.f64 c0 (.f64 (.f64 D D) (*.f64 h w))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M)))) (.f64 (.f64 d d) (+.f64 (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (pow.f64 c0 #s(literal 3 binary64))) (/.f64 (.f64 (pow.f64 h #s(literal 3 binary64)) (.f64 (pow.f64 w #s(literal 3 binary64)) (.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 (.f64 h h) (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w))))) #s(literal 2 binary64)))) (.f64 c0 c0))))))) (pow.f64 d #s(literal 6 binary64))))) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 D D) c0) (/.f64 (.f64 h (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))))) (.f64 d d)))) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 D D) c0) (/.f64 (.f64 h (.f64 w (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 (.f64 h h) (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w))))) #s(literal 2 binary64)))) (.f64 c0 c0)))))) (pow.f64 d #s(literal 4 binary64))))) (.f64 #s(literal 2 binary64) (/.f64 c0 (.f64 (.f64 D D) (.f64 h w)))))))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))) (.f64 (.f64 d d) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 D D) c0) (/.f64 (.f64 h (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))))) (.f64 d d)))) (/.f64 c0 (.f64 (.f64 D D) (.f64 h w))))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))) (.f64 (.f64 d d) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 D D) c0) (/.f64 (.f64 h (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))))) (.f64 d d)))) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 D D) c0) (/.f64 (.f64 h (.f64 w (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 (.f64 h h) (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w))))) #s(literal 2 binary64)))) (.f64 c0 c0)))))) (pow.f64 d #s(literal 4 binary64))))) (/.f64 c0 (.f64 (.f64 D D) (.f64 h w)))))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))) (.f64 (.f64 d d) (+.f64 (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (pow.f64 c0 #s(literal 3 binary64))) (/.f64 (.f64 (pow.f64 h #s(literal 3 binary64)) (.f64 (pow.f64 w #s(literal 3 binary64)) (.f64 (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 (.f64 h h) (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w))))) #s(literal 2 binary64)))) (.f64 c0 c0))))))) (pow.f64 d #s(literal 6 binary64))))) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 D D) c0) (/.f64 (.f64 h (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))))) (.f64 d d)))) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 D D) c0) (/.f64 (.f64 h (.f64 w (-.f64 (.f64 #s(literal -1 binary64) (.f64 M M)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 (.f64 h h) (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w)))) (.f64 (/.f64 M (.f64 D D)) (/.f64 c0 (.f64 h w))))) #s(literal 2 binary64)))) (.f64 c0 c0)))))) (pow.f64 d #s(literal 4 binary64))))) (/.f64 c0 (.f64 (.f64 D D) (*.f64 h w))))))))
#s(approx (/ (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (* w w)) (.f64 (.f64 d d) (+.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 D D) (.f64 (.f64 M M) h)) (pow.f64 d #s(literal 4 binary64)))) (/.f64 (.f64 c0 c0) (.f64 (.f64 D D) (.f64 h (.f64 w w)))))))
#s(approx (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (.f64 (.f64 d d) (+.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 D D) (.f64 (.f64 M M) (.f64 h (.f64 w w)))) (pow.f64 d #s(literal 4 binary64)))) (/.f64 (.f64 c0 c0) (.f64 (.f64 D D) h)))))
#s(approx (* h (+ (* -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h h))))) (.f64 (.f64 d d) (+.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 D D) (.f64 (.f64 M M) (.f64 h (.f64 w w)))) (pow.f64 d #s(literal 4 binary64)))) (/.f64 (.f64 c0 c0) (.f64 (.f64 D D) h)))))
#s(approx (+ (* -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h h)))) (.f64 (.f64 d d) (+.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 D D) (pow.f64 (.f64 M w) #s(literal 2 binary64))) (pow.f64 d #s(literal 4 binary64)))) (/.f64 (.f64 c0 c0) (pow.f64 (.f64 D h) #s(literal 2 binary64))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (+.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 D D) (.f64 (.f64 M M) h)) (.f64 d d))) (.f64 (ratio-of-squares.f64 c0 D) (.f64 (/.f64 d h) (/.f64 d (*.f64 w w))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (+.f64 (.f64 (.f64 M M) (+.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 D D) h) (.f64 d d))) (.f64 #s(literal -1/16 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (.f64 c0 c0)) (/.f64 (.f64 (.f64 M M) (.f64 (pow.f64 h #s(literal 3 binary64)) (.f64 w w))) (pow.f64 d #s(literal 6 binary64))))))) (.f64 (ratio-of-squares.f64 c0 D) (.f64 (/.f64 d h) (/.f64 d (.f64 w w))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (+.f64 (.f64 (.f64 M M) (+.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 D D) h) (.f64 d d))) (.f64 (.f64 M M) (+.f64 (.f64 #s(literal -1/16 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (.f64 c0 c0)) (/.f64 (.f64 (pow.f64 h #s(literal 3 binary64)) (.f64 w w)) (pow.f64 d #s(literal 6 binary64))))) (.f64 #s(literal -1/32 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 10 binary64)) (pow.f64 c0 #s(literal 4 binary64))) (/.f64 (.f64 (.f64 M M) (.f64 (pow.f64 h #s(literal 5 binary64)) (pow.f64 w #s(literal 4 binary64)))) (pow.f64 d #s(literal 10 binary64))))))))) (.f64 (ratio-of-squares.f64 c0 D) (.f64 (/.f64 d h) (/.f64 d (*.f64 w w))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 D D) (.f64 (.f64 M M) (.f64 h w))) (.f64 c0 (.f64 d d)))) (.f64 #s(literal 2 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (+.f64 (.f64 #s(literal 2 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (.f64 (.f64 M M) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 D D) (.f64 h w)) (.f64 c0 (.f64 d d)))) (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (pow.f64 c0 #s(literal 3 binary64))) (/.f64 (.f64 (.f64 M M) (pow.f64 (*.f64 h w) #s(literal 3 binary64))) (pow.f64 d #s(literal 6 binary64)))))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (+.f64 (.f64 #s(literal 2 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (.f64 (.f64 M M) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 D D) (.f64 h w)) (.f64 c0 (.f64 d d)))) (.f64 (.f64 M M) (+.f64 (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (pow.f64 c0 #s(literal 3 binary64))) (/.f64 (pow.f64 (.f64 h w) #s(literal 3 binary64)) (pow.f64 d #s(literal 6 binary64))))) (.f64 #s(literal -1/16 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 10 binary64)) (pow.f64 c0 #s(literal 5 binary64))) (/.f64 (.f64 (.f64 M M) (pow.f64 (.f64 h w) #s(literal 5 binary64))) (pow.f64 d #s(literal 10 binary64)))))))))))
#s(approx (* c0 (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w)))))) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 D D) (.f64 (.f64 M M) (.f64 h w))) (.f64 c0 (.f64 d d)))) (.f64 #s(literal 2 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (+.f64 (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (.f64 D D) (.f64 M (.f64 h (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))))) (.f64 d d))) (.f64 (ratio-of-squares.f64 c0 D) (.f64 (/.f64 d h) (/.f64 d (.f64 w w))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (+.f64 (.f64 M (+.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 D D) (.f64 M (.f64 h (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 c0 c0)) (/.f64 (.f64 (.f64 h h) (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))) #s(literal 2 binary64))) (pow.f64 d #s(literal 4 binary64))))))))) (.f64 d d))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (.f64 D D) (.f64 h (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))))) (.f64 d d))))) (.f64 (ratio-of-squares.f64 c0 D) (.f64 (/.f64 d h) (/.f64 d (*.f64 w w))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (+.f64 (.f64 M (+.f64 (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (.f64 D D) (.f64 h (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))))) (.f64 d d))) (.f64 M (+.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 D D) (.f64 h (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 c0 c0)) (/.f64 (.f64 (.f64 h h) (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))) #s(literal 2 binary64))) (pow.f64 d #s(literal 4 binary64)))))))) (.f64 d d))) (.f64 #s(literal 1/8 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (.f64 c0 c0)) (/.f64 (.f64 M (.f64 (pow.f64 h #s(literal 3 binary64)) (.f64 (.f64 w w) (.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 c0 c0)) (/.f64 (.f64 (.f64 h h) (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))) #s(literal 2 binary64))) (pow.f64 d #s(literal 4 binary64)))))) (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))))))) (pow.f64 d #s(literal 6 binary64))))))))) (.f64 (ratio-of-squares.f64 c0 D) (.f64 (/.f64 d h) (/.f64 d (*.f64 w w))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (+.f64 (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (.f64 D D) (.f64 M (.f64 h (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))))) (.f64 d d))) (.f64 (ratio-of-squares.f64 c0 D) (.f64 (/.f64 d h) (/.f64 d (.f64 w w))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (+.f64 (.f64 M (+.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 D D) (.f64 M (.f64 h (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 c0 c0)) (/.f64 (.f64 (.f64 h h) (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))) #s(literal 2 binary64))) (pow.f64 d #s(literal 4 binary64))))))))) (.f64 d d))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (.f64 D D) (.f64 h (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))))) (.f64 d d))))) (.f64 (ratio-of-squares.f64 c0 D) (.f64 (/.f64 d h) (/.f64 d (*.f64 w w))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (+.f64 (.f64 M (+.f64 (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (.f64 D D) (.f64 h (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))))) (.f64 d d))) (.f64 M (+.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 D D) (.f64 h (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 c0 c0)) (/.f64 (.f64 (.f64 h h) (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))) #s(literal 2 binary64))) (pow.f64 d #s(literal 4 binary64)))))))) (.f64 d d))) (.f64 #s(literal 1/8 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (.f64 c0 c0)) (/.f64 (.f64 M (.f64 (pow.f64 h #s(literal 3 binary64)) (.f64 (.f64 w w) (.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 c0 c0)) (/.f64 (.f64 (.f64 h h) (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))) #s(literal 2 binary64))) (pow.f64 d #s(literal 4 binary64)))))) (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))))))) (pow.f64 d #s(literal 6 binary64))))))))) (.f64 (ratio-of-squares.f64 c0 D) (.f64 (/.f64 d h) (/.f64 d (*.f64 w w))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 D D) (.f64 M (.f64 h (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))))))) (.f64 d d))) (.f64 #s(literal 2 binary64) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) (.f64 h w))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) (+.f64 (.f64 #s(literal 2 binary64) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) (.f64 h w)))) (.f64 M (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 D D) (.f64 M (.f64 h (.f64 w (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 c0 c0)) (/.f64 (.f64 (.f64 h h) (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))) #s(literal 2 binary64))) (pow.f64 d #s(literal 4 binary64)))))))))) (.f64 d d))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 D D) (.f64 h (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))))) (.f64 d d)))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) (+.f64 (.f64 #s(literal 2 binary64) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) (.f64 h w)))) (.f64 M (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 D D) (.f64 h (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))))) (.f64 d d))) (.f64 M (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 D D) (.f64 h (.f64 w (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 c0 c0)) (/.f64 (.f64 (.f64 h h) (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))) #s(literal 2 binary64))) (pow.f64 d #s(literal 4 binary64))))))))) (.f64 d d))) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (.f64 c0 c0)) (/.f64 (.f64 M (.f64 (pow.f64 h #s(literal 3 binary64)) (.f64 (pow.f64 w #s(literal 3 binary64)) (.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 c0 c0)) (/.f64 (.f64 (.f64 h h) (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))) #s(literal 2 binary64))) (pow.f64 d #s(literal 4 binary64)))))) (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (*.f64 h w)))))))) (pow.f64 d #s(literal 6 binary64)))))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M)))) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 D D) c0) (/.f64 (.f64 M (.f64 h (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))))) (.f64 d d)))) (.f64 #s(literal 2 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M)))) (+.f64 (.f64 #s(literal 2 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (.f64 M (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 D D) c0) (/.f64 (.f64 M (.f64 h (.f64 w (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 c0 c0)) (/.f64 (.f64 (.f64 h h) (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))) #s(literal 2 binary64))) (pow.f64 d #s(literal 4 binary64))))))))) (.f64 d d)))) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 D D) c0) (/.f64 (.f64 h (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))))) (.f64 d d))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M)))) (+.f64 (.f64 #s(literal 2 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (.f64 M (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 D D) c0) (/.f64 (.f64 h (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))))) (.f64 d d)))) (.f64 M (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 D D) c0) (/.f64 (.f64 h (.f64 w (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 c0 c0)) (/.f64 (.f64 (.f64 h h) (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))) #s(literal 2 binary64))) (pow.f64 d #s(literal 4 binary64)))))))) (.f64 d d)))) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (pow.f64 c0 #s(literal 3 binary64))) (/.f64 (.f64 M (.f64 (pow.f64 h #s(literal 3 binary64)) (.f64 (pow.f64 w #s(literal 3 binary64)) (.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 c0 c0)) (/.f64 (.f64 (.f64 h h) (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))) #s(literal 2 binary64))) (pow.f64 d #s(literal 4 binary64)))))) (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))))))) (pow.f64 d #s(literal 6 binary64)))))))))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 D D) c0) (/.f64 (.f64 M (.f64 h (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))))) (.f64 d d)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (*.f64 h w)))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))) (+.f64 (.f64 M (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 D D) c0) (/.f64 (.f64 M (.f64 h (.f64 w (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 c0 c0)) (/.f64 (.f64 (.f64 h h) (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))) #s(literal 2 binary64))) (pow.f64 d #s(literal 4 binary64))))))))) (.f64 d d)))) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 D D) c0) (/.f64 (.f64 h (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))))) (.f64 d d)))))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (*.f64 h w)))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))) (+.f64 (.f64 M (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 D D) c0) (/.f64 (.f64 h (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))))) (.f64 d d)))) (.f64 M (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 D D) c0) (/.f64 (.f64 h (.f64 w (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 c0 c0)) (/.f64 (.f64 (.f64 h h) (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))) #s(literal 2 binary64))) (pow.f64 d #s(literal 4 binary64)))))))) (.f64 d d)))) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 6 binary64)) (pow.f64 c0 #s(literal 3 binary64))) (/.f64 (.f64 M (.f64 (pow.f64 h #s(literal 3 binary64)) (.f64 (pow.f64 w #s(literal 3 binary64)) (.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 c0 c0)) (/.f64 (.f64 (.f64 h h) (pow.f64 (.f64 w (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))) #s(literal 2 binary64))) (pow.f64 d #s(literal 4 binary64)))))) (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))))))) (pow.f64 d #s(literal 6 binary64))))))))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (*.f64 h w)))))
#s(approx M M)
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (.f64 M (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 c0 (sqrt.f64 #s(literal -1 binary64))) w)) (.f64 #s(literal 1/2 binary64) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) (.f64 M (.f64 h (*.f64 w w)))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (.f64 M (+.f64 (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (pow.f64 c0 #s(literal 3 binary64)) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 (.f64 M M) (.f64 (.f64 h h) (.f64 (pow.f64 w #s(literal 3 binary64)) (sqrt.f64 #s(literal -1 binary64)))))))) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 c0 (sqrt.f64 #s(literal -1 binary64))) w)) (.f64 #s(literal 1/2 binary64) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) (.f64 M (.f64 h (.f64 w w))))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (.f64 M (+.f64 (.f64 #s(literal -1/16 binary64) (.f64 (/.f64 (pow.f64 c0 #s(literal 5 binary64)) (pow.f64 D #s(literal 8 binary64))) (/.f64 (pow.f64 d #s(literal 8 binary64)) (.f64 (pow.f64 M #s(literal 4 binary64)) (.f64 (pow.f64 h #s(literal 4 binary64)) (.f64 (pow.f64 w #s(literal 5 binary64)) (pow.f64 #s(literal -1 binary64) #s(literal 3/2 binary64)))))))) (+.f64 (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (pow.f64 c0 #s(literal 3 binary64)) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 (.f64 M M) (.f64 (.f64 h h) (.f64 (pow.f64 w #s(literal 3 binary64)) (sqrt.f64 #s(literal -1 binary64)))))))) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 c0 (sqrt.f64 #s(literal -1 binary64))) w)) (.f64 #s(literal 1/2 binary64) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) (.f64 M (.f64 h (*.f64 w w)))))))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (.f64 M (+.f64 (sqrt.f64 #s(literal -1 binary64)) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 M (*.f64 h w)))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (.f64 M (+.f64 (sqrt.f64 #s(literal -1 binary64)) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 (.f64 M M) (.f64 (.f64 h h) (.f64 (.f64 w w) (sqrt.f64 #s(literal -1 binary64)))))))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 M (.f64 h w))))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (.f64 M (+.f64 (sqrt.f64 #s(literal -1 binary64)) (+.f64 (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (pow.f64 c0 #s(literal 4 binary64)) (pow.f64 D #s(literal 8 binary64))) (/.f64 (pow.f64 d #s(literal 8 binary64)) (.f64 (pow.f64 M #s(literal 4 binary64)) (.f64 (pow.f64 h #s(literal 4 binary64)) (.f64 (pow.f64 w #s(literal 4 binary64)) (pow.f64 #s(literal -1 binary64) #s(literal 3/2 binary64)))))))) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 (.f64 M M) (.f64 (.f64 h h) (.f64 (.f64 w w) (sqrt.f64 #s(literal -1 binary64)))))))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 M (*.f64 h w)))))))))
#s(approx (* c0 (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w)))))) (.f64 (.f64 M M) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 D D) (.f64 h w)) (.f64 c0 (.f64 d d)))) (.f64 #s(literal 2 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 (.f64 M M) (.f64 h w))))))))
#s(approx (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w))))) (.f64 (.f64 M M) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (ratio-of-squares.f64 D c0) (/.f64 (.f64 h w) (.f64 d d)))) (.f64 #s(literal 2 binary64) (/.f64 (.f64 d d) (.f64 (.f64 D D) (.f64 (.f64 M M) (*.f64 h w))))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (.f64 M (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 c0 (sqrt.f64 #s(literal -1 binary64))) w)) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 c0 M) (/.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (sqrt.f64 #s(literal -1 binary64)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) w))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (.f64 M (+.f64 (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 c0 (.f64 M M)) (/.f64 (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (pow.f64 (.f64 h w) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) #s(literal 2 binary64)) #s(literal -1 binary64)))) (.f64 w (sqrt.f64 #s(literal -1 binary64)))))) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 c0 (sqrt.f64 #s(literal -1 binary64))) w)) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 c0 M) (/.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (sqrt.f64 #s(literal -1 binary64)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (*.f64 h w)))) w)))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (.f64 M (+.f64 (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 c0 (pow.f64 M #s(literal 3 binary64))) (/.f64 (.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (pow.f64 (.f64 h w) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) #s(literal 2 binary64)) #s(literal -1 binary64))))) (.f64 w (pow.f64 #s(literal -1 binary64) #s(literal 3/2 binary64)))))) (+.f64 (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 c0 (.f64 M M)) (/.f64 (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (pow.f64 (.f64 h w) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) #s(literal 2 binary64)) #s(literal -1 binary64)))) (.f64 w (sqrt.f64 #s(literal -1 binary64)))))) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 c0 (sqrt.f64 #s(literal -1 binary64))) w)) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 c0 M) (/.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (sqrt.f64 #s(literal -1 binary64)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (*.f64 h w)))) w))))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (.f64 M (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 c0 (sqrt.f64 #s(literal -1 binary64))) w)) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 c0 M) (/.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (sqrt.f64 #s(literal -1 binary64)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) w))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (.f64 M (+.f64 (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 c0 (.f64 M M)) (/.f64 (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (pow.f64 (.f64 h w) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) #s(literal 2 binary64)) #s(literal -1 binary64)))) (.f64 w (sqrt.f64 #s(literal -1 binary64)))))) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 c0 (sqrt.f64 #s(literal -1 binary64))) w)) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 c0 M) (/.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (sqrt.f64 #s(literal -1 binary64)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (*.f64 h w)))) w)))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (.f64 M (+.f64 (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 c0 (pow.f64 M #s(literal 3 binary64))) (/.f64 (.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (pow.f64 (.f64 h w) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) #s(literal 2 binary64)) #s(literal -1 binary64))))) (.f64 w (pow.f64 #s(literal -1 binary64) #s(literal 3/2 binary64)))))) (+.f64 (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 c0 (.f64 M M)) (/.f64 (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (pow.f64 (.f64 h w) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) #s(literal 2 binary64)) #s(literal -1 binary64)))) (.f64 w (sqrt.f64 #s(literal -1 binary64)))))) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 c0 (sqrt.f64 #s(literal -1 binary64))) w)) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 c0 M) (/.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (sqrt.f64 #s(literal -1 binary64)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (*.f64 h w)))) w))))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) (.f64 M (+.f64 (.f64 c0 (sqrt.f64 #s(literal -1 binary64))) (/.f64 (.f64 c0 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (sqrt.f64 #s(literal -1 binary64)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))) M))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) (.f64 M (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 c0 (.f64 M M)) (/.f64 (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (pow.f64 (.f64 h w) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) #s(literal 2 binary64)) #s(literal -1 binary64)))) (sqrt.f64 #s(literal -1 binary64))))) (+.f64 (.f64 c0 (sqrt.f64 #s(literal -1 binary64))) (/.f64 (.f64 c0 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (sqrt.f64 #s(literal -1 binary64)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))) M)))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) (.f64 M (+.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 c0 (.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (pow.f64 (.f64 h w) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) #s(literal 2 binary64)) #s(literal -1 binary64)))))) (pow.f64 (.f64 M (sqrt.f64 #s(literal -1 binary64))) #s(literal 3 binary64)))) (+.f64 (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 c0 (.f64 M M)) (/.f64 (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (pow.f64 (.f64 h w) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) #s(literal 2 binary64)) #s(literal -1 binary64)))) (sqrt.f64 #s(literal -1 binary64))))) (+.f64 (.f64 c0 (sqrt.f64 #s(literal -1 binary64))) (/.f64 (.f64 c0 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (sqrt.f64 #s(literal -1 binary64)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))) M))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M)))) (.f64 M (+.f64 (sqrt.f64 #s(literal -1 binary64)) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (.f64 M (sqrt.f64 #s(literal -1 binary64))))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 M (.f64 h w))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M)))) (.f64 M (+.f64 (sqrt.f64 #s(literal -1 binary64)) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (.f64 M (sqrt.f64 #s(literal -1 binary64))))) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (pow.f64 (.f64 h w) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) #s(literal 2 binary64)) #s(literal -1 binary64)))) (.f64 (.f64 M M) (sqrt.f64 #s(literal -1 binary64))))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 M (.f64 h w)))))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M)))) (.f64 M (+.f64 (sqrt.f64 #s(literal -1 binary64)) (+.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (pow.f64 (.f64 h w) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) #s(literal 2 binary64)) #s(literal -1 binary64))))) (pow.f64 (.f64 M (sqrt.f64 #s(literal -1 binary64))) #s(literal 3 binary64)))) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (.f64 M (sqrt.f64 #s(literal -1 binary64))))) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (pow.f64 (.f64 h w) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) #s(literal 2 binary64)) #s(literal -1 binary64)))) (.f64 (.f64 M M) (sqrt.f64 #s(literal -1 binary64))))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 M (*.f64 h w))))))))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))) (.f64 M (+.f64 (sqrt.f64 #s(literal -1 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (.f64 M (sqrt.f64 #s(literal -1 binary64))))))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))) (.f64 M (+.f64 (sqrt.f64 #s(literal -1 binary64)) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (.f64 M (sqrt.f64 #s(literal -1 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (pow.f64 (.f64 h w) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) #s(literal 2 binary64)) #s(literal -1 binary64)))) (.f64 (.f64 M M) (sqrt.f64 #s(literal -1 binary64)))))))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))) (.f64 M (+.f64 (sqrt.f64 #s(literal -1 binary64)) (+.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (pow.f64 (.f64 h w) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) #s(literal 2 binary64)) #s(literal -1 binary64))))) (pow.f64 (.f64 M (sqrt.f64 #s(literal -1 binary64))) #s(literal 3 binary64)))) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (.f64 M (sqrt.f64 #s(literal -1 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (pow.f64 (.f64 h w) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) #s(literal 2 binary64)) #s(literal -1 binary64)))) (.f64 (*.f64 M M) (sqrt.f64 #s(literal -1 binary64))))))))))
#s(approx (/ (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (* w w)) (.f64 (.f64 M M) (+.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 D D) h) (.f64 d d))) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) (.f64 (.f64 M M) (.f64 h (.f64 w w))))))))
#s(approx (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (.f64 (.f64 M M) (+.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 D D) (.f64 h (.f64 w w))) (.f64 d d))) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) (.f64 (.f64 M M) h))))))
#s(approx (* h (+ (* -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h h))))) (.f64 (.f64 M M) (+.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 D D) (.f64 h (.f64 w w))) (.f64 d d))) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) (.f64 (.f64 M M) h))))))
#s(approx (+ (* -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h h)))) (.f64 (.f64 M M) (+.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (pow.f64 (.f64 D w) #s(literal 2 binary64)) (.f64 d d))) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) (pow.f64 (.f64 M h) #s(literal 2 binary64)))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 M (*.f64 c0 (sqrt.f64 #s(literal -1 binary64)))) w)))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (.f64 #s(literal -1 binary64) (.f64 M (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) (.f64 M (.f64 h (.f64 w w)))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 c0 (sqrt.f64 #s(literal -1 binary64))) w))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (.f64 #s(literal -1 binary64) (.f64 M (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (pow.f64 c0 #s(literal 3 binary64)) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 M (.f64 (.f64 h h) (.f64 (pow.f64 w #s(literal 3 binary64)) (sqrt.f64 #s(literal -1 binary64)))))))) (.f64 #s(literal 1/2 binary64) (.f64 (ratio-of-squares.f64 c0 D) (.f64 (/.f64 d h) (/.f64 d (.f64 w w)))))) M)) (.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 c0 (sqrt.f64 #s(literal -1 binary64))) w))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (.f64 #s(literal -1 binary64) (.f64 M (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1/16 binary64) (.f64 (/.f64 (pow.f64 c0 #s(literal 5 binary64)) (pow.f64 D #s(literal 8 binary64))) (/.f64 (pow.f64 d #s(literal 8 binary64)) (.f64 (.f64 M M) (.f64 (pow.f64 h #s(literal 4 binary64)) (.f64 (pow.f64 w #s(literal 5 binary64)) (pow.f64 #s(literal -1 binary64) #s(literal 3/2 binary64)))))))) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (pow.f64 c0 #s(literal 3 binary64)) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 (.f64 h h) (.f64 (pow.f64 w #s(literal 3 binary64)) (sqrt.f64 #s(literal -1 binary64)))))))) M)) (.f64 #s(literal 1/2 binary64) (.f64 (ratio-of-squares.f64 c0 D) (.f64 (/.f64 d h) (/.f64 d (.f64 w w)))))) M)) (.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 c0 (sqrt.f64 #s(literal -1 binary64))) w))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (.f64 #s(literal -1 binary64) (.f64 M (sqrt.f64 #s(literal -1 binary64)))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (.f64 #s(literal -1 binary64) (.f64 M (+.f64 (sqrt.f64 #s(literal -1 binary64)) (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 M (*.f64 h w)))))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (.f64 #s(literal -1 binary64) (.f64 M (+.f64 (sqrt.f64 #s(literal -1 binary64)) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 M (.f64 (.f64 h h) (.f64 (.f64 w w) (sqrt.f64 #s(literal -1 binary64)))))))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) M))))))
#s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (.f64 #s(literal -1 binary64) (.f64 M (+.f64 (sqrt.f64 #s(literal -1 binary64)) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (pow.f64 c0 #s(literal 4 binary64)) (pow.f64 D #s(literal 8 binary64))) (/.f64 (pow.f64 d #s(literal 8 binary64)) (.f64 (.f64 M M) (.f64 (pow.f64 h #s(literal 4 binary64)) (.f64 (pow.f64 w #s(literal 4 binary64)) (pow.f64 #s(literal -1 binary64) #s(literal 3/2 binary64)))))))) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (.f64 (.f64 h h) (.f64 (.f64 w w) (sqrt.f64 #s(literal -1 binary64)))))))) M)) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) M))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 M (*.f64 c0 (sqrt.f64 #s(literal -1 binary64)))) w)))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (.f64 #s(literal -1 binary64) (.f64 M (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (/.f64 c0 M) (/.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (sqrt.f64 #s(literal -1 binary64)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) w))) (.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 c0 (sqrt.f64 #s(literal -1 binary64))) w))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (.f64 #s(literal -1 binary64) (.f64 M (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 c0 M) (/.f64 (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (pow.f64 (.f64 h w) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) #s(literal 2 binary64)) #s(literal -1 binary64)))) (.f64 w (sqrt.f64 #s(literal -1 binary64)))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 c0 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (sqrt.f64 #s(literal -1 binary64)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))) w))) M)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 c0 (sqrt.f64 #s(literal -1 binary64))) w))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (.f64 #s(literal -1 binary64) (.f64 M (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal 1/8 binary64) (.f64 (/.f64 c0 M) (/.f64 (.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (pow.f64 (.f64 h w) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) #s(literal 2 binary64)) #s(literal -1 binary64))))) (.f64 w (pow.f64 #s(literal -1 binary64) #s(literal 3/2 binary64)))))) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 c0 w) (/.f64 (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (pow.f64 (.f64 h w) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) #s(literal 2 binary64)) #s(literal -1 binary64)))) (sqrt.f64 #s(literal -1 binary64)))))) M)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 c0 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (sqrt.f64 #s(literal -1 binary64)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))) w))) M)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 c0 (sqrt.f64 #s(literal -1 binary64))) w))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 M (*.f64 c0 (sqrt.f64 #s(literal -1 binary64)))) w)))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (.f64 #s(literal -1 binary64) (.f64 M (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (/.f64 c0 M) (/.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (sqrt.f64 #s(literal -1 binary64)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) w))) (.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 c0 (sqrt.f64 #s(literal -1 binary64))) w))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (.f64 #s(literal -1 binary64) (.f64 M (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 c0 M) (/.f64 (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (pow.f64 (.f64 h w) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) #s(literal 2 binary64)) #s(literal -1 binary64)))) (.f64 w (sqrt.f64 #s(literal -1 binary64)))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 c0 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (sqrt.f64 #s(literal -1 binary64)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))) w))) M)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 c0 (sqrt.f64 #s(literal -1 binary64))) w))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (.f64 #s(literal -1 binary64) (.f64 M (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal 1/8 binary64) (.f64 (/.f64 c0 M) (/.f64 (.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (pow.f64 (.f64 h w) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) #s(literal 2 binary64)) #s(literal -1 binary64))))) (.f64 w (pow.f64 #s(literal -1 binary64) #s(literal 3/2 binary64)))))) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 c0 w) (/.f64 (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (pow.f64 (.f64 h w) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) #s(literal 2 binary64)) #s(literal -1 binary64)))) (sqrt.f64 #s(literal -1 binary64)))))) M)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 c0 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (sqrt.f64 #s(literal -1 binary64)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))) w))) M)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 c0 (sqrt.f64 #s(literal -1 binary64))) w))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) (.f64 #s(literal -1 binary64) (.f64 M (*.f64 c0 (sqrt.f64 #s(literal -1 binary64))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) (.f64 #s(literal -1 binary64) (.f64 M (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (sqrt.f64 #s(literal -1 binary64)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))) M)) (.f64 c0 (sqrt.f64 #s(literal -1 binary64)))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) (.f64 #s(literal -1 binary64) (.f64 M (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (/.f64 c0 M) (/.f64 (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (pow.f64 (.f64 h w) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) #s(literal 2 binary64)) #s(literal -1 binary64)))) (sqrt.f64 #s(literal -1 binary64))))) (.f64 c0 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (sqrt.f64 #s(literal -1 binary64)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))))) M)) (*.f64 c0 (sqrt.f64 #s(literal -1 binary64)))))))
#s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))))) (.f64 #s(literal -1 binary64) (.f64 M (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 c0 M) (/.f64 (.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (pow.f64 (.f64 h w) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) #s(literal 2 binary64)) #s(literal -1 binary64))))) (pow.f64 #s(literal -1 binary64) #s(literal 3/2 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 c0 (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (pow.f64 (.f64 h w) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) #s(literal 2 binary64)) #s(literal -1 binary64))))) (sqrt.f64 #s(literal -1 binary64))))) M)) (.f64 c0 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (sqrt.f64 #s(literal -1 binary64)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))))) M)) (*.f64 c0 (sqrt.f64 #s(literal -1 binary64)))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M)))) (.f64 #s(literal -1 binary64) (.f64 M (sqrt.f64 #s(literal -1 binary64)))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M)))) (.f64 #s(literal -1 binary64) (.f64 M (+.f64 (sqrt.f64 #s(literal -1 binary64)) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (sqrt.f64 #s(literal -1 binary64)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) M))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M)))) (.f64 #s(literal -1 binary64) (.f64 M (+.f64 (sqrt.f64 #s(literal -1 binary64)) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (pow.f64 (.f64 h w) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) #s(literal 2 binary64)) #s(literal -1 binary64)))) (.f64 M (sqrt.f64 #s(literal -1 binary64))))) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (sqrt.f64 #s(literal -1 binary64)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (*.f64 h w))))) M))))))
#s(approx (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M)))) (.f64 #s(literal -1 binary64) (.f64 M (+.f64 (sqrt.f64 #s(literal -1 binary64)) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) M) (/.f64 (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (pow.f64 (.f64 h w) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) #s(literal 2 binary64)) #s(literal -1 binary64)))) (pow.f64 #s(literal -1 binary64) #s(literal 3/2 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (pow.f64 (.f64 h w) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) #s(literal 2 binary64)) #s(literal -1 binary64)))) (sqrt.f64 #s(literal -1 binary64))))) M)) (+.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (sqrt.f64 #s(literal -1 binary64)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (*.f64 h w))))) M))))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))) (.f64 #s(literal -1 binary64) (.f64 M (sqrt.f64 #s(literal -1 binary64)))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))) (.f64 #s(literal -1 binary64) (.f64 M (+.f64 (sqrt.f64 #s(literal -1 binary64)) (.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (*.f64 M (sqrt.f64 #s(literal -1 binary64)))))))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))) (.f64 #s(literal -1 binary64) (.f64 M (+.f64 (sqrt.f64 #s(literal -1 binary64)) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (pow.f64 (.f64 h w) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) #s(literal 2 binary64)) #s(literal -1 binary64)))) (.f64 M (sqrt.f64 #s(literal -1 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (sqrt.f64 #s(literal -1 binary64))))) M))))))
#s(approx (sqrt (* (+ (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M) (- (* (/ c0 (* h w)) (* (/ d D) (/ d D))) M))) (.f64 #s(literal -1 binary64) (.f64 M (+.f64 (sqrt.f64 #s(literal -1 binary64)) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) M) (/.f64 (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (pow.f64 (.f64 h w) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) #s(literal 2 binary64)) #s(literal -1 binary64)))) (pow.f64 #s(literal -1 binary64) #s(literal 3/2 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (.f64 (/.f64 (.f64 c0 c0) (pow.f64 D #s(literal 4 binary64))) (/.f64 (pow.f64 d #s(literal 4 binary64)) (pow.f64 (.f64 h w) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) #s(literal 2 binary64)) #s(literal -1 binary64)))) (sqrt.f64 #s(literal -1 binary64))))) M)) (.f64 #s(literal 1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))) (sqrt.f64 #s(literal -1 binary64))))) M))))))

eval1.1s (6.5%)

Memory

-108.4MiB live, 779.9MiB allocated; 1.0s collecting garbage

Samples

387.0ms	6 906×	0	valid
46.0ms	1 030×	0	invalid

Compiler

Compiled 79 595 to 4 260 computations (94.6% saved)

Precisions

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

ival-mult: 187.0ms (73.2% of total)

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

ival-sqrt: 7.0ms (2.7% of total)

ival-add: 6.0ms (2.3% of total)

ival-sub: 5.0ms (2% of total)

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

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

adjust: 2.0ms (0.8% of total)

prune753.0ms (4.6%)

Memory

27.4MiB live, 1 043.7MiB allocated; 339ms collecting garbage

Pruning

28 alts after pruning (21 fresh and 7 done)

	Pruned	Kept	Total
New	655	7	662
Fresh	9	14	23
Picked	2	3	5
Done	1	4	5
Total	667	28	695

Accuracy

78.1%

Counts

695 → 28

Alt Table

Click to see full alt table

Status	Accuracy	Program
✓	12.1%	(/.f64 (.f64 c0 (+.f64 (.f64 (/.f64 c0 (.f64 h w)) (ratio-of-squares.f64 d D)) (sqrt-product.f64 (.f64 (/.f64 c0 (.f64 h w)) (.f64 (/.f64 d D) (/.f64 d D))) M))) (*.f64 w #s(literal 2 binary64)))
	33.9%	(/.f64 (.f64 c0 (+.f64 (.f64 (/.f64 c0 (.f64 h w)) (ratio-of-squares.f64 d D)) (.f64 (sqrt.f64 (+.f64 (.f64 (/.f64 c0 (.f64 h w)) (ratio-of-squares.f64 d D)) M)) (sqrt.f64 (-.f64 (.f64 (/.f64 c0 (.f64 h w)) (ratio-of-squares.f64 d D)) M))))) (*.f64 w #s(literal 2 binary64)))
	3.6%	(/.f64 (.f64 c0 (+.f64 (.f64 (/.f64 c0 (.f64 h w)) (ratio-of-squares.f64 d D)) #s(approx (sqrt ( (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))) (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))))) (*.f64 w #s(literal 2 binary64)))
✓	29.7%	(/.f64 (.f64 c0 #s(approx (+ ( (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) (.f64 #s(literal 2 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))))) (*.f64 w #s(literal 2 binary64)))
	29.8%	(/.f64 #s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (.f64 #s(literal 2 binary64) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) (.f64 h w))))) (*.f64 w #s(literal 2 binary64)))
	7.5%	(.f64 (/.f64 c0 (.f64 #s(literal 2 binary64) w)) (/.f64 (+.f64 (pow.f64 (.f64 (/.f64 c0 (.f64 h w)) (ratio-of-squares.f64 d D)) #s(literal 3 binary64)) (pow.f64 (sqrt-product.f64 (.f64 (/.f64 c0 (.f64 h w)) (ratio-of-squares.f64 d D)) M) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (/.f64 c0 (.f64 h w)) (ratio-of-squares.f64 d D)) #s(literal 2 binary64)) (-.f64 (.f64 (sqrt-product.f64 (.f64 (/.f64 c0 (.f64 h w)) (ratio-of-squares.f64 d D)) M) (sqrt-product.f64 (.f64 (/.f64 c0 (.f64 h w)) (ratio-of-squares.f64 d D)) M)) (.f64 (.f64 (/.f64 c0 (.f64 h w)) (ratio-of-squares.f64 d D)) (sqrt-product.f64 (.f64 (/.f64 c0 (.f64 h w)) (ratio-of-squares.f64 d D)) M))))))
	19.9%	(.f64 (/.f64 c0 (.f64 #s(literal 2 binary64) w)) (+.f64 (.f64 (/.f64 c0 (.f64 h w)) (ratio-of-squares.f64 d D)) #s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) (.f64 c0 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (ratio-of-squares.f64 D c0) (/.f64 (.f64 (.f64 M M) (.f64 h w)) (.f64 d d)))) (/.f64 (.f64 d d) (.f64 (.f64 D D) (*.f64 h w))))))))
✓	39.2%	(.f64 (/.f64 c0 (.f64 #s(literal 2 binary64) w)) #s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (.f64 (.f64 (/.f64 c0 (*.f64 h w)) (ratio-of-squares.f64 d D)) #s(literal 2 binary64))))
✓	39.1%	(.f64 (/.f64 c0 (.f64 #s(literal 2 binary64) w)) #s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (.f64 (.f64 (/.f64 c0 (.f64 h w)) (.f64 (/.f64 d D) (/.f64 d D))) #s(literal 2 binary64))))
	30.0%	(.f64 (/.f64 c0 (.f64 #s(literal 2 binary64) w)) #s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (.f64 c0 #s(approx (+ ( -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w))))) (.f64 #s(literal 2 binary64) (/.f64 (.f64 d d) (.f64 (.f64 D D) (*.f64 h w))))))))
✓	35.3%	(.f64 (/.f64 c0 (.f64 #s(literal 2 binary64) w)) #s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (.f64 c0 #s(approx (+ ( -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w))))) (.f64 #s(literal 2 binary64) (.f64 (/.f64 d (.f64 D D)) (/.f64 d (.f64 h w))))))))
	35.1%	(.f64 (/.f64 c0 (.f64 #s(literal 2 binary64) w)) #s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (.f64 c0 #s(approx (+ ( -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w))))) (.f64 #s(literal 2 binary64) (.f64 (/.f64 d (exp.f64 (.f64 (log.f64 D) #s(literal 2 binary64)))) (/.f64 d (.f64 h w))))))))
	3.7%	(.f64 (/.f64 c0 (.f64 #s(literal 2 binary64) w)) #s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (.f64 #s(literal -1 binary64) (.f64 c0 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 d d) (.f64 (.f64 D D) (.f64 h w)))) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (ratio-of-squares.f64 D c0) (/.f64 (.f64 (.f64 M M) (.f64 h w)) (.f64 d d)))) (/.f64 (.f64 d d) (.f64 (.f64 D D) (*.f64 h w)))))))))
	30.8%	(.f64 (/.f64 c0 (.f64 #s(literal 2 binary64) w)) #s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(approx (neg (* (* 0 (/ (/ (* d d) (* D D)) (* h w))) c0)) #s(literal 0 binary64))))
	32.1%	#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (/.f64 (pow.f64 (.f64 c0 d) #s(literal 2 binary64)) (.f64 (.f64 D D) (.f64 h (*.f64 w w)))))
✓	27.5%	#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) (.f64 h (.f64 w w)))))
	34.3%	#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (.f64 (ratio-of-squares.f64 c0 D) (.f64 (/.f64 d h) (/.f64 d (*.f64 w w)))))
	31.8%	#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (/.f64 (+.f64 (.f64 (ratio-of-squares.f64 c0 D) (ratio-of-squares.f64 d w)) (.f64 (.f64 (.f64 D D) (ratio-of-squares.f64 (pow.f64 (*.f64 M h) #s(literal 1 binary64)) d)) #s(literal -1/4 binary64))) h))
	15.7%	#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (/.f64 #s(approx (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (/.f64 (+.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 (.f64 M M) (.f64 h (.f64 w w)))) (.f64 d d))) (/.f64 (pow.f64 (.f64 c0 d) #s(literal 2 binary64)) h)) (.f64 D D))) (.f64 w w)))
	26.1%	#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (/.f64 #s(approx (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) h))) (*.f64 w w)))
	29.5%	#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (/.f64 #s(approx (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (.f64 h #s(approx (+ ( -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h h)))) (.f64 (ratio-of-squares.f64 c0 D) (ratio-of-squares.f64 d h))))) (.f64 w w)))
	21.3%	#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (/.f64 #s(approx (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (.f64 h #s(approx (+ ( -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h h)))) (.f64 (.f64 c0 c0) (+.f64 (.f64 #s(literal -1/4 binary64) (.f64 (ratio-of-squares.f64 D c0) (ratio-of-squares.f64 (.f64 M w) d))) (/.f64 (.f64 d d) (pow.f64 (.f64 D h) #s(literal 2 binary64)))))))) (.f64 w w)))
	17.7%	#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (/.f64 #s(approx (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (.f64 h #s(approx (+ ( -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h h)))) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 D D) (.f64 (.f64 M w) (.f64 M w))) (.f64 d d)))))) (.f64 w w)))
	19.0%	#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (/.f64 #s(approx (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (.f64 h #s(approx (+ ( -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h h)))) (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (.f64 D D) d) (/.f64 (pow.f64 (.f64 M w) #s(literal 2 binary64)) d)))))) (*.f64 w w)))
	5.5%	#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (.f64 (-.f64 (.f64 (/.f64 (.f64 #s(literal 0 binary64) (/.f64 (ratio-of-squares.f64 d D) (.f64 h w))) w) #s(literal -1/2 binary64)) (.f64 (.f64 (ratio-of-squares.f64 D c0) (.f64 (.f64 M M) (/.f64 h (.f64 d d)))) #s(literal -1/4 binary64))) (.f64 c0 c0)))
✓	31.4%	#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (.f64 (.f64 c0 c0) (/.f64 (ratio-of-squares.f64 d D) (.f64 (.f64 w w) h))))
	4.9%	#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (.f64 (.f64 c0 c0) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 d d) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 d d) (.f64 (.f64 D D) (.f64 h w)))) w)) (.f64 #s(literal 1/4 binary64) (.f64 (ratio-of-squares.f64 D c0) (/.f64 (.f64 (.f64 M M) h) (*.f64 d d)))))))
	27.8%	#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(approx (/ (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (* w w)) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 D D) (.f64 (.f64 M M) h)) (.f64 d d)))))

Samples

326.0ms	7 869×	0	valid
50.0ms	1 091×	0	invalid

Compiler

Compiled 7 364 to 1 544 computations (79% saved)

Precisions

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

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

ival-div: 46.0ms (23.8% of total)

ival-sqrt: 10.0ms (5.2% of total)

ival-sub: 5.0ms (2.6% of total)

ival-add: 5.0ms (2.6% of total)

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

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

adjust: 2.0ms (1% of total)

regimes211.0ms (1.3%)

Memory

-23.3MiB live, 366.0MiB allocated; 96ms collecting garbage

Counts

58 → 2

Calls

Call 1

Inputs
(.f64 (/.f64 c0 (.f64 #s(literal 2 binary64) w)) #s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(approx (neg (* (* 0 (/ (/ (* d d) (* D D)) (* h w))) c0)) #s(literal 0 binary64))))
(.f64 (/.f64 c0 (.f64 #s(literal 2 binary64) w)) #s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (*.f64 (sqrt.f64 #s(literal -1 binary64)) M)))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (.f64 (.f64 c0 c0) (/.f64 (ratio-of-squares.f64 d D) (.f64 (.f64 w w) h))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) (.f64 h (.f64 w w)))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (/.f64 #s(approx (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (.f64 h #s(approx (+ ( -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h h)))) (.f64 (ratio-of-squares.f64 c0 D) (ratio-of-squares.f64 d h))))) (.f64 w w)))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(approx (/ (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (* w w)) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 D D) (.f64 (.f64 M M) h)) (.f64 d d)))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (/.f64 #s(approx (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) h))) (*.f64 w w)))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (.f64 (ratio-of-squares.f64 c0 D) (.f64 (/.f64 d h) (/.f64 d (*.f64 w w)))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (.f64 (/.f64 (.f64 (.f64 #s(literal 0 binary64) (/.f64 (ratio-of-squares.f64 d D) (.f64 h w))) (*.f64 c0 c0)) w) #s(literal -1/2 binary64)))
(.f64 (/.f64 c0 (.f64 #s(literal 2 binary64) w)) #s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (.f64 (.f64 (/.f64 c0 (*.f64 h w)) (ratio-of-squares.f64 d D)) #s(literal 2 binary64))))
(/.f64 #s(approx (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (.f64 #s(literal 2 binary64) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) (.f64 h w))))) (*.f64 w #s(literal 2 binary64)))
(.f64 (/.f64 c0 (.f64 #s(literal 2 binary64) w)) #s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (neg.f64 (.f64 (.f64 #s(literal 0 binary64) (/.f64 (ratio-of-squares.f64 d D) (*.f64 h w))) c0))))
(.f64 (/.f64 c0 (.f64 #s(literal 2 binary64) w)) #s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (.f64 c0 #s(approx (+ ( -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w))))) (.f64 #s(literal 2 binary64) (/.f64 (.f64 d d) (.f64 (.f64 D D) (*.f64 h w))))))))
(/.f64 (.f64 c0 #s(approx (+ ( (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M)))) (.f64 #s(literal 2 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w)))))) (*.f64 w #s(literal 2 binary64)))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (/.f64 #s(approx (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 D D) (.f64 (.f64 M M) (.f64 h (.f64 w w)))) (.f64 d d)))) (*.f64 w w)))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (/.f64 #s(approx (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (.f64 h #s(approx (+ ( -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h h)))) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 D D) (.f64 (.f64 M w) (.f64 M w))) (.f64 d d)))))) (.f64 w w)))
(.f64 (/.f64 c0 (.f64 #s(literal 2 binary64) w)) #s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (.f64 c0 #s(approx (+ ( -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w))))) (.f64 #s(literal 2 binary64) (.f64 (/.f64 d (.f64 D D)) (/.f64 d (.f64 h w))))))))
(.f64 (/.f64 c0 (.f64 #s(literal 2 binary64) w)) #s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (.f64 (.f64 (/.f64 c0 (.f64 h w)) (/.f64 (.f64 d d) (*.f64 D D))) #s(literal 2 binary64))))
(.f64 (/.f64 c0 (.f64 #s(literal 2 binary64) w)) #s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(approx (* c0 (+ (* -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w)))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 D D) (.f64 (.f64 M M) (.f64 h w))) (.f64 c0 (.f64 d d)))))))
(.f64 (/.f64 c0 (.f64 #s(literal 2 binary64) w)) #s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (.f64 (.f64 (/.f64 c0 (.f64 h w)) (.f64 (/.f64 d D) (/.f64 d D))) #s(literal 2 binary64))))
(.f64 (/.f64 c0 (.f64 #s(literal 2 binary64) w)) (+.f64 (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 w h) (.f64 D D))) (sqrt.f64 #s(approx (- ( (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)) (neg.f64 (*.f64 M M))))))
(.f64 (/.f64 c0 (.f64 #s(literal 2 binary64) w)) #s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (.f64 c0 #s(approx (+ ( -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w))))) (.f64 #s(literal -1/2 binary64) (.f64 (ratio-of-squares.f64 D c0) (.f64 (/.f64 (.f64 M M) d) (/.f64 (*.f64 h w) d))))))))
(/.f64 (.f64 c0 (+.f64 (.f64 (/.f64 c0 (.f64 h w)) (ratio-of-squares.f64 d D)) (sqrt-product.f64 (.f64 (/.f64 c0 (.f64 h w)) (ratio-of-squares.f64 d D)) M))) (.f64 w #s(literal 2 binary64)))
(.f64 (/.f64 c0 (.f64 #s(literal 2 binary64) w)) (+.f64 (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 w h) (.f64 D D))) #s(approx (sqrt (- ( (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) (.f64 (/.f64 c0 (.f64 h w)) (ratio-of-squares.f64 d D)))))
(/.f64 (.f64 c0 (+.f64 (.f64 (/.f64 c0 (.f64 h w)) (ratio-of-squares.f64 d D)) #s(approx (sqrt ( (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))) (.f64 #s(literal -1 binary64) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 D D) (.f64 h w))))))) (*.f64 w #s(literal 2 binary64)))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (.f64 (-.f64 (.f64 (/.f64 (.f64 #s(literal 0 binary64) (/.f64 (ratio-of-squares.f64 d D) (.f64 h w))) w) #s(literal -1/2 binary64)) (.f64 (.f64 (ratio-of-squares.f64 D c0) (.f64 (.f64 M M) (/.f64 h (.f64 d d)))) #s(literal -1/4 binary64))) (.f64 c0 c0)))
(.f64 (/.f64 c0 (.f64 #s(literal 2 binary64) w)) #s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (.f64 (-.f64 (.f64 (.f64 (ratio-of-squares.f64 D c0) (/.f64 (.f64 (.f64 (.f64 M M) h) w) (.f64 d d))) #s(literal -1/2 binary64)) (.f64 #s(literal -2 binary64) (/.f64 (ratio-of-squares.f64 d D) (*.f64 h w)))) c0)))
(/.f64 (.f64 c0 (+.f64 (.f64 (/.f64 c0 (.f64 h w)) (ratio-of-squares.f64 d D)) (sqrt-product.f64 (.f64 (/.f64 c0 (.f64 h w)) (.f64 (/.f64 d D) (/.f64 d D))) M))) (*.f64 w #s(literal 2 binary64)))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (/.f64 #s(approx (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (.f64 (.f64 c0 c0) (+.f64 (.f64 #s(literal -1/4 binary64) (.f64 (ratio-of-squares.f64 D c0) (/.f64 (.f64 (.f64 M M) (.f64 h (.f64 w w))) (.f64 d d)))) (/.f64 (.f64 d d) (.f64 (.f64 D D) h))))) (*.f64 w w)))
(.f64 (/.f64 c0 (.f64 #s(literal 2 binary64) w)) (+.f64 (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 w h) (.f64 D D))) (sqrt.f64 (-.f64 (ratio-of-squares.f64 (.f64 (.f64 d d) c0) (.f64 (.f64 (.f64 h w) D) D)) (*.f64 M M)))))
(.f64 (/.f64 c0 (.f64 #s(literal 2 binary64) w)) #s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (.f64 c0 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (ratio-of-squares.f64 D c0) (/.f64 (.f64 (.f64 M M) (.f64 h w)) (.f64 d d)))) (.f64 #s(literal 2 binary64) (/.f64 (.f64 d d) (.f64 (.f64 D D) (.f64 h w))))))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (/.f64 (pow.f64 (.f64 c0 d) #s(literal 2 binary64)) (.f64 (.f64 D D) (.f64 h (*.f64 w w)))))
(/.f64 (.f64 c0 (+.f64 (.f64 (/.f64 c0 (.f64 h w)) (ratio-of-squares.f64 d D)) (.f64 (sqrt.f64 (+.f64 (.f64 (/.f64 c0 (.f64 h w)) (ratio-of-squares.f64 d D)) M)) (sqrt.f64 (-.f64 (.f64 (/.f64 c0 (.f64 h w)) (ratio-of-squares.f64 d D)) M))))) (*.f64 w #s(literal 2 binary64)))
(.f64 (/.f64 c0 (.f64 #s(literal 2 binary64) w)) (+.f64 (.f64 (/.f64 c0 (.f64 h w)) (ratio-of-squares.f64 d D)) #s(approx (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) (.f64 c0 (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (ratio-of-squares.f64 D c0) (/.f64 (.f64 (.f64 M M) (.f64 h w)) (.f64 d d)))) (/.f64 (.f64 d d) (.f64 (.f64 D D) (*.f64 h w))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (.f64 (.f64 c0 c0) (+.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 d d) (.f64 (.f64 D D) (.f64 h w)))) (/.f64 (.f64 d d) (.f64 (.f64 D D) (.f64 h w)))) w)) (.f64 #s(literal 1/4 binary64) (.f64 (ratio-of-squares.f64 D c0) (/.f64 (.f64 (.f64 M M) h) (*.f64 d d)))))))
(.f64 (/.f64 c0 (.f64 #s(literal 2 binary64) w)) (+.f64 (.f64 (/.f64 c0 (.f64 h w)) (ratio-of-squares.f64 d D)) (sqrt.f64 (-.f64 (.f64 (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 w h) (.f64 D D))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 w h) (.f64 D D)))) (.f64 M M)))))
(.f64 (/.f64 c0 (.f64 #s(literal 2 binary64) w)) #s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (.f64 #s(literal -1 binary64) (.f64 c0 (+.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 d d) (.f64 (.f64 D D) (.f64 h w)))) (+.f64 (.f64 #s(literal -1/2 binary64) (.f64 (ratio-of-squares.f64 D c0) (/.f64 (.f64 (.f64 M M) (.f64 h w)) (.f64 d d)))) (/.f64 (.f64 d d) (.f64 (.f64 D D) (*.f64 h w)))))))))
(.f64 (/.f64 c0 (.f64 #s(literal 2 binary64) w)) (+.f64 (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 w h) (.f64 D D))) (sqrt.f64 (-.f64 (.f64 (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 w h) (.f64 D D))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 w h) (.f64 D D)))) (*.f64 M M)))))
(.f64 (/.f64 c0 (.f64 #s(literal 2 binary64) w)) (+.f64 (/.f64 (.f64 (.f64 c0 d) d) (.f64 (.f64 w h) (.f64 D D))) (sqrt.f64 (-.f64 (.f64 (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 w h) (.f64 D D))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 w h) (.f64 D D)))) (*.f64 M M)))))
(.f64 (/.f64 c0 (.f64 #s(literal 2 binary64) w)) (+.f64 (/.f64 (.f64 (.f64 d d) c0) (.f64 (.f64 (.f64 h w) D) D)) (sqrt.f64 (-.f64 (.f64 (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 w h) (.f64 D D))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 w h) (.f64 D D)))) (*.f64 M M)))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (/.f64 #s(approx (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (.f64 h #s(approx (+ ( -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h h)))) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 D D) (pow.f64 (.f64 M w) #s(literal 2 binary64))) (.f64 d d)))))) (.f64 w w)))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (/.f64 (+.f64 (.f64 (ratio-of-squares.f64 c0 D) (ratio-of-squares.f64 d w)) (.f64 (.f64 (.f64 D D) (ratio-of-squares.f64 (pow.f64 (*.f64 M h) #s(literal 1 binary64)) d)) #s(literal -1/4 binary64))) h))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (/.f64 #s(approx (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (.f64 h #s(approx (+ ( -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h h)))) (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (.f64 D D) d) (/.f64 (pow.f64 (.f64 M w) #s(literal 2 binary64)) d)))))) (*.f64 w w)))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (/.f64 #s(approx (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (.f64 h (+.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 D D) (pow.f64 (.f64 M w) #s(literal 2 binary64))) (.f64 d d))) (.f64 (ratio-of-squares.f64 c0 D) (ratio-of-squares.f64 d h))))) (.f64 w w)))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (/.f64 (+.f64 (.f64 (/.f64 (.f64 c0 c0) h) (ratio-of-squares.f64 d w)) (.f64 (/.f64 (.f64 (.f64 (.f64 M M) h) (pow.f64 D #s(literal 4 binary64))) (.f64 d d)) #s(literal -1/4 binary64))) (.f64 D D)))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (/.f64 #s(approx (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (.f64 h #s(approx (+ ( -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h h)))) (.f64 (.f64 c0 c0) (+.f64 (.f64 #s(literal -1/4 binary64) (.f64 (ratio-of-squares.f64 D c0) (ratio-of-squares.f64 (.f64 M w) d))) (/.f64 (.f64 d d) (pow.f64 (.f64 D h) #s(literal 2 binary64)))))))) (.f64 w w)))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (/.f64 (+.f64 (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) h)) (.f64 (/.f64 (.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) (.f64 (.f64 w w) h)) (.f64 d d)) #s(literal -1/4 binary64))) (*.f64 w w)))
(.f64 (/.f64 c0 (.f64 #s(literal 2 binary64) w)) #s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (/.f64 (+.f64 (/.f64 (.f64 #s(literal 2 binary64) (.f64 (.f64 d d) c0)) (.f64 (.f64 D D) h)) (.f64 (/.f64 (.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) (.f64 (.f64 w w) h)) (.f64 (.f64 d d) c0)) #s(literal -1/2 binary64))) w)))
(.f64 (/.f64 c0 (.f64 #s(literal 2 binary64) w)) #s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (/.f64 (+.f64 (/.f64 (.f64 #s(literal 2 binary64) (.f64 (.f64 d d) c0)) (.f64 (.f64 D D) w)) (.f64 (/.f64 (.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) (.f64 (.f64 h h) w)) (.f64 (.f64 d d) c0)) #s(literal -1/2 binary64))) h)))
(.f64 (/.f64 c0 (.f64 #s(literal 2 binary64) w)) (+.f64 (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 w h) (.f64 D D))) #s(approx (sqrt (- ( (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))) (/.f64 (+.f64 (.f64 (/.f64 c0 (.f64 D D)) (/.f64 (.f64 d d) h)) (.f64 (/.f64 (.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) (.f64 (.f64 w w) h)) (.f64 (.f64 d d) c0)) #s(literal -1/2 binary64))) w))))
(.f64 (/.f64 c0 (.f64 #s(literal 2 binary64) w)) #s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (.f64 c0 #s(approx (+ ( -1/2 (* (/ (* D D) (* c0 c0)) (/ (* (* M M) (* h w)) (* d d)))) (* 2 (/ (* d d) (* (* D D) (* h w))))) (.f64 #s(literal 2 binary64) (.f64 (/.f64 d (exp.f64 (.f64 (log.f64 D) #s(literal 2 binary64)))) (/.f64 d (.f64 h w))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (.f64 (+.f64 (.f64 (/.f64 (.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) h) (pow.f64 d #s(literal 4 binary64))) #s(literal -1/4 binary64)) (/.f64 (ratio-of-squares.f64 c0 D) (.f64 (.f64 w w) h))) (*.f64 d d)))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(approx (/ (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (* w w)) (.f64 (.f64 D D) (+.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 M M) h) (.f64 d d))) (/.f64 (pow.f64 (.f64 c0 d) #s(literal 2 binary64)) (.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 h (.f64 w w))))))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (/.f64 (+.f64 (/.f64 (pow.f64 (.f64 c0 d) #s(literal 2 binary64)) (.f64 (.f64 D D) h)) (.f64 (/.f64 (.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) (.f64 (.f64 w w) h)) (.f64 d d)) #s(literal -1/4 binary64))) (.f64 w w)))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (/.f64 #s(approx (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (/.f64 (+.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 D D) (.f64 (.f64 M M) (pow.f64 (.f64 h w) #s(literal 2 binary64)))) (.f64 d d))) (/.f64 (pow.f64 (.f64 c0 d) #s(literal 2 binary64)) (.f64 D D))) h)) (.f64 w w)))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (/.f64 #s(approx (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (/.f64 (+.f64 (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 D #s(literal 4 binary64)) (.f64 (.f64 M M) (.f64 h (.f64 w w)))) (.f64 d d))) (/.f64 (pow.f64 (.f64 c0 d) #s(literal 2 binary64)) h)) (.f64 D D))) (.f64 w w)))
(.f64 (/.f64 c0 (.f64 #s(literal 2 binary64) w)) #s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (.f64 (+.f64 (/.f64 (.f64 #s(literal 2 binary64) c0) (.f64 (.f64 (.f64 h w) D) D)) (.f64 (/.f64 (.f64 (pow.f64 (.f64 D M) #s(literal 2 binary64)) (.f64 h w)) (.f64 (pow.f64 d #s(literal 4 binary64)) c0)) #s(literal -1/2 binary64))) (*.f64 d d))))
(.f64 (/.f64 c0 (.f64 #s(literal 2 binary64) w)) (/.f64 (+.f64 (pow.f64 (.f64 (/.f64 c0 (.f64 h w)) (ratio-of-squares.f64 d D)) #s(literal 3 binary64)) (pow.f64 (sqrt-product.f64 (.f64 (/.f64 c0 (.f64 h w)) (ratio-of-squares.f64 d D)) M) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (/.f64 c0 (.f64 h w)) (ratio-of-squares.f64 d D)) #s(literal 2 binary64)) (-.f64 (.f64 (sqrt-product.f64 (.f64 (/.f64 c0 (.f64 h w)) (ratio-of-squares.f64 d D)) M) (sqrt-product.f64 (.f64 (/.f64 c0 (.f64 h w)) (ratio-of-squares.f64 d D)) M)) (.f64 (.f64 (/.f64 c0 (.f64 h w)) (ratio-of-squares.f64 d D)) (sqrt-product.f64 (.f64 (/.f64 c0 (.f64 h w)) (ratio-of-squares.f64 d D)) M))))))

Outputs

(*.f64 (/.f64 c0 (*.f64 #s(literal 2 binary64) w)) #s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (*.f64 (*.f64 (/.f64 c0 (*.f64 h w)) (ratio-of-squares.f64 d D)) #s(literal 2 binary64))))

(*.f64 (/.f64 c0 (*.f64 #s(literal 2 binary64) w)) #s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(approx (neg (* (* 0 (/ (/ (* d d) (* D D)) (* h w))) c0)) #s(literal 0 binary64))))

Calls

10 calls:

44.0ms	M
34.0ms	h
27.0ms	D
16.0ms	c0
15.0ms	d

Results

Accuracy	Segments	Branch
39.2%	1	`(*.f64 M M)`
39.2%	1	`(*.f64 D D)`
42.2%	2	`(*.f64 d d)`
50.8%	2	`(.f64 (/.f64 c0 (.f64 #s(literal 2 binary64) w)) (+.f64 (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 w h) (.f64 D D))) (sqrt.f64 (-.f64 (.f64 (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 w h) (.f64 D D))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 w h) (.f64 D D)))) (*.f64 M M)))))`
45.5%	3	`c0`
47.1%	3	`w`
41.4%	2	`h`
42.3%	3	`D`
42.6%	2	`d`
39.2%	1	`M`

Compiler

Compiled 67 to 78 computations (-16.4% saved)

regimes4.0ms (0%)

Memory

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

Counts

9 → 2

Calls

Call 1

Inputs
(.f64 (/.f64 c0 (.f64 #s(literal 2 binary64) w)) #s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(approx (neg (* (* 0 (/ (/ (* d d) (* D D)) (* h w))) c0)) #s(literal 0 binary64))))
(.f64 (/.f64 c0 (.f64 #s(literal 2 binary64) w)) #s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (*.f64 (sqrt.f64 #s(literal -1 binary64)) M)))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (.f64 (.f64 c0 c0) (/.f64 (ratio-of-squares.f64 d D) (.f64 (.f64 w w) h))))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) (.f64 h (.f64 w w)))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (/.f64 #s(approx (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (.f64 h #s(approx (+ ( -1/4 (/ (* (* D D) (pow (* M w) 2)) (* d d))) (* (/ (* c0 c0) (* D D)) (/ (* d d) (* h h)))) (.f64 (ratio-of-squares.f64 c0 D) (ratio-of-squares.f64 d h))))) (.f64 w w)))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) #s(approx (/ (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (* w w)) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 D D) (.f64 (.f64 M M) h)) (.f64 d d)))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (/.f64 #s(approx (+ (* (/ (* c0 c0) (* D D)) (/ (* d d) h)) (* (/ (* (pow (* D M) 2) (* (* w w) h)) (* d d)) -1/4)) (.f64 (ratio-of-squares.f64 c0 D) (/.f64 (.f64 d d) h))) (*.f64 w w)))
#s(approx (/ (* c0 (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) (sqrt (* (+ (* (/ c0 (* h w)) (/ (* d d) (* D D))) M) (- (* (/ c0 (* h w)) (/ (* d d) (* D D))) M))))) (* w 2)) (.f64 (ratio-of-squares.f64 c0 D) (.f64 (/.f64 d h) (/.f64 d (*.f64 w w)))))
#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (.f64 (/.f64 (.f64 (.f64 #s(literal 0 binary64) (/.f64 (ratio-of-squares.f64 d D) (.f64 h w))) (*.f64 c0 c0)) w) #s(literal -1/2 binary64)))

Outputs

#s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (*.f64 (*.f64 c0 c0) (/.f64 (ratio-of-squares.f64 d D) (*.f64 (*.f64 w w) h))))

(*.f64 (/.f64 c0 (*.f64 #s(literal 2 binary64) w)) #s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(approx (neg (* (* 0 (/ (/ (* d d) (* D D)) (* h w))) c0)) #s(literal 0 binary64))))

Calls

1 calls:

3.0ms

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

Results

Accuracy	Segments	Branch
46.0%	2	`(.f64 (/.f64 c0 (.f64 #s(literal 2 binary64) w)) (+.f64 (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 w h) (.f64 D D))) (sqrt.f64 (-.f64 (.f64 (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 w h) (.f64 D D))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 w h) (.f64 D D)))) (*.f64 M M)))))`

Compiler

Compiled 52 to 21 computations (59.6% saved)

regimes16.0ms (0.1%)

Memory

-16.5MiB live, 32.6MiB allocated; 5ms collecting garbage

Accuracy

Total -19.7b remaining (-44.5%)

Threshold costs -19.7b (-44.5%)

Counts

2 → 1

Calls

Call 1

Inputs

(*.f64 (/.f64 c0 (*.f64 #s(literal 2 binary64) w)) #s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(approx (neg (* (* 0 (/ (/ (* d d) (* D D)) (* h w))) c0)) #s(literal 0 binary64))))

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

Outputs

(*.f64 (/.f64 c0 (*.f64 #s(literal 2 binary64) w)) #s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(approx (neg (* (* 0 (/ (/ (* d d) (* D D)) (* h w))) c0)) #s(literal 0 binary64))))

Calls

10 calls:

4.0ms	(*.f64 D D)
1.0ms	h
1.0ms	M
1.0ms	d
1.0ms	D

Results

Accuracy	Segments	Branch
30.8%	1	`(*.f64 M M)`
30.8%	1	`M`
30.8%	1	`(*.f64 D D)`
30.8%	1	`D`
30.8%	1	`h`
30.8%	1	`(*.f64 d d)`
30.8%	1	`d`
30.8%	1	`c0`
30.8%	1	`w`
30.8%	1	`(.f64 (/.f64 c0 (.f64 #s(literal 2 binary64) w)) (+.f64 (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 w h) (.f64 D D))) (sqrt.f64 (-.f64 (.f64 (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 w h) (.f64 D D))) (/.f64 (.f64 c0 (.f64 d d)) (.f64 (.f64 w h) (.f64 D D)))) (*.f64 M M)))))`

Compiler

Compiled 67 to 78 computations (-16.4% saved)

bsearch1.0ms (0%)

Memory

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

Algorithm

1×	left-value

Steps

Time	Left	Right
0.0ms	+inf	NaN

Compiler

Compiled 55 to 30 computations (45.5% saved)

bsearch0.0ms (0%)

Memory

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

Algorithm

1×	left-value

Steps

Time	Left	Right
0.0ms	+inf	NaN

Compiler

Compiled 55 to 30 computations (45.5% saved)

simplify51.0ms (0.3%)

Memory

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

Iterations

Useful iterations: 3 (0.0ms)

Iter	Nodes	Cost
0	62	417
1	148	408
2	673	408
3	5908	398

Stop Event

1×	node limit

Calls

Call 1

Inputs

(if (<=.f64 (*.f64 (/.f64 c0 (*.f64 #s(literal 2 binary64) w)) (+.f64 (/.f64 (*.f64 c0 (*.f64 d d)) (*.f64 (*.f64 w h) (*.f64 D D))) (sqrt.f64 (-.f64 (*.f64 (/.f64 (*.f64 c0 (*.f64 d d)) (*.f64 (*.f64 w h) (*.f64 D D))) (/.f64 (*.f64 c0 (*.f64 d d)) (*.f64 (*.f64 w h) (*.f64 D D)))) (*.f64 M M))))) #s(literal +inf.0 binary64)) (*.f64 (/.f64 c0 (*.f64 #s(literal 2 binary64) w)) #s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (*.f64 (*.f64 (/.f64 c0 (*.f64 h w)) (ratio-of-squares.f64 d D)) #s(literal 2 binary64)))) (*.f64 (/.f64 c0 (*.f64 #s(literal 2 binary64) w)) #s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(approx (neg (* (* 0 (/ (/ (* d d) (* D D)) (* h w))) c0)) #s(literal 0 binary64)))))

(if (<=.f64 (*.f64 (/.f64 c0 (*.f64 #s(literal 2 binary64) w)) (+.f64 (/.f64 (*.f64 c0 (*.f64 d d)) (*.f64 (*.f64 w h) (*.f64 D D))) (sqrt.f64 (-.f64 (*.f64 (/.f64 (*.f64 c0 (*.f64 d d)) (*.f64 (*.f64 w h) (*.f64 D D))) (/.f64 (*.f64 c0 (*.f64 d d)) (*.f64 (*.f64 w h) (*.f64 D D)))) (*.f64 M M))))) #s(literal +inf.0 binary64)) #s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (*.f64 (*.f64 c0 c0) (/.f64 (ratio-of-squares.f64 d D) (*.f64 (*.f64 w w) h)))) (*.f64 (/.f64 c0 (*.f64 #s(literal 2 binary64) w)) #s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(approx (neg (* (* 0 (/ (/ (* d d) (* D D)) (* h w))) c0)) #s(literal 0 binary64)))))

(*.f64 (/.f64 c0 (*.f64 #s(literal 2 binary64) w)) #s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(approx (neg (* (* 0 (/ (/ (* d d) (* D D)) (* h w))) c0)) #s(literal 0 binary64))))

Outputs

(if (<=.f64 (*.f64 (/.f64 c0 (*.f64 #s(literal 2 binary64) w)) (+.f64 (/.f64 (*.f64 c0 (*.f64 d d)) (*.f64 (*.f64 w h) (*.f64 D D))) (sqrt.f64 (-.f64 (*.f64 (/.f64 (*.f64 c0 (*.f64 d d)) (*.f64 (*.f64 w h) (*.f64 D D))) (/.f64 (*.f64 c0 (*.f64 d d)) (*.f64 (*.f64 w h) (*.f64 D D)))) (*.f64 M M))))) #s(literal +inf.0 binary64)) (*.f64 (/.f64 c0 (*.f64 #s(literal 2 binary64) w)) #s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) (*.f64 (*.f64 (/.f64 c0 (*.f64 h w)) (ratio-of-squares.f64 d D)) #s(literal 2 binary64)))) (*.f64 (/.f64 c0 (*.f64 #s(literal 2 binary64) w)) #s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(approx (neg (* (* 0 (/ (/ (* d d) (* D D)) (* h w))) c0)) #s(literal 0 binary64)))))

(if (<=.f64 (*.f64 (/.f64 c0 (*.f64 #s(literal 2 binary64) w)) (+.f64 (/.f64 (*.f64 c0 (*.f64 d d)) (*.f64 (*.f64 w h) (*.f64 D D))) (sqrt.f64 (-.f64 (*.f64 (/.f64 (*.f64 c0 (*.f64 d d)) (*.f64 (*.f64 w h) (*.f64 D D))) (/.f64 (*.f64 c0 (*.f64 d d)) (*.f64 (*.f64 w h) (*.f64 D D)))) (*.f64 M M))))) #s(literal +inf.0 binary64)) #s(approx (* (/ c0 (* 2 w)) (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M))))) (*.f64 (*.f64 c0 c0) (/.f64 (ratio-of-squares.f64 d D) (*.f64 (*.f64 w w) h)))) (*.f64 (/.f64 c0 (*.f64 #s(literal 2 binary64) w)) #s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(approx (neg (* (* 0 (/ (/ (* d d) (* D D)) (* h w))) c0)) #s(literal 0 binary64)))))

(*.f64 (/.f64 c0 (*.f64 #s(literal 2 binary64) w)) #s(approx (+ (/ (* c0 (* d d)) (* (* w h) (* D D))) (sqrt (- (* (/ (* c0 (* d d)) (* (* w h) (* D D))) (/ (* c0 (* d d)) (* (* w h) (* D D)))) (* M M)))) #s(approx (neg (* (* 0 (/ (/ (* d d) (* D D)) (* h w))) c0)) #s(literal 0 binary64))))

derivations98.0ms (0.6%)

Memory

5.0MiB live, 51.1MiB allocated; 4ms collecting garbage

Stop Event

1×

fuel

Samples

10.0ms

256×

valid

Compiler

Compiled 453 to 64 computations (85.9% saved)

Precisions

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

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

ival-div: 1.0ms (19.9% of total)

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

adjust: 0.0ms (0% of total)

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

preprocess706.0ms (4.3%)

Memory

13.2MiB live, 989.4MiB allocated; 180ms collecting garbage

Remove

(abs M)

(abs d)

(abs D)

Samples

485.0ms

9 792×

valid

Compiler

Compiled 2 150 to 488 computations (77.3% saved)

Precisions

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

ival-mult: 195.0ms (73.2% of total)

ival-div: 60.0ms (22.5% of total)

ival-true: 6.0ms (2.3% of total)

ival-assert: 4.0ms (1.5% of total)

adjust: 2.0ms (0.8% of total)

end0.0ms (0%)

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

start0.0ms (0%)

analyze782.0ms (4.8%)

sample5.0s (30.6%)

explain420.0ms (2.6%)

preprocess159.0ms (1%)

eval0.0ms (0%)

prune1.0ms (0%)

series164.0ms (1%)

rewrite214.0ms (1.3%)

eval546.0ms (3.3%)

prune762.0ms (4.6%)

series321.0ms (2%)

rewrite323.0ms (2%)

eval975.0ms (6%)

prune1.1s (6.4%)

series268.0ms (1.6%)

rewrite308.0ms (1.9%)

eval684.0ms (4.2%)

prune904.0ms (5.5%)

series242.0ms (1.5%)

rewrite344.0ms (2.1%)

eval1.1s (6.5%)

prune753.0ms (4.6%)

regimes211.0ms (1.3%)

regimes4.0ms (0%)

regimes16.0ms (0.1%)

bsearch1.0ms (0%)

bsearch0.0ms (0%)

simplify51.0ms (0.3%)

derivations98.0ms (0.6%)

preprocess706.0ms (4.3%)

end0.0ms (0%)

Profiling