Metrics for Toniolo and Linder, Equation (3b), real

start2.0ms (0%)

Memory: -42.1MiB live, 0.0MiB allocated

analyze240.0ms (1.8%)

Memory

-25.7MiB live, 404.1MiB allocated

Algorithm

1×

Search

Probability	Valid	Unknown	Precondition	Infinite	Domain	Can't	Iter
0%	0%	99.9%	0.1%	0%	0%	0%	0
0%	0%	99.9%	0.1%	0%	0%	0%	1
0%	0%	99.9%	0.1%	0%	0%	0%	2
0%	0%	99.9%	0.1%	0%	0%	0%	3
0%	0%	99.9%	0.1%	0%	0%	0%	4
25%	25%	74.9%	0.1%	0%	0%	0%	5
43.8%	43.7%	56.2%	0.1%	0%	0%	0%	6
43.8%	43.7%	56.2%	0.1%	0%	0%	0%	7
53.1%	53%	46.8%	0.1%	0%	0%	0%	8
60.9%	60.8%	39%	0.1%	0%	0%	0%	9
60.9%	60.8%	39%	0.1%	0%	0%	0%	10
64.8%	64.7%	35.1%	0.1%	0%	0%	0%	11
68.4%	68.3%	31.6%	0.1%	0%	0%	0%	12

Compiler

Compiled 18 to 14 computations (22.2% saved)

sample2.0s (14.9%)

Memory

27.5MiB live, 2 964.4MiB allocated

Samples

1.7s

8 256×

valid

Precisions

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

ival-sin: 801.0ms (59.1% of total)

ival-pow2: 264.0ms (19.5% of total)

ival-sqrt: 97.0ms (7.2% of total)

ival-mult: 67.0ms (4.9% of total)

ival-add: 60.0ms (4.4% of total)

ival-div: 56.0ms (4.1% of total)

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

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

Bogosity

explain195.0ms (1.4%)

Memory

35.5MiB live, 434.2MiB allocated

FPErrors

Click to see full error table

Ground Truth	Example	Underpredictions	Example	Subexpression
10	-	1	(-3.703632751284704e-158 -2.461210150023734e-225 -4.867751719449685e-297)	`(sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))`
0	-	0	-	`(+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))`
0	-	0	-	`(pow.f64 (sin.f64 ky) #s(literal 2 binary64))`
0	-	0	-	`(sin.f64 kx)`
0	-	0	-	`(sin.f64 th)`
0	-	0	-	`(pow.f64 (sin.f64 kx) #s(literal 2 binary64))`
0	-	0	-	`(/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))))`
0	-	0	-	`th`
0	-	0	-	`#s(literal 2 binary64)`
0	-	0	-	`(*.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (sin.f64 th))`
0	-	0	-	`(sin.f64 ky)`
0	-	0	-	`ky`
0	-	0	-	`kx`

Explanations

Click to see full explanations table

Operator	Subexpression	Explanation	Count
`sqrt.f64`	`(sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))`	uflow-rescue	9	0
↳	`(pow.f64 (sin.f64 kx) #s(literal 2 binary64))`	underflow	57
↳	`(pow.f64 (sin.f64 ky) #s(literal 2 binary64))`	underflow	52
↳	`(+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))`	underflow	9

Confusion

	Predicted +	Predicted -
+	9	0
-	0	247

Precision

1.0

Recall

1.0

Confusion?

	Predicted +	Predicted Maybe	Predicted -
+	9	0	0
-	0	0	247

Precision?

1.0

Recall?

1.0

Freqs

test

number	freq
0	247
1	9

Total Confusion?

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

Precision?

1.0

Recall?

1.0

Samples

81.0ms

512×

valid

Compiler

Compiled 155 to 43 computations (72.3% saved)

Precisions

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

ival-sin: 35.0ms (56.8% of total)

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

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

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

ival-sqrt: 3.0ms (4.9% of total)

ival-add: 2.0ms (3.2% of total)

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

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

exact: 0.0ms (0% of total)

preprocess81.0ms (0.6%)

Memory

-9.1MiB live, 68.3MiB allocated

Algorithm

1×	egg-herbie

Rules

390×	`unsub-neg`
362×	`times-frac`
340×	`associate-l`
334×	`associate-r`
280×	`distribute-lft-in`

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	45	153
1	101	147
2	211	147
3	383	147
4	831	147
5	1949	147
6	2504	147
7	2781	147
8	2893	147
9	2943	147
10	2958	147
11	2958	147
0	13	16
0	22	16
1	28	16
2	32	16
3	33	16
0	33	11

Stop Event

1×	iter limit
1×	saturated
1×	iter limit
1×	saturated

Calls

Call 1

Inputs
(*.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (sin.f64 th))

Outputs

(*.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (sin.f64 th))

(/.f64 (*.f64 (sin.f64 ky) (sin.f64 th)) (hypot.f64 (sin.f64 ky) (sin.f64 kx)))

Symmetry

(abs kx)

(negabs th)

(negabs ky)

Compiler

Compiled 19 to 13 computations (31.6% saved)

eval0.0ms (0%)

Memory: 0.4MiB live, 0.4MiB allocated
Compiler: Compiled 3 to 3 computations (0% saved)

prune1.0ms (0%)

Memory

1.8MiB live, 1.8MiB allocated

Alt Table

Click to see full alt table

Status	Accuracy	Program
▶	96.2%	(*.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (sin.f64 th))

Compiler

Compiled 19 to 13 computations (31.6% saved)

simplify4.0ms (0%)

Memory

9.0MiB live, 9.0MiB allocated

Algorithm

1×	egg-herbie

Localize:

Found 4 expressions of interest:

New	Metric	Score
cost-diff	0	(sin.f64 ky)
cost-diff	0	(/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))))
cost-diff	0	(*.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (sin.f64 th))
cost-diff	7296	(sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))

Rules

16×	`lower-*.f32`
14×	`lower-*.f64`
6×	`lift-sin.f64`
6×	`*-commutative`
6×	`lower-sin.f32`

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	13	66
0	22	66
1	28	66
2	32	66
3	33	66
0	33	51

Stop Event

1×	iter limit
1×	saturated
1×	iter limit

Calls

Call 1

Inputs
(*.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (sin.f64 th))
(/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))))
(sin.f64 ky)
ky
(sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))
(+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))
(pow.f64 (sin.f64 kx) #s(literal 2 binary64))
(sin.f64 kx)
kx
#s(literal 2 binary64)
(pow.f64 (sin.f64 ky) #s(literal 2 binary64))
(sin.f64 th)
th

Outputs
(*.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (sin.f64 th))
(/.f64 (*.f64 (sin.f64 ky) (sin.f64 th)) (hypot.f64 (sin.f64 ky) (sin.f64 kx)))
(/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))))
(/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (sin.f64 kx)))
(sin.f64 ky)
ky
(sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))
(hypot.f64 (sin.f64 ky) (sin.f64 kx))
(+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))
(pow.f64 (sin.f64 kx) #s(literal 2 binary64))
(sin.f64 kx)
kx
#s(literal 2 binary64)
(pow.f64 (sin.f64 ky) #s(literal 2 binary64))
(sin.f64 th)
th

localize69.0ms (0.5%)

Memory

-16.1MiB live, 135.3MiB allocated

Localize:

Found 4 expressions of interest:

New	Metric	Score
accuracy	0.171875	(/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))))
accuracy	0.2734375	(pow.f64 (sin.f64 kx) #s(literal 2 binary64))
accuracy	0.29916000976844204	(pow.f64 (sin.f64 ky) #s(literal 2 binary64))
accuracy	2.317092876196292	(sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))

Samples

41.0ms

256×

valid

Compiler

Compiled 68 to 15 computations (77.9% saved)

Precisions

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

ival-sin: 18.0ms (57.5% of total)

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

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

ival-mult: 2.0ms (6.4% of total)

ival-sqrt: 2.0ms (6.4% of total)

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

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

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

exact: 0.0ms (0% of total)

series35.0ms (0.3%)

Memory

-5.3MiB live, 66.6MiB allocated

Counts

6 → 120

Calls

Call 1

Inputs
#s(alt (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))) (patch (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))) #<representation binary64>) () ())
#s(alt (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (sin.f64 th)) #<representation binary64>) () ())
#s(alt (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (patch (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #<representation binary64>) () ())
#s(alt (sin.f64 ky) (patch (sin.f64 ky) #<representation binary64>) () ())
#s(alt (pow.f64 (sin.f64 ky) #s(literal 2 binary64)) (patch (pow.f64 (sin.f64 ky) #s(literal 2 binary64)) #<representation binary64>) () ())
#s(alt (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (patch (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #<representation binary64>) () ())

Outputs
#s(alt (sin ky) (taylor 0 kx) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))) (patch (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (+ (sin ky) (* 1/2 (/ (pow kx 2) (sin ky)))) (taylor 0 kx) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))) (patch (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (+ (sin ky) (* (pow kx 2) (+ (* -1/2 (/ (* (pow kx 2) (+ 1/3 (* 1/4 (/ 1 (pow (sin ky) 2))))) (sin ky))) (* 1/2 (/ 1 (sin ky)))))) (taylor 0 kx) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))) (patch (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (+ (sin ky) (* (pow kx 2) (+ (* (pow kx 2) (+ (* -1/2 (/ (+ 1/3 (* 1/4 (/ 1 (pow (sin ky) 2)))) (sin ky))) (* 1/2 (/ (* (pow kx 2) (- 2/45 (* -1/2 (/ (+ 1/3 (* 1/4 (/ 1 (pow (sin ky) 2)))) (pow (sin ky) 2))))) (sin ky))))) (* 1/2 (/ 1 (sin ky)))))) (taylor 0 kx) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))) (patch (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (taylor inf kx) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))) (patch (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (taylor inf kx) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))) (patch (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (taylor inf kx) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))) (patch (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (taylor inf kx) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))) (patch (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (taylor -inf kx) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))) (patch (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (taylor -inf kx) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))) (patch (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (taylor -inf kx) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))) (patch (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (taylor -inf kx) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))) (patch (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (sin kx) (taylor 0 ky) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))) (patch (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (+ (sin kx) (* 1/2 (/ (pow ky 2) (sin kx)))) (taylor 0 ky) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))) (patch (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (+ (sin kx) (* (pow ky 2) (+ (* -1/2 (/ (* (pow ky 2) (+ 1/3 (* 1/4 (/ 1 (pow (sin kx) 2))))) (sin kx))) (* 1/2 (/ 1 (sin kx)))))) (taylor 0 ky) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))) (patch (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (+ (sin kx) (* (pow ky 2) (+ (* (pow ky 2) (+ (* -1/2 (/ (+ 1/3 (* 1/4 (/ 1 (pow (sin kx) 2)))) (sin kx))) (* 1/2 (/ (* (pow ky 2) (- 2/45 (* -1/2 (/ (+ 1/3 (* 1/4 (/ 1 (pow (sin kx) 2)))) (pow (sin kx) 2))))) (sin kx))))) (* 1/2 (/ 1 (sin kx)))))) (taylor 0 ky) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))) (patch (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (taylor inf ky) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))) (patch (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (taylor inf ky) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))) (patch (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (taylor inf ky) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))) (patch (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (taylor inf ky) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))) (patch (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (taylor -inf ky) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))) (patch (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (taylor -inf ky) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))) (patch (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (taylor -inf ky) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))) (patch (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (taylor -inf ky) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))) (patch (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (/ (* ky (sin th)) (sin kx)) (taylor 0 ky) (#s(alt (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* ky (+ (* (pow ky 2) (+ (* -1/2 (/ (sin th) (pow (sin kx) 3))) (* -1/6 (/ (sin th) (sin kx))))) (/ (sin th) (sin kx)))) (taylor 0 ky) (#s(alt (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* ky (+ (* (pow ky 2) (+ (* -1/2 (/ (sin th) (pow (sin kx) 3))) (+ (* -1/6 (/ (sin th) (sin kx))) (* (pow ky 2) (+ (* 1/120 (/ (sin th) (sin kx))) (+ (* 1/12 (/ (sin th) (pow (sin kx) 3))) (* 1/2 (* (sin kx) (* (sin th) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6))))))))))))) (/ (sin th) (sin kx)))) (taylor 0 ky) (#s(alt (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* ky (+ (* (pow ky 2) (+ (* -1/2 (/ (sin th) (pow (sin kx) 3))) (+ (* -1/6 (/ (sin th) (sin kx))) (* (pow ky 2) (+ (* 1/120 (/ (sin th) (sin kx))) (+ (* 1/12 (/ (sin th) (pow (sin kx) 3))) (+ (* 1/2 (* (sin kx) (* (sin th) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6))))))) (* (pow ky 2) (+ (* -1/2 (* (sin kx) (* (sin th) (+ (* -1/2 (/ (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6)))) (pow (sin kx) 2))) (+ (* 2/45 (/ 1 (pow (sin kx) 4))) (+ (* 2/3 (/ 1 (pow (sin kx) 6))) (/ 1 (pow (sin kx) 8)))))))) (+ (* -1/12 (* (sin kx) (* (sin th) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6))))))) (+ (* -1/240 (/ (sin th) (pow (sin kx) 3))) (* -1/5040 (/ (sin th) (sin kx)))))))))))))) (/ (sin th) (sin kx)))) (taylor 0 ky) (#s(alt (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor inf ky) (#s(alt (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor inf ky) (#s(alt (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor inf ky) (#s(alt (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor inf ky) (#s(alt (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor -inf ky) (#s(alt (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor -inf ky) (#s(alt (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor -inf ky) (#s(alt (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor -inf ky) (#s(alt (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (sin th) (taylor 0 kx) (#s(alt (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (+ (sin th) (* -1/2 (/ (* (pow kx 2) (sin th)) (pow (sin ky) 2)))) (taylor 0 kx) (#s(alt (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (+ (sin th) (* (pow kx 2) (+ (* -1/2 (/ (sin th) (pow (sin ky) 2))) (* 1/2 (* (pow kx 2) (* (pow (sin ky) 2) (* (sin th) (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (* 3/4 (/ 1 (pow (sin ky) 6))))))))))) (taylor 0 kx) (#s(alt (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (+ (sin th) (* (pow kx 2) (+ (* -1/2 (/ (sin th) (pow (sin ky) 2))) (* (pow kx 2) (+ (* -1/2 (* (pow kx 2) (* (pow (sin ky) 2) (* (sin th) (+ (* -1/2 (/ (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (* 3/4 (/ 1 (pow (sin ky) 6)))) (pow (sin ky) 2))) (+ (* 2/45 (/ 1 (pow (sin ky) 4))) (+ (* 2/3 (/ 1 (pow (sin ky) 6))) (/ 1 (pow (sin ky) 8))))))))) (* 1/2 (* (pow (sin ky) 2) (* (sin th) (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (* 3/4 (/ 1 (pow (sin ky) 6)))))))))))) (taylor 0 kx) (#s(alt (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor inf kx) (#s(alt (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor inf kx) (#s(alt (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor inf kx) (#s(alt (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor inf kx) (#s(alt (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor -inf kx) (#s(alt (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor -inf kx) (#s(alt (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor -inf kx) (#s(alt (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor -inf kx) (#s(alt (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* th (sin ky)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor 0 th) (#s(alt (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* th (+ (* -1/6 (* (* (pow th 2) (sin ky)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))) (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))))) (taylor 0 th) (#s(alt (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* th (+ (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (* (pow th 2) (+ (* -1/6 (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))) (* 1/120 (* (* (pow th 2) (sin ky)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))))))) (taylor 0 th) (#s(alt (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* th (+ (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (* (pow th 2) (+ (* -1/6 (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))) (* (pow th 2) (+ (* -1/5040 (* (* (pow th 2) (sin ky)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))) (* 1/120 (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))))))))) (taylor 0 th) (#s(alt (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor inf th) (#s(alt (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor inf th) (#s(alt (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor inf th) (#s(alt (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor inf th) (#s(alt (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor -inf th) (#s(alt (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor -inf th) (#s(alt (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor -inf th) (#s(alt (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor -inf th) (#s(alt (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (/ ky (sin kx)) (taylor 0 ky) (#s(alt (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (patch (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* ky (+ (* -1 (* (pow ky 2) (+ (* 1/6 (/ 1 (sin kx))) (* 1/2 (/ 1 (pow (sin kx) 3)))))) (/ 1 (sin kx)))) (taylor 0 ky) (#s(alt (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (patch (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* ky (+ (* (pow ky 2) (- (* (pow ky 2) (+ (* 1/120 (/ 1 (sin kx))) (+ (* 1/2 (* (sin kx) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6)))))) (* 1/12 (/ 1 (pow (sin kx) 3)))))) (+ (* 1/6 (/ 1 (sin kx))) (* 1/2 (/ 1 (pow (sin kx) 3)))))) (/ 1 (sin kx)))) (taylor 0 ky) (#s(alt (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (patch (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* ky (+ (* (pow ky 2) (- (* (pow ky 2) (+ (* 1/120 (/ 1 (sin kx))) (+ (* 1/12 (/ 1 (pow (sin kx) 3))) (+ (* 1/2 (* (sin kx) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6)))))) (* (pow ky 2) (- (+ (* -1/2 (* (sin kx) (+ (* -1/2 (/ (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6)))) (pow (sin kx) 2))) (+ (* 2/45 (/ 1 (pow (sin kx) 4))) (+ (* 2/3 (/ 1 (pow (sin kx) 6))) (/ 1 (pow (sin kx) 8))))))) (* -1/12 (* (sin kx) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6))))))) (+ (* 1/5040 (/ 1 (sin kx))) (* 1/240 (/ 1 (pow (sin kx) 3)))))))))) (+ (* 1/6 (/ 1 (sin kx))) (* 1/2 (/ 1 (pow (sin kx) 3)))))) (/ 1 (sin kx)))) (taylor 0 ky) (#s(alt (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (patch (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor inf ky) (#s(alt (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (patch (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor inf ky) (#s(alt (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (patch (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor inf ky) (#s(alt (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (patch (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor inf ky) (#s(alt (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (patch (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor -inf ky) (#s(alt (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (patch (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor -inf ky) (#s(alt (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (patch (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor -inf ky) (#s(alt (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (patch (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor -inf ky) (#s(alt (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (patch (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt 1 (taylor 0 kx) (#s(alt (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (patch (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ 1 (* -1/2 (/ (pow kx 2) (pow (sin ky) 2)))) (taylor 0 kx) (#s(alt (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (patch (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ 1 (* (pow kx 2) (- (* 1/2 (* (pow kx 2) (* (pow (sin ky) 2) (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (* 3/4 (/ 1 (pow (sin ky) 6))))))) (* 1/2 (/ 1 (pow (sin ky) 2)))))) (taylor 0 kx) (#s(alt (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (patch (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ 1 (* (pow kx 2) (- (* (pow kx 2) (+ (* -1/2 (* (pow kx 2) (* (pow (sin ky) 2) (+ (* -1/2 (/ (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (* 3/4 (/ 1 (pow (sin ky) 6)))) (pow (sin ky) 2))) (+ (* 2/45 (/ 1 (pow (sin ky) 4))) (+ (* 2/3 (/ 1 (pow (sin ky) 6))) (/ 1 (pow (sin ky) 8)))))))) (* 1/2 (* (pow (sin ky) 2) (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (* 3/4 (/ 1 (pow (sin ky) 6)))))))) (* 1/2 (/ 1 (pow (sin ky) 2)))))) (taylor 0 kx) (#s(alt (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (patch (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor inf kx) (#s(alt (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (patch (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor inf kx) (#s(alt (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (patch (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor inf kx) (#s(alt (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (patch (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor inf kx) (#s(alt (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (patch (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor -inf kx) (#s(alt (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (patch (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor -inf kx) (#s(alt (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (patch (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor -inf kx) (#s(alt (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (patch (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor -inf kx) (#s(alt (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (patch (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt ky (taylor 0 ky) (#s(alt (sin.f64 ky) (patch (sin.f64 ky) #<representation binary64>) () ())) ())
#s(alt (* ky (+ 1 (* -1/6 (pow ky 2)))) (taylor 0 ky) (#s(alt (sin.f64 ky) (patch (sin.f64 ky) #<representation binary64>) () ())) ())
#s(alt (* ky (+ 1 (* (pow ky 2) (- (* 1/120 (pow ky 2)) 1/6)))) (taylor 0 ky) (#s(alt (sin.f64 ky) (patch (sin.f64 ky) #<representation binary64>) () ())) ())
#s(alt (* ky (+ 1 (* (pow ky 2) (- (* (pow ky 2) (+ 1/120 (* -1/5040 (pow ky 2)))) 1/6)))) (taylor 0 ky) (#s(alt (sin.f64 ky) (patch (sin.f64 ky) #<representation binary64>) () ())) ())
#s(alt (sin ky) (taylor inf ky) (#s(alt (sin.f64 ky) (patch (sin.f64 ky) #<representation binary64>) () ())) ())
#s(alt (sin ky) (taylor inf ky) (#s(alt (sin.f64 ky) (patch (sin.f64 ky) #<representation binary64>) () ())) ())
#s(alt (sin ky) (taylor inf ky) (#s(alt (sin.f64 ky) (patch (sin.f64 ky) #<representation binary64>) () ())) ())
#s(alt (sin ky) (taylor inf ky) (#s(alt (sin.f64 ky) (patch (sin.f64 ky) #<representation binary64>) () ())) ())
#s(alt (sin ky) (taylor -inf ky) (#s(alt (sin.f64 ky) (patch (sin.f64 ky) #<representation binary64>) () ())) ())
#s(alt (sin ky) (taylor -inf ky) (#s(alt (sin.f64 ky) (patch (sin.f64 ky) #<representation binary64>) () ())) ())
#s(alt (sin ky) (taylor -inf ky) (#s(alt (sin.f64 ky) (patch (sin.f64 ky) #<representation binary64>) () ())) ())
#s(alt (sin ky) (taylor -inf ky) (#s(alt (sin.f64 ky) (patch (sin.f64 ky) #<representation binary64>) () ())) ())
#s(alt (pow ky 2) (taylor 0 ky) (#s(alt (pow.f64 (sin.f64 ky) #s(literal 2 binary64)) (patch (pow.f64 (sin.f64 ky) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* (pow ky 2) (+ 1 (* -1/3 (pow ky 2)))) (taylor 0 ky) (#s(alt (pow.f64 (sin.f64 ky) #s(literal 2 binary64)) (patch (pow.f64 (sin.f64 ky) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* (pow ky 2) (+ 1 (* (pow ky 2) (- (* 2/45 (pow ky 2)) 1/3)))) (taylor 0 ky) (#s(alt (pow.f64 (sin.f64 ky) #s(literal 2 binary64)) (patch (pow.f64 (sin.f64 ky) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* (pow ky 2) (+ 1 (* (pow ky 2) (- (* (pow ky 2) (+ 2/45 (* -1/315 (pow ky 2)))) 1/3)))) (taylor 0 ky) (#s(alt (pow.f64 (sin.f64 ky) #s(literal 2 binary64)) (patch (pow.f64 (sin.f64 ky) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (pow (sin ky) 2) (taylor inf ky) (#s(alt (pow.f64 (sin.f64 ky) #s(literal 2 binary64)) (patch (pow.f64 (sin.f64 ky) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (pow (sin ky) 2) (taylor inf ky) (#s(alt (pow.f64 (sin.f64 ky) #s(literal 2 binary64)) (patch (pow.f64 (sin.f64 ky) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (pow (sin ky) 2) (taylor inf ky) (#s(alt (pow.f64 (sin.f64 ky) #s(literal 2 binary64)) (patch (pow.f64 (sin.f64 ky) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (pow (sin ky) 2) (taylor inf ky) (#s(alt (pow.f64 (sin.f64 ky) #s(literal 2 binary64)) (patch (pow.f64 (sin.f64 ky) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (pow (sin ky) 2) (taylor -inf ky) (#s(alt (pow.f64 (sin.f64 ky) #s(literal 2 binary64)) (patch (pow.f64 (sin.f64 ky) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (pow (sin ky) 2) (taylor -inf ky) (#s(alt (pow.f64 (sin.f64 ky) #s(literal 2 binary64)) (patch (pow.f64 (sin.f64 ky) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (pow (sin ky) 2) (taylor -inf ky) (#s(alt (pow.f64 (sin.f64 ky) #s(literal 2 binary64)) (patch (pow.f64 (sin.f64 ky) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (pow (sin ky) 2) (taylor -inf ky) (#s(alt (pow.f64 (sin.f64 ky) #s(literal 2 binary64)) (patch (pow.f64 (sin.f64 ky) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (pow kx 2) (taylor 0 kx) (#s(alt (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (patch (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* (pow kx 2) (+ 1 (* -1/3 (pow kx 2)))) (taylor 0 kx) (#s(alt (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (patch (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* (pow kx 2) (+ 1 (* (pow kx 2) (- (* 2/45 (pow kx 2)) 1/3)))) (taylor 0 kx) (#s(alt (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (patch (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* (pow kx 2) (+ 1 (* (pow kx 2) (- (* (pow kx 2) (+ 2/45 (* -1/315 (pow kx 2)))) 1/3)))) (taylor 0 kx) (#s(alt (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (patch (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (pow (sin kx) 2) (taylor inf kx) (#s(alt (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (patch (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (pow (sin kx) 2) (taylor inf kx) (#s(alt (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (patch (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (pow (sin kx) 2) (taylor inf kx) (#s(alt (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (patch (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (pow (sin kx) 2) (taylor inf kx) (#s(alt (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (patch (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (pow (sin kx) 2) (taylor -inf kx) (#s(alt (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (patch (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (pow (sin kx) 2) (taylor -inf kx) (#s(alt (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (patch (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (pow (sin kx) 2) (taylor -inf kx) (#s(alt (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (patch (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (pow (sin kx) 2) (taylor -inf kx) (#s(alt (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (patch (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #<representation binary64>) () ())) ())

Calls

30 calls:

Time	Variable		Point	Expression
4.0ms	kx	@	0	(* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th))
3.0ms	ky	@	0	(pow (sin ky) 2)
3.0ms	ky	@	inf	(* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th))
2.0ms	ky	@	0	(* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th))
2.0ms	th	@	inf	(* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th))

simplify303.0ms (2.2%)

Memory

35.4MiB live, 469.3MiB allocated

Algorithm

1×	egg-herbie

Rules

14 278×	`lower-fma.f64`
14 278×	`lower-fma.f32`
6 260×	`lower-*.f64`
6 260×	`lower-*.f32`
5 352×	`lower-+.f64`

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	317	2263
1	1011	2214
2	3860	2122
3	7803	2122
0	8106	1974

Stop Event

1×	iter limit
1×	node limit

Counts

120 → 119

Calls

Call 1

Inputs
(sin ky)
(+ (sin ky) (* 1/2 (/ (pow kx 2) (sin ky))))
(+ (sin ky) (* (pow kx 2) (+ (* -1/2 (/ (* (pow kx 2) (+ 1/3 (* 1/4 (/ 1 (pow (sin ky) 2))))) (sin ky))) (* 1/2 (/ 1 (sin ky))))))
(+ (sin ky) (* (pow kx 2) (+ (* (pow kx 2) (+ (* -1/2 (/ (+ 1/3 (* 1/4 (/ 1 (pow (sin ky) 2)))) (sin ky))) (* 1/2 (/ (* (pow kx 2) (- 2/45 (* -1/2 (/ (+ 1/3 (* 1/4 (/ 1 (pow (sin ky) 2)))) (pow (sin ky) 2))))) (sin ky))))) (* 1/2 (/ 1 (sin ky))))))
(sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))
(sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))
(sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))
(sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))
(sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))
(sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))
(sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))
(sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))
(sin kx)
(+ (sin kx) (* 1/2 (/ (pow ky 2) (sin kx))))
(+ (sin kx) (* (pow ky 2) (+ (* -1/2 (/ (* (pow ky 2) (+ 1/3 (* 1/4 (/ 1 (pow (sin kx) 2))))) (sin kx))) (* 1/2 (/ 1 (sin kx))))))
(+ (sin kx) (* (pow ky 2) (+ (* (pow ky 2) (+ (* -1/2 (/ (+ 1/3 (* 1/4 (/ 1 (pow (sin kx) 2)))) (sin kx))) (* 1/2 (/ (* (pow ky 2) (- 2/45 (* -1/2 (/ (+ 1/3 (* 1/4 (/ 1 (pow (sin kx) 2)))) (pow (sin kx) 2))))) (sin kx))))) (* 1/2 (/ 1 (sin kx))))))
(sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))
(sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))
(sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))
(sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))
(sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))
(sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))
(sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))
(sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))
(/ (* ky (sin th)) (sin kx))
(* ky (+ (* (pow ky 2) (+ (* -1/2 (/ (sin th) (pow (sin kx) 3))) (* -1/6 (/ (sin th) (sin kx))))) (/ (sin th) (sin kx))))
(* ky (+ (* (pow ky 2) (+ (* -1/2 (/ (sin th) (pow (sin kx) 3))) (+ (* -1/6 (/ (sin th) (sin kx))) (* (pow ky 2) (+ (* 1/120 (/ (sin th) (sin kx))) (+ (* 1/12 (/ (sin th) (pow (sin kx) 3))) (* 1/2 (* (sin kx) (* (sin th) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6))))))))))))) (/ (sin th) (sin kx))))
(* ky (+ (* (pow ky 2) (+ (* -1/2 (/ (sin th) (pow (sin kx) 3))) (+ (* -1/6 (/ (sin th) (sin kx))) (* (pow ky 2) (+ (* 1/120 (/ (sin th) (sin kx))) (+ (* 1/12 (/ (sin th) (pow (sin kx) 3))) (+ (* 1/2 (* (sin kx) (* (sin th) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6))))))) (* (pow ky 2) (+ (* -1/2 (* (sin kx) (* (sin th) (+ (* -1/2 (/ (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6)))) (pow (sin kx) 2))) (+ (* 2/45 (/ 1 (pow (sin kx) 4))) (+ (* 2/3 (/ 1 (pow (sin kx) 6))) (/ 1 (pow (sin kx) 8)))))))) (+ (* -1/12 (* (sin kx) (* (sin th) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6))))))) (+ (* -1/240 (/ (sin th) (pow (sin kx) 3))) (* -1/5040 (/ (sin th) (sin kx)))))))))))))) (/ (sin th) (sin kx))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(sin th)
(+ (sin th) (* -1/2 (/ (* (pow kx 2) (sin th)) (pow (sin ky) 2))))
(+ (sin th) (* (pow kx 2) (+ (* -1/2 (/ (sin th) (pow (sin ky) 2))) (* 1/2 (* (pow kx 2) (* (pow (sin ky) 2) (* (sin th) (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (* 3/4 (/ 1 (pow (sin ky) 6)))))))))))
(+ (sin th) (* (pow kx 2) (+ (* -1/2 (/ (sin th) (pow (sin ky) 2))) (* (pow kx 2) (+ (* -1/2 (* (pow kx 2) (* (pow (sin ky) 2) (* (sin th) (+ (* -1/2 (/ (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (* 3/4 (/ 1 (pow (sin ky) 6)))) (pow (sin ky) 2))) (+ (* 2/45 (/ 1 (pow (sin ky) 4))) (+ (* 2/3 (/ 1 (pow (sin ky) 6))) (/ 1 (pow (sin ky) 8))))))))) (* 1/2 (* (pow (sin ky) 2) (* (sin th) (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (* 3/4 (/ 1 (pow (sin ky) 6))))))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (* th (sin ky)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* th (+ (* -1/6 (* (* (pow th 2) (sin ky)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))) (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))))
(* th (+ (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (* (pow th 2) (+ (* -1/6 (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))) (* 1/120 (* (* (pow th 2) (sin ky)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))))))))
(* th (+ (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (* (pow th 2) (+ (* -1/6 (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))) (* (pow th 2) (+ (* -1/5040 (* (* (pow th 2) (sin ky)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))) (* 1/120 (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(/ ky (sin kx))
(* ky (+ (* -1 (* (pow ky 2) (+ (* 1/6 (/ 1 (sin kx))) (* 1/2 (/ 1 (pow (sin kx) 3)))))) (/ 1 (sin kx))))
(* ky (+ (* (pow ky 2) (- (* (pow ky 2) (+ (* 1/120 (/ 1 (sin kx))) (+ (* 1/2 (* (sin kx) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6)))))) (* 1/12 (/ 1 (pow (sin kx) 3)))))) (+ (* 1/6 (/ 1 (sin kx))) (* 1/2 (/ 1 (pow (sin kx) 3)))))) (/ 1 (sin kx))))
(* ky (+ (* (pow ky 2) (- (* (pow ky 2) (+ (* 1/120 (/ 1 (sin kx))) (+ (* 1/12 (/ 1 (pow (sin kx) 3))) (+ (* 1/2 (* (sin kx) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6)))))) (* (pow ky 2) (- (+ (* -1/2 (* (sin kx) (+ (* -1/2 (/ (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6)))) (pow (sin kx) 2))) (+ (* 2/45 (/ 1 (pow (sin kx) 4))) (+ (* 2/3 (/ 1 (pow (sin kx) 6))) (/ 1 (pow (sin kx) 8))))))) (* -1/12 (* (sin kx) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6))))))) (+ (* 1/5040 (/ 1 (sin kx))) (* 1/240 (/ 1 (pow (sin kx) 3)))))))))) (+ (* 1/6 (/ 1 (sin kx))) (* 1/2 (/ 1 (pow (sin kx) 3)))))) (/ 1 (sin kx))))
(* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
1
(+ 1 (* -1/2 (/ (pow kx 2) (pow (sin ky) 2))))
(+ 1 (* (pow kx 2) (- (* 1/2 (* (pow kx 2) (* (pow (sin ky) 2) (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (* 3/4 (/ 1 (pow (sin ky) 6))))))) (* 1/2 (/ 1 (pow (sin ky) 2))))))
(+ 1 (* (pow kx 2) (- (* (pow kx 2) (+ (* -1/2 (* (pow kx 2) (* (pow (sin ky) 2) (+ (* -1/2 (/ (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (* 3/4 (/ 1 (pow (sin ky) 6)))) (pow (sin ky) 2))) (+ (* 2/45 (/ 1 (pow (sin ky) 4))) (+ (* 2/3 (/ 1 (pow (sin ky) 6))) (/ 1 (pow (sin ky) 8)))))))) (* 1/2 (* (pow (sin ky) 2) (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (* 3/4 (/ 1 (pow (sin ky) 6)))))))) (* 1/2 (/ 1 (pow (sin ky) 2))))))
(* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
ky
(* ky (+ 1 (* -1/6 (pow ky 2))))
(* ky (+ 1 (* (pow ky 2) (- (* 1/120 (pow ky 2)) 1/6))))
(* ky (+ 1 (* (pow ky 2) (- (* (pow ky 2) (+ 1/120 (* -1/5040 (pow ky 2)))) 1/6))))
(sin ky)
(sin ky)
(sin ky)
(sin ky)
(sin ky)
(sin ky)
(sin ky)
(sin ky)
(pow ky 2)
(* (pow ky 2) (+ 1 (* -1/3 (pow ky 2))))
(* (pow ky 2) (+ 1 (* (pow ky 2) (- (* 2/45 (pow ky 2)) 1/3))))
(* (pow ky 2) (+ 1 (* (pow ky 2) (- (* (pow ky 2) (+ 2/45 (* -1/315 (pow ky 2)))) 1/3))))
(pow (sin ky) 2)
(pow (sin ky) 2)
(pow (sin ky) 2)
(pow (sin ky) 2)
(pow (sin ky) 2)
(pow (sin ky) 2)
(pow (sin ky) 2)
(pow (sin ky) 2)
(pow kx 2)
(* (pow kx 2) (+ 1 (* -1/3 (pow kx 2))))
(* (pow kx 2) (+ 1 (* (pow kx 2) (- (* 2/45 (pow kx 2)) 1/3))))
(* (pow kx 2) (+ 1 (* (pow kx 2) (- (* (pow kx 2) (+ 2/45 (* -1/315 (pow kx 2)))) 1/3))))
(pow (sin kx) 2)
(pow (sin kx) 2)
(pow (sin kx) 2)
(pow (sin kx) 2)
(pow (sin kx) 2)
(pow (sin kx) 2)
(pow (sin kx) 2)
(pow (sin kx) 2)

Outputs
(sin ky)
(sin.f64 ky)
(+ (sin ky) (* 1/2 (/ (pow kx 2) (sin ky))))
(fma.f64 kx (*.f64 kx (/.f64 #s(literal 1/2 binary64) (sin.f64 ky))) (sin.f64 ky))
(+ (sin ky) (* (pow kx 2) (+ (* -1/2 (/ (* (pow kx 2) (+ 1/3 (* 1/4 (/ 1 (pow (sin ky) 2))))) (sin ky))) (* 1/2 (/ 1 (sin ky))))))
(fma.f64 (.f64 kx kx) (fma.f64 (+.f64 #s(literal -1/6 binary64) (/.f64 #s(literal -1/8 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))) (/.f64 (.f64 kx kx) (sin.f64 ky)) (/.f64 #s(literal 1/2 binary64) (sin.f64 ky))) (sin.f64 ky))
(+ (sin ky) (* (pow kx 2) (+ (* (pow kx 2) (+ (* -1/2 (/ (+ 1/3 (* 1/4 (/ 1 (pow (sin ky) 2)))) (sin ky))) (* 1/2 (/ (* (pow kx 2) (- 2/45 (* -1/2 (/ (+ 1/3 (* 1/4 (/ 1 (pow (sin ky) 2)))) (pow (sin ky) 2))))) (sin ky))))) (* 1/2 (/ 1 (sin ky))))))
(fma.f64 kx (.f64 kx (fma.f64 kx (.f64 kx (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 kx kx) (-.f64 #s(literal 2/45 binary64) (/.f64 (+.f64 #s(literal -1/6 binary64) (/.f64 #s(literal -1/8 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (sin.f64 ky)) (/.f64 (+.f64 #s(literal -1/6 binary64) (/.f64 #s(literal -1/8 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))) (sin.f64 ky)))) (/.f64 #s(literal 1/2 binary64) (sin.f64 ky)))) (sin.f64 ky))
(sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))
(hypot.f64 (sin.f64 ky) (sin.f64 kx))
(sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))
(hypot.f64 (sin.f64 ky) (sin.f64 kx))
(sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))
(hypot.f64 (sin.f64 ky) (sin.f64 kx))
(sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))
(hypot.f64 (sin.f64 ky) (sin.f64 kx))
(sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))
(hypot.f64 (sin.f64 ky) (sin.f64 kx))
(sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))
(hypot.f64 (sin.f64 ky) (sin.f64 kx))
(sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))
(hypot.f64 (sin.f64 ky) (sin.f64 kx))
(sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))
(hypot.f64 (sin.f64 ky) (sin.f64 kx))
(sin kx)
(sin.f64 kx)
(+ (sin kx) (* 1/2 (/ (pow ky 2) (sin kx))))
(fma.f64 (*.f64 (/.f64 #s(literal 1/2 binary64) (sin.f64 kx)) ky) ky (sin.f64 kx))
(+ (sin kx) (* (pow ky 2) (+ (* -1/2 (/ (* (pow ky 2) (+ 1/3 (* 1/4 (/ 1 (pow (sin kx) 2))))) (sin kx))) (* 1/2 (/ 1 (sin kx))))))
(fma.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (/.f64 (+.f64 #s(literal -1/6 binary64) (/.f64 #s(literal -1/8 binary64) (pow.f64 (sin.f64 kx) #s(literal 2 binary64)))) (sin.f64 kx)) (/.f64 #s(literal 1/2 binary64) (sin.f64 kx))) (sin.f64 kx))
(+ (sin kx) (* (pow ky 2) (+ (* (pow ky 2) (+ (* -1/2 (/ (+ 1/3 (* 1/4 (/ 1 (pow (sin kx) 2)))) (sin kx))) (* 1/2 (/ (* (pow ky 2) (- 2/45 (* -1/2 (/ (+ 1/3 (* 1/4 (/ 1 (pow (sin kx) 2)))) (pow (sin kx) 2))))) (sin kx))))) (* 1/2 (/ 1 (sin kx))))))
(fma.f64 (.f64 ky ky) (fma.f64 ky (.f64 ky (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 ky ky) (-.f64 (/.f64 #s(literal 2/45 binary64) (sin.f64 kx)) (/.f64 (+.f64 #s(literal -1/6 binary64) (/.f64 #s(literal -1/8 binary64) (pow.f64 (sin.f64 kx) #s(literal 2 binary64)))) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))))) (/.f64 (+.f64 #s(literal -1/6 binary64) (/.f64 #s(literal -1/8 binary64) (pow.f64 (sin.f64 kx) #s(literal 2 binary64)))) (sin.f64 kx)))) (/.f64 #s(literal 1/2 binary64) (sin.f64 kx))) (sin.f64 kx))
(sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))
(hypot.f64 (sin.f64 ky) (sin.f64 kx))
(sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))
(hypot.f64 (sin.f64 ky) (sin.f64 kx))
(sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))
(hypot.f64 (sin.f64 ky) (sin.f64 kx))
(sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))
(hypot.f64 (sin.f64 ky) (sin.f64 kx))
(sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))
(hypot.f64 (sin.f64 ky) (sin.f64 kx))
(sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))
(hypot.f64 (sin.f64 ky) (sin.f64 kx))
(sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))
(hypot.f64 (sin.f64 ky) (sin.f64 kx))
(sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))
(hypot.f64 (sin.f64 ky) (sin.f64 kx))
(/ (* ky (sin th)) (sin kx))
(/.f64 (*.f64 ky (sin.f64 th)) (sin.f64 kx))
(* ky (+ (* (pow ky 2) (+ (* -1/2 (/ (sin th) (pow (sin kx) 3))) (* -1/6 (/ (sin th) (sin kx))))) (/ (sin th) (sin kx))))
(.f64 ky (fma.f64 (fma.f64 (.f64 ky ky) #s(literal -1/6 binary64) #s(literal 1 binary64)) (/.f64 (sin.f64 th) (sin.f64 kx)) (/.f64 (.f64 (.f64 ky ky) (*.f64 #s(literal -1/2 binary64) (sin.f64 th))) (pow.f64 (sin.f64 kx) #s(literal 3 binary64)))))
(* ky (+ (* (pow ky 2) (+ (* -1/2 (/ (sin th) (pow (sin kx) 3))) (+ (* -1/6 (/ (sin th) (sin kx))) (* (pow ky 2) (+ (* 1/120 (/ (sin th) (sin kx))) (+ (* 1/12 (/ (sin th) (pow (sin kx) 3))) (* 1/2 (* (sin kx) (* (sin th) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6))))))))))))) (/ (sin th) (sin kx))))
(.f64 ky (fma.f64 ky (/.f64 (.f64 ky (.f64 #s(literal -1/2 binary64) (sin.f64 th))) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (fma.f64 (.f64 ky ky) (.f64 (.f64 ky ky) (fma.f64 (.f64 (+.f64 (/.f64 #s(literal 1/3 binary64) (pow.f64 (sin.f64 kx) #s(literal 4 binary64))) (/.f64 #s(literal 3/4 binary64) (pow.f64 (sin.f64 kx) #s(literal 6 binary64)))) (.f64 #s(literal 1/2 binary64) (sin.f64 kx))) (sin.f64 th) (.f64 (/.f64 (sin.f64 th) (sin.f64 kx)) (+.f64 #s(literal 1/120 binary64) (/.f64 #s(literal 1/12 binary64) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))))) (.f64 (fma.f64 (*.f64 ky ky) #s(literal -1/6 binary64) #s(literal 1 binary64)) (/.f64 (sin.f64 th) (sin.f64 kx))))))
(* ky (+ (* (pow ky 2) (+ (* -1/2 (/ (sin th) (pow (sin kx) 3))) (+ (* -1/6 (/ (sin th) (sin kx))) (* (pow ky 2) (+ (* 1/120 (/ (sin th) (sin kx))) (+ (* 1/12 (/ (sin th) (pow (sin kx) 3))) (+ (* 1/2 (* (sin kx) (* (sin th) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6))))))) (* (pow ky 2) (+ (* -1/2 (* (sin kx) (* (sin th) (+ (* -1/2 (/ (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6)))) (pow (sin kx) 2))) (+ (* 2/45 (/ 1 (pow (sin kx) 4))) (+ (* 2/3 (/ 1 (pow (sin kx) 6))) (/ 1 (pow (sin kx) 8)))))))) (+ (* -1/12 (* (sin kx) (* (sin th) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6))))))) (+ (* -1/240 (/ (sin th) (pow (sin kx) 3))) (* -1/5040 (/ (sin th) (sin kx)))))))))))))) (/ (sin th) (sin kx))))
(.f64 ky (fma.f64 ky (/.f64 (.f64 ky (.f64 #s(literal -1/2 binary64) (sin.f64 th))) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (fma.f64 (.f64 ky ky) (.f64 (.f64 ky ky) (fma.f64 #s(literal 1/2 binary64) (.f64 (+.f64 (/.f64 #s(literal 1/3 binary64) (pow.f64 (sin.f64 kx) #s(literal 4 binary64))) (/.f64 #s(literal 3/4 binary64) (pow.f64 (sin.f64 kx) #s(literal 6 binary64)))) (.f64 (sin.f64 kx) (sin.f64 th))) (fma.f64 (.f64 ky ky) (fma.f64 (.f64 (sin.f64 kx) (sin.f64 th)) (fma.f64 (+.f64 (/.f64 (+.f64 (/.f64 #s(literal -1/6 binary64) (pow.f64 (sin.f64 kx) #s(literal 4 binary64))) (/.f64 #s(literal -3/8 binary64) (pow.f64 (sin.f64 kx) #s(literal 6 binary64)))) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))) (+.f64 (/.f64 #s(literal 2/3 binary64) (pow.f64 (sin.f64 kx) #s(literal 6 binary64))) (+.f64 (/.f64 #s(literal 2/45 binary64) (pow.f64 (sin.f64 kx) #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 kx) #s(literal 8 binary64)))))) #s(literal -1/2 binary64) (.f64 (+.f64 (/.f64 #s(literal 1/3 binary64) (pow.f64 (sin.f64 kx) #s(literal 4 binary64))) (/.f64 #s(literal 3/4 binary64) (pow.f64 (sin.f64 kx) #s(literal 6 binary64)))) #s(literal -1/12 binary64))) (.f64 (/.f64 (sin.f64 th) (sin.f64 kx)) (+.f64 (/.f64 #s(literal -1/240 binary64) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))) #s(literal -1/5040 binary64)))) (.f64 (/.f64 (sin.f64 th) (sin.f64 kx)) (+.f64 #s(literal 1/120 binary64) (/.f64 #s(literal 1/12 binary64) (pow.f64 (sin.f64 kx) #s(literal 2 binary64)))))))) (.f64 (fma.f64 (*.f64 ky ky) #s(literal -1/6 binary64) #s(literal 1 binary64)) (/.f64 (sin.f64 th) (sin.f64 kx))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64)) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64)) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64)) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64)) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64)) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64)) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64)) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64)) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))))
(sin th)
(sin.f64 th)
(+ (sin th) (* -1/2 (/ (* (pow kx 2) (sin th)) (pow (sin ky) 2))))
(fma.f64 (.f64 #s(literal -1/2 binary64) (sin.f64 th)) (/.f64 (.f64 kx kx) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) (sin.f64 th))
(+ (sin th) (* (pow kx 2) (+ (* -1/2 (/ (sin th) (pow (sin ky) 2))) (* 1/2 (* (pow kx 2) (* (pow (sin ky) 2) (* (sin th) (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (* 3/4 (/ 1 (pow (sin ky) 6)))))))))))
(fma.f64 (.f64 kx kx) (fma.f64 #s(literal -1/2 binary64) (/.f64 (sin.f64 th) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) (.f64 (.f64 (.f64 #s(literal 1/2 binary64) (.f64 kx kx)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) (.f64 (sin.f64 th) (+.f64 (/.f64 #s(literal 1/3 binary64) (pow.f64 (sin.f64 ky) #s(literal 4 binary64))) (/.f64 #s(literal 3/4 binary64) (pow.f64 (sin.f64 ky) #s(literal 6 binary64))))))) (sin.f64 th))
(+ (sin th) (* (pow kx 2) (+ (* -1/2 (/ (sin th) (pow (sin ky) 2))) (* (pow kx 2) (+ (* -1/2 (* (pow kx 2) (* (pow (sin ky) 2) (* (sin th) (+ (* -1/2 (/ (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (* 3/4 (/ 1 (pow (sin ky) 6)))) (pow (sin ky) 2))) (+ (* 2/45 (/ 1 (pow (sin ky) 4))) (+ (* 2/3 (/ 1 (pow (sin ky) 6))) (/ 1 (pow (sin ky) 8))))))))) (* 1/2 (* (pow (sin ky) 2) (* (sin th) (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (* 3/4 (/ 1 (pow (sin ky) 6))))))))))))
(fma.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) (.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64)) (fma.f64 (.f64 (.f64 kx kx) #s(literal -1/2 binary64)) (.f64 (sin.f64 th) (+.f64 (/.f64 (+.f64 (/.f64 #s(literal -1/6 binary64) (pow.f64 (sin.f64 ky) #s(literal 4 binary64))) (/.f64 #s(literal -3/8 binary64) (pow.f64 (sin.f64 ky) #s(literal 6 binary64)))) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) (+.f64 (/.f64 #s(literal 2/45 binary64) (pow.f64 (sin.f64 ky) #s(literal 4 binary64))) (+.f64 (/.f64 #s(literal 2/3 binary64) (pow.f64 (sin.f64 ky) #s(literal 6 binary64))) (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 ky) #s(literal 8 binary64))))))) (.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 th) (+.f64 (/.f64 #s(literal 1/3 binary64) (pow.f64 (sin.f64 ky) #s(literal 4 binary64))) (/.f64 #s(literal 3/4 binary64) (pow.f64 (sin.f64 ky) #s(literal 6 binary64)))))))) (/.f64 (*.f64 #s(literal -1/2 binary64) (sin.f64 th)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))) (sin.f64 th))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64)) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64)) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64)) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64)) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64)) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64)) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64)) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64)) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))))
(* (* th (sin ky)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64)) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))) (.f64 (sin.f64 ky) th))
(* th (+ (* -1/6 (* (* (pow th 2) (sin ky)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))) (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))))
(.f64 th (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64)) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))) (.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 th th) #s(literal 1 binary64)) (sin.f64 ky))))
(* th (+ (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (* (pow th 2) (+ (* -1/6 (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))) (* 1/120 (* (* (pow th 2) (sin ky)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))))))))
(.f64 th (fma.f64 (.f64 th th) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64)) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))) (.f64 (sin.f64 ky) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64)))) (.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64)) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))))))
(* th (+ (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (* (pow th 2) (+ (* -1/6 (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))) (* (pow th 2) (+ (* -1/5040 (* (* (pow th 2) (sin ky)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))) (* 1/120 (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))))))))))
(.f64 th (fma.f64 (.f64 th th) (.f64 (.f64 th th) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64)) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))) (.f64 (sin.f64 ky) (fma.f64 #s(literal -1/5040 binary64) (.f64 th th) #s(literal 1/120 binary64))))) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64)) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))) (.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 th th) #s(literal 1 binary64)) (sin.f64 ky)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64)) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64)) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64)) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64)) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64)) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64)) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64)) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64)) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))))
(/ ky (sin kx))
(/.f64 ky (sin.f64 kx))
(* ky (+ (* -1 (* (pow ky 2) (+ (* 1/6 (/ 1 (sin kx))) (* 1/2 (/ 1 (pow (sin kx) 3)))))) (/ 1 (sin kx))))
(.f64 ky (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))
(* ky (+ (* (pow ky 2) (- (* (pow ky 2) (+ (* 1/120 (/ 1 (sin kx))) (+ (* 1/2 (* (sin kx) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6)))))) (* 1/12 (/ 1 (pow (sin kx) 3)))))) (+ (* 1/6 (/ 1 (sin kx))) (* 1/2 (/ 1 (pow (sin kx) 3)))))) (/ 1 (sin kx))))
(fma.f64 (fma.f64 (.f64 ky ky) (fma.f64 (+.f64 (/.f64 #s(literal 1/3 binary64) (pow.f64 (sin.f64 kx) #s(literal 4 binary64))) (/.f64 #s(literal 3/4 binary64) (pow.f64 (sin.f64 kx) #s(literal 6 binary64)))) (.f64 #s(literal 1/2 binary64) (sin.f64 kx)) (+.f64 (/.f64 #s(literal 1/120 binary64) (sin.f64 kx)) (/.f64 #s(literal 1/12 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))))) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx)))) (.f64 ky (.f64 ky ky)) (/.f64 ky (sin.f64 kx)))
(* ky (+ (* (pow ky 2) (- (* (pow ky 2) (+ (* 1/120 (/ 1 (sin kx))) (+ (* 1/12 (/ 1 (pow (sin kx) 3))) (+ (* 1/2 (* (sin kx) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6)))))) (* (pow ky 2) (- (+ (* -1/2 (* (sin kx) (+ (* -1/2 (/ (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6)))) (pow (sin kx) 2))) (+ (* 2/45 (/ 1 (pow (sin kx) 4))) (+ (* 2/3 (/ 1 (pow (sin kx) 6))) (/ 1 (pow (sin kx) 8))))))) (* -1/12 (* (sin kx) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6))))))) (+ (* 1/5040 (/ 1 (sin kx))) (* 1/240 (/ 1 (pow (sin kx) 3)))))))))) (+ (* 1/6 (/ 1 (sin kx))) (* 1/2 (/ 1 (pow (sin kx) 3)))))) (/ 1 (sin kx))))
(fma.f64 (fma.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 (sin.f64 kx) (fma.f64 (+.f64 (/.f64 (+.f64 (/.f64 #s(literal -1/6 binary64) (pow.f64 (sin.f64 kx) #s(literal 4 binary64))) (/.f64 #s(literal -3/8 binary64) (pow.f64 (sin.f64 kx) #s(literal 6 binary64)))) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))) (+.f64 (/.f64 #s(literal 2/3 binary64) (pow.f64 (sin.f64 kx) #s(literal 6 binary64))) (+.f64 (/.f64 #s(literal 2/45 binary64) (pow.f64 (sin.f64 kx) #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 kx) #s(literal 8 binary64)))))) #s(literal -1/2 binary64) (.f64 (+.f64 (/.f64 #s(literal 1/3 binary64) (pow.f64 (sin.f64 kx) #s(literal 4 binary64))) (/.f64 #s(literal 3/4 binary64) (pow.f64 (sin.f64 kx) #s(literal 6 binary64)))) #s(literal -1/12 binary64))) (+.f64 (/.f64 #s(literal -1/240 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/5040 binary64) (sin.f64 kx)))) (fma.f64 (+.f64 (/.f64 #s(literal 1/3 binary64) (pow.f64 (sin.f64 kx) #s(literal 4 binary64))) (/.f64 #s(literal 3/4 binary64) (pow.f64 (sin.f64 kx) #s(literal 6 binary64)))) (.f64 #s(literal 1/2 binary64) (sin.f64 kx)) (+.f64 (/.f64 #s(literal 1/120 binary64) (sin.f64 kx)) (/.f64 #s(literal 1/12 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64)))))) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx)))) (.f64 ky (.f64 ky ky)) (/.f64 ky (sin.f64 kx)))
(* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(*.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64)) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))))
(* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(*.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64)) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))))
(* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(*.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64)) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))))
(* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(*.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64)) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))))
(* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(*.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64)) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))))
(* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(*.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64)) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))))
(* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(*.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64)) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))))
(* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(*.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64)) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))))
1
#s(literal 1 binary64)
(+ 1 (* -1/2 (/ (pow kx 2) (pow (sin ky) 2))))
(fma.f64 (*.f64 kx kx) (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) #s(literal 1 binary64))
(+ 1 (* (pow kx 2) (- (* 1/2 (* (pow kx 2) (* (pow (sin ky) 2) (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (* 3/4 (/ 1 (pow (sin ky) 6))))))) (* 1/2 (/ 1 (pow (sin ky) 2))))))
(fma.f64 (.f64 kx kx) (fma.f64 (.f64 (.f64 #s(literal 1/2 binary64) (.f64 kx kx)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) (+.f64 (/.f64 #s(literal 1/3 binary64) (pow.f64 (sin.f64 ky) #s(literal 4 binary64))) (/.f64 #s(literal 3/4 binary64) (pow.f64 (sin.f64 ky) #s(literal 6 binary64)))) (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))) #s(literal 1 binary64))
(+ 1 (* (pow kx 2) (- (* (pow kx 2) (+ (* -1/2 (* (pow kx 2) (* (pow (sin ky) 2) (+ (* -1/2 (/ (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (* 3/4 (/ 1 (pow (sin ky) 6)))) (pow (sin ky) 2))) (+ (* 2/45 (/ 1 (pow (sin ky) 4))) (+ (* 2/3 (/ 1 (pow (sin ky) 6))) (/ 1 (pow (sin ky) 8)))))))) (* 1/2 (* (pow (sin ky) 2) (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (* 3/4 (/ 1 (pow (sin ky) 6)))))))) (* 1/2 (/ 1 (pow (sin ky) 2))))))
(fma.f64 kx (.f64 kx (fma.f64 (.f64 kx kx) (.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64)) (fma.f64 (.f64 (.f64 kx kx) #s(literal -1/2 binary64)) (+.f64 (/.f64 (+.f64 (/.f64 #s(literal -1/6 binary64) (pow.f64 (sin.f64 ky) #s(literal 4 binary64))) (/.f64 #s(literal -3/8 binary64) (pow.f64 (sin.f64 ky) #s(literal 6 binary64)))) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) (+.f64 (/.f64 #s(literal 2/45 binary64) (pow.f64 (sin.f64 ky) #s(literal 4 binary64))) (+.f64 (/.f64 #s(literal 2/3 binary64) (pow.f64 (sin.f64 ky) #s(literal 6 binary64))) (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 ky) #s(literal 8 binary64)))))) (.f64 #s(literal 1/2 binary64) (+.f64 (/.f64 #s(literal 1/3 binary64) (pow.f64 (sin.f64 ky) #s(literal 4 binary64))) (/.f64 #s(literal 3/4 binary64) (pow.f64 (sin.f64 ky) #s(literal 6 binary64))))))) (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #s(literal 1 binary64))
(* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(*.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64)) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))))
(* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(*.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64)) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))))
(* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(*.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64)) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))))
(* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(*.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64)) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))))
(* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(*.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64)) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))))
(* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(*.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64)) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))))
(* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(*.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64)) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))))
(* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(*.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64)) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))))
ky
(* ky (+ 1 (* -1/6 (pow ky 2))))
(fma.f64 ky (.f64 (.f64 ky ky) #s(literal -1/6 binary64)) ky)
(* ky (+ 1 (* (pow ky 2) (- (* 1/120 (pow ky 2)) 1/6))))
(fma.f64 (.f64 ky ky) (.f64 (fma.f64 (*.f64 ky ky) #s(literal 1/120 binary64) #s(literal -1/6 binary64)) ky) ky)
(* ky (+ 1 (* (pow ky 2) (- (* (pow ky 2) (+ 1/120 (* -1/5040 (pow ky 2)))) 1/6))))
(fma.f64 (.f64 ky ky) (.f64 (fma.f64 ky (.f64 ky (fma.f64 (.f64 ky ky) #s(literal -1/5040 binary64) #s(literal 1/120 binary64))) #s(literal -1/6 binary64)) ky) ky)
(sin ky)
(sin.f64 ky)
(sin ky)
(sin.f64 ky)
(sin ky)
(sin.f64 ky)
(sin ky)
(sin.f64 ky)
(sin ky)
(sin.f64 ky)
(sin ky)
(sin.f64 ky)
(sin ky)
(sin.f64 ky)
(sin ky)
(sin.f64 ky)
(pow ky 2)
(*.f64 ky ky)
(* (pow ky 2) (+ 1 (* -1/3 (pow ky 2))))
(.f64 ky (fma.f64 (.f64 ky (*.f64 ky #s(literal -1/3 binary64))) ky ky))
(* (pow ky 2) (+ 1 (* (pow ky 2) (- (* 2/45 (pow ky 2)) 1/3))))
(.f64 (.f64 (fma.f64 (.f64 ky ky) (fma.f64 ky (.f64 ky #s(literal 2/45 binary64)) #s(literal -1/3 binary64)) #s(literal 1 binary64)) ky) ky)
(* (pow ky 2) (+ 1 (* (pow ky 2) (- (* (pow ky 2) (+ 2/45 (* -1/315 (pow ky 2)))) 1/3))))
(.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 (*.f64 ky ky) #s(literal -1/315 binary64) #s(literal 2/45 binary64)) #s(literal -1/3 binary64)) #s(literal 1 binary64)))
(pow (sin ky) 2)
(pow.f64 (sin.f64 ky) #s(literal 2 binary64))
(pow (sin ky) 2)
(pow.f64 (sin.f64 ky) #s(literal 2 binary64))
(pow (sin ky) 2)
(pow.f64 (sin.f64 ky) #s(literal 2 binary64))
(pow (sin ky) 2)
(pow.f64 (sin.f64 ky) #s(literal 2 binary64))
(pow (sin ky) 2)
(pow.f64 (sin.f64 ky) #s(literal 2 binary64))
(pow (sin ky) 2)
(pow.f64 (sin.f64 ky) #s(literal 2 binary64))
(pow (sin ky) 2)
(pow.f64 (sin.f64 ky) #s(literal 2 binary64))
(pow (sin ky) 2)
(pow.f64 (sin.f64 ky) #s(literal 2 binary64))
(pow kx 2)
(*.f64 kx kx)
(* (pow kx 2) (+ 1 (* -1/3 (pow kx 2))))
(.f64 kx (.f64 kx (fma.f64 (*.f64 kx kx) #s(literal -1/3 binary64) #s(literal 1 binary64))))
(* (pow kx 2) (+ 1 (* (pow kx 2) (- (* 2/45 (pow kx 2)) 1/3))))
(.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) #s(literal 2/45 binary64) #s(literal -1/3 binary64)) #s(literal 1 binary64)))
(* (pow kx 2) (+ 1 (* (pow kx 2) (- (* (pow kx 2) (+ 2/45 (* -1/315 (pow kx 2)))) 1/3))))
(.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) (fma.f64 (*.f64 kx kx) #s(literal -1/315 binary64) #s(literal 2/45 binary64)) #s(literal -1/3 binary64)) #s(literal 1 binary64)))
(pow (sin kx) 2)
(pow.f64 (sin.f64 kx) #s(literal 2 binary64))
(pow (sin kx) 2)
(pow.f64 (sin.f64 kx) #s(literal 2 binary64))
(pow (sin kx) 2)
(pow.f64 (sin.f64 kx) #s(literal 2 binary64))
(pow (sin kx) 2)
(pow.f64 (sin.f64 kx) #s(literal 2 binary64))
(pow (sin kx) 2)
(pow.f64 (sin.f64 kx) #s(literal 2 binary64))
(pow (sin kx) 2)
(pow.f64 (sin.f64 kx) #s(literal 2 binary64))
(pow (sin kx) 2)
(pow.f64 (sin.f64 kx) #s(literal 2 binary64))
(pow (sin kx) 2)
(pow.f64 (sin.f64 kx) #s(literal 2 binary64))

rewrite276.0ms (2%)

Memory

-25.7MiB live, 336.2MiB allocated

Rules

4 346×	`lower-fma.f64`
4 346×	`lower-fma.f32`
3 626×	`lower-*.f32`
3 624×	`lower-*.f64`
2 248×	`lower-pow.f32`

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	13	49
0	22	49
1	62	49
2	338	49
3	2902	49
0	8284	34

Stop Event

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

Counts

6 → 294

Calls

Call 1

Inputs
(sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))
(*.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (sin.f64 th))
(/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))))
(sin.f64 ky)
(pow.f64 (sin.f64 ky) #s(literal 2 binary64))
(pow.f64 (sin.f64 kx) #s(literal 2 binary64))

Outputs
(exp.f64 (.f64 #s(literal 1/2 binary64) (log.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))))
(exp.f64 (.f64 (log.f64 (pow.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) #s(literal 1/4 binary64))) #s(literal 2 binary64)))
(exp.f64 (.f64 (log.f64 (pow.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) #s(literal 2 binary64))) #s(literal 1/4 binary64)))
(exp.f64 (.f64 (.f64 (log.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) #s(literal 1/4 binary64)) #s(literal 2 binary64)))
(exp.f64 (fma.f64 (log.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) #s(literal 1/4 binary64) (.f64 (log.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) #s(literal 1/4 binary64))))
(exp.f64 (neg.f64 (.f64 (log.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) #s(literal -1/2 binary64))))
(exp.f64 (neg.f64 (.f64 (.f64 #s(literal 1/2 binary64) (log.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) #s(literal -1 binary64))))
(exp.f64 (neg.f64 (neg.f64 (.f64 #s(literal 1/2 binary64) (log.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))))))
(hypot.f64 (sin.f64 kx) (sin.f64 ky))
(hypot.f64 (sin.f64 kx) (neg.f64 (sin.f64 ky)))
(hypot.f64 (sin.f64 kx) (pow.f64 (sqrt.f64 (sqrt.f64 (sin.f64 ky))) #s(literal 4 binary64)))
(hypot.f64 (sin.f64 ky) (sin.f64 kx))
(hypot.f64 (sin.f64 ky) (pow.f64 (sqrt.f64 (sqrt.f64 (sin.f64 kx))) #s(literal 4 binary64)))
(hypot.f64 (neg.f64 (sin.f64 ky)) (sin.f64 kx))
(hypot.f64 (neg.f64 (sin.f64 ky)) (pow.f64 (sqrt.f64 (sqrt.f64 (sin.f64 kx))) #s(literal 4 binary64)))
(hypot.f64 (pow.f64 (sqrt.f64 (sqrt.f64 (sin.f64 ky))) #s(literal 4 binary64)) (sin.f64 kx))
(hypot.f64 (pow.f64 (sqrt.f64 (sqrt.f64 (sin.f64 ky))) #s(literal 4 binary64)) (pow.f64 (sqrt.f64 (sqrt.f64 (sin.f64 kx))) #s(literal 4 binary64)))
(hypot.f64 (pow.f64 (sqrt.f64 (sqrt.f64 (sin.f64 kx))) #s(literal 4 binary64)) (sin.f64 ky))
(hypot.f64 (pow.f64 (sqrt.f64 (sqrt.f64 (sin.f64 kx))) #s(literal 4 binary64)) (neg.f64 (sin.f64 ky)))
(hypot.f64 (pow.f64 (sqrt.f64 (sqrt.f64 (sin.f64 kx))) #s(literal 4 binary64)) (pow.f64 (sqrt.f64 (sqrt.f64 (sin.f64 ky))) #s(literal 4 binary64)))
(-.f64 #s(literal 0 binary64) (neg.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))))
(sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))
(neg.f64 (neg.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))))
(/.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) #s(literal 1 binary64))
(/.f64 (neg.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) #s(literal -1 binary64))
(/.f64 #s(literal 1 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))))
(/.f64 #s(literal 1 binary64) (sqrt.f64 (/.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) #s(literal 1 binary64))))
(/.f64 #s(literal 1 binary64) (sqrt.f64 (/.f64 (-.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 ky ky)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)))))) (-.f64 (pow.f64 (sin.f64 ky) #s(literal 4 binary64)) (pow.f64 (sin.f64 kx) #s(literal 4 binary64))))))
(/.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 6 binary64)) (pow.f64 (sin.f64 ky) #s(literal 6 binary64)))) (sqrt.f64 (fma.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)))) (-.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) (pow.f64 (sin.f64 ky) #s(literal 4 binary64)))))
(/.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 6 binary64)) (pow.f64 (sin.f64 ky) #s(literal 6 binary64)))) (.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)))) (-.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) (pow.f64 (sin.f64 ky) #s(literal 4 binary64))))))
(/.f64 (sqrt.f64 (-.f64 (pow.f64 (sin.f64 kx) #s(literal 4 binary64)) (pow.f64 (sin.f64 ky) #s(literal 4 binary64)))) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))))
(/.f64 (sqrt.f64 (-.f64 (pow.f64 (sin.f64 kx) #s(literal 4 binary64)) (pow.f64 (sin.f64 ky) #s(literal 4 binary64)))) (.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))))))
(/.f64 (sqrt.f64 (neg.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 6 binary64)) (pow.f64 (sin.f64 ky) #s(literal 6 binary64))))) (sqrt.f64 (neg.f64 (fma.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)))) (-.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) (pow.f64 (sin.f64 ky) #s(literal 4 binary64))))))
(/.f64 (sqrt.f64 (neg.f64 (-.f64 (pow.f64 (sin.f64 kx) #s(literal 4 binary64)) (pow.f64 (sin.f64 ky) #s(literal 4 binary64))))) (sqrt.f64 (neg.f64 (-.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))))))
(/.f64 (sqrt.f64 (-.f64 (pow.f64 (sin.f64 ky) #s(literal 4 binary64)) (pow.f64 (sin.f64 kx) #s(literal 4 binary64)))) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 ky ky)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx))))))))
(/.f64 (sqrt.f64 (-.f64 (pow.f64 (sin.f64 kx) #s(literal 8 binary64)) (pow.f64 (sin.f64 ky) #s(literal 8 binary64)))) (sqrt.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 4 binary64)) (pow.f64 (sin.f64 ky) #s(literal 4 binary64))))))
(/.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 18 binary64)) (pow.f64 (sin.f64 ky) #s(literal 18 binary64)))) (sqrt.f64 (.f64 (fma.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)))) (-.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) (pow.f64 (sin.f64 ky) #s(literal 4 binary64))) (-.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 12 binary64)) (pow.f64 (sin.f64 ky) #s(literal 12 binary64))) (pow.f64 (.f64 (sin.f64 kx) (sin.f64 ky)) #s(literal 6 binary64))))))
(/.f64 (sqrt.f64 (-.f64 (pow.f64 (sin.f64 kx) #s(literal 12 binary64)) (pow.f64 (sin.f64 ky) #s(literal 12 binary64)))) (sqrt.f64 (.f64 (fma.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)))) (-.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) (pow.f64 (sin.f64 ky) #s(literal 4 binary64))) (-.f64 (pow.f64 (sin.f64 kx) #s(literal 6 binary64)) (pow.f64 (sin.f64 ky) #s(literal 6 binary64))))))
(/.f64 (sqrt.f64 (-.f64 (pow.f64 (sin.f64 kx) #s(literal 12 binary64)) (pow.f64 (sin.f64 ky) #s(literal 12 binary64)))) (sqrt.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) (+.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 8 binary64)) (pow.f64 (sin.f64 ky) #s(literal 8 binary64))) (pow.f64 (*.f64 (sin.f64 kx) (sin.f64 ky)) #s(literal 4 binary64))))))
(/.f64 (neg.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 6 binary64)) (pow.f64 (sin.f64 ky) #s(literal 6 binary64))))) (neg.f64 (sqrt.f64 (fma.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)))) (-.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) (pow.f64 (sin.f64 ky) #s(literal 4 binary64))))))
(/.f64 (neg.f64 (sqrt.f64 (-.f64 (pow.f64 (sin.f64 kx) #s(literal 4 binary64)) (pow.f64 (sin.f64 ky) #s(literal 4 binary64))))) (neg.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))))))
(/.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 (neg.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))))))
(/.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 2 binary64) (*.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))))) #s(literal 2 binary64))
(/.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 2 binary64) (*.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))))) #s(literal 2 binary64))
(/.f64 (sqrt.f64 (-.f64 (.f64 (pow.f64 (sin.f64 kx) #s(literal 4 binary64)) (-.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (.f64 (-.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) (pow.f64 (sin.f64 ky) #s(literal 4 binary64))))) (sqrt.f64 (pow.f64 (-.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) #s(literal 2 binary64))))
(/.f64 (sqrt.f64 (.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 18 binary64)) (pow.f64 (sin.f64 ky) #s(literal 18 binary64))) #s(literal 1 binary64))) (sqrt.f64 (.f64 (-.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 12 binary64)) (pow.f64 (sin.f64 ky) #s(literal 12 binary64))) (pow.f64 (.f64 (sin.f64 kx) (sin.f64 ky)) #s(literal 6 binary64))) (fma.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)))) (-.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) (pow.f64 (sin.f64 ky) #s(literal 4 binary64))))))
(/.f64 (sqrt.f64 (.f64 (-.f64 (pow.f64 (sin.f64 kx) #s(literal 12 binary64)) (pow.f64 (sin.f64 ky) #s(literal 12 binary64))) #s(literal 1 binary64))) (sqrt.f64 (.f64 (-.f64 (pow.f64 (sin.f64 kx) #s(literal 6 binary64)) (pow.f64 (sin.f64 ky) #s(literal 6 binary64))) (fma.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)))) (-.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) (pow.f64 (sin.f64 ky) #s(literal 4 binary64))))))
(/.f64 (sqrt.f64 (.f64 (-.f64 (pow.f64 (sin.f64 kx) #s(literal 12 binary64)) (pow.f64 (sin.f64 ky) #s(literal 12 binary64))) #s(literal 1 binary64))) (sqrt.f64 (.f64 (+.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 8 binary64)) (pow.f64 (sin.f64 ky) #s(literal 8 binary64))) (pow.f64 (.f64 (sin.f64 kx) (sin.f64 ky)) #s(literal 4 binary64))) (-.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))))))
(/.f64 (sqrt.f64 (.f64 (-.f64 (pow.f64 (sin.f64 kx) #s(literal 8 binary64)) (pow.f64 (sin.f64 ky) #s(literal 8 binary64))) #s(literal 1 binary64))) (sqrt.f64 (.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 4 binary64)) (pow.f64 (sin.f64 ky) #s(literal 4 binary64))) (-.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))))))
(/.f64 (sqrt.f64 (neg.f64 (neg.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 6 binary64)) (pow.f64 (sin.f64 ky) #s(literal 6 binary64)))))) (sqrt.f64 (neg.f64 (neg.f64 (fma.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)))) (-.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) (pow.f64 (sin.f64 ky) #s(literal 4 binary64)))))))
(/.f64 (sqrt.f64 (neg.f64 (neg.f64 (-.f64 (pow.f64 (sin.f64 kx) #s(literal 4 binary64)) (pow.f64 (sin.f64 ky) #s(literal 4 binary64)))))) (sqrt.f64 (neg.f64 (neg.f64 (-.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))))))
(/.f64 (sqrt.f64 (neg.f64 (-.f64 (pow.f64 (sin.f64 ky) #s(literal 4 binary64)) (pow.f64 (sin.f64 kx) #s(literal 4 binary64))))) (sqrt.f64 (neg.f64 (-.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 ky ky)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)))))))))
(/.f64 (sqrt.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 kx) #s(literal 12 binary64)) (pow.f64 (-.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) #s(literal 3 binary64))) (/.f64 (pow.f64 (sin.f64 ky) #s(literal 12 binary64)) (pow.f64 (-.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) #s(literal 3 binary64))))) (sqrt.f64 (+.f64 (pow.f64 (/.f64 (pow.f64 (sin.f64 kx) #s(literal 4 binary64)) (-.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) #s(literal 2 binary64)) (+.f64 (pow.f64 (/.f64 (pow.f64 (sin.f64 ky) #s(literal 4 binary64)) (-.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) #s(literal 2 binary64)) (.f64 (/.f64 (pow.f64 (sin.f64 kx) #s(literal 4 binary64)) (-.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (/.f64 (pow.f64 (sin.f64 ky) #s(literal 4 binary64)) (-.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))))))))
(/.f64 (sqrt.f64 (-.f64 (pow.f64 (/.f64 (pow.f64 (sin.f64 kx) #s(literal 4 binary64)) (-.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) #s(literal 2 binary64)) (pow.f64 (/.f64 (pow.f64 (sin.f64 ky) #s(literal 4 binary64)) (-.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) #s(literal 2 binary64)))) (sqrt.f64 (+.f64 (/.f64 (pow.f64 (sin.f64 kx) #s(literal 4 binary64)) (-.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (/.f64 (pow.f64 (sin.f64 ky) #s(literal 4 binary64)) (-.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))))))
(/.f64 (sqrt.f64 (.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 6 binary64)) (pow.f64 (sin.f64 ky) #s(literal 6 binary64))) #s(literal 1 binary64))) (sqrt.f64 (fma.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)))) (-.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) (pow.f64 (sin.f64 ky) #s(literal 4 binary64)))))
(/.f64 (sqrt.f64 (.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 18 binary64)) (pow.f64 (sin.f64 ky) #s(literal 18 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)))) (-.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) (pow.f64 (sin.f64 ky) #s(literal 4 binary64)))))) (sqrt.f64 (-.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 12 binary64)) (pow.f64 (sin.f64 ky) #s(literal 12 binary64))) (pow.f64 (.f64 (sin.f64 kx) (sin.f64 ky)) #s(literal 6 binary64)))))
(/.f64 (sqrt.f64 (.f64 (-.f64 (pow.f64 (sin.f64 kx) #s(literal 12 binary64)) (pow.f64 (sin.f64 ky) #s(literal 12 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)))) (-.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) (pow.f64 (sin.f64 ky) #s(literal 4 binary64)))))) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 kx) #s(literal 6 binary64)) (pow.f64 (sin.f64 ky) #s(literal 6 binary64)))))
(/.f64 (sqrt.f64 (.f64 (-.f64 (pow.f64 (sin.f64 kx) #s(literal 12 binary64)) (pow.f64 (sin.f64 ky) #s(literal 12 binary64))) (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))))) (sqrt.f64 (+.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 8 binary64)) (pow.f64 (sin.f64 ky) #s(literal 8 binary64))) (pow.f64 (*.f64 (sin.f64 kx) (sin.f64 ky)) #s(literal 4 binary64)))))
(/.f64 (sqrt.f64 (.f64 (-.f64 (pow.f64 (sin.f64 kx) #s(literal 8 binary64)) (pow.f64 (sin.f64 ky) #s(literal 8 binary64))) (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))))) (hypot.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))
(/.f64 (sqrt.f64 (/.f64 (-.f64 (pow.f64 (sin.f64 kx) #s(literal 4 binary64)) (pow.f64 (sin.f64 ky) #s(literal 4 binary64))) (+.f64 (sin.f64 kx) (sin.f64 ky)))) (sqrt.f64 (-.f64 (sin.f64 kx) (sin.f64 ky))))
(pow.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) #s(literal 1/2 binary64))
(pow.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) #s(literal 1 binary64))
(pow.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) #s(literal -1 binary64))
(pow.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) #s(literal -1/2 binary64))
(pow.f64 (pow.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) #s(literal 1/4 binary64)) #s(literal 2 binary64))
(pow.f64 (pow.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) #s(literal 2 binary64)) #s(literal 1/4 binary64))
(pow.f64 (exp.f64 #s(literal 1/2 binary64)) (log.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))))
(.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) #s(literal 1 binary64))
(.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) (pow.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))))) #s(literal 1/2 binary64)))
(.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) (pow.f64 (/.f64 (-.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) (-.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) #s(literal 1/2 binary64)))
(.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) (sqrt.f64 (.f64 (-.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))))))
(.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) (sqrt.f64 (/.f64 (-.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) (-.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))))))
(.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))))
(.f64 #s(literal -1 binary64) (neg.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))))
(.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 6 binary64)) (pow.f64 (sin.f64 ky) #s(literal 6 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)))) (-.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) (pow.f64 (sin.f64 ky) #s(literal 4 binary64))))))
(.f64 (sqrt.f64 (fma.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)))) (-.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) (pow.f64 (sin.f64 ky) #s(literal 4 binary64)))) (pow.f64 (.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) (/.f64 #s(literal 1 binary64) (fma.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)))) (-.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) (pow.f64 (sin.f64 ky) #s(literal 4 binary64))))) #s(literal 1/2 binary64)))
(.f64 (sqrt.f64 (fma.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)))) (-.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) (pow.f64 (sin.f64 ky) #s(literal 4 binary64)))) (pow.f64 (/.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) (fma.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)))) (-.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) (pow.f64 (sin.f64 ky) #s(literal 4 binary64)))) #s(literal 1/2 binary64)))
(.f64 (sqrt.f64 (fma.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)))) (-.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) (pow.f64 (sin.f64 ky) #s(literal 4 binary64)))) (sqrt.f64 (.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) (/.f64 #s(literal 1 binary64) (fma.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)))) (-.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) (pow.f64 (sin.f64 ky) #s(literal 4 binary64)))))))
(.f64 (sqrt.f64 (fma.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)))) (-.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) (pow.f64 (sin.f64 ky) #s(literal 4 binary64)))) (sqrt.f64 (/.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) (fma.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)))) (-.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) (pow.f64 (sin.f64 ky) #s(literal 4 binary64))))))
(.f64 (sqrt.f64 (-.f64 (pow.f64 (sin.f64 kx) #s(literal 4 binary64)) (pow.f64 (sin.f64 ky) #s(literal 4 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))))))
(.f64 (pow.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) #s(literal 1/4 binary64)) (pow.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) #s(literal 1/4 binary64)))
(.f64 (pow.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) #s(literal 1/4 binary64)) (/.f64 (pow.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) #s(literal 1/4 binary64)) #s(literal 1 binary64)))
(.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)))) (-.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) (pow.f64 (sin.f64 ky) #s(literal 4 binary64))))) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 6 binary64)) (pow.f64 (sin.f64 ky) #s(literal 6 binary64)))))
(.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))))) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 kx) #s(literal 4 binary64)) (pow.f64 (sin.f64 ky) #s(literal 4 binary64)))))
(.f64 (sqrt.f64 (neg.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 6 binary64)) (pow.f64 (sin.f64 ky) #s(literal 6 binary64))))) (pow.f64 (/.f64 #s(literal 1 binary64) (neg.f64 (fma.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)))) (-.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) (pow.f64 (sin.f64 ky) #s(literal 4 binary64))))) #s(literal 1/2 binary64)))
(.f64 (sqrt.f64 (neg.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 6 binary64)) (pow.f64 (sin.f64 ky) #s(literal 6 binary64))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (neg.f64 (fma.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)))) (-.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) (pow.f64 (sin.f64 ky) #s(literal 4 binary64)))))))
(.f64 (sqrt.f64 (neg.f64 (-.f64 (pow.f64 (sin.f64 kx) #s(literal 4 binary64)) (pow.f64 (sin.f64 ky) #s(literal 4 binary64))))) (pow.f64 (/.f64 #s(literal 1 binary64) (neg.f64 (-.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))))) #s(literal 1/2 binary64)))
(.f64 (sqrt.f64 (neg.f64 (-.f64 (pow.f64 (sin.f64 kx) #s(literal 4 binary64)) (pow.f64 (sin.f64 ky) #s(literal 4 binary64))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (neg.f64 (-.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))))))
(.f64 (sqrt.f64 (-.f64 (pow.f64 (sin.f64 ky) #s(literal 4 binary64)) (pow.f64 (sin.f64 kx) #s(literal 4 binary64)))) (pow.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 ky ky)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx))))))) #s(literal 1/2 binary64)))
(.f64 (sqrt.f64 (-.f64 (pow.f64 (sin.f64 ky) #s(literal 4 binary64)) (pow.f64 (sin.f64 kx) #s(literal 4 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 ky ky)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)))))))))
(.f64 (pow.f64 #s(literal 1 binary64) #s(literal 1/2 binary64)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))))
(.f64 (pow.f64 (/.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) (+.f64 (sin.f64 kx) (sin.f64 ky))) #s(literal 1/2 binary64)) (sqrt.f64 (+.f64 (sin.f64 kx) (sin.f64 ky))))
(.f64 (pow.f64 (/.f64 (-.f64 (pow.f64 (sin.f64 kx) #s(literal 4 binary64)) (pow.f64 (sin.f64 ky) #s(literal 4 binary64))) (-.f64 (pow.f64 (sin.f64 kx) #s(literal 4 binary64)) (pow.f64 (sin.f64 ky) #s(literal 4 binary64)))) #s(literal 1/2 binary64)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))))
(.f64 (pow.f64 (/.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 6 binary64)) (pow.f64 (sin.f64 ky) #s(literal 6 binary64))) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 12 binary64)) (pow.f64 (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))) (-.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 ky ky)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx))))))) #s(literal 3 binary64)))) #s(literal 1/2 binary64)) (sqrt.f64 (fma.f64 (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))) (-.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 ky ky)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx))))))) (-.f64 (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))) (-.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 ky ky)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx))))))) (pow.f64 (sin.f64 kx) #s(literal 4 binary64))) (pow.f64 (sin.f64 kx) #s(literal 8 binary64)))))
(.f64 (pow.f64 (/.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 6 binary64)) (pow.f64 (sin.f64 ky) #s(literal 6 binary64))) (-.f64 (pow.f64 (sin.f64 kx) #s(literal 8 binary64)) (pow.f64 (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))) (-.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 ky ky)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx))))))) #s(literal 2 binary64)))) #s(literal 1/2 binary64)) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 kx) #s(literal 4 binary64)) (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))) (-.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 ky ky)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx))))))))))
(.f64 (pow.f64 (/.f64 (-.f64 (pow.f64 (sin.f64 kx) #s(literal 4 binary64)) (pow.f64 (sin.f64 ky) #s(literal 4 binary64))) (-.f64 (pow.f64 (sin.f64 kx) #s(literal 6 binary64)) (pow.f64 (sin.f64 ky) #s(literal 6 binary64)))) #s(literal 1/2 binary64)) (sqrt.f64 (fma.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) (pow.f64 (sin.f64 kx) #s(literal 4 binary64)))))
(.f64 (pow.f64 (pow.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 6 binary64)) (pow.f64 (sin.f64 ky) #s(literal 6 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (pow.f64 (pow.f64 (fma.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)))) (-.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) (pow.f64 (sin.f64 ky) #s(literal 4 binary64))) #s(literal -1/4 binary64)) #s(literal 2 binary64)))
(.f64 (pow.f64 (pow.f64 (-.f64 (pow.f64 (sin.f64 kx) #s(literal 4 binary64)) (pow.f64 (sin.f64 ky) #s(literal 4 binary64))) #s(literal 1/4 binary64)) #s(literal 2 binary64)) (pow.f64 (pow.f64 (-.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) #s(literal -1/4 binary64)) #s(literal 2 binary64)))
(.f64 (sqrt.f64 (/.f64 (-.f64 (pow.f64 (sin.f64 kx) #s(literal 4 binary64)) (pow.f64 (sin.f64 ky) #s(literal 4 binary64))) (-.f64 (pow.f64 (sin.f64 kx) #s(literal 4 binary64)) (pow.f64 (sin.f64 ky) #s(literal 4 binary64))))) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))))
(.f64 (sqrt.f64 (/.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) (+.f64 (sin.f64 kx) (sin.f64 ky)))) (sqrt.f64 (+.f64 (sin.f64 kx) (sin.f64 ky))))
(.f64 (sqrt.f64 (/.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 6 binary64)) (pow.f64 (sin.f64 ky) #s(literal 6 binary64))) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 12 binary64)) (pow.f64 (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))) (-.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 ky ky)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx))))))) #s(literal 3 binary64))))) (sqrt.f64 (fma.f64 (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))) (-.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 ky ky)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx))))))) (-.f64 (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))) (-.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 ky ky)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx))))))) (pow.f64 (sin.f64 kx) #s(literal 4 binary64))) (pow.f64 (sin.f64 kx) #s(literal 8 binary64)))))
(.f64 (sqrt.f64 (/.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 6 binary64)) (pow.f64 (sin.f64 ky) #s(literal 6 binary64))) (-.f64 (pow.f64 (sin.f64 kx) #s(literal 8 binary64)) (pow.f64 (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))) (-.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 ky ky)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx))))))) #s(literal 2 binary64))))) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 kx) #s(literal 4 binary64)) (.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))) (-.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 ky ky)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx))))))))))
(.f64 (sqrt.f64 (/.f64 (-.f64 (pow.f64 (sin.f64 kx) #s(literal 4 binary64)) (pow.f64 (sin.f64 ky) #s(literal 4 binary64))) (-.f64 (pow.f64 (sin.f64 kx) #s(literal 6 binary64)) (pow.f64 (sin.f64 ky) #s(literal 6 binary64))))) (sqrt.f64 (fma.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) (pow.f64 (sin.f64 kx) #s(literal 4 binary64)))))
(exp.f64 (.f64 (log.f64 (/.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) (*.f64 (sin.f64 ky) (sin.f64 th)))) #s(literal -1 binary64)))
(neg.f64 (.f64 (/.f64 (neg.f64 (sin.f64 ky)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 th)))
(neg.f64 (.f64 (sin.f64 th) (/.f64 (neg.f64 (sin.f64 ky)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))))))
(neg.f64 (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (neg.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))))))
(neg.f64 (/.f64 (.f64 (sin.f64 th) (neg.f64 (sin.f64 ky))) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))))
(/.f64 (sin.f64 th) (/.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) (sin.f64 ky)))
(/.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) (.f64 (sin.f64 ky) (sin.f64 th))))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) (.f64 (sin.f64 ky) (sin.f64 th))) #s(literal 1 binary64)))
(/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))))
(/.f64 (-.f64 (cos.f64 (-.f64 ky th)) (cos.f64 (+.f64 ky th))) (.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) #s(literal 2 binary64)))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) (.f64 (sin.f64 ky) (sin.f64 th)))))
(/.f64 (.f64 (sin.f64 th) (neg.f64 (sin.f64 ky))) (neg.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))))
(/.f64 (/.f64 (sin.f64 th) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (/.f64 #s(literal 1 binary64) (sin.f64 ky)))
(/.f64 (.f64 (-.f64 (cos.f64 (-.f64 ky th)) (cos.f64 (+.f64 ky th))) #s(literal 1 binary64)) (.f64 #s(literal 2 binary64) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))))
(/.f64 (.f64 (-.f64 (cos.f64 (-.f64 ky th)) (cos.f64 (+.f64 ky th))) #s(literal -1 binary64)) (.f64 #s(literal 2 binary64) (neg.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))))))
(/.f64 (neg.f64 (sin.f64 th)) (/.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) (neg.f64 (sin.f64 ky))))
(/.f64 (neg.f64 (.f64 (sin.f64 th) (neg.f64 (sin.f64 ky)))) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))))
(/.f64 (.f64 (sin.f64 th) #s(literal -1 binary64)) (/.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) (neg.f64 (sin.f64 ky))))
(/.f64 (.f64 (.f64 (sin.f64 ky) (sin.f64 th)) #s(literal 1 binary64)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))))
(/.f64 (.f64 (.f64 (sin.f64 ky) (sin.f64 th)) #s(literal -1 binary64)) (neg.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))))
(/.f64 (.f64 #s(literal -1 binary64) (sin.f64 th)) (/.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) (neg.f64 (sin.f64 ky))))
(/.f64 (.f64 (-.f64 (cos.f64 (-.f64 ky th)) (cos.f64 (+.f64 ky th))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))))) #s(literal 2 binary64))
(/.f64 (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (pow.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) #s(literal 1/4 binary64))) (pow.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) #s(literal 1/4 binary64)))
(/.f64 (/.f64 (.f64 (sin.f64 th) (neg.f64 (sin.f64 ky))) #s(literal -1 binary64)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))))
(pow.f64 (/.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) (.f64 (sin.f64 ky) (sin.f64 th))) #s(literal -1 binary64))
(pow.f64 (/.f64 (/.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) (.f64 (sin.f64 ky) (sin.f64 th))) #s(literal 1 binary64)) #s(literal -1 binary64))
(.f64 (sin.f64 ky) (/.f64 (sin.f64 th) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))))
(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 th))
(.f64 (sin.f64 th) (/.f64 (sin.f64 ky) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))))
(.f64 (neg.f64 (sin.f64 ky)) (.f64 (/.f64 #s(literal -1 binary64) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 th)))
(.f64 (neg.f64 (sin.f64 ky)) (/.f64 (sin.f64 th) (neg.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))))))
(.f64 #s(literal 1 binary64) (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))))
(.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (*.f64 (sin.f64 ky) (sin.f64 th)))
(.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (/.f64 (sin.f64 th) (/.f64 #s(literal 1 binary64) (sin.f64 ky))))
(.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (pow.f64 (/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 ky) (sin.f64 th))) #s(literal -1 binary64)))
(.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))))
(.f64 (.f64 (sin.f64 th) (neg.f64 (sin.f64 ky))) (/.f64 #s(literal -1 binary64) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))))
(.f64 (sqrt.f64 (sin.f64 ky)) (.f64 (sqrt.f64 (sin.f64 ky)) (/.f64 (sin.f64 th) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))))))
(.f64 (/.f64 (sin.f64 th) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky))
(.f64 (/.f64 (sin.f64 ky) (pow.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) #s(literal 1/4 binary64))) (/.f64 (sin.f64 th) (pow.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) #s(literal 1/4 binary64))))
(.f64 (/.f64 (sin.f64 th) (pow.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) #s(literal 1/4 binary64))) (/.f64 (sin.f64 ky) (pow.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) #s(literal 1/4 binary64))))
(.f64 (/.f64 (sin.f64 th) #s(literal -1 binary64)) (/.f64 (neg.f64 (sin.f64 ky)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))))
(.f64 (/.f64 (neg.f64 (sin.f64 ky)) #s(literal -1 binary64)) (/.f64 (sin.f64 th) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))))
(.f64 (pow.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) #s(literal -1/4 binary64)) (pow.f64 (/.f64 (pow.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) #s(literal 1/4 binary64)) (.f64 (sin.f64 ky) (sin.f64 th))) #s(literal -1 binary64)))
(.f64 (.f64 (.f64 (sin.f64 ky) (sin.f64 th)) #s(literal 1 binary64)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))))
(.f64 (/.f64 (sin.f64 th) (neg.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))))) (neg.f64 (sin.f64 ky)))
(.f64 (/.f64 (sin.f64 th) #s(literal 1 binary64)) (/.f64 (sin.f64 ky) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))))
(.f64 (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 6 binary64)) (pow.f64 (sin.f64 ky) #s(literal 6 binary64))))) (sqrt.f64 (fma.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)))) (-.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) (pow.f64 (sin.f64 ky) #s(literal 4 binary64)))))
(.f64 (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 kx) #s(literal 4 binary64)) (pow.f64 (sin.f64 ky) #s(literal 4 binary64))))) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))))
(.f64 (pow.f64 (/.f64 (pow.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) #s(literal 1/4 binary64)) (sin.f64 ky)) #s(literal -1 binary64)) (pow.f64 (/.f64 (pow.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) #s(literal 1/4 binary64)) (sin.f64 th)) #s(literal -1 binary64)))
(.f64 (pow.f64 (/.f64 (pow.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) #s(literal 1/4 binary64)) (sin.f64 th)) #s(literal -1 binary64)) (pow.f64 (/.f64 (pow.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) #s(literal 1/4 binary64)) (sin.f64 ky)) #s(literal -1 binary64)))
(.f64 (pow.f64 (/.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) (-.f64 (cos.f64 (-.f64 ky th)) (cos.f64 (+.f64 ky th)))) #s(literal -1 binary64)) #s(literal 1/2 binary64))
(exp.f64 (.f64 (log.f64 (/.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) (sin.f64 ky))) #s(literal -1 binary64)))
(exp.f64 (-.f64 (log.f64 (sin.f64 ky)) (.f64 #s(literal 1/2 binary64) (log.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))))))
(exp.f64 (+.f64 (log.f64 (sin.f64 ky)) (.f64 (log.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) #s(literal -1/2 binary64))))
(exp.f64 (+.f64 (log.f64 (sin.f64 ky)) (.f64 (.f64 #s(literal 1/2 binary64) (log.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) #s(literal -1 binary64))))
(exp.f64 (+.f64 (log.f64 (sin.f64 ky)) (neg.f64 (.f64 #s(literal 1/2 binary64) (log.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))))))
(exp.f64 (fma.f64 (log.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) #s(literal -1/2 binary64) (log.f64 (sin.f64 ky))))
(exp.f64 (fma.f64 (.f64 #s(literal 1/2 binary64) (log.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) #s(literal -1 binary64) (log.f64 (sin.f64 ky))))
(exp.f64 (+.f64 (neg.f64 (.f64 #s(literal 1/2 binary64) (log.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))))) (log.f64 (sin.f64 ky))))
(exp.f64 (neg.f64 (log.f64 (/.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) (sin.f64 ky)))))
(exp.f64 (-.f64 (.f64 (log.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) #s(literal -1/2 binary64)) (neg.f64 (log.f64 (sin.f64 ky)))))
(exp.f64 (-.f64 (.f64 (.f64 #s(literal 1/2 binary64) (log.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) #s(literal -1 binary64)) (neg.f64 (log.f64 (sin.f64 ky)))))
(exp.f64 (-.f64 (neg.f64 (.f64 #s(literal 1/2 binary64) (log.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))))) (neg.f64 (log.f64 (sin.f64 ky)))))
(-.f64 #s(literal 0 binary64) (/.f64 (neg.f64 (sin.f64 ky)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))))
(-.f64 (/.f64 #s(literal 0 binary64) (neg.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))))) (/.f64 (neg.f64 (sin.f64 ky)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))))
(neg.f64 (/.f64 (neg.f64 (sin.f64 ky)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))))
(neg.f64 (.f64 #s(literal 1 binary64) (/.f64 (neg.f64 (sin.f64 ky)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))))))
(neg.f64 (/.f64 #s(literal -1 binary64) (/.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) (sin.f64 ky))))
(/.f64 (sin.f64 ky) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))))
(/.f64 (neg.f64 (sin.f64 ky)) (neg.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))))
(/.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) (sin.f64 ky)))
(/.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (/.f64 #s(literal 1 binary64) (sin.f64 ky)))
(/.f64 #s(literal -1 binary64) (/.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) (neg.f64 (sin.f64 ky))))
(/.f64 (/.f64 (sin.f64 ky) (pow.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) #s(literal 1/4 binary64))) (pow.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) #s(literal 1/4 binary64)))
(/.f64 (/.f64 (neg.f64 (sin.f64 ky)) #s(literal -1 binary64)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))))
(/.f64 (.f64 #s(literal 1 binary64) (neg.f64 (sin.f64 ky))) (neg.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))))
(/.f64 (.f64 (neg.f64 (sin.f64 ky)) #s(literal 1 binary64)) (neg.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))))
(pow.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) #s(literal 1 binary64))
(pow.f64 (/.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) (sin.f64 ky)) #s(literal -1 binary64))
(pow.f64 (/.f64 (sqrt.f64 (sin.f64 ky)) (pow.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) #s(literal 1/4 binary64))) #s(literal 2 binary64))
(pow.f64 (pow.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) #s(literal 1/2 binary64)) #s(literal 2 binary64))
(pow.f64 (.f64 (/.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) (sin.f64 ky)) (/.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) (sin.f64 ky))) #s(literal -1/2 binary64))
(.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))))
(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) #s(literal 1 binary64))
(.f64 (neg.f64 (sin.f64 ky)) (/.f64 #s(literal -1 binary64) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))))
(.f64 #s(literal 1 binary64) (/.f64 (sin.f64 ky) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))))
(.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky))
(.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (pow.f64 (/.f64 (/.f64 #s(literal 1 binary64) (sin.f64 ky)) #s(literal 1 binary64)) #s(literal -1 binary64)))
(.f64 #s(literal -1 binary64) (/.f64 (neg.f64 (sin.f64 ky)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))))
(.f64 (/.f64 #s(literal -1 binary64) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (neg.f64 (sin.f64 ky)))
(.f64 (/.f64 #s(literal -1 binary64) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (pow.f64 (/.f64 #s(literal 1 binary64) (neg.f64 (sin.f64 ky))) #s(literal -1 binary64)))
(.f64 (sqrt.f64 (sin.f64 ky)) (sqrt.f64 (/.f64 (sin.f64 ky) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))))
(.f64 (sqrt.f64 (sin.f64 ky)) (.f64 (sqrt.f64 (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))))))
(.f64 (/.f64 (sin.f64 ky) (pow.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) #s(literal 1/4 binary64))) (pow.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) #s(literal -1/4 binary64)))
(.f64 (/.f64 (sqrt.f64 (sin.f64 ky)) (pow.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) #s(literal 1/4 binary64))) (/.f64 (sqrt.f64 (sin.f64 ky)) (pow.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) #s(literal 1/4 binary64))))
(.f64 (pow.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) #s(literal -1/4 binary64)) (pow.f64 (/.f64 (pow.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) #s(literal 1/4 binary64)) (sin.f64 ky)) #s(literal -1 binary64)))
(.f64 (pow.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) #s(literal -1/4 binary64)) (pow.f64 (.f64 (pow.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) #s(literal 1/4 binary64)) (/.f64 #s(literal 1 binary64) (sin.f64 ky))) #s(literal -1 binary64)))
(.f64 (pow.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) #s(literal 1/2 binary64)) (pow.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) #s(literal 1/2 binary64)))
(.f64 (.f64 #s(literal 1 binary64) (neg.f64 (sin.f64 ky))) (/.f64 #s(literal -1 binary64) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sqrt.f64 (sin.f64 ky))) (sqrt.f64 (sin.f64 ky)))
(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 6 binary64)) (pow.f64 (sin.f64 ky) #s(literal 6 binary64))))) (sqrt.f64 (fma.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)))) (-.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) (pow.f64 (sin.f64 ky) #s(literal 4 binary64)))))
(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 kx) #s(literal 4 binary64)) (pow.f64 (sin.f64 ky) #s(literal 4 binary64))))) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))))
(.f64 (pow.f64 (/.f64 #s(literal 1 binary64) (neg.f64 (sin.f64 ky))) #s(literal -1 binary64)) (/.f64 #s(literal -1 binary64) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))))
(.f64 (pow.f64 (/.f64 (pow.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) #s(literal 1/4 binary64)) (sqrt.f64 (sin.f64 ky))) #s(literal -1 binary64)) (pow.f64 (/.f64 (pow.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) #s(literal 1/4 binary64)) (sqrt.f64 (sin.f64 ky))) #s(literal -1 binary64)))
(exp.f64 (log.f64 (sin.f64 ky)))
(exp.f64 (*.f64 (neg.f64 (log.f64 (sin.f64 ky))) #s(literal -1 binary64)))
(exp.f64 (.f64 (.f64 #s(literal 2 binary64) (log.f64 (sin.f64 ky))) #s(literal 1/2 binary64)))
(exp.f64 (.f64 (.f64 #s(literal 1/2 binary64) (log.f64 (sin.f64 ky))) #s(literal 2 binary64)))
(exp.f64 (neg.f64 (neg.f64 (log.f64 (sin.f64 ky)))))
(-.f64 #s(literal 0 binary64) (neg.f64 (sin.f64 ky)))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))
(sin.f64 ky)
(neg.f64 (neg.f64 (sin.f64 ky)))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 ky)))
(pow.f64 (sin.f64 ky) #s(literal 1 binary64))
(pow.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))) #s(literal 1/2 binary64))
(pow.f64 (/.f64 #s(literal 1 binary64) (sin.f64 ky)) #s(literal -1 binary64))
(pow.f64 (sqrt.f64 (sin.f64 ky)) #s(literal 2 binary64))
(pow.f64 (exp.f64 #s(literal 2 binary64)) (*.f64 #s(literal 1/2 binary64) (log.f64 (sin.f64 ky))))
(pow.f64 (exp.f64 #s(literal 1 binary64)) (log.f64 (sin.f64 ky)))
(*.f64 (sin.f64 ky) #s(literal 1 binary64))
(*.f64 #s(literal 1 binary64) (sin.f64 ky))
(*.f64 #s(literal -1 binary64) (neg.f64 (sin.f64 ky)))
(*.f64 #s(literal -1 binary64) (pow.f64 (neg.f64 (sin.f64 ky)) #s(literal 1 binary64)))
(*.f64 (sqrt.f64 (sin.f64 ky)) (sqrt.f64 (sin.f64 ky)))
(*.f64 (sqrt.f64 (sqrt.f64 (sin.f64 ky))) (pow.f64 (pow.f64 (sin.f64 ky) #s(literal 3/2 binary64)) #s(literal 1/2 binary64)))
(*.f64 (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64)) (pow.f64 #s(literal 1/2 binary64) #s(literal 1/2 binary64)))
(*.f64 (pow.f64 (pow.f64 (sin.f64 ky) #s(literal 3/2 binary64)) #s(literal 1/2 binary64)) (sqrt.f64 (sqrt.f64 (sin.f64 ky))))
(+.f64 #s(literal 1/2 binary64) (neg.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 ky ky)))))
(+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))
(exp.f64 (*.f64 #s(literal 2 binary64) (log.f64 (sin.f64 ky))))
(exp.f64 (*.f64 (log.f64 (exp.f64 #s(literal 2 binary64))) (log.f64 (sin.f64 ky))))
(exp.f64 (.f64 (.f64 #s(literal 1/2 binary64) (log.f64 (sin.f64 ky))) #s(literal 4 binary64)))
(-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 ky ky))))
(-.f64 #s(literal 1/2 binary64) (/.f64 (cos.f64 (+.f64 ky ky)) #s(literal 2 binary64)))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))))
(/.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 2 binary64))
(/.f64 (neg.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))) #s(literal -2 binary64))
(/.f64 (-.f64 #s(literal 1/8 binary64) (pow.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 3 binary64))) (+.f64 #s(literal 1/4 binary64) (+.f64 (pow.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 ky ky)))))))
(/.f64 (-.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 2 binary64))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 ky ky)))))
(/.f64 (exp.f64 (log1p.f64 (neg.f64 (cos.f64 (+.f64 ky ky))))) (exp.f64 (log.f64 #s(literal 2 binary64))))
(pow.f64 (sin.f64 ky) #s(literal 2 binary64))
(pow.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))) #s(literal 1 binary64))
(pow.f64 (pow.f64 (sin.f64 ky) #s(literal 4 binary64)) #s(literal 1/2 binary64))
(pow.f64 (sqrt.f64 (sin.f64 ky)) #s(literal 4 binary64))
(pow.f64 (exp.f64 #s(literal 2 binary64)) (log.f64 (sin.f64 ky)))
(pow.f64 (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))) #s(literal -1 binary64))
(pow.f64 (pow.f64 (exp.f64 #s(literal 2 binary64)) #s(literal 1 binary64)) (log.f64 (sin.f64 ky)))
(pow.f64 (exp.f64 #s(literal 1 binary64)) (*.f64 #s(literal 2 binary64) (log.f64 (sin.f64 ky))))
(*.f64 (sin.f64 ky) (sin.f64 ky))
(.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))) #s(literal 1 binary64))
(*.f64 (neg.f64 (sin.f64 ky)) (neg.f64 (sin.f64 ky)))
(.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))
(*.f64 #s(literal 1 binary64) (pow.f64 (neg.f64 (sin.f64 ky)) #s(literal 2 binary64)))
(*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64))
(*.f64 (sqrt.f64 (sin.f64 ky)) (pow.f64 (sin.f64 ky) #s(literal 3/2 binary64)))
(*.f64 (sqrt.f64 (sin.f64 ky)) (pow.f64 (pow.f64 (sin.f64 ky) #s(literal 3/2 binary64)) #s(literal 1 binary64)))
(*.f64 (pow.f64 (sin.f64 ky) #s(literal 3/2 binary64)) (sqrt.f64 (sin.f64 ky)))
(*.f64 (pow.f64 (pow.f64 (sin.f64 ky) #s(literal 3/2 binary64)) #s(literal 1 binary64)) (sqrt.f64 (sin.f64 ky)))
(*.f64 (pow.f64 (sqrt.f64 (sqrt.f64 (sin.f64 ky))) #s(literal 4 binary64)) (pow.f64 (sqrt.f64 (sqrt.f64 (sin.f64 ky))) #s(literal 4 binary64)))
(*.f64 (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1 binary64)) #s(literal 1/2 binary64))
(+.f64 #s(literal 1/2 binary64) (neg.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx)))))
(+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx))))
(exp.f64 (*.f64 #s(literal 2 binary64) (log.f64 (sin.f64 kx))))
(exp.f64 (*.f64 (log.f64 (exp.f64 #s(literal 2 binary64))) (log.f64 (sin.f64 kx))))
(exp.f64 (.f64 (.f64 #s(literal 1/2 binary64) (log.f64 (sin.f64 kx))) #s(literal 4 binary64)))
(-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx))))
(-.f64 #s(literal 1/2 binary64) (/.f64 (cos.f64 (+.f64 kx kx)) #s(literal 2 binary64)))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))))
(/.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 2 binary64))
(/.f64 (neg.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal -2 binary64))
(/.f64 (-.f64 #s(literal 1/8 binary64) (pow.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 3 binary64))) (+.f64 #s(literal 1/4 binary64) (+.f64 (pow.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx)))))))
(/.f64 (-.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 2 binary64))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx)))))
(/.f64 (exp.f64 (log1p.f64 (neg.f64 (cos.f64 (+.f64 kx kx))))) (exp.f64 (log.f64 #s(literal 2 binary64))))
(pow.f64 (sin.f64 kx) #s(literal 2 binary64))
(pow.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 1 binary64))
(pow.f64 (pow.f64 (sin.f64 kx) #s(literal 4 binary64)) #s(literal 1/2 binary64))
(pow.f64 (sqrt.f64 (sin.f64 kx)) #s(literal 4 binary64))
(pow.f64 (exp.f64 #s(literal 2 binary64)) (log.f64 (sin.f64 kx)))
(pow.f64 (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal -1 binary64))
(pow.f64 (pow.f64 (exp.f64 #s(literal 2 binary64)) #s(literal 1 binary64)) (log.f64 (sin.f64 kx)))
(pow.f64 (exp.f64 #s(literal 1 binary64)) (*.f64 #s(literal 2 binary64) (log.f64 (sin.f64 kx))))
(*.f64 (sin.f64 kx) (sin.f64 kx))
(*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64))
(*.f64 (sqrt.f64 (sin.f64 kx)) (pow.f64 (sin.f64 kx) #s(literal 3/2 binary64)))
(*.f64 (sqrt.f64 (sin.f64 kx)) (pow.f64 (pow.f64 (sin.f64 kx) #s(literal 3/2 binary64)) #s(literal 1 binary64)))
(*.f64 (pow.f64 (sin.f64 kx) #s(literal 3/2 binary64)) (sqrt.f64 (sin.f64 kx)))
(*.f64 (pow.f64 (pow.f64 (sin.f64 kx) #s(literal 3/2 binary64)) #s(literal 1 binary64)) (sqrt.f64 (sin.f64 kx)))
(*.f64 (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1 binary64)) #s(literal 1/2 binary64))
(*.f64 (pow.f64 (sqrt.f64 (sqrt.f64 (sin.f64 kx))) #s(literal 4 binary64)) (pow.f64 (sqrt.f64 (sqrt.f64 (sin.f64 kx))) #s(literal 4 binary64)))

eval62.0ms (0.5%)

Memory: 27.2MiB live, 152.7MiB allocated
Compiler: Compiled 12 851 to 1 671 computations (87% saved)

prune87.0ms (0.6%)

Memory

-1.3MiB live, 157.5MiB allocated

Pruning

29 alts after pruning (29 fresh and 0 done)

	Pruned	Kept	Total
New	419	29	448
Fresh	0	0	0
Picked	1	0	1
Done	0	0	0
Total	420	29	449

Accuracy

100.0%

Counts

449 → 29

Alt Table

Click to see full alt table

Status	Accuracy	Program
	79.1%	(/.f64 (/.f64 (sin.f64 th) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (/.f64 #s(literal 1 binary64) (sin.f64 ky)))
	79.2%	(/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))))
	79.2%	(/.f64 (sin.f64 th) (/.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) (sin.f64 ky)))
	79.1%	(.f64 (/.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (/.f64 #s(literal 1 binary64) (sin.f64 ky))) (sin.f64 th))
	79.1%	(.f64 (/.f64 (sin.f64 th) (pow.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) #s(literal 1/4 binary64))) (/.f64 (sin.f64 ky) (pow.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) #s(literal 1/4 binary64))))
	79.3%	(.f64 (/.f64 (sin.f64 th) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky))
	79.1%	(.f64 (/.f64 (sin.f64 ky) (pow.f64 (pow.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) #s(literal 1/4 binary64)) #s(literal 2 binary64))) (sin.f64 th))
▶	99.7%	(*.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (sin.f64 kx))) (sin.f64 th))
	79.3%	(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 th))
	86.7%	(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (/.f64 (-.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 ky ky)))))))) (sin.f64 th))
▶	45.2%	(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky))))) (sin.f64 th))
	43.9%	(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 #s(approx (pow (sin kx) 2) (.f64 kx (.f64 kx (fma.f64 (.f64 kx kx) #s(literal -1/3 binary64) #s(literal 1 binary64))))) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (sin.f64 th))
	50.4%	(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 #s(approx (pow (sin kx) 2) (.f64 kx kx)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (sin.f64 th))
	35.7%	(.f64 (/.f64 (sin.f64 ky) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (fma.f64 kx (.f64 kx (/.f64 #s(literal 1/2 binary64) (sin.f64 ky))) (sin.f64 ky)))) (sin.f64 th))
	24.9%	(*.f64 (/.f64 (sin.f64 ky) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx))) (sin.f64 th))
▶	79.1%	(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) (sin.f64 th))
	54.5%	(.f64 (.f64 (sqrt.f64 (sin.f64 ky)) (sqrt.f64 (/.f64 (sin.f64 ky) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))))) (sin.f64 th))
	79.0%	(.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))))
	79.2%	(.f64 (neg.f64 (sin.f64 ky)) (.f64 (/.f64 #s(literal -1 binary64) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 th)))
	26.3%	(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (fma.f64 (.f64 kx kx) (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) #s(literal 1 binary64))) (sin.f64 th))
	21.5%	(*.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (/.f64 ky (sin.f64 kx))) (sin.f64 th))
	95.6%	(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64)) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))))) (sin.f64 th))
▶	17.7%	(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky (fma.f64 (*.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (sin.f64 th))
	26.3%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (fma.f64 (.f64 #s(literal -1/2 binary64) (sin.f64 th)) (/.f64 (.f64 kx kx) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) (sin.f64 th)))
	20.6%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (/.f64 (*.f64 ky (sin.f64 th)) (sin.f64 kx)))
	50.2%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64)) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))) (.f64 (sin.f64 ky) th)))
	52.6%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 th (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64)) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))) (.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 th th) #s(literal 1 binary64)) (sin.f64 ky)))))
	17.7%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 ky (fma.f64 (fma.f64 (.f64 ky ky) #s(literal -1/6 binary64) #s(literal 1 binary64)) (/.f64 (sin.f64 th) (sin.f64 kx)) (/.f64 (.f64 (.f64 ky ky) (*.f64 #s(literal -1/2 binary64) (sin.f64 th))) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))))))
▶	32.9%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th))

Compiler

Compiled 1 382 to 920 computations (33.4% saved)

simplify122.0ms (0.9%)

Memory

-14.8MiB live, 62.5MiB allocated

Algorithm

1×	egg-herbie

Localize:

Found 18 expressions of interest:

New	Metric	Score
cost-diff	0	(.f64 ky (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))
cost-diff	0	#s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx)))))
cost-diff	0	(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky (fma.f64 (*.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (sin.f64 th))
cost-diff	7104	(fma.f64 (*.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx)))
cost-diff	0	(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) (sin.f64 th))
cost-diff	128	(+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))
cost-diff	192	(/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))
cost-diff	384	(fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))
cost-diff	0	(sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (*.f64 ky ky))))
cost-diff	0	(sin.f64 ky)
cost-diff	0	(/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (*.f64 ky ky)))))
cost-diff	0	(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky))))) (sin.f64 th))
cost-diff	0	(sin.f64 th)
cost-diff	0	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th))
cost-diff	0	(hypot.f64 (sin.f64 ky) (sin.f64 kx))
cost-diff	0	(sin.f64 ky)
cost-diff	0	(/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (sin.f64 kx)))
cost-diff	0	(*.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (sin.f64 kx))) (sin.f64 th))

Rules

2 658×	`lower-fma.f32`
2 654×	`lower-fma.f64`
1 482×	`lower-*.f32`
1 466×	`lower-*.f64`
524×	`lower-+.f32`

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	53	444
0	91	429
1	137	429
2	240	421
3	417	411
4	755	411
5	1134	408
6	1458	408
7	1738	400
8	1974	392
9	2255	392
10	2724	392
11	3014	392
12	3170	392
13	3188	392
14	3196	392
15	3202	392
16	3202	392
0	3202	386

Stop Event

1×	iter limit
1×	saturated
1×	iter limit

Calls

Call 1

Inputs
(*.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (sin.f64 kx))) (sin.f64 th))
(/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (sin.f64 kx)))
(sin.f64 ky)
ky
(hypot.f64 (sin.f64 ky) (sin.f64 kx))
(sin.f64 kx)
kx
(sin.f64 th)
th
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th))
(sin.f64 th)
th
(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky))))) (sin.f64 th))
(/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (*.f64 ky ky)))))
(sin.f64 ky)
ky
(sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (*.f64 ky ky))))
(+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (*.f64 ky ky)))
(pow.f64 (sin.f64 kx) #s(literal 2 binary64))
(sin.f64 kx)
kx
#s(literal 2 binary64)
#s(approx (pow (sin ky) 2) (*.f64 ky ky))
(*.f64 ky ky)
(sin.f64 th)
th
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) (sin.f64 th))
(.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky))
(sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))))
(/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))
#s(literal 1 binary64)
(fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))
(-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))
(cos.f64 (+.f64 kx kx))
(+.f64 kx kx)
kx
#s(literal 1/2 binary64)
(+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))
(*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))
#s(literal -1/2 binary64)
(cos.f64 (+.f64 ky ky))
(+.f64 ky ky)
ky
(sin.f64 ky)
(sin.f64 th)
th
(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky (fma.f64 (*.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (sin.f64 th))
#s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx)))))
(.f64 ky (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))
ky
(fma.f64 (*.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx)))
(*.f64 ky ky)
(+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx)))
(/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64)))
#s(literal -1/2 binary64)
(pow.f64 (sin.f64 kx) #s(literal 3 binary64))
(sin.f64 kx)
kx
#s(literal 3 binary64)
(/.f64 #s(literal -1/6 binary64) (sin.f64 kx))
#s(literal -1/6 binary64)
(/.f64 #s(literal 1 binary64) (sin.f64 kx))
#s(literal 1 binary64)
(sin.f64 th)
th

Outputs
(*.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (sin.f64 kx))) (sin.f64 th))
(/.f64 (*.f64 (sin.f64 ky) (sin.f64 th)) (hypot.f64 (sin.f64 ky) (sin.f64 kx)))
(/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (sin.f64 kx)))
(sin.f64 ky)
ky
(hypot.f64 (sin.f64 ky) (sin.f64 kx))
(sin.f64 kx)
kx
(sin.f64 th)
th
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th))
(sin.f64 th)
th
(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky))))) (sin.f64 th))
(/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky)))))
(/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (*.f64 ky ky)))))
(sin.f64 ky)
ky
(sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (*.f64 ky ky))))
(+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (*.f64 ky ky)))
(pow.f64 (sin.f64 kx) #s(literal 2 binary64))
(sin.f64 kx)
kx
#s(literal 2 binary64)
#s(approx (pow (sin ky) 2) (*.f64 ky ky))
(*.f64 ky ky)
(sin.f64 th)
th
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) (sin.f64 th))
(.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (+.f64 kx kx)) (cos.f64 (+.f64 ky ky)))))) (.f64 (sin.f64 ky) (sin.f64 th)))
(.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky))
(*.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (+.f64 kx kx)) (cos.f64 (+.f64 ky ky)))))))
(sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))))
(sqrt.f64 (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (+.f64 kx kx)) (cos.f64 (+.f64 ky ky))))))
(/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))
(/.f64 #s(literal 2 binary64) (-.f64 #s(literal 2 binary64) (+.f64 (cos.f64 (+.f64 kx kx)) (cos.f64 (+.f64 ky ky)))))
#s(literal 1 binary64)
(fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))
(fma.f64 #s(literal -1/2 binary64) (+.f64 (cos.f64 (+.f64 kx kx)) (cos.f64 (+.f64 ky ky))) #s(literal 1 binary64))
(-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))
(cos.f64 (+.f64 kx kx))
(+.f64 kx kx)
kx
#s(literal 1/2 binary64)
(+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))
(fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))
(*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))
#s(literal -1/2 binary64)
(cos.f64 (+.f64 ky ky))
(+.f64 ky ky)
ky
(sin.f64 ky)
(sin.f64 th)
th
(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky (fma.f64 (*.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (sin.f64 th))
(.f64 (sin.f64 th) #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (/.f64 (fma.f64 (.f64 ky (*.f64 ky ky)) (+.f64 #s(literal -1/6 binary64) (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 2 binary64)))) ky) (sin.f64 kx))))
#s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx)))))
#s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (/.f64 (fma.f64 (.f64 ky (.f64 ky ky)) (+.f64 #s(literal -1/6 binary64) (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 2 binary64)))) ky) (sin.f64 kx)))
(.f64 ky (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))
(/.f64 (fma.f64 (.f64 ky (.f64 ky ky)) (+.f64 #s(literal -1/6 binary64) (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 2 binary64)))) ky) (sin.f64 kx))
ky
(fma.f64 (*.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx)))
(/.f64 (fma.f64 (*.f64 ky ky) (+.f64 #s(literal -1/6 binary64) (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 2 binary64)))) #s(literal 1 binary64)) (sin.f64 kx))
(*.f64 ky ky)
(+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx)))
(/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64)))
#s(literal -1/2 binary64)
(pow.f64 (sin.f64 kx) #s(literal 3 binary64))
(sin.f64 kx)
kx
#s(literal 3 binary64)
(/.f64 #s(literal -1/6 binary64) (sin.f64 kx))
#s(literal -1/6 binary64)
(/.f64 #s(literal 1 binary64) (sin.f64 kx))
#s(literal 1 binary64)
(sin.f64 th)
th

localize346.0ms (2.5%)

Memory

-19.9MiB live, 424.1MiB allocated

Localize:

Found 18 expressions of interest:

New	Metric	Score
accuracy	0.37890625	(/.f64 #s(literal -1/6 binary64) (sin.f64 kx))
accuracy	2.234606288430317	(.f64 ky (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))
accuracy	4.624191547453675	(fma.f64 (*.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx)))
accuracy	52.24383150200879	#s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx)))))
accuracy	0.33431625976844204	(.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky))
accuracy	2.5216530197617963	(sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))))
accuracy	15.10509972035183	(-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))
accuracy	15.211989615132087	(+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))
accuracy	0.171875	(/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (*.f64 ky ky)))))
accuracy	0.2734375	(pow.f64 (sin.f64 kx) #s(literal 2 binary64))
accuracy	2.317092876196292	(sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (*.f64 ky ky))))
accuracy	33.49587025020565	#s(approx (pow (sin ky) 2) (*.f64 ky ky))
accuracy	0	(sin.f64 th)
accuracy	42.97460894060188	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th))
accuracy	0.00390625	(sin.f64 kx)
accuracy	0.0234375	(hypot.f64 (sin.f64 ky) (sin.f64 kx))
accuracy	0.16796875	(*.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (sin.f64 kx))) (sin.f64 th))
accuracy	0.171875	(/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (sin.f64 kx)))

Samples

111.0ms	96×	2	valid
97.0ms	86×	1	valid
52.0ms	74×	0	valid

Compiler

Compiled 407 to 45 computations (88.9% saved)

Precisions

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

ival-sin: 43.0ms (23.2% of total)

ival-cos: 37.0ms (20% of total)

ival-mult: 23.0ms (12.4% of total)

adjust: 20.0ms (10.8% of total)

ival-div: 17.0ms (9.2% of total)

ival-add: 12.0ms (6.5% of total)

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

ival-hypot: 7.0ms (3.8% of total)

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

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

const: 4.0ms (2.2% of total)

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

exact: 1.0ms (0.5% of total)

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

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

series76.0ms (0.6%)

Memory

39.7MiB live, 117.0MiB allocated

Counts

24 → 540

Calls

Call 1

Inputs
#s(alt (.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (sin.f64 kx))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (sin.f64 kx))) (sin.f64 th)) #<representation binary64>) () ())
#s(alt (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (sin.f64 kx))) (patch (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (sin.f64 kx))) #<representation binary64>) () ())
#s(alt (sin.f64 ky) (patch (sin.f64 ky) #<representation binary64>) () ())
#s(alt (hypot.f64 (sin.f64 ky) (sin.f64 kx)) (patch (hypot.f64 (sin.f64 ky) (sin.f64 kx)) #<representation binary64>) () ())
#s(alt #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th)) (patch #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th)) #<representation binary64>) () ())
#s(alt (sin.f64 th) (patch (sin.f64 th) #<representation binary64>) () ())
#s(alt (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky))))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky))))) (sin.f64 th)) #<representation binary64>) () ())
#s(alt (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky))))) (patch (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky))))) #<representation binary64>) () ())
#s(alt (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky)))) (patch (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky)))) #<representation binary64>) () ())
#s(alt (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) (patch (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) #<representation binary64>) () ())
#s(alt (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) (patch (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) #<representation binary64>) () ())
#s(alt (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))) (patch (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))) #<representation binary64>) () ())
#s(alt (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) (sin.f64 th)) (patch (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) (sin.f64 th)) #<representation binary64>) () ())
#s(alt (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))) (patch (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))) #<representation binary64>) () ())
#s(alt (.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (sin.f64 th)) (patch (.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (sin.f64 th)) #<representation binary64>) () ())
#s(alt #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (patch #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) #<representation binary64>) () ())
#s(alt (.f64 ky (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx)))) (patch (.f64 ky (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx)))) #<representation binary64>) () ())
#s(alt (sin.f64 kx) (patch (sin.f64 kx) #<representation binary64>) () ())
#s(alt #s(approx (pow (sin ky) 2) (.f64 ky ky)) (patch #s(approx (pow (sin ky) 2) (.f64 ky ky)) #<representation binary64>) () ())
#s(alt (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (patch (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #<representation binary64>) () ())
#s(alt (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) (patch (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #<representation binary64>) () ())
#s(alt (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (patch (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) #<representation binary64>) () ())
#s(alt (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) (patch (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #<representation binary64>) () ())
#s(alt (/.f64 #s(literal -1/6 binary64) (sin.f64 kx)) (patch (/.f64 #s(literal -1/6 binary64) (sin.f64 kx)) #<representation binary64>) () ())

Outputs
#s(alt (/ (* ky (sin th)) (sin kx)) (taylor 0 ky) (#s(alt (.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (sin.f64 kx))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (sin.f64 kx))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* ky (+ (* (pow ky 2) (+ (* -1/2 (/ (sin th) (pow (sin kx) 3))) (* -1/6 (/ (sin th) (sin kx))))) (/ (sin th) (sin kx)))) (taylor 0 ky) (#s(alt (.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (sin.f64 kx))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (sin.f64 kx))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* ky (+ (* (pow ky 2) (+ (* -1/2 (/ (sin th) (pow (sin kx) 3))) (+ (* -1/6 (/ (sin th) (sin kx))) (* (pow ky 2) (+ (* 1/120 (/ (sin th) (sin kx))) (+ (* 1/12 (/ (sin th) (pow (sin kx) 3))) (* 1/2 (* (sin kx) (* (sin th) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6))))))))))))) (/ (sin th) (sin kx)))) (taylor 0 ky) (#s(alt (.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (sin.f64 kx))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (sin.f64 kx))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* ky (+ (* (pow ky 2) (+ (* -1/2 (/ (sin th) (pow (sin kx) 3))) (+ (* -1/6 (/ (sin th) (sin kx))) (* (pow ky 2) (+ (* 1/120 (/ (sin th) (sin kx))) (+ (* 1/12 (/ (sin th) (pow (sin kx) 3))) (+ (* 1/2 (* (sin kx) (* (sin th) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6))))))) (* (pow ky 2) (+ (* -1/2 (* (sin kx) (* (sin th) (+ (* -1/2 (/ (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6)))) (pow (sin kx) 2))) (+ (* 2/45 (/ 1 (pow (sin kx) 4))) (+ (* 2/3 (/ 1 (pow (sin kx) 6))) (/ 1 (pow (sin kx) 8)))))))) (+ (* -1/12 (* (sin kx) (* (sin th) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6))))))) (+ (* -1/240 (/ (sin th) (pow (sin kx) 3))) (* -1/5040 (/ (sin th) (sin kx)))))))))))))) (/ (sin th) (sin kx)))) (taylor 0 ky) (#s(alt (.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (sin.f64 kx))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (sin.f64 kx))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor inf ky) (#s(alt (.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (sin.f64 kx))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (sin.f64 kx))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor inf ky) (#s(alt (.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (sin.f64 kx))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (sin.f64 kx))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor inf ky) (#s(alt (.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (sin.f64 kx))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (sin.f64 kx))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor inf ky) (#s(alt (.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (sin.f64 kx))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (sin.f64 kx))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor -inf ky) (#s(alt (.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (sin.f64 kx))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (sin.f64 kx))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor -inf ky) (#s(alt (.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (sin.f64 kx))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (sin.f64 kx))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor -inf ky) (#s(alt (.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (sin.f64 kx))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (sin.f64 kx))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor -inf ky) (#s(alt (.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (sin.f64 kx))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (sin.f64 kx))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (sin th) (taylor 0 kx) (#s(alt (.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (sin.f64 kx))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (sin.f64 kx))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (+ (sin th) (* -1/2 (/ (* (pow kx 2) (sin th)) (pow (sin ky) 2)))) (taylor 0 kx) (#s(alt (.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (sin.f64 kx))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (sin.f64 kx))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (+ (sin th) (* (pow kx 2) (+ (* -1/2 (/ (sin th) (pow (sin ky) 2))) (* 1/2 (* (pow kx 2) (* (pow (sin ky) 2) (* (sin th) (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (* 3/4 (/ 1 (pow (sin ky) 6))))))))))) (taylor 0 kx) (#s(alt (.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (sin.f64 kx))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (sin.f64 kx))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (+ (sin th) (* (pow kx 2) (+ (* -1/2 (/ (sin th) (pow (sin ky) 2))) (* (pow kx 2) (+ (* -1/2 (* (pow kx 2) (* (pow (sin ky) 2) (* (sin th) (+ (* -1/2 (/ (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (* 3/4 (/ 1 (pow (sin ky) 6)))) (pow (sin ky) 2))) (+ (* 2/45 (/ 1 (pow (sin ky) 4))) (+ (* 2/3 (/ 1 (pow (sin ky) 6))) (/ 1 (pow (sin ky) 8))))))))) (* 1/2 (* (pow (sin ky) 2) (* (sin th) (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (* 3/4 (/ 1 (pow (sin ky) 6)))))))))))) (taylor 0 kx) (#s(alt (.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (sin.f64 kx))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (sin.f64 kx))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor inf kx) (#s(alt (.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (sin.f64 kx))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (sin.f64 kx))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor inf kx) (#s(alt (.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (sin.f64 kx))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (sin.f64 kx))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor inf kx) (#s(alt (.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (sin.f64 kx))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (sin.f64 kx))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor inf kx) (#s(alt (.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (sin.f64 kx))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (sin.f64 kx))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor -inf kx) (#s(alt (.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (sin.f64 kx))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (sin.f64 kx))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor -inf kx) (#s(alt (.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (sin.f64 kx))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (sin.f64 kx))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor -inf kx) (#s(alt (.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (sin.f64 kx))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (sin.f64 kx))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor -inf kx) (#s(alt (.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (sin.f64 kx))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (sin.f64 kx))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* th (sin ky)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor 0 th) (#s(alt (.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (sin.f64 kx))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (sin.f64 kx))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* th (+ (* -1/6 (* (* (pow th 2) (sin ky)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))) (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))))) (taylor 0 th) (#s(alt (.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (sin.f64 kx))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (sin.f64 kx))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* th (+ (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (* (pow th 2) (+ (* -1/6 (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))) (* 1/120 (* (* (pow th 2) (sin ky)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))))))) (taylor 0 th) (#s(alt (.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (sin.f64 kx))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (sin.f64 kx))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* th (+ (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (* (pow th 2) (+ (* -1/6 (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))) (* (pow th 2) (+ (* -1/5040 (* (* (pow th 2) (sin ky)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))) (* 1/120 (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))))))))) (taylor 0 th) (#s(alt (.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (sin.f64 kx))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (sin.f64 kx))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor inf th) (#s(alt (.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (sin.f64 kx))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (sin.f64 kx))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor inf th) (#s(alt (.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (sin.f64 kx))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (sin.f64 kx))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor inf th) (#s(alt (.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (sin.f64 kx))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (sin.f64 kx))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor inf th) (#s(alt (.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (sin.f64 kx))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (sin.f64 kx))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor -inf th) (#s(alt (.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (sin.f64 kx))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (sin.f64 kx))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor -inf th) (#s(alt (.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (sin.f64 kx))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (sin.f64 kx))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor -inf th) (#s(alt (.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (sin.f64 kx))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (sin.f64 kx))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor -inf th) (#s(alt (.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (sin.f64 kx))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (sin.f64 kx))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (/ ky (sin kx)) (taylor 0 ky) (#s(alt (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (sin.f64 kx))) (patch (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (sin.f64 kx))) #<representation binary64>) () ())) ())
#s(alt (* ky (+ (* -1 (* (pow ky 2) (+ (* 1/6 (/ 1 (sin kx))) (* 1/2 (/ 1 (pow (sin kx) 3)))))) (/ 1 (sin kx)))) (taylor 0 ky) (#s(alt (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (sin.f64 kx))) (patch (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (sin.f64 kx))) #<representation binary64>) () ())) ())
#s(alt (* ky (+ (* (pow ky 2) (- (* (pow ky 2) (+ (* 1/120 (/ 1 (sin kx))) (+ (* 1/2 (* (sin kx) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6)))))) (* 1/12 (/ 1 (pow (sin kx) 3)))))) (+ (* 1/6 (/ 1 (sin kx))) (* 1/2 (/ 1 (pow (sin kx) 3)))))) (/ 1 (sin kx)))) (taylor 0 ky) (#s(alt (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (sin.f64 kx))) (patch (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (sin.f64 kx))) #<representation binary64>) () ())) ())
#s(alt (* ky (+ (* (pow ky 2) (- (* (pow ky 2) (+ (* 1/120 (/ 1 (sin kx))) (+ (* 1/12 (/ 1 (pow (sin kx) 3))) (+ (* 1/2 (* (sin kx) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6)))))) (* (pow ky 2) (- (+ (* -1/2 (* (sin kx) (+ (* -1/2 (/ (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6)))) (pow (sin kx) 2))) (+ (* 2/45 (/ 1 (pow (sin kx) 4))) (+ (* 2/3 (/ 1 (pow (sin kx) 6))) (/ 1 (pow (sin kx) 8))))))) (* -1/12 (* (sin kx) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6))))))) (+ (* 1/5040 (/ 1 (sin kx))) (* 1/240 (/ 1 (pow (sin kx) 3)))))))))) (+ (* 1/6 (/ 1 (sin kx))) (* 1/2 (/ 1 (pow (sin kx) 3)))))) (/ 1 (sin kx)))) (taylor 0 ky) (#s(alt (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (sin.f64 kx))) (patch (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (sin.f64 kx))) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor inf ky) (#s(alt (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (sin.f64 kx))) (patch (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (sin.f64 kx))) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor inf ky) (#s(alt (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (sin.f64 kx))) (patch (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (sin.f64 kx))) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor inf ky) (#s(alt (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (sin.f64 kx))) (patch (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (sin.f64 kx))) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor inf ky) (#s(alt (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (sin.f64 kx))) (patch (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (sin.f64 kx))) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor -inf ky) (#s(alt (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (sin.f64 kx))) (patch (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (sin.f64 kx))) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor -inf ky) (#s(alt (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (sin.f64 kx))) (patch (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (sin.f64 kx))) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor -inf ky) (#s(alt (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (sin.f64 kx))) (patch (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (sin.f64 kx))) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor -inf ky) (#s(alt (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (sin.f64 kx))) (patch (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (sin.f64 kx))) #<representation binary64>) () ())) ())
#s(alt 1 (taylor 0 kx) (#s(alt (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (sin.f64 kx))) (patch (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (sin.f64 kx))) #<representation binary64>) () ())) ())
#s(alt (+ 1 (* -1/2 (/ (pow kx 2) (pow (sin ky) 2)))) (taylor 0 kx) (#s(alt (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (sin.f64 kx))) (patch (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (sin.f64 kx))) #<representation binary64>) () ())) ())
#s(alt (+ 1 (* (pow kx 2) (- (* 1/2 (* (pow kx 2) (* (pow (sin ky) 2) (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (* 3/4 (/ 1 (pow (sin ky) 6))))))) (* 1/2 (/ 1 (pow (sin ky) 2)))))) (taylor 0 kx) (#s(alt (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (sin.f64 kx))) (patch (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (sin.f64 kx))) #<representation binary64>) () ())) ())
#s(alt (+ 1 (* (pow kx 2) (- (* (pow kx 2) (+ (* -1/2 (* (pow kx 2) (* (pow (sin ky) 2) (+ (* -1/2 (/ (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (* 3/4 (/ 1 (pow (sin ky) 6)))) (pow (sin ky) 2))) (+ (* 2/45 (/ 1 (pow (sin ky) 4))) (+ (* 2/3 (/ 1 (pow (sin ky) 6))) (/ 1 (pow (sin ky) 8)))))))) (* 1/2 (* (pow (sin ky) 2) (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (* 3/4 (/ 1 (pow (sin ky) 6)))))))) (* 1/2 (/ 1 (pow (sin ky) 2)))))) (taylor 0 kx) (#s(alt (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (sin.f64 kx))) (patch (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (sin.f64 kx))) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor inf kx) (#s(alt (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (sin.f64 kx))) (patch (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (sin.f64 kx))) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor inf kx) (#s(alt (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (sin.f64 kx))) (patch (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (sin.f64 kx))) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor inf kx) (#s(alt (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (sin.f64 kx))) (patch (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (sin.f64 kx))) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor inf kx) (#s(alt (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (sin.f64 kx))) (patch (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (sin.f64 kx))) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor -inf kx) (#s(alt (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (sin.f64 kx))) (patch (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (sin.f64 kx))) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor -inf kx) (#s(alt (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (sin.f64 kx))) (patch (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (sin.f64 kx))) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor -inf kx) (#s(alt (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (sin.f64 kx))) (patch (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (sin.f64 kx))) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor -inf kx) (#s(alt (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (sin.f64 kx))) (patch (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (sin.f64 kx))) #<representation binary64>) () ())) ())
#s(alt ky (taylor 0 ky) (#s(alt (sin.f64 ky) (patch (sin.f64 ky) #<representation binary64>) () ())) ())
#s(alt (* ky (+ 1 (* -1/6 (pow ky 2)))) (taylor 0 ky) (#s(alt (sin.f64 ky) (patch (sin.f64 ky) #<representation binary64>) () ())) ())
#s(alt (* ky (+ 1 (* (pow ky 2) (- (* 1/120 (pow ky 2)) 1/6)))) (taylor 0 ky) (#s(alt (sin.f64 ky) (patch (sin.f64 ky) #<representation binary64>) () ())) ())
#s(alt (* ky (+ 1 (* (pow ky 2) (- (* (pow ky 2) (+ 1/120 (* -1/5040 (pow ky 2)))) 1/6)))) (taylor 0 ky) (#s(alt (sin.f64 ky) (patch (sin.f64 ky) #<representation binary64>) () ())) ())
#s(alt (sin ky) (taylor inf ky) (#s(alt (sin.f64 ky) (patch (sin.f64 ky) #<representation binary64>) () ())) ())
#s(alt (sin ky) (taylor inf ky) (#s(alt (sin.f64 ky) (patch (sin.f64 ky) #<representation binary64>) () ())) ())
#s(alt (sin ky) (taylor inf ky) (#s(alt (sin.f64 ky) (patch (sin.f64 ky) #<representation binary64>) () ())) ())
#s(alt (sin ky) (taylor inf ky) (#s(alt (sin.f64 ky) (patch (sin.f64 ky) #<representation binary64>) () ())) ())
#s(alt (sin ky) (taylor -inf ky) (#s(alt (sin.f64 ky) (patch (sin.f64 ky) #<representation binary64>) () ())) ())
#s(alt (sin ky) (taylor -inf ky) (#s(alt (sin.f64 ky) (patch (sin.f64 ky) #<representation binary64>) () ())) ())
#s(alt (sin ky) (taylor -inf ky) (#s(alt (sin.f64 ky) (patch (sin.f64 ky) #<representation binary64>) () ())) ())
#s(alt (sin ky) (taylor -inf ky) (#s(alt (sin.f64 ky) (patch (sin.f64 ky) #<representation binary64>) () ())) ())
#s(alt (sin kx) (taylor 0 ky) (#s(alt (hypot.f64 (sin.f64 ky) (sin.f64 kx)) (patch (hypot.f64 (sin.f64 ky) (sin.f64 kx)) #<representation binary64>) () ())) ())
#s(alt (+ (sin kx) (* 1/2 (/ (pow ky 2) (sin kx)))) (taylor 0 ky) (#s(alt (hypot.f64 (sin.f64 ky) (sin.f64 kx)) (patch (hypot.f64 (sin.f64 ky) (sin.f64 kx)) #<representation binary64>) () ())) ())
#s(alt (+ (sin kx) (* (pow ky 2) (+ (* -1/2 (/ (* (pow ky 2) (+ 1/3 (* 1/4 (/ 1 (pow (sin kx) 2))))) (sin kx))) (* 1/2 (/ 1 (sin kx)))))) (taylor 0 ky) (#s(alt (hypot.f64 (sin.f64 ky) (sin.f64 kx)) (patch (hypot.f64 (sin.f64 ky) (sin.f64 kx)) #<representation binary64>) () ())) ())
#s(alt (+ (sin kx) (* (pow ky 2) (+ (* (pow ky 2) (+ (* -1/2 (/ (+ 1/3 (* 1/4 (/ 1 (pow (sin kx) 2)))) (sin kx))) (* 1/2 (/ (* (pow ky 2) (- 2/45 (* -1/2 (/ (+ 1/3 (* 1/4 (/ 1 (pow (sin kx) 2)))) (pow (sin kx) 2))))) (sin kx))))) (* 1/2 (/ 1 (sin kx)))))) (taylor 0 ky) (#s(alt (hypot.f64 (sin.f64 ky) (sin.f64 kx)) (patch (hypot.f64 (sin.f64 ky) (sin.f64 kx)) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (taylor inf ky) (#s(alt (hypot.f64 (sin.f64 ky) (sin.f64 kx)) (patch (hypot.f64 (sin.f64 ky) (sin.f64 kx)) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (taylor inf ky) (#s(alt (hypot.f64 (sin.f64 ky) (sin.f64 kx)) (patch (hypot.f64 (sin.f64 ky) (sin.f64 kx)) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (taylor inf ky) (#s(alt (hypot.f64 (sin.f64 ky) (sin.f64 kx)) (patch (hypot.f64 (sin.f64 ky) (sin.f64 kx)) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (taylor inf ky) (#s(alt (hypot.f64 (sin.f64 ky) (sin.f64 kx)) (patch (hypot.f64 (sin.f64 ky) (sin.f64 kx)) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (taylor -inf ky) (#s(alt (hypot.f64 (sin.f64 ky) (sin.f64 kx)) (patch (hypot.f64 (sin.f64 ky) (sin.f64 kx)) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (taylor -inf ky) (#s(alt (hypot.f64 (sin.f64 ky) (sin.f64 kx)) (patch (hypot.f64 (sin.f64 ky) (sin.f64 kx)) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (taylor -inf ky) (#s(alt (hypot.f64 (sin.f64 ky) (sin.f64 kx)) (patch (hypot.f64 (sin.f64 ky) (sin.f64 kx)) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (taylor -inf ky) (#s(alt (hypot.f64 (sin.f64 ky) (sin.f64 kx)) (patch (hypot.f64 (sin.f64 ky) (sin.f64 kx)) #<representation binary64>) () ())) ())
#s(alt (sin ky) (taylor 0 kx) (#s(alt (hypot.f64 (sin.f64 ky) (sin.f64 kx)) (patch (hypot.f64 (sin.f64 ky) (sin.f64 kx)) #<representation binary64>) () ())) ())
#s(alt (+ (sin ky) (* 1/2 (/ (pow kx 2) (sin ky)))) (taylor 0 kx) (#s(alt (hypot.f64 (sin.f64 ky) (sin.f64 kx)) (patch (hypot.f64 (sin.f64 ky) (sin.f64 kx)) #<representation binary64>) () ())) ())
#s(alt (+ (sin ky) (* (pow kx 2) (+ (* -1/2 (/ (* (pow kx 2) (+ 1/3 (* 1/4 (/ 1 (pow (sin ky) 2))))) (sin ky))) (* 1/2 (/ 1 (sin ky)))))) (taylor 0 kx) (#s(alt (hypot.f64 (sin.f64 ky) (sin.f64 kx)) (patch (hypot.f64 (sin.f64 ky) (sin.f64 kx)) #<representation binary64>) () ())) ())
#s(alt (+ (sin ky) (* (pow kx 2) (+ (* (pow kx 2) (+ (* -1/2 (/ (+ 1/3 (* 1/4 (/ 1 (pow (sin ky) 2)))) (sin ky))) (* 1/2 (/ (* (pow kx 2) (- 2/45 (* -1/2 (/ (+ 1/3 (* 1/4 (/ 1 (pow (sin ky) 2)))) (pow (sin ky) 2))))) (sin ky))))) (* 1/2 (/ 1 (sin ky)))))) (taylor 0 kx) (#s(alt (hypot.f64 (sin.f64 ky) (sin.f64 kx)) (patch (hypot.f64 (sin.f64 ky) (sin.f64 kx)) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (taylor inf kx) (#s(alt (hypot.f64 (sin.f64 ky) (sin.f64 kx)) (patch (hypot.f64 (sin.f64 ky) (sin.f64 kx)) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (taylor inf kx) (#s(alt (hypot.f64 (sin.f64 ky) (sin.f64 kx)) (patch (hypot.f64 (sin.f64 ky) (sin.f64 kx)) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (taylor inf kx) (#s(alt (hypot.f64 (sin.f64 ky) (sin.f64 kx)) (patch (hypot.f64 (sin.f64 ky) (sin.f64 kx)) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (taylor inf kx) (#s(alt (hypot.f64 (sin.f64 ky) (sin.f64 kx)) (patch (hypot.f64 (sin.f64 ky) (sin.f64 kx)) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (taylor -inf kx) (#s(alt (hypot.f64 (sin.f64 ky) (sin.f64 kx)) (patch (hypot.f64 (sin.f64 ky) (sin.f64 kx)) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (taylor -inf kx) (#s(alt (hypot.f64 (sin.f64 ky) (sin.f64 kx)) (patch (hypot.f64 (sin.f64 ky) (sin.f64 kx)) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (taylor -inf kx) (#s(alt (hypot.f64 (sin.f64 ky) (sin.f64 kx)) (patch (hypot.f64 (sin.f64 ky) (sin.f64 kx)) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (taylor -inf kx) (#s(alt (hypot.f64 (sin.f64 ky) (sin.f64 kx)) (patch (hypot.f64 (sin.f64 ky) (sin.f64 kx)) #<representation binary64>) () ())) ())
#s(alt (/ (* ky (sin th)) (sin kx)) (taylor 0 ky) (#s(alt #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th)) (patch #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* ky (+ (* (pow ky 2) (+ (* -1/2 (/ (sin th) (pow (sin kx) 3))) (* -1/6 (/ (sin th) (sin kx))))) (/ (sin th) (sin kx)))) (taylor 0 ky) (#s(alt #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th)) (patch #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* ky (+ (* (pow ky 2) (+ (* -1/2 (/ (sin th) (pow (sin kx) 3))) (+ (* -1/6 (/ (sin th) (sin kx))) (* (pow ky 2) (+ (* 1/120 (/ (sin th) (sin kx))) (+ (* 1/12 (/ (sin th) (pow (sin kx) 3))) (* 1/2 (* (sin kx) (* (sin th) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6))))))))))))) (/ (sin th) (sin kx)))) (taylor 0 ky) (#s(alt #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th)) (patch #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* ky (+ (* (pow ky 2) (+ (* -1/2 (/ (sin th) (pow (sin kx) 3))) (+ (* -1/6 (/ (sin th) (sin kx))) (* (pow ky 2) (+ (* 1/120 (/ (sin th) (sin kx))) (+ (* 1/12 (/ (sin th) (pow (sin kx) 3))) (+ (* 1/2 (* (sin kx) (* (sin th) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6))))))) (* (pow ky 2) (+ (* -1/2 (* (sin kx) (* (sin th) (+ (* -1/2 (/ (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6)))) (pow (sin kx) 2))) (+ (* 2/45 (/ 1 (pow (sin kx) 4))) (+ (* 2/3 (/ 1 (pow (sin kx) 6))) (/ 1 (pow (sin kx) 8)))))))) (+ (* -1/12 (* (sin kx) (* (sin th) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6))))))) (+ (* -1/240 (/ (sin th) (pow (sin kx) 3))) (* -1/5040 (/ (sin th) (sin kx)))))))))))))) (/ (sin th) (sin kx)))) (taylor 0 ky) (#s(alt #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th)) (patch #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor inf ky) (#s(alt #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th)) (patch #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor inf ky) (#s(alt #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th)) (patch #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor inf ky) (#s(alt #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th)) (patch #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor inf ky) (#s(alt #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th)) (patch #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor -inf ky) (#s(alt #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th)) (patch #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor -inf ky) (#s(alt #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th)) (patch #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor -inf ky) (#s(alt #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th)) (patch #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor -inf ky) (#s(alt #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th)) (patch #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (sin th) (taylor 0 kx) (#s(alt #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th)) (patch #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (+ (sin th) (* -1/2 (/ (* (pow kx 2) (sin th)) (pow (sin ky) 2)))) (taylor 0 kx) (#s(alt #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th)) (patch #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (+ (sin th) (* (pow kx 2) (+ (* -1/2 (/ (sin th) (pow (sin ky) 2))) (* 1/2 (* (pow kx 2) (* (pow (sin ky) 2) (* (sin th) (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (* 3/4 (/ 1 (pow (sin ky) 6))))))))))) (taylor 0 kx) (#s(alt #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th)) (patch #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (+ (sin th) (* (pow kx 2) (+ (* -1/2 (/ (sin th) (pow (sin ky) 2))) (* (pow kx 2) (+ (* -1/2 (* (pow kx 2) (* (pow (sin ky) 2) (* (sin th) (+ (* -1/2 (/ (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (* 3/4 (/ 1 (pow (sin ky) 6)))) (pow (sin ky) 2))) (+ (* 2/45 (/ 1 (pow (sin ky) 4))) (+ (* 2/3 (/ 1 (pow (sin ky) 6))) (/ 1 (pow (sin ky) 8))))))))) (* 1/2 (* (pow (sin ky) 2) (* (sin th) (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (* 3/4 (/ 1 (pow (sin ky) 6)))))))))))) (taylor 0 kx) (#s(alt #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th)) (patch #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor inf kx) (#s(alt #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th)) (patch #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor inf kx) (#s(alt #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th)) (patch #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor inf kx) (#s(alt #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th)) (patch #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor inf kx) (#s(alt #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th)) (patch #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor -inf kx) (#s(alt #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th)) (patch #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor -inf kx) (#s(alt #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th)) (patch #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor -inf kx) (#s(alt #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th)) (patch #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor -inf kx) (#s(alt #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th)) (patch #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* th (sin ky)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor 0 th) (#s(alt #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th)) (patch #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* th (+ (* -1/6 (* (* (pow th 2) (sin ky)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))) (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))))) (taylor 0 th) (#s(alt #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th)) (patch #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* th (+ (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (* (pow th 2) (+ (* -1/6 (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))) (* 1/120 (* (* (pow th 2) (sin ky)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))))))) (taylor 0 th) (#s(alt #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th)) (patch #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* th (+ (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (* (pow th 2) (+ (* -1/6 (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))) (* (pow th 2) (+ (* -1/5040 (* (* (pow th 2) (sin ky)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))) (* 1/120 (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))))))))) (taylor 0 th) (#s(alt #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th)) (patch #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor inf th) (#s(alt #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th)) (patch #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor inf th) (#s(alt #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th)) (patch #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor inf th) (#s(alt #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th)) (patch #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor inf th) (#s(alt #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th)) (patch #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor -inf th) (#s(alt #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th)) (patch #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor -inf th) (#s(alt #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th)) (patch #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor -inf th) (#s(alt #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th)) (patch #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor -inf th) (#s(alt #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th)) (patch #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt th (taylor 0 th) (#s(alt (sin.f64 th) (patch (sin.f64 th) #<representation binary64>) () ())) ())
#s(alt (* th (+ 1 (* -1/6 (pow th 2)))) (taylor 0 th) (#s(alt (sin.f64 th) (patch (sin.f64 th) #<representation binary64>) () ())) ())
#s(alt (* th (+ 1 (* (pow th 2) (- (* 1/120 (pow th 2)) 1/6)))) (taylor 0 th) (#s(alt (sin.f64 th) (patch (sin.f64 th) #<representation binary64>) () ())) ())
#s(alt (* th (+ 1 (* (pow th 2) (- (* (pow th 2) (+ 1/120 (* -1/5040 (pow th 2)))) 1/6)))) (taylor 0 th) (#s(alt (sin.f64 th) (patch (sin.f64 th) #<representation binary64>) () ())) ())
#s(alt (sin th) (taylor inf th) (#s(alt (sin.f64 th) (patch (sin.f64 th) #<representation binary64>) () ())) ())
#s(alt (sin th) (taylor inf th) (#s(alt (sin.f64 th) (patch (sin.f64 th) #<representation binary64>) () ())) ())
#s(alt (sin th) (taylor inf th) (#s(alt (sin.f64 th) (patch (sin.f64 th) #<representation binary64>) () ())) ())
#s(alt (sin th) (taylor inf th) (#s(alt (sin.f64 th) (patch (sin.f64 th) #<representation binary64>) () ())) ())
#s(alt (sin th) (taylor -inf th) (#s(alt (sin.f64 th) (patch (sin.f64 th) #<representation binary64>) () ())) ())
#s(alt (sin th) (taylor -inf th) (#s(alt (sin.f64 th) (patch (sin.f64 th) #<representation binary64>) () ())) ())
#s(alt (sin th) (taylor -inf th) (#s(alt (sin.f64 th) (patch (sin.f64 th) #<representation binary64>) () ())) ())
#s(alt (sin th) (taylor -inf th) (#s(alt (sin.f64 th) (patch (sin.f64 th) #<representation binary64>) () ())) ())
#s(alt (/ (* ky (sin th)) (sin kx)) (taylor 0 ky) (#s(alt (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky))))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* ky (+ (* (pow ky 2) (+ (* -1/2 (/ (sin th) (pow (sin kx) 3))) (* -1/6 (/ (sin th) (sin kx))))) (/ (sin th) (sin kx)))) (taylor 0 ky) (#s(alt (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky))))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* ky (+ (* (pow ky 2) (+ (* -1/2 (/ (sin th) (pow (sin kx) 3))) (+ (* -1/6 (/ (sin th) (sin kx))) (* (pow ky 2) (+ (* 1/120 (/ (sin th) (sin kx))) (+ (* 1/12 (/ (sin th) (pow (sin kx) 3))) (* 1/2 (* (sin kx) (* (sin th) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6))))))))))))) (/ (sin th) (sin kx)))) (taylor 0 ky) (#s(alt (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky))))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* ky (+ (* (pow ky 2) (+ (* -1/2 (/ (sin th) (pow (sin kx) 3))) (+ (* -1/6 (/ (sin th) (sin kx))) (* (pow ky 2) (+ (* 1/120 (/ (sin th) (sin kx))) (+ (* 1/12 (/ (sin th) (pow (sin kx) 3))) (+ (* 1/2 (* (sin kx) (* (sin th) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6))))))) (* (pow ky 2) (+ (* -1/2 (* (sin kx) (* (sin th) (+ (* -1/2 (/ (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6)))) (pow (sin kx) 2))) (+ (* 2/45 (/ 1 (pow (sin kx) 4))) (+ (* 2/3 (/ 1 (pow (sin kx) 6))) (/ 1 (pow (sin kx) 8)))))))) (+ (* -1/12 (* (sin kx) (* (sin th) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6))))))) (+ (* -1/240 (/ (sin th) (pow (sin kx) 3))) (* -1/5040 (/ (sin th) (sin kx)))))))))))))) (/ (sin th) (sin kx)))) (taylor 0 ky) (#s(alt (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky))))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor inf ky) (#s(alt (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky))))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor inf ky) (#s(alt (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky))))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor inf ky) (#s(alt (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky))))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor inf ky) (#s(alt (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky))))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor -inf ky) (#s(alt (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky))))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor -inf ky) (#s(alt (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky))))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor -inf ky) (#s(alt (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky))))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor -inf ky) (#s(alt (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky))))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (sin th) (taylor 0 kx) (#s(alt (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky))))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (+ (sin th) (* -1/2 (/ (* (pow kx 2) (sin th)) (pow (sin ky) 2)))) (taylor 0 kx) (#s(alt (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky))))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (+ (sin th) (* (pow kx 2) (+ (* -1/2 (/ (sin th) (pow (sin ky) 2))) (* 1/2 (* (pow kx 2) (* (pow (sin ky) 2) (* (sin th) (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (* 3/4 (/ 1 (pow (sin ky) 6))))))))))) (taylor 0 kx) (#s(alt (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky))))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (+ (sin th) (* (pow kx 2) (+ (* -1/2 (/ (sin th) (pow (sin ky) 2))) (* (pow kx 2) (+ (* -1/2 (* (pow kx 2) (* (pow (sin ky) 2) (* (sin th) (+ (* -1/2 (/ (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (* 3/4 (/ 1 (pow (sin ky) 6)))) (pow (sin ky) 2))) (+ (* 2/45 (/ 1 (pow (sin ky) 4))) (+ (* 2/3 (/ 1 (pow (sin ky) 6))) (/ 1 (pow (sin ky) 8))))))))) (* 1/2 (* (pow (sin ky) 2) (* (sin th) (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (* 3/4 (/ 1 (pow (sin ky) 6)))))))))))) (taylor 0 kx) (#s(alt (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky))))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor inf kx) (#s(alt (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky))))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor inf kx) (#s(alt (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky))))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor inf kx) (#s(alt (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky))))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor inf kx) (#s(alt (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky))))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor -inf kx) (#s(alt (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky))))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor -inf kx) (#s(alt (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky))))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor -inf kx) (#s(alt (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky))))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor -inf kx) (#s(alt (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky))))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* th (sin ky)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor 0 th) (#s(alt (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky))))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* th (+ (* -1/6 (* (* (pow th 2) (sin ky)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))) (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))))) (taylor 0 th) (#s(alt (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky))))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* th (+ (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (* (pow th 2) (+ (* -1/6 (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))) (* 1/120 (* (* (pow th 2) (sin ky)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))))))) (taylor 0 th) (#s(alt (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky))))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* th (+ (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (* (pow th 2) (+ (* -1/6 (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))) (* (pow th 2) (+ (* -1/5040 (* (* (pow th 2) (sin ky)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))) (* 1/120 (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))))))))) (taylor 0 th) (#s(alt (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky))))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor inf th) (#s(alt (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky))))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor inf th) (#s(alt (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky))))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor inf th) (#s(alt (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky))))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor inf th) (#s(alt (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky))))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor -inf th) (#s(alt (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky))))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor -inf th) (#s(alt (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky))))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor -inf th) (#s(alt (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky))))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor -inf th) (#s(alt (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky))))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (/ ky (sin kx)) (taylor 0 ky) (#s(alt (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky))))) (patch (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky))))) #<representation binary64>) () ())) ())
#s(alt (* ky (+ (* -1 (* (pow ky 2) (+ (* 1/6 (/ 1 (sin kx))) (* 1/2 (/ 1 (pow (sin kx) 3)))))) (/ 1 (sin kx)))) (taylor 0 ky) (#s(alt (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky))))) (patch (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky))))) #<representation binary64>) () ())) ())
#s(alt (* ky (+ (* (pow ky 2) (- (* (pow ky 2) (+ (* 1/120 (/ 1 (sin kx))) (+ (* 1/2 (* (sin kx) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6)))))) (* 1/12 (/ 1 (pow (sin kx) 3)))))) (+ (* 1/6 (/ 1 (sin kx))) (* 1/2 (/ 1 (pow (sin kx) 3)))))) (/ 1 (sin kx)))) (taylor 0 ky) (#s(alt (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky))))) (patch (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky))))) #<representation binary64>) () ())) ())
#s(alt (* ky (+ (* (pow ky 2) (- (* (pow ky 2) (+ (* 1/120 (/ 1 (sin kx))) (+ (* 1/12 (/ 1 (pow (sin kx) 3))) (+ (* 1/2 (* (sin kx) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6)))))) (* (pow ky 2) (- (+ (* -1/2 (* (sin kx) (+ (* -1/2 (/ (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6)))) (pow (sin kx) 2))) (+ (* 2/45 (/ 1 (pow (sin kx) 4))) (+ (* 2/3 (/ 1 (pow (sin kx) 6))) (/ 1 (pow (sin kx) 8))))))) (* -1/12 (* (sin kx) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6))))))) (+ (* 1/5040 (/ 1 (sin kx))) (* 1/240 (/ 1 (pow (sin kx) 3)))))))))) (+ (* 1/6 (/ 1 (sin kx))) (* 1/2 (/ 1 (pow (sin kx) 3)))))) (/ 1 (sin kx)))) (taylor 0 ky) (#s(alt (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky))))) (patch (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky))))) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor inf ky) (#s(alt (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky))))) (patch (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky))))) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor inf ky) (#s(alt (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky))))) (patch (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky))))) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor inf ky) (#s(alt (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky))))) (patch (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky))))) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor inf ky) (#s(alt (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky))))) (patch (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky))))) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor -inf ky) (#s(alt (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky))))) (patch (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky))))) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor -inf ky) (#s(alt (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky))))) (patch (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky))))) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor -inf ky) (#s(alt (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky))))) (patch (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky))))) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor -inf ky) (#s(alt (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky))))) (patch (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky))))) #<representation binary64>) () ())) ())
#s(alt 1 (taylor 0 kx) (#s(alt (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky))))) (patch (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky))))) #<representation binary64>) () ())) ())
#s(alt (+ 1 (* -1/2 (/ (pow kx 2) (pow (sin ky) 2)))) (taylor 0 kx) (#s(alt (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky))))) (patch (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky))))) #<representation binary64>) () ())) ())
#s(alt (+ 1 (* (pow kx 2) (- (* 1/2 (* (pow kx 2) (* (pow (sin ky) 2) (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (* 3/4 (/ 1 (pow (sin ky) 6))))))) (* 1/2 (/ 1 (pow (sin ky) 2)))))) (taylor 0 kx) (#s(alt (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky))))) (patch (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky))))) #<representation binary64>) () ())) ())
#s(alt (+ 1 (* (pow kx 2) (- (* (pow kx 2) (+ (* -1/2 (* (pow kx 2) (* (pow (sin ky) 2) (+ (* -1/2 (/ (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (* 3/4 (/ 1 (pow (sin ky) 6)))) (pow (sin ky) 2))) (+ (* 2/45 (/ 1 (pow (sin ky) 4))) (+ (* 2/3 (/ 1 (pow (sin ky) 6))) (/ 1 (pow (sin ky) 8)))))))) (* 1/2 (* (pow (sin ky) 2) (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (* 3/4 (/ 1 (pow (sin ky) 6)))))))) (* 1/2 (/ 1 (pow (sin ky) 2)))))) (taylor 0 kx) (#s(alt (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky))))) (patch (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky))))) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor inf kx) (#s(alt (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky))))) (patch (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky))))) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor inf kx) (#s(alt (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky))))) (patch (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky))))) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor inf kx) (#s(alt (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky))))) (patch (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky))))) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor inf kx) (#s(alt (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky))))) (patch (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky))))) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor -inf kx) (#s(alt (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky))))) (patch (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky))))) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor -inf kx) (#s(alt (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky))))) (patch (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky))))) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor -inf kx) (#s(alt (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky))))) (patch (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky))))) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor -inf kx) (#s(alt (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky))))) (patch (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky))))) #<representation binary64>) () ())) ())
#s(alt (sin ky) (taylor 0 kx) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky)))) (patch (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky)))) #<representation binary64>) () ())) ())
#s(alt (+ (sin ky) (* 1/2 (/ (pow kx 2) (sin ky)))) (taylor 0 kx) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky)))) (patch (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky)))) #<representation binary64>) () ())) ())
#s(alt (+ (sin ky) (* (pow kx 2) (+ (* -1/2 (/ (* (pow kx 2) (+ 1/3 (* 1/4 (/ 1 (pow (sin ky) 2))))) (sin ky))) (* 1/2 (/ 1 (sin ky)))))) (taylor 0 kx) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky)))) (patch (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky)))) #<representation binary64>) () ())) ())
#s(alt (+ (sin ky) (* (pow kx 2) (+ (* (pow kx 2) (+ (* -1/2 (/ (+ 1/3 (* 1/4 (/ 1 (pow (sin ky) 2)))) (sin ky))) (* 1/2 (/ (* (pow kx 2) (- 2/45 (* -1/2 (/ (+ 1/3 (* 1/4 (/ 1 (pow (sin ky) 2)))) (pow (sin ky) 2))))) (sin ky))))) (* 1/2 (/ 1 (sin ky)))))) (taylor 0 kx) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky)))) (patch (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky)))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (taylor inf kx) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky)))) (patch (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky)))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (taylor inf kx) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky)))) (patch (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky)))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (taylor inf kx) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky)))) (patch (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky)))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (taylor inf kx) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky)))) (patch (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky)))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (taylor -inf kx) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky)))) (patch (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky)))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (taylor -inf kx) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky)))) (patch (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky)))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (taylor -inf kx) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky)))) (patch (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky)))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (taylor -inf kx) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky)))) (patch (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky)))) #<representation binary64>) () ())) ())
#s(alt (sin kx) (taylor 0 ky) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky)))) (patch (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky)))) #<representation binary64>) () ())) ())
#s(alt (+ (sin kx) (* 1/2 (/ (pow ky 2) (sin kx)))) (taylor 0 ky) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky)))) (patch (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky)))) #<representation binary64>) () ())) ())
#s(alt (+ (sin kx) (* (pow ky 2) (+ (* -1/2 (/ (* (pow ky 2) (+ 1/3 (* 1/4 (/ 1 (pow (sin kx) 2))))) (sin kx))) (* 1/2 (/ 1 (sin kx)))))) (taylor 0 ky) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky)))) (patch (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky)))) #<representation binary64>) () ())) ())
#s(alt (+ (sin kx) (* (pow ky 2) (+ (* (pow ky 2) (+ (* -1/2 (/ (+ 1/3 (* 1/4 (/ 1 (pow (sin kx) 2)))) (sin kx))) (* 1/2 (/ (* (pow ky 2) (- 2/45 (* -1/2 (/ (+ 1/3 (* 1/4 (/ 1 (pow (sin kx) 2)))) (pow (sin kx) 2))))) (sin kx))))) (* 1/2 (/ 1 (sin kx)))))) (taylor 0 ky) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky)))) (patch (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky)))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (taylor inf ky) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky)))) (patch (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky)))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (taylor inf ky) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky)))) (patch (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky)))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (taylor inf ky) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky)))) (patch (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky)))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (taylor inf ky) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky)))) (patch (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky)))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (taylor -inf ky) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky)))) (patch (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky)))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (taylor -inf ky) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky)))) (patch (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky)))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (taylor -inf ky) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky)))) (patch (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky)))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (taylor -inf ky) (#s(alt (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky)))) (patch (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky)))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (* -1/2 (cos (* 2 ky)))) (taylor 0 kx) (#s(alt (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) (patch (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (pow kx 2))) (taylor 0 kx) (#s(alt (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) (patch (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* (pow kx 2) (+ 1 (* -1/3 (pow kx 2)))))) (taylor 0 kx) (#s(alt (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) (patch (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* (pow kx 2) (+ 1 (* (pow kx 2) (- (* 2/45 (pow kx 2)) 1/3)))))) (taylor 0 kx) (#s(alt (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) (patch (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))) (taylor inf kx) (#s(alt (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) (patch (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))) (taylor inf kx) (#s(alt (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) (patch (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))) (taylor inf kx) (#s(alt (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) (patch (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))) (taylor inf kx) (#s(alt (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) (patch (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx))))))) (taylor -inf kx) (#s(alt (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) (patch (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx))))))) (taylor -inf kx) (#s(alt (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) (patch (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx))))))) (taylor -inf kx) (#s(alt (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) (patch (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx))))))) (taylor -inf kx) (#s(alt (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) (patch (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (- 1 (cos (* 2 kx)))) (taylor 0 ky) (#s(alt (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) (patch (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 (- 1 (cos (* 2 kx)))) (pow ky 2)) (taylor 0 ky) (#s(alt (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) (patch (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 (- 1 (cos (* 2 kx)))) (* (pow ky 2) (+ 1 (* -1/3 (pow ky 2))))) (taylor 0 ky) (#s(alt (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) (patch (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 (- 1 (cos (* 2 kx)))) (* (pow ky 2) (+ 1 (* (pow ky 2) (- (* 2/45 (pow ky 2)) 1/3))))) (taylor 0 ky) (#s(alt (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) (patch (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))) (taylor inf ky) (#s(alt (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) (patch (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))) (taylor inf ky) (#s(alt (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) (patch (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))) (taylor inf ky) (#s(alt (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) (patch (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))) (taylor inf ky) (#s(alt (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) (patch (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx)))))) (taylor -inf ky) (#s(alt (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) (patch (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx)))))) (taylor -inf ky) (#s(alt (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) (patch (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx)))))) (taylor -inf ky) (#s(alt (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) (patch (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx)))))) (taylor -inf ky) (#s(alt (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) (patch (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) #<representation binary64>) () ())) ())
#s(alt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky))))) (taylor 0 kx) (#s(alt (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) (patch (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (/ (pow kx 2) (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2))) (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky)))))) (taylor 0 kx) (#s(alt (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) (patch (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (pow kx 2) (- (* (pow kx 2) (+ (* 1/3 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2))) (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3)))) (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2)))) (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky)))))) (taylor 0 kx) (#s(alt (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) (patch (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (pow kx 2) (- (* (pow kx 2) (+ (* -1 (* (pow kx 2) (+ (* 2/45 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2))) (+ (* 2/3 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))) (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 4)))))) (+ (* 1/3 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2))) (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))))) (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2)))) (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky)))))) (taylor 0 kx) (#s(alt (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) (patch (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) #<representation binary64>) () ())) ())
#s(alt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))) (taylor inf kx) (#s(alt (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) (patch (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) #<representation binary64>) () ())) ())
#s(alt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))) (taylor inf kx) (#s(alt (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) (patch (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) #<representation binary64>) () ())) ())
#s(alt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))) (taylor inf kx) (#s(alt (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) (patch (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) #<representation binary64>) () ())) ())
#s(alt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))) (taylor inf kx) (#s(alt (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) (patch (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) #<representation binary64>) () ())) ())
#s(alt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx)))))))) (taylor -inf kx) (#s(alt (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) (patch (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) #<representation binary64>) () ())) ())
#s(alt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx)))))))) (taylor -inf kx) (#s(alt (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) (patch (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) #<representation binary64>) () ())) ())
#s(alt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx)))))))) (taylor -inf kx) (#s(alt (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) (patch (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) #<representation binary64>) () ())) ())
#s(alt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx)))))))) (taylor -inf kx) (#s(alt (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) (patch (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) #<representation binary64>) () ())) ())
#s(alt (/ 2 (- 1 (cos (* 2 kx)))) (taylor 0 ky) (#s(alt (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) (patch (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) #<representation binary64>) () ())) ())
#s(alt (+ (* -4 (/ (pow ky 2) (pow (- 1 (cos (* 2 kx))) 2))) (* 2 (/ 1 (- 1 (cos (* 2 kx)))))) (taylor 0 ky) (#s(alt (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) (patch (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (pow ky 2) (- (* (pow ky 2) (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (* 4 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))))) (* 2 (/ 1 (- 1 (cos (* 2 kx)))))) (taylor 0 ky) (#s(alt (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) (patch (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (pow ky 2) (- (* (pow ky 2) (+ (* -1 (* (pow ky 2) (+ (* 8/45 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (+ (* 2 (/ (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (- 1 (cos (* 2 kx))))) (* 8/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))))) (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))))) (* 4 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))))) (* 2 (/ 1 (- 1 (cos (* 2 kx)))))) (taylor 0 ky) (#s(alt (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) (patch (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) #<representation binary64>) () ())) ())
#s(alt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))) (taylor inf ky) (#s(alt (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) (patch (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) #<representation binary64>) () ())) ())
#s(alt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))) (taylor inf ky) (#s(alt (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) (patch (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) #<representation binary64>) () ())) ())
#s(alt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))) (taylor inf ky) (#s(alt (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) (patch (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) #<representation binary64>) () ())) ())
#s(alt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))) (taylor inf ky) (#s(alt (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) (patch (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) #<representation binary64>) () ())) ())
#s(alt (/ 1 (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx))))))) (taylor -inf ky) (#s(alt (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) (patch (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) #<representation binary64>) () ())) ())
#s(alt (/ 1 (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx))))))) (taylor -inf ky) (#s(alt (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) (patch (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) #<representation binary64>) () ())) ())
#s(alt (/ 1 (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx))))))) (taylor -inf ky) (#s(alt (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) (patch (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) #<representation binary64>) () ())) ())
#s(alt (/ 1 (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx))))))) (taylor -inf ky) (#s(alt (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) (patch (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) #<representation binary64>) () ())) ())
#s(alt (pow ky 2) (taylor 0 ky) (#s(alt (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))) (patch (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))) #<representation binary64>) () ())) ())
#s(alt (* (pow ky 2) (+ 1 (* -1/3 (pow ky 2)))) (taylor 0 ky) (#s(alt (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))) (patch (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))) #<representation binary64>) () ())) ())
#s(alt (* (pow ky 2) (+ 1 (* (pow ky 2) (- (* 2/45 (pow ky 2)) 1/3)))) (taylor 0 ky) (#s(alt (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))) (patch (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))) #<representation binary64>) () ())) ())
#s(alt (* (pow ky 2) (+ 1 (* (pow ky 2) (- (* (pow ky 2) (+ 2/45 (* -1/315 (pow ky 2)))) 1/3)))) (taylor 0 ky) (#s(alt (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))) (patch (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (* -1/2 (cos (* 2 ky)))) (taylor inf ky) (#s(alt (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))) (patch (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (* -1/2 (cos (* 2 ky)))) (taylor inf ky) (#s(alt (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))) (patch (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (* -1/2 (cos (* 2 ky)))) (taylor inf ky) (#s(alt (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))) (patch (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (* -1/2 (cos (* 2 ky)))) (taylor inf ky) (#s(alt (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))) (patch (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (* -1/2 (cos (neg (* -2 ky))))) (taylor -inf ky) (#s(alt (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))) (patch (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (* -1/2 (cos (neg (* -2 ky))))) (taylor -inf ky) (#s(alt (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))) (patch (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (* -1/2 (cos (neg (* -2 ky))))) (taylor -inf ky) (#s(alt (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))) (patch (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (* -1/2 (cos (neg (* -2 ky))))) (taylor -inf ky) (#s(alt (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))) (patch (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky))))))) (taylor 0 kx) (#s(alt (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) (sin.f64 th)) (patch (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (+ (* -1/2 (* (* (pow kx 2) (* (sin ky) (sin th))) (sqrt (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))))) (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky)))))))) (taylor 0 kx) (#s(alt (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) (sin.f64 th)) (patch (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (+ (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky))))))) (* (pow kx 2) (+ (* -1/2 (* (* (sin ky) (sin th)) (sqrt (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))))) (* 1/2 (* (* (pow kx 2) (* (sin ky) (* (sin th) (+ (* 1/3 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2))) (* 3/4 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))))))) (sqrt (+ 1/2 (* -1/2 (cos (* 2 ky)))))))))) (taylor 0 kx) (#s(alt (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) (sin.f64 th)) (patch (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (+ (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky))))))) (* (pow kx 2) (+ (* -1/2 (* (* (sin ky) (sin th)) (sqrt (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))))) (* (pow kx 2) (+ (* -1/2 (* (* (pow kx 2) (* (sin ky) (* (sin th) (+ (* -1/2 (/ (+ (* 1/3 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2))) (* 3/4 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3)))) (+ 1/2 (* -1/2 (cos (* 2 ky)))))) (+ (* 2/45 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2))) (+ (* 2/3 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))) (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 4)))))))) (sqrt (+ 1/2 (* -1/2 (cos (* 2 ky))))))) (* 1/2 (* (* (sin ky) (* (sin th) (+ (* 1/3 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2))) (* 3/4 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3)))))) (sqrt (+ 1/2 (* -1/2 (cos (* 2 ky)))))))))))) (taylor 0 kx) (#s(alt (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) (sin.f64 th)) (patch (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (taylor inf kx) (#s(alt (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) (sin.f64 th)) (patch (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (taylor inf kx) (#s(alt (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) (sin.f64 th)) (patch (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (taylor inf kx) (#s(alt (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) (sin.f64 th)) (patch (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (taylor inf kx) (#s(alt (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) (sin.f64 th)) (patch (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx)))))))))) (taylor -inf kx) (#s(alt (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) (sin.f64 th)) (patch (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx)))))))))) (taylor -inf kx) (#s(alt (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) (sin.f64 th)) (patch (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx)))))))))) (taylor -inf kx) (#s(alt (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) (sin.f64 th)) (patch (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx)))))))))) (taylor -inf kx) (#s(alt (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) (sin.f64 th)) (patch (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* ky (* (sin th) (sqrt 2))) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))) (taylor 0 ky) (#s(alt (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) (sin.f64 th)) (patch (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* ky (+ (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* -2 (* (/ (sin th) (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (* -1/6 (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))))))) (taylor 0 ky) (#s(alt (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) (sin.f64 th)) (patch (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* ky (+ (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* -2 (* (/ (sin th) (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (+ (* -1/6 (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (* (pow ky 2) (+ (* 1/120 (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (+ (* 1/3 (* (/ (sin th) (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (* 1/2 (* (/ (* (sin th) (- (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (* 4 (/ 1 (* (pow (sqrt 2) 2) (pow (- 1 (cos (* 2 kx))) 3)))))) (sqrt 2)) (sqrt (- 1 (cos (* 2 kx)))))))))))))) (taylor 0 ky) (#s(alt (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) (sin.f64 th)) (patch (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* ky (+ (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* -2 (* (/ (sin th) (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (+ (* -1/6 (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (* (pow ky 2) (+ (* 1/120 (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (+ (* 1/3 (* (/ (sin th) (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (+ (* 1/2 (* (/ (* (sin th) (- (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (* 4 (/ 1 (* (pow (sqrt 2) 2) (pow (- 1 (cos (* 2 kx))) 3)))))) (sqrt 2)) (sqrt (- 1 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* -1/2 (* (/ (* (sin th) (+ (* -2 (/ (- (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (* 4 (/ 1 (* (pow (sqrt 2) 2) (pow (- 1 (cos (* 2 kx))) 3))))) (* (pow (sqrt 2) 2) (- 1 (cos (* 2 kx)))))) (+ (* 8/45 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (+ (* 2 (/ (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (- 1 (cos (* 2 kx))))) (* 8/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))))) (sqrt 2)) (sqrt (- 1 (cos (* 2 kx)))))) (+ (* -1/12 (* (/ (* (sin th) (- (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (* 4 (/ 1 (* (pow (sqrt 2) 2) (pow (- 1 (cos (* 2 kx))) 3)))))) (sqrt 2)) (sqrt (- 1 (cos (* 2 kx)))))) (+ (* -1/60 (* (/ (sin th) (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (* -1/5040 (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))))))))))))))))) (taylor 0 ky) (#s(alt (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) (sin.f64 th)) (patch (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (taylor inf ky) (#s(alt (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) (sin.f64 th)) (patch (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (taylor inf ky) (#s(alt (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) (sin.f64 th)) (patch (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (taylor inf ky) (#s(alt (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) (sin.f64 th)) (patch (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (taylor inf ky) (#s(alt (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) (sin.f64 th)) (patch (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (taylor -inf ky) (#s(alt (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) (sin.f64 th)) (patch (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (taylor -inf ky) (#s(alt (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) (sin.f64 th)) (patch (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (taylor -inf ky) (#s(alt (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) (sin.f64 th)) (patch (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (taylor -inf ky) (#s(alt (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) (sin.f64 th)) (patch (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* th (sin ky)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (taylor 0 th) (#s(alt (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) (sin.f64 th)) (patch (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* th (+ (* -1/6 (* (* (pow th 2) (sin ky)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))) (* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))))) (taylor 0 th) (#s(alt (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) (sin.f64 th)) (patch (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* th (+ (* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (* (pow th 2) (+ (* -1/6 (* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))) (* 1/120 (* (* (pow th 2) (sin ky)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))))))) (taylor 0 th) (#s(alt (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) (sin.f64 th)) (patch (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* th (+ (* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (* (pow th 2) (+ (* -1/6 (* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))) (* (pow th 2) (+ (* -1/5040 (* (* (pow th 2) (sin ky)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))) (* 1/120 (* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))))))))) (taylor 0 th) (#s(alt (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) (sin.f64 th)) (patch (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (taylor inf th) (#s(alt (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) (sin.f64 th)) (patch (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (taylor inf th) (#s(alt (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) (sin.f64 th)) (patch (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (taylor inf th) (#s(alt (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) (sin.f64 th)) (patch (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (taylor inf th) (#s(alt (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) (sin.f64 th)) (patch (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (taylor -inf th) (#s(alt (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) (sin.f64 th)) (patch (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (taylor -inf th) (#s(alt (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) (sin.f64 th)) (patch (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (taylor -inf th) (#s(alt (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) (sin.f64 th)) (patch (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (taylor -inf th) (#s(alt (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) (sin.f64 th)) (patch (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (/ 1 (sin kx)) (taylor 0 ky) (#s(alt (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))) (patch (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (* (pow ky 2) (+ (* 1/6 (/ 1 (sin kx))) (* 1/2 (/ 1 (pow (sin kx) 3)))))) (/ 1 (sin kx))) (taylor 0 ky) (#s(alt (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))) (patch (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (* (pow ky 2) (+ (* 1/6 (/ 1 (sin kx))) (* 1/2 (/ 1 (pow (sin kx) 3)))))) (/ 1 (sin kx))) (taylor 0 ky) (#s(alt (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))) (patch (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (* (pow ky 2) (+ (* 1/6 (/ 1 (sin kx))) (* 1/2 (/ 1 (pow (sin kx) 3)))))) (/ 1 (sin kx))) (taylor 0 ky) (#s(alt (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))) (patch (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* (pow ky 2) (+ (* 1/6 (/ 1 (sin kx))) (* 1/2 (/ 1 (pow (sin kx) 3)))))) (taylor inf ky) (#s(alt (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))) (patch (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))) #<representation binary64>) () ())) ())
#s(alt (* (pow ky 2) (+ (* -1 (+ (* 1/6 (/ 1 (sin kx))) (* 1/2 (/ 1 (pow (sin kx) 3))))) (/ 1 (* (pow ky 2) (sin kx))))) (taylor inf ky) (#s(alt (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))) (patch (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))) #<representation binary64>) () ())) ())
#s(alt (* (pow ky 2) (+ (* -1 (+ (* 1/6 (/ 1 (sin kx))) (* 1/2 (/ 1 (pow (sin kx) 3))))) (/ 1 (* (pow ky 2) (sin kx))))) (taylor inf ky) (#s(alt (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))) (patch (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))) #<representation binary64>) () ())) ())
#s(alt (* (pow ky 2) (+ (* -1 (+ (* 1/6 (/ 1 (sin kx))) (* 1/2 (/ 1 (pow (sin kx) 3))))) (/ 1 (* (pow ky 2) (sin kx))))) (taylor inf ky) (#s(alt (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))) (patch (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* (pow ky 2) (+ (* 1/6 (/ 1 (sin kx))) (* 1/2 (/ 1 (pow (sin kx) 3)))))) (taylor -inf ky) (#s(alt (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))) (patch (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))) #<representation binary64>) () ())) ())
#s(alt (* (pow ky 2) (+ (* -1 (+ (* 1/6 (/ 1 (sin kx))) (* 1/2 (/ 1 (pow (sin kx) 3))))) (/ 1 (* (pow ky 2) (sin kx))))) (taylor -inf ky) (#s(alt (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))) (patch (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))) #<representation binary64>) () ())) ())
#s(alt (* (pow ky 2) (+ (* -1 (+ (* 1/6 (/ 1 (sin kx))) (* 1/2 (/ 1 (pow (sin kx) 3))))) (/ 1 (* (pow ky 2) (sin kx))))) (taylor -inf ky) (#s(alt (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))) (patch (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))) #<representation binary64>) () ())) ())
#s(alt (* (pow ky 2) (+ (* -1 (+ (* 1/6 (/ 1 (sin kx))) (* 1/2 (/ 1 (pow (sin kx) 3))))) (/ 1 (* (pow ky 2) (sin kx))))) (taylor -inf ky) (#s(alt (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))) (patch (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))) #<representation binary64>) () ())) ())
#s(alt (* -1/2 (/ (pow ky 2) (pow kx 3))) (taylor 0 kx) (#s(alt (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))) (patch (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))) #<representation binary64>) () ())) ())
#s(alt (/ (+ (* -1/2 (pow ky 2)) (* (pow kx 2) (+ 1 (* -5/12 (pow ky 2))))) (pow kx 3)) (taylor 0 kx) (#s(alt (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))) (patch (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))) #<representation binary64>) () ())) ())
#s(alt (/ (+ (* -1/2 (pow ky 2)) (* (pow kx 2) (+ 1 (+ (* -5/12 (pow ky 2)) (* (pow kx 2) (+ 1/6 (* -71/720 (pow ky 2)))))))) (pow kx 3)) (taylor 0 kx) (#s(alt (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))) (patch (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))) #<representation binary64>) () ())) ())
#s(alt (/ (+ (* -1/2 (pow ky 2)) (* (pow kx 2) (+ 1 (+ (* -5/12 (pow ky 2)) (* (pow kx 2) (+ 1/6 (+ (* -71/720 (pow ky 2)) (* (pow kx 2) (+ 7/360 (* -37/2016 (pow ky 2))))))))))) (pow kx 3)) (taylor 0 kx) (#s(alt (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))) (patch (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (* (pow ky 2) (+ (* 1/6 (/ 1 (sin kx))) (* 1/2 (/ 1 (pow (sin kx) 3)))))) (/ 1 (sin kx))) (taylor inf kx) (#s(alt (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))) (patch (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (* (pow ky 2) (+ (* 1/6 (/ 1 (sin kx))) (* 1/2 (/ 1 (pow (sin kx) 3)))))) (/ 1 (sin kx))) (taylor inf kx) (#s(alt (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))) (patch (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (* (pow ky 2) (+ (* 1/6 (/ 1 (sin kx))) (* 1/2 (/ 1 (pow (sin kx) 3)))))) (/ 1 (sin kx))) (taylor inf kx) (#s(alt (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))) (patch (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (* (pow ky 2) (+ (* 1/6 (/ 1 (sin kx))) (* 1/2 (/ 1 (pow (sin kx) 3)))))) (/ 1 (sin kx))) (taylor inf kx) (#s(alt (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))) (patch (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (* (pow ky 2) (+ (* 1/6 (/ 1 (sin kx))) (* 1/2 (/ 1 (pow (sin kx) 3)))))) (/ 1 (sin kx))) (taylor -inf kx) (#s(alt (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))) (patch (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (* (pow ky 2) (+ (* 1/6 (/ 1 (sin kx))) (* 1/2 (/ 1 (pow (sin kx) 3)))))) (/ 1 (sin kx))) (taylor -inf kx) (#s(alt (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))) (patch (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (* (pow ky 2) (+ (* 1/6 (/ 1 (sin kx))) (* 1/2 (/ 1 (pow (sin kx) 3)))))) (/ 1 (sin kx))) (taylor -inf kx) (#s(alt (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))) (patch (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (* (pow ky 2) (+ (* 1/6 (/ 1 (sin kx))) (* 1/2 (/ 1 (pow (sin kx) 3)))))) (/ 1 (sin kx))) (taylor -inf kx) (#s(alt (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))) (patch (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))) #<representation binary64>) () ())) ())
#s(alt (/ (* ky (sin th)) (sin kx)) (taylor 0 ky) (#s(alt (.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (sin.f64 th)) (patch (.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* ky (+ (* (pow ky 2) (+ (* -1/2 (/ (sin th) (pow (sin kx) 3))) (* -1/6 (/ (sin th) (sin kx))))) (/ (sin th) (sin kx)))) (taylor 0 ky) (#s(alt (.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (sin.f64 th)) (patch (.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* ky (+ (* (pow ky 2) (+ (* -1/2 (/ (sin th) (pow (sin kx) 3))) (+ (* -1/6 (/ (sin th) (sin kx))) (* (pow ky 2) (+ (* 1/120 (/ (sin th) (sin kx))) (+ (* 1/12 (/ (sin th) (pow (sin kx) 3))) (* 1/2 (* (sin kx) (* (sin th) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6))))))))))))) (/ (sin th) (sin kx)))) (taylor 0 ky) (#s(alt (.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (sin.f64 th)) (patch (.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* ky (+ (* (pow ky 2) (+ (* -1/2 (/ (sin th) (pow (sin kx) 3))) (+ (* -1/6 (/ (sin th) (sin kx))) (* (pow ky 2) (+ (* 1/120 (/ (sin th) (sin kx))) (+ (* 1/12 (/ (sin th) (pow (sin kx) 3))) (+ (* 1/2 (* (sin kx) (* (sin th) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6))))))) (* (pow ky 2) (+ (* -1/2 (* (sin kx) (* (sin th) (+ (* -1/2 (/ (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6)))) (pow (sin kx) 2))) (+ (* 2/45 (/ 1 (pow (sin kx) 4))) (+ (* 2/3 (/ 1 (pow (sin kx) 6))) (/ 1 (pow (sin kx) 8)))))))) (+ (* -1/12 (* (sin kx) (* (sin th) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6))))))) (+ (* -1/240 (/ (sin th) (pow (sin kx) 3))) (* -1/5040 (/ (sin th) (sin kx)))))))))))))) (/ (sin th) (sin kx)))) (taylor 0 ky) (#s(alt (.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (sin.f64 th)) (patch (.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor inf ky) (#s(alt (.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (sin.f64 th)) (patch (.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor inf ky) (#s(alt (.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (sin.f64 th)) (patch (.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor inf ky) (#s(alt (.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (sin.f64 th)) (patch (.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor inf ky) (#s(alt (.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (sin.f64 th)) (patch (.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor -inf ky) (#s(alt (.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (sin.f64 th)) (patch (.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor -inf ky) (#s(alt (.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (sin.f64 th)) (patch (.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor -inf ky) (#s(alt (.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (sin.f64 th)) (patch (.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor -inf ky) (#s(alt (.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (sin.f64 th)) (patch (.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (sin th) (taylor 0 kx) (#s(alt (.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (sin.f64 th)) (patch (.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (+ (sin th) (* -1/2 (/ (* (pow kx 2) (sin th)) (pow (sin ky) 2)))) (taylor 0 kx) (#s(alt (.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (sin.f64 th)) (patch (.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (+ (sin th) (* (pow kx 2) (+ (* -1/2 (/ (sin th) (pow (sin ky) 2))) (* 1/2 (* (pow kx 2) (* (pow (sin ky) 2) (* (sin th) (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (* 3/4 (/ 1 (pow (sin ky) 6))))))))))) (taylor 0 kx) (#s(alt (.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (sin.f64 th)) (patch (.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (+ (sin th) (* (pow kx 2) (+ (* -1/2 (/ (sin th) (pow (sin ky) 2))) (* (pow kx 2) (+ (* -1/2 (* (pow kx 2) (* (pow (sin ky) 2) (* (sin th) (+ (* -1/2 (/ (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (* 3/4 (/ 1 (pow (sin ky) 6)))) (pow (sin ky) 2))) (+ (* 2/45 (/ 1 (pow (sin ky) 4))) (+ (* 2/3 (/ 1 (pow (sin ky) 6))) (/ 1 (pow (sin ky) 8))))))))) (* 1/2 (* (pow (sin ky) 2) (* (sin th) (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (* 3/4 (/ 1 (pow (sin ky) 6)))))))))))) (taylor 0 kx) (#s(alt (.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (sin.f64 th)) (patch (.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor inf kx) (#s(alt (.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (sin.f64 th)) (patch (.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor inf kx) (#s(alt (.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (sin.f64 th)) (patch (.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor inf kx) (#s(alt (.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (sin.f64 th)) (patch (.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor inf kx) (#s(alt (.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (sin.f64 th)) (patch (.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor -inf kx) (#s(alt (.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (sin.f64 th)) (patch (.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor -inf kx) (#s(alt (.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (sin.f64 th)) (patch (.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor -inf kx) (#s(alt (.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (sin.f64 th)) (patch (.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor -inf kx) (#s(alt (.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (sin.f64 th)) (patch (.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* th (sin ky)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor 0 th) (#s(alt (.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (sin.f64 th)) (patch (.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* th (+ (* -1/6 (* (* (pow th 2) (sin ky)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))) (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))))) (taylor 0 th) (#s(alt (.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (sin.f64 th)) (patch (.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* th (+ (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (* (pow th 2) (+ (* -1/6 (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))) (* 1/120 (* (* (pow th 2) (sin ky)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))))))) (taylor 0 th) (#s(alt (.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (sin.f64 th)) (patch (.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* th (+ (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (* (pow th 2) (+ (* -1/6 (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))) (* (pow th 2) (+ (* -1/5040 (* (* (pow th 2) (sin ky)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))) (* 1/120 (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))))))))) (taylor 0 th) (#s(alt (.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (sin.f64 th)) (patch (.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor inf th) (#s(alt (.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (sin.f64 th)) (patch (.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor inf th) (#s(alt (.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (sin.f64 th)) (patch (.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor inf th) (#s(alt (.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (sin.f64 th)) (patch (.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor inf th) (#s(alt (.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (sin.f64 th)) (patch (.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor -inf th) (#s(alt (.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (sin.f64 th)) (patch (.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor -inf th) (#s(alt (.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (sin.f64 th)) (patch (.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor -inf th) (#s(alt (.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (sin.f64 th)) (patch (.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor -inf th) (#s(alt (.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (sin.f64 th)) (patch (.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (/ ky (sin kx)) (taylor 0 ky) (#s(alt #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (patch #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) #<representation binary64>) () ())) ())
#s(alt (* ky (+ (* -1 (* (pow ky 2) (+ (* 1/6 (/ 1 (sin kx))) (* 1/2 (/ 1 (pow (sin kx) 3)))))) (/ 1 (sin kx)))) (taylor 0 ky) (#s(alt #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (patch #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) #<representation binary64>) () ())) ())
#s(alt (* ky (+ (* (pow ky 2) (- (* (pow ky 2) (+ (* 1/120 (/ 1 (sin kx))) (+ (* 1/2 (* (sin kx) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6)))))) (* 1/12 (/ 1 (pow (sin kx) 3)))))) (+ (* 1/6 (/ 1 (sin kx))) (* 1/2 (/ 1 (pow (sin kx) 3)))))) (/ 1 (sin kx)))) (taylor 0 ky) (#s(alt #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (patch #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) #<representation binary64>) () ())) ())
#s(alt (* ky (+ (* (pow ky 2) (- (* (pow ky 2) (+ (* 1/120 (/ 1 (sin kx))) (+ (* 1/12 (/ 1 (pow (sin kx) 3))) (+ (* 1/2 (* (sin kx) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6)))))) (* (pow ky 2) (- (+ (* -1/2 (* (sin kx) (+ (* -1/2 (/ (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6)))) (pow (sin kx) 2))) (+ (* 2/45 (/ 1 (pow (sin kx) 4))) (+ (* 2/3 (/ 1 (pow (sin kx) 6))) (/ 1 (pow (sin kx) 8))))))) (* -1/12 (* (sin kx) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6))))))) (+ (* 1/5040 (/ 1 (sin kx))) (* 1/240 (/ 1 (pow (sin kx) 3)))))))))) (+ (* 1/6 (/ 1 (sin kx))) (* 1/2 (/ 1 (pow (sin kx) 3)))))) (/ 1 (sin kx)))) (taylor 0 ky) (#s(alt #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (patch #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor inf ky) (#s(alt #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (patch #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor inf ky) (#s(alt #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (patch #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor inf ky) (#s(alt #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (patch #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor inf ky) (#s(alt #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (patch #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor -inf ky) (#s(alt #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (patch #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor -inf ky) (#s(alt #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (patch #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor -inf ky) (#s(alt #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (patch #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor -inf ky) (#s(alt #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (patch #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) #<representation binary64>) () ())) ())
#s(alt 1 (taylor 0 kx) (#s(alt #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (patch #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) #<representation binary64>) () ())) ())
#s(alt (+ 1 (* -1/2 (/ (pow kx 2) (pow (sin ky) 2)))) (taylor 0 kx) (#s(alt #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (patch #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) #<representation binary64>) () ())) ())
#s(alt (+ 1 (* (pow kx 2) (- (* 1/2 (* (pow kx 2) (* (pow (sin ky) 2) (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (* 3/4 (/ 1 (pow (sin ky) 6))))))) (* 1/2 (/ 1 (pow (sin ky) 2)))))) (taylor 0 kx) (#s(alt #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (patch #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) #<representation binary64>) () ())) ())
#s(alt (+ 1 (* (pow kx 2) (- (* (pow kx 2) (+ (* -1/2 (* (pow kx 2) (* (pow (sin ky) 2) (+ (* -1/2 (/ (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (* 3/4 (/ 1 (pow (sin ky) 6)))) (pow (sin ky) 2))) (+ (* 2/45 (/ 1 (pow (sin ky) 4))) (+ (* 2/3 (/ 1 (pow (sin ky) 6))) (/ 1 (pow (sin ky) 8)))))))) (* 1/2 (* (pow (sin ky) 2) (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (* 3/4 (/ 1 (pow (sin ky) 6)))))))) (* 1/2 (/ 1 (pow (sin ky) 2)))))) (taylor 0 kx) (#s(alt #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (patch #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor inf kx) (#s(alt #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (patch #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor inf kx) (#s(alt #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (patch #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor inf kx) (#s(alt #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (patch #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor inf kx) (#s(alt #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (patch #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor -inf kx) (#s(alt #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (patch #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor -inf kx) (#s(alt #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (patch #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor -inf kx) (#s(alt #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (patch #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor -inf kx) (#s(alt #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (patch #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) #<representation binary64>) () ())) ())
#s(alt (/ ky (sin kx)) (taylor 0 ky) (#s(alt (.f64 ky (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx)))) (patch (.f64 ky (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx)))) #<representation binary64>) () ())) ())
#s(alt (* ky (+ (* -1 (* (pow ky 2) (+ (* 1/6 (/ 1 (sin kx))) (* 1/2 (/ 1 (pow (sin kx) 3)))))) (/ 1 (sin kx)))) (taylor 0 ky) (#s(alt (.f64 ky (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx)))) (patch (.f64 ky (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx)))) #<representation binary64>) () ())) ())
#s(alt (* ky (+ (* -1 (* (pow ky 2) (+ (* 1/6 (/ 1 (sin kx))) (* 1/2 (/ 1 (pow (sin kx) 3)))))) (/ 1 (sin kx)))) (taylor 0 ky) (#s(alt (.f64 ky (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx)))) (patch (.f64 ky (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx)))) #<representation binary64>) () ())) ())
#s(alt (* ky (+ (* -1 (* (pow ky 2) (+ (* 1/6 (/ 1 (sin kx))) (* 1/2 (/ 1 (pow (sin kx) 3)))))) (/ 1 (sin kx)))) (taylor 0 ky) (#s(alt (.f64 ky (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx)))) (patch (.f64 ky (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx)))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* (pow ky 3) (+ (* 1/6 (/ 1 (sin kx))) (* 1/2 (/ 1 (pow (sin kx) 3)))))) (taylor inf ky) (#s(alt (.f64 ky (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx)))) (patch (.f64 ky (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx)))) #<representation binary64>) () ())) ())
#s(alt (* (pow ky 3) (+ (* -1 (+ (* 1/6 (/ 1 (sin kx))) (* 1/2 (/ 1 (pow (sin kx) 3))))) (/ 1 (* (pow ky 2) (sin kx))))) (taylor inf ky) (#s(alt (.f64 ky (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx)))) (patch (.f64 ky (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx)))) #<representation binary64>) () ())) ())
#s(alt (* (pow ky 3) (+ (* -1 (+ (* 1/6 (/ 1 (sin kx))) (* 1/2 (/ 1 (pow (sin kx) 3))))) (/ 1 (* (pow ky 2) (sin kx))))) (taylor inf ky) (#s(alt (.f64 ky (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx)))) (patch (.f64 ky (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx)))) #<representation binary64>) () ())) ())
#s(alt (* (pow ky 3) (+ (* -1 (+ (* 1/6 (/ 1 (sin kx))) (* 1/2 (/ 1 (pow (sin kx) 3))))) (/ 1 (* (pow ky 2) (sin kx))))) (taylor inf ky) (#s(alt (.f64 ky (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx)))) (patch (.f64 ky (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx)))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* (pow ky 3) (+ (* 1/6 (/ 1 (sin kx))) (* 1/2 (/ 1 (pow (sin kx) 3)))))) (taylor -inf ky) (#s(alt (.f64 ky (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx)))) (patch (.f64 ky (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx)))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* (pow ky 3) (- (+ (* 1/6 (/ 1 (sin kx))) (* 1/2 (/ 1 (pow (sin kx) 3)))) (/ 1 (* (pow ky 2) (sin kx)))))) (taylor -inf ky) (#s(alt (.f64 ky (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx)))) (patch (.f64 ky (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx)))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* (pow ky 3) (- (+ (* 1/6 (/ 1 (sin kx))) (* 1/2 (/ 1 (pow (sin kx) 3)))) (/ 1 (* (pow ky 2) (sin kx)))))) (taylor -inf ky) (#s(alt (.f64 ky (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx)))) (patch (.f64 ky (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx)))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* (pow ky 3) (- (+ (* 1/6 (/ 1 (sin kx))) (* 1/2 (/ 1 (pow (sin kx) 3)))) (/ 1 (* (pow ky 2) (sin kx)))))) (taylor -inf ky) (#s(alt (.f64 ky (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx)))) (patch (.f64 ky (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx)))) #<representation binary64>) () ())) ())
#s(alt (* -1/2 (/ (pow ky 3) (pow kx 3))) (taylor 0 kx) (#s(alt (.f64 ky (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx)))) (patch (.f64 ky (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx)))) #<representation binary64>) () ())) ())
#s(alt (/ (+ (* -1/2 (pow ky 3)) (* (pow kx 2) (* ky (+ 1 (* -5/12 (pow ky 2)))))) (pow kx 3)) (taylor 0 kx) (#s(alt (.f64 ky (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx)))) (patch (.f64 ky (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx)))) #<representation binary64>) () ())) ())
#s(alt (/ (+ (* -1/2 (pow ky 3)) (* (pow kx 2) (+ (* ky (+ 1 (* -5/12 (pow ky 2)))) (* (pow kx 2) (* ky (+ 1/6 (* -71/720 (pow ky 2)))))))) (pow kx 3)) (taylor 0 kx) (#s(alt (.f64 ky (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx)))) (patch (.f64 ky (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx)))) #<representation binary64>) () ())) ())
#s(alt (/ (+ (* -1/2 (pow ky 3)) (* (pow kx 2) (+ (* ky (+ 1 (* -5/12 (pow ky 2)))) (* (pow kx 2) (+ (* ky (+ 1/6 (* -71/720 (pow ky 2)))) (* (pow kx 2) (* ky (+ 7/360 (* -37/2016 (pow ky 2)))))))))) (pow kx 3)) (taylor 0 kx) (#s(alt (.f64 ky (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx)))) (patch (.f64 ky (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx)))) #<representation binary64>) () ())) ())
#s(alt (* ky (+ (* -1 (* (pow ky 2) (+ (* 1/6 (/ 1 (sin kx))) (* 1/2 (/ 1 (pow (sin kx) 3)))))) (/ 1 (sin kx)))) (taylor inf kx) (#s(alt (.f64 ky (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx)))) (patch (.f64 ky (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx)))) #<representation binary64>) () ())) ())
#s(alt (* ky (+ (* -1 (* (pow ky 2) (+ (* 1/6 (/ 1 (sin kx))) (* 1/2 (/ 1 (pow (sin kx) 3)))))) (/ 1 (sin kx)))) (taylor inf kx) (#s(alt (.f64 ky (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx)))) (patch (.f64 ky (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx)))) #<representation binary64>) () ())) ())
#s(alt (* ky (+ (* -1 (* (pow ky 2) (+ (* 1/6 (/ 1 (sin kx))) (* 1/2 (/ 1 (pow (sin kx) 3)))))) (/ 1 (sin kx)))) (taylor inf kx) (#s(alt (.f64 ky (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx)))) (patch (.f64 ky (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx)))) #<representation binary64>) () ())) ())
#s(alt (* ky (+ (* -1 (* (pow ky 2) (+ (* 1/6 (/ 1 (sin kx))) (* 1/2 (/ 1 (pow (sin kx) 3)))))) (/ 1 (sin kx)))) (taylor inf kx) (#s(alt (.f64 ky (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx)))) (patch (.f64 ky (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx)))) #<representation binary64>) () ())) ())
#s(alt (* ky (+ (* -1 (* (pow ky 2) (+ (* 1/6 (/ 1 (sin kx))) (* 1/2 (/ 1 (pow (sin kx) 3)))))) (/ 1 (sin kx)))) (taylor -inf kx) (#s(alt (.f64 ky (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx)))) (patch (.f64 ky (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx)))) #<representation binary64>) () ())) ())
#s(alt (* ky (+ (* -1 (* (pow ky 2) (+ (* 1/6 (/ 1 (sin kx))) (* 1/2 (/ 1 (pow (sin kx) 3)))))) (/ 1 (sin kx)))) (taylor -inf kx) (#s(alt (.f64 ky (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx)))) (patch (.f64 ky (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx)))) #<representation binary64>) () ())) ())
#s(alt (* ky (+ (* -1 (* (pow ky 2) (+ (* 1/6 (/ 1 (sin kx))) (* 1/2 (/ 1 (pow (sin kx) 3)))))) (/ 1 (sin kx)))) (taylor -inf kx) (#s(alt (.f64 ky (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx)))) (patch (.f64 ky (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx)))) #<representation binary64>) () ())) ())
#s(alt (* ky (+ (* -1 (* (pow ky 2) (+ (* 1/6 (/ 1 (sin kx))) (* 1/2 (/ 1 (pow (sin kx) 3)))))) (/ 1 (sin kx)))) (taylor -inf kx) (#s(alt (.f64 ky (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx)))) (patch (.f64 ky (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx)))) #<representation binary64>) () ())) ())
#s(alt kx (taylor 0 kx) (#s(alt (sin.f64 kx) (patch (sin.f64 kx) #<representation binary64>) () ())) ())
#s(alt (* kx (+ 1 (* -1/6 (pow kx 2)))) (taylor 0 kx) (#s(alt (sin.f64 kx) (patch (sin.f64 kx) #<representation binary64>) () ())) ())
#s(alt (* kx (+ 1 (* (pow kx 2) (- (* 1/120 (pow kx 2)) 1/6)))) (taylor 0 kx) (#s(alt (sin.f64 kx) (patch (sin.f64 kx) #<representation binary64>) () ())) ())
#s(alt (* kx (+ 1 (* (pow kx 2) (- (* (pow kx 2) (+ 1/120 (* -1/5040 (pow kx 2)))) 1/6)))) (taylor 0 kx) (#s(alt (sin.f64 kx) (patch (sin.f64 kx) #<representation binary64>) () ())) ())
#s(alt (sin kx) (taylor inf kx) (#s(alt (sin.f64 kx) (patch (sin.f64 kx) #<representation binary64>) () ())) ())
#s(alt (sin kx) (taylor inf kx) (#s(alt (sin.f64 kx) (patch (sin.f64 kx) #<representation binary64>) () ())) ())
#s(alt (sin kx) (taylor inf kx) (#s(alt (sin.f64 kx) (patch (sin.f64 kx) #<representation binary64>) () ())) ())
#s(alt (sin kx) (taylor inf kx) (#s(alt (sin.f64 kx) (patch (sin.f64 kx) #<representation binary64>) () ())) ())
#s(alt (sin kx) (taylor -inf kx) (#s(alt (sin.f64 kx) (patch (sin.f64 kx) #<representation binary64>) () ())) ())
#s(alt (sin kx) (taylor -inf kx) (#s(alt (sin.f64 kx) (patch (sin.f64 kx) #<representation binary64>) () ())) ())
#s(alt (sin kx) (taylor -inf kx) (#s(alt (sin.f64 kx) (patch (sin.f64 kx) #<representation binary64>) () ())) ())
#s(alt (sin kx) (taylor -inf kx) (#s(alt (sin.f64 kx) (patch (sin.f64 kx) #<representation binary64>) () ())) ())
#s(alt (pow ky 2) (taylor 0 ky) (#s(alt #s(approx (pow (sin ky) 2) (.f64 ky ky)) (patch #s(approx (pow (sin ky) 2) (.f64 ky ky)) #<representation binary64>) () ())) ())
#s(alt (* (pow ky 2) (+ 1 (* -1/3 (pow ky 2)))) (taylor 0 ky) (#s(alt #s(approx (pow (sin ky) 2) (.f64 ky ky)) (patch #s(approx (pow (sin ky) 2) (.f64 ky ky)) #<representation binary64>) () ())) ())
#s(alt (* (pow ky 2) (+ 1 (* (pow ky 2) (- (* 2/45 (pow ky 2)) 1/3)))) (taylor 0 ky) (#s(alt #s(approx (pow (sin ky) 2) (.f64 ky ky)) (patch #s(approx (pow (sin ky) 2) (.f64 ky ky)) #<representation binary64>) () ())) ())
#s(alt (* (pow ky 2) (+ 1 (* (pow ky 2) (- (* (pow ky 2) (+ 2/45 (* -1/315 (pow ky 2)))) 1/3)))) (taylor 0 ky) (#s(alt #s(approx (pow (sin ky) 2) (.f64 ky ky)) (patch #s(approx (pow (sin ky) 2) (.f64 ky ky)) #<representation binary64>) () ())) ())
#s(alt (pow (sin ky) 2) (taylor inf ky) (#s(alt #s(approx (pow (sin ky) 2) (.f64 ky ky)) (patch #s(approx (pow (sin ky) 2) (.f64 ky ky)) #<representation binary64>) () ())) ())
#s(alt (pow (sin ky) 2) (taylor inf ky) (#s(alt #s(approx (pow (sin ky) 2) (.f64 ky ky)) (patch #s(approx (pow (sin ky) 2) (.f64 ky ky)) #<representation binary64>) () ())) ())
#s(alt (pow (sin ky) 2) (taylor inf ky) (#s(alt #s(approx (pow (sin ky) 2) (.f64 ky ky)) (patch #s(approx (pow (sin ky) 2) (.f64 ky ky)) #<representation binary64>) () ())) ())
#s(alt (pow (sin ky) 2) (taylor inf ky) (#s(alt #s(approx (pow (sin ky) 2) (.f64 ky ky)) (patch #s(approx (pow (sin ky) 2) (.f64 ky ky)) #<representation binary64>) () ())) ())
#s(alt (pow (sin ky) 2) (taylor -inf ky) (#s(alt #s(approx (pow (sin ky) 2) (.f64 ky ky)) (patch #s(approx (pow (sin ky) 2) (.f64 ky ky)) #<representation binary64>) () ())) ())
#s(alt (pow (sin ky) 2) (taylor -inf ky) (#s(alt #s(approx (pow (sin ky) 2) (.f64 ky ky)) (patch #s(approx (pow (sin ky) 2) (.f64 ky ky)) #<representation binary64>) () ())) ())
#s(alt (pow (sin ky) 2) (taylor -inf ky) (#s(alt #s(approx (pow (sin ky) 2) (.f64 ky ky)) (patch #s(approx (pow (sin ky) 2) (.f64 ky ky)) #<representation binary64>) () ())) ())
#s(alt (pow (sin ky) 2) (taylor -inf ky) (#s(alt #s(approx (pow (sin ky) 2) (.f64 ky ky)) (patch #s(approx (pow (sin ky) 2) (.f64 ky ky)) #<representation binary64>) () ())) ())
#s(alt (pow kx 2) (taylor 0 kx) (#s(alt (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (patch (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* (pow kx 2) (+ 1 (* -1/3 (pow kx 2)))) (taylor 0 kx) (#s(alt (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (patch (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* (pow kx 2) (+ 1 (* (pow kx 2) (- (* 2/45 (pow kx 2)) 1/3)))) (taylor 0 kx) (#s(alt (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (patch (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* (pow kx 2) (+ 1 (* (pow kx 2) (- (* (pow kx 2) (+ 2/45 (* -1/315 (pow kx 2)))) 1/3)))) (taylor 0 kx) (#s(alt (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (patch (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (pow (sin kx) 2) (taylor inf kx) (#s(alt (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (patch (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (pow (sin kx) 2) (taylor inf kx) (#s(alt (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (patch (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (pow (sin kx) 2) (taylor inf kx) (#s(alt (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (patch (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (pow (sin kx) 2) (taylor inf kx) (#s(alt (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (patch (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (pow (sin kx) 2) (taylor -inf kx) (#s(alt (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (patch (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (pow (sin kx) 2) (taylor -inf kx) (#s(alt (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (patch (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (pow (sin kx) 2) (taylor -inf kx) (#s(alt (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (patch (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (pow (sin kx) 2) (taylor -inf kx) (#s(alt (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (patch (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* 2 (pow kx 2)) (taylor 0 kx) (#s(alt (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) (patch (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #<representation binary64>) () ())) ())
#s(alt (* (pow kx 2) (+ 2 (* -2/3 (pow kx 2)))) (taylor 0 kx) (#s(alt (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) (patch (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #<representation binary64>) () ())) ())
#s(alt (* (pow kx 2) (+ 2 (* (pow kx 2) (- (* 4/45 (pow kx 2)) 2/3)))) (taylor 0 kx) (#s(alt (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) (patch (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #<representation binary64>) () ())) ())
#s(alt (* (pow kx 2) (+ 2 (* (pow kx 2) (- (* (pow kx 2) (+ 4/45 (* -2/315 (pow kx 2)))) 2/3)))) (taylor 0 kx) (#s(alt (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) (patch (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #<representation binary64>) () ())) ())
#s(alt (- 1 (cos (* 2 kx))) (taylor inf kx) (#s(alt (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) (patch (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #<representation binary64>) () ())) ())
#s(alt (- 1 (cos (* 2 kx))) (taylor inf kx) (#s(alt (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) (patch (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #<representation binary64>) () ())) ())
#s(alt (- 1 (cos (* 2 kx))) (taylor inf kx) (#s(alt (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) (patch (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #<representation binary64>) () ())) ())
#s(alt (- 1 (cos (* 2 kx))) (taylor inf kx) (#s(alt (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) (patch (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #<representation binary64>) () ())) ())
#s(alt (- 1 (cos (neg (* -2 kx)))) (taylor -inf kx) (#s(alt (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) (patch (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #<representation binary64>) () ())) ())
#s(alt (- 1 (cos (neg (* -2 kx)))) (taylor -inf kx) (#s(alt (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) (patch (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #<representation binary64>) () ())) ())
#s(alt (- 1 (cos (neg (* -2 kx)))) (taylor -inf kx) (#s(alt (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) (patch (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #<representation binary64>) () ())) ())
#s(alt (- 1 (cos (neg (* -2 kx)))) (taylor -inf kx) (#s(alt (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) (patch (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #<representation binary64>) () ())) ())
#s(alt (sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky)))))) (taylor 0 kx) (#s(alt (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (patch (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky)))))) (* -1/2 (* (pow kx 2) (sqrt (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3)))))) (taylor 0 kx) (#s(alt (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (patch (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky)))))) (* (pow kx 2) (+ (* -1/2 (sqrt (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3)))) (* 1/2 (* (* (pow kx 2) (+ (* 1/3 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2))) (* 3/4 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))))) (sqrt (+ 1/2 (* -1/2 (cos (* 2 ky)))))))))) (taylor 0 kx) (#s(alt (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (patch (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky)))))) (* (pow kx 2) (+ (* -1/2 (sqrt (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3)))) (* (pow kx 2) (+ (* -1/2 (* (* (pow kx 2) (+ (* -1/2 (/ (+ (* 1/3 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2))) (* 3/4 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3)))) (+ 1/2 (* -1/2 (cos (* 2 ky)))))) (+ (* 2/45 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2))) (+ (* 2/3 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))) (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 4)))))) (sqrt (+ 1/2 (* -1/2 (cos (* 2 ky))))))) (* 1/2 (* (sqrt (+ 1/2 (* -1/2 (cos (* 2 ky))))) (+ (* 1/3 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2))) (* 3/4 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))))))))))) (taylor 0 kx) (#s(alt (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (patch (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))) (taylor inf kx) (#s(alt (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (patch (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))) (taylor inf kx) (#s(alt (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (patch (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))) (taylor inf kx) (#s(alt (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (patch (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))) (taylor inf kx) (#s(alt (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (patch (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx))))))))) (taylor -inf kx) (#s(alt (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (patch (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx))))))))) (taylor -inf kx) (#s(alt (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (patch (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx))))))))) (taylor -inf kx) (#s(alt (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (patch (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx))))))))) (taylor -inf kx) (#s(alt (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (patch (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) #<representation binary64>) () ())) ())
#s(alt (* (sqrt 2) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))) (taylor 0 ky) (#s(alt (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (patch (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) #<representation binary64>) () ())) ())
#s(alt (+ (* -2 (* (/ (pow ky 2) (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (* (sqrt 2) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (taylor 0 ky) (#s(alt (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (patch (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (sqrt 2) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* -2 (* (/ 1 (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (* 1/2 (* (/ (* (pow ky 2) (- (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (* 4 (/ 1 (* (pow (sqrt 2) 2) (pow (- 1 (cos (* 2 kx))) 3)))))) (sqrt 2)) (sqrt (- 1 (cos (* 2 kx))))))))) (taylor 0 ky) (#s(alt (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (patch (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (sqrt 2) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* -2 (* (/ 1 (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (* (pow ky 2) (+ (* -1/2 (* (/ (* (pow ky 2) (+ (* -2 (/ (- (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (* 4 (/ 1 (* (pow (sqrt 2) 2) (pow (- 1 (cos (* 2 kx))) 3))))) (* (pow (sqrt 2) 2) (- 1 (cos (* 2 kx)))))) (+ (* 8/45 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (+ (* 2 (/ (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (- 1 (cos (* 2 kx))))) (* 8/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))))) (sqrt 2)) (sqrt (- 1 (cos (* 2 kx)))))) (* 1/2 (* (/ (- (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (* 4 (/ 1 (* (pow (sqrt 2) 2) (pow (- 1 (cos (* 2 kx))) 3))))) (sqrt 2)) (sqrt (- 1 (cos (* 2 kx))))))))))) (taylor 0 ky) (#s(alt (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (patch (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))) (taylor inf ky) (#s(alt (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (patch (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))) (taylor inf ky) (#s(alt (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (patch (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))) (taylor inf ky) (#s(alt (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (patch (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))) (taylor inf ky) (#s(alt (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (patch (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx)))))))) (taylor -inf ky) (#s(alt (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (patch (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx)))))))) (taylor -inf ky) (#s(alt (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (patch (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx)))))))) (taylor -inf ky) (#s(alt (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (patch (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx)))))))) (taylor -inf ky) (#s(alt (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (patch (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky))))))) (taylor 0 kx) (#s(alt (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) (patch (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #<representation binary64>) () ())) ())
#s(alt (+ (* -1/2 (* (* (pow kx 2) (sin ky)) (sqrt (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))))) (* (sin ky) (sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky)))))))) (taylor 0 kx) (#s(alt (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) (patch (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #<representation binary64>) () ())) ())
#s(alt (+ (* (sin ky) (sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky))))))) (* (pow kx 2) (+ (* -1/2 (* (sin ky) (sqrt (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))))) (* 1/2 (* (* (pow kx 2) (* (sin ky) (+ (* 1/3 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2))) (* 3/4 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3)))))) (sqrt (+ 1/2 (* -1/2 (cos (* 2 ky)))))))))) (taylor 0 kx) (#s(alt (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) (patch (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #<representation binary64>) () ())) ())
#s(alt (+ (* (sin ky) (sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky))))))) (* (pow kx 2) (+ (* -1/2 (* (sin ky) (sqrt (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))))) (* (pow kx 2) (+ (* -1/2 (* (* (pow kx 2) (* (sin ky) (+ (* -1/2 (/ (+ (* 1/3 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2))) (* 3/4 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3)))) (+ 1/2 (* -1/2 (cos (* 2 ky)))))) (+ (* 2/45 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2))) (+ (* 2/3 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))) (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 4))))))) (sqrt (+ 1/2 (* -1/2 (cos (* 2 ky))))))) (* 1/2 (* (* (sin ky) (+ (* 1/3 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2))) (* 3/4 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))))) (sqrt (+ 1/2 (* -1/2 (cos (* 2 ky)))))))))))) (taylor 0 kx) (#s(alt (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) (patch (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (taylor inf kx) (#s(alt (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) (patch (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (taylor inf kx) (#s(alt (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) (patch (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (taylor inf kx) (#s(alt (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) (patch (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (taylor inf kx) (#s(alt (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) (patch (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx)))))))))) (taylor -inf kx) (#s(alt (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) (patch (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx)))))))))) (taylor -inf kx) (#s(alt (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) (patch (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx)))))))))) (taylor -inf kx) (#s(alt (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) (patch (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx)))))))))) (taylor -inf kx) (#s(alt (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) (patch (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #<representation binary64>) () ())) ())
#s(alt (* (* ky (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))) (taylor 0 ky) (#s(alt (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) (patch (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #<representation binary64>) () ())) ())
#s(alt (* ky (+ (* (sqrt 2) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* -2 (* (/ 1 (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (* -1/6 (* (sqrt 2) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))))))) (taylor 0 ky) (#s(alt (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) (patch (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #<representation binary64>) () ())) ())
#s(alt (* ky (+ (* (sqrt 2) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* -2 (* (/ 1 (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (+ (* -1/6 (* (sqrt 2) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (* (pow ky 2) (+ (* 1/120 (* (sqrt 2) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (+ (* 1/3 (* (/ 1 (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (* 1/2 (* (/ (- (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (* 4 (/ 1 (* (pow (sqrt 2) 2) (pow (- 1 (cos (* 2 kx))) 3))))) (sqrt 2)) (sqrt (- 1 (cos (* 2 kx)))))))))))))) (taylor 0 ky) (#s(alt (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) (patch (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #<representation binary64>) () ())) ())
#s(alt (* ky (+ (* (sqrt 2) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* -2 (* (/ 1 (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (+ (* -1/6 (* (sqrt 2) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (* (pow ky 2) (+ (* 1/120 (* (sqrt 2) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (+ (* 1/3 (* (/ 1 (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (+ (* 1/2 (* (/ (- (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (* 4 (/ 1 (* (pow (sqrt 2) 2) (pow (- 1 (cos (* 2 kx))) 3))))) (sqrt 2)) (sqrt (- 1 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* -1/2 (* (/ (+ (* -2 (/ (- (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (* 4 (/ 1 (* (pow (sqrt 2) 2) (pow (- 1 (cos (* 2 kx))) 3))))) (* (pow (sqrt 2) 2) (- 1 (cos (* 2 kx)))))) (+ (* 8/45 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (+ (* 2 (/ (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (- 1 (cos (* 2 kx))))) (* 8/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))))) (sqrt 2)) (sqrt (- 1 (cos (* 2 kx)))))) (+ (* -1/12 (* (/ (- (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (* 4 (/ 1 (* (pow (sqrt 2) 2) (pow (- 1 (cos (* 2 kx))) 3))))) (sqrt 2)) (sqrt (- 1 (cos (* 2 kx)))))) (+ (* -1/60 (* (/ 1 (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (* -1/5040 (* (sqrt 2) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))))))))))))))))) (taylor 0 ky) (#s(alt (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) (patch (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (taylor inf ky) (#s(alt (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) (patch (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (taylor inf ky) (#s(alt (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) (patch (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (taylor inf ky) (#s(alt (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) (patch (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (taylor inf ky) (#s(alt (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) (patch (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (taylor -inf ky) (#s(alt (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) (patch (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (taylor -inf ky) (#s(alt (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) (patch (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (taylor -inf ky) (#s(alt (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) (patch (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (taylor -inf ky) (#s(alt (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) (patch (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #<representation binary64>) () ())) ())
#s(alt (/ -1/6 kx) (taylor 0 kx) (#s(alt (/.f64 #s(literal -1/6 binary64) (sin.f64 kx)) (patch (/.f64 #s(literal -1/6 binary64) (sin.f64 kx)) #<representation binary64>) () ())) ())
#s(alt (/ (- (* -1/36 (pow kx 2)) 1/6) kx) (taylor 0 kx) (#s(alt (/.f64 #s(literal -1/6 binary64) (sin.f64 kx)) (patch (/.f64 #s(literal -1/6 binary64) (sin.f64 kx)) #<representation binary64>) () ())) ())
#s(alt (/ (- (* (pow kx 2) (- (* -7/2160 (pow kx 2)) 1/36)) 1/6) kx) (taylor 0 kx) (#s(alt (/.f64 #s(literal -1/6 binary64) (sin.f64 kx)) (patch (/.f64 #s(literal -1/6 binary64) (sin.f64 kx)) #<representation binary64>) () ())) ())
#s(alt (/ (- (* (pow kx 2) (- (* (pow kx 2) (- (* -31/90720 (pow kx 2)) 7/2160)) 1/36)) 1/6) kx) (taylor 0 kx) (#s(alt (/.f64 #s(literal -1/6 binary64) (sin.f64 kx)) (patch (/.f64 #s(literal -1/6 binary64) (sin.f64 kx)) #<representation binary64>) () ())) ())
#s(alt (/ -1/6 (sin kx)) (taylor inf kx) (#s(alt (/.f64 #s(literal -1/6 binary64) (sin.f64 kx)) (patch (/.f64 #s(literal -1/6 binary64) (sin.f64 kx)) #<representation binary64>) () ())) ())
#s(alt (/ -1/6 (sin kx)) (taylor inf kx) (#s(alt (/.f64 #s(literal -1/6 binary64) (sin.f64 kx)) (patch (/.f64 #s(literal -1/6 binary64) (sin.f64 kx)) #<representation binary64>) () ())) ())
#s(alt (/ -1/6 (sin kx)) (taylor inf kx) (#s(alt (/.f64 #s(literal -1/6 binary64) (sin.f64 kx)) (patch (/.f64 #s(literal -1/6 binary64) (sin.f64 kx)) #<representation binary64>) () ())) ())
#s(alt (/ -1/6 (sin kx)) (taylor inf kx) (#s(alt (/.f64 #s(literal -1/6 binary64) (sin.f64 kx)) (patch (/.f64 #s(literal -1/6 binary64) (sin.f64 kx)) #<representation binary64>) () ())) ())
#s(alt (/ -1/6 (sin kx)) (taylor -inf kx) (#s(alt (/.f64 #s(literal -1/6 binary64) (sin.f64 kx)) (patch (/.f64 #s(literal -1/6 binary64) (sin.f64 kx)) #<representation binary64>) () ())) ())
#s(alt (/ -1/6 (sin kx)) (taylor -inf kx) (#s(alt (/.f64 #s(literal -1/6 binary64) (sin.f64 kx)) (patch (/.f64 #s(literal -1/6 binary64) (sin.f64 kx)) #<representation binary64>) () ())) ())
#s(alt (/ -1/6 (sin kx)) (taylor -inf kx) (#s(alt (/.f64 #s(literal -1/6 binary64) (sin.f64 kx)) (patch (/.f64 #s(literal -1/6 binary64) (sin.f64 kx)) #<representation binary64>) () ())) ())
#s(alt (/ -1/6 (sin kx)) (taylor -inf kx) (#s(alt (/.f64 #s(literal -1/6 binary64) (sin.f64 kx)) (patch (/.f64 #s(literal -1/6 binary64) (sin.f64 kx)) #<representation binary64>) () ())) ())

Calls

135 calls:

Time	Variable		Point	Expression
9.0ms	kx	@	0	(+ (* (* ky ky) (+ (/ -1/2 (pow (sin kx) 3)) (/ -1/6 (sin kx)))) (/ 1 (sin kx)))
3.0ms	ky	@	0	(* (* (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (sin th))
2.0ms	kx	@	inf	(+ (* (* ky ky) (+ (/ -1/2 (pow (sin kx) 3)) (/ -1/6 (sin kx)))) (/ 1 (sin kx)))
2.0ms	kx	@	-inf	(+ (* (* ky ky) (+ (/ -1/2 (pow (sin kx) 3)) (/ -1/6 (sin kx)))) (/ 1 (sin kx)))
2.0ms	th	@	inf	(* (* (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (sin th))

simplify363.0ms (2.7%)

Memory

-7.0MiB live, 413.0MiB allocated

Algorithm

1×	egg-herbie

Rules

7 918×	`lower-fma.f64`
7 918×	`lower-fma.f32`
6 820×	`lower-*.f64`
6 820×	`lower-*.f32`
5 794×	`lower-+.f64`

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	783	13637
1	2543	13244
2	6483	13111
0	8763	12334

Stop Event

1×	iter limit
1×	node limit

Counts

540 → 537

Calls

Call 1

Inputs
(/ (* ky (sin th)) (sin kx))
(* ky (+ (* (pow ky 2) (+ (* -1/2 (/ (sin th) (pow (sin kx) 3))) (* -1/6 (/ (sin th) (sin kx))))) (/ (sin th) (sin kx))))
(* ky (+ (* (pow ky 2) (+ (* -1/2 (/ (sin th) (pow (sin kx) 3))) (+ (* -1/6 (/ (sin th) (sin kx))) (* (pow ky 2) (+ (* 1/120 (/ (sin th) (sin kx))) (+ (* 1/12 (/ (sin th) (pow (sin kx) 3))) (* 1/2 (* (sin kx) (* (sin th) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6))))))))))))) (/ (sin th) (sin kx))))
(* ky (+ (* (pow ky 2) (+ (* -1/2 (/ (sin th) (pow (sin kx) 3))) (+ (* -1/6 (/ (sin th) (sin kx))) (* (pow ky 2) (+ (* 1/120 (/ (sin th) (sin kx))) (+ (* 1/12 (/ (sin th) (pow (sin kx) 3))) (+ (* 1/2 (* (sin kx) (* (sin th) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6))))))) (* (pow ky 2) (+ (* -1/2 (* (sin kx) (* (sin th) (+ (* -1/2 (/ (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6)))) (pow (sin kx) 2))) (+ (* 2/45 (/ 1 (pow (sin kx) 4))) (+ (* 2/3 (/ 1 (pow (sin kx) 6))) (/ 1 (pow (sin kx) 8)))))))) (+ (* -1/12 (* (sin kx) (* (sin th) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6))))))) (+ (* -1/240 (/ (sin th) (pow (sin kx) 3))) (* -1/5040 (/ (sin th) (sin kx)))))))))))))) (/ (sin th) (sin kx))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(sin th)
(+ (sin th) (* -1/2 (/ (* (pow kx 2) (sin th)) (pow (sin ky) 2))))
(+ (sin th) (* (pow kx 2) (+ (* -1/2 (/ (sin th) (pow (sin ky) 2))) (* 1/2 (* (pow kx 2) (* (pow (sin ky) 2) (* (sin th) (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (* 3/4 (/ 1 (pow (sin ky) 6)))))))))))
(+ (sin th) (* (pow kx 2) (+ (* -1/2 (/ (sin th) (pow (sin ky) 2))) (* (pow kx 2) (+ (* -1/2 (* (pow kx 2) (* (pow (sin ky) 2) (* (sin th) (+ (* -1/2 (/ (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (* 3/4 (/ 1 (pow (sin ky) 6)))) (pow (sin ky) 2))) (+ (* 2/45 (/ 1 (pow (sin ky) 4))) (+ (* 2/3 (/ 1 (pow (sin ky) 6))) (/ 1 (pow (sin ky) 8))))))))) (* 1/2 (* (pow (sin ky) 2) (* (sin th) (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (* 3/4 (/ 1 (pow (sin ky) 6))))))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (* th (sin ky)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* th (+ (* -1/6 (* (* (pow th 2) (sin ky)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))) (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))))
(* th (+ (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (* (pow th 2) (+ (* -1/6 (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))) (* 1/120 (* (* (pow th 2) (sin ky)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))))))))
(* th (+ (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (* (pow th 2) (+ (* -1/6 (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))) (* (pow th 2) (+ (* -1/5040 (* (* (pow th 2) (sin ky)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))) (* 1/120 (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(/ ky (sin kx))
(* ky (+ (* -1 (* (pow ky 2) (+ (* 1/6 (/ 1 (sin kx))) (* 1/2 (/ 1 (pow (sin kx) 3)))))) (/ 1 (sin kx))))
(* ky (+ (* (pow ky 2) (- (* (pow ky 2) (+ (* 1/120 (/ 1 (sin kx))) (+ (* 1/2 (* (sin kx) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6)))))) (* 1/12 (/ 1 (pow (sin kx) 3)))))) (+ (* 1/6 (/ 1 (sin kx))) (* 1/2 (/ 1 (pow (sin kx) 3)))))) (/ 1 (sin kx))))
(* ky (+ (* (pow ky 2) (- (* (pow ky 2) (+ (* 1/120 (/ 1 (sin kx))) (+ (* 1/12 (/ 1 (pow (sin kx) 3))) (+ (* 1/2 (* (sin kx) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6)))))) (* (pow ky 2) (- (+ (* -1/2 (* (sin kx) (+ (* -1/2 (/ (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6)))) (pow (sin kx) 2))) (+ (* 2/45 (/ 1 (pow (sin kx) 4))) (+ (* 2/3 (/ 1 (pow (sin kx) 6))) (/ 1 (pow (sin kx) 8))))))) (* -1/12 (* (sin kx) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6))))))) (+ (* 1/5040 (/ 1 (sin kx))) (* 1/240 (/ 1 (pow (sin kx) 3)))))))))) (+ (* 1/6 (/ 1 (sin kx))) (* 1/2 (/ 1 (pow (sin kx) 3)))))) (/ 1 (sin kx))))
(* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
1
(+ 1 (* -1/2 (/ (pow kx 2) (pow (sin ky) 2))))
(+ 1 (* (pow kx 2) (- (* 1/2 (* (pow kx 2) (* (pow (sin ky) 2) (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (* 3/4 (/ 1 (pow (sin ky) 6))))))) (* 1/2 (/ 1 (pow (sin ky) 2))))))
(+ 1 (* (pow kx 2) (- (* (pow kx 2) (+ (* -1/2 (* (pow kx 2) (* (pow (sin ky) 2) (+ (* -1/2 (/ (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (* 3/4 (/ 1 (pow (sin ky) 6)))) (pow (sin ky) 2))) (+ (* 2/45 (/ 1 (pow (sin ky) 4))) (+ (* 2/3 (/ 1 (pow (sin ky) 6))) (/ 1 (pow (sin ky) 8)))))))) (* 1/2 (* (pow (sin ky) 2) (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (* 3/4 (/ 1 (pow (sin ky) 6)))))))) (* 1/2 (/ 1 (pow (sin ky) 2))))))
(* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
ky
(* ky (+ 1 (* -1/6 (pow ky 2))))
(* ky (+ 1 (* (pow ky 2) (- (* 1/120 (pow ky 2)) 1/6))))
(* ky (+ 1 (* (pow ky 2) (- (* (pow ky 2) (+ 1/120 (* -1/5040 (pow ky 2)))) 1/6))))
(sin ky)
(sin ky)
(sin ky)
(sin ky)
(sin ky)
(sin ky)
(sin ky)
(sin ky)
(sin kx)
(+ (sin kx) (* 1/2 (/ (pow ky 2) (sin kx))))
(+ (sin kx) (* (pow ky 2) (+ (* -1/2 (/ (* (pow ky 2) (+ 1/3 (* 1/4 (/ 1 (pow (sin kx) 2))))) (sin kx))) (* 1/2 (/ 1 (sin kx))))))
(+ (sin kx) (* (pow ky 2) (+ (* (pow ky 2) (+ (* -1/2 (/ (+ 1/3 (* 1/4 (/ 1 (pow (sin kx) 2)))) (sin kx))) (* 1/2 (/ (* (pow ky 2) (- 2/45 (* -1/2 (/ (+ 1/3 (* 1/4 (/ 1 (pow (sin kx) 2)))) (pow (sin kx) 2))))) (sin kx))))) (* 1/2 (/ 1 (sin kx))))))
(sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))
(sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))
(sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))
(sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))
(sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))
(sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))
(sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))
(sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))
(sin ky)
(+ (sin ky) (* 1/2 (/ (pow kx 2) (sin ky))))
(+ (sin ky) (* (pow kx 2) (+ (* -1/2 (/ (* (pow kx 2) (+ 1/3 (* 1/4 (/ 1 (pow (sin ky) 2))))) (sin ky))) (* 1/2 (/ 1 (sin ky))))))
(+ (sin ky) (* (pow kx 2) (+ (* (pow kx 2) (+ (* -1/2 (/ (+ 1/3 (* 1/4 (/ 1 (pow (sin ky) 2)))) (sin ky))) (* 1/2 (/ (* (pow kx 2) (- 2/45 (* -1/2 (/ (+ 1/3 (* 1/4 (/ 1 (pow (sin ky) 2)))) (pow (sin ky) 2))))) (sin ky))))) (* 1/2 (/ 1 (sin ky))))))
(sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))
(sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))
(sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))
(sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))
(sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))
(sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))
(sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))
(sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))
(/ (* ky (sin th)) (sin kx))
(* ky (+ (* (pow ky 2) (+ (* -1/2 (/ (sin th) (pow (sin kx) 3))) (* -1/6 (/ (sin th) (sin kx))))) (/ (sin th) (sin kx))))
(* ky (+ (* (pow ky 2) (+ (* -1/2 (/ (sin th) (pow (sin kx) 3))) (+ (* -1/6 (/ (sin th) (sin kx))) (* (pow ky 2) (+ (* 1/120 (/ (sin th) (sin kx))) (+ (* 1/12 (/ (sin th) (pow (sin kx) 3))) (* 1/2 (* (sin kx) (* (sin th) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6))))))))))))) (/ (sin th) (sin kx))))
(* ky (+ (* (pow ky 2) (+ (* -1/2 (/ (sin th) (pow (sin kx) 3))) (+ (* -1/6 (/ (sin th) (sin kx))) (* (pow ky 2) (+ (* 1/120 (/ (sin th) (sin kx))) (+ (* 1/12 (/ (sin th) (pow (sin kx) 3))) (+ (* 1/2 (* (sin kx) (* (sin th) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6))))))) (* (pow ky 2) (+ (* -1/2 (* (sin kx) (* (sin th) (+ (* -1/2 (/ (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6)))) (pow (sin kx) 2))) (+ (* 2/45 (/ 1 (pow (sin kx) 4))) (+ (* 2/3 (/ 1 (pow (sin kx) 6))) (/ 1 (pow (sin kx) 8)))))))) (+ (* -1/12 (* (sin kx) (* (sin th) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6))))))) (+ (* -1/240 (/ (sin th) (pow (sin kx) 3))) (* -1/5040 (/ (sin th) (sin kx)))))))))))))) (/ (sin th) (sin kx))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(sin th)
(+ (sin th) (* -1/2 (/ (* (pow kx 2) (sin th)) (pow (sin ky) 2))))
(+ (sin th) (* (pow kx 2) (+ (* -1/2 (/ (sin th) (pow (sin ky) 2))) (* 1/2 (* (pow kx 2) (* (pow (sin ky) 2) (* (sin th) (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (* 3/4 (/ 1 (pow (sin ky) 6)))))))))))
(+ (sin th) (* (pow kx 2) (+ (* -1/2 (/ (sin th) (pow (sin ky) 2))) (* (pow kx 2) (+ (* -1/2 (* (pow kx 2) (* (pow (sin ky) 2) (* (sin th) (+ (* -1/2 (/ (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (* 3/4 (/ 1 (pow (sin ky) 6)))) (pow (sin ky) 2))) (+ (* 2/45 (/ 1 (pow (sin ky) 4))) (+ (* 2/3 (/ 1 (pow (sin ky) 6))) (/ 1 (pow (sin ky) 8))))))))) (* 1/2 (* (pow (sin ky) 2) (* (sin th) (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (* 3/4 (/ 1 (pow (sin ky) 6))))))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (* th (sin ky)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* th (+ (* -1/6 (* (* (pow th 2) (sin ky)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))) (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))))
(* th (+ (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (* (pow th 2) (+ (* -1/6 (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))) (* 1/120 (* (* (pow th 2) (sin ky)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))))))))
(* th (+ (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (* (pow th 2) (+ (* -1/6 (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))) (* (pow th 2) (+ (* -1/5040 (* (* (pow th 2) (sin ky)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))) (* 1/120 (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
th
(* th (+ 1 (* -1/6 (pow th 2))))
(* th (+ 1 (* (pow th 2) (- (* 1/120 (pow th 2)) 1/6))))
(* th (+ 1 (* (pow th 2) (- (* (pow th 2) (+ 1/120 (* -1/5040 (pow th 2)))) 1/6))))
(sin th)
(sin th)
(sin th)
(sin th)
(sin th)
(sin th)
(sin th)
(sin th)
(/ (* ky (sin th)) (sin kx))
(* ky (+ (* (pow ky 2) (+ (* -1/2 (/ (sin th) (pow (sin kx) 3))) (* -1/6 (/ (sin th) (sin kx))))) (/ (sin th) (sin kx))))
(* ky (+ (* (pow ky 2) (+ (* -1/2 (/ (sin th) (pow (sin kx) 3))) (+ (* -1/6 (/ (sin th) (sin kx))) (* (pow ky 2) (+ (* 1/120 (/ (sin th) (sin kx))) (+ (* 1/12 (/ (sin th) (pow (sin kx) 3))) (* 1/2 (* (sin kx) (* (sin th) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6))))))))))))) (/ (sin th) (sin kx))))
(* ky (+ (* (pow ky 2) (+ (* -1/2 (/ (sin th) (pow (sin kx) 3))) (+ (* -1/6 (/ (sin th) (sin kx))) (* (pow ky 2) (+ (* 1/120 (/ (sin th) (sin kx))) (+ (* 1/12 (/ (sin th) (pow (sin kx) 3))) (+ (* 1/2 (* (sin kx) (* (sin th) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6))))))) (* (pow ky 2) (+ (* -1/2 (* (sin kx) (* (sin th) (+ (* -1/2 (/ (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6)))) (pow (sin kx) 2))) (+ (* 2/45 (/ 1 (pow (sin kx) 4))) (+ (* 2/3 (/ 1 (pow (sin kx) 6))) (/ 1 (pow (sin kx) 8)))))))) (+ (* -1/12 (* (sin kx) (* (sin th) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6))))))) (+ (* -1/240 (/ (sin th) (pow (sin kx) 3))) (* -1/5040 (/ (sin th) (sin kx)))))))))))))) (/ (sin th) (sin kx))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(sin th)
(+ (sin th) (* -1/2 (/ (* (pow kx 2) (sin th)) (pow (sin ky) 2))))
(+ (sin th) (* (pow kx 2) (+ (* -1/2 (/ (sin th) (pow (sin ky) 2))) (* 1/2 (* (pow kx 2) (* (pow (sin ky) 2) (* (sin th) (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (* 3/4 (/ 1 (pow (sin ky) 6)))))))))))
(+ (sin th) (* (pow kx 2) (+ (* -1/2 (/ (sin th) (pow (sin ky) 2))) (* (pow kx 2) (+ (* -1/2 (* (pow kx 2) (* (pow (sin ky) 2) (* (sin th) (+ (* -1/2 (/ (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (* 3/4 (/ 1 (pow (sin ky) 6)))) (pow (sin ky) 2))) (+ (* 2/45 (/ 1 (pow (sin ky) 4))) (+ (* 2/3 (/ 1 (pow (sin ky) 6))) (/ 1 (pow (sin ky) 8))))))))) (* 1/2 (* (pow (sin ky) 2) (* (sin th) (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (* 3/4 (/ 1 (pow (sin ky) 6))))))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (* th (sin ky)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* th (+ (* -1/6 (* (* (pow th 2) (sin ky)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))) (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))))
(* th (+ (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (* (pow th 2) (+ (* -1/6 (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))) (* 1/120 (* (* (pow th 2) (sin ky)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))))))))
(* th (+ (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (* (pow th 2) (+ (* -1/6 (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))) (* (pow th 2) (+ (* -1/5040 (* (* (pow th 2) (sin ky)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))) (* 1/120 (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(/ ky (sin kx))
(* ky (+ (* -1 (* (pow ky 2) (+ (* 1/6 (/ 1 (sin kx))) (* 1/2 (/ 1 (pow (sin kx) 3)))))) (/ 1 (sin kx))))
(* ky (+ (* (pow ky 2) (- (* (pow ky 2) (+ (* 1/120 (/ 1 (sin kx))) (+ (* 1/2 (* (sin kx) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6)))))) (* 1/12 (/ 1 (pow (sin kx) 3)))))) (+ (* 1/6 (/ 1 (sin kx))) (* 1/2 (/ 1 (pow (sin kx) 3)))))) (/ 1 (sin kx))))
(* ky (+ (* (pow ky 2) (- (* (pow ky 2) (+ (* 1/120 (/ 1 (sin kx))) (+ (* 1/12 (/ 1 (pow (sin kx) 3))) (+ (* 1/2 (* (sin kx) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6)))))) (* (pow ky 2) (- (+ (* -1/2 (* (sin kx) (+ (* -1/2 (/ (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6)))) (pow (sin kx) 2))) (+ (* 2/45 (/ 1 (pow (sin kx) 4))) (+ (* 2/3 (/ 1 (pow (sin kx) 6))) (/ 1 (pow (sin kx) 8))))))) (* -1/12 (* (sin kx) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6))))))) (+ (* 1/5040 (/ 1 (sin kx))) (* 1/240 (/ 1 (pow (sin kx) 3)))))))))) (+ (* 1/6 (/ 1 (sin kx))) (* 1/2 (/ 1 (pow (sin kx) 3)))))) (/ 1 (sin kx))))
(* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
1
(+ 1 (* -1/2 (/ (pow kx 2) (pow (sin ky) 2))))
(+ 1 (* (pow kx 2) (- (* 1/2 (* (pow kx 2) (* (pow (sin ky) 2) (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (* 3/4 (/ 1 (pow (sin ky) 6))))))) (* 1/2 (/ 1 (pow (sin ky) 2))))))
(+ 1 (* (pow kx 2) (- (* (pow kx 2) (+ (* -1/2 (* (pow kx 2) (* (pow (sin ky) 2) (+ (* -1/2 (/ (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (* 3/4 (/ 1 (pow (sin ky) 6)))) (pow (sin ky) 2))) (+ (* 2/45 (/ 1 (pow (sin ky) 4))) (+ (* 2/3 (/ 1 (pow (sin ky) 6))) (/ 1 (pow (sin ky) 8)))))))) (* 1/2 (* (pow (sin ky) 2) (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (* 3/4 (/ 1 (pow (sin ky) 6)))))))) (* 1/2 (/ 1 (pow (sin ky) 2))))))
(* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(sin ky)
(+ (sin ky) (* 1/2 (/ (pow kx 2) (sin ky))))
(+ (sin ky) (* (pow kx 2) (+ (* -1/2 (/ (* (pow kx 2) (+ 1/3 (* 1/4 (/ 1 (pow (sin ky) 2))))) (sin ky))) (* 1/2 (/ 1 (sin ky))))))
(+ (sin ky) (* (pow kx 2) (+ (* (pow kx 2) (+ (* -1/2 (/ (+ 1/3 (* 1/4 (/ 1 (pow (sin ky) 2)))) (sin ky))) (* 1/2 (/ (* (pow kx 2) (- 2/45 (* -1/2 (/ (+ 1/3 (* 1/4 (/ 1 (pow (sin ky) 2)))) (pow (sin ky) 2))))) (sin ky))))) (* 1/2 (/ 1 (sin ky))))))
(sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))
(sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))
(sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))
(sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))
(sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))
(sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))
(sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))
(sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))
(sin kx)
(+ (sin kx) (* 1/2 (/ (pow ky 2) (sin kx))))
(+ (sin kx) (* (pow ky 2) (+ (* -1/2 (/ (* (pow ky 2) (+ 1/3 (* 1/4 (/ 1 (pow (sin kx) 2))))) (sin kx))) (* 1/2 (/ 1 (sin kx))))))
(+ (sin kx) (* (pow ky 2) (+ (* (pow ky 2) (+ (* -1/2 (/ (+ 1/3 (* 1/4 (/ 1 (pow (sin kx) 2)))) (sin kx))) (* 1/2 (/ (* (pow ky 2) (- 2/45 (* -1/2 (/ (+ 1/3 (* 1/4 (/ 1 (pow (sin kx) 2)))) (pow (sin kx) 2))))) (sin kx))))) (* 1/2 (/ 1 (sin kx))))))
(sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))
(sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))
(sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))
(sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))
(sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))
(sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))
(sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))
(sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))
(+ 1/2 (* -1/2 (cos (* 2 ky))))
(+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (pow kx 2)))
(+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* (pow kx 2) (+ 1 (* -1/3 (pow kx 2))))))
(+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* (pow kx 2) (+ 1 (* (pow kx 2) (- (* 2/45 (pow kx 2)) 1/3))))))
(+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))
(+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))
(+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))
(+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))
(+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx)))))))
(+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx)))))))
(+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx)))))))
(+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx)))))))
(* 1/2 (- 1 (cos (* 2 kx))))
(+ (* 1/2 (- 1 (cos (* 2 kx)))) (pow ky 2))
(+ (* 1/2 (- 1 (cos (* 2 kx)))) (* (pow ky 2) (+ 1 (* -1/3 (pow ky 2)))))
(+ (* 1/2 (- 1 (cos (* 2 kx)))) (* (pow ky 2) (+ 1 (* (pow ky 2) (- (* 2/45 (pow ky 2)) 1/3)))))
(+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))
(+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))
(+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))
(+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))
(+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx))))))
(+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx))))))
(+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx))))))
(+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx))))))
(/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky)))))
(+ (* -1 (/ (pow kx 2) (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2))) (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky))))))
(+ (* (pow kx 2) (- (* (pow kx 2) (+ (* 1/3 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2))) (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3)))) (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2)))) (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky))))))
(+ (* (pow kx 2) (- (* (pow kx 2) (+ (* -1 (* (pow kx 2) (+ (* 2/45 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2))) (+ (* 2/3 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))) (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 4)))))) (+ (* 1/3 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2))) (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))))) (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2)))) (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky))))))
(/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))
(/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))
(/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))
(/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))
(/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx))))))))
(/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx))))))))
(/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx))))))))
(/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx))))))))
(/ 2 (- 1 (cos (* 2 kx))))
(+ (* -4 (/ (pow ky 2) (pow (- 1 (cos (* 2 kx))) 2))) (* 2 (/ 1 (- 1 (cos (* 2 kx))))))
(+ (* (pow ky 2) (- (* (pow ky 2) (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (* 4 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))))) (* 2 (/ 1 (- 1 (cos (* 2 kx))))))
(+ (* (pow ky 2) (- (* (pow ky 2) (+ (* -1 (* (pow ky 2) (+ (* 8/45 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (+ (* 2 (/ (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (- 1 (cos (* 2 kx))))) (* 8/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))))) (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))))) (* 4 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))))) (* 2 (/ 1 (- 1 (cos (* 2 kx))))))
(/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))
(/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))
(/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))
(/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))
(/ 1 (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx)))))))
(/ 1 (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx)))))))
(/ 1 (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx)))))))
(/ 1 (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx)))))))
(pow ky 2)
(* (pow ky 2) (+ 1 (* -1/3 (pow ky 2))))
(* (pow ky 2) (+ 1 (* (pow ky 2) (- (* 2/45 (pow ky 2)) 1/3))))
(* (pow ky 2) (+ 1 (* (pow ky 2) (- (* (pow ky 2) (+ 2/45 (* -1/315 (pow ky 2)))) 1/3))))
(+ 1/2 (* -1/2 (cos (* 2 ky))))
(+ 1/2 (* -1/2 (cos (* 2 ky))))
(+ 1/2 (* -1/2 (cos (* 2 ky))))
(+ 1/2 (* -1/2 (cos (* 2 ky))))
(+ 1/2 (* -1/2 (cos (neg (* -2 ky)))))
(+ 1/2 (* -1/2 (cos (neg (* -2 ky)))))
(+ 1/2 (* -1/2 (cos (neg (* -2 ky)))))
(+ 1/2 (* -1/2 (cos (neg (* -2 ky)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky)))))))
(+ (* -1/2 (* (* (pow kx 2) (* (sin ky) (sin th))) (sqrt (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))))) (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky))))))))
(+ (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky))))))) (* (pow kx 2) (+ (* -1/2 (* (* (sin ky) (sin th)) (sqrt (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))))) (* 1/2 (* (* (pow kx 2) (* (sin ky) (* (sin th) (+ (* 1/3 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2))) (* 3/4 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))))))) (sqrt (+ 1/2 (* -1/2 (cos (* 2 ky))))))))))
(+ (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky))))))) (* (pow kx 2) (+ (* -1/2 (* (* (sin ky) (sin th)) (sqrt (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))))) (* (pow kx 2) (+ (* -1/2 (* (* (pow kx 2) (* (sin ky) (* (sin th) (+ (* -1/2 (/ (+ (* 1/3 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2))) (* 3/4 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3)))) (+ 1/2 (* -1/2 (cos (* 2 ky)))))) (+ (* 2/45 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2))) (+ (* 2/3 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))) (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 4)))))))) (sqrt (+ 1/2 (* -1/2 (cos (* 2 ky))))))) (* 1/2 (* (* (sin ky) (* (sin th) (+ (* 1/3 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2))) (* 3/4 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3)))))) (sqrt (+ 1/2 (* -1/2 (cos (* 2 ky))))))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx))))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx))))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx))))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx))))))))))
(* (* ky (* (sin th) (sqrt 2))) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))
(* ky (+ (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* -2 (* (/ (sin th) (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (* -1/6 (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))))))))
(* ky (+ (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* -2 (* (/ (sin th) (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (+ (* -1/6 (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (* (pow ky 2) (+ (* 1/120 (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (+ (* 1/3 (* (/ (sin th) (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (* 1/2 (* (/ (* (sin th) (- (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (* 4 (/ 1 (* (pow (sqrt 2) 2) (pow (- 1 (cos (* 2 kx))) 3)))))) (sqrt 2)) (sqrt (- 1 (cos (* 2 kx))))))))))))))
(* ky (+ (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* -2 (* (/ (sin th) (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (+ (* -1/6 (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (* (pow ky 2) (+ (* 1/120 (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (+ (* 1/3 (* (/ (sin th) (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (+ (* 1/2 (* (/ (* (sin th) (- (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (* 4 (/ 1 (* (pow (sqrt 2) 2) (pow (- 1 (cos (* 2 kx))) 3)))))) (sqrt 2)) (sqrt (- 1 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* -1/2 (* (/ (* (sin th) (+ (* -2 (/ (- (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (* 4 (/ 1 (* (pow (sqrt 2) 2) (pow (- 1 (cos (* 2 kx))) 3))))) (* (pow (sqrt 2) 2) (- 1 (cos (* 2 kx)))))) (+ (* 8/45 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (+ (* 2 (/ (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (- 1 (cos (* 2 kx))))) (* 8/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))))) (sqrt 2)) (sqrt (- 1 (cos (* 2 kx)))))) (+ (* -1/12 (* (/ (* (sin th) (- (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (* 4 (/ 1 (* (pow (sqrt 2) 2) (pow (- 1 (cos (* 2 kx))) 3)))))) (sqrt 2)) (sqrt (- 1 (cos (* 2 kx)))))) (+ (* -1/60 (* (/ (sin th) (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (* -1/5040 (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))))))))))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(* (* th (sin ky)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(* th (+ (* -1/6 (* (* (pow th 2) (sin ky)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))) (* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))))
(* th (+ (* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (* (pow th 2) (+ (* -1/6 (* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))) (* 1/120 (* (* (pow th 2) (sin ky)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))))))))
(* th (+ (* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (* (pow th 2) (+ (* -1/6 (* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))) (* (pow th 2) (+ (* -1/5040 (* (* (pow th 2) (sin ky)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))) (* 1/120 (* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(/ 1 (sin kx))
(+ (* -1 (* (pow ky 2) (+ (* 1/6 (/ 1 (sin kx))) (* 1/2 (/ 1 (pow (sin kx) 3)))))) (/ 1 (sin kx)))
(+ (* -1 (* (pow ky 2) (+ (* 1/6 (/ 1 (sin kx))) (* 1/2 (/ 1 (pow (sin kx) 3)))))) (/ 1 (sin kx)))
(+ (* -1 (* (pow ky 2) (+ (* 1/6 (/ 1 (sin kx))) (* 1/2 (/ 1 (pow (sin kx) 3)))))) (/ 1 (sin kx)))
(* -1 (* (pow ky 2) (+ (* 1/6 (/ 1 (sin kx))) (* 1/2 (/ 1 (pow (sin kx) 3))))))
(* (pow ky 2) (+ (* -1 (+ (* 1/6 (/ 1 (sin kx))) (* 1/2 (/ 1 (pow (sin kx) 3))))) (/ 1 (* (pow ky 2) (sin kx)))))
(* (pow ky 2) (+ (* -1 (+ (* 1/6 (/ 1 (sin kx))) (* 1/2 (/ 1 (pow (sin kx) 3))))) (/ 1 (* (pow ky 2) (sin kx)))))
(* (pow ky 2) (+ (* -1 (+ (* 1/6 (/ 1 (sin kx))) (* 1/2 (/ 1 (pow (sin kx) 3))))) (/ 1 (* (pow ky 2) (sin kx)))))
(* -1 (* (pow ky 2) (+ (* 1/6 (/ 1 (sin kx))) (* 1/2 (/ 1 (pow (sin kx) 3))))))
(* (pow ky 2) (+ (* -1 (+ (* 1/6 (/ 1 (sin kx))) (* 1/2 (/ 1 (pow (sin kx) 3))))) (/ 1 (* (pow ky 2) (sin kx)))))
(* (pow ky 2) (+ (* -1 (+ (* 1/6 (/ 1 (sin kx))) (* 1/2 (/ 1 (pow (sin kx) 3))))) (/ 1 (* (pow ky 2) (sin kx)))))
(* (pow ky 2) (+ (* -1 (+ (* 1/6 (/ 1 (sin kx))) (* 1/2 (/ 1 (pow (sin kx) 3))))) (/ 1 (* (pow ky 2) (sin kx)))))
(* -1/2 (/ (pow ky 2) (pow kx 3)))
(/ (+ (* -1/2 (pow ky 2)) (* (pow kx 2) (+ 1 (* -5/12 (pow ky 2))))) (pow kx 3))
(/ (+ (* -1/2 (pow ky 2)) (* (pow kx 2) (+ 1 (+ (* -5/12 (pow ky 2)) (* (pow kx 2) (+ 1/6 (* -71/720 (pow ky 2)))))))) (pow kx 3))
(/ (+ (* -1/2 (pow ky 2)) (* (pow kx 2) (+ 1 (+ (* -5/12 (pow ky 2)) (* (pow kx 2) (+ 1/6 (+ (* -71/720 (pow ky 2)) (* (pow kx 2) (+ 7/360 (* -37/2016 (pow ky 2))))))))))) (pow kx 3))
(+ (* -1 (* (pow ky 2) (+ (* 1/6 (/ 1 (sin kx))) (* 1/2 (/ 1 (pow (sin kx) 3)))))) (/ 1 (sin kx)))
(+ (* -1 (* (pow ky 2) (+ (* 1/6 (/ 1 (sin kx))) (* 1/2 (/ 1 (pow (sin kx) 3)))))) (/ 1 (sin kx)))
(+ (* -1 (* (pow ky 2) (+ (* 1/6 (/ 1 (sin kx))) (* 1/2 (/ 1 (pow (sin kx) 3)))))) (/ 1 (sin kx)))
(+ (* -1 (* (pow ky 2) (+ (* 1/6 (/ 1 (sin kx))) (* 1/2 (/ 1 (pow (sin kx) 3)))))) (/ 1 (sin kx)))
(+ (* -1 (* (pow ky 2) (+ (* 1/6 (/ 1 (sin kx))) (* 1/2 (/ 1 (pow (sin kx) 3)))))) (/ 1 (sin kx)))
(+ (* -1 (* (pow ky 2) (+ (* 1/6 (/ 1 (sin kx))) (* 1/2 (/ 1 (pow (sin kx) 3)))))) (/ 1 (sin kx)))
(+ (* -1 (* (pow ky 2) (+ (* 1/6 (/ 1 (sin kx))) (* 1/2 (/ 1 (pow (sin kx) 3)))))) (/ 1 (sin kx)))
(+ (* -1 (* (pow ky 2) (+ (* 1/6 (/ 1 (sin kx))) (* 1/2 (/ 1 (pow (sin kx) 3)))))) (/ 1 (sin kx)))
(/ (* ky (sin th)) (sin kx))
(* ky (+ (* (pow ky 2) (+ (* -1/2 (/ (sin th) (pow (sin kx) 3))) (* -1/6 (/ (sin th) (sin kx))))) (/ (sin th) (sin kx))))
(* ky (+ (* (pow ky 2) (+ (* -1/2 (/ (sin th) (pow (sin kx) 3))) (+ (* -1/6 (/ (sin th) (sin kx))) (* (pow ky 2) (+ (* 1/120 (/ (sin th) (sin kx))) (+ (* 1/12 (/ (sin th) (pow (sin kx) 3))) (* 1/2 (* (sin kx) (* (sin th) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6))))))))))))) (/ (sin th) (sin kx))))
(* ky (+ (* (pow ky 2) (+ (* -1/2 (/ (sin th) (pow (sin kx) 3))) (+ (* -1/6 (/ (sin th) (sin kx))) (* (pow ky 2) (+ (* 1/120 (/ (sin th) (sin kx))) (+ (* 1/12 (/ (sin th) (pow (sin kx) 3))) (+ (* 1/2 (* (sin kx) (* (sin th) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6))))))) (* (pow ky 2) (+ (* -1/2 (* (sin kx) (* (sin th) (+ (* -1/2 (/ (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6)))) (pow (sin kx) 2))) (+ (* 2/45 (/ 1 (pow (sin kx) 4))) (+ (* 2/3 (/ 1 (pow (sin kx) 6))) (/ 1 (pow (sin kx) 8)))))))) (+ (* -1/12 (* (sin kx) (* (sin th) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6))))))) (+ (* -1/240 (/ (sin th) (pow (sin kx) 3))) (* -1/5040 (/ (sin th) (sin kx)))))))))))))) (/ (sin th) (sin kx))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(sin th)
(+ (sin th) (* -1/2 (/ (* (pow kx 2) (sin th)) (pow (sin ky) 2))))
(+ (sin th) (* (pow kx 2) (+ (* -1/2 (/ (sin th) (pow (sin ky) 2))) (* 1/2 (* (pow kx 2) (* (pow (sin ky) 2) (* (sin th) (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (* 3/4 (/ 1 (pow (sin ky) 6)))))))))))
(+ (sin th) (* (pow kx 2) (+ (* -1/2 (/ (sin th) (pow (sin ky) 2))) (* (pow kx 2) (+ (* -1/2 (* (pow kx 2) (* (pow (sin ky) 2) (* (sin th) (+ (* -1/2 (/ (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (* 3/4 (/ 1 (pow (sin ky) 6)))) (pow (sin ky) 2))) (+ (* 2/45 (/ 1 (pow (sin ky) 4))) (+ (* 2/3 (/ 1 (pow (sin ky) 6))) (/ 1 (pow (sin ky) 8))))))))) (* 1/2 (* (pow (sin ky) 2) (* (sin th) (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (* 3/4 (/ 1 (pow (sin ky) 6))))))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (* th (sin ky)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* th (+ (* -1/6 (* (* (pow th 2) (sin ky)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))) (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))))
(* th (+ (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (* (pow th 2) (+ (* -1/6 (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))) (* 1/120 (* (* (pow th 2) (sin ky)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))))))))
(* th (+ (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (* (pow th 2) (+ (* -1/6 (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))) (* (pow th 2) (+ (* -1/5040 (* (* (pow th 2) (sin ky)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))) (* 1/120 (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(/ ky (sin kx))
(* ky (+ (* -1 (* (pow ky 2) (+ (* 1/6 (/ 1 (sin kx))) (* 1/2 (/ 1 (pow (sin kx) 3)))))) (/ 1 (sin kx))))
(* ky (+ (* (pow ky 2) (- (* (pow ky 2) (+ (* 1/120 (/ 1 (sin kx))) (+ (* 1/2 (* (sin kx) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6)))))) (* 1/12 (/ 1 (pow (sin kx) 3)))))) (+ (* 1/6 (/ 1 (sin kx))) (* 1/2 (/ 1 (pow (sin kx) 3)))))) (/ 1 (sin kx))))
(* ky (+ (* (pow ky 2) (- (* (pow ky 2) (+ (* 1/120 (/ 1 (sin kx))) (+ (* 1/12 (/ 1 (pow (sin kx) 3))) (+ (* 1/2 (* (sin kx) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6)))))) (* (pow ky 2) (- (+ (* -1/2 (* (sin kx) (+ (* -1/2 (/ (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6)))) (pow (sin kx) 2))) (+ (* 2/45 (/ 1 (pow (sin kx) 4))) (+ (* 2/3 (/ 1 (pow (sin kx) 6))) (/ 1 (pow (sin kx) 8))))))) (* -1/12 (* (sin kx) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6))))))) (+ (* 1/5040 (/ 1 (sin kx))) (* 1/240 (/ 1 (pow (sin kx) 3)))))))))) (+ (* 1/6 (/ 1 (sin kx))) (* 1/2 (/ 1 (pow (sin kx) 3)))))) (/ 1 (sin kx))))
(* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
1
(+ 1 (* -1/2 (/ (pow kx 2) (pow (sin ky) 2))))
(+ 1 (* (pow kx 2) (- (* 1/2 (* (pow kx 2) (* (pow (sin ky) 2) (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (* 3/4 (/ 1 (pow (sin ky) 6))))))) (* 1/2 (/ 1 (pow (sin ky) 2))))))
(+ 1 (* (pow kx 2) (- (* (pow kx 2) (+ (* -1/2 (* (pow kx 2) (* (pow (sin ky) 2) (+ (* -1/2 (/ (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (* 3/4 (/ 1 (pow (sin ky) 6)))) (pow (sin ky) 2))) (+ (* 2/45 (/ 1 (pow (sin ky) 4))) (+ (* 2/3 (/ 1 (pow (sin ky) 6))) (/ 1 (pow (sin ky) 8)))))))) (* 1/2 (* (pow (sin ky) 2) (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (* 3/4 (/ 1 (pow (sin ky) 6)))))))) (* 1/2 (/ 1 (pow (sin ky) 2))))))
(* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(/ ky (sin kx))
(* ky (+ (* -1 (* (pow ky 2) (+ (* 1/6 (/ 1 (sin kx))) (* 1/2 (/ 1 (pow (sin kx) 3)))))) (/ 1 (sin kx))))
(* ky (+ (* -1 (* (pow ky 2) (+ (* 1/6 (/ 1 (sin kx))) (* 1/2 (/ 1 (pow (sin kx) 3)))))) (/ 1 (sin kx))))
(* ky (+ (* -1 (* (pow ky 2) (+ (* 1/6 (/ 1 (sin kx))) (* 1/2 (/ 1 (pow (sin kx) 3)))))) (/ 1 (sin kx))))
(* -1 (* (pow ky 3) (+ (* 1/6 (/ 1 (sin kx))) (* 1/2 (/ 1 (pow (sin kx) 3))))))
(* (pow ky 3) (+ (* -1 (+ (* 1/6 (/ 1 (sin kx))) (* 1/2 (/ 1 (pow (sin kx) 3))))) (/ 1 (* (pow ky 2) (sin kx)))))
(* (pow ky 3) (+ (* -1 (+ (* 1/6 (/ 1 (sin kx))) (* 1/2 (/ 1 (pow (sin kx) 3))))) (/ 1 (* (pow ky 2) (sin kx)))))
(* (pow ky 3) (+ (* -1 (+ (* 1/6 (/ 1 (sin kx))) (* 1/2 (/ 1 (pow (sin kx) 3))))) (/ 1 (* (pow ky 2) (sin kx)))))
(* -1 (* (pow ky 3) (+ (* 1/6 (/ 1 (sin kx))) (* 1/2 (/ 1 (pow (sin kx) 3))))))
(* -1 (* (pow ky 3) (- (+ (* 1/6 (/ 1 (sin kx))) (* 1/2 (/ 1 (pow (sin kx) 3)))) (/ 1 (* (pow ky 2) (sin kx))))))
(* -1 (* (pow ky 3) (- (+ (* 1/6 (/ 1 (sin kx))) (* 1/2 (/ 1 (pow (sin kx) 3)))) (/ 1 (* (pow ky 2) (sin kx))))))
(* -1 (* (pow ky 3) (- (+ (* 1/6 (/ 1 (sin kx))) (* 1/2 (/ 1 (pow (sin kx) 3)))) (/ 1 (* (pow ky 2) (sin kx))))))
(* -1/2 (/ (pow ky 3) (pow kx 3)))
(/ (+ (* -1/2 (pow ky 3)) (* (pow kx 2) (* ky (+ 1 (* -5/12 (pow ky 2)))))) (pow kx 3))
(/ (+ (* -1/2 (pow ky 3)) (* (pow kx 2) (+ (* ky (+ 1 (* -5/12 (pow ky 2)))) (* (pow kx 2) (* ky (+ 1/6 (* -71/720 (pow ky 2)))))))) (pow kx 3))
(/ (+ (* -1/2 (pow ky 3)) (* (pow kx 2) (+ (* ky (+ 1 (* -5/12 (pow ky 2)))) (* (pow kx 2) (+ (* ky (+ 1/6 (* -71/720 (pow ky 2)))) (* (pow kx 2) (* ky (+ 7/360 (* -37/2016 (pow ky 2)))))))))) (pow kx 3))
(* ky (+ (* -1 (* (pow ky 2) (+ (* 1/6 (/ 1 (sin kx))) (* 1/2 (/ 1 (pow (sin kx) 3)))))) (/ 1 (sin kx))))
(* ky (+ (* -1 (* (pow ky 2) (+ (* 1/6 (/ 1 (sin kx))) (* 1/2 (/ 1 (pow (sin kx) 3)))))) (/ 1 (sin kx))))
(* ky (+ (* -1 (* (pow ky 2) (+ (* 1/6 (/ 1 (sin kx))) (* 1/2 (/ 1 (pow (sin kx) 3)))))) (/ 1 (sin kx))))
(* ky (+ (* -1 (* (pow ky 2) (+ (* 1/6 (/ 1 (sin kx))) (* 1/2 (/ 1 (pow (sin kx) 3)))))) (/ 1 (sin kx))))
(* ky (+ (* -1 (* (pow ky 2) (+ (* 1/6 (/ 1 (sin kx))) (* 1/2 (/ 1 (pow (sin kx) 3)))))) (/ 1 (sin kx))))
(* ky (+ (* -1 (* (pow ky 2) (+ (* 1/6 (/ 1 (sin kx))) (* 1/2 (/ 1 (pow (sin kx) 3)))))) (/ 1 (sin kx))))
(* ky (+ (* -1 (* (pow ky 2) (+ (* 1/6 (/ 1 (sin kx))) (* 1/2 (/ 1 (pow (sin kx) 3)))))) (/ 1 (sin kx))))
(* ky (+ (* -1 (* (pow ky 2) (+ (* 1/6 (/ 1 (sin kx))) (* 1/2 (/ 1 (pow (sin kx) 3)))))) (/ 1 (sin kx))))
kx
(* kx (+ 1 (* -1/6 (pow kx 2))))
(* kx (+ 1 (* (pow kx 2) (- (* 1/120 (pow kx 2)) 1/6))))
(* kx (+ 1 (* (pow kx 2) (- (* (pow kx 2) (+ 1/120 (* -1/5040 (pow kx 2)))) 1/6))))
(sin kx)
(sin kx)
(sin kx)
(sin kx)
(sin kx)
(sin kx)
(sin kx)
(sin kx)
(pow ky 2)
(* (pow ky 2) (+ 1 (* -1/3 (pow ky 2))))
(* (pow ky 2) (+ 1 (* (pow ky 2) (- (* 2/45 (pow ky 2)) 1/3))))
(* (pow ky 2) (+ 1 (* (pow ky 2) (- (* (pow ky 2) (+ 2/45 (* -1/315 (pow ky 2)))) 1/3))))
(pow (sin ky) 2)
(pow (sin ky) 2)
(pow (sin ky) 2)
(pow (sin ky) 2)
(pow (sin ky) 2)
(pow (sin ky) 2)
(pow (sin ky) 2)
(pow (sin ky) 2)
(pow kx 2)
(* (pow kx 2) (+ 1 (* -1/3 (pow kx 2))))
(* (pow kx 2) (+ 1 (* (pow kx 2) (- (* 2/45 (pow kx 2)) 1/3))))
(* (pow kx 2) (+ 1 (* (pow kx 2) (- (* (pow kx 2) (+ 2/45 (* -1/315 (pow kx 2)))) 1/3))))
(pow (sin kx) 2)
(pow (sin kx) 2)
(pow (sin kx) 2)
(pow (sin kx) 2)
(pow (sin kx) 2)
(pow (sin kx) 2)
(pow (sin kx) 2)
(pow (sin kx) 2)
(* 2 (pow kx 2))
(* (pow kx 2) (+ 2 (* -2/3 (pow kx 2))))
(* (pow kx 2) (+ 2 (* (pow kx 2) (- (* 4/45 (pow kx 2)) 2/3))))
(* (pow kx 2) (+ 2 (* (pow kx 2) (- (* (pow kx 2) (+ 4/45 (* -2/315 (pow kx 2)))) 2/3))))
(- 1 (cos (* 2 kx)))
(- 1 (cos (* 2 kx)))
(- 1 (cos (* 2 kx)))
(- 1 (cos (* 2 kx)))
(- 1 (cos (neg (* -2 kx))))
(- 1 (cos (neg (* -2 kx))))
(- 1 (cos (neg (* -2 kx))))
(- 1 (cos (neg (* -2 kx))))
(sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky))))))
(+ (sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky)))))) (* -1/2 (* (pow kx 2) (sqrt (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))))))
(+ (sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky)))))) (* (pow kx 2) (+ (* -1/2 (sqrt (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3)))) (* 1/2 (* (* (pow kx 2) (+ (* 1/3 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2))) (* 3/4 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))))) (sqrt (+ 1/2 (* -1/2 (cos (* 2 ky))))))))))
(+ (sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky)))))) (* (pow kx 2) (+ (* -1/2 (sqrt (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3)))) (* (pow kx 2) (+ (* -1/2 (* (* (pow kx 2) (+ (* -1/2 (/ (+ (* 1/3 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2))) (* 3/4 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3)))) (+ 1/2 (* -1/2 (cos (* 2 ky)))))) (+ (* 2/45 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2))) (+ (* 2/3 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))) (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 4)))))) (sqrt (+ 1/2 (* -1/2 (cos (* 2 ky))))))) (* 1/2 (* (sqrt (+ 1/2 (* -1/2 (cos (* 2 ky))))) (+ (* 1/3 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2))) (* 3/4 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3)))))))))))
(sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))
(sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))
(sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))
(sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))
(sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx)))))))))
(sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx)))))))))
(sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx)))))))))
(sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx)))))))))
(* (sqrt 2) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))
(+ (* -2 (* (/ (pow ky 2) (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (* (sqrt 2) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))))
(+ (* (sqrt 2) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* -2 (* (/ 1 (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (* 1/2 (* (/ (* (pow ky 2) (- (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (* 4 (/ 1 (* (pow (sqrt 2) 2) (pow (- 1 (cos (* 2 kx))) 3)))))) (sqrt 2)) (sqrt (- 1 (cos (* 2 kx)))))))))
(+ (* (sqrt 2) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* -2 (* (/ 1 (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (* (pow ky 2) (+ (* -1/2 (* (/ (* (pow ky 2) (+ (* -2 (/ (- (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (* 4 (/ 1 (* (pow (sqrt 2) 2) (pow (- 1 (cos (* 2 kx))) 3))))) (* (pow (sqrt 2) 2) (- 1 (cos (* 2 kx)))))) (+ (* 8/45 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (+ (* 2 (/ (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (- 1 (cos (* 2 kx))))) (* 8/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))))) (sqrt 2)) (sqrt (- 1 (cos (* 2 kx)))))) (* 1/2 (* (/ (- (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (* 4 (/ 1 (* (pow (sqrt 2) 2) (pow (- 1 (cos (* 2 kx))) 3))))) (sqrt 2)) (sqrt (- 1 (cos (* 2 kx)))))))))))
(sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))
(sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))
(sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))
(sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))
(sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx))))))))
(sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx))))))))
(sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx))))))))
(sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx))))))))
(* (sin ky) (sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky)))))))
(+ (* -1/2 (* (* (pow kx 2) (sin ky)) (sqrt (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))))) (* (sin ky) (sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky))))))))
(+ (* (sin ky) (sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky))))))) (* (pow kx 2) (+ (* -1/2 (* (sin ky) (sqrt (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))))) (* 1/2 (* (* (pow kx 2) (* (sin ky) (+ (* 1/3 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2))) (* 3/4 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3)))))) (sqrt (+ 1/2 (* -1/2 (cos (* 2 ky))))))))))
(+ (* (sin ky) (sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky))))))) (* (pow kx 2) (+ (* -1/2 (* (sin ky) (sqrt (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))))) (* (pow kx 2) (+ (* -1/2 (* (* (pow kx 2) (* (sin ky) (+ (* -1/2 (/ (+ (* 1/3 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2))) (* 3/4 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3)))) (+ 1/2 (* -1/2 (cos (* 2 ky)))))) (+ (* 2/45 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2))) (+ (* 2/3 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))) (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 4))))))) (sqrt (+ 1/2 (* -1/2 (cos (* 2 ky))))))) (* 1/2 (* (* (sin ky) (+ (* 1/3 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2))) (* 3/4 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))))) (sqrt (+ 1/2 (* -1/2 (cos (* 2 ky))))))))))))
(* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx))))))))))
(* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx))))))))))
(* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx))))))))))
(* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx))))))))))
(* (* ky (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))
(* ky (+ (* (sqrt 2) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* -2 (* (/ 1 (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (* -1/6 (* (sqrt 2) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))))))))
(* ky (+ (* (sqrt 2) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* -2 (* (/ 1 (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (+ (* -1/6 (* (sqrt 2) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (* (pow ky 2) (+ (* 1/120 (* (sqrt 2) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (+ (* 1/3 (* (/ 1 (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (* 1/2 (* (/ (- (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (* 4 (/ 1 (* (pow (sqrt 2) 2) (pow (- 1 (cos (* 2 kx))) 3))))) (sqrt 2)) (sqrt (- 1 (cos (* 2 kx))))))))))))))
(* ky (+ (* (sqrt 2) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* -2 (* (/ 1 (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (+ (* -1/6 (* (sqrt 2) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (* (pow ky 2) (+ (* 1/120 (* (sqrt 2) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (+ (* 1/3 (* (/ 1 (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (+ (* 1/2 (* (/ (- (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (* 4 (/ 1 (* (pow (sqrt 2) 2) (pow (- 1 (cos (* 2 kx))) 3))))) (sqrt 2)) (sqrt (- 1 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* -1/2 (* (/ (+ (* -2 (/ (- (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (* 4 (/ 1 (* (pow (sqrt 2) 2) (pow (- 1 (cos (* 2 kx))) 3))))) (* (pow (sqrt 2) 2) (- 1 (cos (* 2 kx)))))) (+ (* 8/45 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (+ (* 2 (/ (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (- 1 (cos (* 2 kx))))) (* 8/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))))) (sqrt 2)) (sqrt (- 1 (cos (* 2 kx)))))) (+ (* -1/12 (* (/ (- (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (* 4 (/ 1 (* (pow (sqrt 2) 2) (pow (- 1 (cos (* 2 kx))) 3))))) (sqrt 2)) (sqrt (- 1 (cos (* 2 kx)))))) (+ (* -1/60 (* (/ 1 (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (* -1/5040 (* (sqrt 2) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))))))))))))))))
(* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(/ -1/6 kx)
(/ (- (* -1/36 (pow kx 2)) 1/6) kx)
(/ (- (* (pow kx 2) (- (* -7/2160 (pow kx 2)) 1/36)) 1/6) kx)
(/ (- (* (pow kx 2) (- (* (pow kx 2) (- (* -31/90720 (pow kx 2)) 7/2160)) 1/36)) 1/6) kx)
(/ -1/6 (sin kx))
(/ -1/6 (sin kx))
(/ -1/6 (sin kx))
(/ -1/6 (sin kx))
(/ -1/6 (sin kx))
(/ -1/6 (sin kx))
(/ -1/6 (sin kx))
(/ -1/6 (sin kx))

Outputs
(/ (* ky (sin th)) (sin kx))
(/.f64 (*.f64 ky (sin.f64 th)) (sin.f64 kx))
(* ky (+ (* (pow ky 2) (+ (* -1/2 (/ (sin th) (pow (sin kx) 3))) (* -1/6 (/ (sin th) (sin kx))))) (/ (sin th) (sin kx))))
(.f64 ky (fma.f64 (.f64 ky ky) (*.f64 (/.f64 (sin.f64 th) (sin.f64 kx)) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))) #s(literal -1/6 binary64))) (/.f64 (sin.f64 th) (sin.f64 kx))))
(* ky (+ (* (pow ky 2) (+ (* -1/2 (/ (sin th) (pow (sin kx) 3))) (+ (* -1/6 (/ (sin th) (sin kx))) (* (pow ky 2) (+ (* 1/120 (/ (sin th) (sin kx))) (+ (* 1/12 (/ (sin th) (pow (sin kx) 3))) (* 1/2 (* (sin kx) (* (sin th) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6))))))))))))) (/ (sin th) (sin kx))))
(.f64 ky (fma.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 (sin.f64 kx) (sin.f64 th)) (+.f64 (/.f64 #s(literal 1/3 binary64) (pow.f64 (sin.f64 kx) #s(literal 4 binary64))) (/.f64 #s(literal 3/4 binary64) (pow.f64 (sin.f64 kx) #s(literal 6 binary64))))) (.f64 (/.f64 (sin.f64 th) (sin.f64 kx)) (+.f64 #s(literal 1/120 binary64) (/.f64 #s(literal 1/12 binary64) (pow.f64 (sin.f64 kx) #s(literal 2 binary64)))))) (*.f64 (/.f64 (sin.f64 th) (sin.f64 kx)) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))) #s(literal -1/6 binary64)))) (/.f64 (sin.f64 th) (sin.f64 kx))))
(* ky (+ (* (pow ky 2) (+ (* -1/2 (/ (sin th) (pow (sin kx) 3))) (+ (* -1/6 (/ (sin th) (sin kx))) (* (pow ky 2) (+ (* 1/120 (/ (sin th) (sin kx))) (+ (* 1/12 (/ (sin th) (pow (sin kx) 3))) (+ (* 1/2 (* (sin kx) (* (sin th) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6))))))) (* (pow ky 2) (+ (* -1/2 (* (sin kx) (* (sin th) (+ (* -1/2 (/ (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6)))) (pow (sin kx) 2))) (+ (* 2/45 (/ 1 (pow (sin kx) 4))) (+ (* 2/3 (/ 1 (pow (sin kx) 6))) (/ 1 (pow (sin kx) 8)))))))) (+ (* -1/12 (* (sin kx) (* (sin th) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6))))))) (+ (* -1/240 (/ (sin th) (pow (sin kx) 3))) (* -1/5040 (/ (sin th) (sin kx)))))))))))))) (/ (sin th) (sin kx))))
(.f64 ky (fma.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 (/.f64 (sin.f64 th) (sin.f64 kx)) (+.f64 #s(literal 1/120 binary64) (/.f64 #s(literal 1/12 binary64) (pow.f64 (sin.f64 kx) #s(literal 2 binary64)))) (fma.f64 (.f64 ky ky) (fma.f64 #s(literal -1/2 binary64) (.f64 (.f64 (sin.f64 kx) (sin.f64 th)) (+.f64 (/.f64 (+.f64 (/.f64 #s(literal -1/6 binary64) (pow.f64 (sin.f64 kx) #s(literal 4 binary64))) (/.f64 #s(literal -3/8 binary64) (pow.f64 (sin.f64 kx) #s(literal 6 binary64)))) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))) (+.f64 (/.f64 #s(literal 2/45 binary64) (pow.f64 (sin.f64 kx) #s(literal 4 binary64))) (+.f64 (/.f64 #s(literal 2/3 binary64) (pow.f64 (sin.f64 kx) #s(literal 6 binary64))) (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 kx) #s(literal 8 binary64))))))) (fma.f64 (.f64 (.f64 (sin.f64 kx) (sin.f64 th)) (+.f64 (/.f64 #s(literal 1/3 binary64) (pow.f64 (sin.f64 kx) #s(literal 4 binary64))) (/.f64 #s(literal 3/4 binary64) (pow.f64 (sin.f64 kx) #s(literal 6 binary64))))) #s(literal -1/12 binary64) (.f64 (/.f64 (sin.f64 th) (sin.f64 kx)) (+.f64 (/.f64 #s(literal -1/240 binary64) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))) #s(literal -1/5040 binary64))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (sin.f64 kx) (sin.f64 th)) (+.f64 (/.f64 #s(literal 1/3 binary64) (pow.f64 (sin.f64 kx) #s(literal 4 binary64))) (/.f64 #s(literal 3/4 binary64) (pow.f64 (sin.f64 kx) #s(literal 6 binary64)))))))) (*.f64 (/.f64 (sin.f64 th) (sin.f64 kx)) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))) #s(literal -1/6 binary64)))) (/.f64 (sin.f64 th) (sin.f64 kx))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(sin th)
(sin.f64 th)
(+ (sin th) (* -1/2 (/ (* (pow kx 2) (sin th)) (pow (sin ky) 2))))
(fma.f64 #s(literal -1/2 binary64) (.f64 (.f64 kx kx) (/.f64 (sin.f64 th) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))) (sin.f64 th))
(+ (sin th) (* (pow kx 2) (+ (* -1/2 (/ (sin th) (pow (sin ky) 2))) (* 1/2 (* (pow kx 2) (* (pow (sin ky) 2) (* (sin th) (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (* 3/4 (/ 1 (pow (sin ky) 6)))))))))))
(fma.f64 (.f64 kx kx) (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 (.f64 kx kx) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) (.f64 (sin.f64 th) (+.f64 (/.f64 #s(literal 1/3 binary64) (pow.f64 (sin.f64 ky) #s(literal 4 binary64))) (/.f64 #s(literal 3/4 binary64) (pow.f64 (sin.f64 ky) #s(literal 6 binary64)))))) (/.f64 (.f64 #s(literal -1/2 binary64) (sin.f64 th)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))) (sin.f64 th))
(+ (sin th) (* (pow kx 2) (+ (* -1/2 (/ (sin th) (pow (sin ky) 2))) (* (pow kx 2) (+ (* -1/2 (* (pow kx 2) (* (pow (sin ky) 2) (* (sin th) (+ (* -1/2 (/ (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (* 3/4 (/ 1 (pow (sin ky) 6)))) (pow (sin ky) 2))) (+ (* 2/45 (/ 1 (pow (sin ky) 4))) (+ (* 2/3 (/ 1 (pow (sin ky) 6))) (/ 1 (pow (sin ky) 8))))))))) (* 1/2 (* (pow (sin ky) 2) (* (sin th) (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (* 3/4 (/ 1 (pow (sin ky) 6))))))))))))
(fma.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) (fma.f64 (.f64 #s(literal -1/2 binary64) (.f64 kx kx)) (.f64 (.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64)) (sin.f64 th)) (+.f64 (/.f64 (+.f64 (/.f64 #s(literal -1/6 binary64) (pow.f64 (sin.f64 ky) #s(literal 4 binary64))) (/.f64 #s(literal -3/8 binary64) (pow.f64 (sin.f64 ky) #s(literal 6 binary64)))) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) (+.f64 (/.f64 #s(literal 2/45 binary64) (pow.f64 (sin.f64 ky) #s(literal 4 binary64))) (+.f64 (/.f64 #s(literal 2/3 binary64) (pow.f64 (sin.f64 ky) #s(literal 6 binary64))) (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 ky) #s(literal 8 binary64))))))) (.f64 (.f64 #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) (.f64 (sin.f64 th) (+.f64 (/.f64 #s(literal 1/3 binary64) (pow.f64 (sin.f64 ky) #s(literal 4 binary64))) (/.f64 #s(literal 3/4 binary64) (pow.f64 (sin.f64 ky) #s(literal 6 binary64))))))) (/.f64 (.f64 #s(literal -1/2 binary64) (sin.f64 th)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))) (sin.f64 th))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (* th (sin ky)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (.f64 th (sin.f64 ky)))
(* th (+ (* -1/6 (* (* (pow th 2) (sin ky)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))) (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))))
(.f64 th (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/6 binary64) (.f64 (sin.f64 ky) (.f64 th th)) (sin.f64 ky))))
(* th (+ (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (* (pow th 2) (+ (* -1/6 (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))) (* 1/120 (* (* (pow th 2) (sin ky)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))))))))
(.f64 th (fma.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (.f64 (.f64 th th) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (fma.f64 #s(literal 1/120 binary64) (.f64 (sin.f64 ky) (.f64 th th)) (*.f64 #s(literal -1/6 binary64) (sin.f64 ky)))))))
(* th (+ (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (* (pow th 2) (+ (* -1/6 (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))) (* (pow th 2) (+ (* -1/5040 (* (* (pow th 2) (sin ky)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))) (* 1/120 (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))))))))))
(.f64 th (fma.f64 (.f64 th th) (fma.f64 (.f64 th th) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/5040 binary64) (.f64 (sin.f64 ky) (.f64 th th)) (.f64 #s(literal 1/120 binary64) (sin.f64 ky)))) (.f64 (.f64 #s(literal -1/6 binary64) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))) (.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(/ ky (sin kx))
(/.f64 ky (sin.f64 kx))
(* ky (+ (* -1 (* (pow ky 2) (+ (* 1/6 (/ 1 (sin kx))) (* 1/2 (/ 1 (pow (sin kx) 3)))))) (/ 1 (sin kx))))
(.f64 ky (fma.f64 (.f64 ky ky) (-.f64 (/.f64 #s(literal -1/6 binary64) (sin.f64 kx)) (/.f64 #s(literal 1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64)))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))
(* ky (+ (* (pow ky 2) (- (* (pow ky 2) (+ (* 1/120 (/ 1 (sin kx))) (+ (* 1/2 (* (sin kx) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6)))))) (* 1/12 (/ 1 (pow (sin kx) 3)))))) (+ (* 1/6 (/ 1 (sin kx))) (* 1/2 (/ 1 (pow (sin kx) 3)))))) (/ 1 (sin kx))))
(fma.f64 ky (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 (.f64 #s(literal 1/2 binary64) (sin.f64 kx)) (+.f64 (/.f64 #s(literal 1/3 binary64) (pow.f64 (sin.f64 kx) #s(literal 4 binary64))) (/.f64 #s(literal 3/4 binary64) (pow.f64 (sin.f64 kx) #s(literal 6 binary64)))) (+.f64 (/.f64 #s(literal 1/120 binary64) (sin.f64 kx)) (/.f64 #s(literal 1/12 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))))) (-.f64 (/.f64 #s(literal -1/6 binary64) (sin.f64 kx)) (/.f64 #s(literal 1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64)))))) (/.f64 ky (sin.f64 kx)))
(* ky (+ (* (pow ky 2) (- (* (pow ky 2) (+ (* 1/120 (/ 1 (sin kx))) (+ (* 1/12 (/ 1 (pow (sin kx) 3))) (+ (* 1/2 (* (sin kx) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6)))))) (* (pow ky 2) (- (+ (* -1/2 (* (sin kx) (+ (* -1/2 (/ (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6)))) (pow (sin kx) 2))) (+ (* 2/45 (/ 1 (pow (sin kx) 4))) (+ (* 2/3 (/ 1 (pow (sin kx) 6))) (/ 1 (pow (sin kx) 8))))))) (* -1/12 (* (sin kx) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6))))))) (+ (* 1/5040 (/ 1 (sin kx))) (* 1/240 (/ 1 (pow (sin kx) 3)))))))))) (+ (* 1/6 (/ 1 (sin kx))) (* 1/2 (/ 1 (pow (sin kx) 3)))))) (/ 1 (sin kx))))
(fma.f64 ky (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal 1/120 binary64) (sin.f64 kx)) (fma.f64 (.f64 ky ky) (+.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (sin.f64 kx)) (+.f64 (/.f64 (+.f64 (/.f64 #s(literal -1/6 binary64) (pow.f64 (sin.f64 kx) #s(literal 4 binary64))) (/.f64 #s(literal -3/8 binary64) (pow.f64 (sin.f64 kx) #s(literal 6 binary64)))) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))) (+.f64 (/.f64 #s(literal 2/45 binary64) (pow.f64 (sin.f64 kx) #s(literal 4 binary64))) (+.f64 (/.f64 #s(literal 2/3 binary64) (pow.f64 (sin.f64 kx) #s(literal 6 binary64))) (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 kx) #s(literal 8 binary64)))))) (fma.f64 (.f64 #s(literal -1/12 binary64) (sin.f64 kx)) (+.f64 (/.f64 #s(literal 1/3 binary64) (pow.f64 (sin.f64 kx) #s(literal 4 binary64))) (/.f64 #s(literal 3/4 binary64) (pow.f64 (sin.f64 kx) #s(literal 6 binary64)))) (/.f64 #s(literal -1/5040 binary64) (sin.f64 kx)))) (/.f64 #s(literal -1/240 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64)))) (fma.f64 (*.f64 #s(literal 1/2 binary64) (sin.f64 kx)) (+.f64 (/.f64 #s(literal 1/3 binary64) (pow.f64 (sin.f64 kx) #s(literal 4 binary64))) (/.f64 #s(literal 3/4 binary64) (pow.f64 (sin.f64 kx) #s(literal 6 binary64)))) (/.f64 #s(literal 1/12 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64)))))) (-.f64 (/.f64 #s(literal -1/6 binary64) (sin.f64 kx)) (/.f64 #s(literal 1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64)))))) (/.f64 ky (sin.f64 kx)))
(* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(*.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(*.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(*.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(*.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(*.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(*.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(*.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(*.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
1
#s(literal 1 binary64)
(+ 1 (* -1/2 (/ (pow kx 2) (pow (sin ky) 2))))
(fma.f64 (*.f64 kx kx) (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) #s(literal 1 binary64))
(+ 1 (* (pow kx 2) (- (* 1/2 (* (pow kx 2) (* (pow (sin ky) 2) (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (* 3/4 (/ 1 (pow (sin ky) 6))))))) (* 1/2 (/ 1 (pow (sin ky) 2))))))
(fma.f64 (.f64 kx kx) (fma.f64 (.f64 #s(literal 1/2 binary64) (.f64 kx kx)) (.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64)) (+.f64 (/.f64 #s(literal 1/3 binary64) (pow.f64 (sin.f64 ky) #s(literal 4 binary64))) (/.f64 #s(literal 3/4 binary64) (pow.f64 (sin.f64 ky) #s(literal 6 binary64))))) (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))) #s(literal 1 binary64))
(+ 1 (* (pow kx 2) (- (* (pow kx 2) (+ (* -1/2 (* (pow kx 2) (* (pow (sin ky) 2) (+ (* -1/2 (/ (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (* 3/4 (/ 1 (pow (sin ky) 6)))) (pow (sin ky) 2))) (+ (* 2/45 (/ 1 (pow (sin ky) 4))) (+ (* 2/3 (/ 1 (pow (sin ky) 6))) (/ 1 (pow (sin ky) 8)))))))) (* 1/2 (* (pow (sin ky) 2) (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (* 3/4 (/ 1 (pow (sin ky) 6)))))))) (* 1/2 (/ 1 (pow (sin ky) 2))))))
(fma.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) (fma.f64 #s(literal -1/2 binary64) (.f64 (.f64 (.f64 kx kx) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) (+.f64 (/.f64 (+.f64 (/.f64 #s(literal -1/6 binary64) (pow.f64 (sin.f64 ky) #s(literal 4 binary64))) (/.f64 #s(literal -3/8 binary64) (pow.f64 (sin.f64 ky) #s(literal 6 binary64)))) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) (+.f64 (/.f64 #s(literal 2/45 binary64) (pow.f64 (sin.f64 ky) #s(literal 4 binary64))) (+.f64 (/.f64 #s(literal 2/3 binary64) (pow.f64 (sin.f64 ky) #s(literal 6 binary64))) (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 ky) #s(literal 8 binary64))))))) (.f64 (*.f64 #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) (+.f64 (/.f64 #s(literal 1/3 binary64) (pow.f64 (sin.f64 ky) #s(literal 4 binary64))) (/.f64 #s(literal 3/4 binary64) (pow.f64 (sin.f64 ky) #s(literal 6 binary64)))))) (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))) #s(literal 1 binary64))
(* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(*.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(*.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(*.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(*.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(*.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(*.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(*.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(*.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
ky
(* ky (+ 1 (* -1/6 (pow ky 2))))
(fma.f64 ky (.f64 (.f64 ky ky) #s(literal -1/6 binary64)) ky)
(* ky (+ 1 (* (pow ky 2) (- (* 1/120 (pow ky 2)) 1/6))))
(.f64 ky (fma.f64 (.f64 ky ky) (fma.f64 (*.f64 ky ky) #s(literal 1/120 binary64) #s(literal -1/6 binary64)) #s(literal 1 binary64)))
(* ky (+ 1 (* (pow ky 2) (- (* (pow ky 2) (+ 1/120 (* -1/5040 (pow ky 2)))) 1/6))))
(fma.f64 ky (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) #s(literal -1/6 binary64))) ky)
(sin ky)
(sin.f64 ky)
(sin ky)
(sin.f64 ky)
(sin ky)
(sin.f64 ky)
(sin ky)
(sin.f64 ky)
(sin ky)
(sin.f64 ky)
(sin ky)
(sin.f64 ky)
(sin ky)
(sin.f64 ky)
(sin ky)
(sin.f64 ky)
(sin kx)
(sin.f64 kx)
(+ (sin kx) (* 1/2 (/ (pow ky 2) (sin kx))))
(fma.f64 (*.f64 ky ky) (/.f64 #s(literal 1/2 binary64) (sin.f64 kx)) (sin.f64 kx))
(+ (sin kx) (* (pow ky 2) (+ (* -1/2 (/ (* (pow ky 2) (+ 1/3 (* 1/4 (/ 1 (pow (sin kx) 2))))) (sin kx))) (* 1/2 (/ 1 (sin kx))))))
(fma.f64 (.f64 ky ky) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (*.f64 ky ky) (+.f64 #s(literal 1/3 binary64) (/.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))) (sin.f64 kx)) (/.f64 #s(literal 1/2 binary64) (sin.f64 kx))) (sin.f64 kx))
(+ (sin kx) (* (pow ky 2) (+ (* (pow ky 2) (+ (* -1/2 (/ (+ 1/3 (* 1/4 (/ 1 (pow (sin kx) 2)))) (sin kx))) (* 1/2 (/ (* (pow ky 2) (- 2/45 (* -1/2 (/ (+ 1/3 (* 1/4 (/ 1 (pow (sin kx) 2)))) (pow (sin kx) 2))))) (sin kx))))) (* 1/2 (/ 1 (sin kx))))))
(fma.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 #s(literal 1/2 binary64) (.f64 (-.f64 #s(literal 2/45 binary64) (/.f64 (+.f64 #s(literal -1/6 binary64) (/.f64 #s(literal -1/8 binary64) (pow.f64 (sin.f64 kx) #s(literal 2 binary64)))) (pow.f64 (sin.f64 kx) #s(literal 2 binary64)))) (/.f64 (.f64 ky ky) (sin.f64 kx))) (/.f64 (+.f64 #s(literal -1/6 binary64) (/.f64 #s(literal -1/8 binary64) (pow.f64 (sin.f64 kx) #s(literal 2 binary64)))) (sin.f64 kx))) (/.f64 #s(literal 1/2 binary64) (sin.f64 kx))) (sin.f64 kx))
(sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))
(hypot.f64 (sin.f64 kx) (sin.f64 ky))
(sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))
(hypot.f64 (sin.f64 kx) (sin.f64 ky))
(sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))
(hypot.f64 (sin.f64 kx) (sin.f64 ky))
(sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))
(hypot.f64 (sin.f64 kx) (sin.f64 ky))
(sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))
(hypot.f64 (sin.f64 kx) (sin.f64 ky))
(sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))
(hypot.f64 (sin.f64 kx) (sin.f64 ky))
(sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))
(hypot.f64 (sin.f64 kx) (sin.f64 ky))
(sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))
(hypot.f64 (sin.f64 kx) (sin.f64 ky))
(sin ky)
(sin.f64 ky)
(+ (sin ky) (* 1/2 (/ (pow kx 2) (sin ky))))
(fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 kx kx) (sin.f64 ky)) (sin.f64 ky))
(+ (sin ky) (* (pow kx 2) (+ (* -1/2 (/ (* (pow kx 2) (+ 1/3 (* 1/4 (/ 1 (pow (sin ky) 2))))) (sin ky))) (* 1/2 (/ 1 (sin ky))))))
(fma.f64 (.f64 kx kx) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (*.f64 kx kx) (+.f64 #s(literal 1/3 binary64) (/.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (sin.f64 ky)) (/.f64 #s(literal 1/2 binary64) (sin.f64 ky))) (sin.f64 ky))
(+ (sin ky) (* (pow kx 2) (+ (* (pow kx 2) (+ (* -1/2 (/ (+ 1/3 (* 1/4 (/ 1 (pow (sin ky) 2)))) (sin ky))) (* 1/2 (/ (* (pow kx 2) (- 2/45 (* -1/2 (/ (+ 1/3 (* 1/4 (/ 1 (pow (sin ky) 2)))) (pow (sin ky) 2))))) (sin ky))))) (* 1/2 (/ 1 (sin ky))))))
(fma.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 kx kx) (-.f64 #s(literal 2/45 binary64) (/.f64 (+.f64 #s(literal -1/6 binary64) (/.f64 #s(literal -1/8 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (sin.f64 ky)) (/.f64 (+.f64 #s(literal -1/6 binary64) (/.f64 #s(literal -1/8 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))) (sin.f64 ky))) (/.f64 #s(literal 1/2 binary64) (sin.f64 ky))) (sin.f64 ky))
(sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))
(hypot.f64 (sin.f64 kx) (sin.f64 ky))
(sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))
(hypot.f64 (sin.f64 kx) (sin.f64 ky))
(sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))
(hypot.f64 (sin.f64 kx) (sin.f64 ky))
(sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))
(hypot.f64 (sin.f64 kx) (sin.f64 ky))
(sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))
(hypot.f64 (sin.f64 kx) (sin.f64 ky))
(sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))
(hypot.f64 (sin.f64 kx) (sin.f64 ky))
(sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))
(hypot.f64 (sin.f64 kx) (sin.f64 ky))
(sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))
(hypot.f64 (sin.f64 kx) (sin.f64 ky))
(/ (* ky (sin th)) (sin kx))
(/.f64 (*.f64 ky (sin.f64 th)) (sin.f64 kx))
(* ky (+ (* (pow ky 2) (+ (* -1/2 (/ (sin th) (pow (sin kx) 3))) (* -1/6 (/ (sin th) (sin kx))))) (/ (sin th) (sin kx))))
(.f64 ky (fma.f64 (.f64 ky ky) (*.f64 (/.f64 (sin.f64 th) (sin.f64 kx)) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))) #s(literal -1/6 binary64))) (/.f64 (sin.f64 th) (sin.f64 kx))))
(* ky (+ (* (pow ky 2) (+ (* -1/2 (/ (sin th) (pow (sin kx) 3))) (+ (* -1/6 (/ (sin th) (sin kx))) (* (pow ky 2) (+ (* 1/120 (/ (sin th) (sin kx))) (+ (* 1/12 (/ (sin th) (pow (sin kx) 3))) (* 1/2 (* (sin kx) (* (sin th) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6))))))))))))) (/ (sin th) (sin kx))))
(.f64 ky (fma.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 (sin.f64 kx) (sin.f64 th)) (+.f64 (/.f64 #s(literal 1/3 binary64) (pow.f64 (sin.f64 kx) #s(literal 4 binary64))) (/.f64 #s(literal 3/4 binary64) (pow.f64 (sin.f64 kx) #s(literal 6 binary64))))) (.f64 (/.f64 (sin.f64 th) (sin.f64 kx)) (+.f64 #s(literal 1/120 binary64) (/.f64 #s(literal 1/12 binary64) (pow.f64 (sin.f64 kx) #s(literal 2 binary64)))))) (*.f64 (/.f64 (sin.f64 th) (sin.f64 kx)) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))) #s(literal -1/6 binary64)))) (/.f64 (sin.f64 th) (sin.f64 kx))))
(* ky (+ (* (pow ky 2) (+ (* -1/2 (/ (sin th) (pow (sin kx) 3))) (+ (* -1/6 (/ (sin th) (sin kx))) (* (pow ky 2) (+ (* 1/120 (/ (sin th) (sin kx))) (+ (* 1/12 (/ (sin th) (pow (sin kx) 3))) (+ (* 1/2 (* (sin kx) (* (sin th) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6))))))) (* (pow ky 2) (+ (* -1/2 (* (sin kx) (* (sin th) (+ (* -1/2 (/ (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6)))) (pow (sin kx) 2))) (+ (* 2/45 (/ 1 (pow (sin kx) 4))) (+ (* 2/3 (/ 1 (pow (sin kx) 6))) (/ 1 (pow (sin kx) 8)))))))) (+ (* -1/12 (* (sin kx) (* (sin th) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6))))))) (+ (* -1/240 (/ (sin th) (pow (sin kx) 3))) (* -1/5040 (/ (sin th) (sin kx)))))))))))))) (/ (sin th) (sin kx))))
(.f64 ky (fma.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 (/.f64 (sin.f64 th) (sin.f64 kx)) (+.f64 #s(literal 1/120 binary64) (/.f64 #s(literal 1/12 binary64) (pow.f64 (sin.f64 kx) #s(literal 2 binary64)))) (fma.f64 (.f64 ky ky) (fma.f64 #s(literal -1/2 binary64) (.f64 (.f64 (sin.f64 kx) (sin.f64 th)) (+.f64 (/.f64 (+.f64 (/.f64 #s(literal -1/6 binary64) (pow.f64 (sin.f64 kx) #s(literal 4 binary64))) (/.f64 #s(literal -3/8 binary64) (pow.f64 (sin.f64 kx) #s(literal 6 binary64)))) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))) (+.f64 (/.f64 #s(literal 2/45 binary64) (pow.f64 (sin.f64 kx) #s(literal 4 binary64))) (+.f64 (/.f64 #s(literal 2/3 binary64) (pow.f64 (sin.f64 kx) #s(literal 6 binary64))) (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 kx) #s(literal 8 binary64))))))) (fma.f64 (.f64 (.f64 (sin.f64 kx) (sin.f64 th)) (+.f64 (/.f64 #s(literal 1/3 binary64) (pow.f64 (sin.f64 kx) #s(literal 4 binary64))) (/.f64 #s(literal 3/4 binary64) (pow.f64 (sin.f64 kx) #s(literal 6 binary64))))) #s(literal -1/12 binary64) (.f64 (/.f64 (sin.f64 th) (sin.f64 kx)) (+.f64 (/.f64 #s(literal -1/240 binary64) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))) #s(literal -1/5040 binary64))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (sin.f64 kx) (sin.f64 th)) (+.f64 (/.f64 #s(literal 1/3 binary64) (pow.f64 (sin.f64 kx) #s(literal 4 binary64))) (/.f64 #s(literal 3/4 binary64) (pow.f64 (sin.f64 kx) #s(literal 6 binary64)))))))) (*.f64 (/.f64 (sin.f64 th) (sin.f64 kx)) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))) #s(literal -1/6 binary64)))) (/.f64 (sin.f64 th) (sin.f64 kx))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(sin th)
(sin.f64 th)
(+ (sin th) (* -1/2 (/ (* (pow kx 2) (sin th)) (pow (sin ky) 2))))
(fma.f64 #s(literal -1/2 binary64) (.f64 (.f64 kx kx) (/.f64 (sin.f64 th) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))) (sin.f64 th))
(+ (sin th) (* (pow kx 2) (+ (* -1/2 (/ (sin th) (pow (sin ky) 2))) (* 1/2 (* (pow kx 2) (* (pow (sin ky) 2) (* (sin th) (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (* 3/4 (/ 1 (pow (sin ky) 6)))))))))))
(fma.f64 (.f64 kx kx) (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 (.f64 kx kx) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) (.f64 (sin.f64 th) (+.f64 (/.f64 #s(literal 1/3 binary64) (pow.f64 (sin.f64 ky) #s(literal 4 binary64))) (/.f64 #s(literal 3/4 binary64) (pow.f64 (sin.f64 ky) #s(literal 6 binary64)))))) (/.f64 (.f64 #s(literal -1/2 binary64) (sin.f64 th)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))) (sin.f64 th))
(+ (sin th) (* (pow kx 2) (+ (* -1/2 (/ (sin th) (pow (sin ky) 2))) (* (pow kx 2) (+ (* -1/2 (* (pow kx 2) (* (pow (sin ky) 2) (* (sin th) (+ (* -1/2 (/ (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (* 3/4 (/ 1 (pow (sin ky) 6)))) (pow (sin ky) 2))) (+ (* 2/45 (/ 1 (pow (sin ky) 4))) (+ (* 2/3 (/ 1 (pow (sin ky) 6))) (/ 1 (pow (sin ky) 8))))))))) (* 1/2 (* (pow (sin ky) 2) (* (sin th) (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (* 3/4 (/ 1 (pow (sin ky) 6))))))))))))
(fma.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) (fma.f64 (.f64 #s(literal -1/2 binary64) (.f64 kx kx)) (.f64 (.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64)) (sin.f64 th)) (+.f64 (/.f64 (+.f64 (/.f64 #s(literal -1/6 binary64) (pow.f64 (sin.f64 ky) #s(literal 4 binary64))) (/.f64 #s(literal -3/8 binary64) (pow.f64 (sin.f64 ky) #s(literal 6 binary64)))) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) (+.f64 (/.f64 #s(literal 2/45 binary64) (pow.f64 (sin.f64 ky) #s(literal 4 binary64))) (+.f64 (/.f64 #s(literal 2/3 binary64) (pow.f64 (sin.f64 ky) #s(literal 6 binary64))) (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 ky) #s(literal 8 binary64))))))) (.f64 (.f64 #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) (.f64 (sin.f64 th) (+.f64 (/.f64 #s(literal 1/3 binary64) (pow.f64 (sin.f64 ky) #s(literal 4 binary64))) (/.f64 #s(literal 3/4 binary64) (pow.f64 (sin.f64 ky) #s(literal 6 binary64))))))) (/.f64 (.f64 #s(literal -1/2 binary64) (sin.f64 th)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))) (sin.f64 th))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (* th (sin ky)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (.f64 th (sin.f64 ky)))
(* th (+ (* -1/6 (* (* (pow th 2) (sin ky)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))) (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))))
(.f64 th (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/6 binary64) (.f64 (sin.f64 ky) (.f64 th th)) (sin.f64 ky))))
(* th (+ (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (* (pow th 2) (+ (* -1/6 (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))) (* 1/120 (* (* (pow th 2) (sin ky)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))))))))
(.f64 th (fma.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (.f64 (.f64 th th) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (fma.f64 #s(literal 1/120 binary64) (.f64 (sin.f64 ky) (.f64 th th)) (*.f64 #s(literal -1/6 binary64) (sin.f64 ky)))))))
(* th (+ (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (* (pow th 2) (+ (* -1/6 (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))) (* (pow th 2) (+ (* -1/5040 (* (* (pow th 2) (sin ky)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))) (* 1/120 (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))))))))))
(.f64 th (fma.f64 (.f64 th th) (fma.f64 (.f64 th th) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/5040 binary64) (.f64 (sin.f64 ky) (.f64 th th)) (.f64 #s(literal 1/120 binary64) (sin.f64 ky)))) (.f64 (.f64 #s(literal -1/6 binary64) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))) (.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
th
(* th (+ 1 (* -1/6 (pow th 2))))
(fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th)
(* th (+ 1 (* (pow th 2) (- (* 1/120 (pow th 2)) 1/6))))
(fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (*.f64 th th) #s(literal -1/6 binary64))) th)
(* th (+ 1 (* (pow th 2) (- (* (pow th 2) (+ 1/120 (* -1/5040 (pow th 2)))) 1/6))))
(.f64 th (fma.f64 (.f64 th th) (fma.f64 (.f64 th th) (fma.f64 #s(literal -1/5040 binary64) (.f64 th th) #s(literal 1/120 binary64)) #s(literal -1/6 binary64)) #s(literal 1 binary64)))
(sin th)
(sin.f64 th)
(sin th)
(sin.f64 th)
(sin th)
(sin.f64 th)
(sin th)
(sin.f64 th)
(sin th)
(sin.f64 th)
(sin th)
(sin.f64 th)
(sin th)
(sin.f64 th)
(sin th)
(sin.f64 th)
(/ (* ky (sin th)) (sin kx))
(/.f64 (*.f64 ky (sin.f64 th)) (sin.f64 kx))
(* ky (+ (* (pow ky 2) (+ (* -1/2 (/ (sin th) (pow (sin kx) 3))) (* -1/6 (/ (sin th) (sin kx))))) (/ (sin th) (sin kx))))
(.f64 ky (fma.f64 (.f64 ky ky) (*.f64 (/.f64 (sin.f64 th) (sin.f64 kx)) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))) #s(literal -1/6 binary64))) (/.f64 (sin.f64 th) (sin.f64 kx))))
(* ky (+ (* (pow ky 2) (+ (* -1/2 (/ (sin th) (pow (sin kx) 3))) (+ (* -1/6 (/ (sin th) (sin kx))) (* (pow ky 2) (+ (* 1/120 (/ (sin th) (sin kx))) (+ (* 1/12 (/ (sin th) (pow (sin kx) 3))) (* 1/2 (* (sin kx) (* (sin th) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6))))))))))))) (/ (sin th) (sin kx))))
(.f64 ky (fma.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 (sin.f64 kx) (sin.f64 th)) (+.f64 (/.f64 #s(literal 1/3 binary64) (pow.f64 (sin.f64 kx) #s(literal 4 binary64))) (/.f64 #s(literal 3/4 binary64) (pow.f64 (sin.f64 kx) #s(literal 6 binary64))))) (.f64 (/.f64 (sin.f64 th) (sin.f64 kx)) (+.f64 #s(literal 1/120 binary64) (/.f64 #s(literal 1/12 binary64) (pow.f64 (sin.f64 kx) #s(literal 2 binary64)))))) (*.f64 (/.f64 (sin.f64 th) (sin.f64 kx)) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))) #s(literal -1/6 binary64)))) (/.f64 (sin.f64 th) (sin.f64 kx))))
(* ky (+ (* (pow ky 2) (+ (* -1/2 (/ (sin th) (pow (sin kx) 3))) (+ (* -1/6 (/ (sin th) (sin kx))) (* (pow ky 2) (+ (* 1/120 (/ (sin th) (sin kx))) (+ (* 1/12 (/ (sin th) (pow (sin kx) 3))) (+ (* 1/2 (* (sin kx) (* (sin th) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6))))))) (* (pow ky 2) (+ (* -1/2 (* (sin kx) (* (sin th) (+ (* -1/2 (/ (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6)))) (pow (sin kx) 2))) (+ (* 2/45 (/ 1 (pow (sin kx) 4))) (+ (* 2/3 (/ 1 (pow (sin kx) 6))) (/ 1 (pow (sin kx) 8)))))))) (+ (* -1/12 (* (sin kx) (* (sin th) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6))))))) (+ (* -1/240 (/ (sin th) (pow (sin kx) 3))) (* -1/5040 (/ (sin th) (sin kx)))))))))))))) (/ (sin th) (sin kx))))
(.f64 ky (fma.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 (/.f64 (sin.f64 th) (sin.f64 kx)) (+.f64 #s(literal 1/120 binary64) (/.f64 #s(literal 1/12 binary64) (pow.f64 (sin.f64 kx) #s(literal 2 binary64)))) (fma.f64 (.f64 ky ky) (fma.f64 #s(literal -1/2 binary64) (.f64 (.f64 (sin.f64 kx) (sin.f64 th)) (+.f64 (/.f64 (+.f64 (/.f64 #s(literal -1/6 binary64) (pow.f64 (sin.f64 kx) #s(literal 4 binary64))) (/.f64 #s(literal -3/8 binary64) (pow.f64 (sin.f64 kx) #s(literal 6 binary64)))) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))) (+.f64 (/.f64 #s(literal 2/45 binary64) (pow.f64 (sin.f64 kx) #s(literal 4 binary64))) (+.f64 (/.f64 #s(literal 2/3 binary64) (pow.f64 (sin.f64 kx) #s(literal 6 binary64))) (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 kx) #s(literal 8 binary64))))))) (fma.f64 (.f64 (.f64 (sin.f64 kx) (sin.f64 th)) (+.f64 (/.f64 #s(literal 1/3 binary64) (pow.f64 (sin.f64 kx) #s(literal 4 binary64))) (/.f64 #s(literal 3/4 binary64) (pow.f64 (sin.f64 kx) #s(literal 6 binary64))))) #s(literal -1/12 binary64) (.f64 (/.f64 (sin.f64 th) (sin.f64 kx)) (+.f64 (/.f64 #s(literal -1/240 binary64) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))) #s(literal -1/5040 binary64))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (sin.f64 kx) (sin.f64 th)) (+.f64 (/.f64 #s(literal 1/3 binary64) (pow.f64 (sin.f64 kx) #s(literal 4 binary64))) (/.f64 #s(literal 3/4 binary64) (pow.f64 (sin.f64 kx) #s(literal 6 binary64)))))))) (*.f64 (/.f64 (sin.f64 th) (sin.f64 kx)) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))) #s(literal -1/6 binary64)))) (/.f64 (sin.f64 th) (sin.f64 kx))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(sin th)
(sin.f64 th)
(+ (sin th) (* -1/2 (/ (* (pow kx 2) (sin th)) (pow (sin ky) 2))))
(fma.f64 #s(literal -1/2 binary64) (.f64 (.f64 kx kx) (/.f64 (sin.f64 th) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))) (sin.f64 th))
(+ (sin th) (* (pow kx 2) (+ (* -1/2 (/ (sin th) (pow (sin ky) 2))) (* 1/2 (* (pow kx 2) (* (pow (sin ky) 2) (* (sin th) (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (* 3/4 (/ 1 (pow (sin ky) 6)))))))))))
(fma.f64 (.f64 kx kx) (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 (.f64 kx kx) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) (.f64 (sin.f64 th) (+.f64 (/.f64 #s(literal 1/3 binary64) (pow.f64 (sin.f64 ky) #s(literal 4 binary64))) (/.f64 #s(literal 3/4 binary64) (pow.f64 (sin.f64 ky) #s(literal 6 binary64)))))) (/.f64 (.f64 #s(literal -1/2 binary64) (sin.f64 th)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))) (sin.f64 th))
(+ (sin th) (* (pow kx 2) (+ (* -1/2 (/ (sin th) (pow (sin ky) 2))) (* (pow kx 2) (+ (* -1/2 (* (pow kx 2) (* (pow (sin ky) 2) (* (sin th) (+ (* -1/2 (/ (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (* 3/4 (/ 1 (pow (sin ky) 6)))) (pow (sin ky) 2))) (+ (* 2/45 (/ 1 (pow (sin ky) 4))) (+ (* 2/3 (/ 1 (pow (sin ky) 6))) (/ 1 (pow (sin ky) 8))))))))) (* 1/2 (* (pow (sin ky) 2) (* (sin th) (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (* 3/4 (/ 1 (pow (sin ky) 6))))))))))))
(fma.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) (fma.f64 (.f64 #s(literal -1/2 binary64) (.f64 kx kx)) (.f64 (.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64)) (sin.f64 th)) (+.f64 (/.f64 (+.f64 (/.f64 #s(literal -1/6 binary64) (pow.f64 (sin.f64 ky) #s(literal 4 binary64))) (/.f64 #s(literal -3/8 binary64) (pow.f64 (sin.f64 ky) #s(literal 6 binary64)))) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) (+.f64 (/.f64 #s(literal 2/45 binary64) (pow.f64 (sin.f64 ky) #s(literal 4 binary64))) (+.f64 (/.f64 #s(literal 2/3 binary64) (pow.f64 (sin.f64 ky) #s(literal 6 binary64))) (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 ky) #s(literal 8 binary64))))))) (.f64 (.f64 #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) (.f64 (sin.f64 th) (+.f64 (/.f64 #s(literal 1/3 binary64) (pow.f64 (sin.f64 ky) #s(literal 4 binary64))) (/.f64 #s(literal 3/4 binary64) (pow.f64 (sin.f64 ky) #s(literal 6 binary64))))))) (/.f64 (.f64 #s(literal -1/2 binary64) (sin.f64 th)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))) (sin.f64 th))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (* th (sin ky)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (.f64 th (sin.f64 ky)))
(* th (+ (* -1/6 (* (* (pow th 2) (sin ky)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))) (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))))
(.f64 th (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/6 binary64) (.f64 (sin.f64 ky) (.f64 th th)) (sin.f64 ky))))
(* th (+ (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (* (pow th 2) (+ (* -1/6 (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))) (* 1/120 (* (* (pow th 2) (sin ky)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))))))))
(.f64 th (fma.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (.f64 (.f64 th th) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (fma.f64 #s(literal 1/120 binary64) (.f64 (sin.f64 ky) (.f64 th th)) (*.f64 #s(literal -1/6 binary64) (sin.f64 ky)))))))
(* th (+ (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (* (pow th 2) (+ (* -1/6 (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))) (* (pow th 2) (+ (* -1/5040 (* (* (pow th 2) (sin ky)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))) (* 1/120 (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))))))))))
(.f64 th (fma.f64 (.f64 th th) (fma.f64 (.f64 th th) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/5040 binary64) (.f64 (sin.f64 ky) (.f64 th th)) (.f64 #s(literal 1/120 binary64) (sin.f64 ky)))) (.f64 (.f64 #s(literal -1/6 binary64) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))) (.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(/ ky (sin kx))
(/.f64 ky (sin.f64 kx))
(* ky (+ (* -1 (* (pow ky 2) (+ (* 1/6 (/ 1 (sin kx))) (* 1/2 (/ 1 (pow (sin kx) 3)))))) (/ 1 (sin kx))))
(.f64 ky (fma.f64 (.f64 ky ky) (-.f64 (/.f64 #s(literal -1/6 binary64) (sin.f64 kx)) (/.f64 #s(literal 1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64)))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))
(* ky (+ (* (pow ky 2) (- (* (pow ky 2) (+ (* 1/120 (/ 1 (sin kx))) (+ (* 1/2 (* (sin kx) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6)))))) (* 1/12 (/ 1 (pow (sin kx) 3)))))) (+ (* 1/6 (/ 1 (sin kx))) (* 1/2 (/ 1 (pow (sin kx) 3)))))) (/ 1 (sin kx))))
(fma.f64 ky (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 (.f64 #s(literal 1/2 binary64) (sin.f64 kx)) (+.f64 (/.f64 #s(literal 1/3 binary64) (pow.f64 (sin.f64 kx) #s(literal 4 binary64))) (/.f64 #s(literal 3/4 binary64) (pow.f64 (sin.f64 kx) #s(literal 6 binary64)))) (+.f64 (/.f64 #s(literal 1/120 binary64) (sin.f64 kx)) (/.f64 #s(literal 1/12 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))))) (-.f64 (/.f64 #s(literal -1/6 binary64) (sin.f64 kx)) (/.f64 #s(literal 1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64)))))) (/.f64 ky (sin.f64 kx)))
(* ky (+ (* (pow ky 2) (- (* (pow ky 2) (+ (* 1/120 (/ 1 (sin kx))) (+ (* 1/12 (/ 1 (pow (sin kx) 3))) (+ (* 1/2 (* (sin kx) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6)))))) (* (pow ky 2) (- (+ (* -1/2 (* (sin kx) (+ (* -1/2 (/ (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6)))) (pow (sin kx) 2))) (+ (* 2/45 (/ 1 (pow (sin kx) 4))) (+ (* 2/3 (/ 1 (pow (sin kx) 6))) (/ 1 (pow (sin kx) 8))))))) (* -1/12 (* (sin kx) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6))))))) (+ (* 1/5040 (/ 1 (sin kx))) (* 1/240 (/ 1 (pow (sin kx) 3)))))))))) (+ (* 1/6 (/ 1 (sin kx))) (* 1/2 (/ 1 (pow (sin kx) 3)))))) (/ 1 (sin kx))))
(fma.f64 ky (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal 1/120 binary64) (sin.f64 kx)) (fma.f64 (.f64 ky ky) (+.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (sin.f64 kx)) (+.f64 (/.f64 (+.f64 (/.f64 #s(literal -1/6 binary64) (pow.f64 (sin.f64 kx) #s(literal 4 binary64))) (/.f64 #s(literal -3/8 binary64) (pow.f64 (sin.f64 kx) #s(literal 6 binary64)))) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))) (+.f64 (/.f64 #s(literal 2/45 binary64) (pow.f64 (sin.f64 kx) #s(literal 4 binary64))) (+.f64 (/.f64 #s(literal 2/3 binary64) (pow.f64 (sin.f64 kx) #s(literal 6 binary64))) (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 kx) #s(literal 8 binary64)))))) (fma.f64 (.f64 #s(literal -1/12 binary64) (sin.f64 kx)) (+.f64 (/.f64 #s(literal 1/3 binary64) (pow.f64 (sin.f64 kx) #s(literal 4 binary64))) (/.f64 #s(literal 3/4 binary64) (pow.f64 (sin.f64 kx) #s(literal 6 binary64)))) (/.f64 #s(literal -1/5040 binary64) (sin.f64 kx)))) (/.f64 #s(literal -1/240 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64)))) (fma.f64 (*.f64 #s(literal 1/2 binary64) (sin.f64 kx)) (+.f64 (/.f64 #s(literal 1/3 binary64) (pow.f64 (sin.f64 kx) #s(literal 4 binary64))) (/.f64 #s(literal 3/4 binary64) (pow.f64 (sin.f64 kx) #s(literal 6 binary64)))) (/.f64 #s(literal 1/12 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64)))))) (-.f64 (/.f64 #s(literal -1/6 binary64) (sin.f64 kx)) (/.f64 #s(literal 1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64)))))) (/.f64 ky (sin.f64 kx)))
(* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(*.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(*.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(*.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(*.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(*.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(*.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(*.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(*.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
1
#s(literal 1 binary64)
(+ 1 (* -1/2 (/ (pow kx 2) (pow (sin ky) 2))))
(fma.f64 (*.f64 kx kx) (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) #s(literal 1 binary64))
(+ 1 (* (pow kx 2) (- (* 1/2 (* (pow kx 2) (* (pow (sin ky) 2) (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (* 3/4 (/ 1 (pow (sin ky) 6))))))) (* 1/2 (/ 1 (pow (sin ky) 2))))))
(fma.f64 (.f64 kx kx) (fma.f64 (.f64 #s(literal 1/2 binary64) (.f64 kx kx)) (.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64)) (+.f64 (/.f64 #s(literal 1/3 binary64) (pow.f64 (sin.f64 ky) #s(literal 4 binary64))) (/.f64 #s(literal 3/4 binary64) (pow.f64 (sin.f64 ky) #s(literal 6 binary64))))) (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))) #s(literal 1 binary64))
(+ 1 (* (pow kx 2) (- (* (pow kx 2) (+ (* -1/2 (* (pow kx 2) (* (pow (sin ky) 2) (+ (* -1/2 (/ (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (* 3/4 (/ 1 (pow (sin ky) 6)))) (pow (sin ky) 2))) (+ (* 2/45 (/ 1 (pow (sin ky) 4))) (+ (* 2/3 (/ 1 (pow (sin ky) 6))) (/ 1 (pow (sin ky) 8)))))))) (* 1/2 (* (pow (sin ky) 2) (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (* 3/4 (/ 1 (pow (sin ky) 6)))))))) (* 1/2 (/ 1 (pow (sin ky) 2))))))
(fma.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) (fma.f64 #s(literal -1/2 binary64) (.f64 (.f64 (.f64 kx kx) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) (+.f64 (/.f64 (+.f64 (/.f64 #s(literal -1/6 binary64) (pow.f64 (sin.f64 ky) #s(literal 4 binary64))) (/.f64 #s(literal -3/8 binary64) (pow.f64 (sin.f64 ky) #s(literal 6 binary64)))) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) (+.f64 (/.f64 #s(literal 2/45 binary64) (pow.f64 (sin.f64 ky) #s(literal 4 binary64))) (+.f64 (/.f64 #s(literal 2/3 binary64) (pow.f64 (sin.f64 ky) #s(literal 6 binary64))) (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 ky) #s(literal 8 binary64))))))) (.f64 (*.f64 #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) (+.f64 (/.f64 #s(literal 1/3 binary64) (pow.f64 (sin.f64 ky) #s(literal 4 binary64))) (/.f64 #s(literal 3/4 binary64) (pow.f64 (sin.f64 ky) #s(literal 6 binary64)))))) (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))) #s(literal 1 binary64))
(* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(*.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(*.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(*.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(*.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(*.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(*.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(*.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(*.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(sin ky)
(sin.f64 ky)
(+ (sin ky) (* 1/2 (/ (pow kx 2) (sin ky))))
(fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 kx kx) (sin.f64 ky)) (sin.f64 ky))
(+ (sin ky) (* (pow kx 2) (+ (* -1/2 (/ (* (pow kx 2) (+ 1/3 (* 1/4 (/ 1 (pow (sin ky) 2))))) (sin ky))) (* 1/2 (/ 1 (sin ky))))))
(fma.f64 (.f64 kx kx) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (*.f64 kx kx) (+.f64 #s(literal 1/3 binary64) (/.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (sin.f64 ky)) (/.f64 #s(literal 1/2 binary64) (sin.f64 ky))) (sin.f64 ky))
(+ (sin ky) (* (pow kx 2) (+ (* (pow kx 2) (+ (* -1/2 (/ (+ 1/3 (* 1/4 (/ 1 (pow (sin ky) 2)))) (sin ky))) (* 1/2 (/ (* (pow kx 2) (- 2/45 (* -1/2 (/ (+ 1/3 (* 1/4 (/ 1 (pow (sin ky) 2)))) (pow (sin ky) 2))))) (sin ky))))) (* 1/2 (/ 1 (sin ky))))))
(fma.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 kx kx) (-.f64 #s(literal 2/45 binary64) (/.f64 (+.f64 #s(literal -1/6 binary64) (/.f64 #s(literal -1/8 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (sin.f64 ky)) (/.f64 (+.f64 #s(literal -1/6 binary64) (/.f64 #s(literal -1/8 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))) (sin.f64 ky))) (/.f64 #s(literal 1/2 binary64) (sin.f64 ky))) (sin.f64 ky))
(sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))
(hypot.f64 (sin.f64 kx) (sin.f64 ky))
(sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))
(hypot.f64 (sin.f64 kx) (sin.f64 ky))
(sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))
(hypot.f64 (sin.f64 kx) (sin.f64 ky))
(sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))
(hypot.f64 (sin.f64 kx) (sin.f64 ky))
(sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))
(hypot.f64 (sin.f64 kx) (sin.f64 ky))
(sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))
(hypot.f64 (sin.f64 kx) (sin.f64 ky))
(sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))
(hypot.f64 (sin.f64 kx) (sin.f64 ky))
(sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))
(hypot.f64 (sin.f64 kx) (sin.f64 ky))
(sin kx)
(sin.f64 kx)
(+ (sin kx) (* 1/2 (/ (pow ky 2) (sin kx))))
(fma.f64 (*.f64 ky ky) (/.f64 #s(literal 1/2 binary64) (sin.f64 kx)) (sin.f64 kx))
(+ (sin kx) (* (pow ky 2) (+ (* -1/2 (/ (* (pow ky 2) (+ 1/3 (* 1/4 (/ 1 (pow (sin kx) 2))))) (sin kx))) (* 1/2 (/ 1 (sin kx))))))
(fma.f64 (.f64 ky ky) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (*.f64 ky ky) (+.f64 #s(literal 1/3 binary64) (/.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))) (sin.f64 kx)) (/.f64 #s(literal 1/2 binary64) (sin.f64 kx))) (sin.f64 kx))
(+ (sin kx) (* (pow ky 2) (+ (* (pow ky 2) (+ (* -1/2 (/ (+ 1/3 (* 1/4 (/ 1 (pow (sin kx) 2)))) (sin kx))) (* 1/2 (/ (* (pow ky 2) (- 2/45 (* -1/2 (/ (+ 1/3 (* 1/4 (/ 1 (pow (sin kx) 2)))) (pow (sin kx) 2))))) (sin kx))))) (* 1/2 (/ 1 (sin kx))))))
(fma.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 #s(literal 1/2 binary64) (.f64 (-.f64 #s(literal 2/45 binary64) (/.f64 (+.f64 #s(literal -1/6 binary64) (/.f64 #s(literal -1/8 binary64) (pow.f64 (sin.f64 kx) #s(literal 2 binary64)))) (pow.f64 (sin.f64 kx) #s(literal 2 binary64)))) (/.f64 (.f64 ky ky) (sin.f64 kx))) (/.f64 (+.f64 #s(literal -1/6 binary64) (/.f64 #s(literal -1/8 binary64) (pow.f64 (sin.f64 kx) #s(literal 2 binary64)))) (sin.f64 kx))) (/.f64 #s(literal 1/2 binary64) (sin.f64 kx))) (sin.f64 kx))
(sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))
(hypot.f64 (sin.f64 kx) (sin.f64 ky))
(sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))
(hypot.f64 (sin.f64 kx) (sin.f64 ky))
(sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))
(hypot.f64 (sin.f64 kx) (sin.f64 ky))
(sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))
(hypot.f64 (sin.f64 kx) (sin.f64 ky))
(sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))
(hypot.f64 (sin.f64 kx) (sin.f64 ky))
(sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))
(hypot.f64 (sin.f64 kx) (sin.f64 ky))
(sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))
(hypot.f64 (sin.f64 kx) (sin.f64 ky))
(sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))
(hypot.f64 (sin.f64 kx) (sin.f64 ky))
(+ 1/2 (* -1/2 (cos (* 2 ky))))
(fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))
(+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (pow kx 2)))
(fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) (fma.f64 kx kx #s(literal 1/2 binary64)))
(+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* (pow kx 2) (+ 1 (* -1/3 (pow kx 2))))))
(fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) (fma.f64 (.f64 kx kx) (fma.f64 (*.f64 kx kx) #s(literal -1/3 binary64) #s(literal 1 binary64)) #s(literal 1/2 binary64)))
(+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* (pow kx 2) (+ 1 (* (pow kx 2) (- (* 2/45 (pow kx 2)) 1/3))))))
(fma.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) (fma.f64 #s(literal 2/45 binary64) (.f64 kx kx) #s(literal -1/3 binary64)) #s(literal 1 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))
(+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))
(fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))
(+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))
(fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))
(+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))
(fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))
(+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))
(fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))
(+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx)))))))
(fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))
(+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx)))))))
(fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))
(+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx)))))))
(fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))
(+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx)))))))
(fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))
(* 1/2 (- 1 (cos (* 2 kx))))
(.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))
(+ (* 1/2 (- 1 (cos (* 2 kx)))) (pow ky 2))
(fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (.f64 ky ky))
(+ (* 1/2 (- 1 (cos (* 2 kx)))) (* (pow ky 2) (+ 1 (* -1/3 (pow ky 2)))))
(fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))
(+ (* 1/2 (- 1 (cos (* 2 kx)))) (* (pow ky 2) (+ 1 (* (pow ky 2) (- (* 2/45 (pow ky 2)) 1/3)))))
(fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 (*.f64 ky ky) #s(literal 2/45 binary64) #s(literal -1/3 binary64)) #s(literal 1 binary64))))
(+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))
(fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))
(+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))
(fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))
(+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))
(fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))
(+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))
(fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))
(+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx))))))
(fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))
(+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx))))))
(fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))
(+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx))))))
(fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))
(+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx))))))
(fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))
(/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky)))))
(/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))
(+ (* -1 (/ (pow kx 2) (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2))) (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky))))))
(-.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))) (/.f64 (.f64 kx kx) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #s(literal 2 binary64))))
(+ (* (pow kx 2) (- (* (pow kx 2) (+ (* 1/3 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2))) (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3)))) (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2)))) (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky))))))
(fma.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) (+.f64 (/.f64 #s(literal 1/3 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #s(literal 3 binary64)))) (/.f64 #s(literal -1 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #s(literal 2 binary64)))) (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))
(+ (* (pow kx 2) (- (* (pow kx 2) (+ (* -1 (* (pow kx 2) (+ (* 2/45 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2))) (+ (* 2/3 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))) (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 4)))))) (+ (* 1/3 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2))) (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))))) (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2)))) (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky))))))
(fma.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) (fma.f64 (+.f64 (/.f64 #s(literal 2/45 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #s(literal 2 binary64))) (+.f64 (/.f64 #s(literal 2/3 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #s(literal 4 binary64))))) (neg.f64 (.f64 kx kx)) (+.f64 (/.f64 #s(literal 1/3 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #s(literal 3 binary64))))) (/.f64 #s(literal -1 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #s(literal 2 binary64)))) (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))
(/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))
(/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))
(/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))
(/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))
(/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))
(/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))
(/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))
(/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))
(/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx))))))))
(/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))
(/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx))))))))
(/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))
(/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx))))))))
(/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))
(/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx))))))))
(/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))
(/ 2 (- 1 (cos (* 2 kx))))
(/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64)))))
(+ (* -4 (/ (pow ky 2) (pow (- 1 (cos (* 2 kx))) 2))) (* 2 (/ 1 (- 1 (cos (* 2 kx))))))
(fma.f64 (.f64 ky ky) (/.f64 #s(literal -4 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 2 binary64))) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64))))))
(+ (* (pow ky 2) (- (* (pow ky 2) (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (* 4 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))))) (* 2 (/ 1 (- 1 (cos (* 2 kx))))))
(fma.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal 4/3 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 2 binary64))) (/.f64 #s(literal 8 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64)))) (/.f64 #s(literal -4 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 2 binary64)))) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))
(+ (* (pow ky 2) (- (* (pow ky 2) (+ (* -1 (* (pow ky 2) (+ (* 8/45 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (+ (* 2 (/ (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (- 1 (cos (* 2 kx))))) (* 8/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))))) (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))))) (* 4 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))))) (* 2 (/ 1 (- 1 (cos (* 2 kx))))))
(fma.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (-.f64 (+.f64 (/.f64 #s(literal 4/3 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 2 binary64))) (/.f64 #s(literal 8 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64)))) (.f64 (.f64 ky ky) (+.f64 (/.f64 (+.f64 (/.f64 #s(literal 16 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64))) (/.f64 #s(literal 8/3 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 2 binary64)))) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))) (+.f64 (/.f64 #s(literal 8/3 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64))) (/.f64 #s(literal 8/45 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 2 binary64))))))) (/.f64 #s(literal -4 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 2 binary64)))) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64))))))
(/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))
(/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))
(/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))
(/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))
(/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))
(/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))
(/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))
(/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))
(/ 1 (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx)))))))
(/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))
(/ 1 (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx)))))))
(/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))
(/ 1 (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx)))))))
(/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))
(/ 1 (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx)))))))
(/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))
(pow ky 2)
(*.f64 ky ky)
(* (pow ky 2) (+ 1 (* -1/3 (pow ky 2))))
(.f64 (.f64 ky ky) (fma.f64 (*.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64)))
(* (pow ky 2) (+ 1 (* (pow ky 2) (- (* 2/45 (pow ky 2)) 1/3))))
(.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal 2/45 binary64) #s(literal -1/3 binary64)) #s(literal 1 binary64)))
(* (pow ky 2) (+ 1 (* (pow ky 2) (- (* (pow ky 2) (+ 2/45 (* -1/315 (pow ky 2)))) 1/3))))
(.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 (*.f64 ky ky) #s(literal -1/315 binary64) #s(literal 2/45 binary64)) #s(literal -1/3 binary64)) #s(literal 1 binary64)))
(+ 1/2 (* -1/2 (cos (* 2 ky))))
(fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))
(+ 1/2 (* -1/2 (cos (* 2 ky))))
(fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))
(+ 1/2 (* -1/2 (cos (* 2 ky))))
(fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))
(+ 1/2 (* -1/2 (cos (* 2 ky))))
(fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))
(+ 1/2 (* -1/2 (cos (neg (* -2 ky)))))
(fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))
(+ 1/2 (* -1/2 (cos (neg (* -2 ky)))))
(fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))
(+ 1/2 (* -1/2 (cos (neg (* -2 ky)))))
(fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))
(+ 1/2 (* -1/2 (cos (neg (* -2 ky)))))
(fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky)))))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))
(+ (* -1/2 (* (* (pow kx 2) (* (sin ky) (sin th))) (sqrt (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))))) (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky))))))))
(fma.f64 (.f64 #s(literal -1/2 binary64) (.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (.f64 kx kx))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #s(literal 3 binary64)))) (.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(+ (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky))))))) (* (pow kx 2) (+ (* -1/2 (* (* (sin ky) (sin th)) (sqrt (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))))) (* 1/2 (* (* (pow kx 2) (* (sin ky) (* (sin th) (+ (* 1/3 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2))) (* 3/4 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))))))) (sqrt (+ 1/2 (* -1/2 (cos (* 2 ky))))))))))
(fma.f64 (.f64 kx kx) (fma.f64 #s(literal -1/2 binary64) (.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #s(literal 3 binary64))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 kx kx) (.f64 (sin.f64 ky) (.f64 (.f64 (sin.f64 th) (+.f64 (/.f64 #s(literal 1/3 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #s(literal 2 binary64))) (/.f64 #s(literal 3/4 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #s(literal 3 binary64))))) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))))) (.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(+ (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky))))))) (* (pow kx 2) (+ (* -1/2 (* (* (sin ky) (sin th)) (sqrt (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))))) (* (pow kx 2) (+ (* -1/2 (* (* (pow kx 2) (* (sin ky) (* (sin th) (+ (* -1/2 (/ (+ (* 1/3 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2))) (* 3/4 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3)))) (+ 1/2 (* -1/2 (cos (* 2 ky)))))) (+ (* 2/45 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2))) (+ (* 2/3 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))) (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 4)))))))) (sqrt (+ 1/2 (* -1/2 (cos (* 2 ky))))))) (* 1/2 (* (* (sin ky) (* (sin th) (+ (* 1/3 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2))) (* 3/4 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3)))))) (sqrt (+ 1/2 (* -1/2 (cos (* 2 ky))))))))))))
(fma.f64 (.f64 kx kx) (fma.f64 #s(literal -1/2 binary64) (.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #s(literal 3 binary64))))) (.f64 (.f64 kx kx) (.f64 (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))) (fma.f64 #s(literal -1/2 binary64) (.f64 (.f64 (sin.f64 ky) (.f64 kx kx)) (.f64 (sin.f64 th) (+.f64 (+.f64 (/.f64 #s(literal 2/45 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #s(literal 2 binary64))) (+.f64 (/.f64 #s(literal 2/3 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #s(literal 4 binary64))))) (/.f64 (+.f64 (/.f64 #s(literal -1/6 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #s(literal 2 binary64))) (/.f64 #s(literal -3/8 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #s(literal 3 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (+.f64 (/.f64 #s(literal 1/3 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #s(literal 2 binary64))) (/.f64 #s(literal 3/4 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #s(literal 3 binary64)))))))))) (.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx))))))))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx))))))))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx))))))))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx))))))))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (* ky (* (sin th) (sqrt 2))) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))
(.f64 (.f64 (.f64 ky (sin.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))))
(* ky (+ (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* -2 (* (/ (sin th) (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (* -1/6 (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))))))))
(.f64 ky (fma.f64 (.f64 ky ky) (fma.f64 #s(literal -1/6 binary64) (.f64 (.f64 (sin.f64 th) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))) (.f64 (/.f64 (.f64 #s(literal -2 binary64) (sin.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64)))))) (.f64 (.f64 (sin.f64 th) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64)))))))))
(* ky (+ (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* -2 (* (/ (sin th) (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (+ (* -1/6 (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (* (pow ky 2) (+ (* 1/120 (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (+ (* 1/3 (* (/ (sin th) (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (* 1/2 (* (/ (* (sin th) (- (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (* 4 (/ 1 (* (pow (sqrt 2) 2) (pow (- 1 (cos (* 2 kx))) 3)))))) (sqrt 2)) (sqrt (- 1 (cos (* 2 kx))))))))))))))
(.f64 ky (fma.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (sin.f64 th) (+.f64 (/.f64 #s(literal 4/3 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 2 binary64))) (+.f64 (/.f64 #s(literal 8 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64))) (/.f64 #s(literal -2 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 #s(literal 1/120 binary64) (.f64 (.f64 (sin.f64 th) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))) (.f64 (/.f64 (.f64 #s(literal 1/3 binary64) (sin.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64))))))) (fma.f64 #s(literal -1/6 binary64) (.f64 (.f64 (sin.f64 th) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))) (.f64 (/.f64 (.f64 #s(literal -2 binary64) (sin.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64))))))) (.f64 (.f64 (sin.f64 th) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))))))
(* ky (+ (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* -2 (* (/ (sin th) (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (+ (* -1/6 (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (* (pow ky 2) (+ (* 1/120 (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (+ (* 1/3 (* (/ (sin th) (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (+ (* 1/2 (* (/ (* (sin th) (- (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (* 4 (/ 1 (* (pow (sqrt 2) 2) (pow (- 1 (cos (* 2 kx))) 3)))))) (sqrt 2)) (sqrt (- 1 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* -1/2 (* (/ (* (sin th) (+ (* -2 (/ (- (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (* 4 (/ 1 (* (pow (sqrt 2) 2) (pow (- 1 (cos (* 2 kx))) 3))))) (* (pow (sqrt 2) 2) (- 1 (cos (* 2 kx)))))) (+ (* 8/45 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (+ (* 2 (/ (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (- 1 (cos (* 2 kx))))) (* 8/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))))) (sqrt 2)) (sqrt (- 1 (cos (* 2 kx)))))) (+ (* -1/12 (* (/ (* (sin th) (- (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (* 4 (/ 1 (* (pow (sqrt 2) 2) (pow (- 1 (cos (* 2 kx))) 3)))))) (sqrt 2)) (sqrt (- 1 (cos (* 2 kx)))))) (+ (* -1/60 (* (/ (sin th) (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (* -1/5040 (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))))))))))))))))
(.f64 ky (fma.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 #s(literal 1/120 binary64) (.f64 (.f64 (sin.f64 th) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))) (fma.f64 (.f64 ky ky) (fma.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (+.f64 (+.f64 (/.f64 (+.f64 (/.f64 #s(literal 16 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64))) (/.f64 #s(literal 8/3 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 2 binary64)))) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))) (+.f64 (/.f64 #s(literal 8/3 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64))) (/.f64 #s(literal 8/45 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 2 binary64))))) (neg.f64 (/.f64 (+.f64 (/.f64 #s(literal 4/3 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 2 binary64))) (+.f64 (/.f64 #s(literal 8 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64))) (/.f64 #s(literal -2 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64))))) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))) (/.f64 (sin.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (.f64 #s(literal -1/12 binary64) (.f64 (+.f64 (/.f64 #s(literal 4/3 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 2 binary64))) (+.f64 (/.f64 #s(literal 8 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64))) (/.f64 #s(literal -2 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64))))) (/.f64 (sin.f64 th) (sqrt.f64 #s(literal 2 binary64)))))) (fma.f64 (.f64 (/.f64 (sin.f64 th) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64))))) #s(literal -1/60 binary64) (.f64 (.f64 #s(literal -1/5040 binary64) (.f64 (sin.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (sin.f64 th) (+.f64 (/.f64 #s(literal 4/3 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 2 binary64))) (+.f64 (/.f64 #s(literal 8 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64))) (/.f64 #s(literal -2 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (sqrt.f64 #s(literal 2 binary64))) (.f64 (/.f64 (.f64 #s(literal 1/3 binary64) (sin.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64)))))))) (fma.f64 #s(literal -1/6 binary64) (.f64 (.f64 (sin.f64 th) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))) (.f64 (/.f64 (.f64 #s(literal -2 binary64) (sin.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64))))))) (.f64 (.f64 (sin.f64 th) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64)))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (* th (sin ky)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(.f64 (.f64 th (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* th (+ (* -1/6 (* (* (pow th 2) (sin ky)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))) (* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))))
(.f64 th (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) (fma.f64 #s(literal -1/6 binary64) (.f64 (sin.f64 ky) (.f64 th th)) (sin.f64 ky))))
(* th (+ (* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (* (pow th 2) (+ (* -1/6 (* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))) (* 1/120 (* (* (pow th 2) (sin ky)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))))))))
(.f64 th (fma.f64 (.f64 th th) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) (fma.f64 #s(literal -1/6 binary64) (sin.f64 ky) (.f64 #s(literal 1/120 binary64) (.f64 (sin.f64 ky) (.f64 th th))))) (.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))))
(* th (+ (* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (* (pow th 2) (+ (* -1/6 (* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))) (* (pow th 2) (+ (* -1/5040 (* (* (pow th 2) (sin ky)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))) (* 1/120 (* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))))))))))
(.f64 th (fma.f64 (.f64 th th) (fma.f64 #s(literal -1/6 binary64) (.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))) (.f64 (.f64 th th) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) (fma.f64 #s(literal -1/5040 binary64) (.f64 (sin.f64 ky) (.f64 th th)) (.f64 #s(literal 1/120 binary64) (sin.f64 ky)))))) (.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(/ 1 (sin kx))
(/.f64 #s(literal 1 binary64) (sin.f64 kx))
(+ (* -1 (* (pow ky 2) (+ (* 1/6 (/ 1 (sin kx))) (* 1/2 (/ 1 (pow (sin kx) 3)))))) (/ 1 (sin kx)))
(fma.f64 (*.f64 ky ky) (-.f64 (/.f64 #s(literal -1/6 binary64) (sin.f64 kx)) (/.f64 #s(literal 1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64)))) (/.f64 #s(literal 1 binary64) (sin.f64 kx)))
(+ (* -1 (* (pow ky 2) (+ (* 1/6 (/ 1 (sin kx))) (* 1/2 (/ 1 (pow (sin kx) 3)))))) (/ 1 (sin kx)))
(fma.f64 (*.f64 ky ky) (-.f64 (/.f64 #s(literal -1/6 binary64) (sin.f64 kx)) (/.f64 #s(literal 1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64)))) (/.f64 #s(literal 1 binary64) (sin.f64 kx)))
(+ (* -1 (* (pow ky 2) (+ (* 1/6 (/ 1 (sin kx))) (* 1/2 (/ 1 (pow (sin kx) 3)))))) (/ 1 (sin kx)))
(fma.f64 (*.f64 ky ky) (-.f64 (/.f64 #s(literal -1/6 binary64) (sin.f64 kx)) (/.f64 #s(literal 1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64)))) (/.f64 #s(literal 1 binary64) (sin.f64 kx)))
(* -1 (* (pow ky 2) (+ (* 1/6 (/ 1 (sin kx))) (* 1/2 (/ 1 (pow (sin kx) 3))))))
(.f64 (.f64 ky ky) (-.f64 (/.f64 #s(literal -1/6 binary64) (sin.f64 kx)) (/.f64 #s(literal 1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64)))))
(* (pow ky 2) (+ (* -1 (+ (* 1/6 (/ 1 (sin kx))) (* 1/2 (/ 1 (pow (sin kx) 3))))) (/ 1 (* (pow ky 2) (sin kx)))))
(fma.f64 (*.f64 ky ky) (-.f64 (/.f64 #s(literal -1/6 binary64) (sin.f64 kx)) (/.f64 #s(literal 1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64)))) (/.f64 #s(literal 1 binary64) (sin.f64 kx)))
(* (pow ky 2) (+ (* -1 (+ (* 1/6 (/ 1 (sin kx))) (* 1/2 (/ 1 (pow (sin kx) 3))))) (/ 1 (* (pow ky 2) (sin kx)))))
(fma.f64 (*.f64 ky ky) (-.f64 (/.f64 #s(literal -1/6 binary64) (sin.f64 kx)) (/.f64 #s(literal 1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64)))) (/.f64 #s(literal 1 binary64) (sin.f64 kx)))
(* (pow ky 2) (+ (* -1 (+ (* 1/6 (/ 1 (sin kx))) (* 1/2 (/ 1 (pow (sin kx) 3))))) (/ 1 (* (pow ky 2) (sin kx)))))
(fma.f64 (*.f64 ky ky) (-.f64 (/.f64 #s(literal -1/6 binary64) (sin.f64 kx)) (/.f64 #s(literal 1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64)))) (/.f64 #s(literal 1 binary64) (sin.f64 kx)))
(* -1 (* (pow ky 2) (+ (* 1/6 (/ 1 (sin kx))) (* 1/2 (/ 1 (pow (sin kx) 3))))))
(.f64 (.f64 ky ky) (-.f64 (/.f64 #s(literal -1/6 binary64) (sin.f64 kx)) (/.f64 #s(literal 1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64)))))
(* (pow ky 2) (+ (* -1 (+ (* 1/6 (/ 1 (sin kx))) (* 1/2 (/ 1 (pow (sin kx) 3))))) (/ 1 (* (pow ky 2) (sin kx)))))
(fma.f64 (*.f64 ky ky) (-.f64 (/.f64 #s(literal -1/6 binary64) (sin.f64 kx)) (/.f64 #s(literal 1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64)))) (/.f64 #s(literal 1 binary64) (sin.f64 kx)))
(* (pow ky 2) (+ (* -1 (+ (* 1/6 (/ 1 (sin kx))) (* 1/2 (/ 1 (pow (sin kx) 3))))) (/ 1 (* (pow ky 2) (sin kx)))))
(fma.f64 (*.f64 ky ky) (-.f64 (/.f64 #s(literal -1/6 binary64) (sin.f64 kx)) (/.f64 #s(literal 1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64)))) (/.f64 #s(literal 1 binary64) (sin.f64 kx)))
(* (pow ky 2) (+ (* -1 (+ (* 1/6 (/ 1 (sin kx))) (* 1/2 (/ 1 (pow (sin kx) 3))))) (/ 1 (* (pow ky 2) (sin kx)))))
(fma.f64 (*.f64 ky ky) (-.f64 (/.f64 #s(literal -1/6 binary64) (sin.f64 kx)) (/.f64 #s(literal 1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64)))) (/.f64 #s(literal 1 binary64) (sin.f64 kx)))
(* -1/2 (/ (pow ky 2) (pow kx 3)))
(/.f64 (.f64 (.f64 ky ky) #s(literal -1/2 binary64)) (.f64 kx (.f64 kx kx)))
(/ (+ (* -1/2 (pow ky 2)) (* (pow kx 2) (+ 1 (* -5/12 (pow ky 2))))) (pow kx 3))
(/.f64 (fma.f64 (.f64 ky ky) #s(literal -1/2 binary64) (.f64 (.f64 kx kx) (fma.f64 (.f64 ky ky) #s(literal -5/12 binary64) #s(literal 1 binary64)))) (.f64 kx (.f64 kx kx)))
(/ (+ (* -1/2 (pow ky 2)) (* (pow kx 2) (+ 1 (+ (* -5/12 (pow ky 2)) (* (pow kx 2) (+ 1/6 (* -71/720 (pow ky 2)))))))) (pow kx 3))
(/.f64 (fma.f64 (.f64 kx kx) (fma.f64 (.f64 ky ky) #s(literal -5/12 binary64) (fma.f64 (.f64 kx kx) (fma.f64 (.f64 ky ky) #s(literal -71/720 binary64) #s(literal 1/6 binary64)) #s(literal 1 binary64))) (.f64 (.f64 ky ky) #s(literal -1/2 binary64))) (.f64 kx (.f64 kx kx)))
(/ (+ (* -1/2 (pow ky 2)) (* (pow kx 2) (+ 1 (+ (* -5/12 (pow ky 2)) (* (pow kx 2) (+ 1/6 (+ (* -71/720 (pow ky 2)) (* (pow kx 2) (+ 7/360 (* -37/2016 (pow ky 2))))))))))) (pow kx 3))
(/.f64 (fma.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) (fma.f64 (.f64 ky ky) #s(literal -71/720 binary64) (fma.f64 (.f64 kx kx) (fma.f64 (.f64 ky ky) #s(literal -37/2016 binary64) #s(literal 7/360 binary64)) #s(literal 1/6 binary64))) (fma.f64 (.f64 ky ky) #s(literal -5/12 binary64) #s(literal 1 binary64))) (.f64 (.f64 ky ky) #s(literal -1/2 binary64))) (.f64 kx (.f64 kx kx)))
(+ (* -1 (* (pow ky 2) (+ (* 1/6 (/ 1 (sin kx))) (* 1/2 (/ 1 (pow (sin kx) 3)))))) (/ 1 (sin kx)))
(fma.f64 (*.f64 ky ky) (-.f64 (/.f64 #s(literal -1/6 binary64) (sin.f64 kx)) (/.f64 #s(literal 1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64)))) (/.f64 #s(literal 1 binary64) (sin.f64 kx)))
(+ (* -1 (* (pow ky 2) (+ (* 1/6 (/ 1 (sin kx))) (* 1/2 (/ 1 (pow (sin kx) 3)))))) (/ 1 (sin kx)))
(fma.f64 (*.f64 ky ky) (-.f64 (/.f64 #s(literal -1/6 binary64) (sin.f64 kx)) (/.f64 #s(literal 1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64)))) (/.f64 #s(literal 1 binary64) (sin.f64 kx)))
(+ (* -1 (* (pow ky 2) (+ (* 1/6 (/ 1 (sin kx))) (* 1/2 (/ 1 (pow (sin kx) 3)))))) (/ 1 (sin kx)))
(fma.f64 (*.f64 ky ky) (-.f64 (/.f64 #s(literal -1/6 binary64) (sin.f64 kx)) (/.f64 #s(literal 1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64)))) (/.f64 #s(literal 1 binary64) (sin.f64 kx)))
(+ (* -1 (* (pow ky 2) (+ (* 1/6 (/ 1 (sin kx))) (* 1/2 (/ 1 (pow (sin kx) 3)))))) (/ 1 (sin kx)))
(fma.f64 (*.f64 ky ky) (-.f64 (/.f64 #s(literal -1/6 binary64) (sin.f64 kx)) (/.f64 #s(literal 1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64)))) (/.f64 #s(literal 1 binary64) (sin.f64 kx)))
(+ (* -1 (* (pow ky 2) (+ (* 1/6 (/ 1 (sin kx))) (* 1/2 (/ 1 (pow (sin kx) 3)))))) (/ 1 (sin kx)))
(fma.f64 (*.f64 ky ky) (-.f64 (/.f64 #s(literal -1/6 binary64) (sin.f64 kx)) (/.f64 #s(literal 1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64)))) (/.f64 #s(literal 1 binary64) (sin.f64 kx)))
(+ (* -1 (* (pow ky 2) (+ (* 1/6 (/ 1 (sin kx))) (* 1/2 (/ 1 (pow (sin kx) 3)))))) (/ 1 (sin kx)))
(fma.f64 (*.f64 ky ky) (-.f64 (/.f64 #s(literal -1/6 binary64) (sin.f64 kx)) (/.f64 #s(literal 1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64)))) (/.f64 #s(literal 1 binary64) (sin.f64 kx)))
(+ (* -1 (* (pow ky 2) (+ (* 1/6 (/ 1 (sin kx))) (* 1/2 (/ 1 (pow (sin kx) 3)))))) (/ 1 (sin kx)))
(fma.f64 (*.f64 ky ky) (-.f64 (/.f64 #s(literal -1/6 binary64) (sin.f64 kx)) (/.f64 #s(literal 1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64)))) (/.f64 #s(literal 1 binary64) (sin.f64 kx)))
(+ (* -1 (* (pow ky 2) (+ (* 1/6 (/ 1 (sin kx))) (* 1/2 (/ 1 (pow (sin kx) 3)))))) (/ 1 (sin kx)))
(fma.f64 (*.f64 ky ky) (-.f64 (/.f64 #s(literal -1/6 binary64) (sin.f64 kx)) (/.f64 #s(literal 1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64)))) (/.f64 #s(literal 1 binary64) (sin.f64 kx)))
(/ (* ky (sin th)) (sin kx))
(/.f64 (*.f64 ky (sin.f64 th)) (sin.f64 kx))
(* ky (+ (* (pow ky 2) (+ (* -1/2 (/ (sin th) (pow (sin kx) 3))) (* -1/6 (/ (sin th) (sin kx))))) (/ (sin th) (sin kx))))
(.f64 ky (fma.f64 (.f64 ky ky) (*.f64 (/.f64 (sin.f64 th) (sin.f64 kx)) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))) #s(literal -1/6 binary64))) (/.f64 (sin.f64 th) (sin.f64 kx))))
(* ky (+ (* (pow ky 2) (+ (* -1/2 (/ (sin th) (pow (sin kx) 3))) (+ (* -1/6 (/ (sin th) (sin kx))) (* (pow ky 2) (+ (* 1/120 (/ (sin th) (sin kx))) (+ (* 1/12 (/ (sin th) (pow (sin kx) 3))) (* 1/2 (* (sin kx) (* (sin th) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6))))))))))))) (/ (sin th) (sin kx))))
(.f64 ky (fma.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 (sin.f64 kx) (sin.f64 th)) (+.f64 (/.f64 #s(literal 1/3 binary64) (pow.f64 (sin.f64 kx) #s(literal 4 binary64))) (/.f64 #s(literal 3/4 binary64) (pow.f64 (sin.f64 kx) #s(literal 6 binary64))))) (.f64 (/.f64 (sin.f64 th) (sin.f64 kx)) (+.f64 #s(literal 1/120 binary64) (/.f64 #s(literal 1/12 binary64) (pow.f64 (sin.f64 kx) #s(literal 2 binary64)))))) (*.f64 (/.f64 (sin.f64 th) (sin.f64 kx)) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))) #s(literal -1/6 binary64)))) (/.f64 (sin.f64 th) (sin.f64 kx))))
(* ky (+ (* (pow ky 2) (+ (* -1/2 (/ (sin th) (pow (sin kx) 3))) (+ (* -1/6 (/ (sin th) (sin kx))) (* (pow ky 2) (+ (* 1/120 (/ (sin th) (sin kx))) (+ (* 1/12 (/ (sin th) (pow (sin kx) 3))) (+ (* 1/2 (* (sin kx) (* (sin th) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6))))))) (* (pow ky 2) (+ (* -1/2 (* (sin kx) (* (sin th) (+ (* -1/2 (/ (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6)))) (pow (sin kx) 2))) (+ (* 2/45 (/ 1 (pow (sin kx) 4))) (+ (* 2/3 (/ 1 (pow (sin kx) 6))) (/ 1 (pow (sin kx) 8)))))))) (+ (* -1/12 (* (sin kx) (* (sin th) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6))))))) (+ (* -1/240 (/ (sin th) (pow (sin kx) 3))) (* -1/5040 (/ (sin th) (sin kx)))))))))))))) (/ (sin th) (sin kx))))
(.f64 ky (fma.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 (/.f64 (sin.f64 th) (sin.f64 kx)) (+.f64 #s(literal 1/120 binary64) (/.f64 #s(literal 1/12 binary64) (pow.f64 (sin.f64 kx) #s(literal 2 binary64)))) (fma.f64 (.f64 ky ky) (fma.f64 #s(literal -1/2 binary64) (.f64 (.f64 (sin.f64 kx) (sin.f64 th)) (+.f64 (/.f64 (+.f64 (/.f64 #s(literal -1/6 binary64) (pow.f64 (sin.f64 kx) #s(literal 4 binary64))) (/.f64 #s(literal -3/8 binary64) (pow.f64 (sin.f64 kx) #s(literal 6 binary64)))) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))) (+.f64 (/.f64 #s(literal 2/45 binary64) (pow.f64 (sin.f64 kx) #s(literal 4 binary64))) (+.f64 (/.f64 #s(literal 2/3 binary64) (pow.f64 (sin.f64 kx) #s(literal 6 binary64))) (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 kx) #s(literal 8 binary64))))))) (fma.f64 (.f64 (.f64 (sin.f64 kx) (sin.f64 th)) (+.f64 (/.f64 #s(literal 1/3 binary64) (pow.f64 (sin.f64 kx) #s(literal 4 binary64))) (/.f64 #s(literal 3/4 binary64) (pow.f64 (sin.f64 kx) #s(literal 6 binary64))))) #s(literal -1/12 binary64) (.f64 (/.f64 (sin.f64 th) (sin.f64 kx)) (+.f64 (/.f64 #s(literal -1/240 binary64) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))) #s(literal -1/5040 binary64))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (sin.f64 kx) (sin.f64 th)) (+.f64 (/.f64 #s(literal 1/3 binary64) (pow.f64 (sin.f64 kx) #s(literal 4 binary64))) (/.f64 #s(literal 3/4 binary64) (pow.f64 (sin.f64 kx) #s(literal 6 binary64)))))))) (*.f64 (/.f64 (sin.f64 th) (sin.f64 kx)) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))) #s(literal -1/6 binary64)))) (/.f64 (sin.f64 th) (sin.f64 kx))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(sin th)
(sin.f64 th)
(+ (sin th) (* -1/2 (/ (* (pow kx 2) (sin th)) (pow (sin ky) 2))))
(fma.f64 #s(literal -1/2 binary64) (.f64 (.f64 kx kx) (/.f64 (sin.f64 th) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))) (sin.f64 th))
(+ (sin th) (* (pow kx 2) (+ (* -1/2 (/ (sin th) (pow (sin ky) 2))) (* 1/2 (* (pow kx 2) (* (pow (sin ky) 2) (* (sin th) (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (* 3/4 (/ 1 (pow (sin ky) 6)))))))))))
(fma.f64 (.f64 kx kx) (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 (.f64 kx kx) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) (.f64 (sin.f64 th) (+.f64 (/.f64 #s(literal 1/3 binary64) (pow.f64 (sin.f64 ky) #s(literal 4 binary64))) (/.f64 #s(literal 3/4 binary64) (pow.f64 (sin.f64 ky) #s(literal 6 binary64)))))) (/.f64 (.f64 #s(literal -1/2 binary64) (sin.f64 th)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))) (sin.f64 th))
(+ (sin th) (* (pow kx 2) (+ (* -1/2 (/ (sin th) (pow (sin ky) 2))) (* (pow kx 2) (+ (* -1/2 (* (pow kx 2) (* (pow (sin ky) 2) (* (sin th) (+ (* -1/2 (/ (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (* 3/4 (/ 1 (pow (sin ky) 6)))) (pow (sin ky) 2))) (+ (* 2/45 (/ 1 (pow (sin ky) 4))) (+ (* 2/3 (/ 1 (pow (sin ky) 6))) (/ 1 (pow (sin ky) 8))))))))) (* 1/2 (* (pow (sin ky) 2) (* (sin th) (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (* 3/4 (/ 1 (pow (sin ky) 6))))))))))))
(fma.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) (fma.f64 (.f64 #s(literal -1/2 binary64) (.f64 kx kx)) (.f64 (.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64)) (sin.f64 th)) (+.f64 (/.f64 (+.f64 (/.f64 #s(literal -1/6 binary64) (pow.f64 (sin.f64 ky) #s(literal 4 binary64))) (/.f64 #s(literal -3/8 binary64) (pow.f64 (sin.f64 ky) #s(literal 6 binary64)))) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) (+.f64 (/.f64 #s(literal 2/45 binary64) (pow.f64 (sin.f64 ky) #s(literal 4 binary64))) (+.f64 (/.f64 #s(literal 2/3 binary64) (pow.f64 (sin.f64 ky) #s(literal 6 binary64))) (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 ky) #s(literal 8 binary64))))))) (.f64 (.f64 #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) (.f64 (sin.f64 th) (+.f64 (/.f64 #s(literal 1/3 binary64) (pow.f64 (sin.f64 ky) #s(literal 4 binary64))) (/.f64 #s(literal 3/4 binary64) (pow.f64 (sin.f64 ky) #s(literal 6 binary64))))))) (/.f64 (.f64 #s(literal -1/2 binary64) (sin.f64 th)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))) (sin.f64 th))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (* th (sin ky)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (.f64 th (sin.f64 ky)))
(* th (+ (* -1/6 (* (* (pow th 2) (sin ky)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))) (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))))
(.f64 th (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/6 binary64) (.f64 (sin.f64 ky) (.f64 th th)) (sin.f64 ky))))
(* th (+ (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (* (pow th 2) (+ (* -1/6 (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))) (* 1/120 (* (* (pow th 2) (sin ky)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))))))))
(.f64 th (fma.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (.f64 (.f64 th th) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (fma.f64 #s(literal 1/120 binary64) (.f64 (sin.f64 ky) (.f64 th th)) (*.f64 #s(literal -1/6 binary64) (sin.f64 ky)))))))
(* th (+ (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (* (pow th 2) (+ (* -1/6 (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))) (* (pow th 2) (+ (* -1/5040 (* (* (pow th 2) (sin ky)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))) (* 1/120 (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))))))))))
(.f64 th (fma.f64 (.f64 th th) (fma.f64 (.f64 th th) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/5040 binary64) (.f64 (sin.f64 ky) (.f64 th th)) (.f64 #s(literal 1/120 binary64) (sin.f64 ky)))) (.f64 (.f64 #s(literal -1/6 binary64) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))) (.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(/ ky (sin kx))
(/.f64 ky (sin.f64 kx))
(* ky (+ (* -1 (* (pow ky 2) (+ (* 1/6 (/ 1 (sin kx))) (* 1/2 (/ 1 (pow (sin kx) 3)))))) (/ 1 (sin kx))))
(.f64 ky (fma.f64 (.f64 ky ky) (-.f64 (/.f64 #s(literal -1/6 binary64) (sin.f64 kx)) (/.f64 #s(literal 1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64)))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))
(* ky (+ (* (pow ky 2) (- (* (pow ky 2) (+ (* 1/120 (/ 1 (sin kx))) (+ (* 1/2 (* (sin kx) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6)))))) (* 1/12 (/ 1 (pow (sin kx) 3)))))) (+ (* 1/6 (/ 1 (sin kx))) (* 1/2 (/ 1 (pow (sin kx) 3)))))) (/ 1 (sin kx))))
(fma.f64 ky (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 (.f64 #s(literal 1/2 binary64) (sin.f64 kx)) (+.f64 (/.f64 #s(literal 1/3 binary64) (pow.f64 (sin.f64 kx) #s(literal 4 binary64))) (/.f64 #s(literal 3/4 binary64) (pow.f64 (sin.f64 kx) #s(literal 6 binary64)))) (+.f64 (/.f64 #s(literal 1/120 binary64) (sin.f64 kx)) (/.f64 #s(literal 1/12 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))))) (-.f64 (/.f64 #s(literal -1/6 binary64) (sin.f64 kx)) (/.f64 #s(literal 1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64)))))) (/.f64 ky (sin.f64 kx)))
(* ky (+ (* (pow ky 2) (- (* (pow ky 2) (+ (* 1/120 (/ 1 (sin kx))) (+ (* 1/12 (/ 1 (pow (sin kx) 3))) (+ (* 1/2 (* (sin kx) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6)))))) (* (pow ky 2) (- (+ (* -1/2 (* (sin kx) (+ (* -1/2 (/ (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6)))) (pow (sin kx) 2))) (+ (* 2/45 (/ 1 (pow (sin kx) 4))) (+ (* 2/3 (/ 1 (pow (sin kx) 6))) (/ 1 (pow (sin kx) 8))))))) (* -1/12 (* (sin kx) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6))))))) (+ (* 1/5040 (/ 1 (sin kx))) (* 1/240 (/ 1 (pow (sin kx) 3)))))))))) (+ (* 1/6 (/ 1 (sin kx))) (* 1/2 (/ 1 (pow (sin kx) 3)))))) (/ 1 (sin kx))))
(fma.f64 ky (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal 1/120 binary64) (sin.f64 kx)) (fma.f64 (.f64 ky ky) (+.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (sin.f64 kx)) (+.f64 (/.f64 (+.f64 (/.f64 #s(literal -1/6 binary64) (pow.f64 (sin.f64 kx) #s(literal 4 binary64))) (/.f64 #s(literal -3/8 binary64) (pow.f64 (sin.f64 kx) #s(literal 6 binary64)))) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))) (+.f64 (/.f64 #s(literal 2/45 binary64) (pow.f64 (sin.f64 kx) #s(literal 4 binary64))) (+.f64 (/.f64 #s(literal 2/3 binary64) (pow.f64 (sin.f64 kx) #s(literal 6 binary64))) (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 kx) #s(literal 8 binary64)))))) (fma.f64 (.f64 #s(literal -1/12 binary64) (sin.f64 kx)) (+.f64 (/.f64 #s(literal 1/3 binary64) (pow.f64 (sin.f64 kx) #s(literal 4 binary64))) (/.f64 #s(literal 3/4 binary64) (pow.f64 (sin.f64 kx) #s(literal 6 binary64)))) (/.f64 #s(literal -1/5040 binary64) (sin.f64 kx)))) (/.f64 #s(literal -1/240 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64)))) (fma.f64 (*.f64 #s(literal 1/2 binary64) (sin.f64 kx)) (+.f64 (/.f64 #s(literal 1/3 binary64) (pow.f64 (sin.f64 kx) #s(literal 4 binary64))) (/.f64 #s(literal 3/4 binary64) (pow.f64 (sin.f64 kx) #s(literal 6 binary64)))) (/.f64 #s(literal 1/12 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64)))))) (-.f64 (/.f64 #s(literal -1/6 binary64) (sin.f64 kx)) (/.f64 #s(literal 1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64)))))) (/.f64 ky (sin.f64 kx)))
(* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(*.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(*.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(*.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(*.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(*.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(*.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(*.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(*.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
1
#s(literal 1 binary64)
(+ 1 (* -1/2 (/ (pow kx 2) (pow (sin ky) 2))))
(fma.f64 (*.f64 kx kx) (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) #s(literal 1 binary64))
(+ 1 (* (pow kx 2) (- (* 1/2 (* (pow kx 2) (* (pow (sin ky) 2) (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (* 3/4 (/ 1 (pow (sin ky) 6))))))) (* 1/2 (/ 1 (pow (sin ky) 2))))))
(fma.f64 (.f64 kx kx) (fma.f64 (.f64 #s(literal 1/2 binary64) (.f64 kx kx)) (.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64)) (+.f64 (/.f64 #s(literal 1/3 binary64) (pow.f64 (sin.f64 ky) #s(literal 4 binary64))) (/.f64 #s(literal 3/4 binary64) (pow.f64 (sin.f64 ky) #s(literal 6 binary64))))) (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))) #s(literal 1 binary64))
(+ 1 (* (pow kx 2) (- (* (pow kx 2) (+ (* -1/2 (* (pow kx 2) (* (pow (sin ky) 2) (+ (* -1/2 (/ (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (* 3/4 (/ 1 (pow (sin ky) 6)))) (pow (sin ky) 2))) (+ (* 2/45 (/ 1 (pow (sin ky) 4))) (+ (* 2/3 (/ 1 (pow (sin ky) 6))) (/ 1 (pow (sin ky) 8)))))))) (* 1/2 (* (pow (sin ky) 2) (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (* 3/4 (/ 1 (pow (sin ky) 6)))))))) (* 1/2 (/ 1 (pow (sin ky) 2))))))
(fma.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) (fma.f64 #s(literal -1/2 binary64) (.f64 (.f64 (.f64 kx kx) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) (+.f64 (/.f64 (+.f64 (/.f64 #s(literal -1/6 binary64) (pow.f64 (sin.f64 ky) #s(literal 4 binary64))) (/.f64 #s(literal -3/8 binary64) (pow.f64 (sin.f64 ky) #s(literal 6 binary64)))) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) (+.f64 (/.f64 #s(literal 2/45 binary64) (pow.f64 (sin.f64 ky) #s(literal 4 binary64))) (+.f64 (/.f64 #s(literal 2/3 binary64) (pow.f64 (sin.f64 ky) #s(literal 6 binary64))) (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 ky) #s(literal 8 binary64))))))) (.f64 (*.f64 #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) (+.f64 (/.f64 #s(literal 1/3 binary64) (pow.f64 (sin.f64 ky) #s(literal 4 binary64))) (/.f64 #s(literal 3/4 binary64) (pow.f64 (sin.f64 ky) #s(literal 6 binary64)))))) (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))) #s(literal 1 binary64))
(* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(*.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(*.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(*.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(*.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(*.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(*.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(*.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(*.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(/ ky (sin kx))
(/.f64 ky (sin.f64 kx))
(* ky (+ (* -1 (* (pow ky 2) (+ (* 1/6 (/ 1 (sin kx))) (* 1/2 (/ 1 (pow (sin kx) 3)))))) (/ 1 (sin kx))))
(.f64 ky (fma.f64 (.f64 ky ky) (-.f64 (/.f64 #s(literal -1/6 binary64) (sin.f64 kx)) (/.f64 #s(literal 1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64)))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))
(* ky (+ (* -1 (* (pow ky 2) (+ (* 1/6 (/ 1 (sin kx))) (* 1/2 (/ 1 (pow (sin kx) 3)))))) (/ 1 (sin kx))))
(.f64 ky (fma.f64 (.f64 ky ky) (-.f64 (/.f64 #s(literal -1/6 binary64) (sin.f64 kx)) (/.f64 #s(literal 1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64)))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))
(* ky (+ (* -1 (* (pow ky 2) (+ (* 1/6 (/ 1 (sin kx))) (* 1/2 (/ 1 (pow (sin kx) 3)))))) (/ 1 (sin kx))))
(.f64 ky (fma.f64 (.f64 ky ky) (-.f64 (/.f64 #s(literal -1/6 binary64) (sin.f64 kx)) (/.f64 #s(literal 1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64)))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))
(* -1 (* (pow ky 3) (+ (* 1/6 (/ 1 (sin kx))) (* 1/2 (/ 1 (pow (sin kx) 3))))))
(.f64 (.f64 ky (*.f64 ky ky)) (-.f64 (/.f64 #s(literal -1/6 binary64) (sin.f64 kx)) (/.f64 #s(literal 1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64)))))
(* (pow ky 3) (+ (* -1 (+ (* 1/6 (/ 1 (sin kx))) (* 1/2 (/ 1 (pow (sin kx) 3))))) (/ 1 (* (pow ky 2) (sin kx)))))
(.f64 (+.f64 (/.f64 #s(literal 1 binary64) (.f64 (sin.f64 kx) (.f64 ky ky))) (-.f64 (/.f64 #s(literal -1/6 binary64) (sin.f64 kx)) (/.f64 #s(literal 1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))))) (.f64 ky (*.f64 ky ky)))
(* (pow ky 3) (+ (* -1 (+ (* 1/6 (/ 1 (sin kx))) (* 1/2 (/ 1 (pow (sin kx) 3))))) (/ 1 (* (pow ky 2) (sin kx)))))
(.f64 (+.f64 (/.f64 #s(literal 1 binary64) (.f64 (sin.f64 kx) (.f64 ky ky))) (-.f64 (/.f64 #s(literal -1/6 binary64) (sin.f64 kx)) (/.f64 #s(literal 1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))))) (.f64 ky (*.f64 ky ky)))
(* (pow ky 3) (+ (* -1 (+ (* 1/6 (/ 1 (sin kx))) (* 1/2 (/ 1 (pow (sin kx) 3))))) (/ 1 (* (pow ky 2) (sin kx)))))
(.f64 (+.f64 (/.f64 #s(literal 1 binary64) (.f64 (sin.f64 kx) (.f64 ky ky))) (-.f64 (/.f64 #s(literal -1/6 binary64) (sin.f64 kx)) (/.f64 #s(literal 1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))))) (.f64 ky (*.f64 ky ky)))
(* -1 (* (pow ky 3) (+ (* 1/6 (/ 1 (sin kx))) (* 1/2 (/ 1 (pow (sin kx) 3))))))
(.f64 (.f64 ky (*.f64 ky ky)) (-.f64 (/.f64 #s(literal -1/6 binary64) (sin.f64 kx)) (/.f64 #s(literal 1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64)))))
(* -1 (* (pow ky 3) (- (+ (* 1/6 (/ 1 (sin kx))) (* 1/2 (/ 1 (pow (sin kx) 3)))) (/ 1 (* (pow ky 2) (sin kx))))))
(.f64 (+.f64 (/.f64 #s(literal 1 binary64) (.f64 (sin.f64 kx) (.f64 ky ky))) (-.f64 (/.f64 #s(literal -1/6 binary64) (sin.f64 kx)) (/.f64 #s(literal 1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))))) (.f64 ky (*.f64 ky ky)))
(* -1 (* (pow ky 3) (- (+ (* 1/6 (/ 1 (sin kx))) (* 1/2 (/ 1 (pow (sin kx) 3)))) (/ 1 (* (pow ky 2) (sin kx))))))
(.f64 (+.f64 (/.f64 #s(literal 1 binary64) (.f64 (sin.f64 kx) (.f64 ky ky))) (-.f64 (/.f64 #s(literal -1/6 binary64) (sin.f64 kx)) (/.f64 #s(literal 1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))))) (.f64 ky (*.f64 ky ky)))
(* -1 (* (pow ky 3) (- (+ (* 1/6 (/ 1 (sin kx))) (* 1/2 (/ 1 (pow (sin kx) 3)))) (/ 1 (* (pow ky 2) (sin kx))))))
(.f64 (+.f64 (/.f64 #s(literal 1 binary64) (.f64 (sin.f64 kx) (.f64 ky ky))) (-.f64 (/.f64 #s(literal -1/6 binary64) (sin.f64 kx)) (/.f64 #s(literal 1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))))) (.f64 ky (*.f64 ky ky)))
(* -1/2 (/ (pow ky 3) (pow kx 3)))
(/.f64 (.f64 #s(literal -1/2 binary64) (.f64 ky (.f64 ky ky))) (.f64 kx (*.f64 kx kx)))
(/ (+ (* -1/2 (pow ky 3)) (* (pow kx 2) (* ky (+ 1 (* -5/12 (pow ky 2)))))) (pow kx 3))
(/.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 ky (.f64 ky ky)) (.f64 (.f64 (.f64 kx kx) ky) (fma.f64 (.f64 ky ky) #s(literal -5/12 binary64) #s(literal 1 binary64)))) (.f64 kx (.f64 kx kx)))
(/ (+ (* -1/2 (pow ky 3)) (* (pow kx 2) (+ (* ky (+ 1 (* -5/12 (pow ky 2)))) (* (pow kx 2) (* ky (+ 1/6 (* -71/720 (pow ky 2)))))))) (pow kx 3))
(/.f64 (fma.f64 (.f64 kx kx) (fma.f64 ky (fma.f64 (.f64 ky ky) #s(literal -5/12 binary64) #s(literal 1 binary64)) (.f64 (.f64 (.f64 kx kx) ky) (fma.f64 (.f64 ky ky) #s(literal -71/720 binary64) #s(literal 1/6 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 ky (.f64 ky ky)))) (.f64 kx (*.f64 kx kx)))
(/ (+ (* -1/2 (pow ky 3)) (* (pow kx 2) (+ (* ky (+ 1 (* -5/12 (pow ky 2)))) (* (pow kx 2) (+ (* ky (+ 1/6 (* -71/720 (pow ky 2)))) (* (pow kx 2) (* ky (+ 7/360 (* -37/2016 (pow ky 2)))))))))) (pow kx 3))
(/.f64 (fma.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) (fma.f64 ky (fma.f64 (.f64 ky ky) #s(literal -71/720 binary64) #s(literal 1/6 binary64)) (.f64 (.f64 (.f64 kx kx) ky) (fma.f64 (.f64 ky ky) #s(literal -37/2016 binary64) #s(literal 7/360 binary64)))) (fma.f64 ky (.f64 (.f64 ky ky) #s(literal -5/12 binary64)) ky)) (.f64 #s(literal -1/2 binary64) (.f64 ky (.f64 ky ky)))) (.f64 kx (.f64 kx kx)))
(* ky (+ (* -1 (* (pow ky 2) (+ (* 1/6 (/ 1 (sin kx))) (* 1/2 (/ 1 (pow (sin kx) 3)))))) (/ 1 (sin kx))))
(.f64 ky (fma.f64 (.f64 ky ky) (-.f64 (/.f64 #s(literal -1/6 binary64) (sin.f64 kx)) (/.f64 #s(literal 1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64)))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))
(* ky (+ (* -1 (* (pow ky 2) (+ (* 1/6 (/ 1 (sin kx))) (* 1/2 (/ 1 (pow (sin kx) 3)))))) (/ 1 (sin kx))))
(.f64 ky (fma.f64 (.f64 ky ky) (-.f64 (/.f64 #s(literal -1/6 binary64) (sin.f64 kx)) (/.f64 #s(literal 1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64)))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))
(* ky (+ (* -1 (* (pow ky 2) (+ (* 1/6 (/ 1 (sin kx))) (* 1/2 (/ 1 (pow (sin kx) 3)))))) (/ 1 (sin kx))))
(.f64 ky (fma.f64 (.f64 ky ky) (-.f64 (/.f64 #s(literal -1/6 binary64) (sin.f64 kx)) (/.f64 #s(literal 1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64)))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))
(* ky (+ (* -1 (* (pow ky 2) (+ (* 1/6 (/ 1 (sin kx))) (* 1/2 (/ 1 (pow (sin kx) 3)))))) (/ 1 (sin kx))))
(.f64 ky (fma.f64 (.f64 ky ky) (-.f64 (/.f64 #s(literal -1/6 binary64) (sin.f64 kx)) (/.f64 #s(literal 1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64)))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))
(* ky (+ (* -1 (* (pow ky 2) (+ (* 1/6 (/ 1 (sin kx))) (* 1/2 (/ 1 (pow (sin kx) 3)))))) (/ 1 (sin kx))))
(.f64 ky (fma.f64 (.f64 ky ky) (-.f64 (/.f64 #s(literal -1/6 binary64) (sin.f64 kx)) (/.f64 #s(literal 1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64)))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))
(* ky (+ (* -1 (* (pow ky 2) (+ (* 1/6 (/ 1 (sin kx))) (* 1/2 (/ 1 (pow (sin kx) 3)))))) (/ 1 (sin kx))))
(.f64 ky (fma.f64 (.f64 ky ky) (-.f64 (/.f64 #s(literal -1/6 binary64) (sin.f64 kx)) (/.f64 #s(literal 1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64)))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))
(* ky (+ (* -1 (* (pow ky 2) (+ (* 1/6 (/ 1 (sin kx))) (* 1/2 (/ 1 (pow (sin kx) 3)))))) (/ 1 (sin kx))))
(.f64 ky (fma.f64 (.f64 ky ky) (-.f64 (/.f64 #s(literal -1/6 binary64) (sin.f64 kx)) (/.f64 #s(literal 1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64)))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))
(* ky (+ (* -1 (* (pow ky 2) (+ (* 1/6 (/ 1 (sin kx))) (* 1/2 (/ 1 (pow (sin kx) 3)))))) (/ 1 (sin kx))))
(.f64 ky (fma.f64 (.f64 ky ky) (-.f64 (/.f64 #s(literal -1/6 binary64) (sin.f64 kx)) (/.f64 #s(literal 1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64)))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))
kx
(* kx (+ 1 (* -1/6 (pow kx 2))))
(fma.f64 kx (.f64 #s(literal -1/6 binary64) (.f64 kx kx)) kx)
(* kx (+ 1 (* (pow kx 2) (- (* 1/120 (pow kx 2)) 1/6))))
(fma.f64 kx (.f64 (.f64 kx kx) (fma.f64 #s(literal 1/120 binary64) (*.f64 kx kx) #s(literal -1/6 binary64))) kx)
(* kx (+ 1 (* (pow kx 2) (- (* (pow kx 2) (+ 1/120 (* -1/5040 (pow kx 2)))) 1/6))))
(fma.f64 kx (.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) (fma.f64 #s(literal -1/5040 binary64) (.f64 kx kx) #s(literal 1/120 binary64)) #s(literal -1/6 binary64))) kx)
(sin kx)
(sin.f64 kx)
(sin kx)
(sin.f64 kx)
(sin kx)
(sin.f64 kx)
(sin kx)
(sin.f64 kx)
(sin kx)
(sin.f64 kx)
(sin kx)
(sin.f64 kx)
(sin kx)
(sin.f64 kx)
(sin kx)
(sin.f64 kx)
(pow ky 2)
(*.f64 ky ky)
(* (pow ky 2) (+ 1 (* -1/3 (pow ky 2))))
(.f64 (.f64 ky ky) (fma.f64 (*.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64)))
(* (pow ky 2) (+ 1 (* (pow ky 2) (- (* 2/45 (pow ky 2)) 1/3))))
(.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal 2/45 binary64) #s(literal -1/3 binary64)) #s(literal 1 binary64)))
(* (pow ky 2) (+ 1 (* (pow ky 2) (- (* (pow ky 2) (+ 2/45 (* -1/315 (pow ky 2)))) 1/3))))
(.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 (*.f64 ky ky) #s(literal -1/315 binary64) #s(literal 2/45 binary64)) #s(literal -1/3 binary64)) #s(literal 1 binary64)))
(pow (sin ky) 2)
(pow.f64 (sin.f64 ky) #s(literal 2 binary64))
(pow (sin ky) 2)
(pow.f64 (sin.f64 ky) #s(literal 2 binary64))
(pow (sin ky) 2)
(pow.f64 (sin.f64 ky) #s(literal 2 binary64))
(pow (sin ky) 2)
(pow.f64 (sin.f64 ky) #s(literal 2 binary64))
(pow (sin ky) 2)
(pow.f64 (sin.f64 ky) #s(literal 2 binary64))
(pow (sin ky) 2)
(pow.f64 (sin.f64 ky) #s(literal 2 binary64))
(pow (sin ky) 2)
(pow.f64 (sin.f64 ky) #s(literal 2 binary64))
(pow (sin ky) 2)
(pow.f64 (sin.f64 ky) #s(literal 2 binary64))
(pow kx 2)
(*.f64 kx kx)
(* (pow kx 2) (+ 1 (* -1/3 (pow kx 2))))
(.f64 (.f64 kx kx) (fma.f64 (*.f64 kx kx) #s(literal -1/3 binary64) #s(literal 1 binary64)))
(* (pow kx 2) (+ 1 (* (pow kx 2) (- (* 2/45 (pow kx 2)) 1/3))))
(.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) (fma.f64 #s(literal 2/45 binary64) (.f64 kx kx) #s(literal -1/3 binary64)) #s(literal 1 binary64)))
(* (pow kx 2) (+ 1 (* (pow kx 2) (- (* (pow kx 2) (+ 2/45 (* -1/315 (pow kx 2)))) 1/3))))
(.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) (fma.f64 (*.f64 kx kx) #s(literal -1/315 binary64) #s(literal 2/45 binary64)) #s(literal -1/3 binary64)) #s(literal 1 binary64)))
(pow (sin kx) 2)
(pow.f64 (sin.f64 kx) #s(literal 2 binary64))
(pow (sin kx) 2)
(pow.f64 (sin.f64 kx) #s(literal 2 binary64))
(pow (sin kx) 2)
(pow.f64 (sin.f64 kx) #s(literal 2 binary64))
(pow (sin kx) 2)
(pow.f64 (sin.f64 kx) #s(literal 2 binary64))
(pow (sin kx) 2)
(pow.f64 (sin.f64 kx) #s(literal 2 binary64))
(pow (sin kx) 2)
(pow.f64 (sin.f64 kx) #s(literal 2 binary64))
(pow (sin kx) 2)
(pow.f64 (sin.f64 kx) #s(literal 2 binary64))
(pow (sin kx) 2)
(pow.f64 (sin.f64 kx) #s(literal 2 binary64))
(* 2 (pow kx 2))
(.f64 #s(literal 2 binary64) (.f64 kx kx))
(* (pow kx 2) (+ 2 (* -2/3 (pow kx 2))))
(.f64 (.f64 kx kx) (fma.f64 (*.f64 kx kx) #s(literal -2/3 binary64) #s(literal 2 binary64)))
(* (pow kx 2) (+ 2 (* (pow kx 2) (- (* 4/45 (pow kx 2)) 2/3))))
(.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) #s(literal 4/45 binary64) #s(literal -2/3 binary64)) #s(literal 2 binary64)))
(* (pow kx 2) (+ 2 (* (pow kx 2) (- (* (pow kx 2) (+ 4/45 (* -2/315 (pow kx 2)))) 2/3))))
(.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) (fma.f64 (*.f64 kx kx) #s(literal -2/315 binary64) #s(literal 4/45 binary64)) #s(literal -2/3 binary64)) #s(literal 2 binary64)))
(- 1 (cos (* 2 kx)))
(-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64))))
(- 1 (cos (* 2 kx)))
(-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64))))
(- 1 (cos (* 2 kx)))
(-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64))))
(- 1 (cos (* 2 kx)))
(-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64))))
(- 1 (cos (neg (* -2 kx))))
(-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64))))
(- 1 (cos (neg (* -2 kx))))
(-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64))))
(- 1 (cos (neg (* -2 kx))))
(-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64))))
(- 1 (cos (neg (* -2 kx))))
(-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64))))
(sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky))))))
(sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))
(+ (sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky)))))) (* -1/2 (* (pow kx 2) (sqrt (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))))))
(fma.f64 (.f64 #s(literal -1/2 binary64) (.f64 kx kx)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #s(literal 3 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))
(+ (sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky)))))) (* (pow kx 2) (+ (* -1/2 (sqrt (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3)))) (* 1/2 (* (* (pow kx 2) (+ (* 1/3 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2))) (* 3/4 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))))) (sqrt (+ 1/2 (* -1/2 (cos (* 2 ky))))))))))
(fma.f64 (.f64 kx kx) (fma.f64 #s(literal -1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #s(literal 3 binary64)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 kx kx) (.f64 (+.f64 (/.f64 #s(literal 1/3 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #s(literal 2 binary64))) (/.f64 #s(literal 3/4 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #s(literal 3 binary64)))) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))
(+ (sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky)))))) (* (pow kx 2) (+ (* -1/2 (sqrt (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3)))) (* (pow kx 2) (+ (* -1/2 (* (* (pow kx 2) (+ (* -1/2 (/ (+ (* 1/3 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2))) (* 3/4 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3)))) (+ 1/2 (* -1/2 (cos (* 2 ky)))))) (+ (* 2/45 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2))) (+ (* 2/3 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))) (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 4)))))) (sqrt (+ 1/2 (* -1/2 (cos (* 2 ky))))))) (* 1/2 (* (sqrt (+ 1/2 (* -1/2 (cos (* 2 ky))))) (+ (* 1/3 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2))) (* 3/4 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3)))))))))))
(fma.f64 (.f64 kx kx) (fma.f64 #s(literal -1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #s(literal 3 binary64)))) (.f64 (.f64 kx kx) (fma.f64 #s(literal -1/2 binary64) (.f64 (.f64 kx kx) (.f64 (+.f64 (+.f64 (/.f64 #s(literal 2/45 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #s(literal 2 binary64))) (+.f64 (/.f64 #s(literal 2/3 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #s(literal 4 binary64))))) (/.f64 (+.f64 (/.f64 #s(literal -1/6 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #s(literal 2 binary64))) (/.f64 #s(literal -3/8 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #s(literal 3 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) (.f64 (.f64 #s(literal 1/2 binary64) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))) (+.f64 (/.f64 #s(literal 1/3 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #s(literal 2 binary64))) (/.f64 #s(literal 3/4 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #s(literal 3 binary64)))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))
(sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))
(sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))
(sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))
(sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))
(sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))
(sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))
(sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))
(sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))
(sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx)))))))))
(sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))
(sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx)))))))))
(sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))
(sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx)))))))))
(sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))
(sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx)))))))))
(sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))
(* (sqrt 2) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))
(.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))))
(+ (* -2 (* (/ (pow ky 2) (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (* (sqrt 2) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))))
(fma.f64 (/.f64 (.f64 #s(literal -2 binary64) (.f64 ky ky)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64)))) (.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64))))))))
(+ (* (sqrt 2) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* -2 (* (/ 1 (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (* 1/2 (* (/ (* (pow ky 2) (- (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (* 4 (/ 1 (* (pow (sqrt 2) 2) (pow (- 1 (cos (* 2 kx))) 3)))))) (sqrt 2)) (sqrt (- 1 (cos (* 2 kx)))))))))
(fma.f64 (.f64 ky ky) (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal 4/3 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 2 binary64))) (+.f64 (/.f64 #s(literal 8 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64))) (/.f64 #s(literal -2 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64)))))) (/.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))) (sqrt.f64 #s(literal 2 binary64)))) (.f64 (/.f64 #s(literal -2 binary64) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64)))))) (.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))))
(+ (* (sqrt 2) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* -2 (* (/ 1 (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (* (pow ky 2) (+ (* -1/2 (* (/ (* (pow ky 2) (+ (* -2 (/ (- (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (* 4 (/ 1 (* (pow (sqrt 2) 2) (pow (- 1 (cos (* 2 kx))) 3))))) (* (pow (sqrt 2) 2) (- 1 (cos (* 2 kx)))))) (+ (* 8/45 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (+ (* 2 (/ (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (- 1 (cos (* 2 kx))))) (* 8/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))))) (sqrt 2)) (sqrt (- 1 (cos (* 2 kx)))))) (* 1/2 (* (/ (- (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (* 4 (/ 1 (* (pow (sqrt 2) 2) (pow (- 1 (cos (* 2 kx))) 3))))) (sqrt 2)) (sqrt (- 1 (cos (* 2 kx)))))))))))
(fma.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 ky ky) (+.f64 (+.f64 (/.f64 (+.f64 (/.f64 #s(literal 16 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64))) (/.f64 #s(literal 8/3 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 2 binary64)))) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))) (+.f64 (/.f64 #s(literal 8/3 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64))) (/.f64 #s(literal 8/45 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 2 binary64))))) (neg.f64 (/.f64 (+.f64 (/.f64 #s(literal 4/3 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 2 binary64))) (+.f64 (/.f64 #s(literal 8 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64))) (/.f64 #s(literal -2 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64))))) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))))) (sqrt.f64 #s(literal 2 binary64))) (/.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (/.f64 #s(literal 4/3 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 2 binary64))) (+.f64 (/.f64 #s(literal 8 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64))) (/.f64 #s(literal -2 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64)))))) (sqrt.f64 #s(literal 2 binary64))))) (.f64 (/.f64 #s(literal -2 binary64) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64)))))) (.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64))))))))
(sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))
(sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))
(sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))
(sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))
(sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))
(sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))
(sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))
(sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))
(sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx))))))))
(sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))
(sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx))))))))
(sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))
(sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx))))))))
(sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))
(sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx))))))))
(sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))
(* (sin ky) (sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky)))))))
(.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))
(+ (* -1/2 (* (* (pow kx 2) (sin ky)) (sqrt (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))))) (* (sin ky) (sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky))))))))
(fma.f64 (.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 ky) (.f64 kx kx))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #s(literal 3 binary64)))) (.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(+ (* (sin ky) (sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky))))))) (* (pow kx 2) (+ (* -1/2 (* (sin ky) (sqrt (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))))) (* 1/2 (* (* (pow kx 2) (* (sin ky) (+ (* 1/3 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2))) (* 3/4 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3)))))) (sqrt (+ 1/2 (* -1/2 (cos (* 2 ky))))))))))
(fma.f64 (.f64 kx kx) (fma.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #s(literal 3 binary64))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 kx kx) (.f64 (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))) (.f64 (sin.f64 ky) (+.f64 (/.f64 #s(literal 1/3 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #s(literal 2 binary64))) (/.f64 #s(literal 3/4 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #s(literal 3 binary64))))))))) (.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(+ (* (sin ky) (sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky))))))) (* (pow kx 2) (+ (* -1/2 (* (sin ky) (sqrt (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))))) (* (pow kx 2) (+ (* -1/2 (* (* (pow kx 2) (* (sin ky) (+ (* -1/2 (/ (+ (* 1/3 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2))) (* 3/4 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3)))) (+ 1/2 (* -1/2 (cos (* 2 ky)))))) (+ (* 2/45 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2))) (+ (* 2/3 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))) (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 4))))))) (sqrt (+ 1/2 (* -1/2 (cos (* 2 ky))))))) (* 1/2 (* (* (sin ky) (+ (* 1/3 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2))) (* 3/4 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))))) (sqrt (+ 1/2 (* -1/2 (cos (* 2 ky))))))))))))
(fma.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) (.f64 (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))) (fma.f64 #s(literal -1/2 binary64) (.f64 (.f64 (sin.f64 ky) (.f64 kx kx)) (+.f64 (+.f64 (/.f64 #s(literal 2/45 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #s(literal 2 binary64))) (+.f64 (/.f64 #s(literal 2/3 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #s(literal 4 binary64))))) (/.f64 (+.f64 (/.f64 #s(literal -1/6 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #s(literal 2 binary64))) (/.f64 #s(literal -3/8 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #s(literal 3 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) (.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 ky) (+.f64 (/.f64 #s(literal 1/3 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #s(literal 2 binary64))) (/.f64 #s(literal 3/4 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #s(literal 3 binary64)))))))) (.f64 (.f64 #s(literal -1/2 binary64) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #s(literal 3 binary64)))))) (.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx))))))))))
(.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx))))))))))
(.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx))))))))))
(.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx))))))))))
(.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (* ky (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))
(.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))
(* ky (+ (* (sqrt 2) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* -2 (* (/ 1 (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (* -1/6 (* (sqrt 2) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))))))))
(.f64 ky (fma.f64 (.f64 ky ky) (fma.f64 #s(literal -1/6 binary64) (.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))) (.f64 (/.f64 #s(literal -2 binary64) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64)))))) (.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))))))
(* ky (+ (* (sqrt 2) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* -2 (* (/ 1 (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (+ (* -1/6 (* (sqrt 2) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (* (pow ky 2) (+ (* 1/120 (* (sqrt 2) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (+ (* 1/3 (* (/ 1 (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (* 1/2 (* (/ (- (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (* 4 (/ 1 (* (pow (sqrt 2) 2) (pow (- 1 (cos (* 2 kx))) 3))))) (sqrt 2)) (sqrt (- 1 (cos (* 2 kx))))))))))))))
(.f64 ky (fma.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 #s(literal 1/120 binary64) (.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))) (fma.f64 #s(literal 1/2 binary64) (.f64 (+.f64 (/.f64 #s(literal 4/3 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 2 binary64))) (+.f64 (/.f64 #s(literal 8 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64))) (/.f64 #s(literal -2 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64))))) (/.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))) (sqrt.f64 #s(literal 2 binary64)))) (.f64 (/.f64 #s(literal 1/3 binary64) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64))))))) (fma.f64 #s(literal -1/6 binary64) (.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))) (.f64 (/.f64 #s(literal -2 binary64) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64))))))) (.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))))))
(* ky (+ (* (sqrt 2) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* -2 (* (/ 1 (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (+ (* -1/6 (* (sqrt 2) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (* (pow ky 2) (+ (* 1/120 (* (sqrt 2) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (+ (* 1/3 (* (/ 1 (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (+ (* 1/2 (* (/ (- (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (* 4 (/ 1 (* (pow (sqrt 2) 2) (pow (- 1 (cos (* 2 kx))) 3))))) (sqrt 2)) (sqrt (- 1 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* -1/2 (* (/ (+ (* -2 (/ (- (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (* 4 (/ 1 (* (pow (sqrt 2) 2) (pow (- 1 (cos (* 2 kx))) 3))))) (* (pow (sqrt 2) 2) (- 1 (cos (* 2 kx)))))) (+ (* 8/45 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (+ (* 2 (/ (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (- 1 (cos (* 2 kx))))) (* 8/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))))) (sqrt 2)) (sqrt (- 1 (cos (* 2 kx)))))) (+ (* -1/12 (* (/ (- (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (* 4 (/ 1 (* (pow (sqrt 2) 2) (pow (- 1 (cos (* 2 kx))) 3))))) (sqrt 2)) (sqrt (- 1 (cos (* 2 kx)))))) (+ (* -1/60 (* (/ 1 (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (* -1/5040 (* (sqrt 2) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))))))))))))))))
(.f64 ky (fma.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 #s(literal 1/120 binary64) (.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))) (fma.f64 (.f64 ky ky) (fma.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 (+.f64 (/.f64 (+.f64 (/.f64 #s(literal 16 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64))) (/.f64 #s(literal 8/3 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 2 binary64)))) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))) (+.f64 (/.f64 #s(literal 8/3 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64))) (/.f64 #s(literal 8/45 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 2 binary64))))) (neg.f64 (/.f64 (+.f64 (/.f64 #s(literal 4/3 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 2 binary64))) (+.f64 (/.f64 #s(literal 8 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64))) (/.f64 #s(literal -2 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64))))) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))) (sqrt.f64 #s(literal 2 binary64))) (/.f64 (.f64 #s(literal -1/12 binary64) (+.f64 (/.f64 #s(literal 4/3 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 2 binary64))) (+.f64 (/.f64 #s(literal 8 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64))) (/.f64 #s(literal -2 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64)))))) (sqrt.f64 #s(literal 2 binary64)))) (fma.f64 #s(literal -1/60 binary64) (/.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64)))) (sqrt.f64 #s(literal 2 binary64))) (.f64 (.f64 #s(literal -1/5040 binary64) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))))) (fma.f64 #s(literal 1/2 binary64) (.f64 (+.f64 (/.f64 #s(literal 4/3 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 2 binary64))) (+.f64 (/.f64 #s(literal 8 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64))) (/.f64 #s(literal -2 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64))))) (/.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))) (sqrt.f64 #s(literal 2 binary64)))) (.f64 (/.f64 #s(literal 1/3 binary64) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64)))))))) (fma.f64 #s(literal -1/6 binary64) (.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))) (.f64 (/.f64 #s(literal -2 binary64) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64))))))) (.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64)))))))))
(* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(/ -1/6 kx)
(/.f64 #s(literal -1/6 binary64) kx)
(/ (- (* -1/36 (pow kx 2)) 1/6) kx)
(/.f64 (fma.f64 (*.f64 kx kx) #s(literal -1/36 binary64) #s(literal -1/6 binary64)) kx)
(/ (- (* (pow kx 2) (- (* -7/2160 (pow kx 2)) 1/36)) 1/6) kx)
(/.f64 (fma.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) #s(literal -7/2160 binary64) #s(literal -1/36 binary64)) #s(literal -1/6 binary64)) kx)
(/ (- (* (pow kx 2) (- (* (pow kx 2) (- (* -31/90720 (pow kx 2)) 7/2160)) 1/36)) 1/6) kx)
(/.f64 (fma.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) (fma.f64 (*.f64 kx kx) #s(literal -31/90720 binary64) #s(literal -7/2160 binary64)) #s(literal -1/36 binary64)) #s(literal -1/6 binary64)) kx)
(/ -1/6 (sin kx))
(/.f64 #s(literal -1/6 binary64) (sin.f64 kx))
(/ -1/6 (sin kx))
(/.f64 #s(literal -1/6 binary64) (sin.f64 kx))
(/ -1/6 (sin kx))
(/.f64 #s(literal -1/6 binary64) (sin.f64 kx))
(/ -1/6 (sin kx))
(/.f64 #s(literal -1/6 binary64) (sin.f64 kx))
(/ -1/6 (sin kx))
(/.f64 #s(literal -1/6 binary64) (sin.f64 kx))
(/ -1/6 (sin kx))
(/.f64 #s(literal -1/6 binary64) (sin.f64 kx))
(/ -1/6 (sin kx))
(/.f64 #s(literal -1/6 binary64) (sin.f64 kx))
(/ -1/6 (sin kx))
(/.f64 #s(literal -1/6 binary64) (sin.f64 kx))

rewrite121.0ms (0.9%)

Memory

19.9MiB live, 168.9MiB allocated

Rules

1 284×	`lower-fma.f32`
1 280×	`lower-fma.f64`
1 244×	`lower-*.f32`
1 228×	`lower-*.f64`
1 004×	`lower-/.f32`

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	53	343
0	91	332
1	343	296
0	2790	289

Stop Event

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

Counts

24 → 321

Calls

Call 1

Inputs
(*.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (sin.f64 kx))) (sin.f64 th))
(/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (sin.f64 kx)))
(sin.f64 ky)
(hypot.f64 (sin.f64 ky) (sin.f64 kx))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th))
(sin.f64 th)
(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky))))) (sin.f64 th))
(/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (*.f64 ky ky)))))
(sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (*.f64 ky ky))))
(fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))
(/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))
(+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) (sin.f64 th))
(fma.f64 (*.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx)))
(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky (fma.f64 (*.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (sin.f64 th))
#s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx)))))
(.f64 ky (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))
(sin.f64 kx)
#s(approx (pow (sin ky) 2) (*.f64 ky ky))
(pow.f64 (sin.f64 kx) #s(literal 2 binary64))
(-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))
(sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))))
(.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky))
(/.f64 #s(literal -1/6 binary64) (sin.f64 kx))

Outputs
(/.f64 (sin.f64 th) (/.f64 (sqrt.f64 (+.f64 (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))) (sin.f64 ky)))
(/.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 (+.f64 (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))) (*.f64 (sin.f64 ky) (sin.f64 th))))
(/.f64 (*.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (+.f64 (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))))
(/.f64 (neg.f64 (*.f64 (sin.f64 ky) (sin.f64 th))) (neg.f64 (sqrt.f64 (+.f64 (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))))
(/.f64 (*.f64 (sin.f64 th) #s(literal 1 binary64)) (/.f64 (sqrt.f64 (+.f64 (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))) (sin.f64 ky)))
(/.f64 (*.f64 (sin.f64 th) (neg.f64 (sin.f64 ky))) (neg.f64 (sqrt.f64 (+.f64 (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))))
(/.f64 (*.f64 #s(literal 1 binary64) (sin.f64 th)) (/.f64 (sqrt.f64 (+.f64 (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))) (sin.f64 ky)))
(/.f64 (*.f64 (neg.f64 (sin.f64 ky)) (sin.f64 th)) (neg.f64 (sqrt.f64 (+.f64 (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))))
(.f64 (sin.f64 ky) (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.f64 (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))) (sin.f64 th)))
(*.f64 (sin.f64 ky) (/.f64 (sin.f64 th) (sqrt.f64 (+.f64 (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))))
(*.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))) (sin.f64 th))
(*.f64 (sin.f64 th) (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))))
(.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.f64 (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))))
(neg.f64 (/.f64 (sin.f64 ky) (neg.f64 (sqrt.f64 (+.f64 (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))))))
(neg.f64 (/.f64 (neg.f64 (sin.f64 ky)) (sqrt.f64 (+.f64 (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))))
(/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 (+.f64 (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))) (sin.f64 ky)))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 (sqrt.f64 (+.f64 (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))) (sin.f64 ky)) #s(literal 1 binary64)))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 (sqrt.f64 (+.f64 (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))) (sin.f64 ky))))
(/.f64 (neg.f64 (sin.f64 ky)) (neg.f64 (sqrt.f64 (+.f64 (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))))
(/.f64 (neg.f64 (neg.f64 (sin.f64 ky))) (neg.f64 (neg.f64 (sqrt.f64 (+.f64 (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))))))
(/.f64 (*.f64 (sin.f64 ky) #s(literal 1 binary64)) (sqrt.f64 (+.f64 (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))))
(pow.f64 (/.f64 (sqrt.f64 (+.f64 (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))) (sin.f64 ky)) #s(literal -1 binary64))
(*.f64 (sin.f64 ky) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.f64 (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))))
(*.f64 #s(literal 1 binary64) (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))))
(*.f64 (neg.f64 (sin.f64 ky)) (/.f64 #s(literal 1 binary64) (neg.f64 (sqrt.f64 (+.f64 (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))))))
(*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.f64 (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))) (sin.f64 ky))
(exp.f64 (*.f64 (log.f64 (sin.f64 ky)) #s(literal 1 binary64)))
(sin.f64 ky)
(pow.f64 (sin.f64 ky) #s(literal 1 binary64))
(*.f64 (pow.f64 (sin.f64 ky) #s(literal 1/2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 1/2 binary64)))
(exp.f64 (*.f64 (log.f64 (+.f64 (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64)))
(hypot.f64 (sin.f64 ky) (sin.f64 ky))
(hypot.f64 (sin.f64 ky) (sin.f64 kx))
(hypot.f64 (sin.f64 ky) (exp.f64 (log.f64 (sin.f64 kx))))
(hypot.f64 (sin.f64 ky) (exp.f64 (log.f64 (sin.f64 ky))))
(hypot.f64 (sin.f64 kx) (sin.f64 ky))
(hypot.f64 (sin.f64 kx) (sin.f64 kx))
(hypot.f64 (sin.f64 kx) (exp.f64 (log.f64 (sin.f64 kx))))
(hypot.f64 (sin.f64 kx) (exp.f64 (log.f64 (sin.f64 ky))))
(hypot.f64 (exp.f64 (log.f64 (sin.f64 kx))) (sin.f64 ky))
(hypot.f64 (exp.f64 (log.f64 (sin.f64 kx))) (sin.f64 kx))
(hypot.f64 (exp.f64 (log.f64 (sin.f64 kx))) (exp.f64 (log.f64 (sin.f64 kx))))
(hypot.f64 (exp.f64 (log.f64 (sin.f64 kx))) (exp.f64 (log.f64 (sin.f64 ky))))
(hypot.f64 (exp.f64 (log.f64 (sin.f64 ky))) (sin.f64 ky))
(hypot.f64 (exp.f64 (log.f64 (sin.f64 ky))) (sin.f64 kx))
(hypot.f64 (exp.f64 (log.f64 (sin.f64 ky))) (exp.f64 (log.f64 (sin.f64 kx))))
(hypot.f64 (exp.f64 (log.f64 (sin.f64 ky))) (exp.f64 (log.f64 (sin.f64 ky))))
(sqrt.f64 (+.f64 (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(/.f64 (sqrt.f64 (+.f64 (pow.f64 (sin.f64 ky) #s(literal 6 binary64)) (pow.f64 (sin.f64 ky) #s(literal 6 binary64)))) (sqrt.f64 (fma.f64 (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (-.f64 (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (pow.f64 (sin.f64 ky) #s(literal 4 binary64)))))
(/.f64 (sqrt.f64 (*.f64 (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (-.f64 (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))) (sqrt.f64 (-.f64 (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))))
(pow.f64 (+.f64 (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1/2 binary64))
(*.f64 (pow.f64 (+.f64 (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1/4 binary64)) (pow.f64 (+.f64 (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1/4 binary64)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th))
(sin.f64 th)
(/.f64 (sin.f64 th) (/.f64 (sqrt.f64 (+.f64 #s(approx (pow (sin ky) 2) (*.f64 ky ky)) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))) (sin.f64 ky)))
(/.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 (+.f64 #s(approx (pow (sin ky) 2) (.f64 ky ky)) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))) (.f64 (sin.f64 ky) (sin.f64 th))))
(/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (+.f64 #s(approx (pow (sin ky) 2) (.f64 ky ky)) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))))
(/.f64 (neg.f64 (.f64 (sin.f64 ky) (sin.f64 th))) (neg.f64 (sqrt.f64 (+.f64 #s(approx (pow (sin ky) 2) (.f64 ky ky)) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))))
(/.f64 (.f64 (sin.f64 th) #s(literal 1 binary64)) (/.f64 (sqrt.f64 (+.f64 #s(approx (pow (sin ky) 2) (.f64 ky ky)) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))) (sin.f64 ky)))
(/.f64 (.f64 (sin.f64 th) (neg.f64 (sin.f64 ky))) (neg.f64 (sqrt.f64 (+.f64 #s(approx (pow (sin ky) 2) (.f64 ky ky)) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))))
(/.f64 (.f64 #s(literal 1 binary64) (sin.f64 th)) (/.f64 (sqrt.f64 (+.f64 #s(approx (pow (sin ky) 2) (.f64 ky ky)) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))) (sin.f64 ky)))
(/.f64 (.f64 (neg.f64 (sin.f64 ky)) (sin.f64 th)) (neg.f64 (sqrt.f64 (+.f64 #s(approx (pow (sin ky) 2) (.f64 ky ky)) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))))
(.f64 (sin.f64 ky) (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.f64 #s(approx (pow (sin ky) 2) (*.f64 ky ky)) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))) (sin.f64 th)))
(.f64 (sin.f64 ky) (/.f64 (sin.f64 th) (sqrt.f64 (+.f64 #s(approx (pow (sin ky) 2) (.f64 ky ky)) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))))
(.f64 (sin.f64 th) (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 #s(approx (pow (sin ky) 2) (.f64 ky ky)) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))))
(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 #s(approx (pow (sin ky) 2) (.f64 ky ky)) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))) (sin.f64 th))
(.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.f64 #s(approx (pow (sin ky) 2) (*.f64 ky ky)) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))))
(neg.f64 (/.f64 (sin.f64 ky) (neg.f64 (sqrt.f64 (+.f64 #s(approx (pow (sin ky) 2) (*.f64 ky ky)) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))))))
(neg.f64 (/.f64 (neg.f64 (sin.f64 ky)) (sqrt.f64 (+.f64 #s(approx (pow (sin ky) 2) (*.f64 ky ky)) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))))
(/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 #s(approx (pow (sin ky) 2) (*.f64 ky ky)) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 (+.f64 #s(approx (pow (sin ky) 2) (*.f64 ky ky)) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))) (sin.f64 ky)))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 (sqrt.f64 (+.f64 #s(approx (pow (sin ky) 2) (*.f64 ky ky)) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))) (sin.f64 ky)) #s(literal 1 binary64)))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 (sqrt.f64 (+.f64 #s(approx (pow (sin ky) 2) (*.f64 ky ky)) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))) (sin.f64 ky))))
(/.f64 (neg.f64 (sin.f64 ky)) (neg.f64 (sqrt.f64 (+.f64 #s(approx (pow (sin ky) 2) (*.f64 ky ky)) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))))
(/.f64 (neg.f64 (neg.f64 (sin.f64 ky))) (neg.f64 (neg.f64 (sqrt.f64 (+.f64 #s(approx (pow (sin ky) 2) (*.f64 ky ky)) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))))))
(/.f64 (.f64 (sin.f64 ky) #s(literal 1 binary64)) (sqrt.f64 (+.f64 #s(approx (pow (sin ky) 2) (.f64 ky ky)) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))))
(pow.f64 (/.f64 (sqrt.f64 (+.f64 #s(approx (pow (sin ky) 2) (*.f64 ky ky)) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))) (sin.f64 ky)) #s(literal -1 binary64))
(.f64 (sin.f64 ky) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.f64 #s(approx (pow (sin ky) 2) (.f64 ky ky)) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))))
(.f64 #s(literal 1 binary64) (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 #s(approx (pow (sin ky) 2) (.f64 ky ky)) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))))
(.f64 (neg.f64 (sin.f64 ky)) (/.f64 #s(literal 1 binary64) (neg.f64 (sqrt.f64 (+.f64 #s(approx (pow (sin ky) 2) (.f64 ky ky)) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))))))
(.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.f64 #s(approx (pow (sin ky) 2) (.f64 ky ky)) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))) (sin.f64 ky))
(exp.f64 (.f64 (log.f64 (+.f64 #s(approx (pow (sin ky) 2) (.f64 ky ky)) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64)))
(sqrt.f64 (+.f64 #s(approx (pow (sin ky) 2) (*.f64 ky ky)) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(/.f64 (sqrt.f64 (fma.f64 #s(approx (pow (sin ky) 2) (.f64 ky ky)) (.f64 #s(approx (pow (sin ky) 2) (.f64 ky ky)) #s(approx (pow (sin ky) 2) (.f64 ky ky))) (pow.f64 (sin.f64 ky) #s(literal 6 binary64)))) (sqrt.f64 (fma.f64 #s(approx (pow (sin ky) 2) (.f64 ky ky)) (-.f64 #s(approx (pow (sin ky) 2) (.f64 ky ky)) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (pow.f64 (sin.f64 ky) #s(literal 4 binary64)))))
(/.f64 (sqrt.f64 (-.f64 (pow.f64 (sin.f64 ky) #s(literal 4 binary64)) (.f64 #s(approx (pow (sin ky) 2) (.f64 ky ky)) #s(approx (pow (sin ky) 2) (.f64 ky ky))))) (sqrt.f64 (-.f64 (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky)))))
(pow.f64 (+.f64 #s(approx (pow (sin ky) 2) (*.f64 ky ky)) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1/2 binary64))
(.f64 (pow.f64 (+.f64 #s(approx (pow (sin ky) 2) (.f64 ky ky)) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1/4 binary64)) (pow.f64 (+.f64 #s(approx (pow (sin ky) 2) (*.f64 ky ky)) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1/4 binary64)))
(+.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64))))
(+.f64 (*.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64)) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))
(+.f64 (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64)))
(+.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))
(+.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64)))
(+.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64))) #s(literal 1/2 binary64))
(-.f64 (/.f64 (pow.f64 (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64)) #s(literal 2 binary64)) (-.f64 (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))) (/.f64 (pow.f64 (sin.f64 ky) #s(literal 4 binary64)) (-.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))))
(fma.f64 (sin.f64 ky) (sin.f64 ky) (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64)))
(fma.f64 (sin.f64 kx) (sin.f64 kx) (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64)))
(fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))
(fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))
(fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))
(fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))
(fma.f64 (-.f64 (cos.f64 #s(literal 0 binary64)) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64) (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64)))
(fma.f64 (fma.f64 (pow.f64 (cos.f64 (+.f64 ky ky)) #s(literal 3 binary64)) #s(literal -1/8 binary64) #s(literal 1/8 binary64)) (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64)) (-.f64 (.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64)) #s(literal 1/2 binary64)) #s(literal 1/4 binary64))) (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64)))
(fma.f64 (-.f64 #s(literal 1/4 binary64) (.f64 #s(literal 1/4 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (+.f64 ky ky))))))) (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)))) (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64)))
(fma.f64 (exp.f64 (log.f64 (sin.f64 kx))) (exp.f64 (log.f64 (sin.f64 kx))) (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64)))
(fma.f64 (exp.f64 (log.f64 (sin.f64 ky))) (exp.f64 (log.f64 (sin.f64 ky))) (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64)))
(fma.f64 (+.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1 binary64)) #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64)))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (-.f64 (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64))) (pow.f64 (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64)) #s(literal 2 binary64))) (fma.f64 #s(literal 1/8 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 3 binary64)) (pow.f64 (sin.f64 ky) #s(literal 6 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (-.f64 (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (-.f64 (pow.f64 (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64)) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 4 binary64)))))
(/.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64))
(/.f64 (neg.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))) #s(literal -1 binary64))
(/.f64 (fma.f64 #s(literal 1/8 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 3 binary64)) (pow.f64 (sin.f64 ky) #s(literal 6 binary64))) (fma.f64 (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (-.f64 (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64))) (pow.f64 (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64)) #s(literal 2 binary64))))
(/.f64 (fma.f64 #s(literal 1/8 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 3 binary64)) (pow.f64 (sin.f64 ky) #s(literal 6 binary64))) (+.f64 (pow.f64 (sin.f64 ky) #s(literal 4 binary64)) (-.f64 (pow.f64 (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64)) #s(literal 2 binary64)) (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) (*.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))))))
(/.f64 (fma.f64 #s(literal 1/8 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 3 binary64)) (pow.f64 (sin.f64 ky) #s(literal 6 binary64))) (.f64 #s(literal 1 binary64) (fma.f64 (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (-.f64 (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64))) (pow.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64)) #s(literal 2 binary64)))))
(/.f64 (-.f64 (pow.f64 (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64)) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 4 binary64))) (-.f64 (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(/.f64 (-.f64 (pow.f64 (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64)) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 4 binary64))) (.f64 #s(literal 1 binary64) (-.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))))
(/.f64 (neg.f64 (fma.f64 #s(literal 1/8 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 3 binary64)) (pow.f64 (sin.f64 ky) #s(literal 6 binary64)))) (neg.f64 (fma.f64 (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (-.f64 (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64))) (pow.f64 (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64)) #s(literal 2 binary64)))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64)) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 4 binary64)))) (neg.f64 (-.f64 (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))))
(/.f64 (+.f64 (pow.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64)) #s(literal 3 binary64))) (fma.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (-.f64 (.f64 #s(literal 1/4 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (+.f64 ky ky)))))) (.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64))))))
(/.f64 (-.f64 (pow.f64 (sin.f64 ky) #s(literal 4 binary64)) (pow.f64 (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64)) #s(literal 2 binary64))) (-.f64 (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64))))
(/.f64 (-.f64 (.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (.f64 #s(literal 1/4 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (+.f64 ky ky))))))) (-.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64))))
(*.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64))
(.f64 (fma.f64 #s(literal 1/8 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 3 binary64)) (pow.f64 (sin.f64 ky) #s(literal 6 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (-.f64 (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64))) (pow.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64)) #s(literal 2 binary64)))))
(.f64 (-.f64 (pow.f64 (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64)) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (-.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))))
(exp.f64 (*.f64 (log.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))) #s(literal -1 binary64)))
(neg.f64 (/.f64 #s(literal -1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))))
(/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(/.f64 #s(literal 1 binary64) (neg.f64 (neg.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))))
(/.f64 #s(literal -1 binary64) (neg.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))))
(pow.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal -1 binary64))
(*.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))))
(*.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))) #s(literal 1 binary64))
(*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))))
(*.f64 #s(literal -1 binary64) (/.f64 #s(literal 1 binary64) (neg.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))))
(.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/8 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 3 binary64)) (pow.f64 (sin.f64 ky) #s(literal 6 binary64)))) (fma.f64 (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (-.f64 (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64))) (pow.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64)) #s(literal 2 binary64))))
(.f64 (/.f64 #s(literal 1 binary64) (-.f64 (pow.f64 (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64)) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 4 binary64)))) (-.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64)))
(+.f64 #s(literal 1/2 binary64) (neg.f64 (*.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))))
(+.f64 (*.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64)) #s(literal 1/2 binary64))
(exp.f64 (*.f64 #s(literal 2 binary64) (log.f64 (sin.f64 kx))))
(exp.f64 (*.f64 #s(literal 2 binary64) (log.f64 (sin.f64 ky))))
(-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)))
(-.f64 (/.f64 #s(literal 1/4 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)))) (/.f64 (.f64 #s(literal 1/4 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (+.f64 ky ky)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)))))
(-.f64 (/.f64 (cos.f64 #s(literal 0 binary64)) #s(literal 2 binary64)) (/.f64 (cos.f64 (+.f64 ky ky)) #s(literal 2 binary64)))
(fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 (cos.f64 #s(literal 0 binary64)) (cos.f64 (+.f64 ky ky)))))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64)) (-.f64 (.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64)) #s(literal 1/2 binary64)) #s(literal 1/4 binary64)) (fma.f64 (pow.f64 (cos.f64 (+.f64 ky ky)) #s(literal 3 binary64)) #s(literal -1/8 binary64) #s(literal 1/8 binary64))))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))) (-.f64 #s(literal 1/4 binary64) (.f64 #s(literal 1/4 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (+.f64 ky ky)))))))))
(/.f64 (-.f64 (cos.f64 #s(literal 0 binary64)) (cos.f64 (+.f64 ky ky))) #s(literal 2 binary64))
(/.f64 (fma.f64 (pow.f64 (cos.f64 (+.f64 ky ky)) #s(literal 3 binary64)) #s(literal -1/8 binary64) #s(literal 1/8 binary64)) (fma.f64 (.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64)) (-.f64 (.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64)) #s(literal 1/2 binary64)) #s(literal 1/4 binary64)))
(/.f64 (fma.f64 (pow.f64 (cos.f64 (+.f64 ky ky)) #s(literal 3 binary64)) #s(literal -1/8 binary64) #s(literal 1/8 binary64)) (fma.f64 #s(literal 1/4 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (+.f64 ky ky))))) (-.f64 #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (cos.f64 (+.f64 ky ky))))))
(/.f64 (-.f64 #s(literal 1/4 binary64) (.f64 #s(literal 1/4 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (+.f64 ky ky))))))) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))))
(/.f64 (neg.f64 (-.f64 (cos.f64 #s(literal 0 binary64)) (cos.f64 (+.f64 ky ky)))) #s(literal -2 binary64))
(/.f64 (neg.f64 (fma.f64 (pow.f64 (cos.f64 (+.f64 ky ky)) #s(literal 3 binary64)) #s(literal -1/8 binary64) #s(literal 1/8 binary64))) (neg.f64 (fma.f64 (.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64)) (-.f64 (.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64)) #s(literal 1/2 binary64)) #s(literal 1/4 binary64))))
(/.f64 (neg.f64 (-.f64 #s(literal 1/4 binary64) (.f64 #s(literal 1/4 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (+.f64 ky ky)))))))) (neg.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)))))
(/.f64 (-.f64 #s(literal 1/8 binary64) (pow.f64 (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)) #s(literal 3 binary64))) (+.f64 #s(literal 1/4 binary64) (fma.f64 (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)) (.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))))))
(/.f64 (-.f64 (.f64 #s(literal 1/4 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (+.f64 ky ky)))))) #s(literal 1/4 binary64)) (-.f64 (.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64)) #s(literal 1/2 binary64)))
(/.f64 (-.f64 #s(literal 1/4 binary64) (.f64 (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)))) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))))
(pow.f64 (sin.f64 ky) #s(literal 2 binary64))
(pow.f64 (sin.f64 kx) #s(literal 2 binary64))
(pow.f64 (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1 binary64))
(pow.f64 (exp.f64 (log.f64 (sin.f64 kx))) #s(literal 2 binary64))
(pow.f64 (exp.f64 (log.f64 (sin.f64 ky))) #s(literal 2 binary64))
(*.f64 (sin.f64 ky) (sin.f64 ky))
(*.f64 (sin.f64 kx) (sin.f64 kx))
(*.f64 (-.f64 (cos.f64 #s(literal 0 binary64)) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64))
(.f64 (fma.f64 (pow.f64 (cos.f64 (+.f64 ky ky)) #s(literal 3 binary64)) #s(literal -1/8 binary64) #s(literal 1/8 binary64)) (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64)) (-.f64 (*.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64)) #s(literal 1/2 binary64)) #s(literal 1/4 binary64))))
(.f64 (-.f64 #s(literal 1/4 binary64) (.f64 #s(literal 1/4 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (+.f64 ky ky))))))) (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)))))
(*.f64 (exp.f64 (log.f64 (sin.f64 kx))) (exp.f64 (log.f64 (sin.f64 kx))))
(*.f64 (exp.f64 (log.f64 (sin.f64 ky))) (exp.f64 (log.f64 (sin.f64 ky))))
(/.f64 (.f64 #s(literal 1 binary64) (.f64 (sin.f64 ky) (sin.f64 th))) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))))
(.f64 (sin.f64 ky) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))) (sin.f64 th)))
(*.f64 (sin.f64 th) (/.f64 (sin.f64 ky) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))))
(.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))) (.f64 (sin.f64 ky) (sin.f64 th)))
(*.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))) (sin.f64 th))
(.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))))
(.f64 (.f64 (sin.f64 th) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))))) (sin.f64 ky))
(+.f64 (/.f64 #s(literal 1 binary64) (sin.f64 kx)) (.f64 (.f64 ky ky) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal -3 binary64)) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx)))))
(+.f64 (.f64 (.f64 ky ky) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal -3 binary64)) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx)))) (/.f64 #s(literal 1 binary64) (sin.f64 kx)))
(+.f64 (.f64 (.f64 ky ky) (.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal -3 binary64)))) (fma.f64 (.f64 ky ky) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx)) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))
(+.f64 (+.f64 (/.f64 #s(literal 1 binary64) (sin.f64 kx)) (.f64 (.f64 ky ky) (.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal -3 binary64))))) (/.f64 (.f64 ky ky) (*.f64 (sin.f64 kx) #s(literal -6 binary64))))
(-.f64 (/.f64 (pow.f64 (.f64 (.f64 ky ky) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal -3 binary64)) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx)))) #s(literal 2 binary64)) (-.f64 (.f64 (.f64 ky ky) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal -3 binary64)) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx)))) (/.f64 #s(literal 1 binary64) (sin.f64 kx)))) (/.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (-.f64 (.f64 (.f64 ky ky) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal -3 binary64)) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx)))) (/.f64 #s(literal 1 binary64) (sin.f64 kx)))))
(fma.f64 ky (*.f64 ky (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal -3 binary64)) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx)))) (/.f64 #s(literal 1 binary64) (sin.f64 kx)))
(fma.f64 ky (.f64 ky (.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal -3 binary64)))) (fma.f64 (*.f64 ky ky) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx)) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))
(fma.f64 (.f64 ky ky) (.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal -3 binary64))) (fma.f64 (*.f64 ky ky) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx)) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))
(fma.f64 (*.f64 ky ky) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal -3 binary64)) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx)))
(fma.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx)) (.f64 (.f64 ky ky) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal -3 binary64)) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx)))))
(fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 (sin.f64 kx) #s(literal -3 binary64)) (.f64 ky ky)) (fma.f64 (*.f64 ky ky) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx)) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))
(fma.f64 (.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal -3 binary64))) (.f64 ky ky) (fma.f64 (*.f64 ky ky) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx)) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))
(fma.f64 (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal -3 binary64)) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (*.f64 ky ky) (/.f64 #s(literal 1 binary64) (sin.f64 kx)))
(fma.f64 (/.f64 #s(literal 1 binary64) (sin.f64 kx)) #s(literal 1 binary64) (.f64 (.f64 ky ky) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal -3 binary64)) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx)))))
(fma.f64 #s(literal -1 binary64) (/.f64 #s(literal 1 binary64) (neg.f64 (sin.f64 kx))) (.f64 (.f64 ky ky) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal -3 binary64)) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx)))))
(fma.f64 (*.f64 ky (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal -3 binary64)) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx)))) ky (/.f64 #s(literal 1 binary64) (sin.f64 kx)))
(fma.f64 (pow.f64 (sin.f64 kx) #s(literal -1/2 binary64)) (pow.f64 (sin.f64 kx) #s(literal -1/2 binary64)) (.f64 (.f64 ky ky) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal -3 binary64)) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx)))))
(fma.f64 (.f64 (.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal -3 binary64))) ky) ky (fma.f64 (*.f64 ky ky) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx)) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))
(fma.f64 (.f64 (.f64 ky ky) #s(literal -1/2 binary64)) (pow.f64 (sin.f64 kx) #s(literal -3 binary64)) (fma.f64 (*.f64 ky ky) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx)) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (/.f64 #s(literal 1 binary64) (sin.f64 kx)) (-.f64 (/.f64 #s(literal 1 binary64) (sin.f64 kx)) (.f64 (.f64 ky ky) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal -3 binary64)) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))))) (pow.f64 (.f64 (.f64 ky ky) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal -3 binary64)) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx)))) #s(literal 2 binary64))) (+.f64 (pow.f64 (.f64 (.f64 ky ky) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal -3 binary64)) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx)))) #s(literal 3 binary64)) (pow.f64 (sin.f64 kx) #s(literal -3 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (-.f64 (.f64 (.f64 ky ky) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal -3 binary64)) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx)))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))) (-.f64 (pow.f64 (.f64 (.f64 ky ky) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal -3 binary64)) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx)))) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))))
(/.f64 (+.f64 (pow.f64 (.f64 (.f64 ky ky) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal -3 binary64)) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx)))) #s(literal 3 binary64)) (pow.f64 (sin.f64 kx) #s(literal -3 binary64))) (fma.f64 (/.f64 #s(literal 1 binary64) (sin.f64 kx)) (-.f64 (/.f64 #s(literal 1 binary64) (sin.f64 kx)) (.f64 (.f64 ky ky) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal -3 binary64)) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))))) (pow.f64 (.f64 (.f64 ky ky) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal -3 binary64)) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx)))) #s(literal 2 binary64))))
(/.f64 (+.f64 (pow.f64 (.f64 (.f64 ky ky) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal -3 binary64)) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx)))) #s(literal 3 binary64)) (pow.f64 (sin.f64 kx) #s(literal -3 binary64))) (+.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (-.f64 (pow.f64 (.f64 (.f64 ky ky) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal -3 binary64)) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx)))) #s(literal 2 binary64)) (/.f64 (.f64 (.f64 ky ky) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal -3 binary64)) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx)))) (sin.f64 kx)))))
(/.f64 (-.f64 (pow.f64 (.f64 (.f64 ky ky) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal -3 binary64)) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx)))) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))) (-.f64 (.f64 (.f64 ky ky) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal -3 binary64)) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx)))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))
(/.f64 (neg.f64 (+.f64 (pow.f64 (.f64 (.f64 ky ky) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal -3 binary64)) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx)))) #s(literal 3 binary64)) (pow.f64 (sin.f64 kx) #s(literal -3 binary64)))) (neg.f64 (fma.f64 (/.f64 #s(literal 1 binary64) (sin.f64 kx)) (-.f64 (/.f64 #s(literal 1 binary64) (sin.f64 kx)) (.f64 (.f64 ky ky) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal -3 binary64)) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))))) (pow.f64 (.f64 (.f64 ky ky) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal -3 binary64)) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx)))) #s(literal 2 binary64)))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (.f64 (.f64 ky ky) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal -3 binary64)) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx)))) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))) (neg.f64 (-.f64 (.f64 (.f64 ky ky) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal -3 binary64)) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx)))) (/.f64 #s(literal 1 binary64) (sin.f64 kx)))))
(/.f64 (-.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (pow.f64 (.f64 (.f64 ky ky) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal -3 binary64)) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx)))) #s(literal 2 binary64))) (-.f64 (/.f64 #s(literal 1 binary64) (sin.f64 kx)) (.f64 (.f64 ky ky) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal -3 binary64)) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))))))
(.f64 (+.f64 (pow.f64 (.f64 (.f64 ky ky) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal -3 binary64)) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx)))) #s(literal 3 binary64)) (pow.f64 (sin.f64 kx) #s(literal -3 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 (/.f64 #s(literal 1 binary64) (sin.f64 kx)) (-.f64 (/.f64 #s(literal 1 binary64) (sin.f64 kx)) (.f64 (.f64 ky ky) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal -3 binary64)) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))))) (pow.f64 (.f64 (*.f64 ky ky) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal -3 binary64)) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx)))) #s(literal 2 binary64)))))
(.f64 (-.f64 (pow.f64 (.f64 (.f64 ky ky) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal -3 binary64)) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx)))) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))) (/.f64 #s(literal 1 binary64) (-.f64 (.f64 (*.f64 ky ky) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal -3 binary64)) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx)))) (/.f64 #s(literal 1 binary64) (sin.f64 kx)))))
(.f64 (sin.f64 th) #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal -3 binary64)) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (.f64 ky (*.f64 ky ky)) (/.f64 ky (sin.f64 kx)))))
(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal -3 binary64)) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (.f64 ky (*.f64 ky ky)) (/.f64 ky (sin.f64 kx)))) (sin.f64 th))
#s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal -3 binary64)) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (.f64 ky (.f64 ky ky)) (/.f64 ky (sin.f64 kx))))
(+.f64 (.f64 (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal -3 binary64)) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (.f64 ky (*.f64 ky ky))) (/.f64 ky (sin.f64 kx)))
(+.f64 (/.f64 ky (sin.f64 kx)) (.f64 (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal -3 binary64)) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (.f64 ky (*.f64 ky ky))))
(fma.f64 ky (/.f64 #s(literal 1 binary64) (sin.f64 kx)) (.f64 (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal -3 binary64)) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (.f64 ky (*.f64 ky ky))))
(fma.f64 ky (.f64 (.f64 ky ky) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal -3 binary64)) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx)))) (/.f64 ky (sin.f64 kx)))
(fma.f64 (.f64 ky ky) (.f64 ky (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal -3 binary64)) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx)))) (/.f64 ky (sin.f64 kx)))
(fma.f64 #s(literal 1 binary64) (/.f64 ky (sin.f64 kx)) (.f64 (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal -3 binary64)) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (.f64 ky (*.f64 ky ky))))
(fma.f64 (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal -3 binary64)) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (.f64 ky (.f64 ky ky)) (/.f64 ky (sin.f64 kx)))
(fma.f64 (/.f64 #s(literal 1 binary64) (sin.f64 kx)) ky (.f64 (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal -3 binary64)) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (.f64 ky (*.f64 ky ky))))
(fma.f64 (.f64 (.f64 ky ky) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal -3 binary64)) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx)))) ky (/.f64 ky (sin.f64 kx)))
(fma.f64 (.f64 ky (.f64 ky ky)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal -3 binary64)) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 ky (sin.f64 kx)))
(fma.f64 (.f64 ky (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal -3 binary64)) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx)))) (.f64 ky ky) (/.f64 ky (sin.f64 kx)))
(fma.f64 (.f64 ky #s(literal 1 binary64)) (/.f64 #s(literal 1 binary64) (sin.f64 kx)) (.f64 (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal -3 binary64)) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (.f64 ky (.f64 ky ky))))
(/.f64 (+.f64 (pow.f64 (.f64 (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal -3 binary64)) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (.f64 ky (.f64 ky ky))) #s(literal 3 binary64)) (pow.f64 (/.f64 ky (sin.f64 kx)) #s(literal 3 binary64))) (fma.f64 (.f64 (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal -3 binary64)) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (.f64 ky (.f64 ky ky))) (.f64 (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal -3 binary64)) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (.f64 ky (.f64 ky ky))) (-.f64 (.f64 (/.f64 ky (sin.f64 kx)) (/.f64 ky (sin.f64 kx))) (.f64 (.f64 (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal -3 binary64)) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (.f64 ky (.f64 ky ky))) (/.f64 ky (sin.f64 kx))))))
(/.f64 (-.f64 (.f64 (.f64 (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal -3 binary64)) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (.f64 ky (.f64 ky ky))) (.f64 (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal -3 binary64)) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (.f64 ky (.f64 ky ky)))) (.f64 (/.f64 ky (sin.f64 kx)) (/.f64 ky (sin.f64 kx)))) (-.f64 (.f64 (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal -3 binary64)) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (.f64 ky (*.f64 ky ky))) (/.f64 ky (sin.f64 kx))))
(/.f64 (.f64 ky (+.f64 (pow.f64 (.f64 (.f64 ky ky) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal -3 binary64)) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx)))) #s(literal 3 binary64)) (pow.f64 (sin.f64 kx) #s(literal -3 binary64)))) (fma.f64 (/.f64 #s(literal 1 binary64) (sin.f64 kx)) (-.f64 (/.f64 #s(literal 1 binary64) (sin.f64 kx)) (.f64 (.f64 ky ky) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal -3 binary64)) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))))) (pow.f64 (.f64 (*.f64 ky ky) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal -3 binary64)) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx)))) #s(literal 2 binary64))))
(/.f64 (.f64 ky (-.f64 (pow.f64 (.f64 (.f64 ky ky) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal -3 binary64)) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx)))) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))) (-.f64 (.f64 (*.f64 ky ky) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal -3 binary64)) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx)))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))
(/.f64 (.f64 (+.f64 (pow.f64 (.f64 (.f64 ky ky) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal -3 binary64)) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx)))) #s(literal 3 binary64)) (pow.f64 (sin.f64 kx) #s(literal -3 binary64))) ky) (fma.f64 (/.f64 #s(literal 1 binary64) (sin.f64 kx)) (-.f64 (/.f64 #s(literal 1 binary64) (sin.f64 kx)) (.f64 (.f64 ky ky) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal -3 binary64)) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))))) (pow.f64 (.f64 (*.f64 ky ky) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal -3 binary64)) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx)))) #s(literal 2 binary64))))
(/.f64 (.f64 (-.f64 (pow.f64 (.f64 (.f64 ky ky) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal -3 binary64)) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx)))) #s(literal 2 binary64)) (/.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))) ky) (-.f64 (.f64 (*.f64 ky ky) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal -3 binary64)) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx)))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))
(.f64 ky (fma.f64 (.f64 ky ky) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal -3 binary64)) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))
(.f64 (fma.f64 (.f64 ky ky) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal -3 binary64)) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))) ky)
(exp.f64 (*.f64 (log.f64 (sin.f64 kx)) #s(literal 1 binary64)))
(sin.f64 kx)
(/.f64 (sin.f64 kx) #s(literal 1 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx)))
(/.f64 (neg.f64 (sin.f64 kx)) #s(literal -1 binary64))
(pow.f64 (sin.f64 kx) #s(literal 1 binary64))
(*.f64 (sin.f64 kx) #s(literal 1 binary64))
(*.f64 (pow.f64 (sin.f64 kx) #s(literal 1/2 binary64)) (pow.f64 (sin.f64 kx) #s(literal 1/2 binary64)))
#s(approx (pow (sin ky) 2) (*.f64 ky ky))
(+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64)))
(+.f64 #s(literal 1/2 binary64) (neg.f64 (*.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))))
(+.f64 (*.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64)) #s(literal 1/2 binary64))
(exp.f64 (*.f64 #s(literal 2 binary64) (log.f64 (sin.f64 kx))))
(exp.f64 (*.f64 #s(literal 2 binary64) (log.f64 (sin.f64 ky))))
(-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)))
(-.f64 (/.f64 #s(literal 1/4 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)))) (/.f64 (.f64 #s(literal 1/4 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (+.f64 ky ky)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)))))
(-.f64 (/.f64 (cos.f64 #s(literal 0 binary64)) #s(literal 2 binary64)) (/.f64 (cos.f64 (+.f64 ky ky)) #s(literal 2 binary64)))
(fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 (cos.f64 #s(literal 0 binary64)) (cos.f64 (+.f64 ky ky)))))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64)) (-.f64 (.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64)) #s(literal 1/2 binary64)) #s(literal 1/4 binary64)) (fma.f64 (pow.f64 (cos.f64 (+.f64 ky ky)) #s(literal 3 binary64)) #s(literal -1/8 binary64) #s(literal 1/8 binary64))))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))) (-.f64 #s(literal 1/4 binary64) (.f64 #s(literal 1/4 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (+.f64 ky ky)))))))))
(/.f64 (-.f64 (cos.f64 #s(literal 0 binary64)) (cos.f64 (+.f64 ky ky))) #s(literal 2 binary64))
(/.f64 (fma.f64 (pow.f64 (cos.f64 (+.f64 ky ky)) #s(literal 3 binary64)) #s(literal -1/8 binary64) #s(literal 1/8 binary64)) (fma.f64 (.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64)) (-.f64 (.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64)) #s(literal 1/2 binary64)) #s(literal 1/4 binary64)))
(/.f64 (fma.f64 (pow.f64 (cos.f64 (+.f64 ky ky)) #s(literal 3 binary64)) #s(literal -1/8 binary64) #s(literal 1/8 binary64)) (fma.f64 #s(literal 1/4 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (+.f64 ky ky))))) (-.f64 #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (cos.f64 (+.f64 ky ky))))))
(/.f64 (-.f64 #s(literal 1/4 binary64) (.f64 #s(literal 1/4 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (+.f64 ky ky))))))) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))))
(/.f64 (neg.f64 (-.f64 (cos.f64 #s(literal 0 binary64)) (cos.f64 (+.f64 ky ky)))) #s(literal -2 binary64))
(/.f64 (neg.f64 (fma.f64 (pow.f64 (cos.f64 (+.f64 ky ky)) #s(literal 3 binary64)) #s(literal -1/8 binary64) #s(literal 1/8 binary64))) (neg.f64 (fma.f64 (.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64)) (-.f64 (.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64)) #s(literal 1/2 binary64)) #s(literal 1/4 binary64))))
(/.f64 (neg.f64 (-.f64 #s(literal 1/4 binary64) (.f64 #s(literal 1/4 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (+.f64 ky ky)))))))) (neg.f64 (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)))))
(/.f64 (-.f64 #s(literal 1/8 binary64) (pow.f64 (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)) #s(literal 3 binary64))) (+.f64 #s(literal 1/4 binary64) (fma.f64 (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)) (.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))))))
(/.f64 (-.f64 (.f64 #s(literal 1/4 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (+.f64 ky ky)))))) #s(literal 1/4 binary64)) (-.f64 (.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64)) #s(literal 1/2 binary64)))
(/.f64 (-.f64 #s(literal 1/4 binary64) (.f64 (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)))) (+.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))))
(pow.f64 (sin.f64 ky) #s(literal 2 binary64))
(pow.f64 (sin.f64 kx) #s(literal 2 binary64))
(pow.f64 (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 1 binary64))
(pow.f64 (exp.f64 (log.f64 (sin.f64 kx))) #s(literal 2 binary64))
(pow.f64 (exp.f64 (log.f64 (sin.f64 ky))) #s(literal 2 binary64))
(*.f64 (sin.f64 ky) (sin.f64 ky))
(*.f64 (sin.f64 kx) (sin.f64 kx))
(*.f64 (-.f64 (cos.f64 #s(literal 0 binary64)) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64))
(.f64 (fma.f64 (pow.f64 (cos.f64 (+.f64 ky ky)) #s(literal 3 binary64)) #s(literal -1/8 binary64) #s(literal 1/8 binary64)) (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64)) (-.f64 (*.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64)) #s(literal 1/2 binary64)) #s(literal 1/4 binary64))))
(.f64 (-.f64 #s(literal 1/4 binary64) (.f64 #s(literal 1/4 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (+.f64 ky ky))))))) (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)))))
(*.f64 (exp.f64 (log.f64 (sin.f64 kx))) (exp.f64 (log.f64 (sin.f64 kx))))
(*.f64 (exp.f64 (log.f64 (sin.f64 ky))) (exp.f64 (log.f64 (sin.f64 ky))))
(+.f64 #s(literal 1 binary64) (neg.f64 (cos.f64 (+.f64 ky ky))))
(+.f64 (neg.f64 (cos.f64 (+.f64 ky ky))) #s(literal 1 binary64))
(+.f64 (-.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64)))) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))
(-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))
(-.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 (+.f64 ky ky)) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1 binary64))) (/.f64 (pow.f64 (cos.f64 (+.f64 ky ky)) #s(literal 3 binary64)) (fma.f64 (cos.f64 (+.f64 ky ky)) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1 binary64))))
(-.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))) (/.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (+.f64 ky ky))))) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))))
(fma.f64 #s(literal -1 binary64) (cos.f64 (+.f64 ky ky)) #s(literal 1 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (cos.f64 (+.f64 ky ky)) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1 binary64)) (-.f64 #s(literal 1 binary64) (pow.f64 (cos.f64 (+.f64 ky ky)) #s(literal 3 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) (-.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (+.f64 ky ky))))))))
(/.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (cos.f64 (+.f64 ky ky)) #s(literal 3 binary64))) (fma.f64 (cos.f64 (+.f64 ky ky)) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1 binary64)))
(/.f64 (-.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (+.f64 ky ky)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))))
(/.f64 (neg.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (cos.f64 (+.f64 ky ky)) #s(literal 3 binary64)))) (neg.f64 (fma.f64 (cos.f64 (+.f64 ky ky)) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1 binary64))))
(/.f64 (neg.f64 (-.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (+.f64 ky ky))))))) (neg.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))))
(/.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (neg.f64 (cos.f64 (+.f64 ky ky))) #s(literal 3 binary64))) (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (neg.f64 (cos.f64 (+.f64 ky ky))) (neg.f64 (cos.f64 (+.f64 ky ky)))) (.f64 #s(literal 1 binary64) (neg.f64 (cos.f64 (+.f64 ky ky)))))))
(/.f64 (-.f64 #s(literal 1 binary64) (*.f64 (neg.f64 (cos.f64 (+.f64 ky ky))) (neg.f64 (cos.f64 (+.f64 ky ky))))) (-.f64 #s(literal 1 binary64) (neg.f64 (cos.f64 (+.f64 ky ky)))))
(*.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (cos.f64 (+.f64 ky ky)) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 (+.f64 ky ky)) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1 binary64))))
(.f64 (-.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (+.f64 ky ky)))))) (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))))
(exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))) #s(literal 1/2 binary64)))
(sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))))
(/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))) #s(literal 1 binary64)))
(/.f64 #s(literal -1 binary64) (neg.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))))
(/.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 (neg.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))))
(pow.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal -1/2 binary64))
(pow.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64))
(pow.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))) #s(literal -1 binary64))
(*.f64 #s(literal 1 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))))
(*.f64 (pow.f64 #s(literal 1 binary64) #s(literal 1/2 binary64)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))))
(*.f64 (pow.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))) #s(literal 1/4 binary64)) (pow.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))) #s(literal 1/4 binary64)))
(/.f64 (sin.f64 ky) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))))
(/.f64 (*.f64 (sin.f64 ky) #s(literal 1 binary64)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))))
(/.f64 (*.f64 #s(literal 1 binary64) (sin.f64 ky)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))))
(*.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))))
(*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))) (sin.f64 ky))
(neg.f64 (/.f64 #s(literal 1/6 binary64) (sin.f64 kx)))
(/.f64 #s(literal 1 binary64) (*.f64 (sin.f64 kx) #s(literal -6 binary64)))
(/.f64 #s(literal 1 binary64) (/.f64 (*.f64 (sin.f64 kx) #s(literal -6 binary64)) #s(literal 1 binary64)))
(/.f64 #s(literal -1/6 binary64) (sin.f64 kx))
(/.f64 #s(literal -1/6 binary64) (neg.f64 (neg.f64 (sin.f64 kx))))
(/.f64 #s(literal -1 binary64) (neg.f64 (*.f64 (sin.f64 kx) #s(literal -6 binary64))))
(/.f64 #s(literal 1/6 binary64) (neg.f64 (sin.f64 kx)))
(pow.f64 (*.f64 (sin.f64 kx) #s(literal -6 binary64)) #s(literal -1 binary64))
(*.f64 #s(literal 1 binary64) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx)))
(*.f64 #s(literal -1/6 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx)))
(*.f64 (/.f64 #s(literal 1 binary64) (sin.f64 kx)) #s(literal -1/6 binary64))
(*.f64 #s(literal 1/6 binary64) (/.f64 #s(literal 1 binary64) (neg.f64 (sin.f64 kx))))

eval153.0ms (1.1%)

Memory: 19.3MiB live, 287.6MiB allocated
Compiler: Compiled 28 857 to 2 437 computations (91.6% saved)

prune188.0ms (1.4%)

Memory

-16.4MiB live, 343.0MiB allocated

Pruning

51 alts after pruning (49 fresh and 2 done)

	Pruned	Kept	Total
New	993	34	1 027
Fresh	9	15	24
Picked	3	2	5
Done	0	0	0
Total	1 005	51	1 056

Accuracy

100.0%

Counts

1 056 → 51

Alt Table

Click to see full alt table

Status	Accuracy	Program
	79.1%	(/.f64 (/.f64 (sin.f64 th) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (/.f64 #s(literal 1 binary64) (sin.f64 ky)))
▶	79.2%	(/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))))
	12.4%	(/.f64 (*.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (+.f64 (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))))
	79.1%	(.f64 (/.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (/.f64 #s(literal 1 binary64) (sin.f64 ky))) (sin.f64 th))
	79.1%	(.f64 (/.f64 (sin.f64 th) (pow.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) #s(literal 1/4 binary64))) (/.f64 (sin.f64 ky) (pow.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) #s(literal 1/4 binary64))))
	79.3%	(.f64 (/.f64 (sin.f64 th) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky))
	79.1%	(.f64 (/.f64 (sin.f64 ky) (pow.f64 (pow.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) #s(literal 1/4 binary64)) #s(literal 2 binary64))) (sin.f64 th))
▶	99.6%	(*.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (sin.f64 th))
✓	99.7%	(*.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (sin.f64 kx))) (sin.f64 th))
	55.4%	(.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (sin.f64 kx))) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (*.f64 th th)) th)))
	53.6%	(.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) #s(approx (sin kx) (fma.f64 kx (.f64 #s(literal -1/6 binary64) (*.f64 kx kx)) kx)))) (sin.f64 th))
	12.6%	(*.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))) (sin.f64 th))
	45.2%	(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx))) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky))))) (sin.f64 th))
	27.2%	(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (exp.f64 (.f64 #s(literal 2 binary64) (log.f64 (sin.f64 kx)))) #s(approx (pow (sin ky) 2) (*.f64 ky ky))))) (sin.f64 th))
	43.9%	(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 #s(approx (pow (sin kx) 2) (.f64 kx (.f64 kx (fma.f64 (.f64 kx kx) #s(literal -1/3 binary64) #s(literal 1 binary64))))) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (sin.f64 th))
	24.8%	(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 #s(approx (pow (sin kx) 2) (.f64 kx kx)) #s(approx (pow (sin ky) 2) (*.f64 ky ky))))) (sin.f64 th))
	24.9%	(*.f64 (/.f64 (sin.f64 ky) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx))) (sin.f64 th))
	43.0%	(.f64 (/.f64 #s(approx (sin ky) (fma.f64 ky (.f64 (.f64 ky ky) #s(literal -1/6 binary64)) ky)) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky))))) (sin.f64 th))
	42.9%	(.f64 (/.f64 #s(approx (sin ky) (.f64 ky (fma.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal 1/120 binary64) #s(literal -1/6 binary64)) #s(literal 1 binary64)))) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (*.f64 ky ky))))) (sin.f64 th))
	41.7%	(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th)))
	41.6%	(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (*.f64 th th)) th)))
	41.7%	(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #s(approx (sin th) (.f64 th (fma.f64 (.f64 th th) (fma.f64 (.f64 th th) (fma.f64 #s(literal -1/5040 binary64) (*.f64 th th) #s(literal 1/120 binary64)) #s(literal -1/6 binary64)) #s(literal 1 binary64)))))
	37.9%	(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal 2/45 binary64) #s(literal -1/3 binary64)) #s(literal 1 binary64))))))) (sin.f64 ky)) (sin.f64 th))
▶	37.1%	(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (*.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) (sin.f64 ky)) (sin.f64 th))
	37.8%	(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (*.f64 ky ky))))) (sin.f64 ky)) (sin.f64 th))
	39.0%	(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(approx (- 1 (cos (+ kx kx))) (.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) #s(literal -2/3 binary64) #s(literal 2 binary64)))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) (sin.f64 th))
	40.6%	(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(approx (- 1 (cos (+ kx kx))) (.f64 #s(literal 2 binary64) (.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) (sin.f64 th))
	33.6%	(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) (fma.f64 kx kx #s(literal 1/2 binary64)))))) (sin.f64 ky)) (sin.f64 th))
	33.1%	(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) (sin.f64 ky)) (sin.f64 th))
	54.5%	(.f64 (.f64 (sqrt.f64 (sin.f64 ky)) (sqrt.f64 (/.f64 (sin.f64 ky) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))))) (sin.f64 th))
	31.6%	(.f64 (.f64 (sqrt.f64 #s(approx (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky)))))) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64))))))) (sin.f64 ky)) (sin.f64 th))
	79.0%	(.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))))
	12.6%	(*.f64 (sin.f64 ky) (/.f64 (sin.f64 th) (sqrt.f64 (+.f64 (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))))
	79.2%	(.f64 (neg.f64 (sin.f64 ky)) (.f64 (/.f64 #s(literal -1 binary64) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 th)))
	26.3%	(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (fma.f64 (.f64 kx kx) (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) #s(literal 1 binary64))) (sin.f64 th))
	21.5%	(*.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (/.f64 ky (sin.f64 kx))) (sin.f64 th))
	8.6%	(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky #s(approx (+ (* (* ky ky) (+ (/ -1/2 (pow (sin kx) 3)) (/ -1/6 (sin kx)))) (/ 1 (sin kx))) (/.f64 (fma.f64 (.f64 ky ky) #s(literal -1/2 binary64) (.f64 (.f64 kx kx) (fma.f64 (.f64 ky ky) #s(literal -5/12 binary64) #s(literal 1 binary64)))) (.f64 kx (.f64 kx kx)))))) (sin.f64 th))
	7.3%	(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky #s(approx (+ (* (* ky ky) (+ (/ -1/2 (pow (sin kx) 3)) (/ -1/6 (sin kx)))) (/ 1 (sin kx))) (/.f64 (fma.f64 (.f64 kx kx) (fma.f64 (.f64 ky ky) #s(literal -5/12 binary64) (fma.f64 (.f64 kx kx) (fma.f64 (.f64 ky ky) #s(literal -71/720 binary64) #s(literal 1/6 binary64)) #s(literal 1 binary64))) (.f64 (.f64 ky ky) #s(literal -1/2 binary64))) (.f64 kx (.f64 kx kx)))))) (sin.f64 th))
	6.8%	(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky #s(approx (+ (* (* ky ky) (+ (/ -1/2 (pow (sin kx) 3)) (/ -1/6 (sin kx)))) (/ 1 (sin kx))) (/.f64 (.f64 (.f64 ky ky) #s(literal -1/2 binary64)) (.f64 kx (.f64 kx kx)))))) (sin.f64 th))
	21.5%	(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky #s(approx (+ (* (* ky ky) (+ (/ -1/2 (pow (sin kx) 3)) (/ -1/6 (sin kx)))) (/ 1 (sin kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (sin.f64 th))
	5.0%	(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) #s(approx ( ky (+ (* (* ky ky) (+ (/ -1/2 (pow (sin kx) 3)) (/ -1/6 (sin kx)))) (/ 1 (sin kx)))) (/.f64 (fma.f64 (.f64 kx kx) (fma.f64 ky (fma.f64 (.f64 ky ky) #s(literal -5/12 binary64) #s(literal 1 binary64)) (.f64 (.f64 (.f64 kx kx) ky) (fma.f64 (.f64 ky ky) #s(literal -71/720 binary64) #s(literal 1/6 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 ky (.f64 ky ky)))) (.f64 kx (*.f64 kx kx))))) (sin.f64 th))
	6.0%	(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) #s(approx ( ky (+ (* (* ky ky) (+ (/ -1/2 (pow (sin kx) 3)) (/ -1/6 (sin kx)))) (/ 1 (sin kx)))) (/.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 ky (.f64 ky ky)) (.f64 (.f64 (.f64 kx kx) ky) (fma.f64 (.f64 ky ky) #s(literal -5/12 binary64) #s(literal 1 binary64)))) (.f64 kx (.f64 kx kx))))) (sin.f64 th))
▶	26.4%	(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th))
	20.6%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (/.f64 (*.f64 ky (sin.f64 th)) (sin.f64 kx)))
	17.7%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 ky (fma.f64 (fma.f64 (.f64 ky ky) #s(literal -1/6 binary64) #s(literal 1 binary64)) (/.f64 (sin.f64 th) (sin.f64 kx)) (/.f64 (.f64 (.f64 ky ky) (*.f64 #s(literal -1/2 binary64) (sin.f64 th))) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))))))
✓	32.9%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th))
	20.1%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (*.f64 th th) #s(literal -1/6 binary64))) th)))
▶	20.2%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th)))
	26.3%	#s(approx (* (* (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (sin th)) (.f64 (.f64 (.f64 ky (sin.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))))
	33.0%	#s(approx (* (* (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (sin th)) (.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
	41.8%	#s(approx (* (* (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (sin th)) (.f64 (.f64 th (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))))

Compiler

Compiled 2 570 to 1 633 computations (36.5% saved)

simplify107.0ms (0.8%)

Memory

22.1MiB live, 99.9MiB allocated

Algorithm

1×	egg-herbie

Localize:

Found 20 expressions of interest:

New	Metric	Score
cost-diff	0	(*.f64 (sin.f64 ky) (sin.f64 th))
cost-diff	0	(/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))))
cost-diff	128	(+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))
cost-diff	384	(fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))
cost-diff	0	(/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (*.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))
cost-diff	0	(sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (*.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64)))))))
cost-diff	0	(.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 ( -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (*.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) (sin.f64 ky))
cost-diff	0	(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (*.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) (sin.f64 ky)) (sin.f64 th))
cost-diff	0	(sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64))))))
cost-diff	0	(.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))
cost-diff	0	#s(approx (* (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (*.f64 ky (sqrt.f64 #s(literal 2 binary64)))))
cost-diff	0	(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th))
cost-diff	0	(.f64 #s(literal -1/6 binary64) (.f64 th th))
cost-diff	0	(fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th)
cost-diff	0	#s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th))
cost-diff	0	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th)))
cost-diff	0	(sin.f64 ky)
cost-diff	0	(/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx)))))
cost-diff	0	(*.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (sin.f64 th))
cost-diff	1408	(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx)))

Rules

1 862×	`lower-fma.f32`
1 854×	`lower-fma.f64`
880×	`lower-*.f32`
854×	`lower-*.f64`
540×	`lower-+.f32`

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	74	569
0	123	548
1	186	548
2	278	540
3	395	523
4	499	523
5	586	523
6	751	523
7	957	523
8	1230	519
9	1573	519
10	2147	519
11	2521	519
12	2661	519
13	2671	519
14	2679	519
15	2685	519
16	2685	519
0	2685	499

Stop Event

1×	iter limit
1×	saturated
1×	iter limit

Calls

Call 1

Inputs
(*.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (sin.f64 th))
(/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx)))))
(sin.f64 ky)
ky
(hypot.f64 (sin.f64 ky) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx)))
#s(literal 1 binary64)
(/.f64 #s(literal 1 binary64) (sin.f64 kx))
(sin.f64 kx)
kx
(sin.f64 th)
th
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th)))
#s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th))
(fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th)
th
(.f64 #s(literal -1/6 binary64) (.f64 th th))
#s(literal -1/6 binary64)
(*.f64 th th)
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th))
#s(approx (* (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (*.f64 ky (sqrt.f64 #s(literal 2 binary64)))))
(.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))
(sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64))))))
(/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64)))))
#s(literal 1 binary64)
(-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64))))
(cos.f64 (*.f64 kx #s(literal -2 binary64)))
(*.f64 kx #s(literal -2 binary64))
kx
#s(literal -2 binary64)
(*.f64 ky (sqrt.f64 #s(literal 2 binary64)))
ky
(sqrt.f64 #s(literal 2 binary64))
#s(literal 2 binary64)
(sin.f64 th)
th
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (*.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) (sin.f64 ky)) (sin.f64 th))
(.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 ( -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (*.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) (sin.f64 ky))
(sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (*.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64)))))))
(/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (*.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))
#s(literal 1 binary64)
(fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (*.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64)))))
(-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))
(cos.f64 (+.f64 kx kx))
(+.f64 kx kx)
kx
#s(literal 1/2 binary64)
#s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (*.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))
(.f64 (.f64 ky ky) (fma.f64 (*.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64)))
(*.f64 ky ky)
ky
(fma.f64 (*.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))
#s(literal -1/3 binary64)
(sin.f64 ky)
(sin.f64 th)
th
(/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))))
(*.f64 (sin.f64 ky) (sin.f64 th))
(sin.f64 ky)
ky
(sin.f64 th)
th
(sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))
(fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))
(-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))
#s(literal 1 binary64)
(cos.f64 (+.f64 kx kx))
(+.f64 kx kx)
kx
#s(literal 1/2 binary64)
(+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))
(*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))
#s(literal -1/2 binary64)
(cos.f64 (+.f64 ky ky))
(+.f64 ky ky)

Outputs
(*.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (sin.f64 th))
(/.f64 (*.f64 (sin.f64 ky) (sin.f64 th)) (hypot.f64 (sin.f64 ky) (sin.f64 kx)))
(/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx)))))
(/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (sin.f64 kx)))
(sin.f64 ky)
ky
(hypot.f64 (sin.f64 ky) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))
(hypot.f64 (sin.f64 ky) (sin.f64 kx))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx)))
(sin.f64 kx)
#s(literal 1 binary64)
(/.f64 #s(literal 1 binary64) (sin.f64 kx))
(sin.f64 kx)
kx
(sin.f64 th)
th
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 (.f64 th th) (.f64 th #s(literal -1/6 binary64)) th)))
#s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th))
#s(approx (sin th) (fma.f64 (.f64 th th) (.f64 th #s(literal -1/6 binary64)) th))
(fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th)
(fma.f64 (.f64 th th) (.f64 th #s(literal -1/6 binary64)) th)
th
(.f64 #s(literal -1/6 binary64) (.f64 th th))
(.f64 th (.f64 th #s(literal -1/6 binary64)))
#s(literal -1/6 binary64)
(*.f64 th th)
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th))
(.f64 (sin.f64 th) #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (* (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (*.f64 ky (sqrt.f64 #s(literal 2 binary64)))))
(.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))
(sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64))))))
(/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64)))))
#s(literal 1 binary64)
(-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64))))
(cos.f64 (*.f64 kx #s(literal -2 binary64)))
(*.f64 kx #s(literal -2 binary64))
kx
#s(literal -2 binary64)
(*.f64 ky (sqrt.f64 #s(literal 2 binary64)))
ky
(sqrt.f64 #s(literal 2 binary64))
#s(literal 2 binary64)
(sin.f64 th)
th
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (*.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) (sin.f64 ky)) (sin.f64 th))
(.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)) #s(approx (+ 1/2 ( -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 ky (.f64 ky #s(literal -1/3 binary64)) #s(literal 1 binary64)))))))) (.f64 (sin.f64 ky) (sin.f64 th)))
(.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 ( -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (*.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) (sin.f64 ky))
(.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)) #s(approx (+ 1/2 ( -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 ky (*.f64 ky #s(literal -1/3 binary64)) #s(literal 1 binary64)))))))))
(sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (*.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64)))))))
(sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 ky (*.f64 ky #s(literal -1/3 binary64)) #s(literal 1 binary64))))))))
(/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (*.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))
(/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 ky (*.f64 ky #s(literal -1/3 binary64)) #s(literal 1 binary64)))))))
#s(literal 1 binary64)
(fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (*.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64)))))
(+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 ky (*.f64 ky #s(literal -1/3 binary64)) #s(literal 1 binary64))))))
(-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))
(cos.f64 (+.f64 kx kx))
(+.f64 kx kx)
kx
#s(literal 1/2 binary64)
#s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (*.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))
#s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 ky (*.f64 ky #s(literal -1/3 binary64)) #s(literal 1 binary64))))
(.f64 (.f64 ky ky) (fma.f64 (*.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64)))
(.f64 (.f64 ky ky) (fma.f64 ky (*.f64 ky #s(literal -1/3 binary64)) #s(literal 1 binary64)))
(*.f64 ky ky)
ky
(fma.f64 (*.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))
(fma.f64 ky (*.f64 ky #s(literal -1/3 binary64)) #s(literal 1 binary64))
#s(literal -1/3 binary64)
(sin.f64 ky)
(sin.f64 th)
th
(/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))))
(/.f64 (*.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (+.f64 (cos.f64 (+.f64 kx kx)) (cos.f64 (+.f64 ky ky))) #s(literal 1 binary64))))
(*.f64 (sin.f64 ky) (sin.f64 th))
(sin.f64 ky)
ky
(sin.f64 th)
th
(sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))
(sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (+.f64 (cos.f64 (+.f64 kx kx)) (cos.f64 (+.f64 ky ky))) #s(literal 1 binary64)))
(fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))
(fma.f64 #s(literal -1/2 binary64) (+.f64 (cos.f64 (+.f64 kx kx)) (cos.f64 (+.f64 ky ky))) #s(literal 1 binary64))
(-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))
#s(literal 1 binary64)
(cos.f64 (+.f64 kx kx))
(+.f64 kx kx)
kx
#s(literal 1/2 binary64)
(+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))
(fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))
(*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))
#s(literal -1/2 binary64)
(cos.f64 (+.f64 ky ky))
(+.f64 ky ky)

localize458.0ms (3.4%)

Memory

-14.0MiB live, 632.8MiB allocated

Localize:

Found 20 expressions of interest:

New	Metric	Score
accuracy	2.317092876196292	(sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))
accuracy	2.911535219162689	(/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))))
accuracy	15.105099720351829	(-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))
accuracy	15.211989615132087	(+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))
accuracy	0.33431625976844204	(.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 ( -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (*.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) (sin.f64 ky))
accuracy	2.5216530197617963	(sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (*.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64)))))))
accuracy	15.105099720351829	(-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))
accuracy	34.199765984323044	#s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (*.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))
accuracy	0.42578125	(*.f64 ky (sqrt.f64 #s(literal 2 binary64)))
accuracy	13.804966919545318	(sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64))))))
accuracy	15.10509972035183	(-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64))))
accuracy	41.37087193415821	#s(approx (* (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (*.f64 ky (sqrt.f64 #s(literal 2 binary64)))))
accuracy	0.02734375	(fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th)
accuracy	0.1796875	(.f64 #s(literal -1/6 binary64) (.f64 th th))
accuracy	28.49151913691686	#s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th))
accuracy	42.97460894060188	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th)))
accuracy	0.08984375	(/.f64 #s(literal 1 binary64) (sin.f64 kx))
accuracy	0.16796875	(*.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (sin.f64 th))
accuracy	0.171875	(/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx)))))
accuracy	0.28515625	(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx)))

Samples

184.0ms	105×	2	valid
94.0ms	59×	1	valid
51.0ms	74×	0	valid
40.0ms	18×	3	valid

Compiler

Compiled 500 to 58 computations (88.4% saved)

Precisions

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

ival-cos: 94.0ms (30.9% of total)

ival-sin: 55.0ms (18.1% of total)

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

adjust: 29.0ms (9.5% of total)

ival-div: 19.0ms (6.2% of total)

ival-sqrt: 18.0ms (5.9% of total)

ival-add: 17.0ms (5.6% of total)

const: 9.0ms (3% of total)

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

ival-hypot: 6.0ms (2% of total)

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

exact: 1.0ms (0.3% of total)

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

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

series50.0ms (0.4%)

Memory

4.4MiB live, 80.8MiB allocated

Counts

26 → 540

Calls

Call 1

Inputs
#s(alt (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx))) (patch (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx))) #<representation binary64>) () ())
#s(alt (.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (sin.f64 th)) #<representation binary64>) () ())
#s(alt (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (patch (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) #<representation binary64>) () ())
#s(alt (sin.f64 ky) (patch (sin.f64 ky) #<representation binary64>) () ())
#s(alt #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th))) (patch #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th))) #<representation binary64>) () ())
#s(alt #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th)) (patch #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th)) #<representation binary64>) () ())
#s(alt (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th) (patch (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th) #<representation binary64>) () ())
#s(alt (.f64 #s(literal -1/6 binary64) (.f64 th th)) (patch (.f64 #s(literal -1/6 binary64) (.f64 th th)) #<representation binary64>) () ())
#s(alt (.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th)) (patch (.f64 #s(approx (* (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th)) #<representation binary64>) () ())
#s(alt #s(approx (* (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (patch #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))) #<representation binary64>) () ())
#s(alt (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (.f64 ky (sqrt.f64 #s(literal 2 binary64)))) (patch (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (.f64 ky (sqrt.f64 #s(literal 2 binary64)))) #<representation binary64>) () ())
#s(alt (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (patch (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) #<representation binary64>) () ())
#s(alt (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) (sin.f64 ky)) (sin.f64 th)) (patch (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 ( -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (*.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) (sin.f64 ky)) (sin.f64 th)) #<representation binary64>) () ())
#s(alt (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 ( -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) (sin.f64 ky)) (patch (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (*.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) (sin.f64 ky)) #<representation binary64>) () ())
#s(alt (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) (patch (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 ( -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (*.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) #<representation binary64>) () ())
#s(alt (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64)))))) (patch (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 ( -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (*.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64)))))) #<representation binary64>) () ())
#s(alt (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) (patch (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) #<representation binary64>) () ())
#s(alt (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))) (patch (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))) #<representation binary64>) () ())
#s(alt (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (patch (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) #<representation binary64>) () ())
#s(alt (.f64 (sin.f64 ky) (sin.f64 th)) (patch (.f64 (sin.f64 ky) (sin.f64 th)) #<representation binary64>) () ())
#s(alt (/.f64 #s(literal 1 binary64) (sin.f64 kx)) (patch (/.f64 #s(literal 1 binary64) (sin.f64 kx)) #<representation binary64>) () ())
#s(alt (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (patch (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #<representation binary64>) () ())
#s(alt (.f64 ky (sqrt.f64 #s(literal 2 binary64))) (patch (.f64 ky (sqrt.f64 #s(literal 2 binary64))) #<representation binary64>) () ())
#s(alt #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64)))) (patch #s(approx (+ 1/2 ( -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (*.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64)))) #<representation binary64>) () ())
#s(alt (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) (patch (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #<representation binary64>) () ())
#s(alt (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) (patch (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) #<representation binary64>) () ())

Outputs
#s(alt kx (taylor 0 kx) (#s(alt (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx))) (patch (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx))) #<representation binary64>) () ())) ())
#s(alt (* kx (+ 1 (* -1/6 (pow kx 2)))) (taylor 0 kx) (#s(alt (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx))) (patch (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx))) #<representation binary64>) () ())) ())
#s(alt (* kx (+ 1 (* (pow kx 2) (- (* 1/120 (pow kx 2)) 1/6)))) (taylor 0 kx) (#s(alt (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx))) (patch (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx))) #<representation binary64>) () ())) ())
#s(alt (* kx (+ 1 (* (pow kx 2) (- (* (pow kx 2) (+ 1/120 (* -1/5040 (pow kx 2)))) 1/6)))) (taylor 0 kx) (#s(alt (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx))) (patch (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx))) #<representation binary64>) () ())) ())
#s(alt (sin kx) (taylor inf kx) (#s(alt (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx))) (patch (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx))) #<representation binary64>) () ())) ())
#s(alt (sin kx) (taylor inf kx) (#s(alt (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx))) (patch (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx))) #<representation binary64>) () ())) ())
#s(alt (sin kx) (taylor inf kx) (#s(alt (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx))) (patch (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx))) #<representation binary64>) () ())) ())
#s(alt (sin kx) (taylor inf kx) (#s(alt (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx))) (patch (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx))) #<representation binary64>) () ())) ())
#s(alt (sin kx) (taylor -inf kx) (#s(alt (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx))) (patch (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx))) #<representation binary64>) () ())) ())
#s(alt (sin kx) (taylor -inf kx) (#s(alt (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx))) (patch (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx))) #<representation binary64>) () ())) ())
#s(alt (sin kx) (taylor -inf kx) (#s(alt (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx))) (patch (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx))) #<representation binary64>) () ())) ())
#s(alt (sin kx) (taylor -inf kx) (#s(alt (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx))) (patch (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx))) #<representation binary64>) () ())) ())
#s(alt (/ (* ky (sin th)) (sin kx)) (taylor 0 ky) (#s(alt (.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* ky (+ (* (pow ky 2) (+ (* -1/2 (/ (sin th) (pow (sin kx) 3))) (* -1/6 (/ (sin th) (sin kx))))) (/ (sin th) (sin kx)))) (taylor 0 ky) (#s(alt (.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* ky (+ (* (pow ky 2) (+ (* -1/2 (/ (sin th) (pow (sin kx) 3))) (+ (* -1/6 (/ (sin th) (sin kx))) (* (pow ky 2) (+ (* 1/120 (/ (sin th) (sin kx))) (+ (* 1/12 (/ (sin th) (pow (sin kx) 3))) (* 1/2 (* (sin kx) (* (sin th) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6))))))))))))) (/ (sin th) (sin kx)))) (taylor 0 ky) (#s(alt (.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* ky (+ (* (pow ky 2) (+ (* -1/2 (/ (sin th) (pow (sin kx) 3))) (+ (* -1/6 (/ (sin th) (sin kx))) (* (pow ky 2) (+ (* 1/120 (/ (sin th) (sin kx))) (+ (* 1/12 (/ (sin th) (pow (sin kx) 3))) (+ (* 1/2 (* (sin kx) (* (sin th) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6))))))) (* (pow ky 2) (+ (* -1/2 (* (sin kx) (* (sin th) (+ (* -1/2 (/ (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6)))) (pow (sin kx) 2))) (+ (* 2/45 (/ 1 (pow (sin kx) 4))) (+ (* 2/3 (/ 1 (pow (sin kx) 6))) (/ 1 (pow (sin kx) 8)))))))) (+ (* -1/12 (* (sin kx) (* (sin th) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6))))))) (+ (* -1/240 (/ (sin th) (pow (sin kx) 3))) (* -1/5040 (/ (sin th) (sin kx)))))))))))))) (/ (sin th) (sin kx)))) (taylor 0 ky) (#s(alt (.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor inf ky) (#s(alt (.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor inf ky) (#s(alt (.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor inf ky) (#s(alt (.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor inf ky) (#s(alt (.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor -inf ky) (#s(alt (.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor -inf ky) (#s(alt (.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor -inf ky) (#s(alt (.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor -inf ky) (#s(alt (.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (sin th) (taylor 0 kx) (#s(alt (.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (+ (sin th) (* -1/2 (/ (* (pow kx 2) (sin th)) (pow (sin ky) 2)))) (taylor 0 kx) (#s(alt (.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (+ (sin th) (* (pow kx 2) (+ (* -1/2 (/ (sin th) (pow (sin ky) 2))) (* 1/2 (* (pow kx 2) (* (pow (sin ky) 2) (* (sin th) (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (* 3/4 (/ 1 (pow (sin ky) 6))))))))))) (taylor 0 kx) (#s(alt (.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (+ (sin th) (* (pow kx 2) (+ (* -1/2 (/ (sin th) (pow (sin ky) 2))) (* (pow kx 2) (+ (* -1/2 (* (pow kx 2) (* (pow (sin ky) 2) (* (sin th) (+ (* -1/2 (/ (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (* 3/4 (/ 1 (pow (sin ky) 6)))) (pow (sin ky) 2))) (+ (* 2/45 (/ 1 (pow (sin ky) 4))) (+ (* 2/3 (/ 1 (pow (sin ky) 6))) (/ 1 (pow (sin ky) 8))))))))) (* 1/2 (* (pow (sin ky) 2) (* (sin th) (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (* 3/4 (/ 1 (pow (sin ky) 6)))))))))))) (taylor 0 kx) (#s(alt (.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor inf kx) (#s(alt (.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor inf kx) (#s(alt (.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor inf kx) (#s(alt (.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor inf kx) (#s(alt (.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor -inf kx) (#s(alt (.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor -inf kx) (#s(alt (.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor -inf kx) (#s(alt (.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor -inf kx) (#s(alt (.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* th (sin ky)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor 0 th) (#s(alt (.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* th (+ (* -1/6 (* (* (pow th 2) (sin ky)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))) (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))))) (taylor 0 th) (#s(alt (.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* th (+ (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (* (pow th 2) (+ (* -1/6 (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))) (* 1/120 (* (* (pow th 2) (sin ky)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))))))) (taylor 0 th) (#s(alt (.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* th (+ (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (* (pow th 2) (+ (* -1/6 (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))) (* (pow th 2) (+ (* -1/5040 (* (* (pow th 2) (sin ky)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))) (* 1/120 (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))))))))) (taylor 0 th) (#s(alt (.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor inf th) (#s(alt (.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor inf th) (#s(alt (.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor inf th) (#s(alt (.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor inf th) (#s(alt (.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor -inf th) (#s(alt (.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor -inf th) (#s(alt (.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor -inf th) (#s(alt (.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor -inf th) (#s(alt (.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (sin.f64 th)) (patch (.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (/ ky (sin kx)) (taylor 0 ky) (#s(alt (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (patch (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) #<representation binary64>) () ())) ())
#s(alt (* ky (+ (* -1 (* (pow ky 2) (+ (* 1/6 (/ 1 (sin kx))) (* 1/2 (/ 1 (pow (sin kx) 3)))))) (/ 1 (sin kx)))) (taylor 0 ky) (#s(alt (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (patch (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) #<representation binary64>) () ())) ())
#s(alt (* ky (+ (* (pow ky 2) (- (* (pow ky 2) (+ (* 1/120 (/ 1 (sin kx))) (+ (* 1/2 (* (sin kx) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6)))))) (* 1/12 (/ 1 (pow (sin kx) 3)))))) (+ (* 1/6 (/ 1 (sin kx))) (* 1/2 (/ 1 (pow (sin kx) 3)))))) (/ 1 (sin kx)))) (taylor 0 ky) (#s(alt (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (patch (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) #<representation binary64>) () ())) ())
#s(alt (* ky (+ (* (pow ky 2) (- (* (pow ky 2) (+ (* 1/120 (/ 1 (sin kx))) (+ (* 1/12 (/ 1 (pow (sin kx) 3))) (+ (* 1/2 (* (sin kx) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6)))))) (* (pow ky 2) (- (+ (* -1/2 (* (sin kx) (+ (* -1/2 (/ (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6)))) (pow (sin kx) 2))) (+ (* 2/45 (/ 1 (pow (sin kx) 4))) (+ (* 2/3 (/ 1 (pow (sin kx) 6))) (/ 1 (pow (sin kx) 8))))))) (* -1/12 (* (sin kx) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6))))))) (+ (* 1/5040 (/ 1 (sin kx))) (* 1/240 (/ 1 (pow (sin kx) 3)))))))))) (+ (* 1/6 (/ 1 (sin kx))) (* 1/2 (/ 1 (pow (sin kx) 3)))))) (/ 1 (sin kx)))) (taylor 0 ky) (#s(alt (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (patch (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor inf ky) (#s(alt (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (patch (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor inf ky) (#s(alt (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (patch (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor inf ky) (#s(alt (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (patch (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor inf ky) (#s(alt (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (patch (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor -inf ky) (#s(alt (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (patch (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor -inf ky) (#s(alt (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (patch (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor -inf ky) (#s(alt (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (patch (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor -inf ky) (#s(alt (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (patch (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) #<representation binary64>) () ())) ())
#s(alt 1 (taylor 0 kx) (#s(alt (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (patch (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) #<representation binary64>) () ())) ())
#s(alt (+ 1 (* -1/2 (/ (pow kx 2) (pow (sin ky) 2)))) (taylor 0 kx) (#s(alt (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (patch (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) #<representation binary64>) () ())) ())
#s(alt (+ 1 (* (pow kx 2) (- (* 1/2 (* (pow kx 2) (* (pow (sin ky) 2) (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (* 3/4 (/ 1 (pow (sin ky) 6))))))) (* 1/2 (/ 1 (pow (sin ky) 2)))))) (taylor 0 kx) (#s(alt (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (patch (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) #<representation binary64>) () ())) ())
#s(alt (+ 1 (* (pow kx 2) (- (* (pow kx 2) (+ (* -1/2 (* (pow kx 2) (* (pow (sin ky) 2) (+ (* -1/2 (/ (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (* 3/4 (/ 1 (pow (sin ky) 6)))) (pow (sin ky) 2))) (+ (* 2/45 (/ 1 (pow (sin ky) 4))) (+ (* 2/3 (/ 1 (pow (sin ky) 6))) (/ 1 (pow (sin ky) 8)))))))) (* 1/2 (* (pow (sin ky) 2) (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (* 3/4 (/ 1 (pow (sin ky) 6)))))))) (* 1/2 (/ 1 (pow (sin ky) 2)))))) (taylor 0 kx) (#s(alt (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (patch (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor inf kx) (#s(alt (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (patch (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor inf kx) (#s(alt (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (patch (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor inf kx) (#s(alt (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (patch (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor inf kx) (#s(alt (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (patch (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor -inf kx) (#s(alt (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (patch (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor -inf kx) (#s(alt (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (patch (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor -inf kx) (#s(alt (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (patch (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor -inf kx) (#s(alt (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (patch (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) #<representation binary64>) () ())) ())
#s(alt ky (taylor 0 ky) (#s(alt (sin.f64 ky) (patch (sin.f64 ky) #<representation binary64>) () ())) ())
#s(alt (* ky (+ 1 (* -1/6 (pow ky 2)))) (taylor 0 ky) (#s(alt (sin.f64 ky) (patch (sin.f64 ky) #<representation binary64>) () ())) ())
#s(alt (* ky (+ 1 (* (pow ky 2) (- (* 1/120 (pow ky 2)) 1/6)))) (taylor 0 ky) (#s(alt (sin.f64 ky) (patch (sin.f64 ky) #<representation binary64>) () ())) ())
#s(alt (* ky (+ 1 (* (pow ky 2) (- (* (pow ky 2) (+ 1/120 (* -1/5040 (pow ky 2)))) 1/6)))) (taylor 0 ky) (#s(alt (sin.f64 ky) (patch (sin.f64 ky) #<representation binary64>) () ())) ())
#s(alt (sin ky) (taylor inf ky) (#s(alt (sin.f64 ky) (patch (sin.f64 ky) #<representation binary64>) () ())) ())
#s(alt (sin ky) (taylor inf ky) (#s(alt (sin.f64 ky) (patch (sin.f64 ky) #<representation binary64>) () ())) ())
#s(alt (sin ky) (taylor inf ky) (#s(alt (sin.f64 ky) (patch (sin.f64 ky) #<representation binary64>) () ())) ())
#s(alt (sin ky) (taylor inf ky) (#s(alt (sin.f64 ky) (patch (sin.f64 ky) #<representation binary64>) () ())) ())
#s(alt (sin ky) (taylor -inf ky) (#s(alt (sin.f64 ky) (patch (sin.f64 ky) #<representation binary64>) () ())) ())
#s(alt (sin ky) (taylor -inf ky) (#s(alt (sin.f64 ky) (patch (sin.f64 ky) #<representation binary64>) () ())) ())
#s(alt (sin ky) (taylor -inf ky) (#s(alt (sin.f64 ky) (patch (sin.f64 ky) #<representation binary64>) () ())) ())
#s(alt (sin ky) (taylor -inf ky) (#s(alt (sin.f64 ky) (patch (sin.f64 ky) #<representation binary64>) () ())) ())
#s(alt (/ (* ky (sin th)) (sin kx)) (taylor 0 ky) (#s(alt #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th))) (patch #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th))) #<representation binary64>) () ())) ())
#s(alt (* ky (+ (* (pow ky 2) (+ (* -1/2 (/ (sin th) (pow (sin kx) 3))) (* -1/6 (/ (sin th) (sin kx))))) (/ (sin th) (sin kx)))) (taylor 0 ky) (#s(alt #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th))) (patch #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th))) #<representation binary64>) () ())) ())
#s(alt (* ky (+ (* (pow ky 2) (+ (* -1/2 (/ (sin th) (pow (sin kx) 3))) (+ (* -1/6 (/ (sin th) (sin kx))) (* (pow ky 2) (+ (* 1/120 (/ (sin th) (sin kx))) (+ (* 1/12 (/ (sin th) (pow (sin kx) 3))) (* 1/2 (* (sin kx) (* (sin th) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6))))))))))))) (/ (sin th) (sin kx)))) (taylor 0 ky) (#s(alt #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th))) (patch #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th))) #<representation binary64>) () ())) ())
#s(alt (* ky (+ (* (pow ky 2) (+ (* -1/2 (/ (sin th) (pow (sin kx) 3))) (+ (* -1/6 (/ (sin th) (sin kx))) (* (pow ky 2) (+ (* 1/120 (/ (sin th) (sin kx))) (+ (* 1/12 (/ (sin th) (pow (sin kx) 3))) (+ (* 1/2 (* (sin kx) (* (sin th) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6))))))) (* (pow ky 2) (+ (* -1/2 (* (sin kx) (* (sin th) (+ (* -1/2 (/ (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6)))) (pow (sin kx) 2))) (+ (* 2/45 (/ 1 (pow (sin kx) 4))) (+ (* 2/3 (/ 1 (pow (sin kx) 6))) (/ 1 (pow (sin kx) 8)))))))) (+ (* -1/12 (* (sin kx) (* (sin th) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6))))))) (+ (* -1/240 (/ (sin th) (pow (sin kx) 3))) (* -1/5040 (/ (sin th) (sin kx)))))))))))))) (/ (sin th) (sin kx)))) (taylor 0 ky) (#s(alt #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th))) (patch #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th))) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor inf ky) (#s(alt #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th))) (patch #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th))) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor inf ky) (#s(alt #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th))) (patch #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th))) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor inf ky) (#s(alt #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th))) (patch #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th))) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor inf ky) (#s(alt #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th))) (patch #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th))) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor -inf ky) (#s(alt #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th))) (patch #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th))) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor -inf ky) (#s(alt #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th))) (patch #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th))) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor -inf ky) (#s(alt #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th))) (patch #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th))) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor -inf ky) (#s(alt #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th))) (patch #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th))) #<representation binary64>) () ())) ())
#s(alt (sin th) (taylor 0 kx) (#s(alt #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th))) (patch #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th))) #<representation binary64>) () ())) ())
#s(alt (+ (sin th) (* -1/2 (/ (* (pow kx 2) (sin th)) (pow (sin ky) 2)))) (taylor 0 kx) (#s(alt #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th))) (patch #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th))) #<representation binary64>) () ())) ())
#s(alt (+ (sin th) (* (pow kx 2) (+ (* -1/2 (/ (sin th) (pow (sin ky) 2))) (* 1/2 (* (pow kx 2) (* (pow (sin ky) 2) (* (sin th) (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (* 3/4 (/ 1 (pow (sin ky) 6))))))))))) (taylor 0 kx) (#s(alt #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th))) (patch #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th))) #<representation binary64>) () ())) ())
#s(alt (+ (sin th) (* (pow kx 2) (+ (* -1/2 (/ (sin th) (pow (sin ky) 2))) (* (pow kx 2) (+ (* -1/2 (* (pow kx 2) (* (pow (sin ky) 2) (* (sin th) (+ (* -1/2 (/ (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (* 3/4 (/ 1 (pow (sin ky) 6)))) (pow (sin ky) 2))) (+ (* 2/45 (/ 1 (pow (sin ky) 4))) (+ (* 2/3 (/ 1 (pow (sin ky) 6))) (/ 1 (pow (sin ky) 8))))))))) (* 1/2 (* (pow (sin ky) 2) (* (sin th) (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (* 3/4 (/ 1 (pow (sin ky) 6)))))))))))) (taylor 0 kx) (#s(alt #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th))) (patch #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th))) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor inf kx) (#s(alt #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th))) (patch #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th))) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor inf kx) (#s(alt #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th))) (patch #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th))) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor inf kx) (#s(alt #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th))) (patch #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th))) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor inf kx) (#s(alt #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th))) (patch #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th))) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor -inf kx) (#s(alt #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th))) (patch #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th))) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor -inf kx) (#s(alt #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th))) (patch #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th))) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor -inf kx) (#s(alt #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th))) (patch #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th))) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor -inf kx) (#s(alt #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th))) (patch #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th))) #<representation binary64>) () ())) ())
#s(alt (* (* th (sin ky)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor 0 th) (#s(alt #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th))) (patch #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th))) #<representation binary64>) () ())) ())
#s(alt (* th (+ (* -1/6 (* (* (pow th 2) (sin ky)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))) (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))))) (taylor 0 th) (#s(alt #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th))) (patch #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th))) #<representation binary64>) () ())) ())
#s(alt (* th (+ (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (* (pow th 2) (+ (* -1/6 (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))) (* 1/120 (* (* (pow th 2) (sin ky)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))))))) (taylor 0 th) (#s(alt #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th))) (patch #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th))) #<representation binary64>) () ())) ())
#s(alt (* th (+ (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (* (pow th 2) (+ (* -1/6 (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))) (* (pow th 2) (+ (* -1/5040 (* (* (pow th 2) (sin ky)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))) (* 1/120 (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))))))))) (taylor 0 th) (#s(alt #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th))) (patch #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th))) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor inf th) (#s(alt #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th))) (patch #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th))) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor inf th) (#s(alt #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th))) (patch #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th))) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor inf th) (#s(alt #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th))) (patch #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th))) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor inf th) (#s(alt #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th))) (patch #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th))) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor -inf th) (#s(alt #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th))) (patch #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th))) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor -inf th) (#s(alt #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th))) (patch #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th))) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor -inf th) (#s(alt #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th))) (patch #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th))) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor -inf th) (#s(alt #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th))) (patch #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th))) #<representation binary64>) () ())) ())
#s(alt th (taylor 0 th) (#s(alt #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th)) (patch #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th)) #<representation binary64>) () ())) ())
#s(alt (* th (+ 1 (* -1/6 (pow th 2)))) (taylor 0 th) (#s(alt #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th)) (patch #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th)) #<representation binary64>) () ())) ())
#s(alt (* th (+ 1 (* (pow th 2) (- (* 1/120 (pow th 2)) 1/6)))) (taylor 0 th) (#s(alt #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th)) (patch #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th)) #<representation binary64>) () ())) ())
#s(alt (* th (+ 1 (* (pow th 2) (- (* (pow th 2) (+ 1/120 (* -1/5040 (pow th 2)))) 1/6)))) (taylor 0 th) (#s(alt #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th)) (patch #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th)) #<representation binary64>) () ())) ())
#s(alt (sin th) (taylor inf th) (#s(alt #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th)) (patch #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th)) #<representation binary64>) () ())) ())
#s(alt (sin th) (taylor inf th) (#s(alt #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th)) (patch #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th)) #<representation binary64>) () ())) ())
#s(alt (sin th) (taylor inf th) (#s(alt #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th)) (patch #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th)) #<representation binary64>) () ())) ())
#s(alt (sin th) (taylor inf th) (#s(alt #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th)) (patch #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th)) #<representation binary64>) () ())) ())
#s(alt (sin th) (taylor -inf th) (#s(alt #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th)) (patch #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th)) #<representation binary64>) () ())) ())
#s(alt (sin th) (taylor -inf th) (#s(alt #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th)) (patch #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th)) #<representation binary64>) () ())) ())
#s(alt (sin th) (taylor -inf th) (#s(alt #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th)) (patch #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th)) #<representation binary64>) () ())) ())
#s(alt (sin th) (taylor -inf th) (#s(alt #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th)) (patch #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th)) #<representation binary64>) () ())) ())
#s(alt th (taylor 0 th) (#s(alt (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th) (patch (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th) #<representation binary64>) () ())) ())
#s(alt (* th (+ 1 (* -1/6 (pow th 2)))) (taylor 0 th) (#s(alt (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th) (patch (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th) #<representation binary64>) () ())) ())
#s(alt (* th (+ 1 (* -1/6 (pow th 2)))) (taylor 0 th) (#s(alt (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th) (patch (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th) #<representation binary64>) () ())) ())
#s(alt (* th (+ 1 (* -1/6 (pow th 2)))) (taylor 0 th) (#s(alt (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th) (patch (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th) #<representation binary64>) () ())) ())
#s(alt (* -1/6 (pow th 3)) (taylor inf th) (#s(alt (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th) (patch (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th) #<representation binary64>) () ())) ())
#s(alt (* (pow th 3) (- (/ 1 (pow th 2)) 1/6)) (taylor inf th) (#s(alt (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th) (patch (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th) #<representation binary64>) () ())) ())
#s(alt (* (pow th 3) (- (/ 1 (pow th 2)) 1/6)) (taylor inf th) (#s(alt (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th) (patch (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th) #<representation binary64>) () ())) ())
#s(alt (* (pow th 3) (- (/ 1 (pow th 2)) 1/6)) (taylor inf th) (#s(alt (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th) (patch (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th) #<representation binary64>) () ())) ())
#s(alt (* -1/6 (pow th 3)) (taylor -inf th) (#s(alt (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th) (patch (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th) #<representation binary64>) () ())) ())
#s(alt (* -1 (* (pow th 3) (- 1/6 (/ 1 (pow th 2))))) (taylor -inf th) (#s(alt (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th) (patch (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th) #<representation binary64>) () ())) ())
#s(alt (* -1 (* (pow th 3) (- 1/6 (/ 1 (pow th 2))))) (taylor -inf th) (#s(alt (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th) (patch (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th) #<representation binary64>) () ())) ())
#s(alt (* -1 (* (pow th 3) (- 1/6 (/ 1 (pow th 2))))) (taylor -inf th) (#s(alt (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th) (patch (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th) #<representation binary64>) () ())) ())
#s(alt (* -1/6 (pow th 2)) (taylor 0 th) (#s(alt (.f64 #s(literal -1/6 binary64) (.f64 th th)) (patch (.f64 #s(literal -1/6 binary64) (.f64 th th)) #<representation binary64>) () ())) ())
#s(alt (* -1/6 (pow th 2)) (taylor 0 th) (#s(alt (.f64 #s(literal -1/6 binary64) (.f64 th th)) (patch (.f64 #s(literal -1/6 binary64) (.f64 th th)) #<representation binary64>) () ())) ())
#s(alt (* -1/6 (pow th 2)) (taylor 0 th) (#s(alt (.f64 #s(literal -1/6 binary64) (.f64 th th)) (patch (.f64 #s(literal -1/6 binary64) (.f64 th th)) #<representation binary64>) () ())) ())
#s(alt (* -1/6 (pow th 2)) (taylor 0 th) (#s(alt (.f64 #s(literal -1/6 binary64) (.f64 th th)) (patch (.f64 #s(literal -1/6 binary64) (.f64 th th)) #<representation binary64>) () ())) ())
#s(alt (* -1/6 (pow th 2)) (taylor inf th) (#s(alt (.f64 #s(literal -1/6 binary64) (.f64 th th)) (patch (.f64 #s(literal -1/6 binary64) (.f64 th th)) #<representation binary64>) () ())) ())
#s(alt (* -1/6 (pow th 2)) (taylor inf th) (#s(alt (.f64 #s(literal -1/6 binary64) (.f64 th th)) (patch (.f64 #s(literal -1/6 binary64) (.f64 th th)) #<representation binary64>) () ())) ())
#s(alt (* -1/6 (pow th 2)) (taylor inf th) (#s(alt (.f64 #s(literal -1/6 binary64) (.f64 th th)) (patch (.f64 #s(literal -1/6 binary64) (.f64 th th)) #<representation binary64>) () ())) ())
#s(alt (* -1/6 (pow th 2)) (taylor inf th) (#s(alt (.f64 #s(literal -1/6 binary64) (.f64 th th)) (patch (.f64 #s(literal -1/6 binary64) (.f64 th th)) #<representation binary64>) () ())) ())
#s(alt (* -1/6 (pow th 2)) (taylor -inf th) (#s(alt (.f64 #s(literal -1/6 binary64) (.f64 th th)) (patch (.f64 #s(literal -1/6 binary64) (.f64 th th)) #<representation binary64>) () ())) ())
#s(alt (* -1/6 (pow th 2)) (taylor -inf th) (#s(alt (.f64 #s(literal -1/6 binary64) (.f64 th th)) (patch (.f64 #s(literal -1/6 binary64) (.f64 th th)) #<representation binary64>) () ())) ())
#s(alt (* -1/6 (pow th 2)) (taylor -inf th) (#s(alt (.f64 #s(literal -1/6 binary64) (.f64 th th)) (patch (.f64 #s(literal -1/6 binary64) (.f64 th th)) #<representation binary64>) () ())) ())
#s(alt (* -1/6 (pow th 2)) (taylor -inf th) (#s(alt (.f64 #s(literal -1/6 binary64) (.f64 th th)) (patch (.f64 #s(literal -1/6 binary64) (.f64 th th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky))))))) (taylor 0 kx) (#s(alt (.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th)) (patch (.f64 #s(approx (* (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (+ (* -1/2 (* (* (pow kx 2) (* (sin ky) (sin th))) (sqrt (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))))) (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky)))))))) (taylor 0 kx) (#s(alt (.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th)) (patch (.f64 #s(approx (* (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (+ (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky))))))) (* (pow kx 2) (+ (* -1/2 (* (* (sin ky) (sin th)) (sqrt (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))))) (* 1/2 (* (* (pow kx 2) (* (sin ky) (* (sin th) (+ (* 1/3 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2))) (* 3/4 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))))))) (sqrt (+ 1/2 (* -1/2 (cos (* 2 ky)))))))))) (taylor 0 kx) (#s(alt (.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th)) (patch (.f64 #s(approx (* (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (+ (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky))))))) (* (pow kx 2) (+ (* -1/2 (* (* (sin ky) (sin th)) (sqrt (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))))) (* (pow kx 2) (+ (* -1/2 (* (* (pow kx 2) (* (sin ky) (* (sin th) (+ (* -1/2 (/ (+ (* 1/3 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2))) (* 3/4 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3)))) (+ 1/2 (* -1/2 (cos (* 2 ky)))))) (+ (* 2/45 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2))) (+ (* 2/3 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))) (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 4)))))))) (sqrt (+ 1/2 (* -1/2 (cos (* 2 ky))))))) (* 1/2 (* (* (sin ky) (* (sin th) (+ (* 1/3 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2))) (* 3/4 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3)))))) (sqrt (+ 1/2 (* -1/2 (cos (* 2 ky)))))))))))) (taylor 0 kx) (#s(alt (.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th)) (patch (.f64 #s(approx (* (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (taylor inf kx) (#s(alt (.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th)) (patch (.f64 #s(approx (* (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (taylor inf kx) (#s(alt (.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th)) (patch (.f64 #s(approx (* (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (taylor inf kx) (#s(alt (.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th)) (patch (.f64 #s(approx (* (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (taylor inf kx) (#s(alt (.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th)) (patch (.f64 #s(approx (* (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx)))))))))) (taylor -inf kx) (#s(alt (.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th)) (patch (.f64 #s(approx (* (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx)))))))))) (taylor -inf kx) (#s(alt (.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th)) (patch (.f64 #s(approx (* (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx)))))))))) (taylor -inf kx) (#s(alt (.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th)) (patch (.f64 #s(approx (* (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx)))))))))) (taylor -inf kx) (#s(alt (.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th)) (patch (.f64 #s(approx (* (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* ky (* (sin th) (sqrt 2))) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))) (taylor 0 ky) (#s(alt (.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th)) (patch (.f64 #s(approx (* (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* ky (+ (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* -2 (* (/ (sin th) (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (* -1/6 (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))))))) (taylor 0 ky) (#s(alt (.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th)) (patch (.f64 #s(approx (* (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* ky (+ (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* -2 (* (/ (sin th) (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (+ (* -1/6 (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (* (pow ky 2) (+ (* 1/120 (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (+ (* 1/3 (* (/ (sin th) (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (* 1/2 (* (/ (* (sin th) (- (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (* 4 (/ 1 (* (pow (sqrt 2) 2) (pow (- 1 (cos (* 2 kx))) 3)))))) (sqrt 2)) (sqrt (- 1 (cos (* 2 kx)))))))))))))) (taylor 0 ky) (#s(alt (.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th)) (patch (.f64 #s(approx (* (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* ky (+ (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* -2 (* (/ (sin th) (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (+ (* -1/6 (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (* (pow ky 2) (+ (* 1/120 (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (+ (* 1/3 (* (/ (sin th) (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (+ (* 1/2 (* (/ (* (sin th) (- (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (* 4 (/ 1 (* (pow (sqrt 2) 2) (pow (- 1 (cos (* 2 kx))) 3)))))) (sqrt 2)) (sqrt (- 1 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* -1/2 (* (/ (* (sin th) (+ (* -2 (/ (- (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (* 4 (/ 1 (* (pow (sqrt 2) 2) (pow (- 1 (cos (* 2 kx))) 3))))) (* (pow (sqrt 2) 2) (- 1 (cos (* 2 kx)))))) (+ (* 8/45 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (+ (* 2 (/ (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (- 1 (cos (* 2 kx))))) (* 8/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))))) (sqrt 2)) (sqrt (- 1 (cos (* 2 kx)))))) (+ (* -1/12 (* (/ (* (sin th) (- (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (* 4 (/ 1 (* (pow (sqrt 2) 2) (pow (- 1 (cos (* 2 kx))) 3)))))) (sqrt 2)) (sqrt (- 1 (cos (* 2 kx)))))) (+ (* -1/60 (* (/ (sin th) (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (* -1/5040 (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))))))))))))))))) (taylor 0 ky) (#s(alt (.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th)) (patch (.f64 #s(approx (* (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (taylor inf ky) (#s(alt (.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th)) (patch (.f64 #s(approx (* (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (taylor inf ky) (#s(alt (.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th)) (patch (.f64 #s(approx (* (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (taylor inf ky) (#s(alt (.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th)) (patch (.f64 #s(approx (* (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (taylor inf ky) (#s(alt (.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th)) (patch (.f64 #s(approx (* (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (taylor -inf ky) (#s(alt (.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th)) (patch (.f64 #s(approx (* (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (taylor -inf ky) (#s(alt (.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th)) (patch (.f64 #s(approx (* (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (taylor -inf ky) (#s(alt (.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th)) (patch (.f64 #s(approx (* (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (taylor -inf ky) (#s(alt (.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th)) (patch (.f64 #s(approx (* (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* th (sin ky)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (taylor 0 th) (#s(alt (.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th)) (patch (.f64 #s(approx (* (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* th (+ (* -1/6 (* (* (pow th 2) (sin ky)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))) (* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))))) (taylor 0 th) (#s(alt (.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th)) (patch (.f64 #s(approx (* (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* th (+ (* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (* (pow th 2) (+ (* -1/6 (* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))) (* 1/120 (* (* (pow th 2) (sin ky)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))))))) (taylor 0 th) (#s(alt (.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th)) (patch (.f64 #s(approx (* (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* th (+ (* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (* (pow th 2) (+ (* -1/6 (* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))) (* (pow th 2) (+ (* -1/5040 (* (* (pow th 2) (sin ky)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))) (* 1/120 (* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))))))))) (taylor 0 th) (#s(alt (.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th)) (patch (.f64 #s(approx (* (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (taylor inf th) (#s(alt (.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th)) (patch (.f64 #s(approx (* (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (taylor inf th) (#s(alt (.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th)) (patch (.f64 #s(approx (* (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (taylor inf th) (#s(alt (.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th)) (patch (.f64 #s(approx (* (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (taylor inf th) (#s(alt (.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th)) (patch (.f64 #s(approx (* (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (taylor -inf th) (#s(alt (.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th)) (patch (.f64 #s(approx (* (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (taylor -inf th) (#s(alt (.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th)) (patch (.f64 #s(approx (* (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (taylor -inf th) (#s(alt (.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th)) (patch (.f64 #s(approx (* (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (taylor -inf th) (#s(alt (.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th)) (patch (.f64 #s(approx (* (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky))))))) (taylor 0 kx) (#s(alt #s(approx (* (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (patch #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1/2 (* (* (pow kx 2) (sin ky)) (sqrt (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))))) (* (sin ky) (sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky)))))))) (taylor 0 kx) (#s(alt #s(approx (* (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (patch #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (sin ky) (sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky))))))) (* (pow kx 2) (+ (* -1/2 (* (sin ky) (sqrt (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))))) (* 1/2 (* (* (pow kx 2) (* (sin ky) (+ (* 1/3 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2))) (* 3/4 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3)))))) (sqrt (+ 1/2 (* -1/2 (cos (* 2 ky)))))))))) (taylor 0 kx) (#s(alt #s(approx (* (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (patch #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (sin ky) (sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky))))))) (* (pow kx 2) (+ (* -1/2 (* (sin ky) (sqrt (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))))) (* (pow kx 2) (+ (* -1/2 (* (* (pow kx 2) (* (sin ky) (+ (* -1/2 (/ (+ (* 1/3 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2))) (* 3/4 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3)))) (+ 1/2 (* -1/2 (cos (* 2 ky)))))) (+ (* 2/45 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2))) (+ (* 2/3 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))) (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 4))))))) (sqrt (+ 1/2 (* -1/2 (cos (* 2 ky))))))) (* 1/2 (* (* (sin ky) (+ (* 1/3 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2))) (* 3/4 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))))) (sqrt (+ 1/2 (* -1/2 (cos (* 2 ky)))))))))))) (taylor 0 kx) (#s(alt #s(approx (* (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (patch #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (taylor inf kx) (#s(alt #s(approx (* (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (patch #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (taylor inf kx) (#s(alt #s(approx (* (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (patch #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (taylor inf kx) (#s(alt #s(approx (* (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (patch #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (taylor inf kx) (#s(alt #s(approx (* (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (patch #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx)))))))))) (taylor -inf kx) (#s(alt #s(approx (* (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (patch #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx)))))))))) (taylor -inf kx) (#s(alt #s(approx (* (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (patch #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx)))))))))) (taylor -inf kx) (#s(alt #s(approx (* (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (patch #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx)))))))))) (taylor -inf kx) (#s(alt #s(approx (* (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (patch #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (* ky (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))) (taylor 0 ky) (#s(alt #s(approx (* (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (patch #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* ky (+ (* (sqrt 2) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* -2 (* (/ 1 (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (* -1/6 (* (sqrt 2) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))))))) (taylor 0 ky) (#s(alt #s(approx (* (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (patch #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* ky (+ (* (sqrt 2) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* -2 (* (/ 1 (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (+ (* -1/6 (* (sqrt 2) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (* (pow ky 2) (+ (* 1/120 (* (sqrt 2) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (+ (* 1/3 (* (/ 1 (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (* 1/2 (* (/ (- (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (* 4 (/ 1 (* (pow (sqrt 2) 2) (pow (- 1 (cos (* 2 kx))) 3))))) (sqrt 2)) (sqrt (- 1 (cos (* 2 kx)))))))))))))) (taylor 0 ky) (#s(alt #s(approx (* (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (patch #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* ky (+ (* (sqrt 2) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* -2 (* (/ 1 (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (+ (* -1/6 (* (sqrt 2) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (* (pow ky 2) (+ (* 1/120 (* (sqrt 2) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (+ (* 1/3 (* (/ 1 (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (+ (* 1/2 (* (/ (- (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (* 4 (/ 1 (* (pow (sqrt 2) 2) (pow (- 1 (cos (* 2 kx))) 3))))) (sqrt 2)) (sqrt (- 1 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* -1/2 (* (/ (+ (* -2 (/ (- (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (* 4 (/ 1 (* (pow (sqrt 2) 2) (pow (- 1 (cos (* 2 kx))) 3))))) (* (pow (sqrt 2) 2) (- 1 (cos (* 2 kx)))))) (+ (* 8/45 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (+ (* 2 (/ (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (- 1 (cos (* 2 kx))))) (* 8/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))))) (sqrt 2)) (sqrt (- 1 (cos (* 2 kx)))))) (+ (* -1/12 (* (/ (- (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (* 4 (/ 1 (* (pow (sqrt 2) 2) (pow (- 1 (cos (* 2 kx))) 3))))) (sqrt 2)) (sqrt (- 1 (cos (* 2 kx)))))) (+ (* -1/60 (* (/ 1 (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (* -1/5040 (* (sqrt 2) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))))))))))))))))) (taylor 0 ky) (#s(alt #s(approx (* (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (patch #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (taylor inf ky) (#s(alt #s(approx (* (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (patch #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (taylor inf ky) (#s(alt #s(approx (* (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (patch #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (taylor inf ky) (#s(alt #s(approx (* (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (patch #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (taylor inf ky) (#s(alt #s(approx (* (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (patch #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (taylor -inf ky) (#s(alt #s(approx (* (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (patch #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (taylor -inf ky) (#s(alt #s(approx (* (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (patch #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (taylor -inf ky) (#s(alt #s(approx (* (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (patch #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (taylor -inf ky) (#s(alt #s(approx (* (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (patch #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (/ (* ky (* (sqrt 1/2) (sqrt 2))) kx) (taylor 0 kx) (#s(alt (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (.f64 ky (sqrt.f64 #s(literal 2 binary64)))) (patch (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (.f64 ky (sqrt.f64 #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (/ (+ (* 1/12 (/ (* (pow kx 2) (* ky (sqrt 2))) (sqrt 1/2))) (* ky (* (sqrt 1/2) (sqrt 2)))) kx) (taylor 0 kx) (#s(alt (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (.f64 ky (sqrt.f64 #s(literal 2 binary64)))) (patch (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (.f64 ky (sqrt.f64 #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (/ (+ (* ky (* (sqrt 1/2) (sqrt 2))) (* (pow kx 2) (+ (* 1/12 (/ (* ky (sqrt 2)) (sqrt 1/2))) (* 1/2 (/ (* (pow kx 2) (* ky (* (sqrt 2) (- 1/30 (* 1/144 (/ 1 (pow (sqrt 1/2) 2))))))) (sqrt 1/2)))))) kx) (taylor 0 kx) (#s(alt (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (.f64 ky (sqrt.f64 #s(literal 2 binary64)))) (patch (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (.f64 ky (sqrt.f64 #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (/ (+ (* ky (* (sqrt 1/2) (sqrt 2))) (* (pow kx 2) (+ (* 1/12 (/ (* ky (sqrt 2)) (sqrt 1/2))) (* (pow kx 2) (+ (* 1/2 (/ (* ky (* (sqrt 2) (- 1/30 (* 1/144 (/ 1 (pow (sqrt 1/2) 2)))))) (sqrt 1/2))) (* 1/2 (/ (* (pow kx 2) (* ky (* (sqrt 2) (- 1/189 (* 1/12 (/ (- 1/30 (* 1/144 (/ 1 (pow (sqrt 1/2) 2)))) (pow (sqrt 1/2) 2))))))) (sqrt 1/2)))))))) kx) (taylor 0 kx) (#s(alt (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (.f64 ky (sqrt.f64 #s(literal 2 binary64)))) (patch (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (.f64 ky (sqrt.f64 #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* (* ky (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* -2 kx)))))) (taylor inf kx) (#s(alt (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (.f64 ky (sqrt.f64 #s(literal 2 binary64)))) (patch (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (.f64 ky (sqrt.f64 #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* (* ky (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* -2 kx)))))) (taylor inf kx) (#s(alt (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (.f64 ky (sqrt.f64 #s(literal 2 binary64)))) (patch (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (.f64 ky (sqrt.f64 #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* (* ky (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* -2 kx)))))) (taylor inf kx) (#s(alt (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (.f64 ky (sqrt.f64 #s(literal 2 binary64)))) (patch (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (.f64 ky (sqrt.f64 #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* (* ky (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* -2 kx)))))) (taylor inf kx) (#s(alt (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (.f64 ky (sqrt.f64 #s(literal 2 binary64)))) (patch (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (.f64 ky (sqrt.f64 #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* (* ky (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* -2 kx)))))) (taylor -inf kx) (#s(alt (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (.f64 ky (sqrt.f64 #s(literal 2 binary64)))) (patch (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (.f64 ky (sqrt.f64 #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* (* ky (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* -2 kx)))))) (taylor -inf kx) (#s(alt (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (.f64 ky (sqrt.f64 #s(literal 2 binary64)))) (patch (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (.f64 ky (sqrt.f64 #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* (* ky (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* -2 kx)))))) (taylor -inf kx) (#s(alt (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (.f64 ky (sqrt.f64 #s(literal 2 binary64)))) (patch (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (.f64 ky (sqrt.f64 #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* (* ky (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* -2 kx)))))) (taylor -inf kx) (#s(alt (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (.f64 ky (sqrt.f64 #s(literal 2 binary64)))) (patch (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (.f64 ky (sqrt.f64 #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* (* ky (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* -2 kx)))))) (taylor 0 ky) (#s(alt (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (.f64 ky (sqrt.f64 #s(literal 2 binary64)))) (patch (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (.f64 ky (sqrt.f64 #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* (* ky (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* -2 kx)))))) (taylor 0 ky) (#s(alt (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (.f64 ky (sqrt.f64 #s(literal 2 binary64)))) (patch (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (.f64 ky (sqrt.f64 #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* (* ky (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* -2 kx)))))) (taylor 0 ky) (#s(alt (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (.f64 ky (sqrt.f64 #s(literal 2 binary64)))) (patch (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (.f64 ky (sqrt.f64 #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* (* ky (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* -2 kx)))))) (taylor 0 ky) (#s(alt (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (.f64 ky (sqrt.f64 #s(literal 2 binary64)))) (patch (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (.f64 ky (sqrt.f64 #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* (* ky (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* -2 kx)))))) (taylor inf ky) (#s(alt (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (.f64 ky (sqrt.f64 #s(literal 2 binary64)))) (patch (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (.f64 ky (sqrt.f64 #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* (* ky (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* -2 kx)))))) (taylor inf ky) (#s(alt (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (.f64 ky (sqrt.f64 #s(literal 2 binary64)))) (patch (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (.f64 ky (sqrt.f64 #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* (* ky (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* -2 kx)))))) (taylor inf ky) (#s(alt (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (.f64 ky (sqrt.f64 #s(literal 2 binary64)))) (patch (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (.f64 ky (sqrt.f64 #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* (* ky (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* -2 kx)))))) (taylor inf ky) (#s(alt (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (.f64 ky (sqrt.f64 #s(literal 2 binary64)))) (patch (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (.f64 ky (sqrt.f64 #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* (* ky (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* -2 kx)))))) (taylor -inf ky) (#s(alt (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (.f64 ky (sqrt.f64 #s(literal 2 binary64)))) (patch (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (.f64 ky (sqrt.f64 #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* (* ky (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* -2 kx)))))) (taylor -inf ky) (#s(alt (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (.f64 ky (sqrt.f64 #s(literal 2 binary64)))) (patch (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (.f64 ky (sqrt.f64 #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* (* ky (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* -2 kx)))))) (taylor -inf ky) (#s(alt (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (.f64 ky (sqrt.f64 #s(literal 2 binary64)))) (patch (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (.f64 ky (sqrt.f64 #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* (* ky (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* -2 kx)))))) (taylor -inf ky) (#s(alt (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (.f64 ky (sqrt.f64 #s(literal 2 binary64)))) (patch (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (.f64 ky (sqrt.f64 #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (/ (sqrt 1/2) kx) (taylor 0 kx) (#s(alt (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (patch (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (/ (+ (sqrt 1/2) (* 1/12 (/ (pow kx 2) (sqrt 1/2)))) kx) (taylor 0 kx) (#s(alt (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (patch (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (/ (+ (sqrt 1/2) (* (pow kx 2) (+ (* 1/2 (/ (* (pow kx 2) (- 1/30 (* 1/144 (/ 1 (pow (sqrt 1/2) 2))))) (sqrt 1/2))) (* 1/12 (/ 1 (sqrt 1/2)))))) kx) (taylor 0 kx) (#s(alt (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (patch (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (/ (+ (sqrt 1/2) (* (pow kx 2) (+ (* (pow kx 2) (+ (* 1/2 (/ (* (pow kx 2) (- 1/189 (* 1/12 (/ (- 1/30 (* 1/144 (/ 1 (pow (sqrt 1/2) 2)))) (pow (sqrt 1/2) 2))))) (sqrt 1/2))) (* 1/2 (/ (- 1/30 (* 1/144 (/ 1 (pow (sqrt 1/2) 2)))) (sqrt 1/2))))) (* 1/12 (/ 1 (sqrt 1/2)))))) kx) (taylor 0 kx) (#s(alt (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (patch (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (/ 1 (- 1 (cos (* -2 kx))))) (taylor inf kx) (#s(alt (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (patch (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (/ 1 (- 1 (cos (* -2 kx))))) (taylor inf kx) (#s(alt (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (patch (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (/ 1 (- 1 (cos (* -2 kx))))) (taylor inf kx) (#s(alt (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (patch (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (/ 1 (- 1 (cos (* -2 kx))))) (taylor inf kx) (#s(alt (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (patch (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (/ 1 (- 1 (cos (* -2 kx))))) (taylor -inf kx) (#s(alt (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (patch (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (/ 1 (- 1 (cos (* -2 kx))))) (taylor -inf kx) (#s(alt (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (patch (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (/ 1 (- 1 (cos (* -2 kx))))) (taylor -inf kx) (#s(alt (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (patch (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (/ 1 (- 1 (cos (* -2 kx))))) (taylor -inf kx) (#s(alt (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (patch (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky))))))) (taylor 0 kx) (#s(alt (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) (sin.f64 ky)) (sin.f64 th)) (patch (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 ( -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (*.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) (sin.f64 ky)) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (+ (* -1/2 (* (* (pow kx 2) (* (sin ky) (sin th))) (sqrt (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))))) (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky)))))))) (taylor 0 kx) (#s(alt (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) (sin.f64 ky)) (sin.f64 th)) (patch (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 ( -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (*.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) (sin.f64 ky)) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (+ (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky))))))) (* (pow kx 2) (+ (* -1/2 (* (* (sin ky) (sin th)) (sqrt (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))))) (* 1/2 (* (* (pow kx 2) (* (sin ky) (* (sin th) (+ (* 1/3 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2))) (* 3/4 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))))))) (sqrt (+ 1/2 (* -1/2 (cos (* 2 ky)))))))))) (taylor 0 kx) (#s(alt (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) (sin.f64 ky)) (sin.f64 th)) (patch (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 ( -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (*.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) (sin.f64 ky)) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (+ (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky))))))) (* (pow kx 2) (+ (* -1/2 (* (* (sin ky) (sin th)) (sqrt (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))))) (* (pow kx 2) (+ (* -1/2 (* (* (pow kx 2) (* (sin ky) (* (sin th) (+ (* -1/2 (/ (+ (* 1/3 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2))) (* 3/4 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3)))) (+ 1/2 (* -1/2 (cos (* 2 ky)))))) (+ (* 2/45 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2))) (+ (* 2/3 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))) (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 4)))))))) (sqrt (+ 1/2 (* -1/2 (cos (* 2 ky))))))) (* 1/2 (* (* (sin ky) (* (sin th) (+ (* 1/3 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2))) (* 3/4 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3)))))) (sqrt (+ 1/2 (* -1/2 (cos (* 2 ky)))))))))))) (taylor 0 kx) (#s(alt (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) (sin.f64 ky)) (sin.f64 th)) (patch (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 ( -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (*.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) (sin.f64 ky)) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (taylor inf kx) (#s(alt (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) (sin.f64 ky)) (sin.f64 th)) (patch (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 ( -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (*.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) (sin.f64 ky)) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (taylor inf kx) (#s(alt (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) (sin.f64 ky)) (sin.f64 th)) (patch (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 ( -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (*.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) (sin.f64 ky)) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (taylor inf kx) (#s(alt (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) (sin.f64 ky)) (sin.f64 th)) (patch (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 ( -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (*.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) (sin.f64 ky)) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (taylor inf kx) (#s(alt (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) (sin.f64 ky)) (sin.f64 th)) (patch (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 ( -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (*.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) (sin.f64 ky)) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx)))))))))) (taylor -inf kx) (#s(alt (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) (sin.f64 ky)) (sin.f64 th)) (patch (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 ( -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (*.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) (sin.f64 ky)) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx)))))))))) (taylor -inf kx) (#s(alt (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) (sin.f64 ky)) (sin.f64 th)) (patch (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 ( -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (*.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) (sin.f64 ky)) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx)))))))))) (taylor -inf kx) (#s(alt (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) (sin.f64 ky)) (sin.f64 th)) (patch (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 ( -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (*.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) (sin.f64 ky)) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx)))))))))) (taylor -inf kx) (#s(alt (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) (sin.f64 ky)) (sin.f64 th)) (patch (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 ( -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (*.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) (sin.f64 ky)) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* ky (* (sin th) (sqrt 2))) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))) (taylor 0 ky) (#s(alt (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) (sin.f64 ky)) (sin.f64 th)) (patch (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 ( -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (*.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) (sin.f64 ky)) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* ky (+ (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* -2 (* (/ (sin th) (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (* -1/6 (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))))))) (taylor 0 ky) (#s(alt (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) (sin.f64 ky)) (sin.f64 th)) (patch (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 ( -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (*.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) (sin.f64 ky)) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* ky (+ (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* -2 (* (/ (sin th) (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (+ (* -1/6 (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (* (pow ky 2) (+ (* 1/120 (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (+ (* 1/3 (* (/ (sin th) (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (* 1/2 (* (/ (* (sin th) (- (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (* 4 (/ 1 (* (pow (sqrt 2) 2) (pow (- 1 (cos (* 2 kx))) 3)))))) (sqrt 2)) (sqrt (- 1 (cos (* 2 kx)))))))))))))) (taylor 0 ky) (#s(alt (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) (sin.f64 ky)) (sin.f64 th)) (patch (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 ( -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (*.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) (sin.f64 ky)) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* ky (+ (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* -2 (* (/ (sin th) (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (+ (* -1/6 (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (* (pow ky 2) (+ (* 1/120 (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (+ (* 1/3 (* (/ (sin th) (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (+ (* 1/2 (* (/ (* (sin th) (- (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (* 4 (/ 1 (* (pow (sqrt 2) 2) (pow (- 1 (cos (* 2 kx))) 3)))))) (sqrt 2)) (sqrt (- 1 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* -1/2 (* (/ (* (sin th) (+ (* -2 (/ (- (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (* 4 (/ 1 (* (pow (sqrt 2) 2) (pow (- 1 (cos (* 2 kx))) 3))))) (* (pow (sqrt 2) 2) (- 1 (cos (* 2 kx)))))) (+ (* 8/45 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (+ (* 2 (/ (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (- 1 (cos (* 2 kx))))) (* 8/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))))) (sqrt 2)) (sqrt (- 1 (cos (* 2 kx)))))) (+ (* -1/12 (* (/ (* (sin th) (- (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (* 4 (/ 1 (* (pow (sqrt 2) 2) (pow (- 1 (cos (* 2 kx))) 3)))))) (sqrt 2)) (sqrt (- 1 (cos (* 2 kx)))))) (+ (* -1/60 (* (/ (sin th) (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (* -1/5040 (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))))))))))))))))) (taylor 0 ky) (#s(alt (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) (sin.f64 ky)) (sin.f64 th)) (patch (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 ( -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (*.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) (sin.f64 ky)) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (taylor inf ky) (#s(alt (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) (sin.f64 ky)) (sin.f64 th)) (patch (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 ( -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (*.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) (sin.f64 ky)) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (taylor inf ky) (#s(alt (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) (sin.f64 ky)) (sin.f64 th)) (patch (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 ( -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (*.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) (sin.f64 ky)) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (taylor inf ky) (#s(alt (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) (sin.f64 ky)) (sin.f64 th)) (patch (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 ( -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (*.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) (sin.f64 ky)) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (taylor inf ky) (#s(alt (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) (sin.f64 ky)) (sin.f64 th)) (patch (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 ( -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (*.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) (sin.f64 ky)) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (taylor -inf ky) (#s(alt (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) (sin.f64 ky)) (sin.f64 th)) (patch (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 ( -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (*.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) (sin.f64 ky)) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (taylor -inf ky) (#s(alt (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) (sin.f64 ky)) (sin.f64 th)) (patch (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 ( -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (*.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) (sin.f64 ky)) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (taylor -inf ky) (#s(alt (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) (sin.f64 ky)) (sin.f64 th)) (patch (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 ( -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (*.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) (sin.f64 ky)) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (taylor -inf ky) (#s(alt (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) (sin.f64 ky)) (sin.f64 th)) (patch (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 ( -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (*.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) (sin.f64 ky)) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* th (sin ky)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (taylor 0 th) (#s(alt (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) (sin.f64 ky)) (sin.f64 th)) (patch (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 ( -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (*.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) (sin.f64 ky)) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* th (+ (* -1/6 (* (* (pow th 2) (sin ky)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))) (* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))))) (taylor 0 th) (#s(alt (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) (sin.f64 ky)) (sin.f64 th)) (patch (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 ( -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (*.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) (sin.f64 ky)) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* th (+ (* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (* (pow th 2) (+ (* -1/6 (* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))) (* 1/120 (* (* (pow th 2) (sin ky)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))))))) (taylor 0 th) (#s(alt (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) (sin.f64 ky)) (sin.f64 th)) (patch (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 ( -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (*.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) (sin.f64 ky)) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* th (+ (* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (* (pow th 2) (+ (* -1/6 (* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))) (* (pow th 2) (+ (* -1/5040 (* (* (pow th 2) (sin ky)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))) (* 1/120 (* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))))))))) (taylor 0 th) (#s(alt (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) (sin.f64 ky)) (sin.f64 th)) (patch (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 ( -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (*.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) (sin.f64 ky)) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (taylor inf th) (#s(alt (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) (sin.f64 ky)) (sin.f64 th)) (patch (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 ( -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (*.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) (sin.f64 ky)) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (taylor inf th) (#s(alt (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) (sin.f64 ky)) (sin.f64 th)) (patch (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 ( -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (*.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) (sin.f64 ky)) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (taylor inf th) (#s(alt (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) (sin.f64 ky)) (sin.f64 th)) (patch (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 ( -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (*.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) (sin.f64 ky)) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (taylor inf th) (#s(alt (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) (sin.f64 ky)) (sin.f64 th)) (patch (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 ( -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (*.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) (sin.f64 ky)) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (taylor -inf th) (#s(alt (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) (sin.f64 ky)) (sin.f64 th)) (patch (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 ( -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (*.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) (sin.f64 ky)) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (taylor -inf th) (#s(alt (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) (sin.f64 ky)) (sin.f64 th)) (patch (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 ( -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (*.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) (sin.f64 ky)) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (taylor -inf th) (#s(alt (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) (sin.f64 ky)) (sin.f64 th)) (patch (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 ( -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (*.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) (sin.f64 ky)) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (taylor -inf th) (#s(alt (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) (sin.f64 ky)) (sin.f64 th)) (patch (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 ( -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (*.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) (sin.f64 ky)) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky))))))) (taylor 0 kx) (#s(alt (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 ( -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) (sin.f64 ky)) (patch (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (*.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) (sin.f64 ky)) #<representation binary64>) () ())) ())
#s(alt (+ (* -1/2 (* (* (pow kx 2) (sin ky)) (sqrt (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))))) (* (sin ky) (sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky)))))))) (taylor 0 kx) (#s(alt (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 ( -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) (sin.f64 ky)) (patch (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (*.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) (sin.f64 ky)) #<representation binary64>) () ())) ())
#s(alt (+ (* (sin ky) (sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky))))))) (* (pow kx 2) (+ (* -1/2 (* (sin ky) (sqrt (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))))) (* 1/2 (* (* (pow kx 2) (* (sin ky) (+ (* 1/3 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2))) (* 3/4 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3)))))) (sqrt (+ 1/2 (* -1/2 (cos (* 2 ky)))))))))) (taylor 0 kx) (#s(alt (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 ( -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) (sin.f64 ky)) (patch (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (*.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) (sin.f64 ky)) #<representation binary64>) () ())) ())
#s(alt (+ (* (sin ky) (sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky))))))) (* (pow kx 2) (+ (* -1/2 (* (sin ky) (sqrt (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))))) (* (pow kx 2) (+ (* -1/2 (* (* (pow kx 2) (* (sin ky) (+ (* -1/2 (/ (+ (* 1/3 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2))) (* 3/4 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3)))) (+ 1/2 (* -1/2 (cos (* 2 ky)))))) (+ (* 2/45 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2))) (+ (* 2/3 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))) (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 4))))))) (sqrt (+ 1/2 (* -1/2 (cos (* 2 ky))))))) (* 1/2 (* (* (sin ky) (+ (* 1/3 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2))) (* 3/4 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))))) (sqrt (+ 1/2 (* -1/2 (cos (* 2 ky)))))))))))) (taylor 0 kx) (#s(alt (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 ( -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) (sin.f64 ky)) (patch (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (*.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) (sin.f64 ky)) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (taylor inf kx) (#s(alt (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 ( -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) (sin.f64 ky)) (patch (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (*.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) (sin.f64 ky)) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (taylor inf kx) (#s(alt (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 ( -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) (sin.f64 ky)) (patch (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (*.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) (sin.f64 ky)) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (taylor inf kx) (#s(alt (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 ( -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) (sin.f64 ky)) (patch (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (*.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) (sin.f64 ky)) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (taylor inf kx) (#s(alt (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 ( -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) (sin.f64 ky)) (patch (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (*.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) (sin.f64 ky)) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx)))))))))) (taylor -inf kx) (#s(alt (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 ( -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) (sin.f64 ky)) (patch (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (*.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) (sin.f64 ky)) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx)))))))))) (taylor -inf kx) (#s(alt (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 ( -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) (sin.f64 ky)) (patch (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (*.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) (sin.f64 ky)) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx)))))))))) (taylor -inf kx) (#s(alt (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 ( -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) (sin.f64 ky)) (patch (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (*.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) (sin.f64 ky)) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx)))))))))) (taylor -inf kx) (#s(alt (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 ( -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) (sin.f64 ky)) (patch (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (*.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) (sin.f64 ky)) #<representation binary64>) () ())) ())
#s(alt (* (* ky (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))) (taylor 0 ky) (#s(alt (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 ( -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) (sin.f64 ky)) (patch (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (*.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) (sin.f64 ky)) #<representation binary64>) () ())) ())
#s(alt (* ky (+ (* (sqrt 2) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* -2 (* (/ 1 (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (* -1/6 (* (sqrt 2) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))))))) (taylor 0 ky) (#s(alt (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 ( -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) (sin.f64 ky)) (patch (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (*.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) (sin.f64 ky)) #<representation binary64>) () ())) ())
#s(alt (* ky (+ (* (sqrt 2) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* -2 (* (/ 1 (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (+ (* -1/6 (* (sqrt 2) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (* (pow ky 2) (+ (* 1/120 (* (sqrt 2) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (+ (* 1/3 (* (/ 1 (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (* 1/2 (* (/ (- (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (* 4 (/ 1 (* (pow (sqrt 2) 2) (pow (- 1 (cos (* 2 kx))) 3))))) (sqrt 2)) (sqrt (- 1 (cos (* 2 kx)))))))))))))) (taylor 0 ky) (#s(alt (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 ( -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) (sin.f64 ky)) (patch (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (*.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) (sin.f64 ky)) #<representation binary64>) () ())) ())
#s(alt (* ky (+ (* (sqrt 2) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* -2 (* (/ 1 (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (+ (* -1/6 (* (sqrt 2) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (* (pow ky 2) (+ (* 1/120 (* (sqrt 2) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (+ (* 1/3 (* (/ 1 (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (+ (* 1/2 (* (/ (- (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (* 4 (/ 1 (* (pow (sqrt 2) 2) (pow (- 1 (cos (* 2 kx))) 3))))) (sqrt 2)) (sqrt (- 1 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* -1/2 (* (/ (+ (* -2 (/ (- (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (* 4 (/ 1 (* (pow (sqrt 2) 2) (pow (- 1 (cos (* 2 kx))) 3))))) (* (pow (sqrt 2) 2) (- 1 (cos (* 2 kx)))))) (+ (* 8/45 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (+ (* 2 (/ (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (- 1 (cos (* 2 kx))))) (* 8/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))))) (sqrt 2)) (sqrt (- 1 (cos (* 2 kx)))))) (+ (* -1/12 (* (/ (- (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (* 4 (/ 1 (* (pow (sqrt 2) 2) (pow (- 1 (cos (* 2 kx))) 3))))) (sqrt 2)) (sqrt (- 1 (cos (* 2 kx)))))) (+ (* -1/60 (* (/ 1 (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (* -1/5040 (* (sqrt 2) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))))))))))))))))) (taylor 0 ky) (#s(alt (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 ( -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) (sin.f64 ky)) (patch (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (*.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) (sin.f64 ky)) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (taylor inf ky) (#s(alt (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 ( -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) (sin.f64 ky)) (patch (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (*.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) (sin.f64 ky)) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (taylor inf ky) (#s(alt (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 ( -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) (sin.f64 ky)) (patch (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (*.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) (sin.f64 ky)) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (taylor inf ky) (#s(alt (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 ( -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) (sin.f64 ky)) (patch (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (*.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) (sin.f64 ky)) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (taylor inf ky) (#s(alt (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 ( -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) (sin.f64 ky)) (patch (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (*.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) (sin.f64 ky)) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (taylor -inf ky) (#s(alt (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 ( -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) (sin.f64 ky)) (patch (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (*.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) (sin.f64 ky)) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (taylor -inf ky) (#s(alt (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 ( -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) (sin.f64 ky)) (patch (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (*.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) (sin.f64 ky)) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (taylor -inf ky) (#s(alt (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 ( -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) (sin.f64 ky)) (patch (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (*.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) (sin.f64 ky)) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (taylor -inf ky) (#s(alt (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 ( -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) (sin.f64 ky)) (patch (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (*.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) (sin.f64 ky)) #<representation binary64>) () ())) ())
#s(alt (sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky)))))) (taylor 0 kx) (#s(alt (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) (patch (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 ( -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (*.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky)))))) (* -1/2 (* (pow kx 2) (sqrt (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3)))))) (taylor 0 kx) (#s(alt (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) (patch (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 ( -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (*.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky)))))) (* (pow kx 2) (+ (* -1/2 (sqrt (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3)))) (* 1/2 (* (* (pow kx 2) (+ (* 1/3 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2))) (* 3/4 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))))) (sqrt (+ 1/2 (* -1/2 (cos (* 2 ky)))))))))) (taylor 0 kx) (#s(alt (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) (patch (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 ( -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (*.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky)))))) (* (pow kx 2) (+ (* -1/2 (sqrt (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3)))) (* (pow kx 2) (+ (* -1/2 (* (* (pow kx 2) (+ (* -1/2 (/ (+ (* 1/3 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2))) (* 3/4 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3)))) (+ 1/2 (* -1/2 (cos (* 2 ky)))))) (+ (* 2/45 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2))) (+ (* 2/3 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))) (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 4)))))) (sqrt (+ 1/2 (* -1/2 (cos (* 2 ky))))))) (* 1/2 (* (sqrt (+ 1/2 (* -1/2 (cos (* 2 ky))))) (+ (* 1/3 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2))) (* 3/4 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))))))))))) (taylor 0 kx) (#s(alt (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) (patch (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 ( -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (*.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))) (taylor inf kx) (#s(alt (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) (patch (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 ( -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (*.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))) (taylor inf kx) (#s(alt (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) (patch (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 ( -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (*.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))) (taylor inf kx) (#s(alt (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) (patch (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 ( -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (*.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))) (taylor inf kx) (#s(alt (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) (patch (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 ( -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (*.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx))))))))) (taylor -inf kx) (#s(alt (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) (patch (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 ( -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (*.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx))))))))) (taylor -inf kx) (#s(alt (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) (patch (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 ( -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (*.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx))))))))) (taylor -inf kx) (#s(alt (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) (patch (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 ( -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (*.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx))))))))) (taylor -inf kx) (#s(alt (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) (patch (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 ( -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (*.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) #<representation binary64>) () ())) ())
#s(alt (* (sqrt 2) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))) (taylor 0 ky) (#s(alt (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) (patch (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 ( -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (*.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) #<representation binary64>) () ())) ())
#s(alt (+ (* -2 (* (/ (pow ky 2) (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (* (sqrt 2) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (taylor 0 ky) (#s(alt (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) (patch (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 ( -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (*.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (sqrt 2) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* -2 (* (/ 1 (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (* 1/2 (* (/ (* (pow ky 2) (- (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (* 4 (/ 1 (* (pow (sqrt 2) 2) (pow (- 1 (cos (* 2 kx))) 3)))))) (sqrt 2)) (sqrt (- 1 (cos (* 2 kx))))))))) (taylor 0 ky) (#s(alt (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) (patch (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 ( -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (*.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (sqrt 2) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* -2 (* (/ 1 (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (* (pow ky 2) (+ (* -1/2 (* (/ (* (pow ky 2) (+ (* -2 (/ (- (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (* 4 (/ 1 (* (pow (sqrt 2) 2) (pow (- 1 (cos (* 2 kx))) 3))))) (* (pow (sqrt 2) 2) (- 1 (cos (* 2 kx)))))) (+ (* 8/45 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (+ (* 2 (/ (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (- 1 (cos (* 2 kx))))) (* 8/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))))) (sqrt 2)) (sqrt (- 1 (cos (* 2 kx)))))) (* 1/2 (* (/ (- (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (* 4 (/ 1 (* (pow (sqrt 2) 2) (pow (- 1 (cos (* 2 kx))) 3))))) (sqrt 2)) (sqrt (- 1 (cos (* 2 kx))))))))))) (taylor 0 ky) (#s(alt (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) (patch (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 ( -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (*.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))) (taylor inf ky) (#s(alt (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) (patch (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 ( -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (*.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))) (taylor inf ky) (#s(alt (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) (patch (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 ( -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (*.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))) (taylor inf ky) (#s(alt (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) (patch (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 ( -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (*.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))) (taylor inf ky) (#s(alt (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) (patch (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 ( -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (*.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx)))))))) (taylor -inf ky) (#s(alt (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) (patch (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 ( -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (*.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx)))))))) (taylor -inf ky) (#s(alt (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) (patch (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 ( -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (*.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx)))))))) (taylor -inf ky) (#s(alt (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) (patch (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 ( -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (*.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx)))))))) (taylor -inf ky) (#s(alt (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) (patch (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 ( -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (*.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) #<representation binary64>) () ())) ())
#s(alt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky))))) (taylor 0 kx) (#s(alt (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64)))))) (patch (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 ( -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (*.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (/ (pow kx 2) (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2))) (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky)))))) (taylor 0 kx) (#s(alt (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64)))))) (patch (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 ( -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (*.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (pow kx 2) (- (* (pow kx 2) (+ (* 1/3 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2))) (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3)))) (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2)))) (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky)))))) (taylor 0 kx) (#s(alt (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64)))))) (patch (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 ( -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (*.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (pow kx 2) (- (* (pow kx 2) (+ (* -1 (* (pow kx 2) (+ (* 2/45 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2))) (+ (* 2/3 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))) (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 4)))))) (+ (* 1/3 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2))) (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))))) (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2)))) (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky)))))) (taylor 0 kx) (#s(alt (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64)))))) (patch (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 ( -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (*.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))) (taylor inf kx) (#s(alt (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64)))))) (patch (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 ( -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (*.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))) (taylor inf kx) (#s(alt (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64)))))) (patch (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 ( -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (*.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))) (taylor inf kx) (#s(alt (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64)))))) (patch (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 ( -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (*.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))) (taylor inf kx) (#s(alt (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64)))))) (patch (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 ( -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (*.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx)))))))) (taylor -inf kx) (#s(alt (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64)))))) (patch (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 ( -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (*.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx)))))))) (taylor -inf kx) (#s(alt (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64)))))) (patch (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 ( -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (*.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx)))))))) (taylor -inf kx) (#s(alt (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64)))))) (patch (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 ( -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (*.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx)))))))) (taylor -inf kx) (#s(alt (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64)))))) (patch (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 ( -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (*.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (/ 2 (- 1 (cos (* 2 kx)))) (taylor 0 ky) (#s(alt (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64)))))) (patch (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 ( -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (*.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ (* -4 (/ (pow ky 2) (pow (- 1 (cos (* 2 kx))) 2))) (* 2 (/ 1 (- 1 (cos (* 2 kx)))))) (taylor 0 ky) (#s(alt (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64)))))) (patch (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 ( -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (*.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (pow ky 2) (- (* (pow ky 2) (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (* 4 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))))) (* 2 (/ 1 (- 1 (cos (* 2 kx)))))) (taylor 0 ky) (#s(alt (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64)))))) (patch (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 ( -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (*.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (pow ky 2) (- (* (pow ky 2) (+ (* -1 (* (pow ky 2) (+ (* 8/45 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (+ (* 2 (/ (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (- 1 (cos (* 2 kx))))) (* 8/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))))) (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))))) (* 4 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))))) (* 2 (/ 1 (- 1 (cos (* 2 kx)))))) (taylor 0 ky) (#s(alt (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64)))))) (patch (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 ( -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (*.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))) (taylor inf ky) (#s(alt (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64)))))) (patch (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 ( -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (*.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))) (taylor inf ky) (#s(alt (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64)))))) (patch (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 ( -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (*.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))) (taylor inf ky) (#s(alt (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64)))))) (patch (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 ( -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (*.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))) (taylor inf ky) (#s(alt (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64)))))) (patch (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 ( -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (*.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (/ 1 (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx))))))) (taylor -inf ky) (#s(alt (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64)))))) (patch (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 ( -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (*.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (/ 1 (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx))))))) (taylor -inf ky) (#s(alt (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64)))))) (patch (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 ( -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (*.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (/ 1 (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx))))))) (taylor -inf ky) (#s(alt (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64)))))) (patch (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 ( -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (*.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (/ 1 (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx))))))) (taylor -inf ky) (#s(alt (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64)))))) (patch (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 ( -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (*.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64)))))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (* -1/2 (cos (* 2 ky)))) (taylor 0 kx) (#s(alt (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) (patch (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (pow kx 2))) (taylor 0 kx) (#s(alt (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) (patch (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* (pow kx 2) (+ 1 (* -1/3 (pow kx 2)))))) (taylor 0 kx) (#s(alt (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) (patch (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* (pow kx 2) (+ 1 (* (pow kx 2) (- (* 2/45 (pow kx 2)) 1/3)))))) (taylor 0 kx) (#s(alt (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) (patch (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))) (taylor inf kx) (#s(alt (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) (patch (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))) (taylor inf kx) (#s(alt (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) (patch (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))) (taylor inf kx) (#s(alt (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) (patch (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))) (taylor inf kx) (#s(alt (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) (patch (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx))))))) (taylor -inf kx) (#s(alt (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) (patch (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx))))))) (taylor -inf kx) (#s(alt (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) (patch (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx))))))) (taylor -inf kx) (#s(alt (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) (patch (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx))))))) (taylor -inf kx) (#s(alt (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) (patch (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (- 1 (cos (* 2 kx)))) (taylor 0 ky) (#s(alt (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) (patch (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 (- 1 (cos (* 2 kx)))) (pow ky 2)) (taylor 0 ky) (#s(alt (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) (patch (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 (- 1 (cos (* 2 kx)))) (* (pow ky 2) (+ 1 (* -1/3 (pow ky 2))))) (taylor 0 ky) (#s(alt (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) (patch (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 (- 1 (cos (* 2 kx)))) (* (pow ky 2) (+ 1 (* (pow ky 2) (- (* 2/45 (pow ky 2)) 1/3))))) (taylor 0 ky) (#s(alt (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) (patch (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))) (taylor inf ky) (#s(alt (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) (patch (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))) (taylor inf ky) (#s(alt (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) (patch (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))) (taylor inf ky) (#s(alt (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) (patch (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))) (taylor inf ky) (#s(alt (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) (patch (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx)))))) (taylor -inf ky) (#s(alt (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) (patch (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx)))))) (taylor -inf ky) (#s(alt (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) (patch (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx)))))) (taylor -inf ky) (#s(alt (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) (patch (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx)))))) (taylor -inf ky) (#s(alt (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) (patch (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) #<representation binary64>) () ())) ())
#s(alt (pow ky 2) (taylor 0 ky) (#s(alt (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))) (patch (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))) #<representation binary64>) () ())) ())
#s(alt (* (pow ky 2) (+ 1 (* -1/3 (pow ky 2)))) (taylor 0 ky) (#s(alt (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))) (patch (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))) #<representation binary64>) () ())) ())
#s(alt (* (pow ky 2) (+ 1 (* (pow ky 2) (- (* 2/45 (pow ky 2)) 1/3)))) (taylor 0 ky) (#s(alt (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))) (patch (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))) #<representation binary64>) () ())) ())
#s(alt (* (pow ky 2) (+ 1 (* (pow ky 2) (- (* (pow ky 2) (+ 2/45 (* -1/315 (pow ky 2)))) 1/3)))) (taylor 0 ky) (#s(alt (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))) (patch (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (* -1/2 (cos (* 2 ky)))) (taylor inf ky) (#s(alt (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))) (patch (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (* -1/2 (cos (* 2 ky)))) (taylor inf ky) (#s(alt (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))) (patch (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (* -1/2 (cos (* 2 ky)))) (taylor inf ky) (#s(alt (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))) (patch (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (* -1/2 (cos (* 2 ky)))) (taylor inf ky) (#s(alt (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))) (patch (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (* -1/2 (cos (neg (* -2 ky))))) (taylor -inf ky) (#s(alt (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))) (patch (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (* -1/2 (cos (neg (* -2 ky))))) (taylor -inf ky) (#s(alt (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))) (patch (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (* -1/2 (cos (neg (* -2 ky))))) (taylor -inf ky) (#s(alt (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))) (patch (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (* -1/2 (cos (neg (* -2 ky))))) (taylor -inf ky) (#s(alt (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))) (patch (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))) #<representation binary64>) () ())) ())
#s(alt (* (* ky (* (sin th) (sqrt 2))) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))) (taylor 0 ky) (#s(alt (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (patch (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) #<representation binary64>) () ())) ())
#s(alt (* ky (+ (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* -2 (* (/ (sin th) (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (* -1/6 (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))))))) (taylor 0 ky) (#s(alt (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (patch (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) #<representation binary64>) () ())) ())
#s(alt (* ky (+ (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* -2 (* (/ (sin th) (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (+ (* -1/6 (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (* (pow ky 2) (+ (* 1/120 (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (+ (* 1/3 (* (/ (sin th) (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (* 1/2 (* (/ (* (sin th) (- (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (* 4 (/ 1 (* (pow (sqrt 2) 2) (pow (- 1 (cos (* 2 kx))) 3)))))) (sqrt 2)) (sqrt (- 1 (cos (* 2 kx)))))))))))))) (taylor 0 ky) (#s(alt (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (patch (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) #<representation binary64>) () ())) ())
#s(alt (* ky (+ (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* -2 (* (/ (sin th) (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (+ (* -1/6 (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (* (pow ky 2) (+ (* 1/120 (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (+ (* 1/3 (* (/ (sin th) (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (+ (* 1/2 (* (/ (* (sin th) (- (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (* 4 (/ 1 (* (pow (sqrt 2) 2) (pow (- 1 (cos (* 2 kx))) 3)))))) (sqrt 2)) (sqrt (- 1 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* -1/2 (* (/ (* (sin th) (+ (* -2 (/ (- (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (* 4 (/ 1 (* (pow (sqrt 2) 2) (pow (- 1 (cos (* 2 kx))) 3))))) (* (pow (sqrt 2) 2) (- 1 (cos (* 2 kx)))))) (+ (* 8/45 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (+ (* 2 (/ (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (- 1 (cos (* 2 kx))))) (* 8/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))))) (sqrt 2)) (sqrt (- 1 (cos (* 2 kx)))))) (+ (* -1/12 (* (/ (* (sin th) (- (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (* 4 (/ 1 (* (pow (sqrt 2) 2) (pow (- 1 (cos (* 2 kx))) 3)))))) (sqrt 2)) (sqrt (- 1 (cos (* 2 kx)))))) (+ (* -1/60 (* (/ (sin th) (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (* -1/5040 (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))))))))))))))))) (taylor 0 ky) (#s(alt (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (patch (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (taylor inf ky) (#s(alt (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (patch (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (taylor inf ky) (#s(alt (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (patch (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (taylor inf ky) (#s(alt (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (patch (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (taylor inf ky) (#s(alt (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (patch (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (taylor -inf ky) (#s(alt (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (patch (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (taylor -inf ky) (#s(alt (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (patch (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (taylor -inf ky) (#s(alt (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (patch (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (taylor -inf ky) (#s(alt (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (patch (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) #<representation binary64>) () ())) ())
#s(alt (* (* th (sin ky)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (taylor 0 th) (#s(alt (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (patch (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) #<representation binary64>) () ())) ())
#s(alt (* th (+ (* -1/6 (* (* (pow th 2) (sin ky)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))) (* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))))) (taylor 0 th) (#s(alt (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (patch (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) #<representation binary64>) () ())) ())
#s(alt (* th (+ (* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (* (pow th 2) (+ (* -1/6 (* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))) (* 1/120 (* (* (pow th 2) (sin ky)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))))))) (taylor 0 th) (#s(alt (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (patch (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) #<representation binary64>) () ())) ())
#s(alt (* th (+ (* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (* (pow th 2) (+ (* -1/6 (* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))) (* (pow th 2) (+ (* -1/5040 (* (* (pow th 2) (sin ky)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))) (* 1/120 (* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))))))))) (taylor 0 th) (#s(alt (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (patch (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (taylor inf th) (#s(alt (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (patch (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (taylor inf th) (#s(alt (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (patch (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (taylor inf th) (#s(alt (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (patch (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (taylor inf th) (#s(alt (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (patch (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (taylor -inf th) (#s(alt (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (patch (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (taylor -inf th) (#s(alt (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (patch (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (taylor -inf th) (#s(alt (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (patch (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (taylor -inf th) (#s(alt (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (patch (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky))))))) (taylor 0 kx) (#s(alt (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (patch (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1/2 (* (* (pow kx 2) (* (sin ky) (sin th))) (sqrt (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))))) (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky)))))))) (taylor 0 kx) (#s(alt (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (patch (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky))))))) (* (pow kx 2) (+ (* -1/2 (* (* (sin ky) (sin th)) (sqrt (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))))) (* 1/2 (* (* (pow kx 2) (* (sin ky) (* (sin th) (+ (* 1/3 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2))) (* 3/4 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))))))) (sqrt (+ 1/2 (* -1/2 (cos (* 2 ky)))))))))) (taylor 0 kx) (#s(alt (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (patch (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky))))))) (* (pow kx 2) (+ (* -1/2 (* (* (sin ky) (sin th)) (sqrt (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))))) (* (pow kx 2) (+ (* -1/2 (* (* (pow kx 2) (* (sin ky) (* (sin th) (+ (* -1/2 (/ (+ (* 1/3 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2))) (* 3/4 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3)))) (+ 1/2 (* -1/2 (cos (* 2 ky)))))) (+ (* 2/45 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2))) (+ (* 2/3 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))) (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 4)))))))) (sqrt (+ 1/2 (* -1/2 (cos (* 2 ky))))))) (* 1/2 (* (* (sin ky) (* (sin th) (+ (* 1/3 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2))) (* 3/4 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3)))))) (sqrt (+ 1/2 (* -1/2 (cos (* 2 ky)))))))))))) (taylor 0 kx) (#s(alt (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (patch (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (taylor inf kx) (#s(alt (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (patch (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (taylor inf kx) (#s(alt (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (patch (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (taylor inf kx) (#s(alt (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (patch (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (taylor inf kx) (#s(alt (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (patch (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx)))))))))) (taylor -inf kx) (#s(alt (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (patch (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx)))))))))) (taylor -inf kx) (#s(alt (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (patch (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx)))))))))) (taylor -inf kx) (#s(alt (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (patch (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx)))))))))) (taylor -inf kx) (#s(alt (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (patch (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) #<representation binary64>) () ())) ())
#s(alt (* ky (sin th)) (taylor 0 ky) (#s(alt (.f64 (sin.f64 ky) (sin.f64 th)) (patch (.f64 (sin.f64 ky) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* ky (+ (sin th) (* -1/6 (* (pow ky 2) (sin th))))) (taylor 0 ky) (#s(alt (.f64 (sin.f64 ky) (sin.f64 th)) (patch (.f64 (sin.f64 ky) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* ky (+ (sin th) (* (pow ky 2) (+ (* -1/6 (sin th)) (* 1/120 (* (pow ky 2) (sin th))))))) (taylor 0 ky) (#s(alt (.f64 (sin.f64 ky) (sin.f64 th)) (patch (.f64 (sin.f64 ky) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* ky (+ (sin th) (* (pow ky 2) (+ (* -1/6 (sin th)) (* (pow ky 2) (+ (* -1/5040 (* (pow ky 2) (sin th))) (* 1/120 (sin th)))))))) (taylor 0 ky) (#s(alt (.f64 (sin.f64 ky) (sin.f64 th)) (patch (.f64 (sin.f64 ky) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sin th)) (taylor inf ky) (#s(alt (.f64 (sin.f64 ky) (sin.f64 th)) (patch (.f64 (sin.f64 ky) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sin th)) (taylor inf ky) (#s(alt (.f64 (sin.f64 ky) (sin.f64 th)) (patch (.f64 (sin.f64 ky) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sin th)) (taylor inf ky) (#s(alt (.f64 (sin.f64 ky) (sin.f64 th)) (patch (.f64 (sin.f64 ky) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sin th)) (taylor inf ky) (#s(alt (.f64 (sin.f64 ky) (sin.f64 th)) (patch (.f64 (sin.f64 ky) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sin th)) (taylor -inf ky) (#s(alt (.f64 (sin.f64 ky) (sin.f64 th)) (patch (.f64 (sin.f64 ky) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sin th)) (taylor -inf ky) (#s(alt (.f64 (sin.f64 ky) (sin.f64 th)) (patch (.f64 (sin.f64 ky) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sin th)) (taylor -inf ky) (#s(alt (.f64 (sin.f64 ky) (sin.f64 th)) (patch (.f64 (sin.f64 ky) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sin th)) (taylor -inf ky) (#s(alt (.f64 (sin.f64 ky) (sin.f64 th)) (patch (.f64 (sin.f64 ky) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* th (sin ky)) (taylor 0 th) (#s(alt (.f64 (sin.f64 ky) (sin.f64 th)) (patch (.f64 (sin.f64 ky) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* th (+ (sin ky) (* -1/6 (* (pow th 2) (sin ky))))) (taylor 0 th) (#s(alt (.f64 (sin.f64 ky) (sin.f64 th)) (patch (.f64 (sin.f64 ky) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* th (+ (sin ky) (* (pow th 2) (+ (* -1/6 (sin ky)) (* 1/120 (* (pow th 2) (sin ky))))))) (taylor 0 th) (#s(alt (.f64 (sin.f64 ky) (sin.f64 th)) (patch (.f64 (sin.f64 ky) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* th (+ (sin ky) (* (pow th 2) (+ (* -1/6 (sin ky)) (* (pow th 2) (+ (* -1/5040 (* (pow th 2) (sin ky))) (* 1/120 (sin ky)))))))) (taylor 0 th) (#s(alt (.f64 (sin.f64 ky) (sin.f64 th)) (patch (.f64 (sin.f64 ky) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sin th)) (taylor inf th) (#s(alt (.f64 (sin.f64 ky) (sin.f64 th)) (patch (.f64 (sin.f64 ky) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sin th)) (taylor inf th) (#s(alt (.f64 (sin.f64 ky) (sin.f64 th)) (patch (.f64 (sin.f64 ky) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sin th)) (taylor inf th) (#s(alt (.f64 (sin.f64 ky) (sin.f64 th)) (patch (.f64 (sin.f64 ky) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sin th)) (taylor inf th) (#s(alt (.f64 (sin.f64 ky) (sin.f64 th)) (patch (.f64 (sin.f64 ky) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sin th)) (taylor -inf th) (#s(alt (.f64 (sin.f64 ky) (sin.f64 th)) (patch (.f64 (sin.f64 ky) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sin th)) (taylor -inf th) (#s(alt (.f64 (sin.f64 ky) (sin.f64 th)) (patch (.f64 (sin.f64 ky) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sin th)) (taylor -inf th) (#s(alt (.f64 (sin.f64 ky) (sin.f64 th)) (patch (.f64 (sin.f64 ky) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sin th)) (taylor -inf th) (#s(alt (.f64 (sin.f64 ky) (sin.f64 th)) (patch (.f64 (sin.f64 ky) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (/ 1 kx) (taylor 0 kx) (#s(alt (/.f64 #s(literal 1 binary64) (sin.f64 kx)) (patch (/.f64 #s(literal 1 binary64) (sin.f64 kx)) #<representation binary64>) () ())) ())
#s(alt (/ (+ 1 (* 1/6 (pow kx 2))) kx) (taylor 0 kx) (#s(alt (/.f64 #s(literal 1 binary64) (sin.f64 kx)) (patch (/.f64 #s(literal 1 binary64) (sin.f64 kx)) #<representation binary64>) () ())) ())
#s(alt (/ (+ 1 (* (pow kx 2) (+ 1/6 (* 7/360 (pow kx 2))))) kx) (taylor 0 kx) (#s(alt (/.f64 #s(literal 1 binary64) (sin.f64 kx)) (patch (/.f64 #s(literal 1 binary64) (sin.f64 kx)) #<representation binary64>) () ())) ())
#s(alt (/ (+ 1 (* (pow kx 2) (+ 1/6 (* (pow kx 2) (+ 7/360 (* 31/15120 (pow kx 2))))))) kx) (taylor 0 kx) (#s(alt (/.f64 #s(literal 1 binary64) (sin.f64 kx)) (patch (/.f64 #s(literal 1 binary64) (sin.f64 kx)) #<representation binary64>) () ())) ())
#s(alt (/ 1 (sin kx)) (taylor inf kx) (#s(alt (/.f64 #s(literal 1 binary64) (sin.f64 kx)) (patch (/.f64 #s(literal 1 binary64) (sin.f64 kx)) #<representation binary64>) () ())) ())
#s(alt (/ 1 (sin kx)) (taylor inf kx) (#s(alt (/.f64 #s(literal 1 binary64) (sin.f64 kx)) (patch (/.f64 #s(literal 1 binary64) (sin.f64 kx)) #<representation binary64>) () ())) ())
#s(alt (/ 1 (sin kx)) (taylor inf kx) (#s(alt (/.f64 #s(literal 1 binary64) (sin.f64 kx)) (patch (/.f64 #s(literal 1 binary64) (sin.f64 kx)) #<representation binary64>) () ())) ())
#s(alt (/ 1 (sin kx)) (taylor inf kx) (#s(alt (/.f64 #s(literal 1 binary64) (sin.f64 kx)) (patch (/.f64 #s(literal 1 binary64) (sin.f64 kx)) #<representation binary64>) () ())) ())
#s(alt (/ 1 (sin kx)) (taylor -inf kx) (#s(alt (/.f64 #s(literal 1 binary64) (sin.f64 kx)) (patch (/.f64 #s(literal 1 binary64) (sin.f64 kx)) #<representation binary64>) () ())) ())
#s(alt (/ 1 (sin kx)) (taylor -inf kx) (#s(alt (/.f64 #s(literal 1 binary64) (sin.f64 kx)) (patch (/.f64 #s(literal 1 binary64) (sin.f64 kx)) #<representation binary64>) () ())) ())
#s(alt (/ 1 (sin kx)) (taylor -inf kx) (#s(alt (/.f64 #s(literal 1 binary64) (sin.f64 kx)) (patch (/.f64 #s(literal 1 binary64) (sin.f64 kx)) #<representation binary64>) () ())) ())
#s(alt (/ 1 (sin kx)) (taylor -inf kx) (#s(alt (/.f64 #s(literal 1 binary64) (sin.f64 kx)) (patch (/.f64 #s(literal 1 binary64) (sin.f64 kx)) #<representation binary64>) () ())) ())
#s(alt (* 2 (pow kx 2)) (taylor 0 kx) (#s(alt (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (patch (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* (pow kx 2) (+ 2 (* -2/3 (pow kx 2)))) (taylor 0 kx) (#s(alt (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (patch (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* (pow kx 2) (+ 2 (* (pow kx 2) (- (* 4/45 (pow kx 2)) 2/3)))) (taylor 0 kx) (#s(alt (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (patch (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* (pow kx 2) (+ 2 (* (pow kx 2) (- (* (pow kx 2) (+ 4/45 (* -2/315 (pow kx 2)))) 2/3)))) (taylor 0 kx) (#s(alt (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (patch (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (- 1 (cos (* -2 kx))) (taylor inf kx) (#s(alt (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (patch (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (- 1 (cos (* -2 kx))) (taylor inf kx) (#s(alt (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (patch (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (- 1 (cos (* -2 kx))) (taylor inf kx) (#s(alt (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (patch (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (- 1 (cos (* -2 kx))) (taylor inf kx) (#s(alt (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (patch (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (- 1 (cos (* -2 kx))) (taylor -inf kx) (#s(alt (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (patch (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (- 1 (cos (* -2 kx))) (taylor -inf kx) (#s(alt (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (patch (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (- 1 (cos (* -2 kx))) (taylor -inf kx) (#s(alt (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (patch (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (- 1 (cos (* -2 kx))) (taylor -inf kx) (#s(alt (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (patch (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* ky (sqrt 2)) (taylor 0 ky) (#s(alt (.f64 ky (sqrt.f64 #s(literal 2 binary64))) (patch (.f64 ky (sqrt.f64 #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (* ky (sqrt 2)) (taylor 0 ky) (#s(alt (.f64 ky (sqrt.f64 #s(literal 2 binary64))) (patch (.f64 ky (sqrt.f64 #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (* ky (sqrt 2)) (taylor 0 ky) (#s(alt (.f64 ky (sqrt.f64 #s(literal 2 binary64))) (patch (.f64 ky (sqrt.f64 #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (* ky (sqrt 2)) (taylor 0 ky) (#s(alt (.f64 ky (sqrt.f64 #s(literal 2 binary64))) (patch (.f64 ky (sqrt.f64 #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (* ky (sqrt 2)) (taylor inf ky) (#s(alt (.f64 ky (sqrt.f64 #s(literal 2 binary64))) (patch (.f64 ky (sqrt.f64 #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (* ky (sqrt 2)) (taylor inf ky) (#s(alt (.f64 ky (sqrt.f64 #s(literal 2 binary64))) (patch (.f64 ky (sqrt.f64 #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (* ky (sqrt 2)) (taylor inf ky) (#s(alt (.f64 ky (sqrt.f64 #s(literal 2 binary64))) (patch (.f64 ky (sqrt.f64 #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (* ky (sqrt 2)) (taylor inf ky) (#s(alt (.f64 ky (sqrt.f64 #s(literal 2 binary64))) (patch (.f64 ky (sqrt.f64 #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (* ky (sqrt 2)) (taylor -inf ky) (#s(alt (.f64 ky (sqrt.f64 #s(literal 2 binary64))) (patch (.f64 ky (sqrt.f64 #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (* ky (sqrt 2)) (taylor -inf ky) (#s(alt (.f64 ky (sqrt.f64 #s(literal 2 binary64))) (patch (.f64 ky (sqrt.f64 #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (* ky (sqrt 2)) (taylor -inf ky) (#s(alt (.f64 ky (sqrt.f64 #s(literal 2 binary64))) (patch (.f64 ky (sqrt.f64 #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (* ky (sqrt 2)) (taylor -inf ky) (#s(alt (.f64 ky (sqrt.f64 #s(literal 2 binary64))) (patch (.f64 ky (sqrt.f64 #s(literal 2 binary64))) #<representation binary64>) () ())) ())
#s(alt (pow ky 2) (taylor 0 ky) (#s(alt #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64)))) (patch #s(approx (+ 1/2 ( -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (*.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* (pow ky 2) (+ 1 (* -1/3 (pow ky 2)))) (taylor 0 ky) (#s(alt #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64)))) (patch #s(approx (+ 1/2 ( -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (*.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* (pow ky 2) (+ 1 (* (pow ky 2) (- (* 2/45 (pow ky 2)) 1/3)))) (taylor 0 ky) (#s(alt #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64)))) (patch #s(approx (+ 1/2 ( -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (*.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* (pow ky 2) (+ 1 (* (pow ky 2) (- (* (pow ky 2) (+ 2/45 (* -1/315 (pow ky 2)))) 1/3)))) (taylor 0 ky) (#s(alt #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64)))) (patch #s(approx (+ 1/2 ( -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (*.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64)))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (* -1/2 (cos (* 2 ky)))) (taylor inf ky) (#s(alt #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64)))) (patch #s(approx (+ 1/2 ( -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (*.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64)))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (* -1/2 (cos (* 2 ky)))) (taylor inf ky) (#s(alt #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64)))) (patch #s(approx (+ 1/2 ( -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (*.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64)))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (* -1/2 (cos (* 2 ky)))) (taylor inf ky) (#s(alt #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64)))) (patch #s(approx (+ 1/2 ( -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (*.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64)))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (* -1/2 (cos (* 2 ky)))) (taylor inf ky) (#s(alt #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64)))) (patch #s(approx (+ 1/2 ( -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (*.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64)))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (* -1/2 (cos (neg (* -2 ky))))) (taylor -inf ky) (#s(alt #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64)))) (patch #s(approx (+ 1/2 ( -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (*.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64)))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (* -1/2 (cos (neg (* -2 ky))))) (taylor -inf ky) (#s(alt #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64)))) (patch #s(approx (+ 1/2 ( -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (*.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64)))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (* -1/2 (cos (neg (* -2 ky))))) (taylor -inf ky) (#s(alt #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64)))) (patch #s(approx (+ 1/2 ( -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (*.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64)))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (* -1/2 (cos (neg (* -2 ky))))) (taylor -inf ky) (#s(alt #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64)))) (patch #s(approx (+ 1/2 ( -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (*.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* 2 (pow kx 2)) (taylor 0 kx) (#s(alt (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) (patch (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #<representation binary64>) () ())) ())
#s(alt (* (pow kx 2) (+ 2 (* -2/3 (pow kx 2)))) (taylor 0 kx) (#s(alt (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) (patch (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #<representation binary64>) () ())) ())
#s(alt (* (pow kx 2) (+ 2 (* (pow kx 2) (- (* 4/45 (pow kx 2)) 2/3)))) (taylor 0 kx) (#s(alt (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) (patch (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #<representation binary64>) () ())) ())
#s(alt (* (pow kx 2) (+ 2 (* (pow kx 2) (- (* (pow kx 2) (+ 4/45 (* -2/315 (pow kx 2)))) 2/3)))) (taylor 0 kx) (#s(alt (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) (patch (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #<representation binary64>) () ())) ())
#s(alt (- 1 (cos (* 2 kx))) (taylor inf kx) (#s(alt (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) (patch (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #<representation binary64>) () ())) ())
#s(alt (- 1 (cos (* 2 kx))) (taylor inf kx) (#s(alt (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) (patch (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #<representation binary64>) () ())) ())
#s(alt (- 1 (cos (* 2 kx))) (taylor inf kx) (#s(alt (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) (patch (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #<representation binary64>) () ())) ())
#s(alt (- 1 (cos (* 2 kx))) (taylor inf kx) (#s(alt (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) (patch (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #<representation binary64>) () ())) ())
#s(alt (- 1 (cos (neg (* -2 kx)))) (taylor -inf kx) (#s(alt (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) (patch (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #<representation binary64>) () ())) ())
#s(alt (- 1 (cos (neg (* -2 kx)))) (taylor -inf kx) (#s(alt (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) (patch (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #<representation binary64>) () ())) ())
#s(alt (- 1 (cos (neg (* -2 kx)))) (taylor -inf kx) (#s(alt (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) (patch (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #<representation binary64>) () ())) ())
#s(alt (- 1 (cos (neg (* -2 kx)))) (taylor -inf kx) (#s(alt (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) (patch (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ 1/2 (* -1/2 (cos (* 2 ky))))) (taylor 0 kx) (#s(alt (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) (patch (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ 1/2 (* -1/2 (cos (* 2 ky))))) (* 1/2 (* (pow kx 2) (sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky))))))))) (taylor 0 kx) (#s(alt (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) (patch (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ 1/2 (* -1/2 (cos (* 2 ky))))) (* (pow kx 2) (+ (* -1/2 (* (* (pow kx 2) (+ 1/3 (* 1/4 (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky)))))))) (sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky)))))))) (* 1/2 (sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky)))))))))) (taylor 0 kx) (#s(alt (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) (patch (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ 1/2 (* -1/2 (cos (* 2 ky))))) (* (pow kx 2) (+ (* 1/2 (sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky))))))) (* (pow kx 2) (+ (* -1/2 (* (+ 1/3 (* 1/4 (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky))))))) (sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky)))))))) (* 1/2 (* (* (pow kx 2) (- 2/45 (* -1/2 (/ (+ 1/3 (* 1/4 (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky))))))) (+ 1/2 (* -1/2 (cos (* 2 ky)))))))) (sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky))))))))))))) (taylor 0 kx) (#s(alt (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) (patch (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))) (taylor inf kx) (#s(alt (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) (patch (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))) (taylor inf kx) (#s(alt (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) (patch (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))) (taylor inf kx) (#s(alt (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) (patch (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))) (taylor inf kx) (#s(alt (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) (patch (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx)))))))) (taylor -inf kx) (#s(alt (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) (patch (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx)))))))) (taylor -inf kx) (#s(alt (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) (patch (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx)))))))) (taylor -inf kx) (#s(alt (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) (patch (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx)))))))) (taylor -inf kx) (#s(alt (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) (patch (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) #<representation binary64>) () ())) ())
#s(alt (* (sqrt 1/2) (sqrt (- 1 (cos (* 2 kx))))) (taylor 0 ky) (#s(alt (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) (patch (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 (* (/ (pow ky 2) (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (* (sqrt 1/2) (sqrt (- 1 (cos (* 2 kx)))))) (taylor 0 ky) (#s(alt (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) (patch (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (sqrt 1/2) (sqrt (- 1 (cos (* 2 kx))))) (* (pow ky 2) (+ (* -1/2 (* (/ (* (pow ky 2) (+ 1/3 (* 1/4 (/ 1 (* (pow (sqrt 1/2) 2) (- 1 (cos (* 2 kx)))))))) (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (* 1/2 (* (/ 1 (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))))))) (taylor 0 ky) (#s(alt (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) (patch (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (sqrt 1/2) (sqrt (- 1 (cos (* 2 kx))))) (* (pow ky 2) (+ (* 1/2 (* (/ 1 (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (* (pow ky 2) (+ (* -1/2 (* (/ (+ 1/3 (* 1/4 (/ 1 (* (pow (sqrt 1/2) 2) (- 1 (cos (* 2 kx))))))) (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (* 1/2 (* (/ (* (pow ky 2) (- 2/45 (* -1/2 (/ (+ 1/3 (* 1/4 (/ 1 (* (pow (sqrt 1/2) 2) (- 1 (cos (* 2 kx))))))) (* (pow (sqrt 1/2) 2) (- 1 (cos (* 2 kx)))))))) (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))))))))) (taylor 0 ky) (#s(alt (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) (patch (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))) (taylor inf ky) (#s(alt (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) (patch (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))) (taylor inf ky) (#s(alt (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) (patch (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))) (taylor inf ky) (#s(alt (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) (patch (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))) (taylor inf ky) (#s(alt (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) (patch (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx))))))) (taylor -inf ky) (#s(alt (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) (patch (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx))))))) (taylor -inf ky) (#s(alt (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) (patch (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx))))))) (taylor -inf ky) (#s(alt (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) (patch (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx))))))) (taylor -inf ky) (#s(alt (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) (patch (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) #<representation binary64>) () ())) ())

Calls

135 calls:

Time	Variable		Point	Expression
3.0ms	ky	@	inf	(* (sqrt (/ 1 (- 1 (cos (* kx -2))))) (* ky (sqrt 2)))
2.0ms	ky	@	0	(* (sqrt (/ 1 (- 1 (cos (* kx -2))))) (* ky (sqrt 2)))
1.0ms	kx	@	inf	(* (sqrt (/ 1 (- 1 (cos (* kx -2))))) (* ky (sqrt 2)))
1.0ms	kx	@	0	(* (sqrt (/ 1 (- 1 (cos (* kx -2))))) (* ky (sqrt 2)))
1.0ms	kx	@	-inf	(* (sqrt (/ 1 (- 1 (cos (* kx -2))))) (* ky (sqrt 2)))

simplify440.0ms (3.2%)

Memory

-26.9MiB live, 424.5MiB allocated

Algorithm

1×	egg-herbie

Rules

7 646×	`lower-fma.f64`
7 646×	`lower-fma.f32`
6 932×	`lower-*.f64`
6 932×	`lower-*.f32`
5 794×	`lower-+.f64`

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	831	15247
1	2696	14528
2	6700	14441
0	8818	13594

Stop Event

1×	iter limit
1×	node limit

Counts

540 → 536

Calls

Call 1

Inputs
kx
(* kx (+ 1 (* -1/6 (pow kx 2))))
(* kx (+ 1 (* (pow kx 2) (- (* 1/120 (pow kx 2)) 1/6))))
(* kx (+ 1 (* (pow kx 2) (- (* (pow kx 2) (+ 1/120 (* -1/5040 (pow kx 2)))) 1/6))))
(sin kx)
(sin kx)
(sin kx)
(sin kx)
(sin kx)
(sin kx)
(sin kx)
(sin kx)
(/ (* ky (sin th)) (sin kx))
(* ky (+ (* (pow ky 2) (+ (* -1/2 (/ (sin th) (pow (sin kx) 3))) (* -1/6 (/ (sin th) (sin kx))))) (/ (sin th) (sin kx))))
(* ky (+ (* (pow ky 2) (+ (* -1/2 (/ (sin th) (pow (sin kx) 3))) (+ (* -1/6 (/ (sin th) (sin kx))) (* (pow ky 2) (+ (* 1/120 (/ (sin th) (sin kx))) (+ (* 1/12 (/ (sin th) (pow (sin kx) 3))) (* 1/2 (* (sin kx) (* (sin th) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6))))))))))))) (/ (sin th) (sin kx))))
(* ky (+ (* (pow ky 2) (+ (* -1/2 (/ (sin th) (pow (sin kx) 3))) (+ (* -1/6 (/ (sin th) (sin kx))) (* (pow ky 2) (+ (* 1/120 (/ (sin th) (sin kx))) (+ (* 1/12 (/ (sin th) (pow (sin kx) 3))) (+ (* 1/2 (* (sin kx) (* (sin th) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6))))))) (* (pow ky 2) (+ (* -1/2 (* (sin kx) (* (sin th) (+ (* -1/2 (/ (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6)))) (pow (sin kx) 2))) (+ (* 2/45 (/ 1 (pow (sin kx) 4))) (+ (* 2/3 (/ 1 (pow (sin kx) 6))) (/ 1 (pow (sin kx) 8)))))))) (+ (* -1/12 (* (sin kx) (* (sin th) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6))))))) (+ (* -1/240 (/ (sin th) (pow (sin kx) 3))) (* -1/5040 (/ (sin th) (sin kx)))))))))))))) (/ (sin th) (sin kx))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(sin th)
(+ (sin th) (* -1/2 (/ (* (pow kx 2) (sin th)) (pow (sin ky) 2))))
(+ (sin th) (* (pow kx 2) (+ (* -1/2 (/ (sin th) (pow (sin ky) 2))) (* 1/2 (* (pow kx 2) (* (pow (sin ky) 2) (* (sin th) (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (* 3/4 (/ 1 (pow (sin ky) 6)))))))))))
(+ (sin th) (* (pow kx 2) (+ (* -1/2 (/ (sin th) (pow (sin ky) 2))) (* (pow kx 2) (+ (* -1/2 (* (pow kx 2) (* (pow (sin ky) 2) (* (sin th) (+ (* -1/2 (/ (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (* 3/4 (/ 1 (pow (sin ky) 6)))) (pow (sin ky) 2))) (+ (* 2/45 (/ 1 (pow (sin ky) 4))) (+ (* 2/3 (/ 1 (pow (sin ky) 6))) (/ 1 (pow (sin ky) 8))))))))) (* 1/2 (* (pow (sin ky) 2) (* (sin th) (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (* 3/4 (/ 1 (pow (sin ky) 6))))))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (* th (sin ky)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* th (+ (* -1/6 (* (* (pow th 2) (sin ky)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))) (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))))
(* th (+ (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (* (pow th 2) (+ (* -1/6 (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))) (* 1/120 (* (* (pow th 2) (sin ky)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))))))))
(* th (+ (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (* (pow th 2) (+ (* -1/6 (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))) (* (pow th 2) (+ (* -1/5040 (* (* (pow th 2) (sin ky)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))) (* 1/120 (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(/ ky (sin kx))
(* ky (+ (* -1 (* (pow ky 2) (+ (* 1/6 (/ 1 (sin kx))) (* 1/2 (/ 1 (pow (sin kx) 3)))))) (/ 1 (sin kx))))
(* ky (+ (* (pow ky 2) (- (* (pow ky 2) (+ (* 1/120 (/ 1 (sin kx))) (+ (* 1/2 (* (sin kx) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6)))))) (* 1/12 (/ 1 (pow (sin kx) 3)))))) (+ (* 1/6 (/ 1 (sin kx))) (* 1/2 (/ 1 (pow (sin kx) 3)))))) (/ 1 (sin kx))))
(* ky (+ (* (pow ky 2) (- (* (pow ky 2) (+ (* 1/120 (/ 1 (sin kx))) (+ (* 1/12 (/ 1 (pow (sin kx) 3))) (+ (* 1/2 (* (sin kx) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6)))))) (* (pow ky 2) (- (+ (* -1/2 (* (sin kx) (+ (* -1/2 (/ (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6)))) (pow (sin kx) 2))) (+ (* 2/45 (/ 1 (pow (sin kx) 4))) (+ (* 2/3 (/ 1 (pow (sin kx) 6))) (/ 1 (pow (sin kx) 8))))))) (* -1/12 (* (sin kx) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6))))))) (+ (* 1/5040 (/ 1 (sin kx))) (* 1/240 (/ 1 (pow (sin kx) 3)))))))))) (+ (* 1/6 (/ 1 (sin kx))) (* 1/2 (/ 1 (pow (sin kx) 3)))))) (/ 1 (sin kx))))
(* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
1
(+ 1 (* -1/2 (/ (pow kx 2) (pow (sin ky) 2))))
(+ 1 (* (pow kx 2) (- (* 1/2 (* (pow kx 2) (* (pow (sin ky) 2) (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (* 3/4 (/ 1 (pow (sin ky) 6))))))) (* 1/2 (/ 1 (pow (sin ky) 2))))))
(+ 1 (* (pow kx 2) (- (* (pow kx 2) (+ (* -1/2 (* (pow kx 2) (* (pow (sin ky) 2) (+ (* -1/2 (/ (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (* 3/4 (/ 1 (pow (sin ky) 6)))) (pow (sin ky) 2))) (+ (* 2/45 (/ 1 (pow (sin ky) 4))) (+ (* 2/3 (/ 1 (pow (sin ky) 6))) (/ 1 (pow (sin ky) 8)))))))) (* 1/2 (* (pow (sin ky) 2) (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (* 3/4 (/ 1 (pow (sin ky) 6)))))))) (* 1/2 (/ 1 (pow (sin ky) 2))))))
(* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
ky
(* ky (+ 1 (* -1/6 (pow ky 2))))
(* ky (+ 1 (* (pow ky 2) (- (* 1/120 (pow ky 2)) 1/6))))
(* ky (+ 1 (* (pow ky 2) (- (* (pow ky 2) (+ 1/120 (* -1/5040 (pow ky 2)))) 1/6))))
(sin ky)
(sin ky)
(sin ky)
(sin ky)
(sin ky)
(sin ky)
(sin ky)
(sin ky)
(/ (* ky (sin th)) (sin kx))
(* ky (+ (* (pow ky 2) (+ (* -1/2 (/ (sin th) (pow (sin kx) 3))) (* -1/6 (/ (sin th) (sin kx))))) (/ (sin th) (sin kx))))
(* ky (+ (* (pow ky 2) (+ (* -1/2 (/ (sin th) (pow (sin kx) 3))) (+ (* -1/6 (/ (sin th) (sin kx))) (* (pow ky 2) (+ (* 1/120 (/ (sin th) (sin kx))) (+ (* 1/12 (/ (sin th) (pow (sin kx) 3))) (* 1/2 (* (sin kx) (* (sin th) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6))))))))))))) (/ (sin th) (sin kx))))
(* ky (+ (* (pow ky 2) (+ (* -1/2 (/ (sin th) (pow (sin kx) 3))) (+ (* -1/6 (/ (sin th) (sin kx))) (* (pow ky 2) (+ (* 1/120 (/ (sin th) (sin kx))) (+ (* 1/12 (/ (sin th) (pow (sin kx) 3))) (+ (* 1/2 (* (sin kx) (* (sin th) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6))))))) (* (pow ky 2) (+ (* -1/2 (* (sin kx) (* (sin th) (+ (* -1/2 (/ (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6)))) (pow (sin kx) 2))) (+ (* 2/45 (/ 1 (pow (sin kx) 4))) (+ (* 2/3 (/ 1 (pow (sin kx) 6))) (/ 1 (pow (sin kx) 8)))))))) (+ (* -1/12 (* (sin kx) (* (sin th) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6))))))) (+ (* -1/240 (/ (sin th) (pow (sin kx) 3))) (* -1/5040 (/ (sin th) (sin kx)))))))))))))) (/ (sin th) (sin kx))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(sin th)
(+ (sin th) (* -1/2 (/ (* (pow kx 2) (sin th)) (pow (sin ky) 2))))
(+ (sin th) (* (pow kx 2) (+ (* -1/2 (/ (sin th) (pow (sin ky) 2))) (* 1/2 (* (pow kx 2) (* (pow (sin ky) 2) (* (sin th) (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (* 3/4 (/ 1 (pow (sin ky) 6)))))))))))
(+ (sin th) (* (pow kx 2) (+ (* -1/2 (/ (sin th) (pow (sin ky) 2))) (* (pow kx 2) (+ (* -1/2 (* (pow kx 2) (* (pow (sin ky) 2) (* (sin th) (+ (* -1/2 (/ (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (* 3/4 (/ 1 (pow (sin ky) 6)))) (pow (sin ky) 2))) (+ (* 2/45 (/ 1 (pow (sin ky) 4))) (+ (* 2/3 (/ 1 (pow (sin ky) 6))) (/ 1 (pow (sin ky) 8))))))))) (* 1/2 (* (pow (sin ky) 2) (* (sin th) (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (* 3/4 (/ 1 (pow (sin ky) 6))))))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (* th (sin ky)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* th (+ (* -1/6 (* (* (pow th 2) (sin ky)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))) (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))))
(* th (+ (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (* (pow th 2) (+ (* -1/6 (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))) (* 1/120 (* (* (pow th 2) (sin ky)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))))))))
(* th (+ (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (* (pow th 2) (+ (* -1/6 (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))) (* (pow th 2) (+ (* -1/5040 (* (* (pow th 2) (sin ky)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))) (* 1/120 (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
th
(* th (+ 1 (* -1/6 (pow th 2))))
(* th (+ 1 (* (pow th 2) (- (* 1/120 (pow th 2)) 1/6))))
(* th (+ 1 (* (pow th 2) (- (* (pow th 2) (+ 1/120 (* -1/5040 (pow th 2)))) 1/6))))
(sin th)
(sin th)
(sin th)
(sin th)
(sin th)
(sin th)
(sin th)
(sin th)
th
(* th (+ 1 (* -1/6 (pow th 2))))
(* th (+ 1 (* -1/6 (pow th 2))))
(* th (+ 1 (* -1/6 (pow th 2))))
(* -1/6 (pow th 3))
(* (pow th 3) (- (/ 1 (pow th 2)) 1/6))
(* (pow th 3) (- (/ 1 (pow th 2)) 1/6))
(* (pow th 3) (- (/ 1 (pow th 2)) 1/6))
(* -1/6 (pow th 3))
(* -1 (* (pow th 3) (- 1/6 (/ 1 (pow th 2)))))
(* -1 (* (pow th 3) (- 1/6 (/ 1 (pow th 2)))))
(* -1 (* (pow th 3) (- 1/6 (/ 1 (pow th 2)))))
(* -1/6 (pow th 2))
(* -1/6 (pow th 2))
(* -1/6 (pow th 2))
(* -1/6 (pow th 2))
(* -1/6 (pow th 2))
(* -1/6 (pow th 2))
(* -1/6 (pow th 2))
(* -1/6 (pow th 2))
(* -1/6 (pow th 2))
(* -1/6 (pow th 2))
(* -1/6 (pow th 2))
(* -1/6 (pow th 2))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky)))))))
(+ (* -1/2 (* (* (pow kx 2) (* (sin ky) (sin th))) (sqrt (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))))) (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky))))))))
(+ (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky))))))) (* (pow kx 2) (+ (* -1/2 (* (* (sin ky) (sin th)) (sqrt (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))))) (* 1/2 (* (* (pow kx 2) (* (sin ky) (* (sin th) (+ (* 1/3 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2))) (* 3/4 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))))))) (sqrt (+ 1/2 (* -1/2 (cos (* 2 ky))))))))))
(+ (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky))))))) (* (pow kx 2) (+ (* -1/2 (* (* (sin ky) (sin th)) (sqrt (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))))) (* (pow kx 2) (+ (* -1/2 (* (* (pow kx 2) (* (sin ky) (* (sin th) (+ (* -1/2 (/ (+ (* 1/3 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2))) (* 3/4 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3)))) (+ 1/2 (* -1/2 (cos (* 2 ky)))))) (+ (* 2/45 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2))) (+ (* 2/3 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))) (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 4)))))))) (sqrt (+ 1/2 (* -1/2 (cos (* 2 ky))))))) (* 1/2 (* (* (sin ky) (* (sin th) (+ (* 1/3 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2))) (* 3/4 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3)))))) (sqrt (+ 1/2 (* -1/2 (cos (* 2 ky))))))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx))))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx))))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx))))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx))))))))))
(* (* ky (* (sin th) (sqrt 2))) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))
(* ky (+ (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* -2 (* (/ (sin th) (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (* -1/6 (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))))))))
(* ky (+ (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* -2 (* (/ (sin th) (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (+ (* -1/6 (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (* (pow ky 2) (+ (* 1/120 (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (+ (* 1/3 (* (/ (sin th) (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (* 1/2 (* (/ (* (sin th) (- (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (* 4 (/ 1 (* (pow (sqrt 2) 2) (pow (- 1 (cos (* 2 kx))) 3)))))) (sqrt 2)) (sqrt (- 1 (cos (* 2 kx))))))))))))))
(* ky (+ (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* -2 (* (/ (sin th) (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (+ (* -1/6 (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (* (pow ky 2) (+ (* 1/120 (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (+ (* 1/3 (* (/ (sin th) (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (+ (* 1/2 (* (/ (* (sin th) (- (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (* 4 (/ 1 (* (pow (sqrt 2) 2) (pow (- 1 (cos (* 2 kx))) 3)))))) (sqrt 2)) (sqrt (- 1 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* -1/2 (* (/ (* (sin th) (+ (* -2 (/ (- (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (* 4 (/ 1 (* (pow (sqrt 2) 2) (pow (- 1 (cos (* 2 kx))) 3))))) (* (pow (sqrt 2) 2) (- 1 (cos (* 2 kx)))))) (+ (* 8/45 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (+ (* 2 (/ (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (- 1 (cos (* 2 kx))))) (* 8/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))))) (sqrt 2)) (sqrt (- 1 (cos (* 2 kx)))))) (+ (* -1/12 (* (/ (* (sin th) (- (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (* 4 (/ 1 (* (pow (sqrt 2) 2) (pow (- 1 (cos (* 2 kx))) 3)))))) (sqrt 2)) (sqrt (- 1 (cos (* 2 kx)))))) (+ (* -1/60 (* (/ (sin th) (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (* -1/5040 (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))))))))))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(* (* th (sin ky)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(* th (+ (* -1/6 (* (* (pow th 2) (sin ky)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))) (* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))))
(* th (+ (* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (* (pow th 2) (+ (* -1/6 (* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))) (* 1/120 (* (* (pow th 2) (sin ky)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))))))))
(* th (+ (* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (* (pow th 2) (+ (* -1/6 (* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))) (* (pow th 2) (+ (* -1/5040 (* (* (pow th 2) (sin ky)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))) (* 1/120 (* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(* (sin ky) (sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky)))))))
(+ (* -1/2 (* (* (pow kx 2) (sin ky)) (sqrt (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))))) (* (sin ky) (sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky))))))))
(+ (* (sin ky) (sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky))))))) (* (pow kx 2) (+ (* -1/2 (* (sin ky) (sqrt (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))))) (* 1/2 (* (* (pow kx 2) (* (sin ky) (+ (* 1/3 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2))) (* 3/4 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3)))))) (sqrt (+ 1/2 (* -1/2 (cos (* 2 ky))))))))))
(+ (* (sin ky) (sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky))))))) (* (pow kx 2) (+ (* -1/2 (* (sin ky) (sqrt (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))))) (* (pow kx 2) (+ (* -1/2 (* (* (pow kx 2) (* (sin ky) (+ (* -1/2 (/ (+ (* 1/3 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2))) (* 3/4 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3)))) (+ 1/2 (* -1/2 (cos (* 2 ky)))))) (+ (* 2/45 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2))) (+ (* 2/3 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))) (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 4))))))) (sqrt (+ 1/2 (* -1/2 (cos (* 2 ky))))))) (* 1/2 (* (* (sin ky) (+ (* 1/3 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2))) (* 3/4 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))))) (sqrt (+ 1/2 (* -1/2 (cos (* 2 ky))))))))))))
(* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx))))))))))
(* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx))))))))))
(* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx))))))))))
(* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx))))))))))
(* (* ky (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))
(* ky (+ (* (sqrt 2) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* -2 (* (/ 1 (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (* -1/6 (* (sqrt 2) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))))))))
(* ky (+ (* (sqrt 2) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* -2 (* (/ 1 (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (+ (* -1/6 (* (sqrt 2) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (* (pow ky 2) (+ (* 1/120 (* (sqrt 2) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (+ (* 1/3 (* (/ 1 (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (* 1/2 (* (/ (- (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (* 4 (/ 1 (* (pow (sqrt 2) 2) (pow (- 1 (cos (* 2 kx))) 3))))) (sqrt 2)) (sqrt (- 1 (cos (* 2 kx))))))))))))))
(* ky (+ (* (sqrt 2) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* -2 (* (/ 1 (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (+ (* -1/6 (* (sqrt 2) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (* (pow ky 2) (+ (* 1/120 (* (sqrt 2) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (+ (* 1/3 (* (/ 1 (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (+ (* 1/2 (* (/ (- (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (* 4 (/ 1 (* (pow (sqrt 2) 2) (pow (- 1 (cos (* 2 kx))) 3))))) (sqrt 2)) (sqrt (- 1 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* -1/2 (* (/ (+ (* -2 (/ (- (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (* 4 (/ 1 (* (pow (sqrt 2) 2) (pow (- 1 (cos (* 2 kx))) 3))))) (* (pow (sqrt 2) 2) (- 1 (cos (* 2 kx)))))) (+ (* 8/45 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (+ (* 2 (/ (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (- 1 (cos (* 2 kx))))) (* 8/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))))) (sqrt 2)) (sqrt (- 1 (cos (* 2 kx)))))) (+ (* -1/12 (* (/ (- (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (* 4 (/ 1 (* (pow (sqrt 2) 2) (pow (- 1 (cos (* 2 kx))) 3))))) (sqrt 2)) (sqrt (- 1 (cos (* 2 kx)))))) (+ (* -1/60 (* (/ 1 (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (* -1/5040 (* (sqrt 2) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))))))))))))))))
(* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(/ (* ky (* (sqrt 1/2) (sqrt 2))) kx)
(/ (+ (* 1/12 (/ (* (pow kx 2) (* ky (sqrt 2))) (sqrt 1/2))) (* ky (* (sqrt 1/2) (sqrt 2)))) kx)
(/ (+ (* ky (* (sqrt 1/2) (sqrt 2))) (* (pow kx 2) (+ (* 1/12 (/ (* ky (sqrt 2)) (sqrt 1/2))) (* 1/2 (/ (* (pow kx 2) (* ky (* (sqrt 2) (- 1/30 (* 1/144 (/ 1 (pow (sqrt 1/2) 2))))))) (sqrt 1/2)))))) kx)
(/ (+ (* ky (* (sqrt 1/2) (sqrt 2))) (* (pow kx 2) (+ (* 1/12 (/ (* ky (sqrt 2)) (sqrt 1/2))) (* (pow kx 2) (+ (* 1/2 (/ (* ky (* (sqrt 2) (- 1/30 (* 1/144 (/ 1 (pow (sqrt 1/2) 2)))))) (sqrt 1/2))) (* 1/2 (/ (* (pow kx 2) (* ky (* (sqrt 2) (- 1/189 (* 1/12 (/ (- 1/30 (* 1/144 (/ 1 (pow (sqrt 1/2) 2)))) (pow (sqrt 1/2) 2))))))) (sqrt 1/2)))))))) kx)
(* (* ky (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* -2 kx))))))
(* (* ky (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* -2 kx))))))
(* (* ky (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* -2 kx))))))
(* (* ky (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* -2 kx))))))
(* (* ky (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* -2 kx))))))
(* (* ky (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* -2 kx))))))
(* (* ky (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* -2 kx))))))
(* (* ky (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* -2 kx))))))
(* (* ky (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* -2 kx))))))
(* (* ky (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* -2 kx))))))
(* (* ky (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* -2 kx))))))
(* (* ky (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* -2 kx))))))
(* (* ky (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* -2 kx))))))
(* (* ky (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* -2 kx))))))
(* (* ky (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* -2 kx))))))
(* (* ky (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* -2 kx))))))
(* (* ky (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* -2 kx))))))
(* (* ky (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* -2 kx))))))
(* (* ky (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* -2 kx))))))
(* (* ky (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* -2 kx))))))
(/ (sqrt 1/2) kx)
(/ (+ (sqrt 1/2) (* 1/12 (/ (pow kx 2) (sqrt 1/2)))) kx)
(/ (+ (sqrt 1/2) (* (pow kx 2) (+ (* 1/2 (/ (* (pow kx 2) (- 1/30 (* 1/144 (/ 1 (pow (sqrt 1/2) 2))))) (sqrt 1/2))) (* 1/12 (/ 1 (sqrt 1/2)))))) kx)
(/ (+ (sqrt 1/2) (* (pow kx 2) (+ (* (pow kx 2) (+ (* 1/2 (/ (* (pow kx 2) (- 1/189 (* 1/12 (/ (- 1/30 (* 1/144 (/ 1 (pow (sqrt 1/2) 2)))) (pow (sqrt 1/2) 2))))) (sqrt 1/2))) (* 1/2 (/ (- 1/30 (* 1/144 (/ 1 (pow (sqrt 1/2) 2)))) (sqrt 1/2))))) (* 1/12 (/ 1 (sqrt 1/2)))))) kx)
(sqrt (/ 1 (- 1 (cos (* -2 kx)))))
(sqrt (/ 1 (- 1 (cos (* -2 kx)))))
(sqrt (/ 1 (- 1 (cos (* -2 kx)))))
(sqrt (/ 1 (- 1 (cos (* -2 kx)))))
(sqrt (/ 1 (- 1 (cos (* -2 kx)))))
(sqrt (/ 1 (- 1 (cos (* -2 kx)))))
(sqrt (/ 1 (- 1 (cos (* -2 kx)))))
(sqrt (/ 1 (- 1 (cos (* -2 kx)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky)))))))
(+ (* -1/2 (* (* (pow kx 2) (* (sin ky) (sin th))) (sqrt (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))))) (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky))))))))
(+ (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky))))))) (* (pow kx 2) (+ (* -1/2 (* (* (sin ky) (sin th)) (sqrt (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))))) (* 1/2 (* (* (pow kx 2) (* (sin ky) (* (sin th) (+ (* 1/3 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2))) (* 3/4 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))))))) (sqrt (+ 1/2 (* -1/2 (cos (* 2 ky))))))))))
(+ (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky))))))) (* (pow kx 2) (+ (* -1/2 (* (* (sin ky) (sin th)) (sqrt (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))))) (* (pow kx 2) (+ (* -1/2 (* (* (pow kx 2) (* (sin ky) (* (sin th) (+ (* -1/2 (/ (+ (* 1/3 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2))) (* 3/4 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3)))) (+ 1/2 (* -1/2 (cos (* 2 ky)))))) (+ (* 2/45 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2))) (+ (* 2/3 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))) (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 4)))))))) (sqrt (+ 1/2 (* -1/2 (cos (* 2 ky))))))) (* 1/2 (* (* (sin ky) (* (sin th) (+ (* 1/3 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2))) (* 3/4 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3)))))) (sqrt (+ 1/2 (* -1/2 (cos (* 2 ky))))))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx))))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx))))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx))))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx))))))))))
(* (* ky (* (sin th) (sqrt 2))) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))
(* ky (+ (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* -2 (* (/ (sin th) (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (* -1/6 (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))))))))
(* ky (+ (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* -2 (* (/ (sin th) (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (+ (* -1/6 (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (* (pow ky 2) (+ (* 1/120 (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (+ (* 1/3 (* (/ (sin th) (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (* 1/2 (* (/ (* (sin th) (- (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (* 4 (/ 1 (* (pow (sqrt 2) 2) (pow (- 1 (cos (* 2 kx))) 3)))))) (sqrt 2)) (sqrt (- 1 (cos (* 2 kx))))))))))))))
(* ky (+ (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* -2 (* (/ (sin th) (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (+ (* -1/6 (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (* (pow ky 2) (+ (* 1/120 (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (+ (* 1/3 (* (/ (sin th) (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (+ (* 1/2 (* (/ (* (sin th) (- (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (* 4 (/ 1 (* (pow (sqrt 2) 2) (pow (- 1 (cos (* 2 kx))) 3)))))) (sqrt 2)) (sqrt (- 1 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* -1/2 (* (/ (* (sin th) (+ (* -2 (/ (- (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (* 4 (/ 1 (* (pow (sqrt 2) 2) (pow (- 1 (cos (* 2 kx))) 3))))) (* (pow (sqrt 2) 2) (- 1 (cos (* 2 kx)))))) (+ (* 8/45 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (+ (* 2 (/ (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (- 1 (cos (* 2 kx))))) (* 8/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))))) (sqrt 2)) (sqrt (- 1 (cos (* 2 kx)))))) (+ (* -1/12 (* (/ (* (sin th) (- (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (* 4 (/ 1 (* (pow (sqrt 2) 2) (pow (- 1 (cos (* 2 kx))) 3)))))) (sqrt 2)) (sqrt (- 1 (cos (* 2 kx)))))) (+ (* -1/60 (* (/ (sin th) (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (* -1/5040 (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))))))))))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(* (* th (sin ky)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(* th (+ (* -1/6 (* (* (pow th 2) (sin ky)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))) (* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))))
(* th (+ (* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (* (pow th 2) (+ (* -1/6 (* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))) (* 1/120 (* (* (pow th 2) (sin ky)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))))))))
(* th (+ (* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (* (pow th 2) (+ (* -1/6 (* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))) (* (pow th 2) (+ (* -1/5040 (* (* (pow th 2) (sin ky)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))) (* 1/120 (* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(* (sin ky) (sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky)))))))
(+ (* -1/2 (* (* (pow kx 2) (sin ky)) (sqrt (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))))) (* (sin ky) (sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky))))))))
(+ (* (sin ky) (sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky))))))) (* (pow kx 2) (+ (* -1/2 (* (sin ky) (sqrt (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))))) (* 1/2 (* (* (pow kx 2) (* (sin ky) (+ (* 1/3 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2))) (* 3/4 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3)))))) (sqrt (+ 1/2 (* -1/2 (cos (* 2 ky))))))))))
(+ (* (sin ky) (sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky))))))) (* (pow kx 2) (+ (* -1/2 (* (sin ky) (sqrt (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))))) (* (pow kx 2) (+ (* -1/2 (* (* (pow kx 2) (* (sin ky) (+ (* -1/2 (/ (+ (* 1/3 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2))) (* 3/4 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3)))) (+ 1/2 (* -1/2 (cos (* 2 ky)))))) (+ (* 2/45 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2))) (+ (* 2/3 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))) (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 4))))))) (sqrt (+ 1/2 (* -1/2 (cos (* 2 ky))))))) (* 1/2 (* (* (sin ky) (+ (* 1/3 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2))) (* 3/4 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))))) (sqrt (+ 1/2 (* -1/2 (cos (* 2 ky))))))))))))
(* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx))))))))))
(* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx))))))))))
(* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx))))))))))
(* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx))))))))))
(* (* ky (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))
(* ky (+ (* (sqrt 2) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* -2 (* (/ 1 (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (* -1/6 (* (sqrt 2) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))))))))
(* ky (+ (* (sqrt 2) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* -2 (* (/ 1 (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (+ (* -1/6 (* (sqrt 2) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (* (pow ky 2) (+ (* 1/120 (* (sqrt 2) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (+ (* 1/3 (* (/ 1 (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (* 1/2 (* (/ (- (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (* 4 (/ 1 (* (pow (sqrt 2) 2) (pow (- 1 (cos (* 2 kx))) 3))))) (sqrt 2)) (sqrt (- 1 (cos (* 2 kx))))))))))))))
(* ky (+ (* (sqrt 2) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* -2 (* (/ 1 (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (+ (* -1/6 (* (sqrt 2) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (* (pow ky 2) (+ (* 1/120 (* (sqrt 2) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (+ (* 1/3 (* (/ 1 (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (+ (* 1/2 (* (/ (- (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (* 4 (/ 1 (* (pow (sqrt 2) 2) (pow (- 1 (cos (* 2 kx))) 3))))) (sqrt 2)) (sqrt (- 1 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* -1/2 (* (/ (+ (* -2 (/ (- (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (* 4 (/ 1 (* (pow (sqrt 2) 2) (pow (- 1 (cos (* 2 kx))) 3))))) (* (pow (sqrt 2) 2) (- 1 (cos (* 2 kx)))))) (+ (* 8/45 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (+ (* 2 (/ (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (- 1 (cos (* 2 kx))))) (* 8/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))))) (sqrt 2)) (sqrt (- 1 (cos (* 2 kx)))))) (+ (* -1/12 (* (/ (- (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (* 4 (/ 1 (* (pow (sqrt 2) 2) (pow (- 1 (cos (* 2 kx))) 3))))) (sqrt 2)) (sqrt (- 1 (cos (* 2 kx)))))) (+ (* -1/60 (* (/ 1 (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (* -1/5040 (* (sqrt 2) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))))))))))))))))
(* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky))))))
(+ (sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky)))))) (* -1/2 (* (pow kx 2) (sqrt (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))))))
(+ (sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky)))))) (* (pow kx 2) (+ (* -1/2 (sqrt (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3)))) (* 1/2 (* (* (pow kx 2) (+ (* 1/3 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2))) (* 3/4 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))))) (sqrt (+ 1/2 (* -1/2 (cos (* 2 ky))))))))))
(+ (sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky)))))) (* (pow kx 2) (+ (* -1/2 (sqrt (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3)))) (* (pow kx 2) (+ (* -1/2 (* (* (pow kx 2) (+ (* -1/2 (/ (+ (* 1/3 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2))) (* 3/4 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3)))) (+ 1/2 (* -1/2 (cos (* 2 ky)))))) (+ (* 2/45 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2))) (+ (* 2/3 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))) (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 4)))))) (sqrt (+ 1/2 (* -1/2 (cos (* 2 ky))))))) (* 1/2 (* (sqrt (+ 1/2 (* -1/2 (cos (* 2 ky))))) (+ (* 1/3 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2))) (* 3/4 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3)))))))))))
(sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))
(sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))
(sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))
(sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))
(sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx)))))))))
(sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx)))))))))
(sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx)))))))))
(sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx)))))))))
(* (sqrt 2) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))
(+ (* -2 (* (/ (pow ky 2) (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (* (sqrt 2) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))))
(+ (* (sqrt 2) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* -2 (* (/ 1 (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (* 1/2 (* (/ (* (pow ky 2) (- (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (* 4 (/ 1 (* (pow (sqrt 2) 2) (pow (- 1 (cos (* 2 kx))) 3)))))) (sqrt 2)) (sqrt (- 1 (cos (* 2 kx)))))))))
(+ (* (sqrt 2) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* -2 (* (/ 1 (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (* (pow ky 2) (+ (* -1/2 (* (/ (* (pow ky 2) (+ (* -2 (/ (- (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (* 4 (/ 1 (* (pow (sqrt 2) 2) (pow (- 1 (cos (* 2 kx))) 3))))) (* (pow (sqrt 2) 2) (- 1 (cos (* 2 kx)))))) (+ (* 8/45 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (+ (* 2 (/ (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (- 1 (cos (* 2 kx))))) (* 8/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))))) (sqrt 2)) (sqrt (- 1 (cos (* 2 kx)))))) (* 1/2 (* (/ (- (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (* 4 (/ 1 (* (pow (sqrt 2) 2) (pow (- 1 (cos (* 2 kx))) 3))))) (sqrt 2)) (sqrt (- 1 (cos (* 2 kx)))))))))))
(sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))
(sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))
(sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))
(sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))
(sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx))))))))
(sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx))))))))
(sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx))))))))
(sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx))))))))
(/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky)))))
(+ (* -1 (/ (pow kx 2) (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2))) (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky))))))
(+ (* (pow kx 2) (- (* (pow kx 2) (+ (* 1/3 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2))) (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3)))) (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2)))) (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky))))))
(+ (* (pow kx 2) (- (* (pow kx 2) (+ (* -1 (* (pow kx 2) (+ (* 2/45 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2))) (+ (* 2/3 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))) (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 4)))))) (+ (* 1/3 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2))) (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))))) (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2)))) (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky))))))
(/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))
(/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))
(/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))
(/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))
(/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx))))))))
(/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx))))))))
(/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx))))))))
(/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx))))))))
(/ 2 (- 1 (cos (* 2 kx))))
(+ (* -4 (/ (pow ky 2) (pow (- 1 (cos (* 2 kx))) 2))) (* 2 (/ 1 (- 1 (cos (* 2 kx))))))
(+ (* (pow ky 2) (- (* (pow ky 2) (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (* 4 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))))) (* 2 (/ 1 (- 1 (cos (* 2 kx))))))
(+ (* (pow ky 2) (- (* (pow ky 2) (+ (* -1 (* (pow ky 2) (+ (* 8/45 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (+ (* 2 (/ (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (- 1 (cos (* 2 kx))))) (* 8/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))))) (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))))) (* 4 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))))) (* 2 (/ 1 (- 1 (cos (* 2 kx))))))
(/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))
(/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))
(/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))
(/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))
(/ 1 (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx)))))))
(/ 1 (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx)))))))
(/ 1 (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx)))))))
(/ 1 (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx)))))))
(+ 1/2 (* -1/2 (cos (* 2 ky))))
(+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (pow kx 2)))
(+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* (pow kx 2) (+ 1 (* -1/3 (pow kx 2))))))
(+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* (pow kx 2) (+ 1 (* (pow kx 2) (- (* 2/45 (pow kx 2)) 1/3))))))
(+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))
(+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))
(+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))
(+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))
(+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx)))))))
(+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx)))))))
(+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx)))))))
(+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx)))))))
(* 1/2 (- 1 (cos (* 2 kx))))
(+ (* 1/2 (- 1 (cos (* 2 kx)))) (pow ky 2))
(+ (* 1/2 (- 1 (cos (* 2 kx)))) (* (pow ky 2) (+ 1 (* -1/3 (pow ky 2)))))
(+ (* 1/2 (- 1 (cos (* 2 kx)))) (* (pow ky 2) (+ 1 (* (pow ky 2) (- (* 2/45 (pow ky 2)) 1/3)))))
(+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))
(+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))
(+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))
(+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))
(+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx))))))
(+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx))))))
(+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx))))))
(+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx))))))
(pow ky 2)
(* (pow ky 2) (+ 1 (* -1/3 (pow ky 2))))
(* (pow ky 2) (+ 1 (* (pow ky 2) (- (* 2/45 (pow ky 2)) 1/3))))
(* (pow ky 2) (+ 1 (* (pow ky 2) (- (* (pow ky 2) (+ 2/45 (* -1/315 (pow ky 2)))) 1/3))))
(+ 1/2 (* -1/2 (cos (* 2 ky))))
(+ 1/2 (* -1/2 (cos (* 2 ky))))
(+ 1/2 (* -1/2 (cos (* 2 ky))))
(+ 1/2 (* -1/2 (cos (* 2 ky))))
(+ 1/2 (* -1/2 (cos (neg (* -2 ky)))))
(+ 1/2 (* -1/2 (cos (neg (* -2 ky)))))
(+ 1/2 (* -1/2 (cos (neg (* -2 ky)))))
(+ 1/2 (* -1/2 (cos (neg (* -2 ky)))))
(* (* ky (* (sin th) (sqrt 2))) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))
(* ky (+ (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* -2 (* (/ (sin th) (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (* -1/6 (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))))))))
(* ky (+ (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* -2 (* (/ (sin th) (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (+ (* -1/6 (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (* (pow ky 2) (+ (* 1/120 (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (+ (* 1/3 (* (/ (sin th) (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (* 1/2 (* (/ (* (sin th) (- (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (* 4 (/ 1 (* (pow (sqrt 2) 2) (pow (- 1 (cos (* 2 kx))) 3)))))) (sqrt 2)) (sqrt (- 1 (cos (* 2 kx))))))))))))))
(* ky (+ (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* -2 (* (/ (sin th) (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (+ (* -1/6 (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (* (pow ky 2) (+ (* 1/120 (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (+ (* 1/3 (* (/ (sin th) (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (+ (* 1/2 (* (/ (* (sin th) (- (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (* 4 (/ 1 (* (pow (sqrt 2) 2) (pow (- 1 (cos (* 2 kx))) 3)))))) (sqrt 2)) (sqrt (- 1 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* -1/2 (* (/ (* (sin th) (+ (* -2 (/ (- (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (* 4 (/ 1 (* (pow (sqrt 2) 2) (pow (- 1 (cos (* 2 kx))) 3))))) (* (pow (sqrt 2) 2) (- 1 (cos (* 2 kx)))))) (+ (* 8/45 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (+ (* 2 (/ (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (- 1 (cos (* 2 kx))))) (* 8/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))))) (sqrt 2)) (sqrt (- 1 (cos (* 2 kx)))))) (+ (* -1/12 (* (/ (* (sin th) (- (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (* 4 (/ 1 (* (pow (sqrt 2) 2) (pow (- 1 (cos (* 2 kx))) 3)))))) (sqrt 2)) (sqrt (- 1 (cos (* 2 kx)))))) (+ (* -1/60 (* (/ (sin th) (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (* -1/5040 (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))))))))))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(* (* th (sin ky)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(* th (+ (* -1/6 (* (* (pow th 2) (sin ky)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))) (* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))))
(* th (+ (* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (* (pow th 2) (+ (* -1/6 (* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))) (* 1/120 (* (* (pow th 2) (sin ky)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))))))))
(* th (+ (* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (* (pow th 2) (+ (* -1/6 (* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))) (* (pow th 2) (+ (* -1/5040 (* (* (pow th 2) (sin ky)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))) (* 1/120 (* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky)))))))
(+ (* -1/2 (* (* (pow kx 2) (* (sin ky) (sin th))) (sqrt (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))))) (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky))))))))
(+ (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky))))))) (* (pow kx 2) (+ (* -1/2 (* (* (sin ky) (sin th)) (sqrt (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))))) (* 1/2 (* (* (pow kx 2) (* (sin ky) (* (sin th) (+ (* 1/3 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2))) (* 3/4 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))))))) (sqrt (+ 1/2 (* -1/2 (cos (* 2 ky))))))))))
(+ (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky))))))) (* (pow kx 2) (+ (* -1/2 (* (* (sin ky) (sin th)) (sqrt (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))))) (* (pow kx 2) (+ (* -1/2 (* (* (pow kx 2) (* (sin ky) (* (sin th) (+ (* -1/2 (/ (+ (* 1/3 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2))) (* 3/4 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3)))) (+ 1/2 (* -1/2 (cos (* 2 ky)))))) (+ (* 2/45 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2))) (+ (* 2/3 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))) (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 4)))))))) (sqrt (+ 1/2 (* -1/2 (cos (* 2 ky))))))) (* 1/2 (* (* (sin ky) (* (sin th) (+ (* 1/3 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2))) (* 3/4 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3)))))) (sqrt (+ 1/2 (* -1/2 (cos (* 2 ky))))))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx))))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx))))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx))))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx))))))))))
(* ky (sin th))
(* ky (+ (sin th) (* -1/6 (* (pow ky 2) (sin th)))))
(* ky (+ (sin th) (* (pow ky 2) (+ (* -1/6 (sin th)) (* 1/120 (* (pow ky 2) (sin th)))))))
(* ky (+ (sin th) (* (pow ky 2) (+ (* -1/6 (sin th)) (* (pow ky 2) (+ (* -1/5040 (* (pow ky 2) (sin th))) (* 1/120 (sin th))))))))
(* (sin ky) (sin th))
(* (sin ky) (sin th))
(* (sin ky) (sin th))
(* (sin ky) (sin th))
(* (sin ky) (sin th))
(* (sin ky) (sin th))
(* (sin ky) (sin th))
(* (sin ky) (sin th))
(* th (sin ky))
(* th (+ (sin ky) (* -1/6 (* (pow th 2) (sin ky)))))
(* th (+ (sin ky) (* (pow th 2) (+ (* -1/6 (sin ky)) (* 1/120 (* (pow th 2) (sin ky)))))))
(* th (+ (sin ky) (* (pow th 2) (+ (* -1/6 (sin ky)) (* (pow th 2) (+ (* -1/5040 (* (pow th 2) (sin ky))) (* 1/120 (sin ky))))))))
(* (sin ky) (sin th))
(* (sin ky) (sin th))
(* (sin ky) (sin th))
(* (sin ky) (sin th))
(* (sin ky) (sin th))
(* (sin ky) (sin th))
(* (sin ky) (sin th))
(* (sin ky) (sin th))
(/ 1 kx)
(/ (+ 1 (* 1/6 (pow kx 2))) kx)
(/ (+ 1 (* (pow kx 2) (+ 1/6 (* 7/360 (pow kx 2))))) kx)
(/ (+ 1 (* (pow kx 2) (+ 1/6 (* (pow kx 2) (+ 7/360 (* 31/15120 (pow kx 2))))))) kx)
(/ 1 (sin kx))
(/ 1 (sin kx))
(/ 1 (sin kx))
(/ 1 (sin kx))
(/ 1 (sin kx))
(/ 1 (sin kx))
(/ 1 (sin kx))
(/ 1 (sin kx))
(* 2 (pow kx 2))
(* (pow kx 2) (+ 2 (* -2/3 (pow kx 2))))
(* (pow kx 2) (+ 2 (* (pow kx 2) (- (* 4/45 (pow kx 2)) 2/3))))
(* (pow kx 2) (+ 2 (* (pow kx 2) (- (* (pow kx 2) (+ 4/45 (* -2/315 (pow kx 2)))) 2/3))))
(- 1 (cos (* -2 kx)))
(- 1 (cos (* -2 kx)))
(- 1 (cos (* -2 kx)))
(- 1 (cos (* -2 kx)))
(- 1 (cos (* -2 kx)))
(- 1 (cos (* -2 kx)))
(- 1 (cos (* -2 kx)))
(- 1 (cos (* -2 kx)))
(* ky (sqrt 2))
(* ky (sqrt 2))
(* ky (sqrt 2))
(* ky (sqrt 2))
(* ky (sqrt 2))
(* ky (sqrt 2))
(* ky (sqrt 2))
(* ky (sqrt 2))
(* ky (sqrt 2))
(* ky (sqrt 2))
(* ky (sqrt 2))
(* ky (sqrt 2))
(pow ky 2)
(* (pow ky 2) (+ 1 (* -1/3 (pow ky 2))))
(* (pow ky 2) (+ 1 (* (pow ky 2) (- (* 2/45 (pow ky 2)) 1/3))))
(* (pow ky 2) (+ 1 (* (pow ky 2) (- (* (pow ky 2) (+ 2/45 (* -1/315 (pow ky 2)))) 1/3))))
(+ 1/2 (* -1/2 (cos (* 2 ky))))
(+ 1/2 (* -1/2 (cos (* 2 ky))))
(+ 1/2 (* -1/2 (cos (* 2 ky))))
(+ 1/2 (* -1/2 (cos (* 2 ky))))
(+ 1/2 (* -1/2 (cos (neg (* -2 ky)))))
(+ 1/2 (* -1/2 (cos (neg (* -2 ky)))))
(+ 1/2 (* -1/2 (cos (neg (* -2 ky)))))
(+ 1/2 (* -1/2 (cos (neg (* -2 ky)))))
(* 2 (pow kx 2))
(* (pow kx 2) (+ 2 (* -2/3 (pow kx 2))))
(* (pow kx 2) (+ 2 (* (pow kx 2) (- (* 4/45 (pow kx 2)) 2/3))))
(* (pow kx 2) (+ 2 (* (pow kx 2) (- (* (pow kx 2) (+ 4/45 (* -2/315 (pow kx 2)))) 2/3))))
(- 1 (cos (* 2 kx)))
(- 1 (cos (* 2 kx)))
(- 1 (cos (* 2 kx)))
(- 1 (cos (* 2 kx)))
(- 1 (cos (neg (* -2 kx))))
(- 1 (cos (neg (* -2 kx))))
(- 1 (cos (neg (* -2 kx))))
(- 1 (cos (neg (* -2 kx))))
(sqrt (+ 1/2 (* -1/2 (cos (* 2 ky)))))
(+ (sqrt (+ 1/2 (* -1/2 (cos (* 2 ky))))) (* 1/2 (* (pow kx 2) (sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky)))))))))
(+ (sqrt (+ 1/2 (* -1/2 (cos (* 2 ky))))) (* (pow kx 2) (+ (* -1/2 (* (* (pow kx 2) (+ 1/3 (* 1/4 (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky)))))))) (sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky)))))))) (* 1/2 (sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky))))))))))
(+ (sqrt (+ 1/2 (* -1/2 (cos (* 2 ky))))) (* (pow kx 2) (+ (* 1/2 (sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky))))))) (* (pow kx 2) (+ (* -1/2 (* (+ 1/3 (* 1/4 (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky))))))) (sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky)))))))) (* 1/2 (* (* (pow kx 2) (- 2/45 (* -1/2 (/ (+ 1/3 (* 1/4 (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky))))))) (+ 1/2 (* -1/2 (cos (* 2 ky)))))))) (sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky)))))))))))))
(sqrt (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))
(sqrt (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))
(sqrt (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))
(sqrt (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))
(sqrt (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx))))))))
(sqrt (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx))))))))
(sqrt (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx))))))))
(sqrt (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx))))))))
(* (sqrt 1/2) (sqrt (- 1 (cos (* 2 kx)))))
(+ (* 1/2 (* (/ (pow ky 2) (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (* (sqrt 1/2) (sqrt (- 1 (cos (* 2 kx))))))
(+ (* (sqrt 1/2) (sqrt (- 1 (cos (* 2 kx))))) (* (pow ky 2) (+ (* -1/2 (* (/ (* (pow ky 2) (+ 1/3 (* 1/4 (/ 1 (* (pow (sqrt 1/2) 2) (- 1 (cos (* 2 kx)))))))) (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (* 1/2 (* (/ 1 (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))))))
(+ (* (sqrt 1/2) (sqrt (- 1 (cos (* 2 kx))))) (* (pow ky 2) (+ (* 1/2 (* (/ 1 (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (* (pow ky 2) (+ (* -1/2 (* (/ (+ 1/3 (* 1/4 (/ 1 (* (pow (sqrt 1/2) 2) (- 1 (cos (* 2 kx))))))) (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (* 1/2 (* (/ (* (pow ky 2) (- 2/45 (* -1/2 (/ (+ 1/3 (* 1/4 (/ 1 (* (pow (sqrt 1/2) 2) (- 1 (cos (* 2 kx))))))) (* (pow (sqrt 1/2) 2) (- 1 (cos (* 2 kx)))))))) (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))))))))
(sqrt (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))
(sqrt (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))
(sqrt (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))
(sqrt (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))
(sqrt (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx)))))))
(sqrt (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx)))))))
(sqrt (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx)))))))
(sqrt (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx)))))))

Outputs
kx
(* kx (+ 1 (* -1/6 (pow kx 2))))
(fma.f64 kx (.f64 #s(literal -1/6 binary64) (.f64 kx kx)) kx)
(* kx (+ 1 (* (pow kx 2) (- (* 1/120 (pow kx 2)) 1/6))))
(.f64 kx (fma.f64 (.f64 kx kx) (fma.f64 (*.f64 kx kx) #s(literal 1/120 binary64) #s(literal -1/6 binary64)) #s(literal 1 binary64)))
(* kx (+ 1 (* (pow kx 2) (- (* (pow kx 2) (+ 1/120 (* -1/5040 (pow kx 2)))) 1/6))))
(fma.f64 kx (.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) #s(literal -1/6 binary64))) kx)
(sin kx)
(sin.f64 kx)
(sin kx)
(sin.f64 kx)
(sin kx)
(sin.f64 kx)
(sin kx)
(sin.f64 kx)
(sin kx)
(sin.f64 kx)
(sin kx)
(sin.f64 kx)
(sin kx)
(sin.f64 kx)
(sin kx)
(sin.f64 kx)
(/ (* ky (sin th)) (sin kx))
(/.f64 (*.f64 ky (sin.f64 th)) (sin.f64 kx))
(* ky (+ (* (pow ky 2) (+ (* -1/2 (/ (sin th) (pow (sin kx) 3))) (* -1/6 (/ (sin th) (sin kx))))) (/ (sin th) (sin kx))))
(.f64 ky (fma.f64 (.f64 ky ky) (*.f64 (/.f64 (sin.f64 th) (sin.f64 kx)) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))) #s(literal -1/6 binary64))) (/.f64 (sin.f64 th) (sin.f64 kx))))
(* ky (+ (* (pow ky 2) (+ (* -1/2 (/ (sin th) (pow (sin kx) 3))) (+ (* -1/6 (/ (sin th) (sin kx))) (* (pow ky 2) (+ (* 1/120 (/ (sin th) (sin kx))) (+ (* 1/12 (/ (sin th) (pow (sin kx) 3))) (* 1/2 (* (sin kx) (* (sin th) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6))))))))))))) (/ (sin th) (sin kx))))
(.f64 ky (fma.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 (sin.f64 kx) (sin.f64 th)) (+.f64 (/.f64 #s(literal 1/3 binary64) (pow.f64 (sin.f64 kx) #s(literal 4 binary64))) (/.f64 #s(literal 3/4 binary64) (pow.f64 (sin.f64 kx) #s(literal 6 binary64))))) (.f64 (/.f64 (sin.f64 th) (sin.f64 kx)) (+.f64 #s(literal 1/120 binary64) (/.f64 #s(literal 1/12 binary64) (pow.f64 (sin.f64 kx) #s(literal 2 binary64)))))) (*.f64 (/.f64 (sin.f64 th) (sin.f64 kx)) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))) #s(literal -1/6 binary64)))) (/.f64 (sin.f64 th) (sin.f64 kx))))
(* ky (+ (* (pow ky 2) (+ (* -1/2 (/ (sin th) (pow (sin kx) 3))) (+ (* -1/6 (/ (sin th) (sin kx))) (* (pow ky 2) (+ (* 1/120 (/ (sin th) (sin kx))) (+ (* 1/12 (/ (sin th) (pow (sin kx) 3))) (+ (* 1/2 (* (sin kx) (* (sin th) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6))))))) (* (pow ky 2) (+ (* -1/2 (* (sin kx) (* (sin th) (+ (* -1/2 (/ (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6)))) (pow (sin kx) 2))) (+ (* 2/45 (/ 1 (pow (sin kx) 4))) (+ (* 2/3 (/ 1 (pow (sin kx) 6))) (/ 1 (pow (sin kx) 8)))))))) (+ (* -1/12 (* (sin kx) (* (sin th) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6))))))) (+ (* -1/240 (/ (sin th) (pow (sin kx) 3))) (* -1/5040 (/ (sin th) (sin kx)))))))))))))) (/ (sin th) (sin kx))))
(.f64 ky (fma.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 (/.f64 (sin.f64 th) (sin.f64 kx)) (+.f64 #s(literal 1/120 binary64) (/.f64 #s(literal 1/12 binary64) (pow.f64 (sin.f64 kx) #s(literal 2 binary64)))) (fma.f64 (.f64 ky ky) (fma.f64 #s(literal -1/2 binary64) (.f64 (.f64 (sin.f64 kx) (sin.f64 th)) (+.f64 (/.f64 (+.f64 (/.f64 #s(literal -1/6 binary64) (pow.f64 (sin.f64 kx) #s(literal 4 binary64))) (/.f64 #s(literal -3/8 binary64) (pow.f64 (sin.f64 kx) #s(literal 6 binary64)))) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))) (+.f64 (/.f64 #s(literal 2/45 binary64) (pow.f64 (sin.f64 kx) #s(literal 4 binary64))) (+.f64 (/.f64 #s(literal 2/3 binary64) (pow.f64 (sin.f64 kx) #s(literal 6 binary64))) (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 kx) #s(literal 8 binary64))))))) (fma.f64 (/.f64 (sin.f64 th) (sin.f64 kx)) (+.f64 (/.f64 #s(literal -1/240 binary64) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))) #s(literal -1/5040 binary64)) (.f64 (.f64 (.f64 (sin.f64 kx) (sin.f64 th)) (+.f64 (/.f64 #s(literal 1/3 binary64) (pow.f64 (sin.f64 kx) #s(literal 4 binary64))) (/.f64 #s(literal 3/4 binary64) (pow.f64 (sin.f64 kx) #s(literal 6 binary64))))) #s(literal -1/12 binary64)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (sin.f64 kx) (sin.f64 th)) (+.f64 (/.f64 #s(literal 1/3 binary64) (pow.f64 (sin.f64 kx) #s(literal 4 binary64))) (/.f64 #s(literal 3/4 binary64) (pow.f64 (sin.f64 kx) #s(literal 6 binary64)))))))) (*.f64 (/.f64 (sin.f64 th) (sin.f64 kx)) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))) #s(literal -1/6 binary64)))) (/.f64 (sin.f64 th) (sin.f64 kx))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(sin th)
(sin.f64 th)
(+ (sin th) (* -1/2 (/ (* (pow kx 2) (sin th)) (pow (sin ky) 2))))
(fma.f64 #s(literal -1/2 binary64) (.f64 (.f64 kx kx) (/.f64 (sin.f64 th) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))) (sin.f64 th))
(+ (sin th) (* (pow kx 2) (+ (* -1/2 (/ (sin th) (pow (sin ky) 2))) (* 1/2 (* (pow kx 2) (* (pow (sin ky) 2) (* (sin th) (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (* 3/4 (/ 1 (pow (sin ky) 6)))))))))))
(fma.f64 (.f64 kx kx) (fma.f64 (.f64 #s(literal 1/2 binary64) (.f64 kx kx)) (.f64 (.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64)) (sin.f64 th)) (+.f64 (/.f64 #s(literal 1/3 binary64) (pow.f64 (sin.f64 ky) #s(literal 4 binary64))) (/.f64 #s(literal 3/4 binary64) (pow.f64 (sin.f64 ky) #s(literal 6 binary64))))) (/.f64 (.f64 #s(literal -1/2 binary64) (sin.f64 th)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))) (sin.f64 th))
(+ (sin th) (* (pow kx 2) (+ (* -1/2 (/ (sin th) (pow (sin ky) 2))) (* (pow kx 2) (+ (* -1/2 (* (pow kx 2) (* (pow (sin ky) 2) (* (sin th) (+ (* -1/2 (/ (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (* 3/4 (/ 1 (pow (sin ky) 6)))) (pow (sin ky) 2))) (+ (* 2/45 (/ 1 (pow (sin ky) 4))) (+ (* 2/3 (/ 1 (pow (sin ky) 6))) (/ 1 (pow (sin ky) 8))))))))) (* 1/2 (* (pow (sin ky) 2) (* (sin th) (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (* 3/4 (/ 1 (pow (sin ky) 6))))))))))))
(fma.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64)) (sin.f64 th)) (+.f64 (/.f64 #s(literal 1/3 binary64) (pow.f64 (sin.f64 ky) #s(literal 4 binary64))) (/.f64 #s(literal 3/4 binary64) (pow.f64 (sin.f64 ky) #s(literal 6 binary64))))) (.f64 (.f64 #s(literal -1/2 binary64) (.f64 kx kx)) (.f64 (.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64)) (sin.f64 th)) (+.f64 (/.f64 (+.f64 (/.f64 #s(literal -1/6 binary64) (pow.f64 (sin.f64 ky) #s(literal 4 binary64))) (/.f64 #s(literal -3/8 binary64) (pow.f64 (sin.f64 ky) #s(literal 6 binary64)))) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) (+.f64 (/.f64 #s(literal 2/45 binary64) (pow.f64 (sin.f64 ky) #s(literal 4 binary64))) (+.f64 (/.f64 #s(literal 2/3 binary64) (pow.f64 (sin.f64 ky) #s(literal 6 binary64))) (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 ky) #s(literal 8 binary64))))))))) (/.f64 (.f64 #s(literal -1/2 binary64) (sin.f64 th)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))) (sin.f64 th))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (* th (sin ky)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (.f64 th (sin.f64 ky)))
(* th (+ (* -1/6 (* (* (pow th 2) (sin ky)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))) (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))))
(.f64 th (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 th th) #s(literal 1 binary64)) (sin.f64 ky))))
(* th (+ (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (* (pow th 2) (+ (* -1/6 (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))) (* 1/120 (* (* (pow th 2) (sin ky)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))))))))
(.f64 th (fma.f64 (.f64 th th) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (.f64 (sin.f64 ky) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64)))) (.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))))
(* th (+ (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (* (pow th 2) (+ (* -1/6 (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))) (* (pow th 2) (+ (* -1/5040 (* (* (pow th 2) (sin ky)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))) (* 1/120 (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))))))))))
(.f64 th (fma.f64 (.f64 th th) (fma.f64 #s(literal -1/6 binary64) (.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))))) (.f64 (.f64 th th) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (.f64 (sin.f64 ky) (fma.f64 #s(literal -1/5040 binary64) (.f64 th th) #s(literal 1/120 binary64)))))) (*.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(/ ky (sin kx))
(/.f64 ky (sin.f64 kx))
(* ky (+ (* -1 (* (pow ky 2) (+ (* 1/6 (/ 1 (sin kx))) (* 1/2 (/ 1 (pow (sin kx) 3)))))) (/ 1 (sin kx))))
(fma.f64 ky (.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal -1/6 binary64) (sin.f64 kx)) (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))))) (/.f64 ky (sin.f64 kx)))
(* ky (+ (* (pow ky 2) (- (* (pow ky 2) (+ (* 1/120 (/ 1 (sin kx))) (+ (* 1/2 (* (sin kx) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6)))))) (* 1/12 (/ 1 (pow (sin kx) 3)))))) (+ (* 1/6 (/ 1 (sin kx))) (* 1/2 (/ 1 (pow (sin kx) 3)))))) (/ 1 (sin kx))))
(fma.f64 ky (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal 1/120 binary64) (sin.f64 kx)) (fma.f64 (.f64 #s(literal 1/2 binary64) (sin.f64 kx)) (+.f64 (/.f64 #s(literal 1/3 binary64) (pow.f64 (sin.f64 kx) #s(literal 4 binary64))) (/.f64 #s(literal 3/4 binary64) (pow.f64 (sin.f64 kx) #s(literal 6 binary64)))) (/.f64 #s(literal 1/12 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))))) (+.f64 (/.f64 #s(literal -1/6 binary64) (sin.f64 kx)) (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64)))))) (/.f64 ky (sin.f64 kx)))
(* ky (+ (* (pow ky 2) (- (* (pow ky 2) (+ (* 1/120 (/ 1 (sin kx))) (+ (* 1/12 (/ 1 (pow (sin kx) 3))) (+ (* 1/2 (* (sin kx) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6)))))) (* (pow ky 2) (- (+ (* -1/2 (* (sin kx) (+ (* -1/2 (/ (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6)))) (pow (sin kx) 2))) (+ (* 2/45 (/ 1 (pow (sin kx) 4))) (+ (* 2/3 (/ 1 (pow (sin kx) 6))) (/ 1 (pow (sin kx) 8))))))) (* -1/12 (* (sin kx) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6))))))) (+ (* 1/5040 (/ 1 (sin kx))) (* 1/240 (/ 1 (pow (sin kx) 3)))))))))) (+ (* 1/6 (/ 1 (sin kx))) (* 1/2 (/ 1 (pow (sin kx) 3)))))) (/ 1 (sin kx))))
(fma.f64 ky (.f64 (.f64 ky ky) (+.f64 (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal 1/120 binary64) (sin.f64 kx)) (fma.f64 (.f64 ky ky) (fma.f64 (.f64 #s(literal -1/2 binary64) (sin.f64 kx)) (+.f64 (/.f64 (+.f64 (/.f64 #s(literal -1/6 binary64) (pow.f64 (sin.f64 kx) #s(literal 4 binary64))) (/.f64 #s(literal -3/8 binary64) (pow.f64 (sin.f64 kx) #s(literal 6 binary64)))) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))) (+.f64 (/.f64 #s(literal 2/45 binary64) (pow.f64 (sin.f64 kx) #s(literal 4 binary64))) (+.f64 (/.f64 #s(literal 2/3 binary64) (pow.f64 (sin.f64 kx) #s(literal 6 binary64))) (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 kx) #s(literal 8 binary64)))))) (fma.f64 (.f64 #s(literal -1/12 binary64) (sin.f64 kx)) (+.f64 (/.f64 #s(literal 1/3 binary64) (pow.f64 (sin.f64 kx) #s(literal 4 binary64))) (/.f64 #s(literal 3/4 binary64) (pow.f64 (sin.f64 kx) #s(literal 6 binary64)))) (+.f64 (/.f64 #s(literal -1/5040 binary64) (sin.f64 kx)) (/.f64 #s(literal -1/240 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64)))))) (fma.f64 (*.f64 #s(literal 1/2 binary64) (sin.f64 kx)) (+.f64 (/.f64 #s(literal 1/3 binary64) (pow.f64 (sin.f64 kx) #s(literal 4 binary64))) (/.f64 #s(literal 3/4 binary64) (pow.f64 (sin.f64 kx) #s(literal 6 binary64)))) (/.f64 #s(literal 1/12 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64)))))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))))) (/.f64 ky (sin.f64 kx)))
(* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(*.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(*.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(*.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(*.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(*.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(*.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(*.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(*.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
1
#s(literal 1 binary64)
(+ 1 (* -1/2 (/ (pow kx 2) (pow (sin ky) 2))))
(fma.f64 (*.f64 kx kx) (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) #s(literal 1 binary64))
(+ 1 (* (pow kx 2) (- (* 1/2 (* (pow kx 2) (* (pow (sin ky) 2) (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (* 3/4 (/ 1 (pow (sin ky) 6))))))) (* 1/2 (/ 1 (pow (sin ky) 2))))))
(fma.f64 (.f64 kx kx) (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 (.f64 kx kx) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) (+.f64 (/.f64 #s(literal 1/3 binary64) (pow.f64 (sin.f64 ky) #s(literal 4 binary64))) (/.f64 #s(literal 3/4 binary64) (pow.f64 (sin.f64 ky) #s(literal 6 binary64))))) (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))) #s(literal 1 binary64))
(+ 1 (* (pow kx 2) (- (* (pow kx 2) (+ (* -1/2 (* (pow kx 2) (* (pow (sin ky) 2) (+ (* -1/2 (/ (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (* 3/4 (/ 1 (pow (sin ky) 6)))) (pow (sin ky) 2))) (+ (* 2/45 (/ 1 (pow (sin ky) 4))) (+ (* 2/3 (/ 1 (pow (sin ky) 6))) (/ 1 (pow (sin ky) 8)))))))) (* 1/2 (* (pow (sin ky) 2) (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (* 3/4 (/ 1 (pow (sin ky) 6)))))))) (* 1/2 (/ 1 (pow (sin ky) 2))))))
(fma.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) (fma.f64 #s(literal -1/2 binary64) (.f64 (.f64 (.f64 kx kx) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) (+.f64 (/.f64 (+.f64 (/.f64 #s(literal -1/6 binary64) (pow.f64 (sin.f64 ky) #s(literal 4 binary64))) (/.f64 #s(literal -3/8 binary64) (pow.f64 (sin.f64 ky) #s(literal 6 binary64)))) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) (+.f64 (/.f64 #s(literal 2/45 binary64) (pow.f64 (sin.f64 ky) #s(literal 4 binary64))) (+.f64 (/.f64 #s(literal 2/3 binary64) (pow.f64 (sin.f64 ky) #s(literal 6 binary64))) (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 ky) #s(literal 8 binary64))))))) (.f64 (*.f64 #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) (+.f64 (/.f64 #s(literal 1/3 binary64) (pow.f64 (sin.f64 ky) #s(literal 4 binary64))) (/.f64 #s(literal 3/4 binary64) (pow.f64 (sin.f64 ky) #s(literal 6 binary64)))))) (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))) #s(literal 1 binary64))
(* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(*.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(*.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(*.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(*.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(*.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(*.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(*.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(*.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
ky
(* ky (+ 1 (* -1/6 (pow ky 2))))
(fma.f64 ky (.f64 #s(literal -1/6 binary64) (.f64 ky ky)) ky)
(* ky (+ 1 (* (pow ky 2) (- (* 1/120 (pow ky 2)) 1/6))))
(.f64 ky (fma.f64 (.f64 ky ky) (fma.f64 #s(literal 1/120 binary64) (*.f64 ky ky) #s(literal -1/6 binary64)) #s(literal 1 binary64)))
(* ky (+ 1 (* (pow ky 2) (- (* (pow ky 2) (+ 1/120 (* -1/5040 (pow ky 2)))) 1/6))))
(fma.f64 ky (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 #s(literal -1/5040 binary64) (.f64 ky ky) #s(literal 1/120 binary64)) #s(literal -1/6 binary64))) ky)
(sin ky)
(sin.f64 ky)
(sin ky)
(sin.f64 ky)
(sin ky)
(sin.f64 ky)
(sin ky)
(sin.f64 ky)
(sin ky)
(sin.f64 ky)
(sin ky)
(sin.f64 ky)
(sin ky)
(sin.f64 ky)
(sin ky)
(sin.f64 ky)
(/ (* ky (sin th)) (sin kx))
(/.f64 (*.f64 ky (sin.f64 th)) (sin.f64 kx))
(* ky (+ (* (pow ky 2) (+ (* -1/2 (/ (sin th) (pow (sin kx) 3))) (* -1/6 (/ (sin th) (sin kx))))) (/ (sin th) (sin kx))))
(.f64 ky (fma.f64 (.f64 ky ky) (*.f64 (/.f64 (sin.f64 th) (sin.f64 kx)) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))) #s(literal -1/6 binary64))) (/.f64 (sin.f64 th) (sin.f64 kx))))
(* ky (+ (* (pow ky 2) (+ (* -1/2 (/ (sin th) (pow (sin kx) 3))) (+ (* -1/6 (/ (sin th) (sin kx))) (* (pow ky 2) (+ (* 1/120 (/ (sin th) (sin kx))) (+ (* 1/12 (/ (sin th) (pow (sin kx) 3))) (* 1/2 (* (sin kx) (* (sin th) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6))))))))))))) (/ (sin th) (sin kx))))
(.f64 ky (fma.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 (sin.f64 kx) (sin.f64 th)) (+.f64 (/.f64 #s(literal 1/3 binary64) (pow.f64 (sin.f64 kx) #s(literal 4 binary64))) (/.f64 #s(literal 3/4 binary64) (pow.f64 (sin.f64 kx) #s(literal 6 binary64))))) (.f64 (/.f64 (sin.f64 th) (sin.f64 kx)) (+.f64 #s(literal 1/120 binary64) (/.f64 #s(literal 1/12 binary64) (pow.f64 (sin.f64 kx) #s(literal 2 binary64)))))) (*.f64 (/.f64 (sin.f64 th) (sin.f64 kx)) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))) #s(literal -1/6 binary64)))) (/.f64 (sin.f64 th) (sin.f64 kx))))
(* ky (+ (* (pow ky 2) (+ (* -1/2 (/ (sin th) (pow (sin kx) 3))) (+ (* -1/6 (/ (sin th) (sin kx))) (* (pow ky 2) (+ (* 1/120 (/ (sin th) (sin kx))) (+ (* 1/12 (/ (sin th) (pow (sin kx) 3))) (+ (* 1/2 (* (sin kx) (* (sin th) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6))))))) (* (pow ky 2) (+ (* -1/2 (* (sin kx) (* (sin th) (+ (* -1/2 (/ (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6)))) (pow (sin kx) 2))) (+ (* 2/45 (/ 1 (pow (sin kx) 4))) (+ (* 2/3 (/ 1 (pow (sin kx) 6))) (/ 1 (pow (sin kx) 8)))))))) (+ (* -1/12 (* (sin kx) (* (sin th) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6))))))) (+ (* -1/240 (/ (sin th) (pow (sin kx) 3))) (* -1/5040 (/ (sin th) (sin kx)))))))))))))) (/ (sin th) (sin kx))))
(.f64 ky (fma.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 (/.f64 (sin.f64 th) (sin.f64 kx)) (+.f64 #s(literal 1/120 binary64) (/.f64 #s(literal 1/12 binary64) (pow.f64 (sin.f64 kx) #s(literal 2 binary64)))) (fma.f64 (.f64 ky ky) (fma.f64 #s(literal -1/2 binary64) (.f64 (.f64 (sin.f64 kx) (sin.f64 th)) (+.f64 (/.f64 (+.f64 (/.f64 #s(literal -1/6 binary64) (pow.f64 (sin.f64 kx) #s(literal 4 binary64))) (/.f64 #s(literal -3/8 binary64) (pow.f64 (sin.f64 kx) #s(literal 6 binary64)))) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))) (+.f64 (/.f64 #s(literal 2/45 binary64) (pow.f64 (sin.f64 kx) #s(literal 4 binary64))) (+.f64 (/.f64 #s(literal 2/3 binary64) (pow.f64 (sin.f64 kx) #s(literal 6 binary64))) (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 kx) #s(literal 8 binary64))))))) (fma.f64 (/.f64 (sin.f64 th) (sin.f64 kx)) (+.f64 (/.f64 #s(literal -1/240 binary64) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))) #s(literal -1/5040 binary64)) (.f64 (.f64 (.f64 (sin.f64 kx) (sin.f64 th)) (+.f64 (/.f64 #s(literal 1/3 binary64) (pow.f64 (sin.f64 kx) #s(literal 4 binary64))) (/.f64 #s(literal 3/4 binary64) (pow.f64 (sin.f64 kx) #s(literal 6 binary64))))) #s(literal -1/12 binary64)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (sin.f64 kx) (sin.f64 th)) (+.f64 (/.f64 #s(literal 1/3 binary64) (pow.f64 (sin.f64 kx) #s(literal 4 binary64))) (/.f64 #s(literal 3/4 binary64) (pow.f64 (sin.f64 kx) #s(literal 6 binary64)))))))) (*.f64 (/.f64 (sin.f64 th) (sin.f64 kx)) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))) #s(literal -1/6 binary64)))) (/.f64 (sin.f64 th) (sin.f64 kx))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(sin th)
(sin.f64 th)
(+ (sin th) (* -1/2 (/ (* (pow kx 2) (sin th)) (pow (sin ky) 2))))
(fma.f64 #s(literal -1/2 binary64) (.f64 (.f64 kx kx) (/.f64 (sin.f64 th) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))) (sin.f64 th))
(+ (sin th) (* (pow kx 2) (+ (* -1/2 (/ (sin th) (pow (sin ky) 2))) (* 1/2 (* (pow kx 2) (* (pow (sin ky) 2) (* (sin th) (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (* 3/4 (/ 1 (pow (sin ky) 6)))))))))))
(fma.f64 (.f64 kx kx) (fma.f64 (.f64 #s(literal 1/2 binary64) (.f64 kx kx)) (.f64 (.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64)) (sin.f64 th)) (+.f64 (/.f64 #s(literal 1/3 binary64) (pow.f64 (sin.f64 ky) #s(literal 4 binary64))) (/.f64 #s(literal 3/4 binary64) (pow.f64 (sin.f64 ky) #s(literal 6 binary64))))) (/.f64 (.f64 #s(literal -1/2 binary64) (sin.f64 th)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))) (sin.f64 th))
(+ (sin th) (* (pow kx 2) (+ (* -1/2 (/ (sin th) (pow (sin ky) 2))) (* (pow kx 2) (+ (* -1/2 (* (pow kx 2) (* (pow (sin ky) 2) (* (sin th) (+ (* -1/2 (/ (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (* 3/4 (/ 1 (pow (sin ky) 6)))) (pow (sin ky) 2))) (+ (* 2/45 (/ 1 (pow (sin ky) 4))) (+ (* 2/3 (/ 1 (pow (sin ky) 6))) (/ 1 (pow (sin ky) 8))))))))) (* 1/2 (* (pow (sin ky) 2) (* (sin th) (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (* 3/4 (/ 1 (pow (sin ky) 6))))))))))))
(fma.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64)) (sin.f64 th)) (+.f64 (/.f64 #s(literal 1/3 binary64) (pow.f64 (sin.f64 ky) #s(literal 4 binary64))) (/.f64 #s(literal 3/4 binary64) (pow.f64 (sin.f64 ky) #s(literal 6 binary64))))) (.f64 (.f64 #s(literal -1/2 binary64) (.f64 kx kx)) (.f64 (.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64)) (sin.f64 th)) (+.f64 (/.f64 (+.f64 (/.f64 #s(literal -1/6 binary64) (pow.f64 (sin.f64 ky) #s(literal 4 binary64))) (/.f64 #s(literal -3/8 binary64) (pow.f64 (sin.f64 ky) #s(literal 6 binary64)))) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) (+.f64 (/.f64 #s(literal 2/45 binary64) (pow.f64 (sin.f64 ky) #s(literal 4 binary64))) (+.f64 (/.f64 #s(literal 2/3 binary64) (pow.f64 (sin.f64 ky) #s(literal 6 binary64))) (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 ky) #s(literal 8 binary64))))))))) (/.f64 (.f64 #s(literal -1/2 binary64) (sin.f64 th)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))) (sin.f64 th))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (* th (sin ky)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (.f64 th (sin.f64 ky)))
(* th (+ (* -1/6 (* (* (pow th 2) (sin ky)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))) (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))))
(.f64 th (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 th th) #s(literal 1 binary64)) (sin.f64 ky))))
(* th (+ (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (* (pow th 2) (+ (* -1/6 (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))) (* 1/120 (* (* (pow th 2) (sin ky)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))))))))
(.f64 th (fma.f64 (.f64 th th) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (.f64 (sin.f64 ky) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64)))) (.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))))
(* th (+ (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (* (pow th 2) (+ (* -1/6 (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))) (* (pow th 2) (+ (* -1/5040 (* (* (pow th 2) (sin ky)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))) (* 1/120 (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))))))))))
(.f64 th (fma.f64 (.f64 th th) (fma.f64 #s(literal -1/6 binary64) (.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))))) (.f64 (.f64 th th) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (.f64 (sin.f64 ky) (fma.f64 #s(literal -1/5040 binary64) (.f64 th th) #s(literal 1/120 binary64)))))) (*.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
th
(* th (+ 1 (* -1/6 (pow th 2))))
(fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th)
(* th (+ 1 (* (pow th 2) (- (* 1/120 (pow th 2)) 1/6))))
(.f64 th (fma.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (*.f64 th th) #s(literal -1/6 binary64)) #s(literal 1 binary64)))
(* th (+ 1 (* (pow th 2) (- (* (pow th 2) (+ 1/120 (* -1/5040 (pow th 2)))) 1/6))))
(.f64 th (fma.f64 (.f64 th th) (fma.f64 (.f64 th th) (fma.f64 #s(literal -1/5040 binary64) (.f64 th th) #s(literal 1/120 binary64)) #s(literal -1/6 binary64)) #s(literal 1 binary64)))
(sin th)
(sin.f64 th)
(sin th)
(sin.f64 th)
(sin th)
(sin.f64 th)
(sin th)
(sin.f64 th)
(sin th)
(sin.f64 th)
(sin th)
(sin.f64 th)
(sin th)
(sin.f64 th)
(sin th)
(sin.f64 th)
th
(* th (+ 1 (* -1/6 (pow th 2))))
(fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th)
(* th (+ 1 (* -1/6 (pow th 2))))
(fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th)
(* th (+ 1 (* -1/6 (pow th 2))))
(fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th)
(* -1/6 (pow th 3))
(.f64 #s(literal -1/6 binary64) (.f64 th (*.f64 th th)))
(* (pow th 3) (- (/ 1 (pow th 2)) 1/6))
(.f64 (.f64 th (.f64 th th)) (+.f64 #s(literal -1/6 binary64) (/.f64 #s(literal 1 binary64) (.f64 th th))))
(* (pow th 3) (- (/ 1 (pow th 2)) 1/6))
(.f64 (.f64 th (.f64 th th)) (+.f64 #s(literal -1/6 binary64) (/.f64 #s(literal 1 binary64) (.f64 th th))))
(* (pow th 3) (- (/ 1 (pow th 2)) 1/6))
(.f64 (.f64 th (.f64 th th)) (+.f64 #s(literal -1/6 binary64) (/.f64 #s(literal 1 binary64) (.f64 th th))))
(* -1/6 (pow th 3))
(.f64 #s(literal -1/6 binary64) (.f64 th (*.f64 th th)))
(* -1 (* (pow th 3) (- 1/6 (/ 1 (pow th 2)))))
(.f64 (.f64 th (.f64 th th)) (neg.f64 (+.f64 #s(literal 1/6 binary64) (/.f64 #s(literal -1 binary64) (.f64 th th)))))
(* -1 (* (pow th 3) (- 1/6 (/ 1 (pow th 2)))))
(.f64 (.f64 th (.f64 th th)) (neg.f64 (+.f64 #s(literal 1/6 binary64) (/.f64 #s(literal -1 binary64) (.f64 th th)))))
(* -1 (* (pow th 3) (- 1/6 (/ 1 (pow th 2)))))
(.f64 (.f64 th (.f64 th th)) (neg.f64 (+.f64 #s(literal 1/6 binary64) (/.f64 #s(literal -1 binary64) (.f64 th th)))))
(* -1/6 (pow th 2))
(.f64 #s(literal -1/6 binary64) (.f64 th th))
(* -1/6 (pow th 2))
(.f64 #s(literal -1/6 binary64) (.f64 th th))
(* -1/6 (pow th 2))
(.f64 #s(literal -1/6 binary64) (.f64 th th))
(* -1/6 (pow th 2))
(.f64 #s(literal -1/6 binary64) (.f64 th th))
(* -1/6 (pow th 2))
(.f64 #s(literal -1/6 binary64) (.f64 th th))
(* -1/6 (pow th 2))
(.f64 #s(literal -1/6 binary64) (.f64 th th))
(* -1/6 (pow th 2))
(.f64 #s(literal -1/6 binary64) (.f64 th th))
(* -1/6 (pow th 2))
(.f64 #s(literal -1/6 binary64) (.f64 th th))
(* -1/6 (pow th 2))
(.f64 #s(literal -1/6 binary64) (.f64 th th))
(* -1/6 (pow th 2))
(.f64 #s(literal -1/6 binary64) (.f64 th th))
(* -1/6 (pow th 2))
(.f64 #s(literal -1/6 binary64) (.f64 th th))
(* -1/6 (pow th 2))
(.f64 #s(literal -1/6 binary64) (.f64 th th))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky)))))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))
(+ (* -1/2 (* (* (pow kx 2) (* (sin ky) (sin th))) (sqrt (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))))) (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky))))))))
(fma.f64 #s(literal -1/2 binary64) (.f64 (.f64 (.f64 kx kx) (.f64 (sin.f64 th) (sin.f64 ky))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #s(literal 3 binary64))))) (.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(+ (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky))))))) (* (pow kx 2) (+ (* -1/2 (* (* (sin ky) (sin th)) (sqrt (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))))) (* 1/2 (* (* (pow kx 2) (* (sin ky) (* (sin th) (+ (* 1/3 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2))) (* 3/4 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))))))) (sqrt (+ 1/2 (* -1/2 (cos (* 2 ky))))))))))
(fma.f64 (.f64 kx kx) (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 kx kx) (.f64 (.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (+.f64 (/.f64 #s(literal 1/3 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #s(literal 2 binary64))) (/.f64 #s(literal 3/4 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #s(literal 3 binary64))))) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) (.f64 (.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 th) (sin.f64 ky))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #s(literal 3 binary64)))))) (.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(+ (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky))))))) (* (pow kx 2) (+ (* -1/2 (* (* (sin ky) (sin th)) (sqrt (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))))) (* (pow kx 2) (+ (* -1/2 (* (* (pow kx 2) (* (sin ky) (* (sin th) (+ (* -1/2 (/ (+ (* 1/3 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2))) (* 3/4 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3)))) (+ 1/2 (* -1/2 (cos (* 2 ky)))))) (+ (* 2/45 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2))) (+ (* 2/3 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))) (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 4)))))))) (sqrt (+ 1/2 (* -1/2 (cos (* 2 ky))))))) (* 1/2 (* (* (sin ky) (* (sin th) (+ (* 1/3 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2))) (* 3/4 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3)))))) (sqrt (+ 1/2 (* -1/2 (cos (* 2 ky))))))))))))
(fma.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) (.f64 (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))) (fma.f64 #s(literal -1/2 binary64) (.f64 (.f64 kx kx) (.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (+.f64 (/.f64 (+.f64 (/.f64 #s(literal -1/6 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #s(literal 2 binary64))) (/.f64 #s(literal -3/8 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #s(literal 3 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))) (+.f64 (/.f64 #s(literal 2/45 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #s(literal 2 binary64))) (+.f64 (/.f64 #s(literal 2/3 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #s(literal 4 binary64)))))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (+.f64 (/.f64 #s(literal 1/3 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #s(literal 2 binary64))) (/.f64 #s(literal 3/4 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #s(literal 3 binary64)))))))) (.f64 (.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 th) (sin.f64 ky))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #s(literal 3 binary64)))))) (.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx))))))))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx))))))))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx))))))))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx))))))))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (* ky (* (sin th) (sqrt 2))) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))
(.f64 (.f64 (.f64 ky (sin.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))))
(* ky (+ (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* -2 (* (/ (sin th) (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (* -1/6 (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))))))))
(.f64 ky (fma.f64 (.f64 ky ky) (fma.f64 (/.f64 (.f64 #s(literal -2 binary64) (sin.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64)))) (.f64 (.f64 #s(literal -1/6 binary64) (.f64 (sin.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))))) (.f64 (.f64 (sin.f64 th) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64)))))))))
(* ky (+ (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* -2 (* (/ (sin th) (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (+ (* -1/6 (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (* (pow ky 2) (+ (* 1/120 (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (+ (* 1/3 (* (/ (sin th) (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (* 1/2 (* (/ (* (sin th) (- (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (* 4 (/ 1 (* (pow (sqrt 2) 2) (pow (- 1 (cos (* 2 kx))) 3)))))) (sqrt 2)) (sqrt (- 1 (cos (* 2 kx))))))))))))))
(.f64 ky (fma.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 #s(literal 1/120 binary64) (.f64 (.f64 (sin.f64 th) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (sin.f64 th) (+.f64 (/.f64 #s(literal 4/3 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 2 binary64))) (+.f64 (/.f64 #s(literal 8 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64))) (/.f64 #s(literal -2 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (sqrt.f64 #s(literal 2 binary64))) (.f64 (/.f64 (.f64 #s(literal 1/3 binary64) (sin.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64))))))) (fma.f64 (/.f64 (.f64 #s(literal -2 binary64) (sin.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64)))) (.f64 (.f64 #s(literal -1/6 binary64) (.f64 (sin.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))))) (.f64 (.f64 (sin.f64 th) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))))))
(* ky (+ (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* -2 (* (/ (sin th) (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (+ (* -1/6 (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (* (pow ky 2) (+ (* 1/120 (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (+ (* 1/3 (* (/ (sin th) (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (+ (* 1/2 (* (/ (* (sin th) (- (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (* 4 (/ 1 (* (pow (sqrt 2) 2) (pow (- 1 (cos (* 2 kx))) 3)))))) (sqrt 2)) (sqrt (- 1 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* -1/2 (* (/ (* (sin th) (+ (* -2 (/ (- (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (* 4 (/ 1 (* (pow (sqrt 2) 2) (pow (- 1 (cos (* 2 kx))) 3))))) (* (pow (sqrt 2) 2) (- 1 (cos (* 2 kx)))))) (+ (* 8/45 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (+ (* 2 (/ (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (- 1 (cos (* 2 kx))))) (* 8/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))))) (sqrt 2)) (sqrt (- 1 (cos (* 2 kx)))))) (+ (* -1/12 (* (/ (* (sin th) (- (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (* 4 (/ 1 (* (pow (sqrt 2) 2) (pow (- 1 (cos (* 2 kx))) 3)))))) (sqrt 2)) (sqrt (- 1 (cos (* 2 kx)))))) (+ (* -1/60 (* (/ (sin th) (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (* -1/5040 (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))))))))))))))))
(.f64 ky (fma.f64 (sin.f64 th) (.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))) (.f64 (.f64 ky ky) (fma.f64 #s(literal -1/6 binary64) (.f64 (.f64 (sin.f64 th) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))) (fma.f64 (.f64 ky ky) (fma.f64 #s(literal 1/120 binary64) (.f64 (.f64 (sin.f64 th) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))) (fma.f64 (.f64 ky ky) (fma.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (sin.f64 th) (+.f64 (neg.f64 (/.f64 (+.f64 (/.f64 #s(literal 4/3 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 2 binary64))) (+.f64 (/.f64 #s(literal 8 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64))) (/.f64 #s(literal -2 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64))))) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (+.f64 (/.f64 (+.f64 (/.f64 #s(literal 16 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64))) (/.f64 #s(literal 8/3 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 2 binary64)))) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))) (+.f64 (/.f64 #s(literal 8/3 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64))) (/.f64 #s(literal 8/45 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 2 binary64))))))) (sqrt.f64 #s(literal 2 binary64))) (/.f64 (.f64 #s(literal -1/12 binary64) (.f64 (sin.f64 th) (+.f64 (/.f64 #s(literal 4/3 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 2 binary64))) (+.f64 (/.f64 #s(literal 8 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64))) (/.f64 #s(literal -2 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64))))))) (sqrt.f64 #s(literal 2 binary64)))) (fma.f64 (.f64 (/.f64 (sin.f64 th) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64))))) #s(literal -1/60 binary64) (.f64 (.f64 #s(literal -1/5040 binary64) (.f64 (sin.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (sin.f64 th) (+.f64 (/.f64 #s(literal 4/3 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 2 binary64))) (+.f64 (/.f64 #s(literal 8 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64))) (/.f64 #s(literal -2 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (sqrt.f64 #s(literal 2 binary64))) (.f64 (/.f64 (.f64 #s(literal 1/3 binary64) (sin.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64)))))))) (.f64 (/.f64 (.f64 #s(literal -2 binary64) (sin.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64))))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (* th (sin ky)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(.f64 (.f64 th (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* th (+ (* -1/6 (* (* (pow th 2) (sin ky)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))) (* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))))
(.f64 th (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) (.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 th th) #s(literal 1 binary64)) (sin.f64 ky))))
(* th (+ (* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (* (pow th 2) (+ (* -1/6 (* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))) (* 1/120 (* (* (pow th 2) (sin ky)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))))))))
(.f64 th (fma.f64 (.f64 th th) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) (.f64 (sin.f64 ky) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64)))) (.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))))
(* th (+ (* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (* (pow th 2) (+ (* -1/6 (* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))) (* (pow th 2) (+ (* -1/5040 (* (* (pow th 2) (sin ky)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))) (* 1/120 (* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))))))))))
(.f64 th (fma.f64 (.f64 th th) (fma.f64 (.f64 th th) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) (.f64 (sin.f64 ky) (fma.f64 #s(literal -1/5040 binary64) (.f64 th th) #s(literal 1/120 binary64)))) (.f64 (.f64 #s(literal -1/6 binary64) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))) (.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (sin ky) (sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky)))))))
(.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))
(+ (* -1/2 (* (* (pow kx 2) (sin ky)) (sqrt (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))))) (* (sin ky) (sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky))))))))
(fma.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))) (.f64 (.f64 #s(literal -1/2 binary64) (.f64 (.f64 kx kx) (sin.f64 ky))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #s(literal 3 binary64))))))
(+ (* (sin ky) (sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky))))))) (* (pow kx 2) (+ (* -1/2 (* (sin ky) (sqrt (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))))) (* 1/2 (* (* (pow kx 2) (* (sin ky) (+ (* 1/3 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2))) (* 3/4 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3)))))) (sqrt (+ 1/2 (* -1/2 (cos (* 2 ky))))))))))
(fma.f64 (.f64 kx kx) (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 kx kx) (.f64 (sin.f64 ky) (.f64 (+.f64 (/.f64 #s(literal 1/3 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #s(literal 2 binary64))) (/.f64 #s(literal 3/4 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #s(literal 3 binary64)))) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))) (.f64 (.f64 #s(literal -1/2 binary64) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #s(literal 3 binary64)))))) (.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(+ (* (sin ky) (sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky))))))) (* (pow kx 2) (+ (* -1/2 (* (sin ky) (sqrt (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))))) (* (pow kx 2) (+ (* -1/2 (* (* (pow kx 2) (* (sin ky) (+ (* -1/2 (/ (+ (* 1/3 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2))) (* 3/4 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3)))) (+ 1/2 (* -1/2 (cos (* 2 ky)))))) (+ (* 2/45 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2))) (+ (* 2/3 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))) (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 4))))))) (sqrt (+ 1/2 (* -1/2 (cos (* 2 ky))))))) (* 1/2 (* (* (sin ky) (+ (* 1/3 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2))) (* 3/4 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))))) (sqrt (+ 1/2 (* -1/2 (cos (* 2 ky))))))))))))
(fma.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) (.f64 (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))) (fma.f64 #s(literal -1/2 binary64) (.f64 (.f64 (.f64 kx kx) (sin.f64 ky)) (+.f64 (/.f64 (+.f64 (/.f64 #s(literal -1/6 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #s(literal 2 binary64))) (/.f64 #s(literal -3/8 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #s(literal 3 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))) (+.f64 (/.f64 #s(literal 2/45 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #s(literal 2 binary64))) (+.f64 (/.f64 #s(literal 2/3 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #s(literal 4 binary64))))))) (.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 ky) (+.f64 (/.f64 #s(literal 1/3 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #s(literal 2 binary64))) (/.f64 #s(literal 3/4 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #s(literal 3 binary64)))))))) (.f64 (.f64 #s(literal -1/2 binary64) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #s(literal 3 binary64)))))) (.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx))))))))))
(.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx))))))))))
(.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx))))))))))
(.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx))))))))))
(.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (* ky (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))
(.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))
(* ky (+ (* (sqrt 2) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* -2 (* (/ 1 (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (* -1/6 (* (sqrt 2) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))))))))
(.f64 ky (fma.f64 (.f64 ky ky) (fma.f64 #s(literal -1/6 binary64) (.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))) (.f64 (/.f64 #s(literal -2 binary64) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64)))))) (.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))))))
(* ky (+ (* (sqrt 2) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* -2 (* (/ 1 (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (+ (* -1/6 (* (sqrt 2) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (* (pow ky 2) (+ (* 1/120 (* (sqrt 2) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (+ (* 1/3 (* (/ 1 (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (* 1/2 (* (/ (- (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (* 4 (/ 1 (* (pow (sqrt 2) 2) (pow (- 1 (cos (* 2 kx))) 3))))) (sqrt 2)) (sqrt (- 1 (cos (* 2 kx))))))))))))))
(.f64 ky (fma.f64 (.f64 ky ky) (fma.f64 #s(literal -1/6 binary64) (.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))) (fma.f64 (.f64 ky ky) (fma.f64 #s(literal 1/2 binary64) (.f64 (+.f64 (/.f64 #s(literal 4/3 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 2 binary64))) (+.f64 (/.f64 #s(literal 8 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64))) (/.f64 #s(literal -2 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64))))) (/.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))) (sqrt.f64 #s(literal 2 binary64)))) (fma.f64 #s(literal 1/3 binary64) (/.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64)))) (sqrt.f64 #s(literal 2 binary64))) (.f64 (.f64 #s(literal 1/120 binary64) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))))) (.f64 (/.f64 #s(literal -2 binary64) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64))))))) (.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))))))
(* ky (+ (* (sqrt 2) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* -2 (* (/ 1 (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (+ (* -1/6 (* (sqrt 2) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (* (pow ky 2) (+ (* 1/120 (* (sqrt 2) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (+ (* 1/3 (* (/ 1 (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (+ (* 1/2 (* (/ (- (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (* 4 (/ 1 (* (pow (sqrt 2) 2) (pow (- 1 (cos (* 2 kx))) 3))))) (sqrt 2)) (sqrt (- 1 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* -1/2 (* (/ (+ (* -2 (/ (- (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (* 4 (/ 1 (* (pow (sqrt 2) 2) (pow (- 1 (cos (* 2 kx))) 3))))) (* (pow (sqrt 2) 2) (- 1 (cos (* 2 kx)))))) (+ (* 8/45 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (+ (* 2 (/ (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (- 1 (cos (* 2 kx))))) (* 8/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))))) (sqrt 2)) (sqrt (- 1 (cos (* 2 kx)))))) (+ (* -1/12 (* (/ (- (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (* 4 (/ 1 (* (pow (sqrt 2) 2) (pow (- 1 (cos (* 2 kx))) 3))))) (sqrt 2)) (sqrt (- 1 (cos (* 2 kx)))))) (+ (* -1/60 (* (/ 1 (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (* -1/5040 (* (sqrt 2) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))))))))))))))))
(.f64 ky (fma.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 #s(literal 1/120 binary64) (.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))) (fma.f64 (.f64 ky ky) (fma.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 (neg.f64 (/.f64 (+.f64 (/.f64 #s(literal 4/3 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 2 binary64))) (+.f64 (/.f64 #s(literal 8 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64))) (/.f64 #s(literal -2 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64))))) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (+.f64 (/.f64 (+.f64 (/.f64 #s(literal 16 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64))) (/.f64 #s(literal 8/3 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 2 binary64)))) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))) (+.f64 (/.f64 #s(literal 8/3 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64))) (/.f64 #s(literal 8/45 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 2 binary64)))))) (sqrt.f64 #s(literal 2 binary64))) (/.f64 (.f64 #s(literal -1/12 binary64) (+.f64 (/.f64 #s(literal 4/3 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 2 binary64))) (+.f64 (/.f64 #s(literal 8 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64))) (/.f64 #s(literal -2 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64)))))) (sqrt.f64 #s(literal 2 binary64)))) (fma.f64 (/.f64 #s(literal -1/60 binary64) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64)))) (.f64 (.f64 #s(literal -1/5040 binary64) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))))) (fma.f64 #s(literal 1/2 binary64) (.f64 (+.f64 (/.f64 #s(literal 4/3 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 2 binary64))) (+.f64 (/.f64 #s(literal 8 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64))) (/.f64 #s(literal -2 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64))))) (/.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))) (sqrt.f64 #s(literal 2 binary64)))) (.f64 (/.f64 #s(literal 1/3 binary64) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64)))))))) (fma.f64 #s(literal -1/6 binary64) (.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))) (.f64 (/.f64 #s(literal -2 binary64) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64))))))) (.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64)))))))))
(* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(/ (* ky (* (sqrt 1/2) (sqrt 2))) kx)
(.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(literal 1/2 binary64))) (/.f64 ky kx))
(/ (+ (* 1/12 (/ (* (pow kx 2) (* ky (sqrt 2))) (sqrt 1/2))) (* ky (* (sqrt 1/2) (sqrt 2)))) kx)
(/.f64 (fma.f64 #s(literal 1/12 binary64) (.f64 (.f64 ky (sqrt.f64 #s(literal 2 binary64))) (/.f64 (.f64 kx kx) (sqrt.f64 #s(literal 1/2 binary64)))) (.f64 (*.f64 ky (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 2 binary64)))) kx)
(/ (+ (* ky (* (sqrt 1/2) (sqrt 2))) (* (pow kx 2) (+ (* 1/12 (/ (* ky (sqrt 2)) (sqrt 1/2))) (* 1/2 (/ (* (pow kx 2) (* ky (* (sqrt 2) (- 1/30 (* 1/144 (/ 1 (pow (sqrt 1/2) 2))))))) (sqrt 1/2)))))) kx)
(/.f64 (fma.f64 (.f64 kx kx) (fma.f64 #s(literal 1/12 binary64) (/.f64 (.f64 ky (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 kx kx) (.f64 (.f64 ky (sqrt.f64 #s(literal 2 binary64))) #s(literal 7/360 binary64))) (sqrt.f64 #s(literal 1/2 binary64))))) (.f64 (*.f64 ky (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 2 binary64)))) kx)
(/ (+ (* ky (* (sqrt 1/2) (sqrt 2))) (* (pow kx 2) (+ (* 1/12 (/ (* ky (sqrt 2)) (sqrt 1/2))) (* (pow kx 2) (+ (* 1/2 (/ (* ky (* (sqrt 2) (- 1/30 (* 1/144 (/ 1 (pow (sqrt 1/2) 2)))))) (sqrt 1/2))) (* 1/2 (/ (* (pow kx 2) (* ky (* (sqrt 2) (- 1/189 (* 1/12 (/ (- 1/30 (* 1/144 (/ 1 (pow (sqrt 1/2) 2)))) (pow (sqrt 1/2) 2))))))) (sqrt 1/2)))))))) kx)
(/.f64 (fma.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) (.f64 #s(literal 1/2 binary64) (fma.f64 (.f64 kx kx) (/.f64 (.f64 ky (.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 31/15120 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) (/.f64 (.f64 (.f64 ky (sqrt.f64 #s(literal 2 binary64))) #s(literal 7/360 binary64)) (sqrt.f64 #s(literal 1/2 binary64))))) (/.f64 (.f64 #s(literal 1/12 binary64) (.f64 ky (sqrt.f64 #s(literal 2 binary64)))) (sqrt.f64 #s(literal 1/2 binary64)))) (.f64 (.f64 ky (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 2 binary64)))) kx)
(* (* ky (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* -2 kx))))))
(.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))
(* (* ky (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* -2 kx))))))
(.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))
(* (* ky (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* -2 kx))))))
(.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))
(* (* ky (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* -2 kx))))))
(.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))
(* (* ky (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* -2 kx))))))
(.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))
(* (* ky (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* -2 kx))))))
(.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))
(* (* ky (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* -2 kx))))))
(.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))
(* (* ky (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* -2 kx))))))
(.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))
(* (* ky (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* -2 kx))))))
(.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))
(* (* ky (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* -2 kx))))))
(.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))
(* (* ky (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* -2 kx))))))
(.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))
(* (* ky (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* -2 kx))))))
(.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))
(* (* ky (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* -2 kx))))))
(.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))
(* (* ky (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* -2 kx))))))
(.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))
(* (* ky (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* -2 kx))))))
(.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))
(* (* ky (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* -2 kx))))))
(.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))
(* (* ky (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* -2 kx))))))
(.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))
(* (* ky (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* -2 kx))))))
(.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))
(* (* ky (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* -2 kx))))))
(.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))
(* (* ky (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* -2 kx))))))
(.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))
(/ (sqrt 1/2) kx)
(/.f64 (sqrt.f64 #s(literal 1/2 binary64)) kx)
(/ (+ (sqrt 1/2) (* 1/12 (/ (pow kx 2) (sqrt 1/2)))) kx)
(/.f64 (fma.f64 (*.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)
(/ (+ (sqrt 1/2) (* (pow kx 2) (+ (* 1/2 (/ (* (pow kx 2) (- 1/30 (* 1/144 (/ 1 (pow (sqrt 1/2) 2))))) (sqrt 1/2))) (* 1/12 (/ 1 (sqrt 1/2)))))) kx)
(/.f64 (fma.f64 (.f64 kx kx) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (*.f64 kx kx) #s(literal 7/360 binary64)) (sqrt.f64 #s(literal 1/2 binary64))) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64)))) (sqrt.f64 #s(literal 1/2 binary64))) kx)
(/ (+ (sqrt 1/2) (* (pow kx 2) (+ (* (pow kx 2) (+ (* 1/2 (/ (* (pow kx 2) (- 1/189 (* 1/12 (/ (- 1/30 (* 1/144 (/ 1 (pow (sqrt 1/2) 2)))) (pow (sqrt 1/2) 2))))) (sqrt 1/2))) (* 1/2 (/ (- 1/30 (* 1/144 (/ 1 (pow (sqrt 1/2) 2)))) (sqrt 1/2))))) (* 1/12 (/ 1 (sqrt 1/2)))))) kx)
(/.f64 (fma.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 kx kx) #s(literal 31/15120 binary64)) (sqrt.f64 #s(literal 1/2 binary64))) (/.f64 #s(literal 7/720 binary64) (sqrt.f64 #s(literal 1/2 binary64)))) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64)))) (sqrt.f64 #s(literal 1/2 binary64))) kx)
(sqrt (/ 1 (- 1 (cos (* -2 kx)))))
(sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64))))))
(sqrt (/ 1 (- 1 (cos (* -2 kx)))))
(sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64))))))
(sqrt (/ 1 (- 1 (cos (* -2 kx)))))
(sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64))))))
(sqrt (/ 1 (- 1 (cos (* -2 kx)))))
(sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64))))))
(sqrt (/ 1 (- 1 (cos (* -2 kx)))))
(sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64))))))
(sqrt (/ 1 (- 1 (cos (* -2 kx)))))
(sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64))))))
(sqrt (/ 1 (- 1 (cos (* -2 kx)))))
(sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64))))))
(sqrt (/ 1 (- 1 (cos (* -2 kx)))))
(sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky)))))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))
(+ (* -1/2 (* (* (pow kx 2) (* (sin ky) (sin th))) (sqrt (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))))) (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky))))))))
(fma.f64 #s(literal -1/2 binary64) (.f64 (.f64 (.f64 kx kx) (.f64 (sin.f64 th) (sin.f64 ky))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #s(literal 3 binary64))))) (.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(+ (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky))))))) (* (pow kx 2) (+ (* -1/2 (* (* (sin ky) (sin th)) (sqrt (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))))) (* 1/2 (* (* (pow kx 2) (* (sin ky) (* (sin th) (+ (* 1/3 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2))) (* 3/4 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))))))) (sqrt (+ 1/2 (* -1/2 (cos (* 2 ky))))))))))
(fma.f64 (.f64 kx kx) (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 kx kx) (.f64 (.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (+.f64 (/.f64 #s(literal 1/3 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #s(literal 2 binary64))) (/.f64 #s(literal 3/4 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #s(literal 3 binary64))))) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) (.f64 (.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 th) (sin.f64 ky))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #s(literal 3 binary64)))))) (.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(+ (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky))))))) (* (pow kx 2) (+ (* -1/2 (* (* (sin ky) (sin th)) (sqrt (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))))) (* (pow kx 2) (+ (* -1/2 (* (* (pow kx 2) (* (sin ky) (* (sin th) (+ (* -1/2 (/ (+ (* 1/3 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2))) (* 3/4 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3)))) (+ 1/2 (* -1/2 (cos (* 2 ky)))))) (+ (* 2/45 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2))) (+ (* 2/3 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))) (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 4)))))))) (sqrt (+ 1/2 (* -1/2 (cos (* 2 ky))))))) (* 1/2 (* (* (sin ky) (* (sin th) (+ (* 1/3 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2))) (* 3/4 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3)))))) (sqrt (+ 1/2 (* -1/2 (cos (* 2 ky))))))))))))
(fma.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) (.f64 (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))) (fma.f64 #s(literal -1/2 binary64) (.f64 (.f64 kx kx) (.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (+.f64 (/.f64 (+.f64 (/.f64 #s(literal -1/6 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #s(literal 2 binary64))) (/.f64 #s(literal -3/8 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #s(literal 3 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))) (+.f64 (/.f64 #s(literal 2/45 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #s(literal 2 binary64))) (+.f64 (/.f64 #s(literal 2/3 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #s(literal 4 binary64)))))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (+.f64 (/.f64 #s(literal 1/3 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #s(literal 2 binary64))) (/.f64 #s(literal 3/4 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #s(literal 3 binary64)))))))) (.f64 (.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 th) (sin.f64 ky))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #s(literal 3 binary64)))))) (.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx))))))))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx))))))))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx))))))))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx))))))))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (* ky (* (sin th) (sqrt 2))) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))
(.f64 (.f64 (.f64 ky (sin.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))))
(* ky (+ (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* -2 (* (/ (sin th) (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (* -1/6 (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))))))))
(.f64 ky (fma.f64 (.f64 ky ky) (fma.f64 (/.f64 (.f64 #s(literal -2 binary64) (sin.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64)))) (.f64 (.f64 #s(literal -1/6 binary64) (.f64 (sin.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))))) (.f64 (.f64 (sin.f64 th) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64)))))))))
(* ky (+ (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* -2 (* (/ (sin th) (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (+ (* -1/6 (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (* (pow ky 2) (+ (* 1/120 (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (+ (* 1/3 (* (/ (sin th) (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (* 1/2 (* (/ (* (sin th) (- (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (* 4 (/ 1 (* (pow (sqrt 2) 2) (pow (- 1 (cos (* 2 kx))) 3)))))) (sqrt 2)) (sqrt (- 1 (cos (* 2 kx))))))))))))))
(.f64 ky (fma.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 #s(literal 1/120 binary64) (.f64 (.f64 (sin.f64 th) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (sin.f64 th) (+.f64 (/.f64 #s(literal 4/3 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 2 binary64))) (+.f64 (/.f64 #s(literal 8 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64))) (/.f64 #s(literal -2 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (sqrt.f64 #s(literal 2 binary64))) (.f64 (/.f64 (.f64 #s(literal 1/3 binary64) (sin.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64))))))) (fma.f64 (/.f64 (.f64 #s(literal -2 binary64) (sin.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64)))) (.f64 (.f64 #s(literal -1/6 binary64) (.f64 (sin.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))))) (.f64 (.f64 (sin.f64 th) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))))))
(* ky (+ (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* -2 (* (/ (sin th) (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (+ (* -1/6 (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (* (pow ky 2) (+ (* 1/120 (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (+ (* 1/3 (* (/ (sin th) (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (+ (* 1/2 (* (/ (* (sin th) (- (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (* 4 (/ 1 (* (pow (sqrt 2) 2) (pow (- 1 (cos (* 2 kx))) 3)))))) (sqrt 2)) (sqrt (- 1 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* -1/2 (* (/ (* (sin th) (+ (* -2 (/ (- (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (* 4 (/ 1 (* (pow (sqrt 2) 2) (pow (- 1 (cos (* 2 kx))) 3))))) (* (pow (sqrt 2) 2) (- 1 (cos (* 2 kx)))))) (+ (* 8/45 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (+ (* 2 (/ (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (- 1 (cos (* 2 kx))))) (* 8/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))))) (sqrt 2)) (sqrt (- 1 (cos (* 2 kx)))))) (+ (* -1/12 (* (/ (* (sin th) (- (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (* 4 (/ 1 (* (pow (sqrt 2) 2) (pow (- 1 (cos (* 2 kx))) 3)))))) (sqrt 2)) (sqrt (- 1 (cos (* 2 kx)))))) (+ (* -1/60 (* (/ (sin th) (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (* -1/5040 (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))))))))))))))))
(.f64 ky (fma.f64 (sin.f64 th) (.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))) (.f64 (.f64 ky ky) (fma.f64 #s(literal -1/6 binary64) (.f64 (.f64 (sin.f64 th) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))) (fma.f64 (.f64 ky ky) (fma.f64 #s(literal 1/120 binary64) (.f64 (.f64 (sin.f64 th) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))) (fma.f64 (.f64 ky ky) (fma.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (sin.f64 th) (+.f64 (neg.f64 (/.f64 (+.f64 (/.f64 #s(literal 4/3 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 2 binary64))) (+.f64 (/.f64 #s(literal 8 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64))) (/.f64 #s(literal -2 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64))))) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (+.f64 (/.f64 (+.f64 (/.f64 #s(literal 16 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64))) (/.f64 #s(literal 8/3 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 2 binary64)))) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))) (+.f64 (/.f64 #s(literal 8/3 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64))) (/.f64 #s(literal 8/45 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 2 binary64))))))) (sqrt.f64 #s(literal 2 binary64))) (/.f64 (.f64 #s(literal -1/12 binary64) (.f64 (sin.f64 th) (+.f64 (/.f64 #s(literal 4/3 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 2 binary64))) (+.f64 (/.f64 #s(literal 8 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64))) (/.f64 #s(literal -2 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64))))))) (sqrt.f64 #s(literal 2 binary64)))) (fma.f64 (.f64 (/.f64 (sin.f64 th) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64))))) #s(literal -1/60 binary64) (.f64 (.f64 #s(literal -1/5040 binary64) (.f64 (sin.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (sin.f64 th) (+.f64 (/.f64 #s(literal 4/3 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 2 binary64))) (+.f64 (/.f64 #s(literal 8 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64))) (/.f64 #s(literal -2 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (sqrt.f64 #s(literal 2 binary64))) (.f64 (/.f64 (.f64 #s(literal 1/3 binary64) (sin.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64)))))))) (.f64 (/.f64 (.f64 #s(literal -2 binary64) (sin.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64))))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (* th (sin ky)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(.f64 (.f64 th (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* th (+ (* -1/6 (* (* (pow th 2) (sin ky)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))) (* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))))
(.f64 th (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) (.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 th th) #s(literal 1 binary64)) (sin.f64 ky))))
(* th (+ (* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (* (pow th 2) (+ (* -1/6 (* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))) (* 1/120 (* (* (pow th 2) (sin ky)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))))))))
(.f64 th (fma.f64 (.f64 th th) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) (.f64 (sin.f64 ky) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64)))) (.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))))
(* th (+ (* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (* (pow th 2) (+ (* -1/6 (* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))) (* (pow th 2) (+ (* -1/5040 (* (* (pow th 2) (sin ky)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))) (* 1/120 (* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))))))))))
(.f64 th (fma.f64 (.f64 th th) (fma.f64 (.f64 th th) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) (.f64 (sin.f64 ky) (fma.f64 #s(literal -1/5040 binary64) (.f64 th th) #s(literal 1/120 binary64)))) (.f64 (.f64 #s(literal -1/6 binary64) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))) (.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (sin ky) (sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky)))))))
(.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))
(+ (* -1/2 (* (* (pow kx 2) (sin ky)) (sqrt (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))))) (* (sin ky) (sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky))))))))
(fma.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))) (.f64 (.f64 #s(literal -1/2 binary64) (.f64 (.f64 kx kx) (sin.f64 ky))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #s(literal 3 binary64))))))
(+ (* (sin ky) (sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky))))))) (* (pow kx 2) (+ (* -1/2 (* (sin ky) (sqrt (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))))) (* 1/2 (* (* (pow kx 2) (* (sin ky) (+ (* 1/3 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2))) (* 3/4 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3)))))) (sqrt (+ 1/2 (* -1/2 (cos (* 2 ky))))))))))
(fma.f64 (.f64 kx kx) (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 kx kx) (.f64 (sin.f64 ky) (.f64 (+.f64 (/.f64 #s(literal 1/3 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #s(literal 2 binary64))) (/.f64 #s(literal 3/4 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #s(literal 3 binary64)))) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))) (.f64 (.f64 #s(literal -1/2 binary64) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #s(literal 3 binary64)))))) (.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(+ (* (sin ky) (sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky))))))) (* (pow kx 2) (+ (* -1/2 (* (sin ky) (sqrt (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))))) (* (pow kx 2) (+ (* -1/2 (* (* (pow kx 2) (* (sin ky) (+ (* -1/2 (/ (+ (* 1/3 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2))) (* 3/4 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3)))) (+ 1/2 (* -1/2 (cos (* 2 ky)))))) (+ (* 2/45 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2))) (+ (* 2/3 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))) (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 4))))))) (sqrt (+ 1/2 (* -1/2 (cos (* 2 ky))))))) (* 1/2 (* (* (sin ky) (+ (* 1/3 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2))) (* 3/4 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))))) (sqrt (+ 1/2 (* -1/2 (cos (* 2 ky))))))))))))
(fma.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) (.f64 (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))) (fma.f64 #s(literal -1/2 binary64) (.f64 (.f64 (.f64 kx kx) (sin.f64 ky)) (+.f64 (/.f64 (+.f64 (/.f64 #s(literal -1/6 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #s(literal 2 binary64))) (/.f64 #s(literal -3/8 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #s(literal 3 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))) (+.f64 (/.f64 #s(literal 2/45 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #s(literal 2 binary64))) (+.f64 (/.f64 #s(literal 2/3 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #s(literal 4 binary64))))))) (.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 ky) (+.f64 (/.f64 #s(literal 1/3 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #s(literal 2 binary64))) (/.f64 #s(literal 3/4 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #s(literal 3 binary64)))))))) (.f64 (.f64 #s(literal -1/2 binary64) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #s(literal 3 binary64)))))) (.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx))))))))))
(.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx))))))))))
(.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx))))))))))
(.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx))))))))))
(.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (* ky (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))
(.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))
(* ky (+ (* (sqrt 2) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* -2 (* (/ 1 (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (* -1/6 (* (sqrt 2) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))))))))
(.f64 ky (fma.f64 (.f64 ky ky) (fma.f64 #s(literal -1/6 binary64) (.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))) (.f64 (/.f64 #s(literal -2 binary64) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64)))))) (.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))))))
(* ky (+ (* (sqrt 2) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* -2 (* (/ 1 (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (+ (* -1/6 (* (sqrt 2) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (* (pow ky 2) (+ (* 1/120 (* (sqrt 2) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (+ (* 1/3 (* (/ 1 (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (* 1/2 (* (/ (- (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (* 4 (/ 1 (* (pow (sqrt 2) 2) (pow (- 1 (cos (* 2 kx))) 3))))) (sqrt 2)) (sqrt (- 1 (cos (* 2 kx))))))))))))))
(.f64 ky (fma.f64 (.f64 ky ky) (fma.f64 #s(literal -1/6 binary64) (.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))) (fma.f64 (.f64 ky ky) (fma.f64 #s(literal 1/2 binary64) (.f64 (+.f64 (/.f64 #s(literal 4/3 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 2 binary64))) (+.f64 (/.f64 #s(literal 8 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64))) (/.f64 #s(literal -2 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64))))) (/.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))) (sqrt.f64 #s(literal 2 binary64)))) (fma.f64 #s(literal 1/3 binary64) (/.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64)))) (sqrt.f64 #s(literal 2 binary64))) (.f64 (.f64 #s(literal 1/120 binary64) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))))) (.f64 (/.f64 #s(literal -2 binary64) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64))))))) (.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))))))
(* ky (+ (* (sqrt 2) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* -2 (* (/ 1 (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (+ (* -1/6 (* (sqrt 2) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (* (pow ky 2) (+ (* 1/120 (* (sqrt 2) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (+ (* 1/3 (* (/ 1 (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (+ (* 1/2 (* (/ (- (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (* 4 (/ 1 (* (pow (sqrt 2) 2) (pow (- 1 (cos (* 2 kx))) 3))))) (sqrt 2)) (sqrt (- 1 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* -1/2 (* (/ (+ (* -2 (/ (- (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (* 4 (/ 1 (* (pow (sqrt 2) 2) (pow (- 1 (cos (* 2 kx))) 3))))) (* (pow (sqrt 2) 2) (- 1 (cos (* 2 kx)))))) (+ (* 8/45 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (+ (* 2 (/ (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (- 1 (cos (* 2 kx))))) (* 8/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))))) (sqrt 2)) (sqrt (- 1 (cos (* 2 kx)))))) (+ (* -1/12 (* (/ (- (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (* 4 (/ 1 (* (pow (sqrt 2) 2) (pow (- 1 (cos (* 2 kx))) 3))))) (sqrt 2)) (sqrt (- 1 (cos (* 2 kx)))))) (+ (* -1/60 (* (/ 1 (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (* -1/5040 (* (sqrt 2) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))))))))))))))))
(.f64 ky (fma.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 #s(literal 1/120 binary64) (.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))) (fma.f64 (.f64 ky ky) (fma.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 (neg.f64 (/.f64 (+.f64 (/.f64 #s(literal 4/3 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 2 binary64))) (+.f64 (/.f64 #s(literal 8 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64))) (/.f64 #s(literal -2 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64))))) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (+.f64 (/.f64 (+.f64 (/.f64 #s(literal 16 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64))) (/.f64 #s(literal 8/3 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 2 binary64)))) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))) (+.f64 (/.f64 #s(literal 8/3 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64))) (/.f64 #s(literal 8/45 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 2 binary64)))))) (sqrt.f64 #s(literal 2 binary64))) (/.f64 (.f64 #s(literal -1/12 binary64) (+.f64 (/.f64 #s(literal 4/3 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 2 binary64))) (+.f64 (/.f64 #s(literal 8 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64))) (/.f64 #s(literal -2 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64)))))) (sqrt.f64 #s(literal 2 binary64)))) (fma.f64 (/.f64 #s(literal -1/60 binary64) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64)))) (.f64 (.f64 #s(literal -1/5040 binary64) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))))) (fma.f64 #s(literal 1/2 binary64) (.f64 (+.f64 (/.f64 #s(literal 4/3 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 2 binary64))) (+.f64 (/.f64 #s(literal 8 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64))) (/.f64 #s(literal -2 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64))))) (/.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))) (sqrt.f64 #s(literal 2 binary64)))) (.f64 (/.f64 #s(literal 1/3 binary64) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64)))))))) (fma.f64 #s(literal -1/6 binary64) (.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))) (.f64 (/.f64 #s(literal -2 binary64) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64))))))) (.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64)))))))))
(* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky))))))
(sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))
(+ (sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky)))))) (* -1/2 (* (pow kx 2) (sqrt (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))))))
(fma.f64 #s(literal -1/2 binary64) (.f64 (.f64 kx kx) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #s(literal 3 binary64))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))
(+ (sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky)))))) (* (pow kx 2) (+ (* -1/2 (sqrt (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3)))) (* 1/2 (* (* (pow kx 2) (+ (* 1/3 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2))) (* 3/4 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))))) (sqrt (+ 1/2 (* -1/2 (cos (* 2 ky))))))))))
(fma.f64 (.f64 kx kx) (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 kx kx) (.f64 (+.f64 (/.f64 #s(literal 1/3 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #s(literal 2 binary64))) (/.f64 #s(literal 3/4 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #s(literal 3 binary64)))) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) (.f64 #s(literal -1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #s(literal 3 binary64)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))
(+ (sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky)))))) (* (pow kx 2) (+ (* -1/2 (sqrt (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3)))) (* (pow kx 2) (+ (* -1/2 (* (* (pow kx 2) (+ (* -1/2 (/ (+ (* 1/3 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2))) (* 3/4 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3)))) (+ 1/2 (* -1/2 (cos (* 2 ky)))))) (+ (* 2/45 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2))) (+ (* 2/3 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))) (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 4)))))) (sqrt (+ 1/2 (* -1/2 (cos (* 2 ky))))))) (* 1/2 (* (sqrt (+ 1/2 (* -1/2 (cos (* 2 ky))))) (+ (* 1/3 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2))) (* 3/4 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3)))))))))))
(fma.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) (fma.f64 #s(literal -1/2 binary64) (.f64 (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))) (.f64 (.f64 kx kx) (+.f64 (/.f64 (+.f64 (/.f64 #s(literal -1/6 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #s(literal 2 binary64))) (/.f64 #s(literal -3/8 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #s(literal 3 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))) (+.f64 (/.f64 #s(literal 2/45 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #s(literal 2 binary64))) (+.f64 (/.f64 #s(literal 2/3 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #s(literal 4 binary64)))))))) (.f64 #s(literal 1/2 binary64) (.f64 (+.f64 (/.f64 #s(literal 1/3 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #s(literal 2 binary64))) (/.f64 #s(literal 3/4 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #s(literal 3 binary64)))) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))) (.f64 #s(literal -1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #s(literal 3 binary64)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))
(sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))
(sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))
(sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))
(sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))
(sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))
(sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))
(sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))
(sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))
(sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx)))))))))
(sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))
(sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx)))))))))
(sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))
(sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx)))))))))
(sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))
(sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx)))))))))
(sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))
(* (sqrt 2) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))
(.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))))
(+ (* -2 (* (/ (pow ky 2) (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (* (sqrt 2) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))))
(fma.f64 #s(literal -2 binary64) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64)))) (/.f64 (.f64 ky ky) (sqrt.f64 #s(literal 2 binary64)))) (.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64))))))))
(+ (* (sqrt 2) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* -2 (* (/ 1 (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (* 1/2 (* (/ (* (pow ky 2) (- (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (* 4 (/ 1 (* (pow (sqrt 2) 2) (pow (- 1 (cos (* 2 kx))) 3)))))) (sqrt 2)) (sqrt (- 1 (cos (* 2 kx)))))))))
(fma.f64 (.f64 ky ky) (fma.f64 #s(literal 1/2 binary64) (.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))) (.f64 (+.f64 (/.f64 #s(literal 4/3 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 2 binary64))) (+.f64 (/.f64 #s(literal 8 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64))) (/.f64 #s(literal -2 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64))))) (/.f64 (.f64 ky ky) (sqrt.f64 #s(literal 2 binary64))))) (.f64 (/.f64 #s(literal -2 binary64) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64)))))) (.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))))
(+ (* (sqrt 2) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* -2 (* (/ 1 (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (* (pow ky 2) (+ (* -1/2 (* (/ (* (pow ky 2) (+ (* -2 (/ (- (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (* 4 (/ 1 (* (pow (sqrt 2) 2) (pow (- 1 (cos (* 2 kx))) 3))))) (* (pow (sqrt 2) 2) (- 1 (cos (* 2 kx)))))) (+ (* 8/45 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (+ (* 2 (/ (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (- 1 (cos (* 2 kx))))) (* 8/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))))) (sqrt 2)) (sqrt (- 1 (cos (* 2 kx)))))) (* 1/2 (* (/ (- (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (* 4 (/ 1 (* (pow (sqrt 2) 2) (pow (- 1 (cos (* 2 kx))) 3))))) (sqrt 2)) (sqrt (- 1 (cos (* 2 kx)))))))))))
(fma.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 ky ky) (+.f64 (neg.f64 (/.f64 (+.f64 (/.f64 #s(literal 4/3 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 2 binary64))) (+.f64 (/.f64 #s(literal 8 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64))) (/.f64 #s(literal -2 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64))))) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (+.f64 (/.f64 (+.f64 (/.f64 #s(literal 16 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64))) (/.f64 #s(literal 8/3 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 2 binary64)))) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))) (+.f64 (/.f64 #s(literal 8/3 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64))) (/.f64 #s(literal 8/45 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 2 binary64))))))) (sqrt.f64 #s(literal 2 binary64))) (/.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (/.f64 #s(literal 4/3 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 2 binary64))) (+.f64 (/.f64 #s(literal 8 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64))) (/.f64 #s(literal -2 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64)))))) (sqrt.f64 #s(literal 2 binary64))))) (.f64 (/.f64 #s(literal -2 binary64) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64)))))) (.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64))))))))
(sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))
(sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))
(sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))
(sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))
(sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))
(sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))
(sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))
(sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))
(sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx))))))))
(sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))
(sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx))))))))
(sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))
(sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx))))))))
(sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))
(sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx))))))))
(sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))
(/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky)))))
(/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))
(+ (* -1 (/ (pow kx 2) (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2))) (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky))))))
(-.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))) (/.f64 (.f64 kx kx) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #s(literal 2 binary64))))
(+ (* (pow kx 2) (- (* (pow kx 2) (+ (* 1/3 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2))) (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3)))) (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2)))) (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky))))))
(fma.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) (+.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #s(literal 3 binary64))) (/.f64 #s(literal 1/3 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #s(literal 2 binary64)))) (/.f64 #s(literal -1 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #s(literal 2 binary64)))) (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))
(+ (* (pow kx 2) (- (* (pow kx 2) (+ (* -1 (* (pow kx 2) (+ (* 2/45 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2))) (+ (* 2/3 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))) (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 4)))))) (+ (* 1/3 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2))) (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))))) (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2)))) (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky))))))
(fma.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) (+.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #s(literal 3 binary64))) (-.f64 (/.f64 #s(literal 1/3 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #s(literal 2 binary64))) (.f64 (.f64 kx kx) (+.f64 (/.f64 #s(literal 2/45 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #s(literal 2 binary64))) (+.f64 (/.f64 #s(literal 2/3 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #s(literal 4 binary64)))))))) (/.f64 #s(literal -1 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #s(literal 2 binary64)))) (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))
(/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))
(/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))
(/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))
(/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))
(/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))
(/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))
(/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))
(/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))
(/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx))))))))
(/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))
(/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx))))))))
(/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))
(/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx))))))))
(/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))
(/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx))))))))
(/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))
(/ 2 (- 1 (cos (* 2 kx))))
(/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64)))))
(+ (* -4 (/ (pow ky 2) (pow (- 1 (cos (* 2 kx))) 2))) (* 2 (/ 1 (- 1 (cos (* 2 kx))))))
(fma.f64 (.f64 ky ky) (/.f64 #s(literal -4 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 2 binary64))) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64))))))
(+ (* (pow ky 2) (- (* (pow ky 2) (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (* 4 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))))) (* 2 (/ 1 (- 1 (cos (* 2 kx))))))
(fma.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal 4/3 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 2 binary64))) (/.f64 #s(literal 8 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64)))) (/.f64 #s(literal -4 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 2 binary64)))) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))
(+ (* (pow ky 2) (- (* (pow ky 2) (+ (* -1 (* (pow ky 2) (+ (* 8/45 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (+ (* 2 (/ (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (- 1 (cos (* 2 kx))))) (* 8/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))))) (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))))) (* 4 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))))) (* 2 (/ 1 (- 1 (cos (* 2 kx))))))
(fma.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 (+.f64 (/.f64 (+.f64 (/.f64 #s(literal 16 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64))) (/.f64 #s(literal 8/3 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 2 binary64)))) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))) (+.f64 (/.f64 #s(literal 8/3 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64))) (/.f64 #s(literal 8/45 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 2 binary64))))) (neg.f64 (.f64 ky ky)) (+.f64 (/.f64 #s(literal 4/3 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 2 binary64))) (/.f64 #s(literal 8 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64))))) (/.f64 #s(literal -4 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 2 binary64)))) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))
(/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))
(/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))
(/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))
(/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))
(/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))
(/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))
(/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))
(/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))
(/ 1 (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx)))))))
(/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))
(/ 1 (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx)))))))
(/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))
(/ 1 (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx)))))))
(/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))
(/ 1 (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx)))))))
(/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))
(+ 1/2 (* -1/2 (cos (* 2 ky))))
(fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))
(+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (pow kx 2)))
(fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) (fma.f64 kx kx #s(literal 1/2 binary64)))
(+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* (pow kx 2) (+ 1 (* -1/3 (pow kx 2))))))
(fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) (fma.f64 (.f64 kx kx) (fma.f64 (*.f64 kx kx) #s(literal -1/3 binary64) #s(literal 1 binary64)) #s(literal 1/2 binary64)))
(+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* (pow kx 2) (+ 1 (* (pow kx 2) (- (* 2/45 (pow kx 2)) 1/3))))))
(fma.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) #s(literal 2/45 binary64) #s(literal -1/3 binary64)) #s(literal 1 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))
(+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))
(fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))
(+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))
(fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))
(+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))
(fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))
(+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))
(fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))
(+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx)))))))
(fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))
(+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx)))))))
(fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))
(+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx)))))))
(fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))
(+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx)))))))
(fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))
(* 1/2 (- 1 (cos (* 2 kx))))
(.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))
(+ (* 1/2 (- 1 (cos (* 2 kx)))) (pow ky 2))
(fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (.f64 ky ky))
(+ (* 1/2 (- 1 (cos (* 2 kx)))) (* (pow ky 2) (+ 1 (* -1/3 (pow ky 2)))))
(fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))
(+ (* 1/2 (- 1 (cos (* 2 kx)))) (* (pow ky 2) (+ 1 (* (pow ky 2) (- (* 2/45 (pow ky 2)) 1/3)))))
(fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 (*.f64 ky ky) #s(literal 2/45 binary64) #s(literal -1/3 binary64)) #s(literal 1 binary64))))
(+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))
(fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))
(+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))
(fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))
(+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))
(fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))
(+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))
(fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))
(+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx))))))
(fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))
(+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx))))))
(fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))
(+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx))))))
(fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))
(+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx))))))
(fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))
(pow ky 2)
(*.f64 ky ky)
(* (pow ky 2) (+ 1 (* -1/3 (pow ky 2))))
(.f64 (.f64 ky ky) (fma.f64 (*.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64)))
(* (pow ky 2) (+ 1 (* (pow ky 2) (- (* 2/45 (pow ky 2)) 1/3))))
(.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal 2/45 binary64) #s(literal -1/3 binary64)) #s(literal 1 binary64)))
(* (pow ky 2) (+ 1 (* (pow ky 2) (- (* (pow ky 2) (+ 2/45 (* -1/315 (pow ky 2)))) 1/3))))
(.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 (*.f64 ky ky) #s(literal -1/315 binary64) #s(literal 2/45 binary64)) #s(literal -1/3 binary64)) #s(literal 1 binary64)))
(+ 1/2 (* -1/2 (cos (* 2 ky))))
(fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))
(+ 1/2 (* -1/2 (cos (* 2 ky))))
(fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))
(+ 1/2 (* -1/2 (cos (* 2 ky))))
(fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))
(+ 1/2 (* -1/2 (cos (* 2 ky))))
(fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))
(+ 1/2 (* -1/2 (cos (neg (* -2 ky)))))
(fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))
(+ 1/2 (* -1/2 (cos (neg (* -2 ky)))))
(fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))
(+ 1/2 (* -1/2 (cos (neg (* -2 ky)))))
(fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))
(+ 1/2 (* -1/2 (cos (neg (* -2 ky)))))
(fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))
(* (* ky (* (sin th) (sqrt 2))) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))
(.f64 (.f64 (.f64 ky (sin.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))))
(* ky (+ (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* -2 (* (/ (sin th) (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (* -1/6 (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))))))))
(.f64 ky (fma.f64 (.f64 ky ky) (fma.f64 (/.f64 (.f64 #s(literal -2 binary64) (sin.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64)))) (.f64 (.f64 #s(literal -1/6 binary64) (.f64 (sin.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))))) (.f64 (.f64 (sin.f64 th) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64)))))))))
(* ky (+ (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* -2 (* (/ (sin th) (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (+ (* -1/6 (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (* (pow ky 2) (+ (* 1/120 (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (+ (* 1/3 (* (/ (sin th) (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (* 1/2 (* (/ (* (sin th) (- (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (* 4 (/ 1 (* (pow (sqrt 2) 2) (pow (- 1 (cos (* 2 kx))) 3)))))) (sqrt 2)) (sqrt (- 1 (cos (* 2 kx))))))))))))))
(.f64 ky (fma.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 #s(literal 1/120 binary64) (.f64 (.f64 (sin.f64 th) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (sin.f64 th) (+.f64 (/.f64 #s(literal 4/3 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 2 binary64))) (+.f64 (/.f64 #s(literal 8 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64))) (/.f64 #s(literal -2 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (sqrt.f64 #s(literal 2 binary64))) (.f64 (/.f64 (.f64 #s(literal 1/3 binary64) (sin.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64))))))) (fma.f64 (/.f64 (.f64 #s(literal -2 binary64) (sin.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64)))) (.f64 (.f64 #s(literal -1/6 binary64) (.f64 (sin.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))))) (.f64 (.f64 (sin.f64 th) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))))))
(* ky (+ (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* -2 (* (/ (sin th) (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (+ (* -1/6 (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (* (pow ky 2) (+ (* 1/120 (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (+ (* 1/3 (* (/ (sin th) (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (+ (* 1/2 (* (/ (* (sin th) (- (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (* 4 (/ 1 (* (pow (sqrt 2) 2) (pow (- 1 (cos (* 2 kx))) 3)))))) (sqrt 2)) (sqrt (- 1 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* -1/2 (* (/ (* (sin th) (+ (* -2 (/ (- (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (* 4 (/ 1 (* (pow (sqrt 2) 2) (pow (- 1 (cos (* 2 kx))) 3))))) (* (pow (sqrt 2) 2) (- 1 (cos (* 2 kx)))))) (+ (* 8/45 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (+ (* 2 (/ (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (- 1 (cos (* 2 kx))))) (* 8/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))))) (sqrt 2)) (sqrt (- 1 (cos (* 2 kx)))))) (+ (* -1/12 (* (/ (* (sin th) (- (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (* 4 (/ 1 (* (pow (sqrt 2) 2) (pow (- 1 (cos (* 2 kx))) 3)))))) (sqrt 2)) (sqrt (- 1 (cos (* 2 kx)))))) (+ (* -1/60 (* (/ (sin th) (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (* -1/5040 (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))))))))))))))))
(.f64 ky (fma.f64 (sin.f64 th) (.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))) (.f64 (.f64 ky ky) (fma.f64 #s(literal -1/6 binary64) (.f64 (.f64 (sin.f64 th) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))) (fma.f64 (.f64 ky ky) (fma.f64 #s(literal 1/120 binary64) (.f64 (.f64 (sin.f64 th) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))) (fma.f64 (.f64 ky ky) (fma.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (sin.f64 th) (+.f64 (neg.f64 (/.f64 (+.f64 (/.f64 #s(literal 4/3 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 2 binary64))) (+.f64 (/.f64 #s(literal 8 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64))) (/.f64 #s(literal -2 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64))))) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (+.f64 (/.f64 (+.f64 (/.f64 #s(literal 16 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64))) (/.f64 #s(literal 8/3 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 2 binary64)))) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))) (+.f64 (/.f64 #s(literal 8/3 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64))) (/.f64 #s(literal 8/45 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 2 binary64))))))) (sqrt.f64 #s(literal 2 binary64))) (/.f64 (.f64 #s(literal -1/12 binary64) (.f64 (sin.f64 th) (+.f64 (/.f64 #s(literal 4/3 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 2 binary64))) (+.f64 (/.f64 #s(literal 8 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64))) (/.f64 #s(literal -2 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64))))))) (sqrt.f64 #s(literal 2 binary64)))) (fma.f64 (.f64 (/.f64 (sin.f64 th) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64))))) #s(literal -1/60 binary64) (.f64 (.f64 #s(literal -1/5040 binary64) (.f64 (sin.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 (sin.f64 th) (+.f64 (/.f64 #s(literal 4/3 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 2 binary64))) (+.f64 (/.f64 #s(literal 8 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64))) (/.f64 #s(literal -2 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64)))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (sqrt.f64 #s(literal 2 binary64))) (.f64 (/.f64 (.f64 #s(literal 1/3 binary64) (sin.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64)))))))) (.f64 (/.f64 (.f64 #s(literal -2 binary64) (sin.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64))))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (* th (sin ky)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(.f64 (.f64 th (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* th (+ (* -1/6 (* (* (pow th 2) (sin ky)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))) (* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))))
(.f64 th (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) (.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 th th) #s(literal 1 binary64)) (sin.f64 ky))))
(* th (+ (* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (* (pow th 2) (+ (* -1/6 (* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))) (* 1/120 (* (* (pow th 2) (sin ky)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))))))))
(.f64 th (fma.f64 (.f64 th th) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) (.f64 (sin.f64 ky) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64)))) (.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))))
(* th (+ (* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (* (pow th 2) (+ (* -1/6 (* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))) (* (pow th 2) (+ (* -1/5040 (* (* (pow th 2) (sin ky)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))) (* 1/120 (* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))))))))))
(.f64 th (fma.f64 (.f64 th th) (fma.f64 (.f64 th th) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) (.f64 (sin.f64 ky) (fma.f64 #s(literal -1/5040 binary64) (.f64 th th) #s(literal 1/120 binary64)))) (.f64 (.f64 #s(literal -1/6 binary64) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))) (.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky)))))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))
(+ (* -1/2 (* (* (pow kx 2) (* (sin ky) (sin th))) (sqrt (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))))) (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky))))))))
(fma.f64 #s(literal -1/2 binary64) (.f64 (.f64 (.f64 kx kx) (.f64 (sin.f64 th) (sin.f64 ky))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #s(literal 3 binary64))))) (.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(+ (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky))))))) (* (pow kx 2) (+ (* -1/2 (* (* (sin ky) (sin th)) (sqrt (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))))) (* 1/2 (* (* (pow kx 2) (* (sin ky) (* (sin th) (+ (* 1/3 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2))) (* 3/4 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))))))) (sqrt (+ 1/2 (* -1/2 (cos (* 2 ky))))))))))
(fma.f64 (.f64 kx kx) (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 kx kx) (.f64 (.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (+.f64 (/.f64 #s(literal 1/3 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #s(literal 2 binary64))) (/.f64 #s(literal 3/4 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #s(literal 3 binary64))))) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) (.f64 (.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 th) (sin.f64 ky))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #s(literal 3 binary64)))))) (.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(+ (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky))))))) (* (pow kx 2) (+ (* -1/2 (* (* (sin ky) (sin th)) (sqrt (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))))) (* (pow kx 2) (+ (* -1/2 (* (* (pow kx 2) (* (sin ky) (* (sin th) (+ (* -1/2 (/ (+ (* 1/3 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2))) (* 3/4 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3)))) (+ 1/2 (* -1/2 (cos (* 2 ky)))))) (+ (* 2/45 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2))) (+ (* 2/3 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))) (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 4)))))))) (sqrt (+ 1/2 (* -1/2 (cos (* 2 ky))))))) (* 1/2 (* (* (sin ky) (* (sin th) (+ (* 1/3 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2))) (* 3/4 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3)))))) (sqrt (+ 1/2 (* -1/2 (cos (* 2 ky))))))))))))
(fma.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) (.f64 (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))) (fma.f64 #s(literal -1/2 binary64) (.f64 (.f64 kx kx) (.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (+.f64 (/.f64 (+.f64 (/.f64 #s(literal -1/6 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #s(literal 2 binary64))) (/.f64 #s(literal -3/8 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #s(literal 3 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))) (+.f64 (/.f64 #s(literal 2/45 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #s(literal 2 binary64))) (+.f64 (/.f64 #s(literal 2/3 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #s(literal 4 binary64)))))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (+.f64 (/.f64 #s(literal 1/3 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #s(literal 2 binary64))) (/.f64 #s(literal 3/4 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #s(literal 3 binary64)))))))) (.f64 (.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 th) (sin.f64 ky))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #s(literal 3 binary64)))))) (.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx))))))))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx))))))))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx))))))))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx))))))))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* ky (sin th))
(*.f64 ky (sin.f64 th))
(* ky (+ (sin th) (* -1/6 (* (pow ky 2) (sin th)))))
(.f64 ky (.f64 (fma.f64 #s(literal -1/6 binary64) (*.f64 ky ky) #s(literal 1 binary64)) (sin.f64 th)))
(* ky (+ (sin th) (* (pow ky 2) (+ (* -1/6 (sin th)) (* 1/120 (* (pow ky 2) (sin th)))))))
(.f64 ky (fma.f64 (.f64 ky ky) (.f64 (sin.f64 th) (fma.f64 #s(literal 1/120 binary64) (.f64 ky ky) #s(literal -1/6 binary64))) (sin.f64 th)))
(* ky (+ (sin th) (* (pow ky 2) (+ (* -1/6 (sin th)) (* (pow ky 2) (+ (* -1/5040 (* (pow ky 2) (sin th))) (* 1/120 (sin th))))))))
(.f64 ky (fma.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (.f64 (sin.f64 th) (fma.f64 #s(literal -1/5040 binary64) (.f64 ky ky) #s(literal 1/120 binary64))) (.f64 #s(literal -1/6 binary64) (sin.f64 th))) (sin.f64 th)))
(* (sin ky) (sin th))
(*.f64 (sin.f64 th) (sin.f64 ky))
(* (sin ky) (sin th))
(*.f64 (sin.f64 th) (sin.f64 ky))
(* (sin ky) (sin th))
(*.f64 (sin.f64 th) (sin.f64 ky))
(* (sin ky) (sin th))
(*.f64 (sin.f64 th) (sin.f64 ky))
(* (sin ky) (sin th))
(*.f64 (sin.f64 th) (sin.f64 ky))
(* (sin ky) (sin th))
(*.f64 (sin.f64 th) (sin.f64 ky))
(* (sin ky) (sin th))
(*.f64 (sin.f64 th) (sin.f64 ky))
(* (sin ky) (sin th))
(*.f64 (sin.f64 th) (sin.f64 ky))
(* th (sin ky))
(*.f64 th (sin.f64 ky))
(* th (+ (sin ky) (* -1/6 (* (pow th 2) (sin ky)))))
(.f64 th (.f64 (fma.f64 #s(literal -1/6 binary64) (*.f64 th th) #s(literal 1 binary64)) (sin.f64 ky)))
(* th (+ (sin ky) (* (pow th 2) (+ (* -1/6 (sin ky)) (* 1/120 (* (pow th 2) (sin ky)))))))
(.f64 th (fma.f64 (.f64 th th) (.f64 (sin.f64 ky) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) (sin.f64 ky)))
(* th (+ (sin ky) (* (pow th 2) (+ (* -1/6 (sin ky)) (* (pow th 2) (+ (* -1/5040 (* (pow th 2) (sin ky))) (* 1/120 (sin ky))))))))
(.f64 th (fma.f64 (.f64 th th) (fma.f64 (.f64 th th) (.f64 (sin.f64 ky) (fma.f64 #s(literal -1/5040 binary64) (.f64 th th) #s(literal 1/120 binary64))) (.f64 #s(literal -1/6 binary64) (sin.f64 ky))) (sin.f64 ky)))
(* (sin ky) (sin th))
(*.f64 (sin.f64 th) (sin.f64 ky))
(* (sin ky) (sin th))
(*.f64 (sin.f64 th) (sin.f64 ky))
(* (sin ky) (sin th))
(*.f64 (sin.f64 th) (sin.f64 ky))
(* (sin ky) (sin th))
(*.f64 (sin.f64 th) (sin.f64 ky))
(* (sin ky) (sin th))
(*.f64 (sin.f64 th) (sin.f64 ky))
(* (sin ky) (sin th))
(*.f64 (sin.f64 th) (sin.f64 ky))
(* (sin ky) (sin th))
(*.f64 (sin.f64 th) (sin.f64 ky))
(* (sin ky) (sin th))
(*.f64 (sin.f64 th) (sin.f64 ky))
(/ 1 kx)
(/.f64 #s(literal 1 binary64) kx)
(/ (+ 1 (* 1/6 (pow kx 2))) kx)
(/.f64 (fma.f64 (*.f64 kx kx) #s(literal 1/6 binary64) #s(literal 1 binary64)) kx)
(/ (+ 1 (* (pow kx 2) (+ 1/6 (* 7/360 (pow kx 2))))) kx)
(/.f64 (fma.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) #s(literal 7/360 binary64) #s(literal 1/6 binary64)) #s(literal 1 binary64)) kx)
(/ (+ 1 (* (pow kx 2) (+ 1/6 (* (pow kx 2) (+ 7/360 (* 31/15120 (pow kx 2))))))) kx)
(/.f64 (fma.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) (fma.f64 (*.f64 kx kx) #s(literal 31/15120 binary64) #s(literal 7/360 binary64)) #s(literal 1/6 binary64)) #s(literal 1 binary64)) kx)
(/ 1 (sin kx))
(/.f64 #s(literal 1 binary64) (sin.f64 kx))
(/ 1 (sin kx))
(/.f64 #s(literal 1 binary64) (sin.f64 kx))
(/ 1 (sin kx))
(/.f64 #s(literal 1 binary64) (sin.f64 kx))
(/ 1 (sin kx))
(/.f64 #s(literal 1 binary64) (sin.f64 kx))
(/ 1 (sin kx))
(/.f64 #s(literal 1 binary64) (sin.f64 kx))
(/ 1 (sin kx))
(/.f64 #s(literal 1 binary64) (sin.f64 kx))
(/ 1 (sin kx))
(/.f64 #s(literal 1 binary64) (sin.f64 kx))
(/ 1 (sin kx))
(/.f64 #s(literal 1 binary64) (sin.f64 kx))
(* 2 (pow kx 2))
(.f64 #s(literal 2 binary64) (.f64 kx kx))
(* (pow kx 2) (+ 2 (* -2/3 (pow kx 2))))
(.f64 (.f64 kx kx) (fma.f64 (*.f64 kx kx) #s(literal -2/3 binary64) #s(literal 2 binary64)))
(* (pow kx 2) (+ 2 (* (pow kx 2) (- (* 4/45 (pow kx 2)) 2/3))))
(.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) #s(literal 4/45 binary64) #s(literal -2/3 binary64)) #s(literal 2 binary64)))
(* (pow kx 2) (+ 2 (* (pow kx 2) (- (* (pow kx 2) (+ 4/45 (* -2/315 (pow kx 2)))) 2/3))))
(.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) (fma.f64 (*.f64 kx kx) #s(literal -2/315 binary64) #s(literal 4/45 binary64)) #s(literal -2/3 binary64)) #s(literal 2 binary64)))
(- 1 (cos (* -2 kx)))
(-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64))))
(- 1 (cos (* -2 kx)))
(-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64))))
(- 1 (cos (* -2 kx)))
(-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64))))
(- 1 (cos (* -2 kx)))
(-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64))))
(- 1 (cos (* -2 kx)))
(-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64))))
(- 1 (cos (* -2 kx)))
(-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64))))
(- 1 (cos (* -2 kx)))
(-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64))))
(- 1 (cos (* -2 kx)))
(-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64))))
(* ky (sqrt 2))
(*.f64 ky (sqrt.f64 #s(literal 2 binary64)))
(* ky (sqrt 2))
(*.f64 ky (sqrt.f64 #s(literal 2 binary64)))
(* ky (sqrt 2))
(*.f64 ky (sqrt.f64 #s(literal 2 binary64)))
(* ky (sqrt 2))
(*.f64 ky (sqrt.f64 #s(literal 2 binary64)))
(* ky (sqrt 2))
(*.f64 ky (sqrt.f64 #s(literal 2 binary64)))
(* ky (sqrt 2))
(*.f64 ky (sqrt.f64 #s(literal 2 binary64)))
(* ky (sqrt 2))
(*.f64 ky (sqrt.f64 #s(literal 2 binary64)))
(* ky (sqrt 2))
(*.f64 ky (sqrt.f64 #s(literal 2 binary64)))
(* ky (sqrt 2))
(*.f64 ky (sqrt.f64 #s(literal 2 binary64)))
(* ky (sqrt 2))
(*.f64 ky (sqrt.f64 #s(literal 2 binary64)))
(* ky (sqrt 2))
(*.f64 ky (sqrt.f64 #s(literal 2 binary64)))
(* ky (sqrt 2))
(*.f64 ky (sqrt.f64 #s(literal 2 binary64)))
(pow ky 2)
(*.f64 ky ky)
(* (pow ky 2) (+ 1 (* -1/3 (pow ky 2))))
(.f64 (.f64 ky ky) (fma.f64 (*.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64)))
(* (pow ky 2) (+ 1 (* (pow ky 2) (- (* 2/45 (pow ky 2)) 1/3))))
(.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal 2/45 binary64) #s(literal -1/3 binary64)) #s(literal 1 binary64)))
(* (pow ky 2) (+ 1 (* (pow ky 2) (- (* (pow ky 2) (+ 2/45 (* -1/315 (pow ky 2)))) 1/3))))
(.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 (*.f64 ky ky) #s(literal -1/315 binary64) #s(literal 2/45 binary64)) #s(literal -1/3 binary64)) #s(literal 1 binary64)))
(+ 1/2 (* -1/2 (cos (* 2 ky))))
(fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))
(+ 1/2 (* -1/2 (cos (* 2 ky))))
(fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))
(+ 1/2 (* -1/2 (cos (* 2 ky))))
(fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))
(+ 1/2 (* -1/2 (cos (* 2 ky))))
(fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))
(+ 1/2 (* -1/2 (cos (neg (* -2 ky)))))
(fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))
(+ 1/2 (* -1/2 (cos (neg (* -2 ky)))))
(fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))
(+ 1/2 (* -1/2 (cos (neg (* -2 ky)))))
(fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))
(+ 1/2 (* -1/2 (cos (neg (* -2 ky)))))
(fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))
(* 2 (pow kx 2))
(.f64 #s(literal 2 binary64) (.f64 kx kx))
(* (pow kx 2) (+ 2 (* -2/3 (pow kx 2))))
(.f64 (.f64 kx kx) (fma.f64 (*.f64 kx kx) #s(literal -2/3 binary64) #s(literal 2 binary64)))
(* (pow kx 2) (+ 2 (* (pow kx 2) (- (* 4/45 (pow kx 2)) 2/3))))
(.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) #s(literal 4/45 binary64) #s(literal -2/3 binary64)) #s(literal 2 binary64)))
(* (pow kx 2) (+ 2 (* (pow kx 2) (- (* (pow kx 2) (+ 4/45 (* -2/315 (pow kx 2)))) 2/3))))
(.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) (fma.f64 (*.f64 kx kx) #s(literal -2/315 binary64) #s(literal 4/45 binary64)) #s(literal -2/3 binary64)) #s(literal 2 binary64)))
(- 1 (cos (* 2 kx)))
(-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64))))
(- 1 (cos (* 2 kx)))
(-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64))))
(- 1 (cos (* 2 kx)))
(-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64))))
(- 1 (cos (* 2 kx)))
(-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64))))
(- 1 (cos (neg (* -2 kx))))
(-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64))))
(- 1 (cos (neg (* -2 kx))))
(-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64))))
(- 1 (cos (neg (* -2 kx))))
(-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64))))
(- 1 (cos (neg (* -2 kx))))
(-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64))))
(sqrt (+ 1/2 (* -1/2 (cos (* 2 ky)))))
(sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))
(+ (sqrt (+ 1/2 (* -1/2 (cos (* 2 ky))))) (* 1/2 (* (pow kx 2) (sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky)))))))))
(fma.f64 (.f64 #s(literal 1/2 binary64) (.f64 kx kx)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))
(+ (sqrt (+ 1/2 (* -1/2 (cos (* 2 ky))))) (* (pow kx 2) (+ (* -1/2 (* (* (pow kx 2) (+ 1/3 (* 1/4 (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky)))))))) (sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky)))))))) (* 1/2 (sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky))))))))))
(fma.f64 (.f64 kx kx) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (.f64 (.f64 kx kx) (+.f64 #s(literal 1/3 binary64) (/.f64 #s(literal 1/4 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) #s(literal 1/2 binary64))) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))
(+ (sqrt (+ 1/2 (* -1/2 (cos (* 2 ky))))) (* (pow kx 2) (+ (* 1/2 (sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky))))))) (* (pow kx 2) (+ (* -1/2 (* (+ 1/3 (* 1/4 (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky))))))) (sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky)))))))) (* 1/2 (* (* (pow kx 2) (- 2/45 (* -1/2 (/ (+ 1/3 (* 1/4 (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky))))))) (+ 1/2 (* -1/2 (cos (* 2 ky)))))))) (sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky)))))))))))))
(fma.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 kx kx) (-.f64 #s(literal 2/45 binary64) (/.f64 (+.f64 #s(literal -1/6 binary64) (/.f64 #s(literal -1/8 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) (+.f64 #s(literal -1/6 binary64) (/.f64 #s(literal -1/8 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))) (.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))
(sqrt (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))
(sqrt.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))
(sqrt (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))
(sqrt.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))
(sqrt (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))
(sqrt.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))
(sqrt (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))
(sqrt.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))
(sqrt (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx))))))))
(sqrt.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))
(sqrt (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx))))))))
(sqrt.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))
(sqrt (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx))))))))
(sqrt.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))
(sqrt (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx))))))))
(sqrt.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))
(* (sqrt 1/2) (sqrt (- 1 (cos (* 2 kx)))))
(.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))) (sqrt.f64 #s(literal 1/2 binary64)))
(+ (* 1/2 (* (/ (pow ky 2) (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (* (sqrt 1/2) (sqrt (- 1 (cos (* 2 kx))))))
(fma.f64 #s(literal 1/2 binary64) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (.f64 ky (/.f64 ky (sqrt.f64 #s(literal 1/2 binary64))))) (.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64))))) (sqrt.f64 #s(literal 1/2 binary64))))
(+ (* (sqrt 1/2) (sqrt (- 1 (cos (* 2 kx))))) (* (pow ky 2) (+ (* -1/2 (* (/ (* (pow ky 2) (+ 1/3 (* 1/4 (/ 1 (* (pow (sqrt 1/2) 2) (- 1 (cos (* 2 kx)))))))) (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (* 1/2 (* (/ 1 (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))))))
(fma.f64 (.f64 ky ky) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (+.f64 #s(literal 1/3 binary64) (/.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (.f64 ky (/.f64 ky (sqrt.f64 #s(literal 1/2 binary64))))) (/.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(literal 1/2 binary64))))) (.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))) (sqrt.f64 #s(literal 1/2 binary64))))
(+ (* (sqrt 1/2) (sqrt (- 1 (cos (* 2 kx))))) (* (pow ky 2) (+ (* 1/2 (* (/ 1 (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (* (pow ky 2) (+ (* -1/2 (* (/ (+ 1/3 (* 1/4 (/ 1 (* (pow (sqrt 1/2) 2) (- 1 (cos (* 2 kx))))))) (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (* 1/2 (* (/ (* (pow ky 2) (- 2/45 (* -1/2 (/ (+ 1/3 (* 1/4 (/ 1 (* (pow (sqrt 1/2) 2) (- 1 (cos (* 2 kx))))))) (* (pow (sqrt 1/2) 2) (- 1 (cos (* 2 kx)))))))) (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))))))))
(fma.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 ky ky) (-.f64 #s(literal 2/45 binary64) (neg.f64 (/.f64 (+.f64 #s(literal 1/3 binary64) (/.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))))) (sqrt.f64 #s(literal 1/2 binary64))) (/.f64 (+.f64 #s(literal -1/6 binary64) (/.f64 #s(literal -1/4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (sqrt.f64 #s(literal 1/2 binary64))))) (.f64 (/.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))))) (.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64))))) (sqrt.f64 #s(literal 1/2 binary64))))
(sqrt (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))
(sqrt.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))
(sqrt (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))
(sqrt.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))
(sqrt (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))
(sqrt.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))
(sqrt (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))
(sqrt.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))
(sqrt (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx)))))))
(sqrt.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))
(sqrt (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx)))))))
(sqrt.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))
(sqrt (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx)))))))
(sqrt.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))
(sqrt (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx)))))))
(sqrt.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))

rewrite122.0ms (0.9%)

Memory

24.4MiB live, 176.5MiB allocated

Rules

1 250×	`lower-fma.f32`
1 242×	`lower-fma.f64`
1 174×	`lower-*.f32`
1 148×	`lower-*.f64`
930×	`lower-/.f32`

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	74	423
0	123	406
1	409	343
0	2684	340

Stop Event

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

Counts

26 → 310

Calls

Call 1

Inputs
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx)))
(*.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (sin.f64 th))
(/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx)))))
(sin.f64 ky)
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th)))
#s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th))
(fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th)
(.f64 #s(literal -1/6 binary64) (.f64 th th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th))
#s(approx (* (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (*.f64 ky (sqrt.f64 #s(literal 2 binary64)))))
(.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))
(sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64))))))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (*.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) (sin.f64 ky)) (sin.f64 th))
(.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 ( -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (*.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) (sin.f64 ky))
(sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (*.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64)))))))
(/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (*.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))
(fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))
(+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))
(/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))))
(*.f64 (sin.f64 ky) (sin.f64 th))
(/.f64 #s(literal 1 binary64) (sin.f64 kx))
(-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64))))
(*.f64 ky (sqrt.f64 #s(literal 2 binary64)))
#s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (*.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))
(-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))
(sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))

Outputs
(exp.f64 (*.f64 (log.f64 (sin.f64 kx)) #s(literal 1 binary64)))
(exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 1 binary64) (sin.f64 kx))) #s(literal -1 binary64)))
(sin.f64 kx)
(neg.f64 (neg.f64 (sin.f64 kx)))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx)))
(/.f64 (sin.f64 kx) #s(literal 1 binary64))
(/.f64 #s(literal -1 binary64) (/.f64 #s(literal -1 binary64) (sin.f64 kx)))
(/.f64 (neg.f64 (sin.f64 kx)) #s(literal -1 binary64))
(pow.f64 (sin.f64 kx) #s(literal 1 binary64))
(pow.f64 (/.f64 #s(literal 1 binary64) (sin.f64 kx)) #s(literal -1 binary64))
(*.f64 #s(literal 1 binary64) (sin.f64 kx))
(*.f64 (sin.f64 kx) #s(literal 1 binary64))
(*.f64 #s(literal -1 binary64) (neg.f64 (sin.f64 kx)))
(*.f64 (pow.f64 (sin.f64 kx) #s(literal 1/2 binary64)) (pow.f64 (sin.f64 kx) #s(literal 1/2 binary64)))
(*.f64 (pow.f64 (/.f64 #s(literal 1 binary64) (sin.f64 kx)) #s(literal -1/2 binary64)) (pow.f64 (/.f64 #s(literal 1 binary64) (sin.f64 kx)) #s(literal -1/2 binary64)))
(/.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 (+.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)) #s(literal 1/2 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)) #s(literal 1/2 binary64)))) (*.f64 (sin.f64 ky) (sin.f64 th))))
(/.f64 (sin.f64 th) (/.f64 (sqrt.f64 (+.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)) #s(literal 1/2 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)) #s(literal 1/2 binary64)))) (sin.f64 ky)))
(/.f64 (*.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (+.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)) #s(literal 1/2 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)) #s(literal 1/2 binary64)))))
(/.f64 (-.f64 (cos.f64 (-.f64 ky th)) (cos.f64 (+.f64 ky th))) (*.f64 (sqrt.f64 (+.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)) #s(literal 1/2 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)) #s(literal 1/2 binary64)))) #s(literal 2 binary64)))
(/.f64 (*.f64 (sin.f64 ky) (neg.f64 (sin.f64 th))) (neg.f64 (sqrt.f64 (+.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)) #s(literal 1/2 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)) #s(literal 1/2 binary64))))))
(/.f64 (*.f64 (sin.f64 th) #s(literal 1 binary64)) (/.f64 (sqrt.f64 (+.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)) #s(literal 1/2 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)) #s(literal 1/2 binary64)))) (sin.f64 ky)))
(/.f64 (*.f64 #s(literal 1 binary64) (sin.f64 th)) (/.f64 (sqrt.f64 (+.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)) #s(literal 1/2 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)) #s(literal 1/2 binary64)))) (sin.f64 ky)))
(.f64 (sin.f64 ky) (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)) #s(literal 1/2 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)) #s(literal 1/2 binary64))))) (sin.f64 th)))
(*.f64 (sin.f64 ky) (/.f64 (sin.f64 th) (sqrt.f64 (+.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)) #s(literal 1/2 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)) #s(literal 1/2 binary64))))))
(*.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)) #s(literal 1/2 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)) #s(literal 1/2 binary64))))) (sin.f64 th))
(*.f64 (sin.f64 th) (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)) #s(literal 1/2 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)) #s(literal 1/2 binary64))))))
(.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)) #s(literal 1/2 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)) #s(literal 1/2 binary64))))))
(neg.f64 (/.f64 (sin.f64 ky) (neg.f64 (sqrt.f64 (+.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)) #s(literal 1/2 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)) #s(literal 1/2 binary64)))))))
(neg.f64 (/.f64 (neg.f64 (sin.f64 ky)) (sqrt.f64 (+.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)) #s(literal 1/2 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)) #s(literal 1/2 binary64))))))
(/.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 (+.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)) #s(literal 1/2 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)) #s(literal 1/2 binary64)))) (sin.f64 ky)))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 (sqrt.f64 (+.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)) #s(literal 1/2 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)) #s(literal 1/2 binary64)))) (sin.f64 ky)) #s(literal 1 binary64)))
(/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)) #s(literal 1/2 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)) #s(literal 1/2 binary64)))))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 (sqrt.f64 (+.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)) #s(literal 1/2 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)) #s(literal 1/2 binary64)))) (sin.f64 ky))))
(/.f64 (neg.f64 (sin.f64 ky)) (neg.f64 (sqrt.f64 (+.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)) #s(literal 1/2 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)) #s(literal 1/2 binary64))))))
(/.f64 (neg.f64 (neg.f64 (sin.f64 ky))) (neg.f64 (neg.f64 (sqrt.f64 (+.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)) #s(literal 1/2 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)) #s(literal 1/2 binary64)))))))
(/.f64 (*.f64 (sin.f64 ky) #s(literal 1 binary64)) (sqrt.f64 (+.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)) #s(literal 1/2 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)) #s(literal 1/2 binary64)))))
(pow.f64 (/.f64 (sqrt.f64 (+.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)) #s(literal 1/2 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)) #s(literal 1/2 binary64)))) (sin.f64 ky)) #s(literal -1 binary64))
(*.f64 #s(literal 1 binary64) (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)) #s(literal 1/2 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)) #s(literal 1/2 binary64))))))
(*.f64 (sin.f64 ky) (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)) #s(literal 1/2 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)) #s(literal 1/2 binary64))))))
(*.f64 (neg.f64 (sin.f64 ky)) (/.f64 #s(literal 1 binary64) (neg.f64 (sqrt.f64 (+.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)) #s(literal 1/2 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)) #s(literal 1/2 binary64)))))))
(*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)) #s(literal 1/2 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)) #s(literal 1/2 binary64))))) (sin.f64 ky))
(exp.f64 (*.f64 (log.f64 (sin.f64 ky)) #s(literal 1 binary64)))
(sin.f64 ky)
(pow.f64 (sin.f64 ky) #s(literal 1 binary64))
(*.f64 (pow.f64 (sin.f64 ky) #s(literal 1/2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 1/2 binary64)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th)))
#s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th))
(+.f64 th (.f64 th (.f64 #s(literal -1/6 binary64) (*.f64 th th))))
(+.f64 (.f64 th (.f64 #s(literal -1/6 binary64) (*.f64 th th))) th)
(-.f64 (/.f64 (.f64 th (.f64 (.f64 #s(literal -1/6 binary64) (.f64 th th)) (.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th))))) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) (neg.f64 th))) (/.f64 (.f64 th th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) (neg.f64 th))))
(fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th)
(fma.f64 #s(literal -1/6 binary64) (.f64 th (.f64 th th)) th)
(fma.f64 (.f64 th th) (.f64 th #s(literal -1/6 binary64)) th)
(fma.f64 (.f64 #s(literal -1/6 binary64) (.f64 th th)) th th)
(fma.f64 (.f64 th (.f64 th th)) #s(literal -1/6 binary64) th)
(fma.f64 (.f64 th #s(literal -1/6 binary64)) (.f64 th th) th)
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 th (-.f64 th (.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)))) (.f64 th (.f64 (.f64 #s(literal -1/6 binary64) (.f64 th th)) (.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)))))) (fma.f64 th (.f64 th th) (.f64 (.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th))) (.f64 th (.f64 (.f64 #s(literal -1/6 binary64) (.f64 th th)) (.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)))))))))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) (neg.f64 th)) (.f64 (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (*.f64 th th)) (neg.f64 th)))))
(/.f64 (fma.f64 th (.f64 th th) (.f64 (.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th))) (.f64 th (.f64 (.f64 #s(literal -1/6 binary64) (.f64 th th)) (.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th))))))) (fma.f64 th (-.f64 th (.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)))) (.f64 th (.f64 (.f64 #s(literal -1/6 binary64) (.f64 th th)) (.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)))))))
(/.f64 (fma.f64 th (.f64 th th) (.f64 (.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th))) (.f64 th (.f64 (.f64 #s(literal -1/6 binary64) (.f64 th th)) (.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th))))))) (fma.f64 th th (-.f64 (.f64 th (.f64 (.f64 #s(literal -1/6 binary64) (.f64 th th)) (.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th))))) (.f64 (.f64 #s(literal -1/6 binary64) (.f64 th th)) (*.f64 th th)))))
(/.f64 (.f64 (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) (neg.f64 th))) (fma.f64 th (.f64 #s(literal -1/6 binary64) (*.f64 th th)) (neg.f64 th)))
(/.f64 (neg.f64 (fma.f64 th (.f64 th th) (.f64 (.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th))) (.f64 th (.f64 (.f64 #s(literal -1/6 binary64) (.f64 th th)) (.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)))))))) (neg.f64 (fma.f64 th (-.f64 th (.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)))) (.f64 th (.f64 (.f64 #s(literal -1/6 binary64) (.f64 th th)) (.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th))))))))
(/.f64 (neg.f64 (.f64 (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) (neg.f64 th)))) (neg.f64 (fma.f64 th (.f64 #s(literal -1/6 binary64) (*.f64 th th)) (neg.f64 th))))
(/.f64 (-.f64 (.f64 th th) (.f64 th (.f64 (.f64 #s(literal -1/6 binary64) (.f64 th th)) (.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)))))) (-.f64 th (.f64 th (.f64 #s(literal -1/6 binary64) (*.f64 th th)))))
(.f64 (fma.f64 th (.f64 th th) (.f64 (.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th))) (.f64 th (.f64 (.f64 #s(literal -1/6 binary64) (.f64 th th)) (.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th))))))) (/.f64 #s(literal 1 binary64) (fma.f64 th (-.f64 th (.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)))) (.f64 th (.f64 (.f64 #s(literal -1/6 binary64) (.f64 th th)) (.f64 th (.f64 #s(literal -1/6 binary64) (*.f64 th th))))))))
(.f64 (.f64 (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) (neg.f64 th))) (/.f64 #s(literal 1 binary64) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) (neg.f64 th))))
(.f64 (fma.f64 th (.f64 th #s(literal -1/6 binary64)) #s(literal 1 binary64)) th)
(.f64 th (.f64 th #s(literal -1/6 binary64)))
(.f64 #s(literal -1/6 binary64) (.f64 th th))
(.f64 (.f64 th th) #s(literal -1/6 binary64))
(.f64 (.f64 th #s(literal -1/6 binary64)) th)
(.f64 (sin.f64 th) #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (/.f64 (.f64 ky (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (/.f64 (.f64 ky (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))) (sin.f64 th))
#s(approx (* (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (/.f64 (.f64 ky (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))))
(/.f64 (.f64 ky (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))
(/.f64 (.f64 (.f64 ky (sqrt.f64 #s(literal 2 binary64))) #s(literal 1 binary64)) (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64))))))
(/.f64 (.f64 #s(literal 1 binary64) (.f64 ky (sqrt.f64 #s(literal 2 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64))))))
(.f64 ky (.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64))))))))
(.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))
(.f64 (sqrt.f64 #s(literal 2 binary64)) (/.f64 (.f64 #s(literal 1 binary64) ky) (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64)))))))
(.f64 (.f64 ky (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64)))))))
(.f64 (/.f64 (.f64 #s(literal 1 binary64) ky) (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64)))))) (sqrt.f64 #s(literal 2 binary64)))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64)))))) (sqrt.f64 #s(literal 2 binary64))) ky)
(exp.f64 (.f64 (log.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) #s(literal 1/2 binary64)))
(sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64))))))
(/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64))))))
(/.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64))))) #s(literal 1 binary64)))
(/.f64 #s(literal -1 binary64) (neg.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64)))))))
(/.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 (neg.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64)))))))
(pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64)))) #s(literal -1/2 binary64))
(pow.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64))))) #s(literal 1/2 binary64))
(pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64))))) #s(literal -1 binary64))
(.f64 #s(literal 1 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))))
(.f64 (pow.f64 #s(literal 1 binary64) #s(literal 1/2 binary64)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))))
(.f64 (pow.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))) #s(literal 1/4 binary64)) (pow.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64))))) #s(literal 1/4 binary64)))
(/.f64 (.f64 #s(literal 1 binary64) (-.f64 (cos.f64 (-.f64 ky th)) (cos.f64 (+.f64 ky th)))) (.f64 (sqrt.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 ky (*.f64 ky #s(literal -1/3 binary64)) #s(literal 1 binary64)))))) #s(literal 2 binary64)))
(/.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(approx (+ 1/2 ( -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 ky (*.f64 ky #s(literal -1/3 binary64)) #s(literal 1 binary64))))))) (-.f64 (cos.f64 (-.f64 ky th)) (cos.f64 (+.f64 ky th)))) #s(literal 2 binary64))
(/.f64 (.f64 #s(literal 1 binary64) (.f64 (sin.f64 ky) (sin.f64 th))) (sqrt.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 ky (*.f64 ky #s(literal -1/3 binary64)) #s(literal 1 binary64)))))))
(.f64 (sin.f64 ky) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 ky (*.f64 ky #s(literal -1/3 binary64)) #s(literal 1 binary64))))))) (sin.f64 th)))
(.f64 (sin.f64 th) (/.f64 (sin.f64 ky) (sqrt.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(approx (+ 1/2 ( -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 ky (*.f64 ky #s(literal -1/3 binary64)) #s(literal 1 binary64))))))))
(.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(approx (+ 1/2 ( -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 ky (.f64 ky #s(literal -1/3 binary64)) #s(literal 1 binary64))))))) (.f64 (sin.f64 ky) (sin.f64 th)))
(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(approx (+ 1/2 ( -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 ky (*.f64 ky #s(literal -1/3 binary64)) #s(literal 1 binary64))))))) (sin.f64 th))
(.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 ky (*.f64 ky #s(literal -1/3 binary64)) #s(literal 1 binary64))))))))
(.f64 (.f64 (sin.f64 th) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 ky (*.f64 ky #s(literal -1/3 binary64)) #s(literal 1 binary64)))))))) (sin.f64 ky))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 ky (*.f64 ky #s(literal -1/3 binary64)) #s(literal 1 binary64))))))) (sin.f64 th)) (sin.f64 ky))
(/.f64 (sin.f64 ky) (sqrt.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 ky (*.f64 ky #s(literal -1/3 binary64)) #s(literal 1 binary64)))))))
(/.f64 (.f64 (sin.f64 ky) #s(literal 1 binary64)) (sqrt.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(approx (+ 1/2 ( -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 ky (*.f64 ky #s(literal -1/3 binary64)) #s(literal 1 binary64)))))))
(/.f64 (.f64 #s(literal 1 binary64) (sin.f64 ky)) (sqrt.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(approx (+ 1/2 ( -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 ky (*.f64 ky #s(literal -1/3 binary64)) #s(literal 1 binary64)))))))
(.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(approx (+ 1/2 ( -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 ky (*.f64 ky #s(literal -1/3 binary64)) #s(literal 1 binary64))))))))
(.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(approx (+ 1/2 ( -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 ky (*.f64 ky #s(literal -1/3 binary64)) #s(literal 1 binary64))))))) (sin.f64 ky))
(exp.f64 (.f64 (log.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(approx (+ 1/2 ( -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 ky (*.f64 ky #s(literal -1/3 binary64)) #s(literal 1 binary64))))))) #s(literal 1/2 binary64)))
(sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 ky (*.f64 ky #s(literal -1/3 binary64)) #s(literal 1 binary64)))))))
(/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 ky (*.f64 ky #s(literal -1/3 binary64)) #s(literal 1 binary64)))))))
(/.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 ky (*.f64 ky #s(literal -1/3 binary64)) #s(literal 1 binary64)))))) #s(literal 1 binary64)))
(/.f64 #s(literal -1 binary64) (neg.f64 (sqrt.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 ky (*.f64 ky #s(literal -1/3 binary64)) #s(literal 1 binary64))))))))
(/.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 (neg.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 ky (*.f64 ky #s(literal -1/3 binary64)) #s(literal 1 binary64))))))))
(pow.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 ky (*.f64 ky #s(literal -1/3 binary64)) #s(literal 1 binary64))))) #s(literal -1/2 binary64))
(pow.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 ky (*.f64 ky #s(literal -1/3 binary64)) #s(literal 1 binary64)))))) #s(literal 1/2 binary64))
(pow.f64 (sqrt.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 ky (*.f64 ky #s(literal -1/3 binary64)) #s(literal 1 binary64)))))) #s(literal -1 binary64))
(.f64 #s(literal 1 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(approx (+ 1/2 ( -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 ky (*.f64 ky #s(literal -1/3 binary64)) #s(literal 1 binary64))))))))
(.f64 (pow.f64 #s(literal 1 binary64) #s(literal 1/2 binary64)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(approx (+ 1/2 ( -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 ky (*.f64 ky #s(literal -1/3 binary64)) #s(literal 1 binary64))))))))
(.f64 (pow.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(approx (+ 1/2 ( -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 ky (.f64 ky #s(literal -1/3 binary64)) #s(literal 1 binary64)))))) #s(literal 1/4 binary64)) (pow.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(approx (+ 1/2 ( -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 ky (*.f64 ky #s(literal -1/3 binary64)) #s(literal 1 binary64)))))) #s(literal 1/4 binary64)))
(exp.f64 (.f64 (log.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(approx (+ 1/2 ( -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 ky (*.f64 ky #s(literal -1/3 binary64)) #s(literal 1 binary64)))))) #s(literal -1 binary64)))
(neg.f64 (/.f64 #s(literal -1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 ky (*.f64 ky #s(literal -1/3 binary64)) #s(literal 1 binary64)))))))
(/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 ky (*.f64 ky #s(literal -1/3 binary64)) #s(literal 1 binary64))))))
(/.f64 #s(literal 1 binary64) (neg.f64 (neg.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 ky (*.f64 ky #s(literal -1/3 binary64)) #s(literal 1 binary64))))))))
(/.f64 #s(literal -1 binary64) (neg.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 ky (*.f64 ky #s(literal -1/3 binary64)) #s(literal 1 binary64)))))))
(pow.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 ky (*.f64 ky #s(literal -1/3 binary64)) #s(literal 1 binary64))))) #s(literal -1 binary64))
(.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(approx (+ 1/2 ( -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 ky (*.f64 ky #s(literal -1/3 binary64)) #s(literal 1 binary64)))))))
(.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(approx (+ 1/2 ( -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 ky (*.f64 ky #s(literal -1/3 binary64)) #s(literal 1 binary64)))))) #s(literal 1 binary64))
(.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(approx (+ 1/2 ( -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 ky (.f64 ky #s(literal -1/3 binary64)) #s(literal 1 binary64))))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(approx (+ 1/2 ( -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 ky (*.f64 ky #s(literal -1/3 binary64)) #s(literal 1 binary64))))))))
(.f64 #s(literal -1 binary64) (/.f64 #s(literal 1 binary64) (neg.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(approx (+ 1/2 ( -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 ky (*.f64 ky #s(literal -1/3 binary64)) #s(literal 1 binary64))))))))
(.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/8 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 3 binary64)) (.f64 #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 ky (.f64 ky #s(literal -1/3 binary64)) #s(literal 1 binary64)))) (.f64 #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 ky (.f64 ky #s(literal -1/3 binary64)) #s(literal 1 binary64)))) #s(approx (+ 1/2 ( -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 ky (.f64 ky #s(literal -1/3 binary64)) #s(literal 1 binary64)))))))) (fma.f64 #s(approx (+ 1/2 ( -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 ky (.f64 ky #s(literal -1/3 binary64)) #s(literal 1 binary64)))) (-.f64 #s(approx (+ 1/2 ( -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 ky (.f64 ky #s(literal -1/3 binary64)) #s(literal 1 binary64)))) (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))))) (pow.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 2 binary64))))
(.f64 (/.f64 #s(literal 1 binary64) (-.f64 (pow.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 2 binary64)) (.f64 #s(approx (+ 1/2 ( -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 ky (.f64 ky #s(literal -1/3 binary64)) #s(literal 1 binary64)))) #s(approx (+ 1/2 ( -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 ky (.f64 ky #s(literal -1/3 binary64)) #s(literal 1 binary64))))))) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) (neg.f64 #s(approx (+ 1/2 ( -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 ky (*.f64 ky #s(literal -1/3 binary64)) #s(literal 1 binary64)))))))
(+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)) (*.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))))))
(+.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx))) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64)))
(+.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)) #s(literal 1/2 binary64)) (*.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))))
(+.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)) #s(literal 1/2 binary64)))
(+.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64)) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx))))
(+.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 1/2 binary64))
(-.f64 (/.f64 (pow.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)) #s(literal 1/2 binary64)))) (/.f64 (pow.f64 (sin.f64 kx) #s(literal 4 binary64)) (-.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)) #s(literal 1/2 binary64)))))
(fma.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)) #s(literal 1/2 binary64)) (*.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))))
(fma.f64 (sin.f64 kx) (sin.f64 kx) (*.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))))
(fma.f64 (sin.f64 ky) (sin.f64 ky) (*.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))))
(fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)) #s(literal 1/2 binary64)))
(fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64)))
(fma.f64 (cos.f64 (+.f64 kx kx)) #s(literal -1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64)))
(fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)) #s(literal 1/2 binary64)))
(fma.f64 (-.f64 (cos.f64 #s(literal 0 binary64)) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))))
(fma.f64 (fma.f64 (pow.f64 (cos.f64 (+.f64 kx kx)) #s(literal 3 binary64)) #s(literal -1/8 binary64) #s(literal 1/8 binary64)) (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx))) (-.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64)) #s(literal 1/4 binary64))) (*.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))))
(fma.f64 (-.f64 #s(literal 1/4 binary64) (.f64 #s(literal 1/4 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (+.f64 kx kx))))))) (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx))))) (*.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))))
(fma.f64 (exp.f64 (log.f64 (sin.f64 ky))) (exp.f64 (log.f64 (sin.f64 ky))) (*.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))))
(fma.f64 (exp.f64 (log.f64 (sin.f64 kx))) (exp.f64 (log.f64 (sin.f64 kx))) (*.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))))
(fma.f64 (+.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1 binary64)) #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx))))
(fma.f64 (/.f64 (sin.f64 kx) #s(literal -1 binary64)) (neg.f64 (sin.f64 kx)) (*.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)) #s(literal 1/2 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)) #s(literal 1/2 binary64)) (-.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)) #s(literal 1/2 binary64)) (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))))) (pow.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 2 binary64))) (fma.f64 #s(literal 1/8 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 3 binary64)) (pow.f64 (sin.f64 kx) #s(literal 6 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)) #s(literal 1/2 binary64))) (-.f64 (pow.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 kx) #s(literal 4 binary64)))))
(/.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)) #s(literal 1/2 binary64))) #s(literal 1 binary64))
(/.f64 (neg.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)) #s(literal 1/2 binary64)))) #s(literal -1 binary64))
(/.f64 (fma.f64 #s(literal 1/8 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 3 binary64)) (pow.f64 (sin.f64 kx) #s(literal 6 binary64))) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)) #s(literal 1/2 binary64)) (-.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)) #s(literal 1/2 binary64)) (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))))) (pow.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 2 binary64))))
(/.f64 (fma.f64 #s(literal 1/8 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 3 binary64)) (pow.f64 (sin.f64 kx) #s(literal 6 binary64))) (+.f64 (pow.f64 (sin.f64 kx) #s(literal 4 binary64)) (-.f64 (pow.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 2 binary64)) (.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)) #s(literal 1/2 binary64)) (*.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))))))))
(/.f64 (fma.f64 #s(literal 1/8 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 3 binary64)) (pow.f64 (sin.f64 kx) #s(literal 6 binary64))) (.f64 #s(literal 1 binary64) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)) #s(literal 1/2 binary64)) (-.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)) #s(literal 1/2 binary64)) (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))))) (pow.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 2 binary64)))))
(/.f64 (-.f64 (pow.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 kx) #s(literal 4 binary64))) (-.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)) #s(literal 1/2 binary64))))
(/.f64 (-.f64 (pow.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 kx) #s(literal 4 binary64))) (.f64 #s(literal 1 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)) #s(literal 1/2 binary64)))))
(/.f64 (neg.f64 (fma.f64 #s(literal 1/8 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 3 binary64)) (pow.f64 (sin.f64 kx) #s(literal 6 binary64)))) (neg.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)) #s(literal 1/2 binary64)) (-.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)) #s(literal 1/2 binary64)) (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))))) (pow.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 2 binary64)))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 kx) #s(literal 4 binary64)))) (neg.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)) #s(literal 1/2 binary64)))))
(/.f64 (+.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64)) #s(literal 3 binary64)) (pow.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 3 binary64))) (fma.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64)) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64)) (-.f64 (.f64 #s(literal 1/4 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (+.f64 kx kx)))))) (.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64)) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)))))))
(/.f64 (-.f64 (pow.f64 (sin.f64 kx) #s(literal 4 binary64)) (pow.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 2 binary64))) (-.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)) #s(literal 1/2 binary64)) (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))))))
(/.f64 (-.f64 (.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64)) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64))) (.f64 #s(literal 1/4 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (+.f64 kx kx))))))) (-.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64)) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)))))
(*.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)) #s(literal 1/2 binary64))) #s(literal 1 binary64))
(.f64 (fma.f64 #s(literal 1/8 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 3 binary64)) (pow.f64 (sin.f64 kx) #s(literal 6 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)) #s(literal 1/2 binary64)) (-.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)) #s(literal 1/2 binary64)) (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))))) (pow.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 2 binary64)))))
(.f64 (-.f64 (pow.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 kx) #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)) #s(literal 1/2 binary64)))))
(+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx))))
(+.f64 #s(literal 1/2 binary64) (neg.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx)))))
(+.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64))
(exp.f64 (*.f64 #s(literal 2 binary64) (log.f64 (sin.f64 ky))))
(exp.f64 (*.f64 #s(literal 2 binary64) (log.f64 (sin.f64 kx))))
(-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx))))
(-.f64 (/.f64 #s(literal 1/4 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx))))) (/.f64 (.f64 #s(literal 1/4 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (+.f64 kx kx)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx))))))
(-.f64 (/.f64 (cos.f64 #s(literal 0 binary64)) #s(literal 2 binary64)) (/.f64 (cos.f64 (+.f64 kx kx)) #s(literal 2 binary64)))
(fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)) #s(literal 1/2 binary64))
(fma.f64 (cos.f64 (+.f64 kx kx)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)) #s(literal 1/2 binary64))))
(/.f64 #s(literal 1 binary64) (*.f64 (/.f64 #s(literal -1 binary64) (sin.f64 kx)) (/.f64 #s(literal -1 binary64) (sin.f64 kx))))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx))) (-.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64)) #s(literal 1/4 binary64)) (fma.f64 (pow.f64 (cos.f64 (+.f64 kx kx)) #s(literal 3 binary64)) #s(literal -1/8 binary64) #s(literal 1/8 binary64))))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx)))) (-.f64 #s(literal 1/4 binary64) (.f64 #s(literal 1/4 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (+.f64 kx kx)))))))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 (cos.f64 #s(literal 0 binary64)) (cos.f64 (+.f64 kx kx)))))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)) #s(literal 1/2 binary64))) #s(literal 1 binary64)))
(/.f64 (sin.f64 kx) (/.f64 #s(literal 1 binary64) (sin.f64 kx)))
(/.f64 (-.f64 (cos.f64 #s(literal 0 binary64)) (cos.f64 (+.f64 kx kx))) #s(literal 2 binary64))
(/.f64 #s(literal -1 binary64) (*.f64 (/.f64 #s(literal 1 binary64) (sin.f64 kx)) (/.f64 #s(literal -1 binary64) (sin.f64 kx))))
(/.f64 #s(literal -1 binary64) (*.f64 (/.f64 #s(literal -1 binary64) (sin.f64 kx)) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)) #s(literal 1/2 binary64)))))
(/.f64 (neg.f64 (sin.f64 kx)) (/.f64 #s(literal -1 binary64) (sin.f64 kx)))
(/.f64 (fma.f64 (pow.f64 (cos.f64 (+.f64 kx kx)) #s(literal 3 binary64)) #s(literal -1/8 binary64) #s(literal 1/8 binary64)) (fma.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx))) (-.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64)) #s(literal 1/4 binary64)))
(/.f64 (fma.f64 (pow.f64 (cos.f64 (+.f64 kx kx)) #s(literal 3 binary64)) #s(literal -1/8 binary64) #s(literal 1/8 binary64)) (fma.f64 #s(literal 1/4 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (+.f64 kx kx))))) (-.f64 #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (cos.f64 (+.f64 kx kx))))))
(/.f64 (-.f64 #s(literal 1/4 binary64) (.f64 #s(literal 1/4 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (+.f64 kx kx))))))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx)))))
(/.f64 (neg.f64 (fma.f64 (pow.f64 (cos.f64 (+.f64 kx kx)) #s(literal 3 binary64)) #s(literal -1/8 binary64) #s(literal 1/8 binary64))) (neg.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx))) (-.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64)) #s(literal 1/4 binary64))))
(/.f64 (neg.f64 (-.f64 #s(literal 1/4 binary64) (.f64 #s(literal 1/4 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (+.f64 kx kx)))))))) (neg.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx))))))
(/.f64 (neg.f64 (-.f64 (cos.f64 #s(literal 0 binary64)) (cos.f64 (+.f64 kx kx)))) #s(literal -2 binary64))
(/.f64 (-.f64 #s(literal 1/8 binary64) (pow.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 3 binary64))) (+.f64 #s(literal 1/4 binary64) (fma.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx))) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx))) (.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx)))))))
(/.f64 (-.f64 (.f64 #s(literal 1/4 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (+.f64 kx kx)))))) #s(literal 1/4 binary64)) (-.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64)))
(/.f64 (-.f64 #s(literal 1/4 binary64) (.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx))) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx))))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx)))))
(/.f64 (*.f64 (sin.f64 kx) #s(literal -1 binary64)) (/.f64 #s(literal -1 binary64) (sin.f64 kx)))
(pow.f64 (sin.f64 kx) #s(literal 2 binary64))
(pow.f64 (/.f64 #s(literal 1 binary64) (sin.f64 kx)) #s(literal -2 binary64))
(pow.f64 (sin.f64 ky) #s(literal 2 binary64))
(pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)) #s(literal 1/2 binary64)) #s(literal 1 binary64))
(pow.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)) #s(literal 1/2 binary64))) #s(literal -1 binary64))
(pow.f64 (exp.f64 (log.f64 (sin.f64 ky))) #s(literal 2 binary64))
(pow.f64 (exp.f64 (log.f64 (sin.f64 kx))) #s(literal 2 binary64))
(*.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)) #s(literal 1/2 binary64)))
(*.f64 (sin.f64 kx) (sin.f64 kx))
(*.f64 (sin.f64 ky) (sin.f64 ky))
(*.f64 (-.f64 (cos.f64 #s(literal 0 binary64)) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64))
(.f64 (fma.f64 (pow.f64 (cos.f64 (+.f64 kx kx)) #s(literal 3 binary64)) #s(literal -1/8 binary64) #s(literal 1/8 binary64)) (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx))) (-.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64)) #s(literal 1/4 binary64))))
(.f64 (-.f64 #s(literal 1/4 binary64) (.f64 #s(literal 1/4 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (+.f64 kx kx))))))) (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx))))))
(*.f64 (exp.f64 (log.f64 (sin.f64 ky))) (exp.f64 (log.f64 (sin.f64 ky))))
(*.f64 (exp.f64 (log.f64 (sin.f64 kx))) (exp.f64 (log.f64 (sin.f64 kx))))
(*.f64 (/.f64 (sin.f64 kx) #s(literal -1 binary64)) (neg.f64 (sin.f64 kx)))
(neg.f64 (/.f64 (*.f64 (sin.f64 ky) (sin.f64 th)) (neg.f64 (sqrt.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)) #s(literal 1/2 binary64)))))))
(neg.f64 (/.f64 (*.f64 (sin.f64 ky) (neg.f64 (sin.f64 th))) (sqrt.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)) #s(literal 1/2 binary64))))))
(/.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)) #s(literal 1/2 binary64)))) (*.f64 (sin.f64 ky) (sin.f64 th))))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 (sqrt.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)) #s(literal 1/2 binary64)))) (*.f64 (sin.f64 ky) (sin.f64 th))) #s(literal 1 binary64)))
(/.f64 (*.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)) #s(literal 1/2 binary64)))))
(/.f64 (-.f64 (cos.f64 (-.f64 ky th)) (cos.f64 (+.f64 ky th))) (*.f64 (sqrt.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)) #s(literal 1/2 binary64)))) #s(literal 2 binary64)))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 (sqrt.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)) #s(literal 1/2 binary64)))) (*.f64 (sin.f64 ky) (sin.f64 th)))))
(/.f64 (*.f64 (sin.f64 ky) (neg.f64 (sin.f64 th))) (neg.f64 (sqrt.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)) #s(literal 1/2 binary64))))))
(/.f64 (.f64 (-.f64 (cos.f64 (-.f64 ky th)) (cos.f64 (+.f64 ky th))) #s(literal 1 binary64)) (.f64 #s(literal 2 binary64) (sqrt.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)) #s(literal 1/2 binary64))))))
(/.f64 (neg.f64 (*.f64 (sin.f64 ky) (neg.f64 (sin.f64 th)))) (neg.f64 (neg.f64 (sqrt.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)) #s(literal 1/2 binary64)))))))
(/.f64 (.f64 (.f64 (sin.f64 ky) (sin.f64 th)) #s(literal 1 binary64)) (sqrt.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)) #s(literal 1/2 binary64)))))
(/.f64 (*.f64 (-.f64 (cos.f64 (-.f64 ky th)) (cos.f64 (+.f64 ky th))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)) #s(literal 1/2 binary64)))))) #s(literal 2 binary64))
(pow.f64 (/.f64 (sqrt.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)) #s(literal 1/2 binary64)))) (*.f64 (sin.f64 ky) (sin.f64 th))) #s(literal -1 binary64))
(.f64 #s(literal 1 binary64) (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)) #s(literal 1/2 binary64))))))
(*.f64 (sin.f64 ky) (/.f64 (sin.f64 th) (sqrt.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)) #s(literal 1/2 binary64))))))
(*.f64 (sin.f64 th) (/.f64 (sin.f64 ky) (sqrt.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)) #s(literal 1/2 binary64))))))
(.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)) #s(literal 1/2 binary64))))) (.f64 (sin.f64 ky) (sin.f64 th)))
(.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)) #s(literal 1/2 binary64))))))
(.f64 (.f64 (sin.f64 ky) (neg.f64 (sin.f64 th))) (/.f64 #s(literal 1 binary64) (neg.f64 (sqrt.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)) #s(literal 1/2 binary64)))))))
(*.f64 (/.f64 (sin.f64 th) (sqrt.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)) #s(literal 1/2 binary64))))) (sin.f64 ky))
(-.f64 (/.f64 (cos.f64 (-.f64 ky th)) #s(literal 2 binary64)) (/.f64 (cos.f64 (+.f64 ky th)) #s(literal 2 binary64)))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 (cos.f64 (-.f64 ky th)) (cos.f64 (+.f64 ky th)))))
(/.f64 (-.f64 (cos.f64 (-.f64 ky th)) (cos.f64 (+.f64 ky th))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 th ky)) (cos.f64 (+.f64 ky th))) #s(literal 2 binary64))
(/.f64 (neg.f64 (-.f64 (cos.f64 (-.f64 ky th)) (cos.f64 (+.f64 ky th)))) #s(literal -2 binary64))
(*.f64 (sin.f64 ky) (sin.f64 th))
(*.f64 (sin.f64 th) (sin.f64 ky))
(*.f64 (-.f64 (cos.f64 (-.f64 ky th)) (cos.f64 (+.f64 ky th))) #s(literal 1/2 binary64))
(exp.f64 (*.f64 (log.f64 (sin.f64 kx)) #s(literal -1 binary64)))
(neg.f64 (/.f64 #s(literal -1 binary64) (sin.f64 kx)))
(/.f64 #s(literal 1 binary64) (sin.f64 kx))
(/.f64 (/.f64 #s(literal 1 binary64) (sin.f64 kx)) #s(literal 1 binary64))
(/.f64 #s(literal -1 binary64) (neg.f64 (sin.f64 kx)))
(/.f64 (/.f64 #s(literal -1 binary64) (sin.f64 kx)) #s(literal -1 binary64))
(pow.f64 (sin.f64 kx) #s(literal -1 binary64))
(pow.f64 (/.f64 #s(literal 1 binary64) (sin.f64 kx)) #s(literal 1 binary64))
(*.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx)))
(*.f64 (/.f64 #s(literal 1 binary64) (sin.f64 kx)) #s(literal 1 binary64))
(*.f64 #s(literal -1 binary64) (/.f64 #s(literal -1 binary64) (sin.f64 kx)))
(*.f64 (pow.f64 (sin.f64 kx) #s(literal -1/2 binary64)) (pow.f64 (sin.f64 kx) #s(literal -1/2 binary64)))
(+.f64 #s(literal 1 binary64) (neg.f64 (cos.f64 (*.f64 kx #s(literal -2 binary64)))))
(+.f64 (neg.f64 (cos.f64 (*.f64 kx #s(literal -2 binary64)))) #s(literal 1 binary64))
(-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64))))
(-.f64 #s(literal 1 binary64) (/.f64 (cos.f64 (*.f64 kx #s(literal -2 binary64))) #s(literal 1 binary64)))
(-.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 (.f64 kx #s(literal -2 binary64))) (+.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1 binary64))) (/.f64 (pow.f64 (cos.f64 (.f64 kx #s(literal -2 binary64))) #s(literal 3 binary64)) (fma.f64 (cos.f64 (.f64 kx #s(literal -2 binary64))) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64)))) #s(literal 1 binary64))))
(-.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))) (/.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 kx #s(literal -2 binary64)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64))))))
(fma.f64 #s(literal -1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64))) #s(literal 1 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64))))))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (cos.f64 (.f64 kx #s(literal -2 binary64))) (+.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1 binary64)) (-.f64 #s(literal 1 binary64) (pow.f64 (cos.f64 (*.f64 kx #s(literal -2 binary64))) #s(literal 3 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (-.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 kx #s(literal -2 binary64)))))))))
(/.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64)))) #s(literal 1 binary64))
(/.f64 (neg.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64))))) #s(literal -1 binary64))
(/.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (cos.f64 (.f64 kx #s(literal -2 binary64))) #s(literal 3 binary64))) (fma.f64 (cos.f64 (.f64 kx #s(literal -2 binary64))) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64)))) #s(literal 1 binary64)))
(/.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (cos.f64 (.f64 kx #s(literal -2 binary64))) #s(literal 3 binary64))) (.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 (.f64 kx #s(literal -2 binary64))) (+.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1 binary64))))
(/.f64 (-.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 kx #s(literal -2 binary64))))))) (+.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))
(/.f64 (-.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 kx #s(literal -2 binary64))))))) (.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64))))))
(/.f64 (neg.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (cos.f64 (.f64 kx #s(literal -2 binary64))) #s(literal 3 binary64)))) (neg.f64 (fma.f64 (cos.f64 (.f64 kx #s(literal -2 binary64))) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64)))) #s(literal 1 binary64))))
(/.f64 (neg.f64 (-.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 kx #s(literal -2 binary64)))))))) (neg.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))
(/.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (neg.f64 (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64))) (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (neg.f64 (cos.f64 (.f64 kx #s(literal -2 binary64)))) (neg.f64 (cos.f64 (.f64 kx #s(literal -2 binary64))))) (.f64 #s(literal 1 binary64) (neg.f64 (cos.f64 (.f64 kx #s(literal -2 binary64))))))))
(/.f64 (-.f64 #s(literal 1 binary64) (.f64 (neg.f64 (cos.f64 (.f64 kx #s(literal -2 binary64)))) (neg.f64 (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (-.f64 #s(literal 1 binary64) (neg.f64 (cos.f64 (.f64 kx #s(literal -2 binary64))))))
(.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1 binary64))
(.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (cos.f64 (.f64 kx #s(literal -2 binary64))) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 (.f64 kx #s(literal -2 binary64))) (+.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1 binary64))))
(.f64 (-.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 kx #s(literal -2 binary64))))))) (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64))))))
(*.f64 ky (sqrt.f64 #s(literal 2 binary64)))
(*.f64 (sqrt.f64 #s(literal 2 binary64)) ky)
#s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 ky (*.f64 ky #s(literal -1/3 binary64)) #s(literal 1 binary64))))
(+.f64 #s(literal 1 binary64) (neg.f64 (cos.f64 (+.f64 kx kx))))
(+.f64 (neg.f64 (cos.f64 (+.f64 kx kx))) #s(literal 1 binary64))
(+.f64 (-.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 kx kx))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)) #s(literal 1/2 binary64)))
(-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))
(-.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 (+.f64 kx kx)) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1 binary64))) (/.f64 (pow.f64 (cos.f64 (+.f64 kx kx)) #s(literal 3 binary64)) (fma.f64 (cos.f64 (+.f64 kx kx)) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1 binary64))))
(-.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) (/.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (+.f64 kx kx))))) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))))
(fma.f64 #s(literal -1 binary64) (cos.f64 (+.f64 kx kx)) #s(literal 1 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (cos.f64 (+.f64 kx kx)) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1 binary64)) (-.f64 #s(literal 1 binary64) (pow.f64 (cos.f64 (+.f64 kx kx)) #s(literal 3 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) (-.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (+.f64 kx kx))))))))
(/.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (cos.f64 (+.f64 kx kx)) #s(literal 3 binary64))) (fma.f64 (cos.f64 (+.f64 kx kx)) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1 binary64)))
(/.f64 (-.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (+.f64 kx kx)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))))
(/.f64 (neg.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (cos.f64 (+.f64 kx kx)) #s(literal 3 binary64)))) (neg.f64 (fma.f64 (cos.f64 (+.f64 kx kx)) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1 binary64))))
(/.f64 (neg.f64 (-.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (+.f64 kx kx))))))) (neg.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))))
(/.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (neg.f64 (cos.f64 (+.f64 kx kx))) #s(literal 3 binary64))) (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (neg.f64 (cos.f64 (+.f64 kx kx))) (neg.f64 (cos.f64 (+.f64 kx kx)))) (.f64 #s(literal 1 binary64) (neg.f64 (cos.f64 (+.f64 kx kx)))))))
(/.f64 (-.f64 #s(literal 1 binary64) (*.f64 (neg.f64 (cos.f64 (+.f64 kx kx))) (neg.f64 (cos.f64 (+.f64 kx kx))))) (-.f64 #s(literal 1 binary64) (neg.f64 (cos.f64 (+.f64 kx kx)))))
(*.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (cos.f64 (+.f64 kx kx)) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 (+.f64 kx kx)) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1 binary64))))
(.f64 (-.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (+.f64 kx kx)))))) (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))))
(exp.f64 (*.f64 (log.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64)))
(sqrt.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)) #s(literal 1/2 binary64))))
(/.f64 (sqrt.f64 (fma.f64 #s(literal 1/8 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 3 binary64)) (pow.f64 (sin.f64 kx) #s(literal 6 binary64)))) (sqrt.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)) #s(literal 1/2 binary64)) (-.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)) #s(literal 1/2 binary64)) (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))))) (pow.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 2 binary64)))))
(/.f64 (sqrt.f64 (-.f64 (pow.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 kx) #s(literal 4 binary64)))) (sqrt.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)) #s(literal 1/2 binary64)))))
(pow.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)) #s(literal 1/2 binary64))) #s(literal 1/2 binary64))
(*.f64 (pow.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)) #s(literal 1/2 binary64))) #s(literal 1/4 binary64)) (pow.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)) #s(literal 1/2 binary64))) #s(literal 1/4 binary64)))

eval213.0ms (1.6%)

Memory: -12.3MiB live, 262.7MiB allocated
Compiler: Compiled 27 726 to 2 113 computations (92.4% saved)

prune280.0ms (2.1%)

Memory

18.9MiB live, 451.6MiB allocated

Pruning

75 alts after pruning (70 fresh and 5 done)

	Pruned	Kept	Total
New	879	41	920
Fresh	15	29	44
Picked	2	3	5
Done	0	2	2
Total	896	75	971

Accuracy

100.0%

Counts

971 → 75

Alt Table

Click to see full alt table

Status	Accuracy	Program
	79.1%	(/.f64 (/.f64 (sin.f64 th) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (/.f64 #s(literal 1 binary64) (sin.f64 ky)))
▶	87.2%	(/.f64 (*.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))))
✓	79.2%	(/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))))
	36.3%	(/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 ( -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal 2/45 binary64) #s(literal -1/3 binary64)) #s(literal 1 binary64)))))))
	15.1%	(/.f64 (*.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 (cos.f64 (+.f64 kx kx)) #s(literal -1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64)))))
	33.7%	(/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 #s(approx (- 1 (cos (+ kx kx))) (.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) #s(literal -2/3 binary64) #s(literal 2 binary64)))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))))
	40.1%	(/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 #s(approx (- 1 (cos (+ kx kx))) (.f64 #s(literal 2 binary64) (.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))))
	12.4%	(/.f64 (*.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (+.f64 (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))))
	33.6%	(/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) (fma.f64 kx kx #s(literal 1/2 binary64))))))
▶	33.0%	(/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))
	31.5%	(/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))))
	31.5%	(/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) #s(approx (sqrt (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky)))))) (.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))) (sqrt.f64 #s(literal 1/2 binary64)))))
	41.6%	(/.f64 #s(approx (* (sin ky) (sin th)) (.f64 th (.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 th th) #s(literal 1 binary64)) (sin.f64 ky)))) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))))
	41.9%	(/.f64 #s(approx (* (sin ky) (sin th)) (.f64 th (sin.f64 ky))) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))))
	79.1%	(.f64 (/.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (/.f64 #s(literal 1 binary64) (sin.f64 ky))) (sin.f64 th))
	79.1%	(.f64 (/.f64 (sin.f64 th) (pow.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) #s(literal 1/4 binary64))) (/.f64 (sin.f64 ky) (pow.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) #s(literal 1/4 binary64))))
	79.3%	(.f64 (/.f64 (sin.f64 th) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky))
	79.1%	(.f64 (/.f64 (sin.f64 ky) (pow.f64 (pow.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) #s(literal 1/4 binary64)) #s(literal 2 binary64))) (sin.f64 th))
✓	99.6%	(*.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (sin.f64 th))
✓	99.7%	(*.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (sin.f64 kx))) (sin.f64 th))
	55.4%	(.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (sin.f64 kx))) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (*.f64 th th)) th)))
	53.6%	(.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) #s(approx (/ 1 (/ 1 (sin kx))) (fma.f64 kx (.f64 #s(literal -1/6 binary64) (*.f64 kx kx)) kx)))) (sin.f64 th))
	48.6%	(.f64 (/.f64 (sin.f64 ky) (hypot.f64 #s(approx (sin ky) (fma.f64 ky (.f64 #s(literal -1/6 binary64) (*.f64 ky ky)) ky)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (sin.f64 th))
	12.6%	(*.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))) (sin.f64 th))
	15.2%	(*.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)) #s(literal 1/2 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)) #s(literal 1/2 binary64))))) (sin.f64 th))
	27.2%	(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (exp.f64 (.f64 #s(literal 2 binary64) (log.f64 (sin.f64 kx)))) #s(approx (pow (sin ky) 2) (*.f64 ky ky))))) (sin.f64 th))
	24.8%	(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 #s(approx (pow (sin kx) 2) (.f64 kx kx)) #s(approx (pow (sin ky) 2) (*.f64 ky ky))))) (sin.f64 th))
	24.9%	(*.f64 (/.f64 (sin.f64 ky) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx))) (sin.f64 th))
	43.0%	(.f64 (/.f64 #s(approx (sin ky) (fma.f64 ky (.f64 (.f64 ky ky) #s(literal -1/6 binary64)) ky)) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky))))) (sin.f64 th))
▶	41.7%	(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th)))
	41.6%	(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (*.f64 th th)) th)))
	41.7%	(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #s(approx (sin th) (.f64 th (fma.f64 (.f64 th th) (fma.f64 (.f64 th th) (fma.f64 #s(literal -1/5040 binary64) (*.f64 th th) #s(literal 1/120 binary64)) #s(literal -1/6 binary64)) #s(literal 1 binary64)))))
	35.3%	(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) #s(approx (sin ky) (fma.f64 ky (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 #s(literal -1/5040 binary64) (*.f64 ky ky) #s(literal 1/120 binary64)) #s(literal -1/6 binary64))) ky))) (sin.f64 th))
	35.3%	(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) #s(approx (sin ky) (fma.f64 ky (.f64 #s(literal -1/6 binary64) (*.f64 ky ky)) ky))) (sin.f64 th))
	35.3%	(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) #s(approx (sin ky) (.f64 ky (fma.f64 (.f64 ky ky) (fma.f64 #s(literal 1/120 binary64) (.f64 ky ky) #s(literal -1/6 binary64)) #s(literal 1 binary64))))) (sin.f64 th))
	37.2%	(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 ky (*.f64 ky #s(literal -1/3 binary64)) #s(literal 1 binary64))))))) (sin.f64 th)) (sin.f64 ky))
	33.6%	(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) (fma.f64 kx kx #s(literal 1/2 binary64)))))) (sin.f64 ky)) (sin.f64 th))
	33.1%	(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) (sin.f64 ky)) (sin.f64 th))
	31.6%	(.f64 (.f64 (sqrt.f64 #s(approx (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky)))))) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64))))))) (sin.f64 ky)) (sin.f64 th))
	79.0%	(.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))))
	35.4%	(.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 ky (*.f64 ky #s(literal -1/3 binary64)) #s(literal 1 binary64))))))))
	26.4%	(.f64 (sin.f64 th) #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (/.f64 (.f64 ky (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))))
	26.3%	(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (fma.f64 (.f64 kx kx) (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) #s(literal 1 binary64))) (sin.f64 th))
	21.5%	(*.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (/.f64 ky (sin.f64 kx))) (sin.f64 th))
	8.6%	(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky #s(approx (+ (* (* ky ky) (+ (/ -1/2 (pow (sin kx) 3)) (/ -1/6 (sin kx)))) (/ 1 (sin kx))) (/.f64 (fma.f64 (.f64 ky ky) #s(literal -1/2 binary64) (.f64 (.f64 kx kx) (fma.f64 (.f64 ky ky) #s(literal -5/12 binary64) #s(literal 1 binary64)))) (.f64 kx (.f64 kx kx)))))) (sin.f64 th))
	7.3%	(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky #s(approx (+ (* (* ky ky) (+ (/ -1/2 (pow (sin kx) 3)) (/ -1/6 (sin kx)))) (/ 1 (sin kx))) (/.f64 (fma.f64 (.f64 kx kx) (fma.f64 (.f64 ky ky) #s(literal -5/12 binary64) (fma.f64 (.f64 kx kx) (fma.f64 (.f64 ky ky) #s(literal -71/720 binary64) #s(literal 1/6 binary64)) #s(literal 1 binary64))) (.f64 (.f64 ky ky) #s(literal -1/2 binary64))) (.f64 kx (.f64 kx kx)))))) (sin.f64 th))
	6.8%	(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky #s(approx (+ (* (* ky ky) (+ (/ -1/2 (pow (sin kx) 3)) (/ -1/6 (sin kx)))) (/ 1 (sin kx))) (/.f64 (.f64 (.f64 ky ky) #s(literal -1/2 binary64)) (.f64 kx (.f64 kx kx)))))) (sin.f64 th))
	21.5%	(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky #s(approx (+ (* (* ky ky) (+ (/ -1/2 (pow (sin kx) 3)) (/ -1/6 (sin kx)))) (/ 1 (sin kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (sin.f64 th))
	6.0%	(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) #s(approx ( ky (+ (* (* ky ky) (+ (/ -1/2 (pow (sin kx) 3)) (/ -1/6 (sin kx)))) (/ 1 (sin kx)))) (/.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 ky (.f64 ky ky)) (.f64 (.f64 (.f64 kx kx) ky) (fma.f64 (.f64 ky ky) #s(literal -5/12 binary64) #s(literal 1 binary64)))) (.f64 kx (.f64 kx kx))))) (sin.f64 th))
	26.4%	(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (/.f64 (.f64 #s(literal 1 binary64) ky) (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64)))))) (sqrt.f64 #s(literal 2 binary64)))) (sin.f64 th))
	26.4%	(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th))
	26.3%	(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64)))))) (sqrt.f64 #s(literal 2 binary64))) ky)) (sin.f64 th))
	26.2%	(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 kx #s(literal -2 binary64))))))) (+.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th))
	12.9%	(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (- 1 (cos ( kx -2))) (.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) #s(literal -2/3 binary64) #s(literal 2 binary64)))))) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th))
	14.4%	(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (- 1 (cos ( kx -2))) (.f64 #s(literal 2 binary64) (.f64 kx kx))))) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th))
▶	12.0%	(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th))
	16.0%	(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) kx)) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th))
	12.0%	(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) #s(approx (* (sqrt (/ 1 (- 1 (cos (* kx -2))))) (* ky (sqrt 2))) (/.f64 (fma.f64 #s(literal 1/12 binary64) (.f64 (.f64 ky (sqrt.f64 #s(literal 2 binary64))) (/.f64 (.f64 kx kx) (sqrt.f64 #s(literal 1/2 binary64)))) (.f64 (*.f64 ky (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 2 binary64)))) kx))) (sin.f64 th))
	15.9%	(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) #s(approx (* (sqrt (/ 1 (- 1 (cos (* kx -2))))) (* ky (sqrt 2))) (.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(literal 1/2 binary64))) (/.f64 ky kx)))) (sin.f64 th))
	26.3%	#s(approx (/ (* (sin ky) (sin th)) (sqrt (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (.f64 (.f64 (.f64 ky (sin.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))))
	41.8%	#s(approx (/ (* (sin ky) (sin th)) (sqrt (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (.f64 (.f64 th (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))))
	20.6%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (/.f64 (*.f64 ky (sin.f64 th)) (sin.f64 kx)))
	17.7%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 ky (fma.f64 (fma.f64 (.f64 ky ky) #s(literal -1/6 binary64) #s(literal 1 binary64)) (/.f64 (sin.f64 th) (sin.f64 kx)) (/.f64 (.f64 (.f64 ky ky) (*.f64 #s(literal -1/2 binary64) (sin.f64 th))) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))))))
✓	32.9%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th))
	20.2%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 (.f64 th (.f64 th th)) #s(literal -1/6 binary64) th)))
	20.2%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 (.f64 th th) (.f64 th #s(literal -1/6 binary64)) th)))
	20.1%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (*.f64 th th) #s(literal -1/6 binary64))) th)))
	20.2%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th #s(literal -1/6 binary64)) th) th)))
✓	20.2%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th)))
	13.8%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (/.f64 (-.f64 (.f64 th th) (.f64 th (.f64 (.f64 #s(literal -1/6 binary64) (.f64 th th)) (.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)))))) (-.f64 th (.f64 th (.f64 #s(literal -1/6 binary64) (*.f64 th th)))))))
	7.0%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 th (-.f64 th (.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)))) (.f64 th (.f64 (.f64 #s(literal -1/6 binary64) (.f64 th th)) (.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)))))) (fma.f64 th (.f64 th th) (.f64 (.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th))) (.f64 th (.f64 (.f64 #s(literal -1/6 binary64) (.f64 th th)) (.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)))))))))))
	20.2%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (+.f64 (.f64 th (.f64 #s(literal -1/6 binary64) (*.f64 th th))) th)))
	13.8%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (.f64 (.f64 (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) (neg.f64 th))) (/.f64 #s(literal 1 binary64) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) (neg.f64 th))))))
	7.3%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 (.f64 th (.f64 th th)) (+.f64 #s(literal -1/6 binary64) (/.f64 #s(literal 1 binary64) (.f64 th th)))))))
▶	8.0%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 #s(literal -1/6 binary64) (.f64 th (*.f64 th th))))))

Compiler

Compiled 3 677 to 2 255 computations (38.7% saved)

simplify239.0ms (1.8%)

Memory

24.0MiB live, 133.3MiB allocated

Algorithm

1×	egg-herbie

Localize:

Found 20 expressions of interest:

New	Metric	Score
cost-diff	0	(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th)))
cost-diff	128	(+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))
cost-diff	192	(/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))
cost-diff	384	(fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))
cost-diff	0	(sin.f64 th)
cost-diff	0	(sin.f64 ky)
cost-diff	0	(*.f64 (sin.f64 ky) (sin.f64 th))
cost-diff	0	(/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))
cost-diff	0	#s(approx (sqrt (/ 1 (- 1 (cos (* kx -2))))) (/.f64 (fma.f64 (*.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx))
cost-diff	0	(.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))
cost-diff	0	#s(approx (* (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64)))))
cost-diff	0	(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th))
cost-diff	0	(.f64 #s(literal -1/6 binary64) (.f64 th (*.f64 th th)))
cost-diff	0	#s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 #s(literal -1/6 binary64) (.f64 th (*.f64 th th))))
cost-diff	0	#s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 #s(literal -1/6 binary64) (.f64 th (*.f64 th th)))))
cost-diff	0	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 #s(literal -1/6 binary64) (.f64 th (*.f64 th th))))))
cost-diff	0	(sin.f64 th)
cost-diff	0	(sin.f64 ky)
cost-diff	0	(*.f64 (sin.f64 ky) (sin.f64 th))
cost-diff	0	(/.f64 (*.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))))

Rules

3 000×	`lower-fma.f32`
2 988×	`lower-fma.f64`
1 722×	`lower-*.f32`
1 696×	`lower-*.f64`
872×	`unsub-neg`

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	87	678
0	136	665
1	207	659
2	320	649
3	454	629
4	545	629
5	637	629
6	847	629
7	1061	629
8	1339	617
9	1696	617
10	2453	617
11	3191	617
12	3828	617
13	4177	617
14	4791	617
15	4957	617
16	5038	617
17	5118	617
18	5466	617
19	6027	617
20	6028	617
21	6028	617
22	6028	617
23	6028	617
0	6028	601

Stop Event

1×	iter limit
1×	saturated
1×	iter limit

Calls

Call 1

Inputs
(/.f64 (*.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))))
(*.f64 (sin.f64 ky) (sin.f64 th))
(sin.f64 ky)
ky
(sin.f64 th)
th
(sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))
(fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))
(-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))
#s(literal 1 binary64)
(cos.f64 (+.f64 kx kx))
(+.f64 kx kx)
kx
#s(literal 1/2 binary64)
(pow.f64 (sin.f64 ky) #s(literal 2 binary64))
#s(literal 2 binary64)
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 #s(literal -1/6 binary64) (.f64 th (*.f64 th th))))))
#s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 #s(literal -1/6 binary64) (.f64 th (*.f64 th th)))))
#s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 #s(literal -1/6 binary64) (.f64 th (*.f64 th th))))
(.f64 #s(literal -1/6 binary64) (.f64 th (*.f64 th th)))
#s(literal -1/6 binary64)
(.f64 th (.f64 th th))
th
(*.f64 th th)
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th))
#s(approx (* (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64)))))
(.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))
#s(approx (sqrt (/ 1 (- 1 (cos (* kx -2))))) (/.f64 (fma.f64 (*.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx))
(/.f64 (fma.f64 (*.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)
(fma.f64 (*.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))
(*.f64 kx kx)
kx
(/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64)))
#s(literal 1/12 binary64)
(sqrt.f64 #s(literal 1/2 binary64))
#s(literal 1/2 binary64)
(*.f64 ky (sqrt.f64 #s(literal 2 binary64)))
ky
(sqrt.f64 #s(literal 2 binary64))
#s(literal 2 binary64)
(sin.f64 th)
th
(/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))
(*.f64 (sin.f64 ky) (sin.f64 th))
(sin.f64 ky)
ky
(sin.f64 th)
th
(sqrt.f64 #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))
#s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))
(fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))
#s(literal -1/2 binary64)
(cos.f64 (*.f64 ky #s(literal -2 binary64)))
(*.f64 ky #s(literal -2 binary64))
#s(literal -2 binary64)
#s(literal 1/2 binary64)
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky))
(sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))))
(/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))
#s(literal 1 binary64)
(fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))
(-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))
(cos.f64 (+.f64 kx kx))
(+.f64 kx kx)
kx
#s(literal 1/2 binary64)
(+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))
(*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))
#s(literal -1/2 binary64)
(cos.f64 (+.f64 ky ky))
(+.f64 ky ky)
ky
(sin.f64 ky)
#s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (*.f64 th th) #s(literal -1/6 binary64))) th))
(fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (*.f64 th th) #s(literal -1/6 binary64))) th)
th
(.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (*.f64 th th) #s(literal -1/6 binary64)))
(*.f64 th th)
(fma.f64 #s(literal 1/120 binary64) (*.f64 th th) #s(literal -1/6 binary64))
#s(literal 1/120 binary64)
#s(literal -1/6 binary64)

Outputs
(/.f64 (*.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))))
(/.f64 (*.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (+.f64 kx kx)) #s(literal -1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(*.f64 (sin.f64 ky) (sin.f64 th))
(sin.f64 ky)
ky
(sin.f64 th)
th
(sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))
(sqrt.f64 (+.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (+.f64 kx kx)) #s(literal -1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))))
(fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))
(+.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (+.f64 kx kx)) #s(literal -1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))
(-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))
#s(literal 1 binary64)
(cos.f64 (+.f64 kx kx))
(+.f64 kx kx)
kx
#s(literal 1/2 binary64)
(pow.f64 (sin.f64 ky) #s(literal 2 binary64))
#s(literal 2 binary64)
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 #s(literal -1/6 binary64) (.f64 th (*.f64 th th))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 th (.f64 th (*.f64 th #s(literal -1/6 binary64)))))))
#s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 #s(literal -1/6 binary64) (.f64 th (*.f64 th th)))))
#s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 th (.f64 th (*.f64 th #s(literal -1/6 binary64))))))
#s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 #s(literal -1/6 binary64) (.f64 th (*.f64 th th))))
#s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 th (.f64 th (*.f64 th #s(literal -1/6 binary64)))))
(.f64 #s(literal -1/6 binary64) (.f64 th (*.f64 th th)))
(.f64 th (.f64 th (*.f64 th #s(literal -1/6 binary64))))
#s(literal -1/6 binary64)
(.f64 th (.f64 th th))
th
(*.f64 th th)
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th))
(.f64 (sin.f64 th) #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))))
#s(approx (* (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64)))))
(.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))
#s(approx (sqrt (/ 1 (- 1 (cos (* kx -2))))) (/.f64 (fma.f64 (*.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx))
(/.f64 (fma.f64 (*.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)
(fma.f64 (*.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))
(*.f64 kx kx)
kx
(/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64)))
#s(literal 1/12 binary64)
(sqrt.f64 #s(literal 1/2 binary64))
#s(literal 1/2 binary64)
(*.f64 ky (sqrt.f64 #s(literal 2 binary64)))
ky
(sqrt.f64 #s(literal 2 binary64))
#s(literal 2 binary64)
(sin.f64 th)
th
(/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))
(*.f64 (sin.f64 ky) (sin.f64 th))
(sin.f64 ky)
ky
(sin.f64 th)
th
(sqrt.f64 #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))
#s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))
(fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))
#s(literal -1/2 binary64)
(cos.f64 (*.f64 ky #s(literal -2 binary64)))
(*.f64 ky #s(literal -2 binary64))
#s(literal -2 binary64)
#s(literal 1/2 binary64)
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 (sqrt.f64 (/.f64 #s(literal 2 binary64) (-.f64 (-.f64 #s(literal 2 binary64) (cos.f64 (+.f64 kx kx))) (cos.f64 (+.f64 ky ky))))) (.f64 (sin.f64 ky) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 th (*.f64 th #s(literal 1/120 binary64)) #s(literal -1/6 binary64))) th))))
(.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky))
(*.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 2 binary64) (-.f64 (-.f64 #s(literal 2 binary64) (cos.f64 (+.f64 kx kx))) (cos.f64 (+.f64 ky ky))))))
(sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))))
(sqrt.f64 (/.f64 #s(literal 2 binary64) (-.f64 (-.f64 #s(literal 2 binary64) (cos.f64 (+.f64 kx kx))) (cos.f64 (+.f64 ky ky)))))
(/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))
(/.f64 #s(literal 2 binary64) (-.f64 (-.f64 #s(literal 2 binary64) (cos.f64 (+.f64 kx kx))) (cos.f64 (+.f64 ky ky))))
#s(literal 1 binary64)
(fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))
(fma.f64 #s(literal -1/2 binary64) (+.f64 (cos.f64 (+.f64 kx kx)) (cos.f64 (+.f64 ky ky))) #s(literal 1 binary64))
(-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))
(cos.f64 (+.f64 kx kx))
(+.f64 kx kx)
kx
#s(literal 1/2 binary64)
(+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))
(fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))
(*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))
#s(literal -1/2 binary64)
(cos.f64 (+.f64 ky ky))
(+.f64 ky ky)
ky
(sin.f64 ky)
#s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (*.f64 th th) #s(literal -1/6 binary64))) th))
#s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 th (*.f64 th #s(literal 1/120 binary64)) #s(literal -1/6 binary64))) th))
(fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (*.f64 th th) #s(literal -1/6 binary64))) th)
(fma.f64 th (.f64 (.f64 th th) (fma.f64 th (*.f64 th #s(literal 1/120 binary64)) #s(literal -1/6 binary64))) th)
th
(.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (*.f64 th th) #s(literal -1/6 binary64)))
(.f64 (.f64 th th) (fma.f64 th (*.f64 th #s(literal 1/120 binary64)) #s(literal -1/6 binary64)))
(*.f64 th th)
(fma.f64 #s(literal 1/120 binary64) (*.f64 th th) #s(literal -1/6 binary64))
(fma.f64 th (*.f64 th #s(literal 1/120 binary64)) #s(literal -1/6 binary64))
#s(literal 1/120 binary64)
#s(literal -1/6 binary64)

localize852.0ms (6.3%)

Memory

-127.9MiB live, 909.4MiB allocated

Localize:

Found 20 expressions of interest:

New	Metric	Score
accuracy	2.5216530197617963	(sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))))
accuracy	15.105099720351829	(-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))
accuracy	15.211989615132087	(+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))
accuracy	28.40610016922626	#s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (*.f64 th th) #s(literal -1/6 binary64))) th))
accuracy	2.317092876196292	(sqrt.f64 #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))
accuracy	2.911535219162689	(/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))
accuracy	15.211989615132087	(fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))
accuracy	34.21816427271731	#s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))
accuracy	1.0	(/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64)))
accuracy	17.837151065794906	(/.f64 (fma.f64 (*.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)
accuracy	31.930084392378383	#s(approx (sqrt (/ 1 (- 1 (cos (* kx -2))))) (/.f64 (fma.f64 (*.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx))
accuracy	41.37087193415821	#s(approx (* (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64)))))
accuracy	0.1484375	(.f64 #s(literal -1/6 binary64) (.f64 th (*.f64 th th)))
accuracy	28.49151913691686	#s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 #s(literal -1/6 binary64) (.f64 th (*.f64 th th)))))
accuracy	33.50186770857604	#s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 #s(literal -1/6 binary64) (.f64 th (*.f64 th th))))
accuracy	42.97460894060188	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 #s(literal -1/6 binary64) (.f64 th (*.f64 th th))))))
accuracy	0.29916000976844204	(pow.f64 (sin.f64 ky) #s(literal 2 binary64))
accuracy	2.317092876196292	(sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))
accuracy	2.911535219162689	(/.f64 (*.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))))
accuracy	15.105099720351829	(-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))

Samples

512.0ms	119×	2	valid
65.0ms	74×	0	valid
61.0ms	45×	1	valid
40.0ms	18×	3	valid

Compiler

Compiled 519 to 70 computations (86.5% saved)

Precisions

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

ival-cos: 107.0ms (32.5% of total)

ival-mult: 59.0ms (17.9% of total)

adjust: 36.0ms (10.9% of total)

ival-add: 31.0ms (9.4% of total)

ival-sin: 26.0ms (7.9% of total)

ival-sqrt: 20.0ms (6.1% of total)

ival-div: 19.0ms (5.8% of total)

const: 17.0ms (5.2% of total)

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

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

exact: 1.0ms (0.3% of total)

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

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

series101.0ms (0.7%)

Memory

3.8MiB live, 84.9MiB allocated

Counts

27 → 540

Calls

Call 1

Inputs
#s(alt (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (patch (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #<representation binary64>) () ())
#s(alt (.f64 (sin.f64 ky) (sin.f64 th)) (patch (.f64 (sin.f64 ky) (sin.f64 th)) #<representation binary64>) () ())
#s(alt (sin.f64 ky) (patch (sin.f64 ky) #<representation binary64>) () ())
#s(alt (sin.f64 th) (patch (sin.f64 th) #<representation binary64>) () ())
#s(alt #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 #s(literal -1/6 binary64) (.f64 th (.f64 th th)))))) (patch #s(approx ( (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 #s(literal -1/6 binary64) (.f64 th (*.f64 th th)))))) #<representation binary64>) () ())
#s(alt #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 #s(literal -1/6 binary64) (.f64 th (.f64 th th))))) (patch #s(approx (sin th) #s(approx (+ ( th (* -1/6 (* th th))) th) (.f64 #s(literal -1/6 binary64) (.f64 th (*.f64 th th))))) #<representation binary64>) () ())
#s(alt #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 #s(literal -1/6 binary64) (.f64 th (.f64 th th)))) (patch #s(approx (+ ( th (* -1/6 (* th th))) th) (.f64 #s(literal -1/6 binary64) (.f64 th (*.f64 th th)))) #<representation binary64>) () ())
#s(alt (.f64 #s(literal -1/6 binary64) (.f64 th (.f64 th th))) (patch (.f64 #s(literal -1/6 binary64) (.f64 th (.f64 th th))) #<representation binary64>) () ())
#s(alt (.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th)) (patch (.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th)) #<representation binary64>) () ())
#s(alt #s(approx (* (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (patch #s(approx (* (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) #<representation binary64>) () ())
#s(alt (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64)))) (patch (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64)))) #<representation binary64>) () ())
#s(alt #s(approx (sqrt (/ 1 (- 1 (cos (* kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (patch #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (*.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) #<representation binary64>) () ())
#s(alt (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) (patch (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) #<representation binary64>) () ())
#s(alt (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) (patch (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) #<representation binary64>) () ())
#s(alt (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) (patch (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) #<representation binary64>) () ())
#s(alt (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))) (patch (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))) #<representation binary64>) () ())
#s(alt (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th))) (patch (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th))) #<representation binary64>) () ())
#s(alt (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) (patch (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #<representation binary64>) () ())
#s(alt (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))) (patch (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))) #<representation binary64>) () ())
#s(alt (pow.f64 (sin.f64 ky) #s(literal 2 binary64)) (patch (pow.f64 (sin.f64 ky) #s(literal 2 binary64)) #<representation binary64>) () ())
#s(alt (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx) (patch (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx) #<representation binary64>) () ())
#s(alt (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (patch (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) #<representation binary64>) () ())
#s(alt #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))) (patch #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))) #<representation binary64>) () ())
#s(alt (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) (patch (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #<representation binary64>) () ())
#s(alt (sqrt.f64 #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))) (patch (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))) #<representation binary64>) () ())
#s(alt #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th)) (patch #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th)) #<representation binary64>) () ())
#s(alt (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (patch (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) #<representation binary64>) () ())

Outputs
#s(alt (* (* ky (* (sin th) (sqrt 2))) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))) (taylor 0 ky) (#s(alt (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (patch (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* ky (+ (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* -2 (* (/ (sin th) (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (* -1/6 (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))))))) (taylor 0 ky) (#s(alt (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (patch (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* ky (+ (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* -2 (* (/ (sin th) (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (+ (* -1/6 (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (* (pow ky 2) (+ (* 1/120 (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (+ (* 1/3 (* (/ (sin th) (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (* 1/2 (* (/ (* (sin th) (- (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (* 4 (/ 1 (* (pow (sqrt 2) 2) (pow (- 1 (cos (* 2 kx))) 3)))))) (sqrt 2)) (sqrt (- 1 (cos (* 2 kx)))))))))))))) (taylor 0 ky) (#s(alt (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (patch (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* ky (+ (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* -2 (* (/ (sin th) (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (+ (* -1/6 (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (* (pow ky 2) (+ (* 1/120 (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (+ (* 1/3 (* (/ (sin th) (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (+ (* 1/2 (* (/ (* (sin th) (- (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (* 4 (/ 1 (* (pow (sqrt 2) 2) (pow (- 1 (cos (* 2 kx))) 3)))))) (sqrt 2)) (sqrt (- 1 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* -1/2 (* (/ (* (sin th) (+ (* -2 (/ (- (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (* 4 (/ 1 (* (pow (sqrt 2) 2) (pow (- 1 (cos (* 2 kx))) 3))))) (* (pow (sqrt 2) 2) (- 1 (cos (* 2 kx)))))) (+ (* 8/45 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (+ (* 2 (/ (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (- 1 (cos (* 2 kx))))) (* 8/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))))) (sqrt 2)) (sqrt (- 1 (cos (* 2 kx)))))) (+ (* -1/12 (* (/ (* (sin th) (- (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (* 4 (/ 1 (* (pow (sqrt 2) 2) (pow (- 1 (cos (* 2 kx))) 3)))))) (sqrt 2)) (sqrt (- 1 (cos (* 2 kx)))))) (+ (* -1/60 (* (/ (sin th) (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (* -1/5040 (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))))))))))))))))) (taylor 0 ky) (#s(alt (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (patch (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 kx)))) (pow (sin ky) 2))))) (taylor inf ky) (#s(alt (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (patch (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 kx)))) (pow (sin ky) 2))))) (taylor inf ky) (#s(alt (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (patch (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 kx)))) (pow (sin ky) 2))))) (taylor inf ky) (#s(alt (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (patch (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 kx)))) (pow (sin ky) 2))))) (taylor inf ky) (#s(alt (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (patch (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 kx)))) (pow (sin ky) 2))))) (taylor -inf ky) (#s(alt (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (patch (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 kx)))) (pow (sin ky) 2))))) (taylor -inf ky) (#s(alt (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (patch (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 kx)))) (pow (sin ky) 2))))) (taylor -inf ky) (#s(alt (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (patch (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 kx)))) (pow (sin ky) 2))))) (taylor -inf ky) (#s(alt (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (patch (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (* th (sin ky)) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 kx)))) (pow (sin ky) 2))))) (taylor 0 th) (#s(alt (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (patch (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* th (+ (* -1/6 (* (* (pow th 2) (sin ky)) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 kx)))) (pow (sin ky) 2)))))) (* (sin ky) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 kx)))) (pow (sin ky) 2))))))) (taylor 0 th) (#s(alt (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (patch (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* th (+ (* (sin ky) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 kx)))) (pow (sin ky) 2))))) (* (pow th 2) (+ (* -1/6 (* (sin ky) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 kx)))) (pow (sin ky) 2)))))) (* 1/120 (* (* (pow th 2) (sin ky)) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 kx)))) (pow (sin ky) 2)))))))))) (taylor 0 th) (#s(alt (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (patch (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* th (+ (* (sin ky) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 kx)))) (pow (sin ky) 2))))) (* (pow th 2) (+ (* -1/6 (* (sin ky) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 kx)))) (pow (sin ky) 2)))))) (* (pow th 2) (+ (* -1/5040 (* (* (pow th 2) (sin ky)) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 kx)))) (pow (sin ky) 2)))))) (* 1/120 (* (sin ky) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 kx)))) (pow (sin ky) 2)))))))))))) (taylor 0 th) (#s(alt (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (patch (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 kx)))) (pow (sin ky) 2))))) (taylor inf th) (#s(alt (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (patch (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 kx)))) (pow (sin ky) 2))))) (taylor inf th) (#s(alt (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (patch (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 kx)))) (pow (sin ky) 2))))) (taylor inf th) (#s(alt (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (patch (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 kx)))) (pow (sin ky) 2))))) (taylor inf th) (#s(alt (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (patch (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 kx)))) (pow (sin ky) 2))))) (taylor -inf th) (#s(alt (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (patch (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 kx)))) (pow (sin ky) 2))))) (taylor -inf th) (#s(alt (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (patch (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 kx)))) (pow (sin ky) 2))))) (taylor -inf th) (#s(alt (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (patch (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 kx)))) (pow (sin ky) 2))))) (taylor -inf th) (#s(alt (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (patch (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (sin th) (taylor 0 kx) (#s(alt (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (patch (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (sin th) (* -1/2 (/ (* (pow kx 2) (sin th)) (pow (sin ky) 2)))) (taylor 0 kx) (#s(alt (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (patch (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (sin th) (* (pow kx 2) (+ (* -1/2 (/ (sin th) (pow (sin ky) 2))) (* 1/2 (* (pow kx 2) (* (pow (sin ky) 2) (* (sin th) (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (* 3/4 (/ 1 (pow (sin ky) 6))))))))))) (taylor 0 kx) (#s(alt (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (patch (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (sin th) (* (pow kx 2) (+ (* -1/2 (/ (sin th) (pow (sin ky) 2))) (* (pow kx 2) (+ (* -1/2 (* (pow kx 2) (* (pow (sin ky) 2) (* (sin th) (+ (* -1/2 (/ (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (* 3/4 (/ 1 (pow (sin ky) 6)))) (pow (sin ky) 2))) (+ (* 2/45 (/ 1 (pow (sin ky) 4))) (+ (* 2/3 (/ 1 (pow (sin ky) 6))) (/ 1 (pow (sin ky) 8))))))))) (* 1/2 (* (pow (sin ky) 2) (* (sin th) (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (* 3/4 (/ 1 (pow (sin ky) 6)))))))))))) (taylor 0 kx) (#s(alt (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (patch (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 kx)))) (pow (sin ky) 2))))) (taylor inf kx) (#s(alt (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (patch (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 kx)))) (pow (sin ky) 2))))) (taylor inf kx) (#s(alt (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (patch (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 kx)))) (pow (sin ky) 2))))) (taylor inf kx) (#s(alt (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (patch (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 kx)))) (pow (sin ky) 2))))) (taylor inf kx) (#s(alt (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (patch (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (neg (* -2 kx))))) (pow (sin ky) 2))))) (taylor -inf kx) (#s(alt (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (patch (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (neg (* -2 kx))))) (pow (sin ky) 2))))) (taylor -inf kx) (#s(alt (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (patch (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (neg (* -2 kx))))) (pow (sin ky) 2))))) (taylor -inf kx) (#s(alt (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (patch (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (neg (* -2 kx))))) (pow (sin ky) 2))))) (taylor -inf kx) (#s(alt (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (patch (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* ky (sin th)) (taylor 0 ky) (#s(alt (.f64 (sin.f64 ky) (sin.f64 th)) (patch (.f64 (sin.f64 ky) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* ky (+ (sin th) (* -1/6 (* (pow ky 2) (sin th))))) (taylor 0 ky) (#s(alt (.f64 (sin.f64 ky) (sin.f64 th)) (patch (.f64 (sin.f64 ky) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* ky (+ (sin th) (* (pow ky 2) (+ (* -1/6 (sin th)) (* 1/120 (* (pow ky 2) (sin th))))))) (taylor 0 ky) (#s(alt (.f64 (sin.f64 ky) (sin.f64 th)) (patch (.f64 (sin.f64 ky) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* ky (+ (sin th) (* (pow ky 2) (+ (* -1/6 (sin th)) (* (pow ky 2) (+ (* -1/5040 (* (pow ky 2) (sin th))) (* 1/120 (sin th)))))))) (taylor 0 ky) (#s(alt (.f64 (sin.f64 ky) (sin.f64 th)) (patch (.f64 (sin.f64 ky) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sin th)) (taylor inf ky) (#s(alt (.f64 (sin.f64 ky) (sin.f64 th)) (patch (.f64 (sin.f64 ky) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sin th)) (taylor inf ky) (#s(alt (.f64 (sin.f64 ky) (sin.f64 th)) (patch (.f64 (sin.f64 ky) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sin th)) (taylor inf ky) (#s(alt (.f64 (sin.f64 ky) (sin.f64 th)) (patch (.f64 (sin.f64 ky) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sin th)) (taylor inf ky) (#s(alt (.f64 (sin.f64 ky) (sin.f64 th)) (patch (.f64 (sin.f64 ky) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sin th)) (taylor -inf ky) (#s(alt (.f64 (sin.f64 ky) (sin.f64 th)) (patch (.f64 (sin.f64 ky) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sin th)) (taylor -inf ky) (#s(alt (.f64 (sin.f64 ky) (sin.f64 th)) (patch (.f64 (sin.f64 ky) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sin th)) (taylor -inf ky) (#s(alt (.f64 (sin.f64 ky) (sin.f64 th)) (patch (.f64 (sin.f64 ky) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sin th)) (taylor -inf ky) (#s(alt (.f64 (sin.f64 ky) (sin.f64 th)) (patch (.f64 (sin.f64 ky) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* th (sin ky)) (taylor 0 th) (#s(alt (.f64 (sin.f64 ky) (sin.f64 th)) (patch (.f64 (sin.f64 ky) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* th (+ (sin ky) (* -1/6 (* (pow th 2) (sin ky))))) (taylor 0 th) (#s(alt (.f64 (sin.f64 ky) (sin.f64 th)) (patch (.f64 (sin.f64 ky) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* th (+ (sin ky) (* (pow th 2) (+ (* -1/6 (sin ky)) (* 1/120 (* (pow th 2) (sin ky))))))) (taylor 0 th) (#s(alt (.f64 (sin.f64 ky) (sin.f64 th)) (patch (.f64 (sin.f64 ky) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* th (+ (sin ky) (* (pow th 2) (+ (* -1/6 (sin ky)) (* (pow th 2) (+ (* -1/5040 (* (pow th 2) (sin ky))) (* 1/120 (sin ky)))))))) (taylor 0 th) (#s(alt (.f64 (sin.f64 ky) (sin.f64 th)) (patch (.f64 (sin.f64 ky) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sin th)) (taylor inf th) (#s(alt (.f64 (sin.f64 ky) (sin.f64 th)) (patch (.f64 (sin.f64 ky) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sin th)) (taylor inf th) (#s(alt (.f64 (sin.f64 ky) (sin.f64 th)) (patch (.f64 (sin.f64 ky) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sin th)) (taylor inf th) (#s(alt (.f64 (sin.f64 ky) (sin.f64 th)) (patch (.f64 (sin.f64 ky) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sin th)) (taylor inf th) (#s(alt (.f64 (sin.f64 ky) (sin.f64 th)) (patch (.f64 (sin.f64 ky) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sin th)) (taylor -inf th) (#s(alt (.f64 (sin.f64 ky) (sin.f64 th)) (patch (.f64 (sin.f64 ky) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sin th)) (taylor -inf th) (#s(alt (.f64 (sin.f64 ky) (sin.f64 th)) (patch (.f64 (sin.f64 ky) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sin th)) (taylor -inf th) (#s(alt (.f64 (sin.f64 ky) (sin.f64 th)) (patch (.f64 (sin.f64 ky) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sin th)) (taylor -inf th) (#s(alt (.f64 (sin.f64 ky) (sin.f64 th)) (patch (.f64 (sin.f64 ky) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt ky (taylor 0 ky) (#s(alt (sin.f64 ky) (patch (sin.f64 ky) #<representation binary64>) () ())) ())
#s(alt (* ky (+ 1 (* -1/6 (pow ky 2)))) (taylor 0 ky) (#s(alt (sin.f64 ky) (patch (sin.f64 ky) #<representation binary64>) () ())) ())
#s(alt (* ky (+ 1 (* (pow ky 2) (- (* 1/120 (pow ky 2)) 1/6)))) (taylor 0 ky) (#s(alt (sin.f64 ky) (patch (sin.f64 ky) #<representation binary64>) () ())) ())
#s(alt (* ky (+ 1 (* (pow ky 2) (- (* (pow ky 2) (+ 1/120 (* -1/5040 (pow ky 2)))) 1/6)))) (taylor 0 ky) (#s(alt (sin.f64 ky) (patch (sin.f64 ky) #<representation binary64>) () ())) ())
#s(alt (sin ky) (taylor inf ky) (#s(alt (sin.f64 ky) (patch (sin.f64 ky) #<representation binary64>) () ())) ())
#s(alt (sin ky) (taylor inf ky) (#s(alt (sin.f64 ky) (patch (sin.f64 ky) #<representation binary64>) () ())) ())
#s(alt (sin ky) (taylor inf ky) (#s(alt (sin.f64 ky) (patch (sin.f64 ky) #<representation binary64>) () ())) ())
#s(alt (sin ky) (taylor inf ky) (#s(alt (sin.f64 ky) (patch (sin.f64 ky) #<representation binary64>) () ())) ())
#s(alt (sin ky) (taylor -inf ky) (#s(alt (sin.f64 ky) (patch (sin.f64 ky) #<representation binary64>) () ())) ())
#s(alt (sin ky) (taylor -inf ky) (#s(alt (sin.f64 ky) (patch (sin.f64 ky) #<representation binary64>) () ())) ())
#s(alt (sin ky) (taylor -inf ky) (#s(alt (sin.f64 ky) (patch (sin.f64 ky) #<representation binary64>) () ())) ())
#s(alt (sin ky) (taylor -inf ky) (#s(alt (sin.f64 ky) (patch (sin.f64 ky) #<representation binary64>) () ())) ())
#s(alt th (taylor 0 th) (#s(alt (sin.f64 th) (patch (sin.f64 th) #<representation binary64>) () ())) ())
#s(alt (* th (+ 1 (* -1/6 (pow th 2)))) (taylor 0 th) (#s(alt (sin.f64 th) (patch (sin.f64 th) #<representation binary64>) () ())) ())
#s(alt (* th (+ 1 (* (pow th 2) (- (* 1/120 (pow th 2)) 1/6)))) (taylor 0 th) (#s(alt (sin.f64 th) (patch (sin.f64 th) #<representation binary64>) () ())) ())
#s(alt (* th (+ 1 (* (pow th 2) (- (* (pow th 2) (+ 1/120 (* -1/5040 (pow th 2)))) 1/6)))) (taylor 0 th) (#s(alt (sin.f64 th) (patch (sin.f64 th) #<representation binary64>) () ())) ())
#s(alt (sin th) (taylor inf th) (#s(alt (sin.f64 th) (patch (sin.f64 th) #<representation binary64>) () ())) ())
#s(alt (sin th) (taylor inf th) (#s(alt (sin.f64 th) (patch (sin.f64 th) #<representation binary64>) () ())) ())
#s(alt (sin th) (taylor inf th) (#s(alt (sin.f64 th) (patch (sin.f64 th) #<representation binary64>) () ())) ())
#s(alt (sin th) (taylor inf th) (#s(alt (sin.f64 th) (patch (sin.f64 th) #<representation binary64>) () ())) ())
#s(alt (sin th) (taylor -inf th) (#s(alt (sin.f64 th) (patch (sin.f64 th) #<representation binary64>) () ())) ())
#s(alt (sin th) (taylor -inf th) (#s(alt (sin.f64 th) (patch (sin.f64 th) #<representation binary64>) () ())) ())
#s(alt (sin th) (taylor -inf th) (#s(alt (sin.f64 th) (patch (sin.f64 th) #<representation binary64>) () ())) ())
#s(alt (sin th) (taylor -inf th) (#s(alt (sin.f64 th) (patch (sin.f64 th) #<representation binary64>) () ())) ())
#s(alt (/ (* ky (sin th)) (sin kx)) (taylor 0 ky) (#s(alt #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 #s(literal -1/6 binary64) (.f64 th (.f64 th th)))))) (patch #s(approx ( (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 #s(literal -1/6 binary64) (.f64 th (*.f64 th th)))))) #<representation binary64>) () ())) ())
#s(alt (* ky (+ (* (pow ky 2) (+ (* -1/2 (/ (sin th) (pow (sin kx) 3))) (* -1/6 (/ (sin th) (sin kx))))) (/ (sin th) (sin kx)))) (taylor 0 ky) (#s(alt #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 #s(literal -1/6 binary64) (.f64 th (.f64 th th)))))) (patch #s(approx ( (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 #s(literal -1/6 binary64) (.f64 th (*.f64 th th)))))) #<representation binary64>) () ())) ())
#s(alt (* ky (+ (* (pow ky 2) (+ (* -1/2 (/ (sin th) (pow (sin kx) 3))) (+ (* -1/6 (/ (sin th) (sin kx))) (* (pow ky 2) (+ (* 1/120 (/ (sin th) (sin kx))) (+ (* 1/12 (/ (sin th) (pow (sin kx) 3))) (* 1/2 (* (sin kx) (* (sin th) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6))))))))))))) (/ (sin th) (sin kx)))) (taylor 0 ky) (#s(alt #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 #s(literal -1/6 binary64) (.f64 th (.f64 th th)))))) (patch #s(approx ( (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 #s(literal -1/6 binary64) (.f64 th (*.f64 th th)))))) #<representation binary64>) () ())) ())
#s(alt (* ky (+ (* (pow ky 2) (+ (* -1/2 (/ (sin th) (pow (sin kx) 3))) (+ (* -1/6 (/ (sin th) (sin kx))) (* (pow ky 2) (+ (* 1/120 (/ (sin th) (sin kx))) (+ (* 1/12 (/ (sin th) (pow (sin kx) 3))) (+ (* 1/2 (* (sin kx) (* (sin th) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6))))))) (* (pow ky 2) (+ (* -1/2 (* (sin kx) (* (sin th) (+ (* -1/2 (/ (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6)))) (pow (sin kx) 2))) (+ (* 2/45 (/ 1 (pow (sin kx) 4))) (+ (* 2/3 (/ 1 (pow (sin kx) 6))) (/ 1 (pow (sin kx) 8)))))))) (+ (* -1/12 (* (sin kx) (* (sin th) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6))))))) (+ (* -1/240 (/ (sin th) (pow (sin kx) 3))) (* -1/5040 (/ (sin th) (sin kx)))))))))))))) (/ (sin th) (sin kx)))) (taylor 0 ky) (#s(alt #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 #s(literal -1/6 binary64) (.f64 th (.f64 th th)))))) (patch #s(approx ( (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 #s(literal -1/6 binary64) (.f64 th (*.f64 th th)))))) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor inf ky) (#s(alt #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 #s(literal -1/6 binary64) (.f64 th (.f64 th th)))))) (patch #s(approx ( (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 #s(literal -1/6 binary64) (.f64 th (*.f64 th th)))))) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor inf ky) (#s(alt #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 #s(literal -1/6 binary64) (.f64 th (.f64 th th)))))) (patch #s(approx ( (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 #s(literal -1/6 binary64) (.f64 th (*.f64 th th)))))) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor inf ky) (#s(alt #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 #s(literal -1/6 binary64) (.f64 th (.f64 th th)))))) (patch #s(approx ( (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 #s(literal -1/6 binary64) (.f64 th (*.f64 th th)))))) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor inf ky) (#s(alt #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 #s(literal -1/6 binary64) (.f64 th (.f64 th th)))))) (patch #s(approx ( (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 #s(literal -1/6 binary64) (.f64 th (*.f64 th th)))))) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor -inf ky) (#s(alt #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 #s(literal -1/6 binary64) (.f64 th (.f64 th th)))))) (patch #s(approx ( (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 #s(literal -1/6 binary64) (.f64 th (*.f64 th th)))))) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor -inf ky) (#s(alt #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 #s(literal -1/6 binary64) (.f64 th (.f64 th th)))))) (patch #s(approx ( (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 #s(literal -1/6 binary64) (.f64 th (*.f64 th th)))))) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor -inf ky) (#s(alt #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 #s(literal -1/6 binary64) (.f64 th (.f64 th th)))))) (patch #s(approx ( (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 #s(literal -1/6 binary64) (.f64 th (*.f64 th th)))))) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor -inf ky) (#s(alt #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 #s(literal -1/6 binary64) (.f64 th (.f64 th th)))))) (patch #s(approx ( (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 #s(literal -1/6 binary64) (.f64 th (*.f64 th th)))))) #<representation binary64>) () ())) ())
#s(alt (sin th) (taylor 0 kx) (#s(alt #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 #s(literal -1/6 binary64) (.f64 th (.f64 th th)))))) (patch #s(approx ( (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 #s(literal -1/6 binary64) (.f64 th (*.f64 th th)))))) #<representation binary64>) () ())) ())
#s(alt (+ (sin th) (* -1/2 (/ (* (pow kx 2) (sin th)) (pow (sin ky) 2)))) (taylor 0 kx) (#s(alt #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 #s(literal -1/6 binary64) (.f64 th (.f64 th th)))))) (patch #s(approx ( (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 #s(literal -1/6 binary64) (.f64 th (*.f64 th th)))))) #<representation binary64>) () ())) ())
#s(alt (+ (sin th) (* (pow kx 2) (+ (* -1/2 (/ (sin th) (pow (sin ky) 2))) (* 1/2 (* (pow kx 2) (* (pow (sin ky) 2) (* (sin th) (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (* 3/4 (/ 1 (pow (sin ky) 6))))))))))) (taylor 0 kx) (#s(alt #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 #s(literal -1/6 binary64) (.f64 th (.f64 th th)))))) (patch #s(approx ( (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 #s(literal -1/6 binary64) (.f64 th (*.f64 th th)))))) #<representation binary64>) () ())) ())
#s(alt (+ (sin th) (* (pow kx 2) (+ (* -1/2 (/ (sin th) (pow (sin ky) 2))) (* (pow kx 2) (+ (* -1/2 (* (pow kx 2) (* (pow (sin ky) 2) (* (sin th) (+ (* -1/2 (/ (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (* 3/4 (/ 1 (pow (sin ky) 6)))) (pow (sin ky) 2))) (+ (* 2/45 (/ 1 (pow (sin ky) 4))) (+ (* 2/3 (/ 1 (pow (sin ky) 6))) (/ 1 (pow (sin ky) 8))))))))) (* 1/2 (* (pow (sin ky) 2) (* (sin th) (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (* 3/4 (/ 1 (pow (sin ky) 6)))))))))))) (taylor 0 kx) (#s(alt #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 #s(literal -1/6 binary64) (.f64 th (.f64 th th)))))) (patch #s(approx ( (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 #s(literal -1/6 binary64) (.f64 th (*.f64 th th)))))) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor inf kx) (#s(alt #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 #s(literal -1/6 binary64) (.f64 th (.f64 th th)))))) (patch #s(approx ( (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 #s(literal -1/6 binary64) (.f64 th (*.f64 th th)))))) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor inf kx) (#s(alt #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 #s(literal -1/6 binary64) (.f64 th (.f64 th th)))))) (patch #s(approx ( (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 #s(literal -1/6 binary64) (.f64 th (*.f64 th th)))))) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor inf kx) (#s(alt #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 #s(literal -1/6 binary64) (.f64 th (.f64 th th)))))) (patch #s(approx ( (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 #s(literal -1/6 binary64) (.f64 th (*.f64 th th)))))) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor inf kx) (#s(alt #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 #s(literal -1/6 binary64) (.f64 th (.f64 th th)))))) (patch #s(approx ( (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 #s(literal -1/6 binary64) (.f64 th (*.f64 th th)))))) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor -inf kx) (#s(alt #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 #s(literal -1/6 binary64) (.f64 th (.f64 th th)))))) (patch #s(approx ( (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 #s(literal -1/6 binary64) (.f64 th (*.f64 th th)))))) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor -inf kx) (#s(alt #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 #s(literal -1/6 binary64) (.f64 th (.f64 th th)))))) (patch #s(approx ( (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 #s(literal -1/6 binary64) (.f64 th (*.f64 th th)))))) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor -inf kx) (#s(alt #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 #s(literal -1/6 binary64) (.f64 th (.f64 th th)))))) (patch #s(approx ( (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 #s(literal -1/6 binary64) (.f64 th (*.f64 th th)))))) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor -inf kx) (#s(alt #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 #s(literal -1/6 binary64) (.f64 th (.f64 th th)))))) (patch #s(approx ( (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 #s(literal -1/6 binary64) (.f64 th (*.f64 th th)))))) #<representation binary64>) () ())) ())
#s(alt (* (* th (sin ky)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor 0 th) (#s(alt #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 #s(literal -1/6 binary64) (.f64 th (.f64 th th)))))) (patch #s(approx ( (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 #s(literal -1/6 binary64) (.f64 th (*.f64 th th)))))) #<representation binary64>) () ())) ())
#s(alt (* th (+ (* -1/6 (* (* (pow th 2) (sin ky)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))) (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))))) (taylor 0 th) (#s(alt #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 #s(literal -1/6 binary64) (.f64 th (.f64 th th)))))) (patch #s(approx ( (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 #s(literal -1/6 binary64) (.f64 th (*.f64 th th)))))) #<representation binary64>) () ())) ())
#s(alt (* th (+ (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (* (pow th 2) (+ (* -1/6 (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))) (* 1/120 (* (* (pow th 2) (sin ky)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))))))) (taylor 0 th) (#s(alt #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 #s(literal -1/6 binary64) (.f64 th (.f64 th th)))))) (patch #s(approx ( (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 #s(literal -1/6 binary64) (.f64 th (*.f64 th th)))))) #<representation binary64>) () ())) ())
#s(alt (* th (+ (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (* (pow th 2) (+ (* -1/6 (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))) (* (pow th 2) (+ (* -1/5040 (* (* (pow th 2) (sin ky)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))) (* 1/120 (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))))))))) (taylor 0 th) (#s(alt #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 #s(literal -1/6 binary64) (.f64 th (.f64 th th)))))) (patch #s(approx ( (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 #s(literal -1/6 binary64) (.f64 th (*.f64 th th)))))) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor inf th) (#s(alt #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 #s(literal -1/6 binary64) (.f64 th (.f64 th th)))))) (patch #s(approx ( (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 #s(literal -1/6 binary64) (.f64 th (*.f64 th th)))))) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor inf th) (#s(alt #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 #s(literal -1/6 binary64) (.f64 th (.f64 th th)))))) (patch #s(approx ( (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 #s(literal -1/6 binary64) (.f64 th (*.f64 th th)))))) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor inf th) (#s(alt #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 #s(literal -1/6 binary64) (.f64 th (.f64 th th)))))) (patch #s(approx ( (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 #s(literal -1/6 binary64) (.f64 th (*.f64 th th)))))) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor inf th) (#s(alt #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 #s(literal -1/6 binary64) (.f64 th (.f64 th th)))))) (patch #s(approx ( (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 #s(literal -1/6 binary64) (.f64 th (*.f64 th th)))))) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor -inf th) (#s(alt #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 #s(literal -1/6 binary64) (.f64 th (.f64 th th)))))) (patch #s(approx ( (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 #s(literal -1/6 binary64) (.f64 th (*.f64 th th)))))) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor -inf th) (#s(alt #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 #s(literal -1/6 binary64) (.f64 th (.f64 th th)))))) (patch #s(approx ( (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 #s(literal -1/6 binary64) (.f64 th (*.f64 th th)))))) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor -inf th) (#s(alt #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 #s(literal -1/6 binary64) (.f64 th (.f64 th th)))))) (patch #s(approx ( (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 #s(literal -1/6 binary64) (.f64 th (*.f64 th th)))))) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (taylor -inf th) (#s(alt #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 #s(literal -1/6 binary64) (.f64 th (.f64 th th)))))) (patch #s(approx ( (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 #s(literal -1/6 binary64) (.f64 th (*.f64 th th)))))) #<representation binary64>) () ())) ())
#s(alt th (taylor 0 th) (#s(alt #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 #s(literal -1/6 binary64) (.f64 th (.f64 th th))))) (patch #s(approx (sin th) #s(approx (+ ( th (* -1/6 (* th th))) th) (.f64 #s(literal -1/6 binary64) (.f64 th (*.f64 th th))))) #<representation binary64>) () ())) ())
#s(alt (* th (+ 1 (* -1/6 (pow th 2)))) (taylor 0 th) (#s(alt #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 #s(literal -1/6 binary64) (.f64 th (.f64 th th))))) (patch #s(approx (sin th) #s(approx (+ ( th (* -1/6 (* th th))) th) (.f64 #s(literal -1/6 binary64) (.f64 th (*.f64 th th))))) #<representation binary64>) () ())) ())
#s(alt (* th (+ 1 (* (pow th 2) (- (* 1/120 (pow th 2)) 1/6)))) (taylor 0 th) (#s(alt #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 #s(literal -1/6 binary64) (.f64 th (.f64 th th))))) (patch #s(approx (sin th) #s(approx (+ ( th (* -1/6 (* th th))) th) (.f64 #s(literal -1/6 binary64) (.f64 th (*.f64 th th))))) #<representation binary64>) () ())) ())
#s(alt (* th (+ 1 (* (pow th 2) (- (* (pow th 2) (+ 1/120 (* -1/5040 (pow th 2)))) 1/6)))) (taylor 0 th) (#s(alt #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 #s(literal -1/6 binary64) (.f64 th (.f64 th th))))) (patch #s(approx (sin th) #s(approx (+ ( th (* -1/6 (* th th))) th) (.f64 #s(literal -1/6 binary64) (.f64 th (*.f64 th th))))) #<representation binary64>) () ())) ())
#s(alt (sin th) (taylor inf th) (#s(alt #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 #s(literal -1/6 binary64) (.f64 th (.f64 th th))))) (patch #s(approx (sin th) #s(approx (+ ( th (* -1/6 (* th th))) th) (.f64 #s(literal -1/6 binary64) (.f64 th (*.f64 th th))))) #<representation binary64>) () ())) ())
#s(alt (sin th) (taylor inf th) (#s(alt #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 #s(literal -1/6 binary64) (.f64 th (.f64 th th))))) (patch #s(approx (sin th) #s(approx (+ ( th (* -1/6 (* th th))) th) (.f64 #s(literal -1/6 binary64) (.f64 th (*.f64 th th))))) #<representation binary64>) () ())) ())
#s(alt (sin th) (taylor inf th) (#s(alt #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 #s(literal -1/6 binary64) (.f64 th (.f64 th th))))) (patch #s(approx (sin th) #s(approx (+ ( th (* -1/6 (* th th))) th) (.f64 #s(literal -1/6 binary64) (.f64 th (*.f64 th th))))) #<representation binary64>) () ())) ())
#s(alt (sin th) (taylor inf th) (#s(alt #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 #s(literal -1/6 binary64) (.f64 th (.f64 th th))))) (patch #s(approx (sin th) #s(approx (+ ( th (* -1/6 (* th th))) th) (.f64 #s(literal -1/6 binary64) (.f64 th (*.f64 th th))))) #<representation binary64>) () ())) ())
#s(alt (sin th) (taylor -inf th) (#s(alt #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 #s(literal -1/6 binary64) (.f64 th (.f64 th th))))) (patch #s(approx (sin th) #s(approx (+ ( th (* -1/6 (* th th))) th) (.f64 #s(literal -1/6 binary64) (.f64 th (*.f64 th th))))) #<representation binary64>) () ())) ())
#s(alt (sin th) (taylor -inf th) (#s(alt #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 #s(literal -1/6 binary64) (.f64 th (.f64 th th))))) (patch #s(approx (sin th) #s(approx (+ ( th (* -1/6 (* th th))) th) (.f64 #s(literal -1/6 binary64) (.f64 th (*.f64 th th))))) #<representation binary64>) () ())) ())
#s(alt (sin th) (taylor -inf th) (#s(alt #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 #s(literal -1/6 binary64) (.f64 th (.f64 th th))))) (patch #s(approx (sin th) #s(approx (+ ( th (* -1/6 (* th th))) th) (.f64 #s(literal -1/6 binary64) (.f64 th (*.f64 th th))))) #<representation binary64>) () ())) ())
#s(alt (sin th) (taylor -inf th) (#s(alt #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 #s(literal -1/6 binary64) (.f64 th (.f64 th th))))) (patch #s(approx (sin th) #s(approx (+ ( th (* -1/6 (* th th))) th) (.f64 #s(literal -1/6 binary64) (.f64 th (*.f64 th th))))) #<representation binary64>) () ())) ())
#s(alt th (taylor 0 th) (#s(alt #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 #s(literal -1/6 binary64) (.f64 th (.f64 th th)))) (patch #s(approx (+ ( th (* -1/6 (* th th))) th) (.f64 #s(literal -1/6 binary64) (.f64 th (*.f64 th th)))) #<representation binary64>) () ())) ())
#s(alt (* th (+ 1 (* -1/6 (pow th 2)))) (taylor 0 th) (#s(alt #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 #s(literal -1/6 binary64) (.f64 th (.f64 th th)))) (patch #s(approx (+ ( th (* -1/6 (* th th))) th) (.f64 #s(literal -1/6 binary64) (.f64 th (*.f64 th th)))) #<representation binary64>) () ())) ())
#s(alt (* th (+ 1 (* -1/6 (pow th 2)))) (taylor 0 th) (#s(alt #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 #s(literal -1/6 binary64) (.f64 th (.f64 th th)))) (patch #s(approx (+ ( th (* -1/6 (* th th))) th) (.f64 #s(literal -1/6 binary64) (.f64 th (*.f64 th th)))) #<representation binary64>) () ())) ())
#s(alt (* th (+ 1 (* -1/6 (pow th 2)))) (taylor 0 th) (#s(alt #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 #s(literal -1/6 binary64) (.f64 th (.f64 th th)))) (patch #s(approx (+ ( th (* -1/6 (* th th))) th) (.f64 #s(literal -1/6 binary64) (.f64 th (*.f64 th th)))) #<representation binary64>) () ())) ())
#s(alt (* -1/6 (pow th 3)) (taylor inf th) (#s(alt #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 #s(literal -1/6 binary64) (.f64 th (.f64 th th)))) (patch #s(approx (+ ( th (* -1/6 (* th th))) th) (.f64 #s(literal -1/6 binary64) (.f64 th (*.f64 th th)))) #<representation binary64>) () ())) ())
#s(alt (* (pow th 3) (- (/ 1 (pow th 2)) 1/6)) (taylor inf th) (#s(alt #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 #s(literal -1/6 binary64) (.f64 th (.f64 th th)))) (patch #s(approx (+ ( th (* -1/6 (* th th))) th) (.f64 #s(literal -1/6 binary64) (.f64 th (*.f64 th th)))) #<representation binary64>) () ())) ())
#s(alt (* (pow th 3) (- (/ 1 (pow th 2)) 1/6)) (taylor inf th) (#s(alt #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 #s(literal -1/6 binary64) (.f64 th (.f64 th th)))) (patch #s(approx (+ ( th (* -1/6 (* th th))) th) (.f64 #s(literal -1/6 binary64) (.f64 th (*.f64 th th)))) #<representation binary64>) () ())) ())
#s(alt (* (pow th 3) (- (/ 1 (pow th 2)) 1/6)) (taylor inf th) (#s(alt #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 #s(literal -1/6 binary64) (.f64 th (.f64 th th)))) (patch #s(approx (+ ( th (* -1/6 (* th th))) th) (.f64 #s(literal -1/6 binary64) (.f64 th (*.f64 th th)))) #<representation binary64>) () ())) ())
#s(alt (* -1/6 (pow th 3)) (taylor -inf th) (#s(alt #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 #s(literal -1/6 binary64) (.f64 th (.f64 th th)))) (patch #s(approx (+ ( th (* -1/6 (* th th))) th) (.f64 #s(literal -1/6 binary64) (.f64 th (*.f64 th th)))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* (pow th 3) (- 1/6 (/ 1 (pow th 2))))) (taylor -inf th) (#s(alt #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 #s(literal -1/6 binary64) (.f64 th (.f64 th th)))) (patch #s(approx (+ ( th (* -1/6 (* th th))) th) (.f64 #s(literal -1/6 binary64) (.f64 th (*.f64 th th)))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* (pow th 3) (- 1/6 (/ 1 (pow th 2))))) (taylor -inf th) (#s(alt #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 #s(literal -1/6 binary64) (.f64 th (.f64 th th)))) (patch #s(approx (+ ( th (* -1/6 (* th th))) th) (.f64 #s(literal -1/6 binary64) (.f64 th (*.f64 th th)))) #<representation binary64>) () ())) ())
#s(alt (* -1 (* (pow th 3) (- 1/6 (/ 1 (pow th 2))))) (taylor -inf th) (#s(alt #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 #s(literal -1/6 binary64) (.f64 th (.f64 th th)))) (patch #s(approx (+ ( th (* -1/6 (* th th))) th) (.f64 #s(literal -1/6 binary64) (.f64 th (*.f64 th th)))) #<representation binary64>) () ())) ())
#s(alt (* -1/6 (pow th 3)) (taylor 0 th) (#s(alt (.f64 #s(literal -1/6 binary64) (.f64 th (.f64 th th))) (patch (.f64 #s(literal -1/6 binary64) (.f64 th (.f64 th th))) #<representation binary64>) () ())) ())
#s(alt (* -1/6 (pow th 3)) (taylor 0 th) (#s(alt (.f64 #s(literal -1/6 binary64) (.f64 th (.f64 th th))) (patch (.f64 #s(literal -1/6 binary64) (.f64 th (.f64 th th))) #<representation binary64>) () ())) ())
#s(alt (* -1/6 (pow th 3)) (taylor 0 th) (#s(alt (.f64 #s(literal -1/6 binary64) (.f64 th (.f64 th th))) (patch (.f64 #s(literal -1/6 binary64) (.f64 th (.f64 th th))) #<representation binary64>) () ())) ())
#s(alt (* -1/6 (pow th 3)) (taylor 0 th) (#s(alt (.f64 #s(literal -1/6 binary64) (.f64 th (.f64 th th))) (patch (.f64 #s(literal -1/6 binary64) (.f64 th (.f64 th th))) #<representation binary64>) () ())) ())
#s(alt (* -1/6 (pow th 3)) (taylor inf th) (#s(alt (.f64 #s(literal -1/6 binary64) (.f64 th (.f64 th th))) (patch (.f64 #s(literal -1/6 binary64) (.f64 th (.f64 th th))) #<representation binary64>) () ())) ())
#s(alt (* -1/6 (pow th 3)) (taylor inf th) (#s(alt (.f64 #s(literal -1/6 binary64) (.f64 th (.f64 th th))) (patch (.f64 #s(literal -1/6 binary64) (.f64 th (.f64 th th))) #<representation binary64>) () ())) ())
#s(alt (* -1/6 (pow th 3)) (taylor inf th) (#s(alt (.f64 #s(literal -1/6 binary64) (.f64 th (.f64 th th))) (patch (.f64 #s(literal -1/6 binary64) (.f64 th (.f64 th th))) #<representation binary64>) () ())) ())
#s(alt (* -1/6 (pow th 3)) (taylor inf th) (#s(alt (.f64 #s(literal -1/6 binary64) (.f64 th (.f64 th th))) (patch (.f64 #s(literal -1/6 binary64) (.f64 th (.f64 th th))) #<representation binary64>) () ())) ())
#s(alt (* -1/6 (pow th 3)) (taylor -inf th) (#s(alt (.f64 #s(literal -1/6 binary64) (.f64 th (.f64 th th))) (patch (.f64 #s(literal -1/6 binary64) (.f64 th (.f64 th th))) #<representation binary64>) () ())) ())
#s(alt (* -1/6 (pow th 3)) (taylor -inf th) (#s(alt (.f64 #s(literal -1/6 binary64) (.f64 th (.f64 th th))) (patch (.f64 #s(literal -1/6 binary64) (.f64 th (.f64 th th))) #<representation binary64>) () ())) ())
#s(alt (* -1/6 (pow th 3)) (taylor -inf th) (#s(alt (.f64 #s(literal -1/6 binary64) (.f64 th (.f64 th th))) (patch (.f64 #s(literal -1/6 binary64) (.f64 th (.f64 th th))) #<representation binary64>) () ())) ())
#s(alt (* -1/6 (pow th 3)) (taylor -inf th) (#s(alt (.f64 #s(literal -1/6 binary64) (.f64 th (.f64 th th))) (patch (.f64 #s(literal -1/6 binary64) (.f64 th (.f64 th th))) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky))))))) (taylor 0 kx) (#s(alt (.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th)) (patch (.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (+ (* -1/2 (* (* (pow kx 2) (* (sin ky) (sin th))) (sqrt (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))))) (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky)))))))) (taylor 0 kx) (#s(alt (.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th)) (patch (.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (+ (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky))))))) (* (pow kx 2) (+ (* -1/2 (* (* (sin ky) (sin th)) (sqrt (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))))) (* 1/2 (* (* (pow kx 2) (* (sin ky) (* (sin th) (+ (* 1/3 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2))) (* 3/4 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))))))) (sqrt (+ 1/2 (* -1/2 (cos (* 2 ky)))))))))) (taylor 0 kx) (#s(alt (.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th)) (patch (.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (+ (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky))))))) (* (pow kx 2) (+ (* -1/2 (* (* (sin ky) (sin th)) (sqrt (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))))) (* (pow kx 2) (+ (* -1/2 (* (* (pow kx 2) (* (sin ky) (* (sin th) (+ (* -1/2 (/ (+ (* 1/3 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2))) (* 3/4 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3)))) (+ 1/2 (* -1/2 (cos (* 2 ky)))))) (+ (* 2/45 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2))) (+ (* 2/3 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))) (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 4)))))))) (sqrt (+ 1/2 (* -1/2 (cos (* 2 ky))))))) (* 1/2 (* (* (sin ky) (* (sin th) (+ (* 1/3 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2))) (* 3/4 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3)))))) (sqrt (+ 1/2 (* -1/2 (cos (* 2 ky)))))))))))) (taylor 0 kx) (#s(alt (.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th)) (patch (.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (taylor inf kx) (#s(alt (.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th)) (patch (.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (taylor inf kx) (#s(alt (.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th)) (patch (.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (taylor inf kx) (#s(alt (.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th)) (patch (.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (taylor inf kx) (#s(alt (.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th)) (patch (.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx)))))))))) (taylor -inf kx) (#s(alt (.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th)) (patch (.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx)))))))))) (taylor -inf kx) (#s(alt (.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th)) (patch (.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx)))))))))) (taylor -inf kx) (#s(alt (.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th)) (patch (.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx)))))))))) (taylor -inf kx) (#s(alt (.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th)) (patch (.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* ky (* (sin th) (sqrt 2))) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))) (taylor 0 ky) (#s(alt (.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th)) (patch (.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* ky (+ (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* -2 (* (/ (sin th) (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (* -1/6 (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))))))) (taylor 0 ky) (#s(alt (.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th)) (patch (.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* ky (+ (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* -2 (* (/ (sin th) (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (+ (* -1/6 (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (* (pow ky 2) (+ (* 1/120 (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (+ (* 1/3 (* (/ (sin th) (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (* 1/2 (* (/ (* (sin th) (- (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (* 4 (/ 1 (* (pow (sqrt 2) 2) (pow (- 1 (cos (* 2 kx))) 3)))))) (sqrt 2)) (sqrt (- 1 (cos (* 2 kx)))))))))))))) (taylor 0 ky) (#s(alt (.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th)) (patch (.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* ky (+ (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* -2 (* (/ (sin th) (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (+ (* -1/6 (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (* (pow ky 2) (+ (* 1/120 (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (+ (* 1/3 (* (/ (sin th) (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (+ (* 1/2 (* (/ (* (sin th) (- (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (* 4 (/ 1 (* (pow (sqrt 2) 2) (pow (- 1 (cos (* 2 kx))) 3)))))) (sqrt 2)) (sqrt (- 1 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* -1/2 (* (/ (* (sin th) (+ (* -2 (/ (- (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (* 4 (/ 1 (* (pow (sqrt 2) 2) (pow (- 1 (cos (* 2 kx))) 3))))) (* (pow (sqrt 2) 2) (- 1 (cos (* 2 kx)))))) (+ (* 8/45 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (+ (* 2 (/ (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (- 1 (cos (* 2 kx))))) (* 8/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))))) (sqrt 2)) (sqrt (- 1 (cos (* 2 kx)))))) (+ (* -1/12 (* (/ (* (sin th) (- (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (* 4 (/ 1 (* (pow (sqrt 2) 2) (pow (- 1 (cos (* 2 kx))) 3)))))) (sqrt 2)) (sqrt (- 1 (cos (* 2 kx)))))) (+ (* -1/60 (* (/ (sin th) (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (* -1/5040 (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))))))))))))))))) (taylor 0 ky) (#s(alt (.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th)) (patch (.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (taylor inf ky) (#s(alt (.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th)) (patch (.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (taylor inf ky) (#s(alt (.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th)) (patch (.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (taylor inf ky) (#s(alt (.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th)) (patch (.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (taylor inf ky) (#s(alt (.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th)) (patch (.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (taylor -inf ky) (#s(alt (.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th)) (patch (.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (taylor -inf ky) (#s(alt (.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th)) (patch (.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (taylor -inf ky) (#s(alt (.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th)) (patch (.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (taylor -inf ky) (#s(alt (.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th)) (patch (.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* th (sin ky)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (taylor 0 th) (#s(alt (.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th)) (patch (.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* th (+ (* -1/6 (* (* (pow th 2) (sin ky)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))) (* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))))) (taylor 0 th) (#s(alt (.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th)) (patch (.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* th (+ (* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (* (pow th 2) (+ (* -1/6 (* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))) (* 1/120 (* (* (pow th 2) (sin ky)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))))))) (taylor 0 th) (#s(alt (.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th)) (patch (.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* th (+ (* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (* (pow th 2) (+ (* -1/6 (* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))) (* (pow th 2) (+ (* -1/5040 (* (* (pow th 2) (sin ky)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))) (* 1/120 (* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))))))))) (taylor 0 th) (#s(alt (.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th)) (patch (.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (taylor inf th) (#s(alt (.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th)) (patch (.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (taylor inf th) (#s(alt (.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th)) (patch (.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (taylor inf th) (#s(alt (.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th)) (patch (.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (taylor inf th) (#s(alt (.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th)) (patch (.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (taylor -inf th) (#s(alt (.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th)) (patch (.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (taylor -inf th) (#s(alt (.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th)) (patch (.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (taylor -inf th) (#s(alt (.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th)) (patch (.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (taylor -inf th) (#s(alt (.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th)) (patch (.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th)) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky))))))) (taylor 0 kx) (#s(alt #s(approx (* (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (patch #s(approx (* (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1/2 (* (* (pow kx 2) (sin ky)) (sqrt (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))))) (* (sin ky) (sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky)))))))) (taylor 0 kx) (#s(alt #s(approx (* (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (patch #s(approx (* (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (sin ky) (sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky))))))) (* (pow kx 2) (+ (* -1/2 (* (sin ky) (sqrt (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))))) (* 1/2 (* (* (pow kx 2) (* (sin ky) (+ (* 1/3 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2))) (* 3/4 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3)))))) (sqrt (+ 1/2 (* -1/2 (cos (* 2 ky)))))))))) (taylor 0 kx) (#s(alt #s(approx (* (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (patch #s(approx (* (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (sin ky) (sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky))))))) (* (pow kx 2) (+ (* -1/2 (* (sin ky) (sqrt (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))))) (* (pow kx 2) (+ (* -1/2 (* (* (pow kx 2) (* (sin ky) (+ (* -1/2 (/ (+ (* 1/3 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2))) (* 3/4 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3)))) (+ 1/2 (* -1/2 (cos (* 2 ky)))))) (+ (* 2/45 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2))) (+ (* 2/3 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))) (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 4))))))) (sqrt (+ 1/2 (* -1/2 (cos (* 2 ky))))))) (* 1/2 (* (* (sin ky) (+ (* 1/3 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2))) (* 3/4 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))))) (sqrt (+ 1/2 (* -1/2 (cos (* 2 ky)))))))))))) (taylor 0 kx) (#s(alt #s(approx (* (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (patch #s(approx (* (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (taylor inf kx) (#s(alt #s(approx (* (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (patch #s(approx (* (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (taylor inf kx) (#s(alt #s(approx (* (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (patch #s(approx (* (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (taylor inf kx) (#s(alt #s(approx (* (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (patch #s(approx (* (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (taylor inf kx) (#s(alt #s(approx (* (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (patch #s(approx (* (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx)))))))))) (taylor -inf kx) (#s(alt #s(approx (* (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (patch #s(approx (* (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx)))))))))) (taylor -inf kx) (#s(alt #s(approx (* (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (patch #s(approx (* (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx)))))))))) (taylor -inf kx) (#s(alt #s(approx (* (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (patch #s(approx (* (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx)))))))))) (taylor -inf kx) (#s(alt #s(approx (* (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (patch #s(approx (* (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (* ky (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))) (taylor 0 ky) (#s(alt #s(approx (* (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (patch #s(approx (* (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* ky (+ (* (sqrt 2) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* -2 (* (/ 1 (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (* -1/6 (* (sqrt 2) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))))))) (taylor 0 ky) (#s(alt #s(approx (* (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (patch #s(approx (* (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* ky (+ (* (sqrt 2) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* -2 (* (/ 1 (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (+ (* -1/6 (* (sqrt 2) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (* (pow ky 2) (+ (* 1/120 (* (sqrt 2) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (+ (* 1/3 (* (/ 1 (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (* 1/2 (* (/ (- (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (* 4 (/ 1 (* (pow (sqrt 2) 2) (pow (- 1 (cos (* 2 kx))) 3))))) (sqrt 2)) (sqrt (- 1 (cos (* 2 kx)))))))))))))) (taylor 0 ky) (#s(alt #s(approx (* (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (patch #s(approx (* (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* ky (+ (* (sqrt 2) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* -2 (* (/ 1 (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (+ (* -1/6 (* (sqrt 2) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (* (pow ky 2) (+ (* 1/120 (* (sqrt 2) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (+ (* 1/3 (* (/ 1 (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (+ (* 1/2 (* (/ (- (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (* 4 (/ 1 (* (pow (sqrt 2) 2) (pow (- 1 (cos (* 2 kx))) 3))))) (sqrt 2)) (sqrt (- 1 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* -1/2 (* (/ (+ (* -2 (/ (- (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (* 4 (/ 1 (* (pow (sqrt 2) 2) (pow (- 1 (cos (* 2 kx))) 3))))) (* (pow (sqrt 2) 2) (- 1 (cos (* 2 kx)))))) (+ (* 8/45 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (+ (* 2 (/ (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (- 1 (cos (* 2 kx))))) (* 8/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))))) (sqrt 2)) (sqrt (- 1 (cos (* 2 kx)))))) (+ (* -1/12 (* (/ (- (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (* 4 (/ 1 (* (pow (sqrt 2) 2) (pow (- 1 (cos (* 2 kx))) 3))))) (sqrt 2)) (sqrt (- 1 (cos (* 2 kx)))))) (+ (* -1/60 (* (/ 1 (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (* -1/5040 (* (sqrt 2) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))))))))))))))))) (taylor 0 ky) (#s(alt #s(approx (* (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (patch #s(approx (* (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (taylor inf ky) (#s(alt #s(approx (* (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (patch #s(approx (* (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (taylor inf ky) (#s(alt #s(approx (* (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (patch #s(approx (* (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (taylor inf ky) (#s(alt #s(approx (* (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (patch #s(approx (* (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (taylor inf ky) (#s(alt #s(approx (* (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (patch #s(approx (* (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (taylor -inf ky) (#s(alt #s(approx (* (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (patch #s(approx (* (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (taylor -inf ky) (#s(alt #s(approx (* (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (patch #s(approx (* (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (taylor -inf ky) (#s(alt #s(approx (* (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (patch #s(approx (* (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (taylor -inf ky) (#s(alt #s(approx (* (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (patch #s(approx (* (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (/ (* ky (* (sqrt 1/2) (sqrt 2))) kx) (taylor 0 kx) (#s(alt (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64)))) (patch (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (/ (+ (* 1/12 (/ (* (pow kx 2) (* ky (sqrt 2))) (sqrt 1/2))) (* ky (* (sqrt 1/2) (sqrt 2)))) kx) (taylor 0 kx) (#s(alt (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64)))) (patch (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (/ (+ (* ky (* (sqrt 1/2) (sqrt 2))) (* (pow kx 2) (+ (* 1/12 (/ (* ky (sqrt 2)) (sqrt 1/2))) (* 1/2 (/ (* (pow kx 2) (* ky (* (sqrt 2) (- 1/30 (* 1/144 (/ 1 (pow (sqrt 1/2) 2))))))) (sqrt 1/2)))))) kx) (taylor 0 kx) (#s(alt (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64)))) (patch (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (/ (+ (* ky (* (sqrt 1/2) (sqrt 2))) (* (pow kx 2) (+ (* 1/12 (/ (* ky (sqrt 2)) (sqrt 1/2))) (* (pow kx 2) (+ (* 1/2 (/ (* ky (* (sqrt 2) (- 1/30 (* 1/144 (/ 1 (pow (sqrt 1/2) 2)))))) (sqrt 1/2))) (* 1/2 (/ (* (pow kx 2) (* ky (* (sqrt 2) (- 1/189 (* 1/12 (/ (- 1/30 (* 1/144 (/ 1 (pow (sqrt 1/2) 2)))) (pow (sqrt 1/2) 2))))))) (sqrt 1/2)))))))) kx) (taylor 0 kx) (#s(alt (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64)))) (patch (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* (* ky (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* -2 kx)))))) (taylor inf kx) (#s(alt (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64)))) (patch (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* (* ky (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* -2 kx)))))) (taylor inf kx) (#s(alt (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64)))) (patch (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* (* ky (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* -2 kx)))))) (taylor inf kx) (#s(alt (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64)))) (patch (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* (* ky (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* -2 kx)))))) (taylor inf kx) (#s(alt (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64)))) (patch (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* (* ky (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* -2 kx)))))) (taylor -inf kx) (#s(alt (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64)))) (patch (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* (* ky (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* -2 kx)))))) (taylor -inf kx) (#s(alt (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64)))) (patch (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* (* ky (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* -2 kx)))))) (taylor -inf kx) (#s(alt (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64)))) (patch (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* (* ky (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* -2 kx)))))) (taylor -inf kx) (#s(alt (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64)))) (patch (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* (* ky (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* -2 kx)))))) (taylor 0 ky) (#s(alt (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64)))) (patch (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* (* ky (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* -2 kx)))))) (taylor 0 ky) (#s(alt (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64)))) (patch (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* (* ky (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* -2 kx)))))) (taylor 0 ky) (#s(alt (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64)))) (patch (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* (* ky (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* -2 kx)))))) (taylor 0 ky) (#s(alt (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64)))) (patch (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* (* ky (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* -2 kx)))))) (taylor inf ky) (#s(alt (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64)))) (patch (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* (* ky (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* -2 kx)))))) (taylor inf ky) (#s(alt (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64)))) (patch (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* (* ky (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* -2 kx)))))) (taylor inf ky) (#s(alt (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64)))) (patch (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* (* ky (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* -2 kx)))))) (taylor inf ky) (#s(alt (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64)))) (patch (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* (* ky (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* -2 kx)))))) (taylor -inf ky) (#s(alt (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64)))) (patch (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* (* ky (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* -2 kx)))))) (taylor -inf ky) (#s(alt (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64)))) (patch (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* (* ky (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* -2 kx)))))) (taylor -inf ky) (#s(alt (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64)))) (patch (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* (* ky (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* -2 kx)))))) (taylor -inf ky) (#s(alt (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64)))) (patch (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (/ (sqrt 1/2) kx) (taylor 0 kx) (#s(alt #s(approx (sqrt (/ 1 (- 1 (cos (* kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (patch #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (*.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) #<representation binary64>) () ())) ())
#s(alt (/ (+ (sqrt 1/2) (* 1/12 (/ (pow kx 2) (sqrt 1/2)))) kx) (taylor 0 kx) (#s(alt #s(approx (sqrt (/ 1 (- 1 (cos (* kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (patch #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (*.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) #<representation binary64>) () ())) ())
#s(alt (/ (+ (sqrt 1/2) (* (pow kx 2) (+ (* 1/2 (/ (* (pow kx 2) (- 1/30 (* 1/144 (/ 1 (pow (sqrt 1/2) 2))))) (sqrt 1/2))) (* 1/12 (/ 1 (sqrt 1/2)))))) kx) (taylor 0 kx) (#s(alt #s(approx (sqrt (/ 1 (- 1 (cos (* kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (patch #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (*.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) #<representation binary64>) () ())) ())
#s(alt (/ (+ (sqrt 1/2) (* (pow kx 2) (+ (* (pow kx 2) (+ (* 1/2 (/ (* (pow kx 2) (- 1/189 (* 1/12 (/ (- 1/30 (* 1/144 (/ 1 (pow (sqrt 1/2) 2)))) (pow (sqrt 1/2) 2))))) (sqrt 1/2))) (* 1/2 (/ (- 1/30 (* 1/144 (/ 1 (pow (sqrt 1/2) 2)))) (sqrt 1/2))))) (* 1/12 (/ 1 (sqrt 1/2)))))) kx) (taylor 0 kx) (#s(alt #s(approx (sqrt (/ 1 (- 1 (cos (* kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (patch #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (*.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) #<representation binary64>) () ())) ())
#s(alt (sqrt (/ 1 (- 1 (cos (* -2 kx))))) (taylor inf kx) (#s(alt #s(approx (sqrt (/ 1 (- 1 (cos (* kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (patch #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (*.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) #<representation binary64>) () ())) ())
#s(alt (sqrt (/ 1 (- 1 (cos (* -2 kx))))) (taylor inf kx) (#s(alt #s(approx (sqrt (/ 1 (- 1 (cos (* kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (patch #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (*.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) #<representation binary64>) () ())) ())
#s(alt (sqrt (/ 1 (- 1 (cos (* -2 kx))))) (taylor inf kx) (#s(alt #s(approx (sqrt (/ 1 (- 1 (cos (* kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (patch #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (*.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) #<representation binary64>) () ())) ())
#s(alt (sqrt (/ 1 (- 1 (cos (* -2 kx))))) (taylor inf kx) (#s(alt #s(approx (sqrt (/ 1 (- 1 (cos (* kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (patch #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (*.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) #<representation binary64>) () ())) ())
#s(alt (sqrt (/ 1 (- 1 (cos (* -2 kx))))) (taylor -inf kx) (#s(alt #s(approx (sqrt (/ 1 (- 1 (cos (* kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (patch #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (*.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) #<representation binary64>) () ())) ())
#s(alt (sqrt (/ 1 (- 1 (cos (* -2 kx))))) (taylor -inf kx) (#s(alt #s(approx (sqrt (/ 1 (- 1 (cos (* kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (patch #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (*.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) #<representation binary64>) () ())) ())
#s(alt (sqrt (/ 1 (- 1 (cos (* -2 kx))))) (taylor -inf kx) (#s(alt #s(approx (sqrt (/ 1 (- 1 (cos (* kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (patch #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (*.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) #<representation binary64>) () ())) ())
#s(alt (sqrt (/ 1 (- 1 (cos (* -2 kx))))) (taylor -inf kx) (#s(alt #s(approx (sqrt (/ 1 (- 1 (cos (* kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (patch #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (*.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) #<representation binary64>) () ())) ())
#s(alt (* (* ky (* (sin th) (sqrt 2))) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))) (taylor 0 ky) (#s(alt (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) (patch (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* ky (+ (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* -2 (* (/ (sin th) (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (* -1/6 (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))))))) (taylor 0 ky) (#s(alt (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) (patch (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* ky (+ (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* -2 (* (/ (sin th) (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (+ (* -1/6 (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (* (pow ky 2) (+ (* 1/120 (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (+ (* 1/3 (* (/ (sin th) (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (* 1/2 (* (/ (* (sin th) (- (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (* 4 (/ 1 (* (pow (sqrt 2) 2) (pow (- 1 (cos (* 2 kx))) 3)))))) (sqrt 2)) (sqrt (- 1 (cos (* 2 kx)))))))))))))) (taylor 0 ky) (#s(alt (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) (patch (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* ky (+ (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* -2 (* (/ (sin th) (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (+ (* -1/6 (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (* (pow ky 2) (+ (* 1/120 (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (+ (* 1/3 (* (/ (sin th) (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (+ (* 1/2 (* (/ (* (sin th) (- (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (* 4 (/ 1 (* (pow (sqrt 2) 2) (pow (- 1 (cos (* 2 kx))) 3)))))) (sqrt 2)) (sqrt (- 1 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* -1/2 (* (/ (* (sin th) (+ (* -2 (/ (- (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (* 4 (/ 1 (* (pow (sqrt 2) 2) (pow (- 1 (cos (* 2 kx))) 3))))) (* (pow (sqrt 2) 2) (- 1 (cos (* 2 kx)))))) (+ (* 8/45 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (+ (* 2 (/ (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (- 1 (cos (* 2 kx))))) (* 8/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))))) (sqrt 2)) (sqrt (- 1 (cos (* 2 kx)))))) (+ (* -1/12 (* (/ (* (sin th) (- (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (* 4 (/ 1 (* (pow (sqrt 2) 2) (pow (- 1 (cos (* 2 kx))) 3)))))) (sqrt 2)) (sqrt (- 1 (cos (* 2 kx)))))) (+ (* -1/60 (* (/ (sin th) (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (* -1/5040 (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))))))))))))))))) (taylor 0 ky) (#s(alt (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) (patch (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (taylor inf ky) (#s(alt (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) (patch (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (taylor inf ky) (#s(alt (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) (patch (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (taylor inf ky) (#s(alt (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) (patch (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (taylor inf ky) (#s(alt (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) (patch (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (taylor -inf ky) (#s(alt (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) (patch (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (taylor -inf ky) (#s(alt (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) (patch (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (taylor -inf ky) (#s(alt (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) (patch (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (taylor -inf ky) (#s(alt (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) (patch (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (* th (sin ky)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (taylor 0 th) (#s(alt (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) (patch (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* th (+ (* -1/6 (* (* (pow th 2) (sin ky)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))) (* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))))) (taylor 0 th) (#s(alt (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) (patch (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* th (+ (* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (* (pow th 2) (+ (* -1/6 (* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))) (* 1/120 (* (* (pow th 2) (sin ky)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))))))) (taylor 0 th) (#s(alt (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) (patch (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* th (+ (* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (* (pow th 2) (+ (* -1/6 (* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))) (* (pow th 2) (+ (* -1/5040 (* (* (pow th 2) (sin ky)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))) (* 1/120 (* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))))))))) (taylor 0 th) (#s(alt (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) (patch (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (taylor inf th) (#s(alt (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) (patch (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (taylor inf th) (#s(alt (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) (patch (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (taylor inf th) (#s(alt (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) (patch (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (taylor inf th) (#s(alt (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) (patch (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (taylor -inf th) (#s(alt (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) (patch (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (taylor -inf th) (#s(alt (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) (patch (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (taylor -inf th) (#s(alt (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) (patch (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (taylor -inf th) (#s(alt (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) (patch (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky))))))) (taylor 0 kx) (#s(alt (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) (patch (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1/2 (* (* (pow kx 2) (* (sin ky) (sin th))) (sqrt (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))))) (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky)))))))) (taylor 0 kx) (#s(alt (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) (patch (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky))))))) (* (pow kx 2) (+ (* -1/2 (* (* (sin ky) (sin th)) (sqrt (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))))) (* 1/2 (* (* (pow kx 2) (* (sin ky) (* (sin th) (+ (* 1/3 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2))) (* 3/4 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))))))) (sqrt (+ 1/2 (* -1/2 (cos (* 2 ky)))))))))) (taylor 0 kx) (#s(alt (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) (patch (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky))))))) (* (pow kx 2) (+ (* -1/2 (* (* (sin ky) (sin th)) (sqrt (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))))) (* (pow kx 2) (+ (* -1/2 (* (* (pow kx 2) (* (sin ky) (* (sin th) (+ (* -1/2 (/ (+ (* 1/3 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2))) (* 3/4 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3)))) (+ 1/2 (* -1/2 (cos (* 2 ky)))))) (+ (* 2/45 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2))) (+ (* 2/3 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))) (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 4)))))))) (sqrt (+ 1/2 (* -1/2 (cos (* 2 ky))))))) (* 1/2 (* (* (sin ky) (* (sin th) (+ (* 1/3 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2))) (* 3/4 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3)))))) (sqrt (+ 1/2 (* -1/2 (cos (* 2 ky)))))))))))) (taylor 0 kx) (#s(alt (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) (patch (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (taylor inf kx) (#s(alt (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) (patch (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (taylor inf kx) (#s(alt (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) (patch (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (taylor inf kx) (#s(alt (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) (patch (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (taylor inf kx) (#s(alt (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) (patch (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx)))))))))) (taylor -inf kx) (#s(alt (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) (patch (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx)))))))))) (taylor -inf kx) (#s(alt (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) (patch (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx)))))))))) (taylor -inf kx) (#s(alt (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) (patch (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx)))))))))) (taylor -inf kx) (#s(alt (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) (patch (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (* -1/2 (cos (* 2 ky)))) (taylor 0 kx) (#s(alt (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) (patch (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (pow kx 2))) (taylor 0 kx) (#s(alt (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) (patch (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* (pow kx 2) (+ 1 (* -1/3 (pow kx 2)))))) (taylor 0 kx) (#s(alt (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) (patch (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* (pow kx 2) (+ 1 (* (pow kx 2) (- (* 2/45 (pow kx 2)) 1/3)))))) (taylor 0 kx) (#s(alt (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) (patch (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))) (taylor inf kx) (#s(alt (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) (patch (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))) (taylor inf kx) (#s(alt (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) (patch (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))) (taylor inf kx) (#s(alt (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) (patch (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))) (taylor inf kx) (#s(alt (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) (patch (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx))))))) (taylor -inf kx) (#s(alt (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) (patch (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx))))))) (taylor -inf kx) (#s(alt (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) (patch (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx))))))) (taylor -inf kx) (#s(alt (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) (patch (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx))))))) (taylor -inf kx) (#s(alt (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) (patch (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (- 1 (cos (* 2 kx)))) (taylor 0 ky) (#s(alt (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) (patch (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 (- 1 (cos (* 2 kx)))) (pow ky 2)) (taylor 0 ky) (#s(alt (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) (patch (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 (- 1 (cos (* 2 kx)))) (* (pow ky 2) (+ 1 (* -1/3 (pow ky 2))))) (taylor 0 ky) (#s(alt (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) (patch (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 (- 1 (cos (* 2 kx)))) (* (pow ky 2) (+ 1 (* (pow ky 2) (- (* 2/45 (pow ky 2)) 1/3))))) (taylor 0 ky) (#s(alt (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) (patch (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))) (taylor inf ky) (#s(alt (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) (patch (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))) (taylor inf ky) (#s(alt (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) (patch (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))) (taylor inf ky) (#s(alt (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) (patch (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))) (taylor inf ky) (#s(alt (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) (patch (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx)))))) (taylor -inf ky) (#s(alt (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) (patch (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx)))))) (taylor -inf ky) (#s(alt (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) (patch (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx)))))) (taylor -inf ky) (#s(alt (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) (patch (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx)))))) (taylor -inf ky) (#s(alt (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) (patch (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) #<representation binary64>) () ())) ())
#s(alt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky))))) (taylor 0 kx) (#s(alt (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) (patch (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1 (/ (pow kx 2) (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2))) (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky)))))) (taylor 0 kx) (#s(alt (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) (patch (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (pow kx 2) (- (* (pow kx 2) (+ (* 1/3 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2))) (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3)))) (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2)))) (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky)))))) (taylor 0 kx) (#s(alt (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) (patch (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (pow kx 2) (- (* (pow kx 2) (+ (* -1 (* (pow kx 2) (+ (* 2/45 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2))) (+ (* 2/3 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))) (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 4)))))) (+ (* 1/3 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2))) (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))))) (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2)))) (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky)))))) (taylor 0 kx) (#s(alt (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) (patch (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) #<representation binary64>) () ())) ())
#s(alt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))) (taylor inf kx) (#s(alt (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) (patch (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) #<representation binary64>) () ())) ())
#s(alt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))) (taylor inf kx) (#s(alt (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) (patch (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) #<representation binary64>) () ())) ())
#s(alt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))) (taylor inf kx) (#s(alt (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) (patch (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) #<representation binary64>) () ())) ())
#s(alt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))) (taylor inf kx) (#s(alt (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) (patch (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) #<representation binary64>) () ())) ())
#s(alt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx)))))))) (taylor -inf kx) (#s(alt (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) (patch (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) #<representation binary64>) () ())) ())
#s(alt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx)))))))) (taylor -inf kx) (#s(alt (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) (patch (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) #<representation binary64>) () ())) ())
#s(alt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx)))))))) (taylor -inf kx) (#s(alt (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) (patch (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) #<representation binary64>) () ())) ())
#s(alt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx)))))))) (taylor -inf kx) (#s(alt (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) (patch (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) #<representation binary64>) () ())) ())
#s(alt (/ 2 (- 1 (cos (* 2 kx)))) (taylor 0 ky) (#s(alt (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) (patch (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) #<representation binary64>) () ())) ())
#s(alt (+ (* -4 (/ (pow ky 2) (pow (- 1 (cos (* 2 kx))) 2))) (* 2 (/ 1 (- 1 (cos (* 2 kx)))))) (taylor 0 ky) (#s(alt (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) (patch (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (pow ky 2) (- (* (pow ky 2) (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (* 4 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))))) (* 2 (/ 1 (- 1 (cos (* 2 kx)))))) (taylor 0 ky) (#s(alt (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) (patch (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (pow ky 2) (- (* (pow ky 2) (+ (* -1 (* (pow ky 2) (+ (* 8/45 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (+ (* 2 (/ (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (- 1 (cos (* 2 kx))))) (* 8/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))))) (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))))) (* 4 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))))) (* 2 (/ 1 (- 1 (cos (* 2 kx)))))) (taylor 0 ky) (#s(alt (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) (patch (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) #<representation binary64>) () ())) ())
#s(alt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))) (taylor inf ky) (#s(alt (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) (patch (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) #<representation binary64>) () ())) ())
#s(alt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))) (taylor inf ky) (#s(alt (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) (patch (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) #<representation binary64>) () ())) ())
#s(alt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))) (taylor inf ky) (#s(alt (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) (patch (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) #<representation binary64>) () ())) ())
#s(alt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))) (taylor inf ky) (#s(alt (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) (patch (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) #<representation binary64>) () ())) ())
#s(alt (/ 1 (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx))))))) (taylor -inf ky) (#s(alt (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) (patch (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) #<representation binary64>) () ())) ())
#s(alt (/ 1 (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx))))))) (taylor -inf ky) (#s(alt (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) (patch (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) #<representation binary64>) () ())) ())
#s(alt (/ 1 (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx))))))) (taylor -inf ky) (#s(alt (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) (patch (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) #<representation binary64>) () ())) ())
#s(alt (/ 1 (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx))))))) (taylor -inf ky) (#s(alt (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) (patch (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) #<representation binary64>) () ())) ())
#s(alt (pow ky 2) (taylor 0 ky) (#s(alt (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))) (patch (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))) #<representation binary64>) () ())) ())
#s(alt (* (pow ky 2) (+ 1 (* -1/3 (pow ky 2)))) (taylor 0 ky) (#s(alt (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))) (patch (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))) #<representation binary64>) () ())) ())
#s(alt (* (pow ky 2) (+ 1 (* (pow ky 2) (- (* 2/45 (pow ky 2)) 1/3)))) (taylor 0 ky) (#s(alt (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))) (patch (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))) #<representation binary64>) () ())) ())
#s(alt (* (pow ky 2) (+ 1 (* (pow ky 2) (- (* (pow ky 2) (+ 2/45 (* -1/315 (pow ky 2)))) 1/3)))) (taylor 0 ky) (#s(alt (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))) (patch (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (* -1/2 (cos (* 2 ky)))) (taylor inf ky) (#s(alt (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))) (patch (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (* -1/2 (cos (* 2 ky)))) (taylor inf ky) (#s(alt (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))) (patch (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (* -1/2 (cos (* 2 ky)))) (taylor inf ky) (#s(alt (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))) (patch (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (* -1/2 (cos (* 2 ky)))) (taylor inf ky) (#s(alt (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))) (patch (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (* -1/2 (cos (neg (* -2 ky))))) (taylor -inf ky) (#s(alt (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))) (patch (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (* -1/2 (cos (neg (* -2 ky))))) (taylor -inf ky) (#s(alt (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))) (patch (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (* -1/2 (cos (neg (* -2 ky))))) (taylor -inf ky) (#s(alt (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))) (patch (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (* -1/2 (cos (neg (* -2 ky))))) (taylor -inf ky) (#s(alt (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))) (patch (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky))))))) (taylor 0 kx) (#s(alt (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th))) (patch (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th))) #<representation binary64>) () ())) ())
#s(alt (+ (* -1/2 (* (* (pow kx 2) (* (sin ky) (sin th))) (sqrt (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))))) (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky)))))))) (taylor 0 kx) (#s(alt (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th))) (patch (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th))) #<representation binary64>) () ())) ())
#s(alt (+ (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky))))))) (* (pow kx 2) (+ (* -1/2 (* (* (sin ky) (sin th)) (sqrt (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))))) (* 1/2 (* (* (pow kx 2) (* (sin ky) (* (sin th) (+ (* 1/3 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2))) (* 3/4 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))))))) (sqrt (+ 1/2 (* -1/2 (cos (* 2 ky)))))))))) (taylor 0 kx) (#s(alt (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th))) (patch (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th))) #<representation binary64>) () ())) ())
#s(alt (+ (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky))))))) (* (pow kx 2) (+ (* -1/2 (* (* (sin ky) (sin th)) (sqrt (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))))) (* (pow kx 2) (+ (* -1/2 (* (* (pow kx 2) (* (sin ky) (* (sin th) (+ (* -1/2 (/ (+ (* 1/3 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2))) (* 3/4 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3)))) (+ 1/2 (* -1/2 (cos (* 2 ky)))))) (+ (* 2/45 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2))) (+ (* 2/3 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))) (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 4)))))))) (sqrt (+ 1/2 (* -1/2 (cos (* 2 ky))))))) (* 1/2 (* (* (sin ky) (* (sin th) (+ (* 1/3 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2))) (* 3/4 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3)))))) (sqrt (+ 1/2 (* -1/2 (cos (* 2 ky)))))))))))) (taylor 0 kx) (#s(alt (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th))) (patch (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th))) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (taylor inf kx) (#s(alt (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th))) (patch (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th))) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (taylor inf kx) (#s(alt (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th))) (patch (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th))) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (taylor inf kx) (#s(alt (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th))) (patch (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th))) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (taylor inf kx) (#s(alt (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th))) (patch (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th))) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx)))))))))) (taylor -inf kx) (#s(alt (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th))) (patch (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th))) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx)))))))))) (taylor -inf kx) (#s(alt (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th))) (patch (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th))) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx)))))))))) (taylor -inf kx) (#s(alt (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th))) (patch (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th))) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx)))))))))) (taylor -inf kx) (#s(alt (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th))) (patch (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th))) #<representation binary64>) () ())) ())
#s(alt (* (* ky (* (sin th) (sqrt 2))) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))) (taylor 0 ky) (#s(alt (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th))) (patch (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th))) #<representation binary64>) () ())) ())
#s(alt (* ky (+ (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* -2 (* (/ (sin th) (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (* -1/6 (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))))))) (taylor 0 ky) (#s(alt (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th))) (patch (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th))) #<representation binary64>) () ())) ())
#s(alt (* ky (+ (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* -2 (* (/ (sin th) (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (+ (* -1/6 (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (* (pow ky 2) (+ (* 1/120 (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (+ (* 1/3 (* (/ (sin th) (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (* 1/2 (* (/ (* (sin th) (- (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (* 4 (/ 1 (* (pow (sqrt 2) 2) (pow (- 1 (cos (* 2 kx))) 3)))))) (sqrt 2)) (sqrt (- 1 (cos (* 2 kx)))))))))))))) (taylor 0 ky) (#s(alt (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th))) (patch (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th))) #<representation binary64>) () ())) ())
#s(alt (* ky (+ (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* -2 (* (/ (sin th) (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (+ (* -1/6 (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (* (pow ky 2) (+ (* 1/120 (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (+ (* 1/3 (* (/ (sin th) (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (+ (* 1/2 (* (/ (* (sin th) (- (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (* 4 (/ 1 (* (pow (sqrt 2) 2) (pow (- 1 (cos (* 2 kx))) 3)))))) (sqrt 2)) (sqrt (- 1 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* -1/2 (* (/ (* (sin th) (+ (* -2 (/ (- (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (* 4 (/ 1 (* (pow (sqrt 2) 2) (pow (- 1 (cos (* 2 kx))) 3))))) (* (pow (sqrt 2) 2) (- 1 (cos (* 2 kx)))))) (+ (* 8/45 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (+ (* 2 (/ (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (- 1 (cos (* 2 kx))))) (* 8/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))))) (sqrt 2)) (sqrt (- 1 (cos (* 2 kx)))))) (+ (* -1/12 (* (/ (* (sin th) (- (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (* 4 (/ 1 (* (pow (sqrt 2) 2) (pow (- 1 (cos (* 2 kx))) 3)))))) (sqrt 2)) (sqrt (- 1 (cos (* 2 kx)))))) (+ (* -1/60 (* (/ (sin th) (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (* -1/5040 (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))))))))))))))))) (taylor 0 ky) (#s(alt (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th))) (patch (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th))) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (taylor inf ky) (#s(alt (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th))) (patch (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th))) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (taylor inf ky) (#s(alt (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th))) (patch (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th))) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (taylor inf ky) (#s(alt (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th))) (patch (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th))) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (taylor inf ky) (#s(alt (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th))) (patch (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th))) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (taylor -inf ky) (#s(alt (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th))) (patch (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th))) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (taylor -inf ky) (#s(alt (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th))) (patch (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th))) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (taylor -inf ky) (#s(alt (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th))) (patch (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th))) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (taylor -inf ky) (#s(alt (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th))) (patch (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th))) #<representation binary64>) () ())) ())
#s(alt (* (* th (sin ky)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (taylor 0 th) (#s(alt (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th))) (patch (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th))) #<representation binary64>) () ())) ())
#s(alt (* th (+ (* -1/6 (* (* (pow th 2) (sin ky)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))) (* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))))) (taylor 0 th) (#s(alt (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th))) (patch (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th))) #<representation binary64>) () ())) ())
#s(alt (* th (+ (* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (* (pow th 2) (+ (* -1/6 (* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))) (* 1/120 (* (* (pow th 2) (sin ky)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))))))) (taylor 0 th) (#s(alt (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th))) (patch (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th))) #<representation binary64>) () ())) ())
#s(alt (* th (+ (* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (* (pow th 2) (+ (* -1/6 (* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))) (* (pow th 2) (+ (* -1/5040 (* (* (pow th 2) (sin ky)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))) (* 1/120 (* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))))))))) (taylor 0 th) (#s(alt (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th))) (patch (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th))) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (taylor inf th) (#s(alt (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th))) (patch (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th))) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (taylor inf th) (#s(alt (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th))) (patch (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th))) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (taylor inf th) (#s(alt (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th))) (patch (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th))) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (taylor inf th) (#s(alt (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th))) (patch (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th))) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (taylor -inf th) (#s(alt (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th))) (patch (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th))) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (taylor -inf th) (#s(alt (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th))) (patch (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th))) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (taylor -inf th) (#s(alt (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th))) (patch (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th))) #<representation binary64>) () ())) ())
#s(alt (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (taylor -inf th) (#s(alt (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th))) (patch (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th))) #<representation binary64>) () ())) ())
#s(alt (* 2 (pow kx 2)) (taylor 0 kx) (#s(alt (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) (patch (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #<representation binary64>) () ())) ())
#s(alt (* (pow kx 2) (+ 2 (* -2/3 (pow kx 2)))) (taylor 0 kx) (#s(alt (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) (patch (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #<representation binary64>) () ())) ())
#s(alt (* (pow kx 2) (+ 2 (* (pow kx 2) (- (* 4/45 (pow kx 2)) 2/3)))) (taylor 0 kx) (#s(alt (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) (patch (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #<representation binary64>) () ())) ())
#s(alt (* (pow kx 2) (+ 2 (* (pow kx 2) (- (* (pow kx 2) (+ 4/45 (* -2/315 (pow kx 2)))) 2/3)))) (taylor 0 kx) (#s(alt (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) (patch (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #<representation binary64>) () ())) ())
#s(alt (- 1 (cos (* 2 kx))) (taylor inf kx) (#s(alt (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) (patch (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #<representation binary64>) () ())) ())
#s(alt (- 1 (cos (* 2 kx))) (taylor inf kx) (#s(alt (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) (patch (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #<representation binary64>) () ())) ())
#s(alt (- 1 (cos (* 2 kx))) (taylor inf kx) (#s(alt (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) (patch (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #<representation binary64>) () ())) ())
#s(alt (- 1 (cos (* 2 kx))) (taylor inf kx) (#s(alt (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) (patch (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #<representation binary64>) () ())) ())
#s(alt (- 1 (cos (neg (* -2 kx)))) (taylor -inf kx) (#s(alt (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) (patch (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #<representation binary64>) () ())) ())
#s(alt (- 1 (cos (neg (* -2 kx)))) (taylor -inf kx) (#s(alt (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) (patch (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #<representation binary64>) () ())) ())
#s(alt (- 1 (cos (neg (* -2 kx)))) (taylor -inf kx) (#s(alt (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) (patch (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #<representation binary64>) () ())) ())
#s(alt (- 1 (cos (neg (* -2 kx)))) (taylor -inf kx) (#s(alt (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) (patch (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #<representation binary64>) () ())) ())
#s(alt (sin ky) (taylor 0 kx) (#s(alt (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))) (patch (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (+ (sin ky) (* 1/2 (/ (pow kx 2) (sin ky)))) (taylor 0 kx) (#s(alt (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))) (patch (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (+ (sin ky) (* (pow kx 2) (+ (* -1/2 (/ (* (pow kx 2) (+ 1/3 (* 1/4 (/ 1 (pow (sin ky) 2))))) (sin ky))) (* 1/2 (/ 1 (sin ky)))))) (taylor 0 kx) (#s(alt (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))) (patch (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (+ (sin ky) (* (pow kx 2) (+ (* (pow kx 2) (+ (* -1/2 (/ (+ 1/3 (* 1/4 (/ 1 (pow (sin ky) 2)))) (sin ky))) (* 1/2 (/ (* (pow kx 2) (- 2/45 (* -1/2 (/ (+ 1/3 (* 1/4 (/ 1 (pow (sin ky) 2)))) (pow (sin ky) 2))))) (sin ky))))) (* 1/2 (/ 1 (sin ky)))))) (taylor 0 kx) (#s(alt (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))) (patch (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* 1/2 (- 1 (cos (* 2 kx)))) (pow (sin ky) 2))) (taylor inf kx) (#s(alt (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))) (patch (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* 1/2 (- 1 (cos (* 2 kx)))) (pow (sin ky) 2))) (taylor inf kx) (#s(alt (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))) (patch (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* 1/2 (- 1 (cos (* 2 kx)))) (pow (sin ky) 2))) (taylor inf kx) (#s(alt (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))) (patch (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* 1/2 (- 1 (cos (* 2 kx)))) (pow (sin ky) 2))) (taylor inf kx) (#s(alt (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))) (patch (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* 1/2 (- 1 (cos (neg (* -2 kx))))) (pow (sin ky) 2))) (taylor -inf kx) (#s(alt (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))) (patch (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* 1/2 (- 1 (cos (neg (* -2 kx))))) (pow (sin ky) 2))) (taylor -inf kx) (#s(alt (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))) (patch (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* 1/2 (- 1 (cos (neg (* -2 kx))))) (pow (sin ky) 2))) (taylor -inf kx) (#s(alt (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))) (patch (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* 1/2 (- 1 (cos (neg (* -2 kx))))) (pow (sin ky) 2))) (taylor -inf kx) (#s(alt (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))) (patch (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* (sqrt 1/2) (sqrt (- 1 (cos (* 2 kx))))) (taylor 0 ky) (#s(alt (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))) (patch (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 (* (/ (pow ky 2) (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (* (sqrt 1/2) (sqrt (- 1 (cos (* 2 kx)))))) (taylor 0 ky) (#s(alt (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))) (patch (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (+ (* (sqrt 1/2) (sqrt (- 1 (cos (* 2 kx))))) (* (pow ky 2) (+ (* -1/2 (* (/ (* (pow ky 2) (+ 1/3 (* 1/4 (/ 1 (* (pow (sqrt 1/2) 2) (- 1 (cos (* 2 kx)))))))) (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (* 1/2 (* (/ 1 (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))))))) (taylor 0 ky) (#s(alt (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))) (patch (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (+ (* (sqrt 1/2) (sqrt (- 1 (cos (* 2 kx))))) (* (pow ky 2) (+ (* 1/2 (* (/ 1 (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (* (pow ky 2) (+ (* -1/2 (* (/ (+ 1/3 (* 1/4 (/ 1 (* (pow (sqrt 1/2) 2) (- 1 (cos (* 2 kx))))))) (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (* 1/2 (* (/ (* (pow ky 2) (- 2/45 (* -1/2 (/ (+ 1/3 (* 1/4 (/ 1 (* (pow (sqrt 1/2) 2) (- 1 (cos (* 2 kx))))))) (* (pow (sqrt 1/2) 2) (- 1 (cos (* 2 kx)))))))) (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))))))))) (taylor 0 ky) (#s(alt (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))) (patch (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* 1/2 (- 1 (cos (* 2 kx)))) (pow (sin ky) 2))) (taylor inf ky) (#s(alt (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))) (patch (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* 1/2 (- 1 (cos (* 2 kx)))) (pow (sin ky) 2))) (taylor inf ky) (#s(alt (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))) (patch (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* 1/2 (- 1 (cos (* 2 kx)))) (pow (sin ky) 2))) (taylor inf ky) (#s(alt (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))) (patch (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* 1/2 (- 1 (cos (* 2 kx)))) (pow (sin ky) 2))) (taylor inf ky) (#s(alt (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))) (patch (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* 1/2 (- 1 (cos (* 2 kx)))) (pow (sin ky) 2))) (taylor -inf ky) (#s(alt (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))) (patch (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* 1/2 (- 1 (cos (* 2 kx)))) (pow (sin ky) 2))) (taylor -inf ky) (#s(alt (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))) (patch (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* 1/2 (- 1 (cos (* 2 kx)))) (pow (sin ky) 2))) (taylor -inf ky) (#s(alt (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))) (patch (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ (* 1/2 (- 1 (cos (* 2 kx)))) (pow (sin ky) 2))) (taylor -inf ky) (#s(alt (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))) (patch (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (pow ky 2) (taylor 0 ky) (#s(alt (pow.f64 (sin.f64 ky) #s(literal 2 binary64)) (patch (pow.f64 (sin.f64 ky) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* (pow ky 2) (+ 1 (* -1/3 (pow ky 2)))) (taylor 0 ky) (#s(alt (pow.f64 (sin.f64 ky) #s(literal 2 binary64)) (patch (pow.f64 (sin.f64 ky) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* (pow ky 2) (+ 1 (* (pow ky 2) (- (* 2/45 (pow ky 2)) 1/3)))) (taylor 0 ky) (#s(alt (pow.f64 (sin.f64 ky) #s(literal 2 binary64)) (patch (pow.f64 (sin.f64 ky) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* (pow ky 2) (+ 1 (* (pow ky 2) (- (* (pow ky 2) (+ 2/45 (* -1/315 (pow ky 2)))) 1/3)))) (taylor 0 ky) (#s(alt (pow.f64 (sin.f64 ky) #s(literal 2 binary64)) (patch (pow.f64 (sin.f64 ky) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (pow (sin ky) 2) (taylor inf ky) (#s(alt (pow.f64 (sin.f64 ky) #s(literal 2 binary64)) (patch (pow.f64 (sin.f64 ky) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (pow (sin ky) 2) (taylor inf ky) (#s(alt (pow.f64 (sin.f64 ky) #s(literal 2 binary64)) (patch (pow.f64 (sin.f64 ky) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (pow (sin ky) 2) (taylor inf ky) (#s(alt (pow.f64 (sin.f64 ky) #s(literal 2 binary64)) (patch (pow.f64 (sin.f64 ky) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (pow (sin ky) 2) (taylor inf ky) (#s(alt (pow.f64 (sin.f64 ky) #s(literal 2 binary64)) (patch (pow.f64 (sin.f64 ky) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (pow (sin ky) 2) (taylor -inf ky) (#s(alt (pow.f64 (sin.f64 ky) #s(literal 2 binary64)) (patch (pow.f64 (sin.f64 ky) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (pow (sin ky) 2) (taylor -inf ky) (#s(alt (pow.f64 (sin.f64 ky) #s(literal 2 binary64)) (patch (pow.f64 (sin.f64 ky) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (pow (sin ky) 2) (taylor -inf ky) (#s(alt (pow.f64 (sin.f64 ky) #s(literal 2 binary64)) (patch (pow.f64 (sin.f64 ky) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (pow (sin ky) 2) (taylor -inf ky) (#s(alt (pow.f64 (sin.f64 ky) #s(literal 2 binary64)) (patch (pow.f64 (sin.f64 ky) #s(literal 2 binary64)) #<representation binary64>) () ())) ())
#s(alt (/ (sqrt 1/2) kx) (taylor 0 kx) (#s(alt (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx) (patch (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx) #<representation binary64>) () ())) ())
#s(alt (/ (+ (sqrt 1/2) (* 1/12 (/ (pow kx 2) (sqrt 1/2)))) kx) (taylor 0 kx) (#s(alt (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx) (patch (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx) #<representation binary64>) () ())) ())
#s(alt (/ (+ (sqrt 1/2) (* 1/12 (/ (pow kx 2) (sqrt 1/2)))) kx) (taylor 0 kx) (#s(alt (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx) (patch (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx) #<representation binary64>) () ())) ())
#s(alt (/ (+ (sqrt 1/2) (* 1/12 (/ (pow kx 2) (sqrt 1/2)))) kx) (taylor 0 kx) (#s(alt (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx) (patch (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx) #<representation binary64>) () ())) ())
#s(alt (* 1/12 (/ kx (sqrt 1/2))) (taylor inf kx) (#s(alt (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx) (patch (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx) #<representation binary64>) () ())) ())
#s(alt (* kx (+ (* 1/12 (/ 1 (sqrt 1/2))) (/ (sqrt 1/2) (pow kx 2)))) (taylor inf kx) (#s(alt (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx) (patch (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx) #<representation binary64>) () ())) ())
#s(alt (* kx (+ (* 1/12 (/ 1 (sqrt 1/2))) (/ (sqrt 1/2) (pow kx 2)))) (taylor inf kx) (#s(alt (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx) (patch (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx) #<representation binary64>) () ())) ())
#s(alt (* kx (+ (* 1/12 (/ 1 (sqrt 1/2))) (/ (sqrt 1/2) (pow kx 2)))) (taylor inf kx) (#s(alt (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx) (patch (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx) #<representation binary64>) () ())) ())
#s(alt (* 1/12 (/ kx (sqrt 1/2))) (taylor -inf kx) (#s(alt (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx) (patch (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx) #<representation binary64>) () ())) ())
#s(alt (* -1 (* kx (- (* -1 (/ (sqrt 1/2) (pow kx 2))) (* 1/12 (/ 1 (sqrt 1/2)))))) (taylor -inf kx) (#s(alt (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx) (patch (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx) #<representation binary64>) () ())) ())
#s(alt (* -1 (* kx (- (* -1 (/ (sqrt 1/2) (pow kx 2))) (* 1/12 (/ 1 (sqrt 1/2)))))) (taylor -inf kx) (#s(alt (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx) (patch (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx) #<representation binary64>) () ())) ())
#s(alt (* -1 (* kx (- (* -1 (/ (sqrt 1/2) (pow kx 2))) (* 1/12 (/ 1 (sqrt 1/2)))))) (taylor -inf kx) (#s(alt (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx) (patch (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (* -1/2 (cos (* 2 ky)))) (taylor 0 kx) (#s(alt #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))) (patch #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (pow kx 2))) (taylor 0 kx) (#s(alt #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))) (patch #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* (pow kx 2) (+ 1 (* -1/3 (pow kx 2)))))) (taylor 0 kx) (#s(alt #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))) (patch #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* (pow kx 2) (+ 1 (* (pow kx 2) (- (* 2/45 (pow kx 2)) 1/3)))))) (taylor 0 kx) (#s(alt #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))) (patch #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))) (taylor inf kx) (#s(alt #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))) (patch #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))) (taylor inf kx) (#s(alt #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))) (patch #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))) (taylor inf kx) (#s(alt #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))) (patch #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))) (taylor inf kx) (#s(alt #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))) (patch #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx))))))) (taylor -inf kx) (#s(alt #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))) (patch #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx))))))) (taylor -inf kx) (#s(alt #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))) (patch #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx))))))) (taylor -inf kx) (#s(alt #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))) (patch #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx))))))) (taylor -inf kx) (#s(alt #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))) (patch #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (* 1/2 (- 1 (cos (* 2 kx)))) (taylor 0 ky) (#s(alt #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))) (patch #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 (- 1 (cos (* 2 kx)))) (pow ky 2)) (taylor 0 ky) (#s(alt #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))) (patch #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 (- 1 (cos (* 2 kx)))) (* (pow ky 2) (+ 1 (* -1/3 (pow ky 2))))) (taylor 0 ky) (#s(alt #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))) (patch #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 (- 1 (cos (* 2 kx)))) (* (pow ky 2) (+ 1 (* (pow ky 2) (- (* 2/45 (pow ky 2)) 1/3))))) (taylor 0 ky) (#s(alt #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))) (patch #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))) (taylor inf ky) (#s(alt #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))) (patch #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))) (taylor inf ky) (#s(alt #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))) (patch #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))) (taylor inf ky) (#s(alt #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))) (patch #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))) (taylor inf ky) (#s(alt #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))) (patch #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx)))))) (taylor -inf ky) (#s(alt #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))) (patch #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx)))))) (taylor -inf ky) (#s(alt #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))) (patch #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx)))))) (taylor -inf ky) (#s(alt #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))) (patch #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx)))))) (taylor -inf ky) (#s(alt #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))) (patch #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))) #<representation binary64>) () ())) ())
#s(alt (pow ky 2) (taylor 0 ky) (#s(alt (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) (patch (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* (pow ky 2) (+ 1 (* -1/3 (pow ky 2)))) (taylor 0 ky) (#s(alt (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) (patch (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* (pow ky 2) (+ 1 (* (pow ky 2) (- (* 2/45 (pow ky 2)) 1/3)))) (taylor 0 ky) (#s(alt (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) (patch (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #<representation binary64>) () ())) ())
#s(alt (* (pow ky 2) (+ 1 (* (pow ky 2) (- (* (pow ky 2) (+ 2/45 (* -1/315 (pow ky 2)))) 1/3)))) (taylor 0 ky) (#s(alt (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) (patch (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (* -1/2 (cos (* -2 ky)))) (taylor inf ky) (#s(alt (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) (patch (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (* -1/2 (cos (* -2 ky)))) (taylor inf ky) (#s(alt (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) (patch (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (* -1/2 (cos (* -2 ky)))) (taylor inf ky) (#s(alt (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) (patch (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (* -1/2 (cos (* -2 ky)))) (taylor inf ky) (#s(alt (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) (patch (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (* -1/2 (cos (* -2 ky)))) (taylor -inf ky) (#s(alt (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) (patch (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (* -1/2 (cos (* -2 ky)))) (taylor -inf ky) (#s(alt (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) (patch (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (* -1/2 (cos (* -2 ky)))) (taylor -inf ky) (#s(alt (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) (patch (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #<representation binary64>) () ())) ())
#s(alt (+ 1/2 (* -1/2 (cos (* -2 ky)))) (taylor -inf ky) (#s(alt (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) (patch (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ 1/2 (* -1/2 (cos (* 2 ky))))) (taylor 0 kx) (#s(alt (sqrt.f64 #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))) (patch (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ 1/2 (* -1/2 (cos (* 2 ky))))) (* 1/2 (* (pow kx 2) (sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky))))))))) (taylor 0 kx) (#s(alt (sqrt.f64 #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))) (patch (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ 1/2 (* -1/2 (cos (* 2 ky))))) (* (pow kx 2) (+ (* -1/2 (* (* (pow kx 2) (+ 1/3 (* 1/4 (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky)))))))) (sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky)))))))) (* 1/2 (sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky)))))))))) (taylor 0 kx) (#s(alt (sqrt.f64 #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))) (patch (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (+ 1/2 (* -1/2 (cos (* 2 ky))))) (* (pow kx 2) (+ (* 1/2 (sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky))))))) (* (pow kx 2) (+ (* -1/2 (* (+ 1/3 (* 1/4 (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky))))))) (sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky)))))))) (* 1/2 (* (* (pow kx 2) (- 2/45 (* -1/2 (/ (+ 1/3 (* 1/4 (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky))))))) (+ 1/2 (* -1/2 (cos (* 2 ky)))))))) (sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky))))))))))))) (taylor 0 kx) (#s(alt (sqrt.f64 #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))) (patch (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))) (taylor inf kx) (#s(alt (sqrt.f64 #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))) (patch (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))) (taylor inf kx) (#s(alt (sqrt.f64 #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))) (patch (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))) (taylor inf kx) (#s(alt (sqrt.f64 #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))) (patch (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))) (taylor inf kx) (#s(alt (sqrt.f64 #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))) (patch (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx)))))))) (taylor -inf kx) (#s(alt (sqrt.f64 #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))) (patch (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx)))))))) (taylor -inf kx) (#s(alt (sqrt.f64 #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))) (patch (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx)))))))) (taylor -inf kx) (#s(alt (sqrt.f64 #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))) (patch (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx)))))))) (taylor -inf kx) (#s(alt (sqrt.f64 #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))) (patch (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (* (sqrt 1/2) (sqrt (- 1 (cos (* 2 kx))))) (taylor 0 ky) (#s(alt (sqrt.f64 #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))) (patch (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (+ (* 1/2 (* (/ (pow ky 2) (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (* (sqrt 1/2) (sqrt (- 1 (cos (* 2 kx)))))) (taylor 0 ky) (#s(alt (sqrt.f64 #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))) (patch (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (+ (* (sqrt 1/2) (sqrt (- 1 (cos (* 2 kx))))) (* (pow ky 2) (+ (* -1/2 (* (/ (* (pow ky 2) (+ 1/3 (* 1/4 (/ 1 (* (pow (sqrt 1/2) 2) (- 1 (cos (* 2 kx)))))))) (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (* 1/2 (* (/ 1 (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))))))) (taylor 0 ky) (#s(alt (sqrt.f64 #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))) (patch (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (+ (* (sqrt 1/2) (sqrt (- 1 (cos (* 2 kx))))) (* (pow ky 2) (+ (* 1/2 (* (/ 1 (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (* (pow ky 2) (+ (* -1/2 (* (/ (+ 1/3 (* 1/4 (/ 1 (* (pow (sqrt 1/2) 2) (- 1 (cos (* 2 kx))))))) (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (* 1/2 (* (/ (* (pow ky 2) (- 2/45 (* -1/2 (/ (+ 1/3 (* 1/4 (/ 1 (* (pow (sqrt 1/2) 2) (- 1 (cos (* 2 kx))))))) (* (pow (sqrt 1/2) 2) (- 1 (cos (* 2 kx)))))))) (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))))))))) (taylor 0 ky) (#s(alt (sqrt.f64 #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))) (patch (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))) (taylor inf ky) (#s(alt (sqrt.f64 #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))) (patch (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))) (taylor inf ky) (#s(alt (sqrt.f64 #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))) (patch (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))) (taylor inf ky) (#s(alt (sqrt.f64 #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))) (patch (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))) (taylor inf ky) (#s(alt (sqrt.f64 #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))) (patch (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx))))))) (taylor -inf ky) (#s(alt (sqrt.f64 #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))) (patch (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx))))))) (taylor -inf ky) (#s(alt (sqrt.f64 #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))) (patch (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx))))))) (taylor -inf ky) (#s(alt (sqrt.f64 #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))) (patch (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt (sqrt (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx))))))) (taylor -inf ky) (#s(alt (sqrt.f64 #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))) (patch (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))) #<representation binary64>) () ())) ())
#s(alt th (taylor 0 th) (#s(alt #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th)) (patch #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th)) #<representation binary64>) () ())) ())
#s(alt (* th (+ 1 (* -1/6 (pow th 2)))) (taylor 0 th) (#s(alt #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th)) (patch #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th)) #<representation binary64>) () ())) ())
#s(alt (* th (+ 1 (* (pow th 2) (- (* 1/120 (pow th 2)) 1/6)))) (taylor 0 th) (#s(alt #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th)) (patch #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th)) #<representation binary64>) () ())) ())
#s(alt (* th (+ 1 (* (pow th 2) (- (* (pow th 2) (+ 1/120 (* -1/5040 (pow th 2)))) 1/6)))) (taylor 0 th) (#s(alt #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th)) (patch #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th)) #<representation binary64>) () ())) ())
#s(alt (sin th) (taylor inf th) (#s(alt #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th)) (patch #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th)) #<representation binary64>) () ())) ())
#s(alt (sin th) (taylor inf th) (#s(alt #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th)) (patch #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th)) #<representation binary64>) () ())) ())
#s(alt (sin th) (taylor inf th) (#s(alt #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th)) (patch #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th)) #<representation binary64>) () ())) ())
#s(alt (sin th) (taylor inf th) (#s(alt #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th)) (patch #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th)) #<representation binary64>) () ())) ())
#s(alt (sin th) (taylor -inf th) (#s(alt #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th)) (patch #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th)) #<representation binary64>) () ())) ())
#s(alt (sin th) (taylor -inf th) (#s(alt #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th)) (patch #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th)) #<representation binary64>) () ())) ())
#s(alt (sin th) (taylor -inf th) (#s(alt #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th)) (patch #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th)) #<representation binary64>) () ())) ())
#s(alt (sin th) (taylor -inf th) (#s(alt #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th)) (patch #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th)) #<representation binary64>) () ())) ())
#s(alt (sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky)))))) (taylor 0 kx) (#s(alt (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (patch (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky)))))) (* -1/2 (* (pow kx 2) (sqrt (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3)))))) (taylor 0 kx) (#s(alt (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (patch (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky)))))) (* (pow kx 2) (+ (* -1/2 (sqrt (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3)))) (* 1/2 (* (* (pow kx 2) (+ (* 1/3 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2))) (* 3/4 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))))) (sqrt (+ 1/2 (* -1/2 (cos (* 2 ky)))))))))) (taylor 0 kx) (#s(alt (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (patch (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) #<representation binary64>) () ())) ())
#s(alt (+ (sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky)))))) (* (pow kx 2) (+ (* -1/2 (sqrt (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3)))) (* (pow kx 2) (+ (* -1/2 (* (* (pow kx 2) (+ (* -1/2 (/ (+ (* 1/3 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2))) (* 3/4 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3)))) (+ 1/2 (* -1/2 (cos (* 2 ky)))))) (+ (* 2/45 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2))) (+ (* 2/3 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))) (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 4)))))) (sqrt (+ 1/2 (* -1/2 (cos (* 2 ky))))))) (* 1/2 (* (sqrt (+ 1/2 (* -1/2 (cos (* 2 ky))))) (+ (* 1/3 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2))) (* 3/4 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))))))))))) (taylor 0 kx) (#s(alt (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (patch (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))) (taylor inf kx) (#s(alt (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (patch (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))) (taylor inf kx) (#s(alt (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (patch (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))) (taylor inf kx) (#s(alt (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (patch (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))) (taylor inf kx) (#s(alt (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (patch (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx))))))))) (taylor -inf kx) (#s(alt (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (patch (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx))))))))) (taylor -inf kx) (#s(alt (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (patch (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx))))))))) (taylor -inf kx) (#s(alt (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (patch (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx))))))))) (taylor -inf kx) (#s(alt (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (patch (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) #<representation binary64>) () ())) ())
#s(alt (* (sqrt 2) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))) (taylor 0 ky) (#s(alt (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (patch (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) #<representation binary64>) () ())) ())
#s(alt (+ (* -2 (* (/ (pow ky 2) (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (* (sqrt 2) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (taylor 0 ky) (#s(alt (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (patch (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (sqrt 2) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* -2 (* (/ 1 (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (* 1/2 (* (/ (* (pow ky 2) (- (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (* 4 (/ 1 (* (pow (sqrt 2) 2) (pow (- 1 (cos (* 2 kx))) 3)))))) (sqrt 2)) (sqrt (- 1 (cos (* 2 kx))))))))) (taylor 0 ky) (#s(alt (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (patch (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) #<representation binary64>) () ())) ())
#s(alt (+ (* (sqrt 2) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* -2 (* (/ 1 (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (* (pow ky 2) (+ (* -1/2 (* (/ (* (pow ky 2) (+ (* -2 (/ (- (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (* 4 (/ 1 (* (pow (sqrt 2) 2) (pow (- 1 (cos (* 2 kx))) 3))))) (* (pow (sqrt 2) 2) (- 1 (cos (* 2 kx)))))) (+ (* 8/45 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (+ (* 2 (/ (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (- 1 (cos (* 2 kx))))) (* 8/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))))) (sqrt 2)) (sqrt (- 1 (cos (* 2 kx)))))) (* 1/2 (* (/ (- (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (* 4 (/ 1 (* (pow (sqrt 2) 2) (pow (- 1 (cos (* 2 kx))) 3))))) (sqrt 2)) (sqrt (- 1 (cos (* 2 kx))))))))))) (taylor 0 ky) (#s(alt (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (patch (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))) (taylor inf ky) (#s(alt (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (patch (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))) (taylor inf ky) (#s(alt (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (patch (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))) (taylor inf ky) (#s(alt (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (patch (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))) (taylor inf ky) (#s(alt (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (patch (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx)))))))) (taylor -inf ky) (#s(alt (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (patch (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx)))))))) (taylor -inf ky) (#s(alt (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (patch (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx)))))))) (taylor -inf ky) (#s(alt (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (patch (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) #<representation binary64>) () ())) ())
#s(alt (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx)))))))) (taylor -inf ky) (#s(alt (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (patch (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) #<representation binary64>) () ())) ())

Calls

135 calls:

Time	Variable		Point	Expression
50.0ms	ky	@	inf	(+ (* -1/2 (cos (* ky -2))) 1/2)
1.0ms	kx	@	-inf	(/ (* (sin ky) (sin th)) (sqrt (+ (* (- 1 (cos (+ kx kx))) 1/2) (pow (sin ky) 2))))
1.0ms	ky	@	inf	(/ (* (sin ky) (sin th)) (sqrt (+ (* (- 1 (cos (+ kx kx))) 1/2) (pow (sin ky) 2))))
1.0ms	ky	@	-inf	(/ (* (sin ky) (sin th)) (sqrt (+ (* (- 1 (cos (+ kx kx))) 1/2) (pow (sin ky) 2))))
1.0ms	kx	@	inf	(/ (* (sin ky) (sin th)) (sqrt (+ (* (- 1 (cos (+ kx kx))) 1/2) (pow (sin ky) 2))))

simplify320.0ms (2.4%)

Memory

-5.1MiB live, 482.7MiB allocated

Algorithm

1×	egg-herbie

Rules

7 184×	`lower-*.f64`
7 184×	`lower-*.f32`
6 878×	`lower-fma.f64`
6 878×	`lower-fma.f32`
5 114×	`lower-+.f64`

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	807	14871
1	2598	14119
2	6252	14051
0	8698	13177

Stop Event

1×	iter limit
1×	node limit

Counts

540 → 535

Calls

Call 1

Inputs
(* (* ky (* (sin th) (sqrt 2))) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))
(* ky (+ (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* -2 (* (/ (sin th) (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (* -1/6 (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))))))))
(* ky (+ (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* -2 (* (/ (sin th) (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (+ (* -1/6 (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (* (pow ky 2) (+ (* 1/120 (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (+ (* 1/3 (* (/ (sin th) (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (* 1/2 (* (/ (* (sin th) (- (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (* 4 (/ 1 (* (pow (sqrt 2) 2) (pow (- 1 (cos (* 2 kx))) 3)))))) (sqrt 2)) (sqrt (- 1 (cos (* 2 kx))))))))))))))
(* ky (+ (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* -2 (* (/ (sin th) (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (+ (* -1/6 (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (* (pow ky 2) (+ (* 1/120 (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (+ (* 1/3 (* (/ (sin th) (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (+ (* 1/2 (* (/ (* (sin th) (- (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (* 4 (/ 1 (* (pow (sqrt 2) 2) (pow (- 1 (cos (* 2 kx))) 3)))))) (sqrt 2)) (sqrt (- 1 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* -1/2 (* (/ (* (sin th) (+ (* -2 (/ (- (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (* 4 (/ 1 (* (pow (sqrt 2) 2) (pow (- 1 (cos (* 2 kx))) 3))))) (* (pow (sqrt 2) 2) (- 1 (cos (* 2 kx)))))) (+ (* 8/45 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (+ (* 2 (/ (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (- 1 (cos (* 2 kx))))) (* 8/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))))) (sqrt 2)) (sqrt (- 1 (cos (* 2 kx)))))) (+ (* -1/12 (* (/ (* (sin th) (- (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (* 4 (/ 1 (* (pow (sqrt 2) 2) (pow (- 1 (cos (* 2 kx))) 3)))))) (sqrt 2)) (sqrt (- 1 (cos (* 2 kx)))))) (+ (* -1/60 (* (/ (sin th) (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (* -1/5040 (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))))))))))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 kx)))) (pow (sin ky) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 kx)))) (pow (sin ky) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 kx)))) (pow (sin ky) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 kx)))) (pow (sin ky) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 kx)))) (pow (sin ky) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 kx)))) (pow (sin ky) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 kx)))) (pow (sin ky) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 kx)))) (pow (sin ky) 2)))))
(* (* th (sin ky)) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 kx)))) (pow (sin ky) 2)))))
(* th (+ (* -1/6 (* (* (pow th 2) (sin ky)) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 kx)))) (pow (sin ky) 2)))))) (* (sin ky) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 kx)))) (pow (sin ky) 2)))))))
(* th (+ (* (sin ky) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 kx)))) (pow (sin ky) 2))))) (* (pow th 2) (+ (* -1/6 (* (sin ky) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 kx)))) (pow (sin ky) 2)))))) (* 1/120 (* (* (pow th 2) (sin ky)) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 kx)))) (pow (sin ky) 2))))))))))
(* th (+ (* (sin ky) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 kx)))) (pow (sin ky) 2))))) (* (pow th 2) (+ (* -1/6 (* (sin ky) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 kx)))) (pow (sin ky) 2)))))) (* (pow th 2) (+ (* -1/5040 (* (* (pow th 2) (sin ky)) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 kx)))) (pow (sin ky) 2)))))) (* 1/120 (* (sin ky) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 kx)))) (pow (sin ky) 2))))))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 kx)))) (pow (sin ky) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 kx)))) (pow (sin ky) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 kx)))) (pow (sin ky) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 kx)))) (pow (sin ky) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 kx)))) (pow (sin ky) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 kx)))) (pow (sin ky) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 kx)))) (pow (sin ky) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 kx)))) (pow (sin ky) 2)))))
(sin th)
(+ (sin th) (* -1/2 (/ (* (pow kx 2) (sin th)) (pow (sin ky) 2))))
(+ (sin th) (* (pow kx 2) (+ (* -1/2 (/ (sin th) (pow (sin ky) 2))) (* 1/2 (* (pow kx 2) (* (pow (sin ky) 2) (* (sin th) (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (* 3/4 (/ 1 (pow (sin ky) 6)))))))))))
(+ (sin th) (* (pow kx 2) (+ (* -1/2 (/ (sin th) (pow (sin ky) 2))) (* (pow kx 2) (+ (* -1/2 (* (pow kx 2) (* (pow (sin ky) 2) (* (sin th) (+ (* -1/2 (/ (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (* 3/4 (/ 1 (pow (sin ky) 6)))) (pow (sin ky) 2))) (+ (* 2/45 (/ 1 (pow (sin ky) 4))) (+ (* 2/3 (/ 1 (pow (sin ky) 6))) (/ 1 (pow (sin ky) 8))))))))) (* 1/2 (* (pow (sin ky) 2) (* (sin th) (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (* 3/4 (/ 1 (pow (sin ky) 6))))))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 kx)))) (pow (sin ky) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 kx)))) (pow (sin ky) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 kx)))) (pow (sin ky) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 kx)))) (pow (sin ky) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (neg (* -2 kx))))) (pow (sin ky) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (neg (* -2 kx))))) (pow (sin ky) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (neg (* -2 kx))))) (pow (sin ky) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (neg (* -2 kx))))) (pow (sin ky) 2)))))
(* ky (sin th))
(* ky (+ (sin th) (* -1/6 (* (pow ky 2) (sin th)))))
(* ky (+ (sin th) (* (pow ky 2) (+ (* -1/6 (sin th)) (* 1/120 (* (pow ky 2) (sin th)))))))
(* ky (+ (sin th) (* (pow ky 2) (+ (* -1/6 (sin th)) (* (pow ky 2) (+ (* -1/5040 (* (pow ky 2) (sin th))) (* 1/120 (sin th))))))))
(* (sin ky) (sin th))
(* (sin ky) (sin th))
(* (sin ky) (sin th))
(* (sin ky) (sin th))
(* (sin ky) (sin th))
(* (sin ky) (sin th))
(* (sin ky) (sin th))
(* (sin ky) (sin th))
(* th (sin ky))
(* th (+ (sin ky) (* -1/6 (* (pow th 2) (sin ky)))))
(* th (+ (sin ky) (* (pow th 2) (+ (* -1/6 (sin ky)) (* 1/120 (* (pow th 2) (sin ky)))))))
(* th (+ (sin ky) (* (pow th 2) (+ (* -1/6 (sin ky)) (* (pow th 2) (+ (* -1/5040 (* (pow th 2) (sin ky))) (* 1/120 (sin ky))))))))
(* (sin ky) (sin th))
(* (sin ky) (sin th))
(* (sin ky) (sin th))
(* (sin ky) (sin th))
(* (sin ky) (sin th))
(* (sin ky) (sin th))
(* (sin ky) (sin th))
(* (sin ky) (sin th))
ky
(* ky (+ 1 (* -1/6 (pow ky 2))))
(* ky (+ 1 (* (pow ky 2) (- (* 1/120 (pow ky 2)) 1/6))))
(* ky (+ 1 (* (pow ky 2) (- (* (pow ky 2) (+ 1/120 (* -1/5040 (pow ky 2)))) 1/6))))
(sin ky)
(sin ky)
(sin ky)
(sin ky)
(sin ky)
(sin ky)
(sin ky)
(sin ky)
th
(* th (+ 1 (* -1/6 (pow th 2))))
(* th (+ 1 (* (pow th 2) (- (* 1/120 (pow th 2)) 1/6))))
(* th (+ 1 (* (pow th 2) (- (* (pow th 2) (+ 1/120 (* -1/5040 (pow th 2)))) 1/6))))
(sin th)
(sin th)
(sin th)
(sin th)
(sin th)
(sin th)
(sin th)
(sin th)
(/ (* ky (sin th)) (sin kx))
(* ky (+ (* (pow ky 2) (+ (* -1/2 (/ (sin th) (pow (sin kx) 3))) (* -1/6 (/ (sin th) (sin kx))))) (/ (sin th) (sin kx))))
(* ky (+ (* (pow ky 2) (+ (* -1/2 (/ (sin th) (pow (sin kx) 3))) (+ (* -1/6 (/ (sin th) (sin kx))) (* (pow ky 2) (+ (* 1/120 (/ (sin th) (sin kx))) (+ (* 1/12 (/ (sin th) (pow (sin kx) 3))) (* 1/2 (* (sin kx) (* (sin th) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6))))))))))))) (/ (sin th) (sin kx))))
(* ky (+ (* (pow ky 2) (+ (* -1/2 (/ (sin th) (pow (sin kx) 3))) (+ (* -1/6 (/ (sin th) (sin kx))) (* (pow ky 2) (+ (* 1/120 (/ (sin th) (sin kx))) (+ (* 1/12 (/ (sin th) (pow (sin kx) 3))) (+ (* 1/2 (* (sin kx) (* (sin th) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6))))))) (* (pow ky 2) (+ (* -1/2 (* (sin kx) (* (sin th) (+ (* -1/2 (/ (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6)))) (pow (sin kx) 2))) (+ (* 2/45 (/ 1 (pow (sin kx) 4))) (+ (* 2/3 (/ 1 (pow (sin kx) 6))) (/ 1 (pow (sin kx) 8)))))))) (+ (* -1/12 (* (sin kx) (* (sin th) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6))))))) (+ (* -1/240 (/ (sin th) (pow (sin kx) 3))) (* -1/5040 (/ (sin th) (sin kx)))))))))))))) (/ (sin th) (sin kx))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(sin th)
(+ (sin th) (* -1/2 (/ (* (pow kx 2) (sin th)) (pow (sin ky) 2))))
(+ (sin th) (* (pow kx 2) (+ (* -1/2 (/ (sin th) (pow (sin ky) 2))) (* 1/2 (* (pow kx 2) (* (pow (sin ky) 2) (* (sin th) (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (* 3/4 (/ 1 (pow (sin ky) 6)))))))))))
(+ (sin th) (* (pow kx 2) (+ (* -1/2 (/ (sin th) (pow (sin ky) 2))) (* (pow kx 2) (+ (* -1/2 (* (pow kx 2) (* (pow (sin ky) 2) (* (sin th) (+ (* -1/2 (/ (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (* 3/4 (/ 1 (pow (sin ky) 6)))) (pow (sin ky) 2))) (+ (* 2/45 (/ 1 (pow (sin ky) 4))) (+ (* 2/3 (/ 1 (pow (sin ky) 6))) (/ 1 (pow (sin ky) 8))))))))) (* 1/2 (* (pow (sin ky) 2) (* (sin th) (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (* 3/4 (/ 1 (pow (sin ky) 6))))))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (* th (sin ky)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* th (+ (* -1/6 (* (* (pow th 2) (sin ky)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))) (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))))
(* th (+ (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (* (pow th 2) (+ (* -1/6 (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))) (* 1/120 (* (* (pow th 2) (sin ky)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))))))))
(* th (+ (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (* (pow th 2) (+ (* -1/6 (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))) (* (pow th 2) (+ (* -1/5040 (* (* (pow th 2) (sin ky)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))) (* 1/120 (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
th
(* th (+ 1 (* -1/6 (pow th 2))))
(* th (+ 1 (* (pow th 2) (- (* 1/120 (pow th 2)) 1/6))))
(* th (+ 1 (* (pow th 2) (- (* (pow th 2) (+ 1/120 (* -1/5040 (pow th 2)))) 1/6))))
(sin th)
(sin th)
(sin th)
(sin th)
(sin th)
(sin th)
(sin th)
(sin th)
th
(* th (+ 1 (* -1/6 (pow th 2))))
(* th (+ 1 (* -1/6 (pow th 2))))
(* th (+ 1 (* -1/6 (pow th 2))))
(* -1/6 (pow th 3))
(* (pow th 3) (- (/ 1 (pow th 2)) 1/6))
(* (pow th 3) (- (/ 1 (pow th 2)) 1/6))
(* (pow th 3) (- (/ 1 (pow th 2)) 1/6))
(* -1/6 (pow th 3))
(* -1 (* (pow th 3) (- 1/6 (/ 1 (pow th 2)))))
(* -1 (* (pow th 3) (- 1/6 (/ 1 (pow th 2)))))
(* -1 (* (pow th 3) (- 1/6 (/ 1 (pow th 2)))))
(* -1/6 (pow th 3))
(* -1/6 (pow th 3))
(* -1/6 (pow th 3))
(* -1/6 (pow th 3))
(* -1/6 (pow th 3))
(* -1/6 (pow th 3))
(* -1/6 (pow th 3))
(* -1/6 (pow th 3))
(* -1/6 (pow th 3))
(* -1/6 (pow th 3))
(* -1/6 (pow th 3))
(* -1/6 (pow th 3))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky)))))))
(+ (* -1/2 (* (* (pow kx 2) (* (sin ky) (sin th))) (sqrt (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))))) (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky))))))))
(+ (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky))))))) (* (pow kx 2) (+ (* -1/2 (* (* (sin ky) (sin th)) (sqrt (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))))) (* 1/2 (* (* (pow kx 2) (* (sin ky) (* (sin th) (+ (* 1/3 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2))) (* 3/4 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))))))) (sqrt (+ 1/2 (* -1/2 (cos (* 2 ky))))))))))
(+ (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky))))))) (* (pow kx 2) (+ (* -1/2 (* (* (sin ky) (sin th)) (sqrt (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))))) (* (pow kx 2) (+ (* -1/2 (* (* (pow kx 2) (* (sin ky) (* (sin th) (+ (* -1/2 (/ (+ (* 1/3 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2))) (* 3/4 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3)))) (+ 1/2 (* -1/2 (cos (* 2 ky)))))) (+ (* 2/45 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2))) (+ (* 2/3 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))) (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 4)))))))) (sqrt (+ 1/2 (* -1/2 (cos (* 2 ky))))))) (* 1/2 (* (* (sin ky) (* (sin th) (+ (* 1/3 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2))) (* 3/4 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3)))))) (sqrt (+ 1/2 (* -1/2 (cos (* 2 ky))))))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx))))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx))))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx))))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx))))))))))
(* (* ky (* (sin th) (sqrt 2))) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))
(* ky (+ (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* -2 (* (/ (sin th) (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (* -1/6 (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))))))))
(* ky (+ (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* -2 (* (/ (sin th) (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (+ (* -1/6 (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (* (pow ky 2) (+ (* 1/120 (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (+ (* 1/3 (* (/ (sin th) (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (* 1/2 (* (/ (* (sin th) (- (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (* 4 (/ 1 (* (pow (sqrt 2) 2) (pow (- 1 (cos (* 2 kx))) 3)))))) (sqrt 2)) (sqrt (- 1 (cos (* 2 kx))))))))))))))
(* ky (+ (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* -2 (* (/ (sin th) (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (+ (* -1/6 (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (* (pow ky 2) (+ (* 1/120 (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (+ (* 1/3 (* (/ (sin th) (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (+ (* 1/2 (* (/ (* (sin th) (- (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (* 4 (/ 1 (* (pow (sqrt 2) 2) (pow (- 1 (cos (* 2 kx))) 3)))))) (sqrt 2)) (sqrt (- 1 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* -1/2 (* (/ (* (sin th) (+ (* -2 (/ (- (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (* 4 (/ 1 (* (pow (sqrt 2) 2) (pow (- 1 (cos (* 2 kx))) 3))))) (* (pow (sqrt 2) 2) (- 1 (cos (* 2 kx)))))) (+ (* 8/45 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (+ (* 2 (/ (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (- 1 (cos (* 2 kx))))) (* 8/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))))) (sqrt 2)) (sqrt (- 1 (cos (* 2 kx)))))) (+ (* -1/12 (* (/ (* (sin th) (- (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (* 4 (/ 1 (* (pow (sqrt 2) 2) (pow (- 1 (cos (* 2 kx))) 3)))))) (sqrt 2)) (sqrt (- 1 (cos (* 2 kx)))))) (+ (* -1/60 (* (/ (sin th) (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (* -1/5040 (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))))))))))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(* (* th (sin ky)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(* th (+ (* -1/6 (* (* (pow th 2) (sin ky)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))) (* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))))
(* th (+ (* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (* (pow th 2) (+ (* -1/6 (* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))) (* 1/120 (* (* (pow th 2) (sin ky)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))))))))
(* th (+ (* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (* (pow th 2) (+ (* -1/6 (* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))) (* (pow th 2) (+ (* -1/5040 (* (* (pow th 2) (sin ky)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))) (* 1/120 (* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(* (sin ky) (sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky)))))))
(+ (* -1/2 (* (* (pow kx 2) (sin ky)) (sqrt (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))))) (* (sin ky) (sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky))))))))
(+ (* (sin ky) (sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky))))))) (* (pow kx 2) (+ (* -1/2 (* (sin ky) (sqrt (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))))) (* 1/2 (* (* (pow kx 2) (* (sin ky) (+ (* 1/3 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2))) (* 3/4 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3)))))) (sqrt (+ 1/2 (* -1/2 (cos (* 2 ky))))))))))
(+ (* (sin ky) (sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky))))))) (* (pow kx 2) (+ (* -1/2 (* (sin ky) (sqrt (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))))) (* (pow kx 2) (+ (* -1/2 (* (* (pow kx 2) (* (sin ky) (+ (* -1/2 (/ (+ (* 1/3 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2))) (* 3/4 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3)))) (+ 1/2 (* -1/2 (cos (* 2 ky)))))) (+ (* 2/45 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2))) (+ (* 2/3 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))) (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 4))))))) (sqrt (+ 1/2 (* -1/2 (cos (* 2 ky))))))) (* 1/2 (* (* (sin ky) (+ (* 1/3 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2))) (* 3/4 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))))) (sqrt (+ 1/2 (* -1/2 (cos (* 2 ky))))))))))))
(* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx))))))))))
(* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx))))))))))
(* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx))))))))))
(* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx))))))))))
(* (* ky (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))
(* ky (+ (* (sqrt 2) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* -2 (* (/ 1 (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (* -1/6 (* (sqrt 2) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))))))))
(* ky (+ (* (sqrt 2) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* -2 (* (/ 1 (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (+ (* -1/6 (* (sqrt 2) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (* (pow ky 2) (+ (* 1/120 (* (sqrt 2) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (+ (* 1/3 (* (/ 1 (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (* 1/2 (* (/ (- (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (* 4 (/ 1 (* (pow (sqrt 2) 2) (pow (- 1 (cos (* 2 kx))) 3))))) (sqrt 2)) (sqrt (- 1 (cos (* 2 kx))))))))))))))
(* ky (+ (* (sqrt 2) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* -2 (* (/ 1 (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (+ (* -1/6 (* (sqrt 2) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (* (pow ky 2) (+ (* 1/120 (* (sqrt 2) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (+ (* 1/3 (* (/ 1 (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (+ (* 1/2 (* (/ (- (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (* 4 (/ 1 (* (pow (sqrt 2) 2) (pow (- 1 (cos (* 2 kx))) 3))))) (sqrt 2)) (sqrt (- 1 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* -1/2 (* (/ (+ (* -2 (/ (- (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (* 4 (/ 1 (* (pow (sqrt 2) 2) (pow (- 1 (cos (* 2 kx))) 3))))) (* (pow (sqrt 2) 2) (- 1 (cos (* 2 kx)))))) (+ (* 8/45 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (+ (* 2 (/ (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (- 1 (cos (* 2 kx))))) (* 8/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))))) (sqrt 2)) (sqrt (- 1 (cos (* 2 kx)))))) (+ (* -1/12 (* (/ (- (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (* 4 (/ 1 (* (pow (sqrt 2) 2) (pow (- 1 (cos (* 2 kx))) 3))))) (sqrt 2)) (sqrt (- 1 (cos (* 2 kx)))))) (+ (* -1/60 (* (/ 1 (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (* -1/5040 (* (sqrt 2) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))))))))))))))))
(* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(/ (* ky (* (sqrt 1/2) (sqrt 2))) kx)
(/ (+ (* 1/12 (/ (* (pow kx 2) (* ky (sqrt 2))) (sqrt 1/2))) (* ky (* (sqrt 1/2) (sqrt 2)))) kx)
(/ (+ (* ky (* (sqrt 1/2) (sqrt 2))) (* (pow kx 2) (+ (* 1/12 (/ (* ky (sqrt 2)) (sqrt 1/2))) (* 1/2 (/ (* (pow kx 2) (* ky (* (sqrt 2) (- 1/30 (* 1/144 (/ 1 (pow (sqrt 1/2) 2))))))) (sqrt 1/2)))))) kx)
(/ (+ (* ky (* (sqrt 1/2) (sqrt 2))) (* (pow kx 2) (+ (* 1/12 (/ (* ky (sqrt 2)) (sqrt 1/2))) (* (pow kx 2) (+ (* 1/2 (/ (* ky (* (sqrt 2) (- 1/30 (* 1/144 (/ 1 (pow (sqrt 1/2) 2)))))) (sqrt 1/2))) (* 1/2 (/ (* (pow kx 2) (* ky (* (sqrt 2) (- 1/189 (* 1/12 (/ (- 1/30 (* 1/144 (/ 1 (pow (sqrt 1/2) 2)))) (pow (sqrt 1/2) 2))))))) (sqrt 1/2)))))))) kx)
(* (* ky (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* -2 kx))))))
(* (* ky (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* -2 kx))))))
(* (* ky (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* -2 kx))))))
(* (* ky (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* -2 kx))))))
(* (* ky (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* -2 kx))))))
(* (* ky (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* -2 kx))))))
(* (* ky (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* -2 kx))))))
(* (* ky (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* -2 kx))))))
(* (* ky (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* -2 kx))))))
(* (* ky (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* -2 kx))))))
(* (* ky (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* -2 kx))))))
(* (* ky (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* -2 kx))))))
(* (* ky (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* -2 kx))))))
(* (* ky (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* -2 kx))))))
(* (* ky (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* -2 kx))))))
(* (* ky (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* -2 kx))))))
(* (* ky (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* -2 kx))))))
(* (* ky (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* -2 kx))))))
(* (* ky (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* -2 kx))))))
(* (* ky (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* -2 kx))))))
(/ (sqrt 1/2) kx)
(/ (+ (sqrt 1/2) (* 1/12 (/ (pow kx 2) (sqrt 1/2)))) kx)
(/ (+ (sqrt 1/2) (* (pow kx 2) (+ (* 1/2 (/ (* (pow kx 2) (- 1/30 (* 1/144 (/ 1 (pow (sqrt 1/2) 2))))) (sqrt 1/2))) (* 1/12 (/ 1 (sqrt 1/2)))))) kx)
(/ (+ (sqrt 1/2) (* (pow kx 2) (+ (* (pow kx 2) (+ (* 1/2 (/ (* (pow kx 2) (- 1/189 (* 1/12 (/ (- 1/30 (* 1/144 (/ 1 (pow (sqrt 1/2) 2)))) (pow (sqrt 1/2) 2))))) (sqrt 1/2))) (* 1/2 (/ (- 1/30 (* 1/144 (/ 1 (pow (sqrt 1/2) 2)))) (sqrt 1/2))))) (* 1/12 (/ 1 (sqrt 1/2)))))) kx)
(sqrt (/ 1 (- 1 (cos (* -2 kx)))))
(sqrt (/ 1 (- 1 (cos (* -2 kx)))))
(sqrt (/ 1 (- 1 (cos (* -2 kx)))))
(sqrt (/ 1 (- 1 (cos (* -2 kx)))))
(sqrt (/ 1 (- 1 (cos (* -2 kx)))))
(sqrt (/ 1 (- 1 (cos (* -2 kx)))))
(sqrt (/ 1 (- 1 (cos (* -2 kx)))))
(sqrt (/ 1 (- 1 (cos (* -2 kx)))))
(* (* ky (* (sin th) (sqrt 2))) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))
(* ky (+ (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* -2 (* (/ (sin th) (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (* -1/6 (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))))))))
(* ky (+ (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* -2 (* (/ (sin th) (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (+ (* -1/6 (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (* (pow ky 2) (+ (* 1/120 (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (+ (* 1/3 (* (/ (sin th) (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (* 1/2 (* (/ (* (sin th) (- (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (* 4 (/ 1 (* (pow (sqrt 2) 2) (pow (- 1 (cos (* 2 kx))) 3)))))) (sqrt 2)) (sqrt (- 1 (cos (* 2 kx))))))))))))))
(* ky (+ (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* -2 (* (/ (sin th) (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (+ (* -1/6 (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (* (pow ky 2) (+ (* 1/120 (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (+ (* 1/3 (* (/ (sin th) (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (+ (* 1/2 (* (/ (* (sin th) (- (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (* 4 (/ 1 (* (pow (sqrt 2) 2) (pow (- 1 (cos (* 2 kx))) 3)))))) (sqrt 2)) (sqrt (- 1 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* -1/2 (* (/ (* (sin th) (+ (* -2 (/ (- (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (* 4 (/ 1 (* (pow (sqrt 2) 2) (pow (- 1 (cos (* 2 kx))) 3))))) (* (pow (sqrt 2) 2) (- 1 (cos (* 2 kx)))))) (+ (* 8/45 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (+ (* 2 (/ (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (- 1 (cos (* 2 kx))))) (* 8/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))))) (sqrt 2)) (sqrt (- 1 (cos (* 2 kx)))))) (+ (* -1/12 (* (/ (* (sin th) (- (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (* 4 (/ 1 (* (pow (sqrt 2) 2) (pow (- 1 (cos (* 2 kx))) 3)))))) (sqrt 2)) (sqrt (- 1 (cos (* 2 kx)))))) (+ (* -1/60 (* (/ (sin th) (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (* -1/5040 (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))))))))))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(* (* th (sin ky)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(* th (+ (* -1/6 (* (* (pow th 2) (sin ky)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))) (* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))))
(* th (+ (* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (* (pow th 2) (+ (* -1/6 (* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))) (* 1/120 (* (* (pow th 2) (sin ky)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))))))))
(* th (+ (* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (* (pow th 2) (+ (* -1/6 (* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))) (* (pow th 2) (+ (* -1/5040 (* (* (pow th 2) (sin ky)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))) (* 1/120 (* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky)))))))
(+ (* -1/2 (* (* (pow kx 2) (* (sin ky) (sin th))) (sqrt (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))))) (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky))))))))
(+ (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky))))))) (* (pow kx 2) (+ (* -1/2 (* (* (sin ky) (sin th)) (sqrt (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))))) (* 1/2 (* (* (pow kx 2) (* (sin ky) (* (sin th) (+ (* 1/3 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2))) (* 3/4 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))))))) (sqrt (+ 1/2 (* -1/2 (cos (* 2 ky))))))))))
(+ (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky))))))) (* (pow kx 2) (+ (* -1/2 (* (* (sin ky) (sin th)) (sqrt (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))))) (* (pow kx 2) (+ (* -1/2 (* (* (pow kx 2) (* (sin ky) (* (sin th) (+ (* -1/2 (/ (+ (* 1/3 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2))) (* 3/4 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3)))) (+ 1/2 (* -1/2 (cos (* 2 ky)))))) (+ (* 2/45 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2))) (+ (* 2/3 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))) (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 4)))))))) (sqrt (+ 1/2 (* -1/2 (cos (* 2 ky))))))) (* 1/2 (* (* (sin ky) (* (sin th) (+ (* 1/3 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2))) (* 3/4 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3)))))) (sqrt (+ 1/2 (* -1/2 (cos (* 2 ky))))))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx))))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx))))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx))))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx))))))))))
(+ 1/2 (* -1/2 (cos (* 2 ky))))
(+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (pow kx 2)))
(+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* (pow kx 2) (+ 1 (* -1/3 (pow kx 2))))))
(+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* (pow kx 2) (+ 1 (* (pow kx 2) (- (* 2/45 (pow kx 2)) 1/3))))))
(+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))
(+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))
(+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))
(+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))
(+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx)))))))
(+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx)))))))
(+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx)))))))
(+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx)))))))
(* 1/2 (- 1 (cos (* 2 kx))))
(+ (* 1/2 (- 1 (cos (* 2 kx)))) (pow ky 2))
(+ (* 1/2 (- 1 (cos (* 2 kx)))) (* (pow ky 2) (+ 1 (* -1/3 (pow ky 2)))))
(+ (* 1/2 (- 1 (cos (* 2 kx)))) (* (pow ky 2) (+ 1 (* (pow ky 2) (- (* 2/45 (pow ky 2)) 1/3)))))
(+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))
(+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))
(+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))
(+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))
(+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx))))))
(+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx))))))
(+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx))))))
(+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx))))))
(/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky)))))
(+ (* -1 (/ (pow kx 2) (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2))) (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky))))))
(+ (* (pow kx 2) (- (* (pow kx 2) (+ (* 1/3 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2))) (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3)))) (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2)))) (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky))))))
(+ (* (pow kx 2) (- (* (pow kx 2) (+ (* -1 (* (pow kx 2) (+ (* 2/45 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2))) (+ (* 2/3 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))) (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 4)))))) (+ (* 1/3 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2))) (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))))) (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2)))) (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky))))))
(/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))
(/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))
(/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))
(/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))
(/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx))))))))
(/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx))))))))
(/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx))))))))
(/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx))))))))
(/ 2 (- 1 (cos (* 2 kx))))
(+ (* -4 (/ (pow ky 2) (pow (- 1 (cos (* 2 kx))) 2))) (* 2 (/ 1 (- 1 (cos (* 2 kx))))))
(+ (* (pow ky 2) (- (* (pow ky 2) (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (* 4 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))))) (* 2 (/ 1 (- 1 (cos (* 2 kx))))))
(+ (* (pow ky 2) (- (* (pow ky 2) (+ (* -1 (* (pow ky 2) (+ (* 8/45 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (+ (* 2 (/ (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (- 1 (cos (* 2 kx))))) (* 8/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))))) (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))))) (* 4 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))))) (* 2 (/ 1 (- 1 (cos (* 2 kx))))))
(/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))
(/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))
(/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))
(/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))
(/ 1 (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx)))))))
(/ 1 (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx)))))))
(/ 1 (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx)))))))
(/ 1 (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx)))))))
(pow ky 2)
(* (pow ky 2) (+ 1 (* -1/3 (pow ky 2))))
(* (pow ky 2) (+ 1 (* (pow ky 2) (- (* 2/45 (pow ky 2)) 1/3))))
(* (pow ky 2) (+ 1 (* (pow ky 2) (- (* (pow ky 2) (+ 2/45 (* -1/315 (pow ky 2)))) 1/3))))
(+ 1/2 (* -1/2 (cos (* 2 ky))))
(+ 1/2 (* -1/2 (cos (* 2 ky))))
(+ 1/2 (* -1/2 (cos (* 2 ky))))
(+ 1/2 (* -1/2 (cos (* 2 ky))))
(+ 1/2 (* -1/2 (cos (neg (* -2 ky)))))
(+ 1/2 (* -1/2 (cos (neg (* -2 ky)))))
(+ 1/2 (* -1/2 (cos (neg (* -2 ky)))))
(+ 1/2 (* -1/2 (cos (neg (* -2 ky)))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky)))))))
(+ (* -1/2 (* (* (pow kx 2) (* (sin ky) (sin th))) (sqrt (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))))) (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky))))))))
(+ (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky))))))) (* (pow kx 2) (+ (* -1/2 (* (* (sin ky) (sin th)) (sqrt (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))))) (* 1/2 (* (* (pow kx 2) (* (sin ky) (* (sin th) (+ (* 1/3 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2))) (* 3/4 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))))))) (sqrt (+ 1/2 (* -1/2 (cos (* 2 ky))))))))))
(+ (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky))))))) (* (pow kx 2) (+ (* -1/2 (* (* (sin ky) (sin th)) (sqrt (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))))) (* (pow kx 2) (+ (* -1/2 (* (* (pow kx 2) (* (sin ky) (* (sin th) (+ (* -1/2 (/ (+ (* 1/3 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2))) (* 3/4 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3)))) (+ 1/2 (* -1/2 (cos (* 2 ky)))))) (+ (* 2/45 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2))) (+ (* 2/3 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))) (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 4)))))))) (sqrt (+ 1/2 (* -1/2 (cos (* 2 ky))))))) (* 1/2 (* (* (sin ky) (* (sin th) (+ (* 1/3 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2))) (* 3/4 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3)))))) (sqrt (+ 1/2 (* -1/2 (cos (* 2 ky))))))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx))))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx))))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx))))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx))))))))))
(* (* ky (* (sin th) (sqrt 2))) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))
(* ky (+ (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* -2 (* (/ (sin th) (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (* -1/6 (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))))))))
(* ky (+ (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* -2 (* (/ (sin th) (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (+ (* -1/6 (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (* (pow ky 2) (+ (* 1/120 (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (+ (* 1/3 (* (/ (sin th) (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (* 1/2 (* (/ (* (sin th) (- (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (* 4 (/ 1 (* (pow (sqrt 2) 2) (pow (- 1 (cos (* 2 kx))) 3)))))) (sqrt 2)) (sqrt (- 1 (cos (* 2 kx))))))))))))))
(* ky (+ (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* -2 (* (/ (sin th) (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (+ (* -1/6 (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (* (pow ky 2) (+ (* 1/120 (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (+ (* 1/3 (* (/ (sin th) (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (+ (* 1/2 (* (/ (* (sin th) (- (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (* 4 (/ 1 (* (pow (sqrt 2) 2) (pow (- 1 (cos (* 2 kx))) 3)))))) (sqrt 2)) (sqrt (- 1 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* -1/2 (* (/ (* (sin th) (+ (* -2 (/ (- (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (* 4 (/ 1 (* (pow (sqrt 2) 2) (pow (- 1 (cos (* 2 kx))) 3))))) (* (pow (sqrt 2) 2) (- 1 (cos (* 2 kx)))))) (+ (* 8/45 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (+ (* 2 (/ (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (- 1 (cos (* 2 kx))))) (* 8/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))))) (sqrt 2)) (sqrt (- 1 (cos (* 2 kx)))))) (+ (* -1/12 (* (/ (* (sin th) (- (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (* 4 (/ 1 (* (pow (sqrt 2) 2) (pow (- 1 (cos (* 2 kx))) 3)))))) (sqrt 2)) (sqrt (- 1 (cos (* 2 kx)))))) (+ (* -1/60 (* (/ (sin th) (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (* -1/5040 (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))))))))))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(* (* th (sin ky)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(* th (+ (* -1/6 (* (* (pow th 2) (sin ky)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))) (* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))))
(* th (+ (* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (* (pow th 2) (+ (* -1/6 (* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))) (* 1/120 (* (* (pow th 2) (sin ky)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))))))))
(* th (+ (* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (* (pow th 2) (+ (* -1/6 (* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))) (* (pow th 2) (+ (* -1/5040 (* (* (pow th 2) (sin ky)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))) (* 1/120 (* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(* 2 (pow kx 2))
(* (pow kx 2) (+ 2 (* -2/3 (pow kx 2))))
(* (pow kx 2) (+ 2 (* (pow kx 2) (- (* 4/45 (pow kx 2)) 2/3))))
(* (pow kx 2) (+ 2 (* (pow kx 2) (- (* (pow kx 2) (+ 4/45 (* -2/315 (pow kx 2)))) 2/3))))
(- 1 (cos (* 2 kx)))
(- 1 (cos (* 2 kx)))
(- 1 (cos (* 2 kx)))
(- 1 (cos (* 2 kx)))
(- 1 (cos (neg (* -2 kx))))
(- 1 (cos (neg (* -2 kx))))
(- 1 (cos (neg (* -2 kx))))
(- 1 (cos (neg (* -2 kx))))
(sin ky)
(+ (sin ky) (* 1/2 (/ (pow kx 2) (sin ky))))
(+ (sin ky) (* (pow kx 2) (+ (* -1/2 (/ (* (pow kx 2) (+ 1/3 (* 1/4 (/ 1 (pow (sin ky) 2))))) (sin ky))) (* 1/2 (/ 1 (sin ky))))))
(+ (sin ky) (* (pow kx 2) (+ (* (pow kx 2) (+ (* -1/2 (/ (+ 1/3 (* 1/4 (/ 1 (pow (sin ky) 2)))) (sin ky))) (* 1/2 (/ (* (pow kx 2) (- 2/45 (* -1/2 (/ (+ 1/3 (* 1/4 (/ 1 (pow (sin ky) 2)))) (pow (sin ky) 2))))) (sin ky))))) (* 1/2 (/ 1 (sin ky))))))
(sqrt (+ (* 1/2 (- 1 (cos (* 2 kx)))) (pow (sin ky) 2)))
(sqrt (+ (* 1/2 (- 1 (cos (* 2 kx)))) (pow (sin ky) 2)))
(sqrt (+ (* 1/2 (- 1 (cos (* 2 kx)))) (pow (sin ky) 2)))
(sqrt (+ (* 1/2 (- 1 (cos (* 2 kx)))) (pow (sin ky) 2)))
(sqrt (+ (* 1/2 (- 1 (cos (neg (* -2 kx))))) (pow (sin ky) 2)))
(sqrt (+ (* 1/2 (- 1 (cos (neg (* -2 kx))))) (pow (sin ky) 2)))
(sqrt (+ (* 1/2 (- 1 (cos (neg (* -2 kx))))) (pow (sin ky) 2)))
(sqrt (+ (* 1/2 (- 1 (cos (neg (* -2 kx))))) (pow (sin ky) 2)))
(* (sqrt 1/2) (sqrt (- 1 (cos (* 2 kx)))))
(+ (* 1/2 (* (/ (pow ky 2) (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (* (sqrt 1/2) (sqrt (- 1 (cos (* 2 kx))))))
(+ (* (sqrt 1/2) (sqrt (- 1 (cos (* 2 kx))))) (* (pow ky 2) (+ (* -1/2 (* (/ (* (pow ky 2) (+ 1/3 (* 1/4 (/ 1 (* (pow (sqrt 1/2) 2) (- 1 (cos (* 2 kx)))))))) (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (* 1/2 (* (/ 1 (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))))))
(+ (* (sqrt 1/2) (sqrt (- 1 (cos (* 2 kx))))) (* (pow ky 2) (+ (* 1/2 (* (/ 1 (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (* (pow ky 2) (+ (* -1/2 (* (/ (+ 1/3 (* 1/4 (/ 1 (* (pow (sqrt 1/2) 2) (- 1 (cos (* 2 kx))))))) (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (* 1/2 (* (/ (* (pow ky 2) (- 2/45 (* -1/2 (/ (+ 1/3 (* 1/4 (/ 1 (* (pow (sqrt 1/2) 2) (- 1 (cos (* 2 kx))))))) (* (pow (sqrt 1/2) 2) (- 1 (cos (* 2 kx)))))))) (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))))))))
(sqrt (+ (* 1/2 (- 1 (cos (* 2 kx)))) (pow (sin ky) 2)))
(sqrt (+ (* 1/2 (- 1 (cos (* 2 kx)))) (pow (sin ky) 2)))
(sqrt (+ (* 1/2 (- 1 (cos (* 2 kx)))) (pow (sin ky) 2)))
(sqrt (+ (* 1/2 (- 1 (cos (* 2 kx)))) (pow (sin ky) 2)))
(sqrt (+ (* 1/2 (- 1 (cos (* 2 kx)))) (pow (sin ky) 2)))
(sqrt (+ (* 1/2 (- 1 (cos (* 2 kx)))) (pow (sin ky) 2)))
(sqrt (+ (* 1/2 (- 1 (cos (* 2 kx)))) (pow (sin ky) 2)))
(sqrt (+ (* 1/2 (- 1 (cos (* 2 kx)))) (pow (sin ky) 2)))
(pow ky 2)
(* (pow ky 2) (+ 1 (* -1/3 (pow ky 2))))
(* (pow ky 2) (+ 1 (* (pow ky 2) (- (* 2/45 (pow ky 2)) 1/3))))
(* (pow ky 2) (+ 1 (* (pow ky 2) (- (* (pow ky 2) (+ 2/45 (* -1/315 (pow ky 2)))) 1/3))))
(pow (sin ky) 2)
(pow (sin ky) 2)
(pow (sin ky) 2)
(pow (sin ky) 2)
(pow (sin ky) 2)
(pow (sin ky) 2)
(pow (sin ky) 2)
(pow (sin ky) 2)
(/ (sqrt 1/2) kx)
(/ (+ (sqrt 1/2) (* 1/12 (/ (pow kx 2) (sqrt 1/2)))) kx)
(/ (+ (sqrt 1/2) (* 1/12 (/ (pow kx 2) (sqrt 1/2)))) kx)
(/ (+ (sqrt 1/2) (* 1/12 (/ (pow kx 2) (sqrt 1/2)))) kx)
(* 1/12 (/ kx (sqrt 1/2)))
(* kx (+ (* 1/12 (/ 1 (sqrt 1/2))) (/ (sqrt 1/2) (pow kx 2))))
(* kx (+ (* 1/12 (/ 1 (sqrt 1/2))) (/ (sqrt 1/2) (pow kx 2))))
(* kx (+ (* 1/12 (/ 1 (sqrt 1/2))) (/ (sqrt 1/2) (pow kx 2))))
(* 1/12 (/ kx (sqrt 1/2)))
(* -1 (* kx (- (* -1 (/ (sqrt 1/2) (pow kx 2))) (* 1/12 (/ 1 (sqrt 1/2))))))
(* -1 (* kx (- (* -1 (/ (sqrt 1/2) (pow kx 2))) (* 1/12 (/ 1 (sqrt 1/2))))))
(* -1 (* kx (- (* -1 (/ (sqrt 1/2) (pow kx 2))) (* 1/12 (/ 1 (sqrt 1/2))))))
(+ 1/2 (* -1/2 (cos (* 2 ky))))
(+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (pow kx 2)))
(+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* (pow kx 2) (+ 1 (* -1/3 (pow kx 2))))))
(+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* (pow kx 2) (+ 1 (* (pow kx 2) (- (* 2/45 (pow kx 2)) 1/3))))))
(+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))
(+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))
(+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))
(+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))
(+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx)))))))
(+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx)))))))
(+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx)))))))
(+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx)))))))
(* 1/2 (- 1 (cos (* 2 kx))))
(+ (* 1/2 (- 1 (cos (* 2 kx)))) (pow ky 2))
(+ (* 1/2 (- 1 (cos (* 2 kx)))) (* (pow ky 2) (+ 1 (* -1/3 (pow ky 2)))))
(+ (* 1/2 (- 1 (cos (* 2 kx)))) (* (pow ky 2) (+ 1 (* (pow ky 2) (- (* 2/45 (pow ky 2)) 1/3)))))
(+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))
(+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))
(+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))
(+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))
(+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx))))))
(+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx))))))
(+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx))))))
(+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx))))))
(pow ky 2)
(* (pow ky 2) (+ 1 (* -1/3 (pow ky 2))))
(* (pow ky 2) (+ 1 (* (pow ky 2) (- (* 2/45 (pow ky 2)) 1/3))))
(* (pow ky 2) (+ 1 (* (pow ky 2) (- (* (pow ky 2) (+ 2/45 (* -1/315 (pow ky 2)))) 1/3))))
(+ 1/2 (* -1/2 (cos (* -2 ky))))
(+ 1/2 (* -1/2 (cos (* -2 ky))))
(+ 1/2 (* -1/2 (cos (* -2 ky))))
(+ 1/2 (* -1/2 (cos (* -2 ky))))
(+ 1/2 (* -1/2 (cos (* -2 ky))))
(+ 1/2 (* -1/2 (cos (* -2 ky))))
(+ 1/2 (* -1/2 (cos (* -2 ky))))
(+ 1/2 (* -1/2 (cos (* -2 ky))))
(sqrt (+ 1/2 (* -1/2 (cos (* 2 ky)))))
(+ (sqrt (+ 1/2 (* -1/2 (cos (* 2 ky))))) (* 1/2 (* (pow kx 2) (sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky)))))))))
(+ (sqrt (+ 1/2 (* -1/2 (cos (* 2 ky))))) (* (pow kx 2) (+ (* -1/2 (* (* (pow kx 2) (+ 1/3 (* 1/4 (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky)))))))) (sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky)))))))) (* 1/2 (sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky))))))))))
(+ (sqrt (+ 1/2 (* -1/2 (cos (* 2 ky))))) (* (pow kx 2) (+ (* 1/2 (sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky))))))) (* (pow kx 2) (+ (* -1/2 (* (+ 1/3 (* 1/4 (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky))))))) (sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky)))))))) (* 1/2 (* (* (pow kx 2) (- 2/45 (* -1/2 (/ (+ 1/3 (* 1/4 (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky))))))) (+ 1/2 (* -1/2 (cos (* 2 ky)))))))) (sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky)))))))))))))
(sqrt (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))
(sqrt (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))
(sqrt (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))
(sqrt (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))
(sqrt (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx))))))))
(sqrt (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx))))))))
(sqrt (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx))))))))
(sqrt (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx))))))))
(* (sqrt 1/2) (sqrt (- 1 (cos (* 2 kx)))))
(+ (* 1/2 (* (/ (pow ky 2) (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (* (sqrt 1/2) (sqrt (- 1 (cos (* 2 kx))))))
(+ (* (sqrt 1/2) (sqrt (- 1 (cos (* 2 kx))))) (* (pow ky 2) (+ (* -1/2 (* (/ (* (pow ky 2) (+ 1/3 (* 1/4 (/ 1 (* (pow (sqrt 1/2) 2) (- 1 (cos (* 2 kx)))))))) (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (* 1/2 (* (/ 1 (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))))))
(+ (* (sqrt 1/2) (sqrt (- 1 (cos (* 2 kx))))) (* (pow ky 2) (+ (* 1/2 (* (/ 1 (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (* (pow ky 2) (+ (* -1/2 (* (/ (+ 1/3 (* 1/4 (/ 1 (* (pow (sqrt 1/2) 2) (- 1 (cos (* 2 kx))))))) (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (* 1/2 (* (/ (* (pow ky 2) (- 2/45 (* -1/2 (/ (+ 1/3 (* 1/4 (/ 1 (* (pow (sqrt 1/2) 2) (- 1 (cos (* 2 kx))))))) (* (pow (sqrt 1/2) 2) (- 1 (cos (* 2 kx)))))))) (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))))))))
(sqrt (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))
(sqrt (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))
(sqrt (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))
(sqrt (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))
(sqrt (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx)))))))
(sqrt (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx)))))))
(sqrt (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx)))))))
(sqrt (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx)))))))
th
(* th (+ 1 (* -1/6 (pow th 2))))
(* th (+ 1 (* (pow th 2) (- (* 1/120 (pow th 2)) 1/6))))
(* th (+ 1 (* (pow th 2) (- (* (pow th 2) (+ 1/120 (* -1/5040 (pow th 2)))) 1/6))))
(sin th)
(sin th)
(sin th)
(sin th)
(sin th)
(sin th)
(sin th)
(sin th)
(sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky))))))
(+ (sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky)))))) (* -1/2 (* (pow kx 2) (sqrt (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))))))
(+ (sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky)))))) (* (pow kx 2) (+ (* -1/2 (sqrt (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3)))) (* 1/2 (* (* (pow kx 2) (+ (* 1/3 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2))) (* 3/4 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))))) (sqrt (+ 1/2 (* -1/2 (cos (* 2 ky))))))))))
(+ (sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky)))))) (* (pow kx 2) (+ (* -1/2 (sqrt (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3)))) (* (pow kx 2) (+ (* -1/2 (* (* (pow kx 2) (+ (* -1/2 (/ (+ (* 1/3 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2))) (* 3/4 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3)))) (+ 1/2 (* -1/2 (cos (* 2 ky)))))) (+ (* 2/45 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2))) (+ (* 2/3 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))) (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 4)))))) (sqrt (+ 1/2 (* -1/2 (cos (* 2 ky))))))) (* 1/2 (* (sqrt (+ 1/2 (* -1/2 (cos (* 2 ky))))) (+ (* 1/3 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2))) (* 3/4 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3)))))))))))
(sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))
(sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))
(sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))
(sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))
(sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx)))))))))
(sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx)))))))))
(sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx)))))))))
(sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx)))))))))
(* (sqrt 2) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))
(+ (* -2 (* (/ (pow ky 2) (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (* (sqrt 2) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))))
(+ (* (sqrt 2) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* -2 (* (/ 1 (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (* 1/2 (* (/ (* (pow ky 2) (- (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (* 4 (/ 1 (* (pow (sqrt 2) 2) (pow (- 1 (cos (* 2 kx))) 3)))))) (sqrt 2)) (sqrt (- 1 (cos (* 2 kx)))))))))
(+ (* (sqrt 2) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* -2 (* (/ 1 (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (* (pow ky 2) (+ (* -1/2 (* (/ (* (pow ky 2) (+ (* -2 (/ (- (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (* 4 (/ 1 (* (pow (sqrt 2) 2) (pow (- 1 (cos (* 2 kx))) 3))))) (* (pow (sqrt 2) 2) (- 1 (cos (* 2 kx)))))) (+ (* 8/45 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (+ (* 2 (/ (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (- 1 (cos (* 2 kx))))) (* 8/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))))) (sqrt 2)) (sqrt (- 1 (cos (* 2 kx)))))) (* 1/2 (* (/ (- (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (* 4 (/ 1 (* (pow (sqrt 2) 2) (pow (- 1 (cos (* 2 kx))) 3))))) (sqrt 2)) (sqrt (- 1 (cos (* 2 kx)))))))))))
(sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))
(sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))
(sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))
(sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))
(sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx))))))))
(sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx))))))))
(sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx))))))))
(sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx))))))))

Outputs
(* (* ky (* (sin th) (sqrt 2))) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))
(.f64 (.f64 (.f64 ky (sin.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))))
(* ky (+ (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* -2 (* (/ (sin th) (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (* -1/6 (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))))))))
(.f64 ky (fma.f64 (.f64 ky ky) (fma.f64 (.f64 (.f64 (sin.f64 th) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))) #s(literal -1/6 binary64) (.f64 (/.f64 (.f64 #s(literal -2 binary64) (sin.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64)))))) (.f64 (.f64 (sin.f64 th) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64)))))))))
(* ky (+ (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* -2 (* (/ (sin th) (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (+ (* -1/6 (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (* (pow ky 2) (+ (* 1/120 (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (+ (* 1/3 (* (/ (sin th) (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (* 1/2 (* (/ (* (sin th) (- (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (* 4 (/ 1 (* (pow (sqrt 2) 2) (pow (- 1 (cos (* 2 kx))) 3)))))) (sqrt 2)) (sqrt (- 1 (cos (* 2 kx))))))))))))))
(.f64 ky (fma.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 (sin.f64 th) (+.f64 (+.f64 (/.f64 #s(literal 4/3 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 2 binary64))) (/.f64 #s(literal 8 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64)))) (/.f64 #s(literal -2 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64))))) (/.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))) (sqrt.f64 #s(literal 2 binary64)))) (fma.f64 (.f64 (.f64 (sin.f64 th) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))) #s(literal 1/120 binary64) (.f64 (/.f64 (.f64 #s(literal 1/3 binary64) (sin.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64))))))) (fma.f64 (.f64 (.f64 (sin.f64 th) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))) #s(literal -1/6 binary64) (.f64 (/.f64 (.f64 #s(literal -2 binary64) (sin.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64))))))) (.f64 (.f64 (sin.f64 th) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))))))
(* ky (+ (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* -2 (* (/ (sin th) (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (+ (* -1/6 (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (* (pow ky 2) (+ (* 1/120 (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (+ (* 1/3 (* (/ (sin th) (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (+ (* 1/2 (* (/ (* (sin th) (- (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (* 4 (/ 1 (* (pow (sqrt 2) 2) (pow (- 1 (cos (* 2 kx))) 3)))))) (sqrt 2)) (sqrt (- 1 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* -1/2 (* (/ (* (sin th) (+ (* -2 (/ (- (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (* 4 (/ 1 (* (pow (sqrt 2) 2) (pow (- 1 (cos (* 2 kx))) 3))))) (* (pow (sqrt 2) 2) (- 1 (cos (* 2 kx)))))) (+ (* 8/45 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (+ (* 2 (/ (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (- 1 (cos (* 2 kx))))) (* 8/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))))) (sqrt 2)) (sqrt (- 1 (cos (* 2 kx)))))) (+ (* -1/12 (* (/ (* (sin th) (- (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (* 4 (/ 1 (* (pow (sqrt 2) 2) (pow (- 1 (cos (* 2 kx))) 3)))))) (sqrt 2)) (sqrt (- 1 (cos (* 2 kx)))))) (+ (* -1/60 (* (/ (sin th) (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (* -1/5040 (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))))))))))))))))
(.f64 ky (fma.f64 (sin.f64 th) (.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 (.f64 (.f64 (sin.f64 th) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))) #s(literal 1/120 binary64) (fma.f64 (.f64 ky ky) (fma.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (+.f64 (neg.f64 (/.f64 (+.f64 (+.f64 (/.f64 #s(literal 4/3 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 2 binary64))) (/.f64 #s(literal 8 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64)))) (/.f64 #s(literal -2 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64)))) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (+.f64 (/.f64 (+.f64 (/.f64 #s(literal 16 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64))) (/.f64 #s(literal 8/3 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 2 binary64)))) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))) (+.f64 (/.f64 #s(literal 8/3 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64))) (/.f64 #s(literal 8/45 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 2 binary64)))))) (/.f64 (sin.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (.f64 #s(literal -1/12 binary64) (.f64 (+.f64 (+.f64 (/.f64 #s(literal 4/3 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 2 binary64))) (/.f64 #s(literal 8 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64)))) (/.f64 #s(literal -2 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64)))) (/.f64 (sin.f64 th) (sqrt.f64 #s(literal 2 binary64)))))) (fma.f64 (/.f64 (.f64 #s(literal -1/60 binary64) (sin.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64)))) (.f64 (.f64 #s(literal -1/5040 binary64) (.f64 (sin.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))))) (fma.f64 (.f64 (/.f64 (sin.f64 th) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64))))) #s(literal 1/3 binary64) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (sin.f64 th) (+.f64 (+.f64 (/.f64 #s(literal 4/3 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 2 binary64))) (/.f64 #s(literal 8 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64)))) (/.f64 #s(literal -2 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64))))) (/.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))) (sqrt.f64 #s(literal 2 binary64)))))))) (fma.f64 (.f64 (.f64 (sin.f64 th) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))) #s(literal -1/6 binary64) (.f64 (/.f64 (.f64 #s(literal -2 binary64) (sin.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64))))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 kx)))) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 kx)))) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 kx)))) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 kx)))) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 kx)))) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 kx)))) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 kx)))) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 kx)))) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (* th (sin ky)) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 kx)))) (pow (sin ky) 2)))))
(.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (*.f64 th (sin.f64 ky)))
(* th (+ (* -1/6 (* (* (pow th 2) (sin ky)) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 kx)))) (pow (sin ky) 2)))))) (* (sin ky) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 kx)))) (pow (sin ky) 2)))))))
(.f64 th (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (.f64 (fma.f64 #s(literal -1/6 binary64) (*.f64 th th) #s(literal 1 binary64)) (sin.f64 ky))))
(* th (+ (* (sin ky) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 kx)))) (pow (sin ky) 2))))) (* (pow th 2) (+ (* -1/6 (* (sin ky) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 kx)))) (pow (sin ky) 2)))))) (* 1/120 (* (* (pow th 2) (sin ky)) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 kx)))) (pow (sin ky) 2))))))))))
(.f64 th (fma.f64 (.f64 th th) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (.f64 (sin.f64 ky) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64)))) (.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))))
(* th (+ (* (sin ky) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 kx)))) (pow (sin ky) 2))))) (* (pow th 2) (+ (* -1/6 (* (sin ky) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 kx)))) (pow (sin ky) 2)))))) (* (pow th 2) (+ (* -1/5040 (* (* (pow th 2) (sin ky)) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 kx)))) (pow (sin ky) 2)))))) (* 1/120 (* (sin ky) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 kx)))) (pow (sin ky) 2))))))))))))
(.f64 th (fma.f64 (.f64 th th) (fma.f64 #s(literal -1/6 binary64) (.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))))) (.f64 (.f64 th th) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (.f64 (sin.f64 ky) (fma.f64 #s(literal -1/5040 binary64) (.f64 th th) #s(literal 1/120 binary64)))))) (.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 kx)))) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 kx)))) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 kx)))) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 kx)))) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 kx)))) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 kx)))) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 kx)))) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 kx)))) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(sin th)
(sin.f64 th)
(+ (sin th) (* -1/2 (/ (* (pow kx 2) (sin th)) (pow (sin ky) 2))))
(fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (sin.f64 th) (.f64 kx kx)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) (sin.f64 th))
(+ (sin th) (* (pow kx 2) (+ (* -1/2 (/ (sin th) (pow (sin ky) 2))) (* 1/2 (* (pow kx 2) (* (pow (sin ky) 2) (* (sin th) (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (* 3/4 (/ 1 (pow (sin ky) 6)))))))))))
(fma.f64 (.f64 kx kx) (fma.f64 (.f64 #s(literal 1/2 binary64) (.f64 kx kx)) (.f64 (.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64)) (sin.f64 th)) (+.f64 (/.f64 #s(literal 1/3 binary64) (pow.f64 (sin.f64 ky) #s(literal 4 binary64))) (/.f64 #s(literal 3/4 binary64) (pow.f64 (sin.f64 ky) #s(literal 6 binary64))))) (/.f64 (.f64 #s(literal -1/2 binary64) (sin.f64 th)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))) (sin.f64 th))
(+ (sin th) (* (pow kx 2) (+ (* -1/2 (/ (sin th) (pow (sin ky) 2))) (* (pow kx 2) (+ (* -1/2 (* (pow kx 2) (* (pow (sin ky) 2) (* (sin th) (+ (* -1/2 (/ (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (* 3/4 (/ 1 (pow (sin ky) 6)))) (pow (sin ky) 2))) (+ (* 2/45 (/ 1 (pow (sin ky) 4))) (+ (* 2/3 (/ 1 (pow (sin ky) 6))) (/ 1 (pow (sin ky) 8))))))))) (* 1/2 (* (pow (sin ky) 2) (* (sin th) (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (* 3/4 (/ 1 (pow (sin ky) 6))))))))))))
(fma.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64)) (sin.f64 th)) (+.f64 (/.f64 #s(literal 1/3 binary64) (pow.f64 (sin.f64 ky) #s(literal 4 binary64))) (/.f64 #s(literal 3/4 binary64) (pow.f64 (sin.f64 ky) #s(literal 6 binary64))))) (.f64 #s(literal -1/2 binary64) (.f64 (.f64 kx kx) (.f64 (.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64)) (sin.f64 th)) (+.f64 (/.f64 (+.f64 (/.f64 #s(literal -1/6 binary64) (pow.f64 (sin.f64 ky) #s(literal 4 binary64))) (/.f64 #s(literal -3/8 binary64) (pow.f64 (sin.f64 ky) #s(literal 6 binary64)))) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) (+.f64 (/.f64 #s(literal 2/45 binary64) (pow.f64 (sin.f64 ky) #s(literal 4 binary64))) (+.f64 (/.f64 #s(literal 2/3 binary64) (pow.f64 (sin.f64 ky) #s(literal 6 binary64))) (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 ky) #s(literal 8 binary64)))))))))) (/.f64 (.f64 #s(literal -1/2 binary64) (sin.f64 th)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))) (sin.f64 th))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 kx)))) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 kx)))) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 kx)))) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (* 2 kx)))) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (neg (* -2 kx))))) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (neg (* -2 kx))))) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (neg (* -2 kx))))) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (* 1/2 (- 1 (cos (neg (* -2 kx))))) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))))
(* ky (sin th))
(*.f64 ky (sin.f64 th))
(* ky (+ (sin th) (* -1/6 (* (pow ky 2) (sin th)))))
(.f64 ky (.f64 (fma.f64 (*.f64 ky ky) #s(literal -1/6 binary64) #s(literal 1 binary64)) (sin.f64 th)))
(* ky (+ (sin th) (* (pow ky 2) (+ (* -1/6 (sin th)) (* 1/120 (* (pow ky 2) (sin th)))))))
(.f64 ky (fma.f64 (.f64 ky ky) (.f64 (sin.f64 th) (fma.f64 (.f64 ky ky) #s(literal 1/120 binary64) #s(literal -1/6 binary64))) (sin.f64 th)))
(* ky (+ (sin th) (* (pow ky 2) (+ (* -1/6 (sin th)) (* (pow ky 2) (+ (* -1/5040 (* (pow ky 2) (sin th))) (* 1/120 (sin th))))))))
(.f64 ky (fma.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (.f64 (sin.f64 th) (fma.f64 (.f64 ky ky) #s(literal -1/5040 binary64) #s(literal 1/120 binary64))) (.f64 (sin.f64 th) #s(literal -1/6 binary64))) (sin.f64 th)))
(* (sin ky) (sin th))
(*.f64 (sin.f64 th) (sin.f64 ky))
(* (sin ky) (sin th))
(*.f64 (sin.f64 th) (sin.f64 ky))
(* (sin ky) (sin th))
(*.f64 (sin.f64 th) (sin.f64 ky))
(* (sin ky) (sin th))
(*.f64 (sin.f64 th) (sin.f64 ky))
(* (sin ky) (sin th))
(*.f64 (sin.f64 th) (sin.f64 ky))
(* (sin ky) (sin th))
(*.f64 (sin.f64 th) (sin.f64 ky))
(* (sin ky) (sin th))
(*.f64 (sin.f64 th) (sin.f64 ky))
(* (sin ky) (sin th))
(*.f64 (sin.f64 th) (sin.f64 ky))
(* th (sin ky))
(*.f64 th (sin.f64 ky))
(* th (+ (sin ky) (* -1/6 (* (pow th 2) (sin ky)))))
(.f64 th (.f64 (fma.f64 #s(literal -1/6 binary64) (*.f64 th th) #s(literal 1 binary64)) (sin.f64 ky)))
(* th (+ (sin ky) (* (pow th 2) (+ (* -1/6 (sin ky)) (* 1/120 (* (pow th 2) (sin ky)))))))
(.f64 th (fma.f64 (.f64 th th) (.f64 (sin.f64 ky) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) (sin.f64 ky)))
(* th (+ (sin ky) (* (pow th 2) (+ (* -1/6 (sin ky)) (* (pow th 2) (+ (* -1/5040 (* (pow th 2) (sin ky))) (* 1/120 (sin ky))))))))
(.f64 th (fma.f64 (.f64 th th) (fma.f64 (.f64 th th) (.f64 (sin.f64 ky) (fma.f64 #s(literal -1/5040 binary64) (.f64 th th) #s(literal 1/120 binary64))) (.f64 #s(literal -1/6 binary64) (sin.f64 ky))) (sin.f64 ky)))
(* (sin ky) (sin th))
(*.f64 (sin.f64 th) (sin.f64 ky))
(* (sin ky) (sin th))
(*.f64 (sin.f64 th) (sin.f64 ky))
(* (sin ky) (sin th))
(*.f64 (sin.f64 th) (sin.f64 ky))
(* (sin ky) (sin th))
(*.f64 (sin.f64 th) (sin.f64 ky))
(* (sin ky) (sin th))
(*.f64 (sin.f64 th) (sin.f64 ky))
(* (sin ky) (sin th))
(*.f64 (sin.f64 th) (sin.f64 ky))
(* (sin ky) (sin th))
(*.f64 (sin.f64 th) (sin.f64 ky))
(* (sin ky) (sin th))
(*.f64 (sin.f64 th) (sin.f64 ky))
ky
(* ky (+ 1 (* -1/6 (pow ky 2))))
(fma.f64 ky (.f64 (.f64 ky ky) #s(literal -1/6 binary64)) ky)
(* ky (+ 1 (* (pow ky 2) (- (* 1/120 (pow ky 2)) 1/6))))
(.f64 ky (fma.f64 (.f64 ky ky) (fma.f64 (*.f64 ky ky) #s(literal 1/120 binary64) #s(literal -1/6 binary64)) #s(literal 1 binary64)))
(* ky (+ 1 (* (pow ky 2) (- (* (pow ky 2) (+ 1/120 (* -1/5040 (pow ky 2)))) 1/6))))
(fma.f64 ky (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) #s(literal -1/6 binary64))) ky)
(sin ky)
(sin.f64 ky)
(sin ky)
(sin.f64 ky)
(sin ky)
(sin.f64 ky)
(sin ky)
(sin.f64 ky)
(sin ky)
(sin.f64 ky)
(sin ky)
(sin.f64 ky)
(sin ky)
(sin.f64 ky)
(sin ky)
(sin.f64 ky)
th
(* th (+ 1 (* -1/6 (pow th 2))))
(fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th)
(* th (+ 1 (* (pow th 2) (- (* 1/120 (pow th 2)) 1/6))))
(.f64 th (fma.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (*.f64 th th) #s(literal -1/6 binary64)) #s(literal 1 binary64)))
(* th (+ 1 (* (pow th 2) (- (* (pow th 2) (+ 1/120 (* -1/5040 (pow th 2)))) 1/6))))
(fma.f64 th (.f64 (.f64 th th) (fma.f64 (.f64 th th) (fma.f64 #s(literal -1/5040 binary64) (.f64 th th) #s(literal 1/120 binary64)) #s(literal -1/6 binary64))) th)
(sin th)
(sin.f64 th)
(sin th)
(sin.f64 th)
(sin th)
(sin.f64 th)
(sin th)
(sin.f64 th)
(sin th)
(sin.f64 th)
(sin th)
(sin.f64 th)
(sin th)
(sin.f64 th)
(sin th)
(sin.f64 th)
(/ (* ky (sin th)) (sin kx))
(/.f64 (*.f64 ky (sin.f64 th)) (sin.f64 kx))
(* ky (+ (* (pow ky 2) (+ (* -1/2 (/ (sin th) (pow (sin kx) 3))) (* -1/6 (/ (sin th) (sin kx))))) (/ (sin th) (sin kx))))
(.f64 ky (fma.f64 (.f64 ky ky) (*.f64 (/.f64 (sin.f64 th) (sin.f64 kx)) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))) #s(literal -1/6 binary64))) (/.f64 (sin.f64 th) (sin.f64 kx))))
(* ky (+ (* (pow ky 2) (+ (* -1/2 (/ (sin th) (pow (sin kx) 3))) (+ (* -1/6 (/ (sin th) (sin kx))) (* (pow ky 2) (+ (* 1/120 (/ (sin th) (sin kx))) (+ (* 1/12 (/ (sin th) (pow (sin kx) 3))) (* 1/2 (* (sin kx) (* (sin th) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6))))))))))))) (/ (sin th) (sin kx))))
(.f64 ky (fma.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 (sin.f64 kx) (sin.f64 th)) (+.f64 (/.f64 #s(literal 1/3 binary64) (pow.f64 (sin.f64 kx) #s(literal 4 binary64))) (/.f64 #s(literal 3/4 binary64) (pow.f64 (sin.f64 kx) #s(literal 6 binary64))))) (.f64 (/.f64 (sin.f64 th) (sin.f64 kx)) (+.f64 #s(literal 1/120 binary64) (/.f64 #s(literal 1/12 binary64) (pow.f64 (sin.f64 kx) #s(literal 2 binary64)))))) (*.f64 (/.f64 (sin.f64 th) (sin.f64 kx)) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))) #s(literal -1/6 binary64)))) (/.f64 (sin.f64 th) (sin.f64 kx))))
(* ky (+ (* (pow ky 2) (+ (* -1/2 (/ (sin th) (pow (sin kx) 3))) (+ (* -1/6 (/ (sin th) (sin kx))) (* (pow ky 2) (+ (* 1/120 (/ (sin th) (sin kx))) (+ (* 1/12 (/ (sin th) (pow (sin kx) 3))) (+ (* 1/2 (* (sin kx) (* (sin th) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6))))))) (* (pow ky 2) (+ (* -1/2 (* (sin kx) (* (sin th) (+ (* -1/2 (/ (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6)))) (pow (sin kx) 2))) (+ (* 2/45 (/ 1 (pow (sin kx) 4))) (+ (* 2/3 (/ 1 (pow (sin kx) 6))) (/ 1 (pow (sin kx) 8)))))))) (+ (* -1/12 (* (sin kx) (* (sin th) (+ (* 1/3 (/ 1 (pow (sin kx) 4))) (* 3/4 (/ 1 (pow (sin kx) 6))))))) (+ (* -1/240 (/ (sin th) (pow (sin kx) 3))) (* -1/5040 (/ (sin th) (sin kx)))))))))))))) (/ (sin th) (sin kx))))
(.f64 ky (fma.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 (/.f64 (sin.f64 th) (sin.f64 kx)) (+.f64 #s(literal 1/120 binary64) (/.f64 #s(literal 1/12 binary64) (pow.f64 (sin.f64 kx) #s(literal 2 binary64)))) (fma.f64 (.f64 ky ky) (fma.f64 #s(literal -1/2 binary64) (.f64 (.f64 (sin.f64 kx) (sin.f64 th)) (+.f64 (/.f64 (+.f64 (/.f64 #s(literal -1/6 binary64) (pow.f64 (sin.f64 kx) #s(literal 4 binary64))) (/.f64 #s(literal -3/8 binary64) (pow.f64 (sin.f64 kx) #s(literal 6 binary64)))) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))) (+.f64 (/.f64 #s(literal 2/3 binary64) (pow.f64 (sin.f64 kx) #s(literal 6 binary64))) (+.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 kx) #s(literal 8 binary64))) (/.f64 #s(literal 2/45 binary64) (pow.f64 (sin.f64 kx) #s(literal 4 binary64))))))) (fma.f64 #s(literal -1/12 binary64) (.f64 (.f64 (sin.f64 kx) (sin.f64 th)) (+.f64 (/.f64 #s(literal 1/3 binary64) (pow.f64 (sin.f64 kx) #s(literal 4 binary64))) (/.f64 #s(literal 3/4 binary64) (pow.f64 (sin.f64 kx) #s(literal 6 binary64))))) (.f64 (/.f64 (sin.f64 th) (sin.f64 kx)) (+.f64 (/.f64 #s(literal -1/240 binary64) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))) #s(literal -1/5040 binary64))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (sin.f64 kx) (sin.f64 th)) (+.f64 (/.f64 #s(literal 1/3 binary64) (pow.f64 (sin.f64 kx) #s(literal 4 binary64))) (/.f64 #s(literal 3/4 binary64) (pow.f64 (sin.f64 kx) #s(literal 6 binary64)))))))) (*.f64 (/.f64 (sin.f64 th) (sin.f64 kx)) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))) #s(literal -1/6 binary64)))) (/.f64 (sin.f64 th) (sin.f64 kx))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64)) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64)) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64)) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64)) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64)) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64)) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64)) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64)) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))))
(sin th)
(sin.f64 th)
(+ (sin th) (* -1/2 (/ (* (pow kx 2) (sin th)) (pow (sin ky) 2))))
(fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (sin.f64 th) (.f64 kx kx)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) (sin.f64 th))
(+ (sin th) (* (pow kx 2) (+ (* -1/2 (/ (sin th) (pow (sin ky) 2))) (* 1/2 (* (pow kx 2) (* (pow (sin ky) 2) (* (sin th) (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (* 3/4 (/ 1 (pow (sin ky) 6)))))))))))
(fma.f64 (.f64 kx kx) (fma.f64 (.f64 #s(literal 1/2 binary64) (.f64 kx kx)) (.f64 (.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64)) (sin.f64 th)) (+.f64 (/.f64 #s(literal 1/3 binary64) (pow.f64 (sin.f64 ky) #s(literal 4 binary64))) (/.f64 #s(literal 3/4 binary64) (pow.f64 (sin.f64 ky) #s(literal 6 binary64))))) (/.f64 (.f64 #s(literal -1/2 binary64) (sin.f64 th)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))) (sin.f64 th))
(+ (sin th) (* (pow kx 2) (+ (* -1/2 (/ (sin th) (pow (sin ky) 2))) (* (pow kx 2) (+ (* -1/2 (* (pow kx 2) (* (pow (sin ky) 2) (* (sin th) (+ (* -1/2 (/ (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (* 3/4 (/ 1 (pow (sin ky) 6)))) (pow (sin ky) 2))) (+ (* 2/45 (/ 1 (pow (sin ky) 4))) (+ (* 2/3 (/ 1 (pow (sin ky) 6))) (/ 1 (pow (sin ky) 8))))))))) (* 1/2 (* (pow (sin ky) 2) (* (sin th) (+ (* 1/3 (/ 1 (pow (sin ky) 4))) (* 3/4 (/ 1 (pow (sin ky) 6))))))))))))
(fma.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64)) (sin.f64 th)) (+.f64 (/.f64 #s(literal 1/3 binary64) (pow.f64 (sin.f64 ky) #s(literal 4 binary64))) (/.f64 #s(literal 3/4 binary64) (pow.f64 (sin.f64 ky) #s(literal 6 binary64))))) (.f64 #s(literal -1/2 binary64) (.f64 (.f64 kx kx) (.f64 (.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64)) (sin.f64 th)) (+.f64 (/.f64 (+.f64 (/.f64 #s(literal -1/6 binary64) (pow.f64 (sin.f64 ky) #s(literal 4 binary64))) (/.f64 #s(literal -3/8 binary64) (pow.f64 (sin.f64 ky) #s(literal 6 binary64)))) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) (+.f64 (/.f64 #s(literal 2/45 binary64) (pow.f64 (sin.f64 ky) #s(literal 4 binary64))) (+.f64 (/.f64 #s(literal 2/3 binary64) (pow.f64 (sin.f64 ky) #s(literal 6 binary64))) (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 ky) #s(literal 8 binary64)))))))))) (/.f64 (.f64 #s(literal -1/2 binary64) (sin.f64 th)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))) (sin.f64 th))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64)) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64)) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64)) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64)) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64)) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64)) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64)) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64)) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))))
(* (* th (sin ky)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(.f64 (.f64 th (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64)) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))))
(* th (+ (* -1/6 (* (* (pow th 2) (sin ky)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))) (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))))
(.f64 th (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64)) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))) (.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 th th) #s(literal 1 binary64)) (sin.f64 ky))))
(* th (+ (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (* (pow th 2) (+ (* -1/6 (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))) (* 1/120 (* (* (pow th 2) (sin ky)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))))))))
(.f64 th (fma.f64 (.f64 th th) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64)) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))) (.f64 (sin.f64 ky) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64)))) (.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64)) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))))))
(* th (+ (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))) (* (pow th 2) (+ (* -1/6 (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))) (* (pow th 2) (+ (* -1/5040 (* (* (pow th 2) (sin ky)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))) (* 1/120 (* (sin ky) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2))))))))))))
(.f64 th (fma.f64 (.f64 th th) (fma.f64 (.f64 th th) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64)) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))) (.f64 (sin.f64 ky) (fma.f64 #s(literal -1/5040 binary64) (.f64 th th) #s(literal 1/120 binary64)))) (.f64 (.f64 #s(literal -1/6 binary64) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64)) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))))) (*.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64)) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64)) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64)) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64)) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64)) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64)) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64)) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64)) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ (pow (sin kx) 2) (pow (sin ky) 2)))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64)) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))))
th
(* th (+ 1 (* -1/6 (pow th 2))))
(fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th)
(* th (+ 1 (* (pow th 2) (- (* 1/120 (pow th 2)) 1/6))))
(.f64 th (fma.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (*.f64 th th) #s(literal -1/6 binary64)) #s(literal 1 binary64)))
(* th (+ 1 (* (pow th 2) (- (* (pow th 2) (+ 1/120 (* -1/5040 (pow th 2)))) 1/6))))
(fma.f64 th (.f64 (.f64 th th) (fma.f64 (.f64 th th) (fma.f64 #s(literal -1/5040 binary64) (.f64 th th) #s(literal 1/120 binary64)) #s(literal -1/6 binary64))) th)
(sin th)
(sin.f64 th)
(sin th)
(sin.f64 th)
(sin th)
(sin.f64 th)
(sin th)
(sin.f64 th)
(sin th)
(sin.f64 th)
(sin th)
(sin.f64 th)
(sin th)
(sin.f64 th)
(sin th)
(sin.f64 th)
th
(* th (+ 1 (* -1/6 (pow th 2))))
(fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th)
(* th (+ 1 (* -1/6 (pow th 2))))
(fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th)
(* th (+ 1 (* -1/6 (pow th 2))))
(fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th)
(* -1/6 (pow th 3))
(.f64 #s(literal -1/6 binary64) (.f64 th (*.f64 th th)))
(* (pow th 3) (- (/ 1 (pow th 2)) 1/6))
(.f64 (.f64 th (.f64 th th)) (+.f64 #s(literal -1/6 binary64) (/.f64 #s(literal 1 binary64) (.f64 th th))))
(* (pow th 3) (- (/ 1 (pow th 2)) 1/6))
(.f64 (.f64 th (.f64 th th)) (+.f64 #s(literal -1/6 binary64) (/.f64 #s(literal 1 binary64) (.f64 th th))))
(* (pow th 3) (- (/ 1 (pow th 2)) 1/6))
(.f64 (.f64 th (.f64 th th)) (+.f64 #s(literal -1/6 binary64) (/.f64 #s(literal 1 binary64) (.f64 th th))))
(* -1/6 (pow th 3))
(.f64 #s(literal -1/6 binary64) (.f64 th (*.f64 th th)))
(* -1 (* (pow th 3) (- 1/6 (/ 1 (pow th 2)))))
(.f64 (+.f64 #s(literal 1/6 binary64) (/.f64 #s(literal -1 binary64) (.f64 th th))) (neg.f64 (.f64 th (.f64 th th))))
(* -1 (* (pow th 3) (- 1/6 (/ 1 (pow th 2)))))
(.f64 (+.f64 #s(literal 1/6 binary64) (/.f64 #s(literal -1 binary64) (.f64 th th))) (neg.f64 (.f64 th (.f64 th th))))
(* -1 (* (pow th 3) (- 1/6 (/ 1 (pow th 2)))))
(.f64 (+.f64 #s(literal 1/6 binary64) (/.f64 #s(literal -1 binary64) (.f64 th th))) (neg.f64 (.f64 th (.f64 th th))))
(* -1/6 (pow th 3))
(.f64 #s(literal -1/6 binary64) (.f64 th (*.f64 th th)))
(* -1/6 (pow th 3))
(.f64 #s(literal -1/6 binary64) (.f64 th (*.f64 th th)))
(* -1/6 (pow th 3))
(.f64 #s(literal -1/6 binary64) (.f64 th (*.f64 th th)))
(* -1/6 (pow th 3))
(.f64 #s(literal -1/6 binary64) (.f64 th (*.f64 th th)))
(* -1/6 (pow th 3))
(.f64 #s(literal -1/6 binary64) (.f64 th (*.f64 th th)))
(* -1/6 (pow th 3))
(.f64 #s(literal -1/6 binary64) (.f64 th (*.f64 th th)))
(* -1/6 (pow th 3))
(.f64 #s(literal -1/6 binary64) (.f64 th (*.f64 th th)))
(* -1/6 (pow th 3))
(.f64 #s(literal -1/6 binary64) (.f64 th (*.f64 th th)))
(* -1/6 (pow th 3))
(.f64 #s(literal -1/6 binary64) (.f64 th (*.f64 th th)))
(* -1/6 (pow th 3))
(.f64 #s(literal -1/6 binary64) (.f64 th (*.f64 th th)))
(* -1/6 (pow th 3))
(.f64 #s(literal -1/6 binary64) (.f64 th (*.f64 th th)))
(* -1/6 (pow th 3))
(.f64 #s(literal -1/6 binary64) (.f64 th (*.f64 th th)))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky)))))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))
(+ (* -1/2 (* (* (pow kx 2) (* (sin ky) (sin th))) (sqrt (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))))) (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky))))))))
(fma.f64 (.f64 #s(literal -1/2 binary64) (.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (.f64 kx kx))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #s(literal 3 binary64)))) (.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(+ (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky))))))) (* (pow kx 2) (+ (* -1/2 (* (* (sin ky) (sin th)) (sqrt (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))))) (* 1/2 (* (* (pow kx 2) (* (sin ky) (* (sin th) (+ (* 1/3 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2))) (* 3/4 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))))))) (sqrt (+ 1/2 (* -1/2 (cos (* 2 ky))))))))))
(fma.f64 (.f64 kx kx) (fma.f64 #s(literal -1/2 binary64) (.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #s(literal 3 binary64))))) (.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 kx kx) (.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (+.f64 (/.f64 #s(literal 1/3 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #s(literal 2 binary64))) (/.f64 #s(literal 3/4 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #s(literal 3 binary64))))))) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) (.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(+ (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky))))))) (* (pow kx 2) (+ (* -1/2 (* (* (sin ky) (sin th)) (sqrt (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))))) (* (pow kx 2) (+ (* -1/2 (* (* (pow kx 2) (* (sin ky) (* (sin th) (+ (* -1/2 (/ (+ (* 1/3 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2))) (* 3/4 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3)))) (+ 1/2 (* -1/2 (cos (* 2 ky)))))) (+ (* 2/45 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2))) (+ (* 2/3 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))) (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 4)))))))) (sqrt (+ 1/2 (* -1/2 (cos (* 2 ky))))))) (* 1/2 (* (* (sin ky) (* (sin th) (+ (* 1/3 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2))) (* 3/4 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3)))))) (sqrt (+ 1/2 (* -1/2 (cos (* 2 ky))))))))))))
(fma.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) (.f64 (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))) (fma.f64 #s(literal -1/2 binary64) (.f64 (.f64 kx kx) (.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (+.f64 (/.f64 (+.f64 (/.f64 #s(literal -1/6 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #s(literal 2 binary64))) (/.f64 #s(literal -3/8 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #s(literal 3 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))) (+.f64 (/.f64 #s(literal 2/3 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #s(literal 3 binary64))) (+.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #s(literal 4 binary64))) (/.f64 #s(literal 2/45 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (+.f64 (/.f64 #s(literal 1/3 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #s(literal 2 binary64))) (/.f64 #s(literal 3/4 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #s(literal 3 binary64)))))))) (.f64 (.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 th) (sin.f64 ky))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #s(literal 3 binary64)))))) (.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx))))))))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx))))))))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx))))))))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx))))))))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (* ky (* (sin th) (sqrt 2))) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))
(.f64 (.f64 (.f64 ky (sin.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))))
(* ky (+ (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* -2 (* (/ (sin th) (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (* -1/6 (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))))))))
(.f64 ky (fma.f64 (.f64 ky ky) (fma.f64 (.f64 (.f64 (sin.f64 th) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))) #s(literal -1/6 binary64) (.f64 (/.f64 (.f64 #s(literal -2 binary64) (sin.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64)))))) (.f64 (.f64 (sin.f64 th) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64)))))))))
(* ky (+ (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* -2 (* (/ (sin th) (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (+ (* -1/6 (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (* (pow ky 2) (+ (* 1/120 (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (+ (* 1/3 (* (/ (sin th) (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (* 1/2 (* (/ (* (sin th) (- (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (* 4 (/ 1 (* (pow (sqrt 2) 2) (pow (- 1 (cos (* 2 kx))) 3)))))) (sqrt 2)) (sqrt (- 1 (cos (* 2 kx))))))))))))))
(.f64 ky (fma.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 (sin.f64 th) (+.f64 (+.f64 (/.f64 #s(literal 4/3 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 2 binary64))) (/.f64 #s(literal 8 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64)))) (/.f64 #s(literal -2 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64))))) (/.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))) (sqrt.f64 #s(literal 2 binary64)))) (fma.f64 (.f64 (.f64 (sin.f64 th) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))) #s(literal 1/120 binary64) (.f64 (/.f64 (.f64 #s(literal 1/3 binary64) (sin.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64))))))) (fma.f64 (.f64 (.f64 (sin.f64 th) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))) #s(literal -1/6 binary64) (.f64 (/.f64 (.f64 #s(literal -2 binary64) (sin.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64))))))) (.f64 (.f64 (sin.f64 th) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))))))
(* ky (+ (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* -2 (* (/ (sin th) (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (+ (* -1/6 (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (* (pow ky 2) (+ (* 1/120 (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (+ (* 1/3 (* (/ (sin th) (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (+ (* 1/2 (* (/ (* (sin th) (- (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (* 4 (/ 1 (* (pow (sqrt 2) 2) (pow (- 1 (cos (* 2 kx))) 3)))))) (sqrt 2)) (sqrt (- 1 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* -1/2 (* (/ (* (sin th) (+ (* -2 (/ (- (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (* 4 (/ 1 (* (pow (sqrt 2) 2) (pow (- 1 (cos (* 2 kx))) 3))))) (* (pow (sqrt 2) 2) (- 1 (cos (* 2 kx)))))) (+ (* 8/45 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (+ (* 2 (/ (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (- 1 (cos (* 2 kx))))) (* 8/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))))) (sqrt 2)) (sqrt (- 1 (cos (* 2 kx)))))) (+ (* -1/12 (* (/ (* (sin th) (- (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (* 4 (/ 1 (* (pow (sqrt 2) 2) (pow (- 1 (cos (* 2 kx))) 3)))))) (sqrt 2)) (sqrt (- 1 (cos (* 2 kx)))))) (+ (* -1/60 (* (/ (sin th) (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (* -1/5040 (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))))))))))))))))
(.f64 ky (fma.f64 (sin.f64 th) (.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 (.f64 (.f64 (sin.f64 th) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))) #s(literal 1/120 binary64) (fma.f64 (.f64 ky ky) (fma.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (+.f64 (neg.f64 (/.f64 (+.f64 (+.f64 (/.f64 #s(literal 4/3 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 2 binary64))) (/.f64 #s(literal 8 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64)))) (/.f64 #s(literal -2 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64)))) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (+.f64 (/.f64 (+.f64 (/.f64 #s(literal 16 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64))) (/.f64 #s(literal 8/3 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 2 binary64)))) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))) (+.f64 (/.f64 #s(literal 8/3 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64))) (/.f64 #s(literal 8/45 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 2 binary64)))))) (/.f64 (sin.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (.f64 #s(literal -1/12 binary64) (.f64 (+.f64 (+.f64 (/.f64 #s(literal 4/3 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 2 binary64))) (/.f64 #s(literal 8 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64)))) (/.f64 #s(literal -2 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64)))) (/.f64 (sin.f64 th) (sqrt.f64 #s(literal 2 binary64)))))) (fma.f64 (/.f64 (.f64 #s(literal -1/60 binary64) (sin.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64)))) (.f64 (.f64 #s(literal -1/5040 binary64) (.f64 (sin.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))))) (fma.f64 (.f64 (/.f64 (sin.f64 th) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64))))) #s(literal 1/3 binary64) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (sin.f64 th) (+.f64 (+.f64 (/.f64 #s(literal 4/3 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 2 binary64))) (/.f64 #s(literal 8 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64)))) (/.f64 #s(literal -2 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64))))) (/.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))) (sqrt.f64 #s(literal 2 binary64)))))))) (fma.f64 (.f64 (.f64 (sin.f64 th) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))) #s(literal -1/6 binary64) (.f64 (/.f64 (.f64 #s(literal -2 binary64) (sin.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64))))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (* th (sin ky)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(.f64 (.f64 th (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* th (+ (* -1/6 (* (* (pow th 2) (sin ky)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))) (* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))))
(.f64 th (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) (.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 th th) #s(literal 1 binary64)) (sin.f64 ky))))
(* th (+ (* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (* (pow th 2) (+ (* -1/6 (* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))) (* 1/120 (* (* (pow th 2) (sin ky)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))))))))
(.f64 th (fma.f64 (.f64 th th) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) (.f64 (sin.f64 ky) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64)))) (.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))))
(* th (+ (* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (* (pow th 2) (+ (* -1/6 (* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))) (* (pow th 2) (+ (* -1/5040 (* (* (pow th 2) (sin ky)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))) (* 1/120 (* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))))))))))
(.f64 th (fma.f64 (.f64 th th) (fma.f64 #s(literal -1/6 binary64) (.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))) (.f64 (.f64 th th) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) (.f64 (sin.f64 ky) (fma.f64 #s(literal -1/5040 binary64) (.f64 th th) #s(literal 1/120 binary64)))))) (.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (sin ky) (sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky)))))))
(.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))
(+ (* -1/2 (* (* (pow kx 2) (sin ky)) (sqrt (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))))) (* (sin ky) (sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky))))))))
(fma.f64 #s(literal -1/2 binary64) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #s(literal 3 binary64)))) (.f64 (sin.f64 ky) (.f64 kx kx))) (.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(+ (* (sin ky) (sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky))))))) (* (pow kx 2) (+ (* -1/2 (* (sin ky) (sqrt (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))))) (* 1/2 (* (* (pow kx 2) (* (sin ky) (+ (* 1/3 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2))) (* 3/4 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3)))))) (sqrt (+ 1/2 (* -1/2 (cos (* 2 ky))))))))))
(fma.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))) (.f64 (.f64 kx kx) (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 kx kx) (.f64 (sin.f64 ky) (.f64 (+.f64 (/.f64 #s(literal 1/3 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #s(literal 2 binary64))) (/.f64 #s(literal 3/4 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #s(literal 3 binary64)))) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))) (.f64 (.f64 #s(literal -1/2 binary64) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #s(literal 3 binary64))))))))
(+ (* (sin ky) (sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky))))))) (* (pow kx 2) (+ (* -1/2 (* (sin ky) (sqrt (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))))) (* (pow kx 2) (+ (* -1/2 (* (* (pow kx 2) (* (sin ky) (+ (* -1/2 (/ (+ (* 1/3 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2))) (* 3/4 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3)))) (+ 1/2 (* -1/2 (cos (* 2 ky)))))) (+ (* 2/45 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2))) (+ (* 2/3 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))) (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 4))))))) (sqrt (+ 1/2 (* -1/2 (cos (* 2 ky))))))) (* 1/2 (* (* (sin ky) (+ (* 1/3 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2))) (* 3/4 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))))) (sqrt (+ 1/2 (* -1/2 (cos (* 2 ky))))))))))))
(fma.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) (.f64 (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))) (fma.f64 #s(literal -1/2 binary64) (.f64 (.f64 kx kx) (.f64 (sin.f64 ky) (+.f64 (/.f64 (+.f64 (/.f64 #s(literal -1/6 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #s(literal 2 binary64))) (/.f64 #s(literal -3/8 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #s(literal 3 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))) (+.f64 (/.f64 #s(literal 2/3 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #s(literal 3 binary64))) (+.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #s(literal 4 binary64))) (/.f64 #s(literal 2/45 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 ky) (+.f64 (/.f64 #s(literal 1/3 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #s(literal 2 binary64))) (/.f64 #s(literal 3/4 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #s(literal 3 binary64)))))))) (.f64 (.f64 #s(literal -1/2 binary64) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #s(literal 3 binary64)))))) (.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx))))))))))
(.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx))))))))))
(.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx))))))))))
(.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx))))))))))
(.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (* ky (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))
(.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))
(* ky (+ (* (sqrt 2) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* -2 (* (/ 1 (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (* -1/6 (* (sqrt 2) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))))))))
(.f64 ky (fma.f64 (.f64 ky ky) (fma.f64 #s(literal -1/6 binary64) (.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))) (.f64 (/.f64 #s(literal -2 binary64) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64)))))) (.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))))))
(* ky (+ (* (sqrt 2) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* -2 (* (/ 1 (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (+ (* -1/6 (* (sqrt 2) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (* (pow ky 2) (+ (* 1/120 (* (sqrt 2) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (+ (* 1/3 (* (/ 1 (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (* 1/2 (* (/ (- (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (* 4 (/ 1 (* (pow (sqrt 2) 2) (pow (- 1 (cos (* 2 kx))) 3))))) (sqrt 2)) (sqrt (- 1 (cos (* 2 kx))))))))))))))
(.f64 ky (fma.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 #s(literal 1/3 binary64) (/.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64)))) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 #s(literal 1/2 binary64) (.f64 (+.f64 (+.f64 (/.f64 #s(literal 4/3 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 2 binary64))) (/.f64 #s(literal 8 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64)))) (/.f64 #s(literal -2 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64)))) (/.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))) (sqrt.f64 #s(literal 2 binary64)))) (.f64 (.f64 #s(literal 1/120 binary64) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))))) (fma.f64 #s(literal -1/6 binary64) (.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))) (.f64 (/.f64 #s(literal -2 binary64) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64))))))) (.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))))))
(* ky (+ (* (sqrt 2) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* -2 (* (/ 1 (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (+ (* -1/6 (* (sqrt 2) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (* (pow ky 2) (+ (* 1/120 (* (sqrt 2) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (+ (* 1/3 (* (/ 1 (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (+ (* 1/2 (* (/ (- (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (* 4 (/ 1 (* (pow (sqrt 2) 2) (pow (- 1 (cos (* 2 kx))) 3))))) (sqrt 2)) (sqrt (- 1 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* -1/2 (* (/ (+ (* -2 (/ (- (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (* 4 (/ 1 (* (pow (sqrt 2) 2) (pow (- 1 (cos (* 2 kx))) 3))))) (* (pow (sqrt 2) 2) (- 1 (cos (* 2 kx)))))) (+ (* 8/45 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (+ (* 2 (/ (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (- 1 (cos (* 2 kx))))) (* 8/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))))) (sqrt 2)) (sqrt (- 1 (cos (* 2 kx)))))) (+ (* -1/12 (* (/ (- (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (* 4 (/ 1 (* (pow (sqrt 2) 2) (pow (- 1 (cos (* 2 kx))) 3))))) (sqrt 2)) (sqrt (- 1 (cos (* 2 kx)))))) (+ (* -1/60 (* (/ 1 (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (* -1/5040 (* (sqrt 2) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))))))))))))))))
(.f64 ky (fma.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 #s(literal 1/120 binary64) (.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))) (fma.f64 (.f64 ky ky) (fma.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (+.f64 (neg.f64 (/.f64 (+.f64 (+.f64 (/.f64 #s(literal 4/3 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 2 binary64))) (/.f64 #s(literal 8 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64)))) (/.f64 #s(literal -2 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64)))) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (+.f64 (/.f64 (+.f64 (/.f64 #s(literal 16 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64))) (/.f64 #s(literal 8/3 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 2 binary64)))) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))) (+.f64 (/.f64 #s(literal 8/3 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64))) (/.f64 #s(literal 8/45 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 2 binary64)))))) (sqrt.f64 #s(literal 2 binary64))) (/.f64 (.f64 #s(literal -1/12 binary64) (+.f64 (+.f64 (/.f64 #s(literal 4/3 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 2 binary64))) (/.f64 #s(literal 8 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64)))) (/.f64 #s(literal -2 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64))))) (sqrt.f64 #s(literal 2 binary64)))) (fma.f64 #s(literal -1/60 binary64) (/.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64)))) (sqrt.f64 #s(literal 2 binary64))) (.f64 (.f64 #s(literal -1/5040 binary64) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))))) (fma.f64 #s(literal 1/3 binary64) (/.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64)))) (sqrt.f64 #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (.f64 (+.f64 (+.f64 (/.f64 #s(literal 4/3 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 2 binary64))) (/.f64 #s(literal 8 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64)))) (/.f64 #s(literal -2 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64)))) (/.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))) (sqrt.f64 #s(literal 2 binary64)))))))) (fma.f64 #s(literal -1/6 binary64) (.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))) (.f64 (/.f64 #s(literal -2 binary64) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64))))))))))
(* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(/ (* ky (* (sqrt 1/2) (sqrt 2))) kx)
(.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(literal 1/2 binary64))) (/.f64 ky kx))
(/ (+ (* 1/12 (/ (* (pow kx 2) (* ky (sqrt 2))) (sqrt 1/2))) (* ky (* (sqrt 1/2) (sqrt 2)))) kx)
(/.f64 (fma.f64 #s(literal 1/12 binary64) (/.f64 (.f64 (.f64 kx kx) (.f64 ky (sqrt.f64 #s(literal 2 binary64)))) (sqrt.f64 #s(literal 1/2 binary64))) (.f64 (*.f64 ky (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 2 binary64)))) kx)
(/ (+ (* ky (* (sqrt 1/2) (sqrt 2))) (* (pow kx 2) (+ (* 1/12 (/ (* ky (sqrt 2)) (sqrt 1/2))) (* 1/2 (/ (* (pow kx 2) (* ky (* (sqrt 2) (- 1/30 (* 1/144 (/ 1 (pow (sqrt 1/2) 2))))))) (sqrt 1/2)))))) kx)
(/.f64 (fma.f64 (.f64 kx kx) (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 kx kx) (/.f64 (.f64 (.f64 ky (sqrt.f64 #s(literal 2 binary64))) #s(literal 7/360 binary64)) (sqrt.f64 #s(literal 1/2 binary64)))) (/.f64 (.f64 #s(literal 1/12 binary64) (.f64 ky (sqrt.f64 #s(literal 2 binary64)))) (sqrt.f64 #s(literal 1/2 binary64)))) (.f64 (*.f64 ky (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 2 binary64)))) kx)
(/ (+ (* ky (* (sqrt 1/2) (sqrt 2))) (* (pow kx 2) (+ (* 1/12 (/ (* ky (sqrt 2)) (sqrt 1/2))) (* (pow kx 2) (+ (* 1/2 (/ (* ky (* (sqrt 2) (- 1/30 (* 1/144 (/ 1 (pow (sqrt 1/2) 2)))))) (sqrt 1/2))) (* 1/2 (/ (* (pow kx 2) (* ky (* (sqrt 2) (- 1/189 (* 1/12 (/ (- 1/30 (* 1/144 (/ 1 (pow (sqrt 1/2) 2)))) (pow (sqrt 1/2) 2))))))) (sqrt 1/2)))))))) kx)
(/.f64 (fma.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) (.f64 #s(literal 1/2 binary64) (fma.f64 (.f64 kx kx) (/.f64 (.f64 ky (.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 31/15120 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) (/.f64 (.f64 (.f64 ky (sqrt.f64 #s(literal 2 binary64))) #s(literal 7/360 binary64)) (sqrt.f64 #s(literal 1/2 binary64))))) (/.f64 (.f64 #s(literal 1/12 binary64) (.f64 ky (sqrt.f64 #s(literal 2 binary64)))) (sqrt.f64 #s(literal 1/2 binary64)))) (.f64 (.f64 ky (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 2 binary64)))) kx)
(* (* ky (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* -2 kx))))))
(.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))
(* (* ky (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* -2 kx))))))
(.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))
(* (* ky (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* -2 kx))))))
(.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))
(* (* ky (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* -2 kx))))))
(.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))
(* (* ky (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* -2 kx))))))
(.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))
(* (* ky (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* -2 kx))))))
(.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))
(* (* ky (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* -2 kx))))))
(.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))
(* (* ky (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* -2 kx))))))
(.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))
(* (* ky (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* -2 kx))))))
(.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))
(* (* ky (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* -2 kx))))))
(.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))
(* (* ky (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* -2 kx))))))
(.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))
(* (* ky (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* -2 kx))))))
(.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))
(* (* ky (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* -2 kx))))))
(.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))
(* (* ky (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* -2 kx))))))
(.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))
(* (* ky (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* -2 kx))))))
(.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))
(* (* ky (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* -2 kx))))))
(.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))
(* (* ky (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* -2 kx))))))
(.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))
(* (* ky (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* -2 kx))))))
(.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))
(* (* ky (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* -2 kx))))))
(.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))
(* (* ky (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* -2 kx))))))
(.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))
(/ (sqrt 1/2) kx)
(/.f64 (sqrt.f64 #s(literal 1/2 binary64)) kx)
(/ (+ (sqrt 1/2) (* 1/12 (/ (pow kx 2) (sqrt 1/2)))) kx)
(/.f64 (fma.f64 (*.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)
(/ (+ (sqrt 1/2) (* (pow kx 2) (+ (* 1/2 (/ (* (pow kx 2) (- 1/30 (* 1/144 (/ 1 (pow (sqrt 1/2) 2))))) (sqrt 1/2))) (* 1/12 (/ 1 (sqrt 1/2)))))) kx)
(/.f64 (fma.f64 (.f64 kx kx) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (*.f64 kx kx) #s(literal 7/360 binary64)) (sqrt.f64 #s(literal 1/2 binary64))) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64)))) (sqrt.f64 #s(literal 1/2 binary64))) kx)
(/ (+ (sqrt 1/2) (* (pow kx 2) (+ (* (pow kx 2) (+ (* 1/2 (/ (* (pow kx 2) (- 1/189 (* 1/12 (/ (- 1/30 (* 1/144 (/ 1 (pow (sqrt 1/2) 2)))) (pow (sqrt 1/2) 2))))) (sqrt 1/2))) (* 1/2 (/ (- 1/30 (* 1/144 (/ 1 (pow (sqrt 1/2) 2)))) (sqrt 1/2))))) (* 1/12 (/ 1 (sqrt 1/2)))))) kx)
(/.f64 (fma.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 kx kx) #s(literal 31/15120 binary64)) (sqrt.f64 #s(literal 1/2 binary64))) (/.f64 #s(literal 7/720 binary64) (sqrt.f64 #s(literal 1/2 binary64)))) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64)))) (sqrt.f64 #s(literal 1/2 binary64))) kx)
(sqrt (/ 1 (- 1 (cos (* -2 kx)))))
(sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64))))))
(sqrt (/ 1 (- 1 (cos (* -2 kx)))))
(sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64))))))
(sqrt (/ 1 (- 1 (cos (* -2 kx)))))
(sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64))))))
(sqrt (/ 1 (- 1 (cos (* -2 kx)))))
(sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64))))))
(sqrt (/ 1 (- 1 (cos (* -2 kx)))))
(sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64))))))
(sqrt (/ 1 (- 1 (cos (* -2 kx)))))
(sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64))))))
(sqrt (/ 1 (- 1 (cos (* -2 kx)))))
(sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64))))))
(sqrt (/ 1 (- 1 (cos (* -2 kx)))))
(sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64))))))
(* (* ky (* (sin th) (sqrt 2))) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))
(.f64 (.f64 (.f64 ky (sin.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))))
(* ky (+ (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* -2 (* (/ (sin th) (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (* -1/6 (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))))))))
(.f64 ky (fma.f64 (.f64 ky ky) (fma.f64 (.f64 (.f64 (sin.f64 th) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))) #s(literal -1/6 binary64) (.f64 (/.f64 (.f64 #s(literal -2 binary64) (sin.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64)))))) (.f64 (.f64 (sin.f64 th) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64)))))))))
(* ky (+ (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* -2 (* (/ (sin th) (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (+ (* -1/6 (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (* (pow ky 2) (+ (* 1/120 (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (+ (* 1/3 (* (/ (sin th) (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (* 1/2 (* (/ (* (sin th) (- (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (* 4 (/ 1 (* (pow (sqrt 2) 2) (pow (- 1 (cos (* 2 kx))) 3)))))) (sqrt 2)) (sqrt (- 1 (cos (* 2 kx))))))))))))))
(.f64 ky (fma.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 (sin.f64 th) (+.f64 (+.f64 (/.f64 #s(literal 4/3 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 2 binary64))) (/.f64 #s(literal 8 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64)))) (/.f64 #s(literal -2 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64))))) (/.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))) (sqrt.f64 #s(literal 2 binary64)))) (fma.f64 (.f64 (.f64 (sin.f64 th) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))) #s(literal 1/120 binary64) (.f64 (/.f64 (.f64 #s(literal 1/3 binary64) (sin.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64))))))) (fma.f64 (.f64 (.f64 (sin.f64 th) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))) #s(literal -1/6 binary64) (.f64 (/.f64 (.f64 #s(literal -2 binary64) (sin.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64))))))) (.f64 (.f64 (sin.f64 th) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))))))
(* ky (+ (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* -2 (* (/ (sin th) (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (+ (* -1/6 (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (* (pow ky 2) (+ (* 1/120 (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (+ (* 1/3 (* (/ (sin th) (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (+ (* 1/2 (* (/ (* (sin th) (- (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (* 4 (/ 1 (* (pow (sqrt 2) 2) (pow (- 1 (cos (* 2 kx))) 3)))))) (sqrt 2)) (sqrt (- 1 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* -1/2 (* (/ (* (sin th) (+ (* -2 (/ (- (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (* 4 (/ 1 (* (pow (sqrt 2) 2) (pow (- 1 (cos (* 2 kx))) 3))))) (* (pow (sqrt 2) 2) (- 1 (cos (* 2 kx)))))) (+ (* 8/45 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (+ (* 2 (/ (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (- 1 (cos (* 2 kx))))) (* 8/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))))) (sqrt 2)) (sqrt (- 1 (cos (* 2 kx)))))) (+ (* -1/12 (* (/ (* (sin th) (- (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (* 4 (/ 1 (* (pow (sqrt 2) 2) (pow (- 1 (cos (* 2 kx))) 3)))))) (sqrt 2)) (sqrt (- 1 (cos (* 2 kx)))))) (+ (* -1/60 (* (/ (sin th) (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (* -1/5040 (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))))))))))))))))
(.f64 ky (fma.f64 (sin.f64 th) (.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 (.f64 (.f64 (sin.f64 th) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))) #s(literal 1/120 binary64) (fma.f64 (.f64 ky ky) (fma.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (+.f64 (neg.f64 (/.f64 (+.f64 (+.f64 (/.f64 #s(literal 4/3 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 2 binary64))) (/.f64 #s(literal 8 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64)))) (/.f64 #s(literal -2 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64)))) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (+.f64 (/.f64 (+.f64 (/.f64 #s(literal 16 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64))) (/.f64 #s(literal 8/3 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 2 binary64)))) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))) (+.f64 (/.f64 #s(literal 8/3 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64))) (/.f64 #s(literal 8/45 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 2 binary64)))))) (/.f64 (sin.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (.f64 #s(literal -1/12 binary64) (.f64 (+.f64 (+.f64 (/.f64 #s(literal 4/3 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 2 binary64))) (/.f64 #s(literal 8 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64)))) (/.f64 #s(literal -2 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64)))) (/.f64 (sin.f64 th) (sqrt.f64 #s(literal 2 binary64)))))) (fma.f64 (/.f64 (.f64 #s(literal -1/60 binary64) (sin.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64)))) (.f64 (.f64 #s(literal -1/5040 binary64) (.f64 (sin.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))))) (fma.f64 (.f64 (/.f64 (sin.f64 th) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64))))) #s(literal 1/3 binary64) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (sin.f64 th) (+.f64 (+.f64 (/.f64 #s(literal 4/3 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 2 binary64))) (/.f64 #s(literal 8 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64)))) (/.f64 #s(literal -2 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64))))) (/.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))) (sqrt.f64 #s(literal 2 binary64)))))))) (fma.f64 (.f64 (.f64 (sin.f64 th) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))) #s(literal -1/6 binary64) (.f64 (/.f64 (.f64 #s(literal -2 binary64) (sin.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64))))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (* th (sin ky)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(.f64 (.f64 th (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* th (+ (* -1/6 (* (* (pow th 2) (sin ky)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))) (* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))))
(.f64 th (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) (.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 th th) #s(literal 1 binary64)) (sin.f64 ky))))
(* th (+ (* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (* (pow th 2) (+ (* -1/6 (* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))) (* 1/120 (* (* (pow th 2) (sin ky)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))))))))
(.f64 th (fma.f64 (.f64 th th) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) (.f64 (sin.f64 ky) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64)))) (.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))))
(* th (+ (* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (* (pow th 2) (+ (* -1/6 (* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))) (* (pow th 2) (+ (* -1/5040 (* (* (pow th 2) (sin ky)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))) (* 1/120 (* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))))))))))
(.f64 th (fma.f64 (.f64 th th) (fma.f64 #s(literal -1/6 binary64) (.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))) (.f64 (.f64 th th) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) (.f64 (sin.f64 ky) (fma.f64 #s(literal -1/5040 binary64) (.f64 th th) #s(literal 1/120 binary64)))))) (.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky)))))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))
(+ (* -1/2 (* (* (pow kx 2) (* (sin ky) (sin th))) (sqrt (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))))) (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky))))))))
(fma.f64 (.f64 #s(literal -1/2 binary64) (.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (.f64 kx kx))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #s(literal 3 binary64)))) (.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(+ (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky))))))) (* (pow kx 2) (+ (* -1/2 (* (* (sin ky) (sin th)) (sqrt (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))))) (* 1/2 (* (* (pow kx 2) (* (sin ky) (* (sin th) (+ (* 1/3 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2))) (* 3/4 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))))))) (sqrt (+ 1/2 (* -1/2 (cos (* 2 ky))))))))))
(fma.f64 (.f64 kx kx) (fma.f64 #s(literal -1/2 binary64) (.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #s(literal 3 binary64))))) (.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 kx kx) (.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (+.f64 (/.f64 #s(literal 1/3 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #s(literal 2 binary64))) (/.f64 #s(literal 3/4 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #s(literal 3 binary64))))))) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) (.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(+ (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky))))))) (* (pow kx 2) (+ (* -1/2 (* (* (sin ky) (sin th)) (sqrt (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))))) (* (pow kx 2) (+ (* -1/2 (* (* (pow kx 2) (* (sin ky) (* (sin th) (+ (* -1/2 (/ (+ (* 1/3 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2))) (* 3/4 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3)))) (+ 1/2 (* -1/2 (cos (* 2 ky)))))) (+ (* 2/45 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2))) (+ (* 2/3 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))) (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 4)))))))) (sqrt (+ 1/2 (* -1/2 (cos (* 2 ky))))))) (* 1/2 (* (* (sin ky) (* (sin th) (+ (* 1/3 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2))) (* 3/4 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3)))))) (sqrt (+ 1/2 (* -1/2 (cos (* 2 ky))))))))))))
(fma.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) (.f64 (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))) (fma.f64 #s(literal -1/2 binary64) (.f64 (.f64 kx kx) (.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (+.f64 (/.f64 (+.f64 (/.f64 #s(literal -1/6 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #s(literal 2 binary64))) (/.f64 #s(literal -3/8 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #s(literal 3 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))) (+.f64 (/.f64 #s(literal 2/3 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #s(literal 3 binary64))) (+.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #s(literal 4 binary64))) (/.f64 #s(literal 2/45 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (+.f64 (/.f64 #s(literal 1/3 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #s(literal 2 binary64))) (/.f64 #s(literal 3/4 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #s(literal 3 binary64)))))))) (.f64 (.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 th) (sin.f64 ky))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #s(literal 3 binary64)))))) (.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx))))))))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx))))))))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx))))))))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx))))))))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(+ 1/2 (* -1/2 (cos (* 2 ky))))
(fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))
(+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (pow kx 2)))
(fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) (fma.f64 kx kx #s(literal 1/2 binary64)))
(+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* (pow kx 2) (+ 1 (* -1/3 (pow kx 2))))))
(fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) (fma.f64 (.f64 kx kx) (fma.f64 (*.f64 kx kx) #s(literal -1/3 binary64) #s(literal 1 binary64)) #s(literal 1/2 binary64)))
(+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* (pow kx 2) (+ 1 (* (pow kx 2) (- (* 2/45 (pow kx 2)) 1/3))))))
(fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) (fma.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) #s(literal 2/45 binary64) #s(literal -1/3 binary64)) #s(literal 1 binary64)) #s(literal 1/2 binary64)))
(+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))
(fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))
(+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))
(fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))
(+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))
(fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))
(+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))
(fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))
(+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx)))))))
(fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))
(+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx)))))))
(fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))
(+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx)))))))
(fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))
(+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx)))))))
(fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))
(* 1/2 (- 1 (cos (* 2 kx))))
(.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64))
(+ (* 1/2 (- 1 (cos (* 2 kx)))) (pow ky 2))
(fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (.f64 ky ky))
(+ (* 1/2 (- 1 (cos (* 2 kx)))) (* (pow ky 2) (+ 1 (* -1/3 (pow ky 2)))))
(fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))
(+ (* 1/2 (- 1 (cos (* 2 kx)))) (* (pow ky 2) (+ 1 (* (pow ky 2) (- (* 2/45 (pow ky 2)) 1/3)))))
(fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 (*.f64 ky ky) #s(literal 2/45 binary64) #s(literal -1/3 binary64)) #s(literal 1 binary64))))
(+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))
(fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))
(+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))
(fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))
(+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))
(fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))
(+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))
(fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))
(+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx))))))
(fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))
(+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx))))))
(fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))
(+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx))))))
(fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))
(+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx))))))
(fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))
(/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky)))))
(/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))
(+ (* -1 (/ (pow kx 2) (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2))) (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky))))))
(-.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))) (/.f64 (.f64 kx kx) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #s(literal 2 binary64))))
(+ (* (pow kx 2) (- (* (pow kx 2) (+ (* 1/3 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2))) (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3)))) (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2)))) (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky))))))
(fma.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) (+.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #s(literal 3 binary64))) (/.f64 #s(literal 1/3 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #s(literal 2 binary64)))) (/.f64 #s(literal -1 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #s(literal 2 binary64)))) (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))
(+ (* (pow kx 2) (- (* (pow kx 2) (+ (* -1 (* (pow kx 2) (+ (* 2/45 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2))) (+ (* 2/3 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))) (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 4)))))) (+ (* 1/3 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2))) (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))))) (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2)))) (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky))))))
(fma.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) (+.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #s(literal 3 binary64))) (fma.f64 (+.f64 (/.f64 #s(literal 2/3 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #s(literal 3 binary64))) (+.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #s(literal 4 binary64))) (/.f64 #s(literal 2/45 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #s(literal 2 binary64))))) (neg.f64 (.f64 kx kx)) (/.f64 #s(literal 1/3 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #s(literal 2 binary64))))) (/.f64 #s(literal -1 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #s(literal 2 binary64)))) (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))
(/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))
(/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))
(/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))
(/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))
(/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))
(/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))
(/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))
(/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))
(/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx))))))))
(/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))
(/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx))))))))
(/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))
(/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx))))))))
(/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))
(/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx))))))))
(/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))
(/ 2 (- 1 (cos (* 2 kx))))
(/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64)))))
(+ (* -4 (/ (pow ky 2) (pow (- 1 (cos (* 2 kx))) 2))) (* 2 (/ 1 (- 1 (cos (* 2 kx))))))
(fma.f64 (.f64 ky ky) (/.f64 #s(literal -4 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 2 binary64))) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64))))))
(+ (* (pow ky 2) (- (* (pow ky 2) (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (* 4 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))))) (* 2 (/ 1 (- 1 (cos (* 2 kx))))))
(fma.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (+.f64 (/.f64 #s(literal 4/3 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 2 binary64))) (/.f64 #s(literal 8 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64)))) (/.f64 #s(literal -4 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 2 binary64)))) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))
(+ (* (pow ky 2) (- (* (pow ky 2) (+ (* -1 (* (pow ky 2) (+ (* 8/45 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (+ (* 2 (/ (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (- 1 (cos (* 2 kx))))) (* 8/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))))) (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))))) (* 4 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))))) (* 2 (/ 1 (- 1 (cos (* 2 kx))))))
(fma.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 (+.f64 (/.f64 (+.f64 (/.f64 #s(literal 16 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64))) (/.f64 #s(literal 8/3 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 2 binary64)))) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))) (+.f64 (/.f64 #s(literal 8/3 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64))) (/.f64 #s(literal 8/45 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 2 binary64))))) (neg.f64 (.f64 ky ky)) (+.f64 (/.f64 #s(literal 4/3 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 2 binary64))) (/.f64 #s(literal 8 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64))))) (/.f64 #s(literal -4 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 2 binary64)))) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))
(/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))
(/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))
(/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))
(/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))
(/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))
(/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))
(/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))
(/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))
(/ 1 (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx)))))))
(/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))
(/ 1 (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx)))))))
(/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))
(/ 1 (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx)))))))
(/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))
(/ 1 (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx)))))))
(/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))
(pow ky 2)
(*.f64 ky ky)
(* (pow ky 2) (+ 1 (* -1/3 (pow ky 2))))
(.f64 (.f64 ky ky) (fma.f64 (*.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64)))
(* (pow ky 2) (+ 1 (* (pow ky 2) (- (* 2/45 (pow ky 2)) 1/3))))
(.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal 2/45 binary64) #s(literal -1/3 binary64)) #s(literal 1 binary64)))
(* (pow ky 2) (+ 1 (* (pow ky 2) (- (* (pow ky 2) (+ 2/45 (* -1/315 (pow ky 2)))) 1/3))))
(.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 (*.f64 ky ky) #s(literal -1/315 binary64) #s(literal 2/45 binary64)) #s(literal -1/3 binary64)) #s(literal 1 binary64)))
(+ 1/2 (* -1/2 (cos (* 2 ky))))
(fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))
(+ 1/2 (* -1/2 (cos (* 2 ky))))
(fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))
(+ 1/2 (* -1/2 (cos (* 2 ky))))
(fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))
(+ 1/2 (* -1/2 (cos (* 2 ky))))
(fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))
(+ 1/2 (* -1/2 (cos (neg (* -2 ky)))))
(fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))
(+ 1/2 (* -1/2 (cos (neg (* -2 ky)))))
(fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))
(+ 1/2 (* -1/2 (cos (neg (* -2 ky)))))
(fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))
(+ 1/2 (* -1/2 (cos (neg (* -2 ky)))))
(fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky)))))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))
(+ (* -1/2 (* (* (pow kx 2) (* (sin ky) (sin th))) (sqrt (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))))) (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky))))))))
(fma.f64 (.f64 #s(literal -1/2 binary64) (.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (.f64 kx kx))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #s(literal 3 binary64)))) (.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(+ (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky))))))) (* (pow kx 2) (+ (* -1/2 (* (* (sin ky) (sin th)) (sqrt (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))))) (* 1/2 (* (* (pow kx 2) (* (sin ky) (* (sin th) (+ (* 1/3 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2))) (* 3/4 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))))))) (sqrt (+ 1/2 (* -1/2 (cos (* 2 ky))))))))))
(fma.f64 (.f64 kx kx) (fma.f64 #s(literal -1/2 binary64) (.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #s(literal 3 binary64))))) (.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 kx kx) (.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (+.f64 (/.f64 #s(literal 1/3 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #s(literal 2 binary64))) (/.f64 #s(literal 3/4 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #s(literal 3 binary64))))))) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) (.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(+ (* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky))))))) (* (pow kx 2) (+ (* -1/2 (* (* (sin ky) (sin th)) (sqrt (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))))) (* (pow kx 2) (+ (* -1/2 (* (* (pow kx 2) (* (sin ky) (* (sin th) (+ (* -1/2 (/ (+ (* 1/3 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2))) (* 3/4 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3)))) (+ 1/2 (* -1/2 (cos (* 2 ky)))))) (+ (* 2/45 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2))) (+ (* 2/3 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))) (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 4)))))))) (sqrt (+ 1/2 (* -1/2 (cos (* 2 ky))))))) (* 1/2 (* (* (sin ky) (* (sin th) (+ (* 1/3 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2))) (* 3/4 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3)))))) (sqrt (+ 1/2 (* -1/2 (cos (* 2 ky))))))))))))
(fma.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) (.f64 (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))) (fma.f64 #s(literal -1/2 binary64) (.f64 (.f64 kx kx) (.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (+.f64 (/.f64 (+.f64 (/.f64 #s(literal -1/6 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #s(literal 2 binary64))) (/.f64 #s(literal -3/8 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #s(literal 3 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))) (+.f64 (/.f64 #s(literal 2/3 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #s(literal 3 binary64))) (+.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #s(literal 4 binary64))) (/.f64 #s(literal 2/45 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (+.f64 (/.f64 #s(literal 1/3 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #s(literal 2 binary64))) (/.f64 #s(literal 3/4 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #s(literal 3 binary64)))))))) (.f64 (.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 th) (sin.f64 ky))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #s(literal 3 binary64)))))) (.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx))))))))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx))))))))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx))))))))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx))))))))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (* ky (* (sin th) (sqrt 2))) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))
(.f64 (.f64 (.f64 ky (sin.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))))
(* ky (+ (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* -2 (* (/ (sin th) (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (* -1/6 (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))))))))
(.f64 ky (fma.f64 (.f64 ky ky) (fma.f64 (.f64 (.f64 (sin.f64 th) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))) #s(literal -1/6 binary64) (.f64 (/.f64 (.f64 #s(literal -2 binary64) (sin.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64)))))) (.f64 (.f64 (sin.f64 th) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64)))))))))
(* ky (+ (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* -2 (* (/ (sin th) (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (+ (* -1/6 (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (* (pow ky 2) (+ (* 1/120 (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (+ (* 1/3 (* (/ (sin th) (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (* 1/2 (* (/ (* (sin th) (- (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (* 4 (/ 1 (* (pow (sqrt 2) 2) (pow (- 1 (cos (* 2 kx))) 3)))))) (sqrt 2)) (sqrt (- 1 (cos (* 2 kx))))))))))))))
(.f64 ky (fma.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 (sin.f64 th) (+.f64 (+.f64 (/.f64 #s(literal 4/3 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 2 binary64))) (/.f64 #s(literal 8 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64)))) (/.f64 #s(literal -2 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64))))) (/.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))) (sqrt.f64 #s(literal 2 binary64)))) (fma.f64 (.f64 (.f64 (sin.f64 th) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))) #s(literal 1/120 binary64) (.f64 (/.f64 (.f64 #s(literal 1/3 binary64) (sin.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64))))))) (fma.f64 (.f64 (.f64 (sin.f64 th) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))) #s(literal -1/6 binary64) (.f64 (/.f64 (.f64 #s(literal -2 binary64) (sin.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64))))))) (.f64 (.f64 (sin.f64 th) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))))))
(* ky (+ (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* -2 (* (/ (sin th) (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (+ (* -1/6 (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (* (pow ky 2) (+ (* 1/120 (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (+ (* 1/3 (* (/ (sin th) (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (+ (* 1/2 (* (/ (* (sin th) (- (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (* 4 (/ 1 (* (pow (sqrt 2) 2) (pow (- 1 (cos (* 2 kx))) 3)))))) (sqrt 2)) (sqrt (- 1 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* -1/2 (* (/ (* (sin th) (+ (* -2 (/ (- (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (* 4 (/ 1 (* (pow (sqrt 2) 2) (pow (- 1 (cos (* 2 kx))) 3))))) (* (pow (sqrt 2) 2) (- 1 (cos (* 2 kx)))))) (+ (* 8/45 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (+ (* 2 (/ (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (- 1 (cos (* 2 kx))))) (* 8/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))))) (sqrt 2)) (sqrt (- 1 (cos (* 2 kx)))))) (+ (* -1/12 (* (/ (* (sin th) (- (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (* 4 (/ 1 (* (pow (sqrt 2) 2) (pow (- 1 (cos (* 2 kx))) 3)))))) (sqrt 2)) (sqrt (- 1 (cos (* 2 kx)))))) (+ (* -1/60 (* (/ (sin th) (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (* -1/5040 (* (* (sin th) (sqrt 2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))))))))))))))))
(.f64 ky (fma.f64 (sin.f64 th) (.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 (.f64 (.f64 (sin.f64 th) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))) #s(literal 1/120 binary64) (fma.f64 (.f64 ky ky) (fma.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (+.f64 (neg.f64 (/.f64 (+.f64 (+.f64 (/.f64 #s(literal 4/3 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 2 binary64))) (/.f64 #s(literal 8 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64)))) (/.f64 #s(literal -2 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64)))) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (+.f64 (/.f64 (+.f64 (/.f64 #s(literal 16 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64))) (/.f64 #s(literal 8/3 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 2 binary64)))) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))) (+.f64 (/.f64 #s(literal 8/3 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64))) (/.f64 #s(literal 8/45 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 2 binary64)))))) (/.f64 (sin.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (.f64 #s(literal -1/12 binary64) (.f64 (+.f64 (+.f64 (/.f64 #s(literal 4/3 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 2 binary64))) (/.f64 #s(literal 8 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64)))) (/.f64 #s(literal -2 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64)))) (/.f64 (sin.f64 th) (sqrt.f64 #s(literal 2 binary64)))))) (fma.f64 (/.f64 (.f64 #s(literal -1/60 binary64) (sin.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64)))) (.f64 (.f64 #s(literal -1/5040 binary64) (.f64 (sin.f64 th) (sqrt.f64 #s(literal 2 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))))) (fma.f64 (.f64 (/.f64 (sin.f64 th) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64))))) #s(literal 1/3 binary64) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (sin.f64 th) (+.f64 (+.f64 (/.f64 #s(literal 4/3 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 2 binary64))) (/.f64 #s(literal 8 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64)))) (/.f64 #s(literal -2 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64))))) (/.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))) (sqrt.f64 #s(literal 2 binary64)))))))) (fma.f64 (.f64 (.f64 (sin.f64 th) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))) #s(literal -1/6 binary64) (.f64 (/.f64 (.f64 #s(literal -2 binary64) (sin.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64))))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (* th (sin ky)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(.f64 (.f64 th (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* th (+ (* -1/6 (* (* (pow th 2) (sin ky)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))) (* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))))
(.f64 th (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) (.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 th th) #s(literal 1 binary64)) (sin.f64 ky))))
(* th (+ (* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (* (pow th 2) (+ (* -1/6 (* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))) (* 1/120 (* (* (pow th 2) (sin ky)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))))))))
(.f64 th (fma.f64 (.f64 th th) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) (.f64 (sin.f64 ky) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64)))) (.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))))
(* th (+ (* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))) (* (pow th 2) (+ (* -1/6 (* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))) (* (pow th 2) (+ (* -1/5040 (* (* (pow th 2) (sin ky)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))) (* 1/120 (* (sin ky) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))))))))))
(.f64 th (fma.f64 (.f64 th th) (fma.f64 #s(literal -1/6 binary64) (.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))) (.f64 (.f64 th th) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) (.f64 (sin.f64 ky) (fma.f64 #s(literal -1/5040 binary64) (.f64 th th) #s(literal 1/120 binary64)))))) (.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* (* (sin ky) (sin th)) (sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))))
(.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(* 2 (pow kx 2))
(.f64 #s(literal 2 binary64) (.f64 kx kx))
(* (pow kx 2) (+ 2 (* -2/3 (pow kx 2))))
(.f64 (.f64 kx kx) (fma.f64 (*.f64 kx kx) #s(literal -2/3 binary64) #s(literal 2 binary64)))
(* (pow kx 2) (+ 2 (* (pow kx 2) (- (* 4/45 (pow kx 2)) 2/3))))
(.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) #s(literal 4/45 binary64) #s(literal -2/3 binary64)) #s(literal 2 binary64)))
(* (pow kx 2) (+ 2 (* (pow kx 2) (- (* (pow kx 2) (+ 4/45 (* -2/315 (pow kx 2)))) 2/3))))
(.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) (fma.f64 (*.f64 kx kx) #s(literal -2/315 binary64) #s(literal 4/45 binary64)) #s(literal -2/3 binary64)) #s(literal 2 binary64)))
(- 1 (cos (* 2 kx)))
(-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64))))
(- 1 (cos (* 2 kx)))
(-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64))))
(- 1 (cos (* 2 kx)))
(-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64))))
(- 1 (cos (* 2 kx)))
(-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64))))
(- 1 (cos (neg (* -2 kx))))
(-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64))))
(- 1 (cos (neg (* -2 kx))))
(-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64))))
(- 1 (cos (neg (* -2 kx))))
(-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64))))
(- 1 (cos (neg (* -2 kx))))
(-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64))))
(sin ky)
(sin.f64 ky)
(+ (sin ky) (* 1/2 (/ (pow kx 2) (sin ky))))
(fma.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 kx kx) (sin.f64 ky)) (sin.f64 ky))
(+ (sin ky) (* (pow kx 2) (+ (* -1/2 (/ (* (pow kx 2) (+ 1/3 (* 1/4 (/ 1 (pow (sin ky) 2))))) (sin ky))) (* 1/2 (/ 1 (sin ky))))))
(fma.f64 (.f64 kx kx) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (*.f64 kx kx) (+.f64 #s(literal 1/3 binary64) (/.f64 #s(literal 1/4 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (sin.f64 ky)) (/.f64 #s(literal 1/2 binary64) (sin.f64 ky))) (sin.f64 ky))
(+ (sin ky) (* (pow kx 2) (+ (* (pow kx 2) (+ (* -1/2 (/ (+ 1/3 (* 1/4 (/ 1 (pow (sin ky) 2)))) (sin ky))) (* 1/2 (/ (* (pow kx 2) (- 2/45 (* -1/2 (/ (+ 1/3 (* 1/4 (/ 1 (pow (sin ky) 2)))) (pow (sin ky) 2))))) (sin ky))))) (* 1/2 (/ 1 (sin ky))))))
(fma.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 kx kx) (-.f64 #s(literal 2/45 binary64) (/.f64 (+.f64 #s(literal -1/6 binary64) (/.f64 #s(literal -1/8 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (sin.f64 ky)) (/.f64 (+.f64 #s(literal -1/6 binary64) (/.f64 #s(literal -1/8 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))) (sin.f64 ky))) (/.f64 #s(literal 1/2 binary64) (sin.f64 ky))) (sin.f64 ky))
(sqrt (+ (* 1/2 (- 1 (cos (* 2 kx)))) (pow (sin ky) 2)))
(sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))
(sqrt (+ (* 1/2 (- 1 (cos (* 2 kx)))) (pow (sin ky) 2)))
(sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))
(sqrt (+ (* 1/2 (- 1 (cos (* 2 kx)))) (pow (sin ky) 2)))
(sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))
(sqrt (+ (* 1/2 (- 1 (cos (* 2 kx)))) (pow (sin ky) 2)))
(sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))
(sqrt (+ (* 1/2 (- 1 (cos (neg (* -2 kx))))) (pow (sin ky) 2)))
(sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))
(sqrt (+ (* 1/2 (- 1 (cos (neg (* -2 kx))))) (pow (sin ky) 2)))
(sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))
(sqrt (+ (* 1/2 (- 1 (cos (neg (* -2 kx))))) (pow (sin ky) 2)))
(sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))
(sqrt (+ (* 1/2 (- 1 (cos (neg (* -2 kx))))) (pow (sin ky) 2)))
(sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))
(* (sqrt 1/2) (sqrt (- 1 (cos (* 2 kx)))))
(.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))) (sqrt.f64 #s(literal 1/2 binary64)))
(+ (* 1/2 (* (/ (pow ky 2) (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (* (sqrt 1/2) (sqrt (- 1 (cos (* 2 kx))))))
(fma.f64 #s(literal 1/2 binary64) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (.f64 ky (/.f64 ky (sqrt.f64 #s(literal 1/2 binary64))))) (.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64))))) (sqrt.f64 #s(literal 1/2 binary64))))
(+ (* (sqrt 1/2) (sqrt (- 1 (cos (* 2 kx))))) (* (pow ky 2) (+ (* -1/2 (* (/ (* (pow ky 2) (+ 1/3 (* 1/4 (/ 1 (* (pow (sqrt 1/2) 2) (- 1 (cos (* 2 kx)))))))) (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (* 1/2 (* (/ 1 (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))))))
(fma.f64 (.f64 ky ky) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (+.f64 #s(literal 1/3 binary64) (/.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (.f64 ky (/.f64 ky (sqrt.f64 #s(literal 1/2 binary64))))) (/.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(literal 1/2 binary64))))) (.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))) (sqrt.f64 #s(literal 1/2 binary64))))
(+ (* (sqrt 1/2) (sqrt (- 1 (cos (* 2 kx))))) (* (pow ky 2) (+ (* 1/2 (* (/ 1 (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (* (pow ky 2) (+ (* -1/2 (* (/ (+ 1/3 (* 1/4 (/ 1 (* (pow (sqrt 1/2) 2) (- 1 (cos (* 2 kx))))))) (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (* 1/2 (* (/ (* (pow ky 2) (- 2/45 (* -1/2 (/ (+ 1/3 (* 1/4 (/ 1 (* (pow (sqrt 1/2) 2) (- 1 (cos (* 2 kx))))))) (* (pow (sqrt 1/2) 2) (- 1 (cos (* 2 kx)))))))) (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))))))))
(fma.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 ky ky) (/.f64 (-.f64 #s(literal 2/45 binary64) (neg.f64 (/.f64 (+.f64 #s(literal 1/3 binary64) (/.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))) (sqrt.f64 #s(literal 1/2 binary64)))) (/.f64 (+.f64 #s(literal -1/6 binary64) (/.f64 #s(literal -1/4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (sqrt.f64 #s(literal 1/2 binary64))))) (.f64 (/.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))))) (.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64))))) (sqrt.f64 #s(literal 1/2 binary64))))
(sqrt (+ (* 1/2 (- 1 (cos (* 2 kx)))) (pow (sin ky) 2)))
(sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))
(sqrt (+ (* 1/2 (- 1 (cos (* 2 kx)))) (pow (sin ky) 2)))
(sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))
(sqrt (+ (* 1/2 (- 1 (cos (* 2 kx)))) (pow (sin ky) 2)))
(sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))
(sqrt (+ (* 1/2 (- 1 (cos (* 2 kx)))) (pow (sin ky) 2)))
(sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))
(sqrt (+ (* 1/2 (- 1 (cos (* 2 kx)))) (pow (sin ky) 2)))
(sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))
(sqrt (+ (* 1/2 (- 1 (cos (* 2 kx)))) (pow (sin ky) 2)))
(sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))
(sqrt (+ (* 1/2 (- 1 (cos (* 2 kx)))) (pow (sin ky) 2)))
(sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))
(sqrt (+ (* 1/2 (- 1 (cos (* 2 kx)))) (pow (sin ky) 2)))
(sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))
(pow ky 2)
(*.f64 ky ky)
(* (pow ky 2) (+ 1 (* -1/3 (pow ky 2))))
(.f64 (.f64 ky ky) (fma.f64 (*.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64)))
(* (pow ky 2) (+ 1 (* (pow ky 2) (- (* 2/45 (pow ky 2)) 1/3))))
(.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal 2/45 binary64) #s(literal -1/3 binary64)) #s(literal 1 binary64)))
(* (pow ky 2) (+ 1 (* (pow ky 2) (- (* (pow ky 2) (+ 2/45 (* -1/315 (pow ky 2)))) 1/3))))
(.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 (*.f64 ky ky) #s(literal -1/315 binary64) #s(literal 2/45 binary64)) #s(literal -1/3 binary64)) #s(literal 1 binary64)))
(pow (sin ky) 2)
(pow.f64 (sin.f64 ky) #s(literal 2 binary64))
(pow (sin ky) 2)
(pow.f64 (sin.f64 ky) #s(literal 2 binary64))
(pow (sin ky) 2)
(pow.f64 (sin.f64 ky) #s(literal 2 binary64))
(pow (sin ky) 2)
(pow.f64 (sin.f64 ky) #s(literal 2 binary64))
(pow (sin ky) 2)
(pow.f64 (sin.f64 ky) #s(literal 2 binary64))
(pow (sin ky) 2)
(pow.f64 (sin.f64 ky) #s(literal 2 binary64))
(pow (sin ky) 2)
(pow.f64 (sin.f64 ky) #s(literal 2 binary64))
(pow (sin ky) 2)
(pow.f64 (sin.f64 ky) #s(literal 2 binary64))
(/ (sqrt 1/2) kx)
(/.f64 (sqrt.f64 #s(literal 1/2 binary64)) kx)
(/ (+ (sqrt 1/2) (* 1/12 (/ (pow kx 2) (sqrt 1/2)))) kx)
(/.f64 (fma.f64 (*.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)
(/ (+ (sqrt 1/2) (* 1/12 (/ (pow kx 2) (sqrt 1/2)))) kx)
(/.f64 (fma.f64 (*.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)
(/ (+ (sqrt 1/2) (* 1/12 (/ (pow kx 2) (sqrt 1/2)))) kx)
(/.f64 (fma.f64 (*.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)
(* 1/12 (/ kx (sqrt 1/2)))
(*.f64 kx (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))))
(* kx (+ (* 1/12 (/ 1 (sqrt 1/2))) (/ (sqrt 1/2) (pow kx 2))))
(.f64 kx (+.f64 (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (.f64 kx kx))))
(* kx (+ (* 1/12 (/ 1 (sqrt 1/2))) (/ (sqrt 1/2) (pow kx 2))))
(.f64 kx (+.f64 (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (.f64 kx kx))))
(* kx (+ (* 1/12 (/ 1 (sqrt 1/2))) (/ (sqrt 1/2) (pow kx 2))))
(.f64 kx (+.f64 (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (.f64 kx kx))))
(* 1/12 (/ kx (sqrt 1/2)))
(*.f64 kx (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))))
(* -1 (* kx (- (* -1 (/ (sqrt 1/2) (pow kx 2))) (* 1/12 (/ 1 (sqrt 1/2))))))
(.f64 kx (+.f64 (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (.f64 kx kx))))
(* -1 (* kx (- (* -1 (/ (sqrt 1/2) (pow kx 2))) (* 1/12 (/ 1 (sqrt 1/2))))))
(.f64 kx (+.f64 (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (.f64 kx kx))))
(* -1 (* kx (- (* -1 (/ (sqrt 1/2) (pow kx 2))) (* 1/12 (/ 1 (sqrt 1/2))))))
(.f64 kx (+.f64 (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) (.f64 kx kx))))
(+ 1/2 (* -1/2 (cos (* 2 ky))))
(fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))
(+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (pow kx 2)))
(fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) (fma.f64 kx kx #s(literal 1/2 binary64)))
(+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* (pow kx 2) (+ 1 (* -1/3 (pow kx 2))))))
(fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) (fma.f64 (.f64 kx kx) (fma.f64 (*.f64 kx kx) #s(literal -1/3 binary64) #s(literal 1 binary64)) #s(literal 1/2 binary64)))
(+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* (pow kx 2) (+ 1 (* (pow kx 2) (- (* 2/45 (pow kx 2)) 1/3))))))
(fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) (fma.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) #s(literal 2/45 binary64) #s(literal -1/3 binary64)) #s(literal 1 binary64)) #s(literal 1/2 binary64)))
(+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))
(fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))
(+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))
(fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))
(+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))
(fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))
(+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))
(fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))
(+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx)))))))
(fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))
(+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx)))))))
(fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))
(+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx)))))))
(fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))
(+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx)))))))
(fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))
(* 1/2 (- 1 (cos (* 2 kx))))
(.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64))
(+ (* 1/2 (- 1 (cos (* 2 kx)))) (pow ky 2))
(fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (.f64 ky ky))
(+ (* 1/2 (- 1 (cos (* 2 kx)))) (* (pow ky 2) (+ 1 (* -1/3 (pow ky 2)))))
(fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))
(+ (* 1/2 (- 1 (cos (* 2 kx)))) (* (pow ky 2) (+ 1 (* (pow ky 2) (- (* 2/45 (pow ky 2)) 1/3)))))
(fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 (*.f64 ky ky) #s(literal 2/45 binary64) #s(literal -1/3 binary64)) #s(literal 1 binary64))))
(+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))
(fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))
(+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))
(fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))
(+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))
(fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))
(+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))
(fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))
(+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx))))))
(fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))
(+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx))))))
(fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))
(+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx))))))
(fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))
(+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx))))))
(fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))
(pow ky 2)
(*.f64 ky ky)
(* (pow ky 2) (+ 1 (* -1/3 (pow ky 2))))
(.f64 (.f64 ky ky) (fma.f64 (*.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64)))
(* (pow ky 2) (+ 1 (* (pow ky 2) (- (* 2/45 (pow ky 2)) 1/3))))
(.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal 2/45 binary64) #s(literal -1/3 binary64)) #s(literal 1 binary64)))
(* (pow ky 2) (+ 1 (* (pow ky 2) (- (* (pow ky 2) (+ 2/45 (* -1/315 (pow ky 2)))) 1/3))))
(.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 (*.f64 ky ky) #s(literal -1/315 binary64) #s(literal 2/45 binary64)) #s(literal -1/3 binary64)) #s(literal 1 binary64)))
(+ 1/2 (* -1/2 (cos (* -2 ky))))
(fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))
(+ 1/2 (* -1/2 (cos (* -2 ky))))
(fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))
(+ 1/2 (* -1/2 (cos (* -2 ky))))
(fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))
(+ 1/2 (* -1/2 (cos (* -2 ky))))
(fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))
(+ 1/2 (* -1/2 (cos (* -2 ky))))
(fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))
(+ 1/2 (* -1/2 (cos (* -2 ky))))
(fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))
(+ 1/2 (* -1/2 (cos (* -2 ky))))
(fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))
(+ 1/2 (* -1/2 (cos (* -2 ky))))
(fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))
(sqrt (+ 1/2 (* -1/2 (cos (* 2 ky)))))
(sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))
(+ (sqrt (+ 1/2 (* -1/2 (cos (* 2 ky))))) (* 1/2 (* (pow kx 2) (sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky)))))))))
(fma.f64 (.f64 #s(literal 1/2 binary64) (.f64 kx kx)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))
(+ (sqrt (+ 1/2 (* -1/2 (cos (* 2 ky))))) (* (pow kx 2) (+ (* -1/2 (* (* (pow kx 2) (+ 1/3 (* 1/4 (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky)))))))) (sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky)))))))) (* 1/2 (sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky))))))))))
(fma.f64 (.f64 kx kx) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (.f64 (.f64 kx kx) (+.f64 #s(literal 1/3 binary64) (/.f64 #s(literal 1/4 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) #s(literal 1/2 binary64))) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))
(+ (sqrt (+ 1/2 (* -1/2 (cos (* 2 ky))))) (* (pow kx 2) (+ (* 1/2 (sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky))))))) (* (pow kx 2) (+ (* -1/2 (* (+ 1/3 (* 1/4 (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky))))))) (sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky)))))))) (* 1/2 (* (* (pow kx 2) (- 2/45 (* -1/2 (/ (+ 1/3 (* 1/4 (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky))))))) (+ 1/2 (* -1/2 (cos (* 2 ky)))))))) (sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky)))))))))))))
(fma.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 kx kx) (-.f64 #s(literal 2/45 binary64) (/.f64 (+.f64 #s(literal -1/6 binary64) (/.f64 #s(literal -1/8 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) (+.f64 #s(literal -1/6 binary64) (/.f64 #s(literal -1/8 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))) (.f64 #s(literal 1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))
(sqrt (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))
(sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))
(sqrt (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))
(sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))
(sqrt (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))
(sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))
(sqrt (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))
(sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))
(sqrt (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx))))))))
(sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))
(sqrt (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx))))))))
(sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))
(sqrt (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx))))))))
(sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))
(sqrt (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx))))))))
(sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))
(* (sqrt 1/2) (sqrt (- 1 (cos (* 2 kx)))))
(.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))) (sqrt.f64 #s(literal 1/2 binary64)))
(+ (* 1/2 (* (/ (pow ky 2) (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (* (sqrt 1/2) (sqrt (- 1 (cos (* 2 kx))))))
(fma.f64 #s(literal 1/2 binary64) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (.f64 ky (/.f64 ky (sqrt.f64 #s(literal 1/2 binary64))))) (.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64))))) (sqrt.f64 #s(literal 1/2 binary64))))
(+ (* (sqrt 1/2) (sqrt (- 1 (cos (* 2 kx))))) (* (pow ky 2) (+ (* -1/2 (* (/ (* (pow ky 2) (+ 1/3 (* 1/4 (/ 1 (* (pow (sqrt 1/2) 2) (- 1 (cos (* 2 kx)))))))) (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (* 1/2 (* (/ 1 (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))))))
(fma.f64 (.f64 ky ky) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (+.f64 #s(literal 1/3 binary64) (/.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (.f64 ky (/.f64 ky (sqrt.f64 #s(literal 1/2 binary64))))) (/.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(literal 1/2 binary64))))) (.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))) (sqrt.f64 #s(literal 1/2 binary64))))
(+ (* (sqrt 1/2) (sqrt (- 1 (cos (* 2 kx))))) (* (pow ky 2) (+ (* 1/2 (* (/ 1 (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (* (pow ky 2) (+ (* -1/2 (* (/ (+ 1/3 (* 1/4 (/ 1 (* (pow (sqrt 1/2) 2) (- 1 (cos (* 2 kx))))))) (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))) (* 1/2 (* (/ (* (pow ky 2) (- 2/45 (* -1/2 (/ (+ 1/3 (* 1/4 (/ 1 (* (pow (sqrt 1/2) 2) (- 1 (cos (* 2 kx))))))) (* (pow (sqrt 1/2) 2) (- 1 (cos (* 2 kx)))))))) (sqrt 1/2)) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))))))))
(fma.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 ky ky) (/.f64 (-.f64 #s(literal 2/45 binary64) (neg.f64 (/.f64 (+.f64 #s(literal 1/3 binary64) (/.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))) (sqrt.f64 #s(literal 1/2 binary64)))) (/.f64 (+.f64 #s(literal -1/6 binary64) (/.f64 #s(literal -1/4 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (sqrt.f64 #s(literal 1/2 binary64))))) (.f64 (/.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))))) (.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64))))) (sqrt.f64 #s(literal 1/2 binary64))))
(sqrt (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))
(sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))
(sqrt (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))
(sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))
(sqrt (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))
(sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))
(sqrt (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx)))))))
(sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))
(sqrt (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx)))))))
(sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))
(sqrt (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx)))))))
(sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))
(sqrt (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx)))))))
(sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))
(sqrt (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx)))))))
(sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))
th
(* th (+ 1 (* -1/6 (pow th 2))))
(fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th)
(* th (+ 1 (* (pow th 2) (- (* 1/120 (pow th 2)) 1/6))))
(.f64 th (fma.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (*.f64 th th) #s(literal -1/6 binary64)) #s(literal 1 binary64)))
(* th (+ 1 (* (pow th 2) (- (* (pow th 2) (+ 1/120 (* -1/5040 (pow th 2)))) 1/6))))
(fma.f64 th (.f64 (.f64 th th) (fma.f64 (.f64 th th) (fma.f64 #s(literal -1/5040 binary64) (.f64 th th) #s(literal 1/120 binary64)) #s(literal -1/6 binary64))) th)
(sin th)
(sin.f64 th)
(sin th)
(sin.f64 th)
(sin th)
(sin.f64 th)
(sin th)
(sin.f64 th)
(sin th)
(sin.f64 th)
(sin th)
(sin.f64 th)
(sin th)
(sin.f64 th)
(sin th)
(sin.f64 th)
(sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky))))))
(sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))
(+ (sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky)))))) (* -1/2 (* (pow kx 2) (sqrt (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))))))
(fma.f64 (.f64 #s(literal -1/2 binary64) (.f64 kx kx)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #s(literal 3 binary64)))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))
(+ (sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky)))))) (* (pow kx 2) (+ (* -1/2 (sqrt (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3)))) (* 1/2 (* (* (pow kx 2) (+ (* 1/3 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2))) (* 3/4 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))))) (sqrt (+ 1/2 (* -1/2 (cos (* 2 ky))))))))))
(fma.f64 (.f64 kx kx) (fma.f64 #s(literal -1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #s(literal 3 binary64)))) (.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 kx kx) (+.f64 (/.f64 #s(literal 1/3 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #s(literal 2 binary64))) (/.f64 #s(literal 3/4 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #s(literal 3 binary64)))))) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))
(+ (sqrt (/ 1 (+ 1/2 (* -1/2 (cos (* 2 ky)))))) (* (pow kx 2) (+ (* -1/2 (sqrt (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3)))) (* (pow kx 2) (+ (* -1/2 (* (* (pow kx 2) (+ (* -1/2 (/ (+ (* 1/3 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2))) (* 3/4 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3)))) (+ 1/2 (* -1/2 (cos (* 2 ky)))))) (+ (* 2/45 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2))) (+ (* 2/3 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3))) (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 4)))))) (sqrt (+ 1/2 (* -1/2 (cos (* 2 ky))))))) (* 1/2 (* (sqrt (+ 1/2 (* -1/2 (cos (* 2 ky))))) (+ (* 1/3 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 2))) (* 3/4 (/ 1 (pow (+ 1/2 (* -1/2 (cos (* 2 ky)))) 3)))))))))))
(fma.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) (fma.f64 (.f64 #s(literal -1/2 binary64) (.f64 (.f64 kx kx) (+.f64 (/.f64 (+.f64 (/.f64 #s(literal -1/6 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #s(literal 2 binary64))) (/.f64 #s(literal -3/8 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #s(literal 3 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))) (+.f64 (/.f64 #s(literal 2/3 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #s(literal 3 binary64))) (+.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #s(literal 4 binary64))) (/.f64 #s(literal 2/45 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #s(literal 2 binary64)))))))) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))) (.f64 (.f64 #s(literal 1/2 binary64) (sqrt.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))) (+.f64 (/.f64 #s(literal 1/3 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #s(literal 2 binary64))) (/.f64 #s(literal 3/4 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #s(literal 3 binary64)))))) (.f64 #s(literal -1/2 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)) #s(literal 3 binary64)))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))
(sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))
(sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))
(sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))
(sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))
(sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))
(sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))
(sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))
(sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))
(sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx)))))))))
(sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))
(sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx)))))))))
(sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))
(sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx)))))))))
(sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))
(sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (neg (* -2 kx)))))))))
(sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))
(* (sqrt 2) (sqrt (/ 1 (- 1 (cos (* 2 kx))))))
(.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))))
(+ (* -2 (* (/ (pow ky 2) (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (* (sqrt 2) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))))
(fma.f64 (/.f64 (.f64 #s(literal -2 binary64) (.f64 ky ky)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64)))) (.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64))))))))
(+ (* (sqrt 2) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* -2 (* (/ 1 (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (* 1/2 (* (/ (* (pow ky 2) (- (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (* 4 (/ 1 (* (pow (sqrt 2) 2) (pow (- 1 (cos (* 2 kx))) 3)))))) (sqrt 2)) (sqrt (- 1 (cos (* 2 kx)))))))))
(fma.f64 (.f64 ky ky) (fma.f64 #s(literal -2 binary64) (/.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64)))) (sqrt.f64 #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (.f64 ky ky) (+.f64 (+.f64 (/.f64 #s(literal 4/3 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 2 binary64))) (/.f64 #s(literal 8 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64)))) (/.f64 #s(literal -2 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64))))) (/.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))) (sqrt.f64 #s(literal 2 binary64)))))) (.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))))
(+ (* (sqrt 2) (sqrt (/ 1 (- 1 (cos (* 2 kx)))))) (* (pow ky 2) (+ (* -2 (* (/ 1 (sqrt 2)) (sqrt (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))) (* (pow ky 2) (+ (* -1/2 (* (/ (* (pow ky 2) (+ (* -2 (/ (- (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (* 4 (/ 1 (* (pow (sqrt 2) 2) (pow (- 1 (cos (* 2 kx))) 3))))) (* (pow (sqrt 2) 2) (- 1 (cos (* 2 kx)))))) (+ (* 8/45 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (+ (* 2 (/ (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (- 1 (cos (* 2 kx))))) (* 8/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 3))))))) (sqrt 2)) (sqrt (- 1 (cos (* 2 kx)))))) (* 1/2 (* (/ (- (+ (* 4/3 (/ 1 (pow (- 1 (cos (* 2 kx))) 2))) (* 8 (/ 1 (pow (- 1 (cos (* 2 kx))) 3)))) (* 4 (/ 1 (* (pow (sqrt 2) 2) (pow (- 1 (cos (* 2 kx))) 3))))) (sqrt 2)) (sqrt (- 1 (cos (* 2 kx)))))))))))
(fma.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (+.f64 (neg.f64 (/.f64 (+.f64 (+.f64 (/.f64 #s(literal 4/3 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 2 binary64))) (/.f64 #s(literal 8 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64)))) (/.f64 #s(literal -2 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64)))) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (+.f64 (/.f64 (+.f64 (/.f64 #s(literal 16 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64))) (/.f64 #s(literal 8/3 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 2 binary64)))) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))) (+.f64 (/.f64 #s(literal 8/3 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64))) (/.f64 #s(literal 8/45 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 2 binary64)))))) (/.f64 (.f64 ky ky) (sqrt.f64 #s(literal 2 binary64)))) (/.f64 (.f64 #s(literal 1/2 binary64) (+.f64 (+.f64 (/.f64 #s(literal 4/3 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 2 binary64))) (/.f64 #s(literal 8 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64)))) (/.f64 #s(literal -2 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64))))) (sqrt.f64 #s(literal 2 binary64))))) (.f64 (/.f64 #s(literal -2 binary64) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 3 binary64)))))) (.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64))))))))
(sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))
(sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))
(sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))
(sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))
(sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))
(sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))
(sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (* 2 ky))) (* 1/2 (- 1 (cos (* 2 kx))))))))
(sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))
(sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx))))))))
(sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))
(sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx))))))))
(sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))
(sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx))))))))
(sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))
(sqrt (/ 1 (+ 1/2 (+ (* -1/2 (cos (neg (* -2 ky)))) (* 1/2 (- 1 (cos (* 2 kx))))))))
(sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))

rewrite206.0ms (1.5%)

Memory

11.6MiB live, 125.4MiB allocated

Rules

1 508×	`lower-fma.f32`
1 496×	`lower-fma.f64`
1 450×	`lower-*.f32`
1 424×	`lower-*.f64`
1 088×	`lower-/.f32`

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	87	503
0	136	493
1	434	476
0	2792	456

Stop Event

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

Counts

27 → 241

Calls

Call 1

Inputs
(/.f64 (*.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))))
(*.f64 (sin.f64 ky) (sin.f64 th))
(sin.f64 ky)
(sin.f64 th)
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 #s(literal -1/6 binary64) (.f64 th (*.f64 th th))))))
#s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 #s(literal -1/6 binary64) (.f64 th (*.f64 th th)))))
#s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 #s(literal -1/6 binary64) (.f64 th (*.f64 th th))))
(.f64 #s(literal -1/6 binary64) (.f64 th (*.f64 th th)))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th))
#s(approx (* (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64)))))
(.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))
#s(approx (sqrt (/ 1 (- 1 (cos (* kx -2))))) (/.f64 (fma.f64 (*.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx))
(/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))
(fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))
(/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))
(+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th)))
(-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx)))
(sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))
(pow.f64 (sin.f64 ky) #s(literal 2 binary64))
(/.f64 (fma.f64 (*.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)
(/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64)))
#s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))
(fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))
(sqrt.f64 #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))
#s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (*.f64 th th) #s(literal -1/6 binary64))) th))
(sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))))

Outputs
(neg.f64 (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (neg.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 ky ky)))))))))
(neg.f64 (/.f64 (.f64 (sin.f64 th) (neg.f64 (sin.f64 ky))) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 ky ky))))))))
(/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 ky ky)))))))
(/.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 ky ky)))))) (.f64 (sin.f64 ky) (sin.f64 th))))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 ky ky)))))) (.f64 (sin.f64 ky) (sin.f64 th))) #s(literal 1 binary64)))
(/.f64 (-.f64 (cos.f64 (-.f64 ky th)) (cos.f64 (+.f64 ky th))) (.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 ky ky)))))) #s(literal 2 binary64)))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 ky ky)))))) (.f64 (sin.f64 ky) (sin.f64 th)))))
(/.f64 (.f64 (sin.f64 th) (neg.f64 (sin.f64 ky))) (neg.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 ky ky))))))))
(/.f64 (.f64 (-.f64 (cos.f64 (-.f64 ky th)) (cos.f64 (+.f64 ky th))) #s(literal 1 binary64)) (.f64 #s(literal 2 binary64) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 ky ky))))))))
(/.f64 (neg.f64 (.f64 (sin.f64 th) (neg.f64 (sin.f64 ky)))) (neg.f64 (neg.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 ky ky)))))))))
(/.f64 (.f64 (.f64 (sin.f64 ky) (sin.f64 th)) #s(literal 1 binary64)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 ky ky)))))))
(/.f64 (.f64 (-.f64 (cos.f64 (-.f64 ky th)) (cos.f64 (+.f64 ky th))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 ky ky)))))))) #s(literal 2 binary64))
(pow.f64 (/.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 ky ky)))))) (.f64 (sin.f64 ky) (sin.f64 th))) #s(literal -1 binary64))
(.f64 (sin.f64 ky) (/.f64 (sin.f64 th) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 ky ky))))))))
(.f64 (sin.f64 th) (.f64 (sin.f64 ky) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 ky ky)))))))))
(.f64 (sin.f64 th) (/.f64 (sin.f64 ky) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 ky ky))))))))
(.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 ky ky))))))))
(.f64 #s(literal 1 binary64) (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 ky ky))))))))
(.f64 (.f64 (sin.f64 th) (neg.f64 (sin.f64 ky))) (/.f64 #s(literal 1 binary64) (neg.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 ky ky)))))))))
(.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (*.f64 (sin.f64 ky) (sin.f64 th)))
(.f64 (/.f64 (sin.f64 th) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky))
(-.f64 (/.f64 (cos.f64 (-.f64 ky th)) #s(literal 2 binary64)) (/.f64 (cos.f64 (+.f64 ky th)) #s(literal 2 binary64)))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 (cos.f64 (-.f64 ky th)) (cos.f64 (+.f64 ky th)))))
(/.f64 (-.f64 (cos.f64 (-.f64 ky th)) (cos.f64 (+.f64 ky th))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 th ky)) (cos.f64 (+.f64 ky th))) #s(literal 2 binary64))
(/.f64 (neg.f64 (-.f64 (cos.f64 (-.f64 ky th)) (cos.f64 (+.f64 ky th)))) #s(literal -2 binary64))
(*.f64 (sin.f64 ky) (sin.f64 th))
(*.f64 (sin.f64 th) (sin.f64 ky))
(*.f64 (-.f64 (cos.f64 (-.f64 ky th)) (cos.f64 (+.f64 ky th))) #s(literal 1/2 binary64))
(exp.f64 (*.f64 (log.f64 (sin.f64 ky)) #s(literal 1 binary64)))
(sin.f64 ky)
(pow.f64 (sin.f64 ky) #s(literal 1 binary64))
(*.f64 (pow.f64 (sin.f64 ky) #s(literal 1/2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 1/2 binary64)))
(sin.f64 th)
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 th (.f64 #s(literal -1/6 binary64) (*.f64 th th))))))
#s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 th (.f64 #s(literal -1/6 binary64) (*.f64 th th)))))
#s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 th (.f64 #s(literal -1/6 binary64) (*.f64 th th))))
(.f64 th (.f64 #s(literal -1/6 binary64) (*.f64 th th)))
(.f64 #s(literal -1/6 binary64) (.f64 th (*.f64 th th)))
(.f64 (.f64 #s(literal -1/6 binary64) (*.f64 th th)) th)
(.f64 (.f64 th th) (*.f64 th #s(literal -1/6 binary64)))
(.f64 (.f64 th (*.f64 th th)) #s(literal -1/6 binary64))
(.f64 (.f64 th #s(literal -1/6 binary64)) (*.f64 th th))
(.f64 (sin.f64 th) #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th))
#s(approx (* (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64)))))
(.f64 ky (.f64 (sqrt.f64 #s(literal 2 binary64)) #s(approx (sqrt (/ 1 (- 1 (cos (* kx -2))))) (/.f64 (fma.f64 (*.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx))))
(.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))
(.f64 (sqrt.f64 #s(literal 2 binary64)) (.f64 ky #s(approx (sqrt (/ 1 (- 1 (cos (* kx -2))))) (/.f64 (fma.f64 (*.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx))))
(.f64 (.f64 ky (sqrt.f64 #s(literal 2 binary64))) #s(approx (sqrt (/ 1 (- 1 (cos (* kx -2))))) (/.f64 (fma.f64 (*.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)))
(.f64 (.f64 ky #s(approx (sqrt (/ 1 (- 1 (cos (* kx -2))))) (/.f64 (fma.f64 (*.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx))) (sqrt.f64 #s(literal 2 binary64)))
(.f64 (.f64 #s(approx (sqrt (/ 1 (- 1 (cos (* kx -2))))) (/.f64 (fma.f64 (*.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (sqrt.f64 #s(literal 2 binary64))) ky)
#s(approx (sqrt (/ 1 (- 1 (cos (* kx -2))))) (/.f64 (fma.f64 (*.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx))
(neg.f64 (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (neg.f64 (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))))
(neg.f64 (/.f64 (.f64 (sin.f64 th) (neg.f64 (sin.f64 ky))) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))) (.f64 (sin.f64 ky) (sin.f64 th))))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 (sqrt.f64 #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))) (.f64 (sin.f64 ky) (sin.f64 th))) #s(literal 1 binary64)))
(/.f64 (-.f64 (cos.f64 (-.f64 ky th)) (cos.f64 (+.f64 ky th))) (.f64 (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))) #s(literal 2 binary64)))
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 (sqrt.f64 #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))) (.f64 (sin.f64 ky) (sin.f64 th)))))
(/.f64 (.f64 (sin.f64 th) (neg.f64 (sin.f64 ky))) (neg.f64 (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(/.f64 (.f64 (-.f64 (cos.f64 (-.f64 ky th)) (cos.f64 (+.f64 ky th))) #s(literal 1 binary64)) (.f64 #s(literal 2 binary64) (sqrt.f64 #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(/.f64 (neg.f64 (.f64 (sin.f64 th) (neg.f64 (sin.f64 ky)))) (neg.f64 (neg.f64 (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))))
(/.f64 (.f64 (.f64 (sin.f64 ky) (sin.f64 th)) #s(literal 1 binary64)) (sqrt.f64 #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))
(/.f64 (.f64 (-.f64 (cos.f64 (-.f64 ky th)) (cos.f64 (+.f64 ky th))) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))) #s(literal 2 binary64))
(pow.f64 (/.f64 (sqrt.f64 #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))) (.f64 (sin.f64 ky) (sin.f64 th))) #s(literal -1 binary64))
(.f64 (sin.f64 ky) (/.f64 (sin.f64 th) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(.f64 (sin.f64 th) (.f64 (sin.f64 ky) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))))
(.f64 (sin.f64 th) (/.f64 (sin.f64 ky) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(.f64 #s(literal 1 binary64) (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(.f64 (.f64 (sin.f64 th) (neg.f64 (sin.f64 ky))) (/.f64 #s(literal 1 binary64) (neg.f64 (sqrt.f64 #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))))
(.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) (.f64 (sin.f64 ky) (sin.f64 th)))
(.f64 (/.f64 (sin.f64 th) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) (sin.f64 ky))
(+.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64))))
(+.f64 (*.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64)) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))
(+.f64 (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64)))
(+.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))
(+.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64)))
(+.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64))) #s(literal 1/2 binary64))
(-.f64 (/.f64 (pow.f64 (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64)) #s(literal 2 binary64)) (-.f64 (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))) (/.f64 (pow.f64 (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 2 binary64)) (-.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))))
(fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))
(fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))
(fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))
(fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)))
(fma.f64 (fma.f64 (pow.f64 (cos.f64 (+.f64 ky ky)) #s(literal 3 binary64)) #s(literal -1/8 binary64) #s(literal 1/8 binary64)) (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64)) (-.f64 (.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64)) #s(literal 1/2 binary64)) #s(literal 1/4 binary64))) (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64)))
(fma.f64 (-.f64 #s(literal 1/4 binary64) (.f64 #s(literal 1/4 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (+.f64 ky ky))))))) (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 ky ky))))) (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64)))
(fma.f64 (+.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1 binary64)) #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64)))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (-.f64 (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64))) (pow.f64 (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64)) #s(literal 2 binary64))) (fma.f64 #s(literal 1/8 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 3 binary64)) (pow.f64 (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 3 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (-.f64 (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) (-.f64 (pow.f64 (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64)) #s(literal 2 binary64)) (pow.f64 (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 2 binary64)))))
(/.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64))
(/.f64 (neg.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))) #s(literal -1 binary64))
(/.f64 (fma.f64 #s(literal 1/8 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 3 binary64)) (pow.f64 (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 3 binary64))) (fma.f64 (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (-.f64 (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64))) (pow.f64 (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64)) #s(literal 2 binary64))))
(/.f64 (fma.f64 #s(literal 1/8 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 3 binary64)) (pow.f64 (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 3 binary64))) (+.f64 (pow.f64 (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 2 binary64)) (-.f64 (pow.f64 (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64)) #s(literal 2 binary64)) (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) (*.f64 #s(literal 1/2 binary64) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))))))
(/.f64 (fma.f64 #s(literal 1/8 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 3 binary64)) (pow.f64 (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 3 binary64))) (.f64 #s(literal 1 binary64) (fma.f64 (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (-.f64 (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64))) (pow.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64)) #s(literal 2 binary64)))))
(/.f64 (-.f64 (pow.f64 (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64)) #s(literal 2 binary64)) (pow.f64 (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 2 binary64))) (-.f64 (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(/.f64 (-.f64 (pow.f64 (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64)) #s(literal 2 binary64)) (pow.f64 (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 2 binary64))) (.f64 #s(literal 1 binary64) (-.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))))
(/.f64 (neg.f64 (fma.f64 #s(literal 1/8 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 3 binary64)) (pow.f64 (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 3 binary64)))) (neg.f64 (fma.f64 (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (-.f64 (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64))) (pow.f64 (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64)) #s(literal 2 binary64)))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64)) #s(literal 2 binary64)) (pow.f64 (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 2 binary64)))) (neg.f64 (-.f64 (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))))
(/.f64 (+.f64 (pow.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64)) #s(literal 3 binary64))) (fma.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (-.f64 (.f64 #s(literal 1/4 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (+.f64 ky ky)))))) (.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64))))))
(/.f64 (-.f64 (pow.f64 (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 2 binary64)) (pow.f64 (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64)) #s(literal 2 binary64))) (-.f64 (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64))))
(/.f64 (-.f64 (.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64) #s(literal 1/2 binary64))) (.f64 #s(literal 1/4 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (+.f64 ky ky))))))) (-.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64) #s(literal 1/2 binary64)) (*.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64))))
(*.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal 1 binary64))
(.f64 (fma.f64 #s(literal 1/8 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 3 binary64)) (pow.f64 (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (-.f64 (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64))) (pow.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64)) #s(literal 2 binary64)))))
(.f64 (-.f64 (pow.f64 (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64)) #s(literal 2 binary64)) (pow.f64 (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (-.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))))
(exp.f64 (*.f64 (log.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))) #s(literal -1 binary64)))
(neg.f64 (/.f64 #s(literal -1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))))
(/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(/.f64 #s(literal 1 binary64) (neg.f64 (neg.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))))
(/.f64 #s(literal -1 binary64) (neg.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))))
(pow.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal -1 binary64))
(*.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))))
(*.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))) #s(literal 1 binary64))
(*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))))
(*.f64 #s(literal -1 binary64) (/.f64 #s(literal 1 binary64) (neg.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))))
(.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/8 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 3 binary64)) (pow.f64 (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 3 binary64)))) (fma.f64 (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (-.f64 (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64))) (pow.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64)) #s(literal 2 binary64))))
(.f64 (/.f64 #s(literal 1 binary64) (-.f64 (pow.f64 (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64)) #s(literal 2 binary64)) (pow.f64 (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) #s(literal 2 binary64)))) (-.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))
(+.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64)))
(+.f64 (*.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64)) #s(literal 1/2 binary64))
(-.f64 (/.f64 #s(literal 1/4 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 ky ky))))) (/.f64 (.f64 #s(literal 1/4 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (+.f64 ky ky)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 ky ky))))))
(fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)) #s(literal 1/2 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64)) (-.f64 (.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64)) #s(literal 1/2 binary64)) #s(literal 1/4 binary64)) (fma.f64 (pow.f64 (cos.f64 (+.f64 ky ky)) #s(literal 3 binary64)) #s(literal -1/8 binary64) #s(literal 1/8 binary64))))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 ky ky)))) (-.f64 #s(literal 1/4 binary64) (.f64 #s(literal 1/4 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (+.f64 ky ky)))))))))
(/.f64 (fma.f64 (pow.f64 (cos.f64 (+.f64 ky ky)) #s(literal 3 binary64)) #s(literal -1/8 binary64) #s(literal 1/8 binary64)) (fma.f64 (.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64)) (-.f64 (.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64)) #s(literal 1/2 binary64)) #s(literal 1/4 binary64)))
(/.f64 (fma.f64 (pow.f64 (cos.f64 (+.f64 ky ky)) #s(literal 3 binary64)) #s(literal -1/8 binary64) #s(literal 1/8 binary64)) (fma.f64 #s(literal 1/4 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (+.f64 ky ky))))) (-.f64 #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (cos.f64 (+.f64 ky ky))))))
(/.f64 (-.f64 #s(literal 1/4 binary64) (.f64 #s(literal 1/4 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (+.f64 ky ky))))))) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 ky ky)))))
(/.f64 (neg.f64 (fma.f64 (pow.f64 (cos.f64 (+.f64 ky ky)) #s(literal 3 binary64)) #s(literal -1/8 binary64) #s(literal 1/8 binary64))) (neg.f64 (fma.f64 (.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64)) (-.f64 (.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64)) #s(literal 1/2 binary64)) #s(literal 1/4 binary64))))
(/.f64 (neg.f64 (-.f64 #s(literal 1/4 binary64) (.f64 #s(literal 1/4 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (+.f64 ky ky)))))))) (neg.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 ky ky))))))
(/.f64 (-.f64 (.f64 #s(literal 1/4 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (+.f64 ky ky)))))) #s(literal 1/4 binary64)) (-.f64 (.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64)) #s(literal 1/2 binary64)))
(.f64 (fma.f64 (pow.f64 (cos.f64 (+.f64 ky ky)) #s(literal 3 binary64)) #s(literal -1/8 binary64) #s(literal 1/8 binary64)) (/.f64 #s(literal 1 binary64) (fma.f64 (.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64)) (-.f64 (*.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64)) #s(literal 1/2 binary64)) #s(literal 1/4 binary64))))
(.f64 (-.f64 #s(literal 1/4 binary64) (.f64 #s(literal 1/4 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (+.f64 ky ky))))))) (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 ky ky))))))
(/.f64 (.f64 #s(literal 1 binary64) (.f64 (sin.f64 ky) #s(approx (sin th) (fma.f64 (.f64 th (.f64 th th)) (fma.f64 th (*.f64 th #s(literal 1/120 binary64)) #s(literal -1/6 binary64)) th)))) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))))
(.f64 (sin.f64 ky) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))) #s(approx (sin th) (fma.f64 (.f64 th (.f64 th th)) (fma.f64 th (*.f64 th #s(literal 1/120 binary64)) #s(literal -1/6 binary64)) th))))
(.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))) (.f64 (sin.f64 ky) #s(approx (sin th) (fma.f64 (.f64 th (.f64 th th)) (fma.f64 th (*.f64 th #s(literal 1/120 binary64)) #s(literal -1/6 binary64)) th))))
(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))) #s(approx (sin th) (fma.f64 (.f64 th (.f64 th th)) (fma.f64 th (.f64 th #s(literal 1/120 binary64)) #s(literal -1/6 binary64)) th)))
(.f64 #s(approx (sin th) (fma.f64 (.f64 th (.f64 th th)) (fma.f64 th (.f64 th #s(literal 1/120 binary64)) #s(literal -1/6 binary64)) th)) (/.f64 (sin.f64 ky) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))))
(.f64 (.f64 (sin.f64 ky) #s(approx (sin th) (fma.f64 (.f64 th (.f64 th th)) (fma.f64 th (*.f64 th #s(literal 1/120 binary64)) #s(literal -1/6 binary64)) th))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))))
(.f64 (.f64 #s(approx (sin th) (fma.f64 (.f64 th (.f64 th th)) (fma.f64 th (*.f64 th #s(literal 1/120 binary64)) #s(literal -1/6 binary64)) th)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))))) (sin.f64 ky))
(+.f64 #s(literal 1 binary64) (neg.f64 (cos.f64 (+.f64 ky ky))))
(+.f64 (neg.f64 (cos.f64 (+.f64 ky ky))) #s(literal 1 binary64))
(+.f64 (-.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 ky ky))))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 ky ky)))))
(-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))
(-.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 (+.f64 ky ky)) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1 binary64))) (/.f64 (pow.f64 (cos.f64 (+.f64 ky ky)) #s(literal 3 binary64)) (fma.f64 (cos.f64 (+.f64 ky ky)) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1 binary64))))
(-.f64 (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))) (/.f64 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (+.f64 ky ky))))) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))))
(fma.f64 #s(literal -1 binary64) (cos.f64 (+.f64 ky ky)) #s(literal 1 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (cos.f64 (+.f64 ky ky)) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1 binary64)) (-.f64 #s(literal 1 binary64) (pow.f64 (cos.f64 (+.f64 ky ky)) #s(literal 3 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) (-.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (+.f64 ky ky))))))))
(/.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (cos.f64 (+.f64 ky ky)) #s(literal 3 binary64))) (fma.f64 (cos.f64 (+.f64 ky ky)) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1 binary64)))
(/.f64 (-.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (+.f64 ky ky)))))) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))))
(/.f64 (neg.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (cos.f64 (+.f64 ky ky)) #s(literal 3 binary64)))) (neg.f64 (fma.f64 (cos.f64 (+.f64 ky ky)) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1 binary64))))
(/.f64 (neg.f64 (-.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (+.f64 ky ky))))))) (neg.f64 (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))))
(/.f64 (+.f64 #s(literal 1 binary64) (pow.f64 (neg.f64 (cos.f64 (+.f64 ky ky))) #s(literal 3 binary64))) (+.f64 #s(literal 1 binary64) (-.f64 (.f64 (neg.f64 (cos.f64 (+.f64 ky ky))) (neg.f64 (cos.f64 (+.f64 ky ky)))) (.f64 #s(literal 1 binary64) (neg.f64 (cos.f64 (+.f64 ky ky)))))))
(/.f64 (-.f64 #s(literal 1 binary64) (*.f64 (neg.f64 (cos.f64 (+.f64 ky ky))) (neg.f64 (cos.f64 (+.f64 ky ky))))) (-.f64 #s(literal 1 binary64) (neg.f64 (cos.f64 (+.f64 ky ky)))))
(*.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (cos.f64 (+.f64 ky ky)) #s(literal 3 binary64))) (/.f64 #s(literal 1 binary64) (fma.f64 (cos.f64 (+.f64 ky ky)) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1 binary64))))
(.f64 (-.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (+.f64 ky ky)))))) (/.f64 #s(literal 1 binary64) (+.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky)))))
(exp.f64 (.f64 (log.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 ky ky)))))) #s(literal 1/2 binary64)))
(sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 ky ky))))))
(/.f64 (sqrt.f64 (fma.f64 #s(literal 1/8 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 3 binary64)) (pow.f64 (sin.f64 ky) #s(literal 6 binary64)))) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 ky ky)))) (-.f64 (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 ky ky)))) (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64))) (pow.f64 (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64)) #s(literal 2 binary64)))))
(/.f64 (sqrt.f64 (-.f64 (pow.f64 (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64)) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 4 binary64)))) (sqrt.f64 (-.f64 (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 ky ky)))))))
(pow.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 ky ky))))) #s(literal 1/2 binary64))
(.f64 (pow.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 ky ky))))) #s(literal 1/4 binary64)) (pow.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 ky ky))))) #s(literal 1/4 binary64)))
(exp.f64 (*.f64 #s(literal 2 binary64) (log.f64 (sin.f64 ky))))
(exp.f64 (*.f64 #s(literal 2 binary64) (log.f64 (sin.f64 kx))))
(-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 ky ky))))
(/.f64 (-.f64 (cos.f64 #s(literal 0 binary64)) (cos.f64 (+.f64 ky ky))) #s(literal 2 binary64))
(pow.f64 (sin.f64 ky) #s(literal 2 binary64))
(pow.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 ky ky)))) #s(literal 1 binary64))
(pow.f64 (sin.f64 kx) #s(literal 2 binary64))
(pow.f64 (exp.f64 (log.f64 (sin.f64 kx))) #s(literal 2 binary64))
(pow.f64 (exp.f64 (log.f64 (sin.f64 ky))) #s(literal 2 binary64))
(*.f64 (sin.f64 ky) (sin.f64 ky))
(*.f64 (sin.f64 kx) (sin.f64 kx))
(*.f64 (exp.f64 (log.f64 (sin.f64 kx))) (exp.f64 (log.f64 (sin.f64 kx))))
(*.f64 (exp.f64 (log.f64 (sin.f64 ky))) (exp.f64 (log.f64 (sin.f64 ky))))
(neg.f64 (/.f64 (fma.f64 (*.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) (neg.f64 kx)))
(neg.f64 (/.f64 (neg.f64 (fma.f64 (*.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))) kx))
(/.f64 #s(literal 1 binary64) (/.f64 kx (fma.f64 (*.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 kx (fma.f64 (*.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))) #s(literal 1 binary64)))
(/.f64 (fma.f64 (*.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)
(/.f64 #s(literal -1 binary64) (neg.f64 (/.f64 kx (fma.f64 (*.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))))))
(/.f64 (neg.f64 (fma.f64 (*.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))) (neg.f64 kx))
(/.f64 (fma.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(literal 1/2 binary64)) (.f64 (/.f64 (.f64 kx kx) (.f64 (sqrt.f64 #s(literal 1/2 binary64)) #s(literal 12 binary64))) (/.f64 (.f64 (.f64 kx (.f64 kx #s(literal 1/12 binary64))) (.f64 kx (.f64 kx #s(literal 1/12 binary64)))) #s(literal 1/2 binary64)))) (.f64 kx (+.f64 (/.f64 (.f64 (.f64 kx (.f64 kx #s(literal 1/12 binary64))) (.f64 kx (.f64 kx #s(literal 1/12 binary64)))) #s(literal 1/2 binary64)) (-.f64 #s(literal 1/2 binary64) (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (/.f64 (.f64 kx kx) (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) #s(literal 12 binary64))))))))
(/.f64 (+.f64 (/.f64 (.f64 (.f64 kx (.f64 kx #s(literal 1/12 binary64))) (.f64 kx (.f64 kx #s(literal 1/12 binary64)))) #s(literal 1/2 binary64)) #s(literal -1/2 binary64)) (.f64 kx (-.f64 (/.f64 (.f64 kx kx) (.f64 (sqrt.f64 #s(literal 1/2 binary64)) #s(literal 12 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))))
(/.f64 (.f64 (fma.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(literal 1/2 binary64)) (.f64 (/.f64 (.f64 kx kx) (.f64 (sqrt.f64 #s(literal 1/2 binary64)) #s(literal 12 binary64))) (/.f64 (.f64 (.f64 kx (.f64 kx #s(literal 1/12 binary64))) (.f64 kx (.f64 kx #s(literal 1/12 binary64)))) #s(literal 1/2 binary64)))) #s(literal 1 binary64)) (.f64 (+.f64 (/.f64 (.f64 (.f64 kx (.f64 kx #s(literal 1/12 binary64))) (.f64 kx (.f64 kx #s(literal 1/12 binary64)))) #s(literal 1/2 binary64)) (-.f64 #s(literal 1/2 binary64) (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (/.f64 (.f64 kx kx) (.f64 (sqrt.f64 #s(literal 1/2 binary64)) #s(literal 12 binary64)))))) kx))
(/.f64 (.f64 (+.f64 (/.f64 (.f64 (.f64 kx (.f64 kx #s(literal 1/12 binary64))) (.f64 kx (.f64 kx #s(literal 1/12 binary64)))) #s(literal 1/2 binary64)) #s(literal -1/2 binary64)) #s(literal 1 binary64)) (.f64 (-.f64 (/.f64 (.f64 kx kx) (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) #s(literal 12 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx))
(/.f64 (neg.f64 (neg.f64 (fma.f64 (*.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))))) (neg.f64 (neg.f64 kx)))
(/.f64 (.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) #s(literal 1 binary64)) kx)
(/.f64 (.f64 (fma.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(literal 1/2 binary64)) (.f64 (/.f64 (.f64 kx kx) (.f64 (sqrt.f64 #s(literal 1/2 binary64)) #s(literal 12 binary64))) (/.f64 (.f64 (.f64 kx (.f64 kx #s(literal 1/12 binary64))) (.f64 kx (.f64 kx #s(literal 1/12 binary64)))) #s(literal 1/2 binary64)))) (/.f64 #s(literal 1 binary64) kx)) (+.f64 (/.f64 (.f64 (.f64 kx (.f64 kx #s(literal 1/12 binary64))) (.f64 kx (.f64 kx #s(literal 1/12 binary64)))) #s(literal 1/2 binary64)) (-.f64 #s(literal 1/2 binary64) (.f64 (sqrt.f64 #s(literal 1/2 binary64)) (/.f64 (.f64 kx kx) (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) #s(literal 12 binary64)))))))
(/.f64 (.f64 (+.f64 (/.f64 (.f64 (.f64 kx (.f64 kx #s(literal 1/12 binary64))) (.f64 kx (.f64 kx #s(literal 1/12 binary64)))) #s(literal 1/2 binary64)) #s(literal -1/2 binary64)) (/.f64 #s(literal 1 binary64) kx)) (-.f64 (/.f64 (.f64 kx kx) (.f64 (sqrt.f64 #s(literal 1/2 binary64)) #s(literal 12 binary64))) (sqrt.f64 #s(literal 1/2 binary64))))
(pow.f64 (/.f64 kx (fma.f64 (*.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))) #s(literal -1 binary64))
(.f64 #s(literal 1 binary64) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx))
(.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) (/.f64 #s(literal 1 binary64) kx))
(.f64 (neg.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))) (/.f64 #s(literal 1 binary64) (neg.f64 kx)))
(.f64 (/.f64 #s(literal 1 binary64) kx) (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))))
(neg.f64 (/.f64 #s(literal -1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))))
(/.f64 #s(literal 1 binary64) (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) #s(literal 12 binary64)))
(/.f64 #s(literal 1 binary64) (/.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) #s(literal 12 binary64)) #s(literal 1 binary64)))
(/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64)))
(/.f64 #s(literal 1/12 binary64) (neg.f64 (neg.f64 (sqrt.f64 #s(literal 1/2 binary64)))))
(/.f64 #s(literal -1 binary64) (neg.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) #s(literal 12 binary64))))
(/.f64 #s(literal -1/12 binary64) (neg.f64 (sqrt.f64 #s(literal 1/2 binary64))))
(pow.f64 (*.f64 (sqrt.f64 #s(literal 1/2 binary64)) #s(literal 12 binary64)) #s(literal -1 binary64))
(*.f64 #s(literal 1 binary64) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))))
(*.f64 #s(literal 1/12 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 1/2 binary64))))
(*.f64 #s(literal -1/12 binary64) (/.f64 #s(literal 1 binary64) (neg.f64 (sqrt.f64 #s(literal 1/2 binary64)))))
(*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 1/2 binary64))) #s(literal 1/12 binary64))
#s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))
(+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64)))))
(+.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64)))) #s(literal 1/2 binary64))
(-.f64 (/.f64 (pow.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/2 binary64))) (/.f64 #s(literal 1/4 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/2 binary64))))
(fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))
(fma.f64 (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal -1/2 binary64) #s(literal 1/2 binary64))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 (pow.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64)))) #s(literal 2 binary64)) (-.f64 #s(literal 1/4 binary64) (.f64 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/4 binary64)))) (fma.f64 #s(literal -1/8 binary64) (pow.f64 (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 3 binary64)) #s(literal 1/8 binary64))))
(/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/2 binary64)) (+.f64 (pow.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64)))) #s(literal 2 binary64)) #s(literal -1/4 binary64))))
(/.f64 (fma.f64 #s(literal -1/8 binary64) (pow.f64 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 3 binary64)) #s(literal 1/8 binary64)) (+.f64 (pow.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64)))) #s(literal 2 binary64)) (-.f64 #s(literal 1/4 binary64) (.f64 (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal -1/4 binary64)))))
(/.f64 (fma.f64 #s(literal -1/8 binary64) (pow.f64 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 3 binary64)) #s(literal 1/8 binary64)) (+.f64 #s(literal 1/4 binary64) (-.f64 (pow.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64)))) #s(literal 2 binary64)) (.f64 (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal -1/4 binary64)))))
(/.f64 (+.f64 (pow.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64)))) #s(literal 2 binary64)) #s(literal -1/4 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal -1/2 binary64)))
(/.f64 (neg.f64 (fma.f64 #s(literal -1/8 binary64) (pow.f64 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 3 binary64)) #s(literal 1/8 binary64))) (neg.f64 (+.f64 (pow.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64)))) #s(literal 2 binary64)) (-.f64 #s(literal 1/4 binary64) (.f64 (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal -1/4 binary64))))))
(/.f64 (neg.f64 (+.f64 (pow.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64)))) #s(literal 2 binary64)) #s(literal -1/4 binary64))) (neg.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal -1/2 binary64))))
(/.f64 (-.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64)))) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))))))
(.f64 (fma.f64 #s(literal -1/8 binary64) (pow.f64 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 3 binary64)) #s(literal 1/8 binary64)) (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64)))) #s(literal 2 binary64)) (-.f64 #s(literal 1/4 binary64) (.f64 (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/4 binary64))))))
(.f64 (+.f64 (pow.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64)))) #s(literal 2 binary64)) #s(literal -1/4 binary64)) (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal -1/2 binary64))))
(exp.f64 (.f64 (log.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64)))
(sqrt.f64 #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))
(pow.f64 #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))) #s(literal 1/2 binary64))
(.f64 (pow.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))) #s(literal 1/4 binary64)) (pow.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))) #s(literal 1/4 binary64)))
#s(approx (sin th) (fma.f64 (.f64 th (.f64 th th)) (fma.f64 th (*.f64 th #s(literal 1/120 binary64)) #s(literal -1/6 binary64)) th))
(exp.f64 (*.f64 (log.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))) #s(literal 1/2 binary64)))
(sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))))
(/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))))
(/.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))) #s(literal 1 binary64)))
(/.f64 #s(literal -1 binary64) (neg.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))))
(/.f64 (sqrt.f64 #s(literal -1 binary64)) (sqrt.f64 (neg.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))))
(pow.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))) #s(literal -1/2 binary64))
(pow.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64))
(pow.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))) #s(literal -1 binary64))
(*.f64 #s(literal 1 binary64) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))))
(*.f64 (pow.f64 #s(literal 1 binary64) #s(literal 1/2 binary64)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))))
(*.f64 (pow.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))) #s(literal 1/4 binary64)) (pow.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))) #s(literal 1/4 binary64)))

eval251.0ms (1.8%)

Memory: -14.0MiB live, 182.5MiB allocated
Compiler: Compiled 29 318 to 1 930 computations (93.4% saved)

prune285.0ms (2.1%)

Memory

15.0MiB live, 304.5MiB allocated

Pruning

92 alts after pruning (85 fresh and 7 done)

	Pruned	Kept	Total
New	874	32	906
Fresh	12	53	65
Picked	2	3	5
Done	1	4	5
Total	889	92	981

Accuracy

100.0%

Counts

981 → 92

Alt Table

Click to see full alt table

Status	Accuracy	Program
	79.1%	(/.f64 (/.f64 (sin.f64 th) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (/.f64 #s(literal 1 binary64) (sin.f64 ky)))
✓	79.2%	(/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))))
	36.3%	(/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (pow (sin ky) 2) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 (*.f64 ky ky) #s(literal 2/45 binary64) #s(literal -1/3 binary64)) #s(literal 1 binary64)))))))
	15.1%	(/.f64 (*.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 (cos.f64 (+.f64 kx kx)) #s(literal -1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64)))))
	33.7%	(/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 #s(approx (- 1 (cos (+ kx kx))) (.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) #s(literal -2/3 binary64) #s(literal 2 binary64)))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))))
	12.4%	(/.f64 (*.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (+.f64 (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))))
✓	33.0%	(/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))
	31.5%	(/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64)))))
	13.5%	(/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) #s(approx (+ (* -1/2 (cos (* ky -2))) 1/2) (*.f64 ky ky)))))
	31.5%	(/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) #s(approx (sqrt (+ ( (- 1 (cos (+ kx kx))) 1/2) (pow (sin ky) 2))) (.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))) (sqrt.f64 #s(literal 1/2 binary64)))))
	18.7%	(/.f64 (.f64 (sin.f64 ky) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th))) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))
	41.6%	(/.f64 #s(approx (* (sin ky) (sin th)) (.f64 th (.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 th th) #s(literal 1 binary64)) (sin.f64 ky)))) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))))
	46.8%	(/.f64 #s(approx (* (sin ky) (sin th)) (*.f64 th (sin.f64 ky))) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))))
	41.9%	(/.f64 #s(approx (* (sin ky) (sin th)) (.f64 th (sin.f64 ky))) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))))
	19.0%	(/.f64 #s(approx (* (sin ky) (sin th)) (.f64 th (sin.f64 ky))) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))
	32.9%	(/.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))) (.f64 (sin.f64 ky) (sin.f64 th))))
	79.1%	(.f64 (/.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (/.f64 #s(literal 1 binary64) (sin.f64 ky))) (sin.f64 th))
	79.1%	(.f64 (/.f64 (sin.f64 th) (pow.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) #s(literal 1/4 binary64))) (/.f64 (sin.f64 ky) (pow.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) #s(literal 1/4 binary64))))
	79.3%	(.f64 (/.f64 (sin.f64 th) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky))
	33.2%	(.f64 (/.f64 (sin.f64 th) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) (sin.f64 ky))
	79.1%	(.f64 (/.f64 (sin.f64 ky) (pow.f64 (pow.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) #s(literal 1/4 binary64)) #s(literal 2 binary64))) (sin.f64 th))
✓	99.6%	(*.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (sin.f64 th))
✓	99.7%	(*.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (sin.f64 kx))) (sin.f64 th))
	55.4%	(.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (sin.f64 kx))) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (*.f64 th th)) th)))
	53.6%	(.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) #s(approx (/ 1 (/ 1 (sin kx))) (fma.f64 kx (.f64 #s(literal -1/6 binary64) (*.f64 kx kx)) kx)))) (sin.f64 th))
	48.6%	(.f64 (/.f64 (sin.f64 ky) (hypot.f64 #s(approx (sin ky) (fma.f64 ky (.f64 #s(literal -1/6 binary64) (*.f64 ky ky)) ky)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (sin.f64 th))
	12.6%	(*.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))) (sin.f64 th))
	15.2%	(*.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)) #s(literal 1/2 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)) #s(literal 1/2 binary64))))) (sin.f64 th))
	27.2%	(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (exp.f64 (.f64 #s(literal 2 binary64) (log.f64 (sin.f64 kx)))) #s(approx (pow (sin ky) 2) (*.f64 ky ky))))) (sin.f64 th))
	24.9%	(*.f64 (/.f64 (sin.f64 ky) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx))) (sin.f64 th))
	43.0%	(.f64 (/.f64 #s(approx (sin ky) (fma.f64 ky (.f64 (.f64 ky ky) #s(literal -1/6 binary64)) ky)) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky))))) (sin.f64 th))
	41.7%	(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (*.f64 th th) #s(literal -1/6 binary64))) th)))
	41.7%	(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 (.f64 th th) (fma.f64 #s(literal -1/5040 binary64) (*.f64 th th) #s(literal 1/120 binary64)) #s(literal -1/6 binary64))) th)))
	41.6%	(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (*.f64 th th)) th)))
	21.7%	(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/315 binary64) #s(literal 2/45 binary64)) #s(literal -1/3 binary64)) #s(literal 1 binary64))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th)))
	21.8%	(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal 2/45 binary64) #s(literal -1/3 binary64)) #s(literal 1 binary64))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (*.f64 th th) #s(literal -1/6 binary64))) th)))
	21.3%	(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th)))
	35.3%	(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) #s(approx (sin ky) (fma.f64 ky (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 #s(literal -1/5040 binary64) (*.f64 ky ky) #s(literal 1/120 binary64)) #s(literal -1/6 binary64))) ky))) (sin.f64 th))
	35.3%	(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) #s(approx (sin ky) (fma.f64 ky (.f64 #s(literal -1/6 binary64) (*.f64 ky ky)) ky))) (sin.f64 th))
	35.3%	(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) #s(approx (sin ky) (.f64 ky (fma.f64 (.f64 ky ky) (fma.f64 #s(literal 1/120 binary64) (.f64 ky ky) #s(literal -1/6 binary64)) #s(literal 1 binary64))))) (sin.f64 th))
	21.7%	(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 ky ky))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th)))
	25.1%	(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(approx (- 1 (cos (+ kx kx))) (.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) #s(literal -2/315 binary64) #s(literal 4/45 binary64)) #s(literal -2/3 binary64)) #s(literal 2 binary64)))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (*.f64 th th) #s(literal -1/6 binary64))) th)))
	24.5%	(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(approx (- 1 (cos (+ kx kx))) (.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) #s(literal -2/3 binary64) #s(literal 2 binary64)))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (*.f64 th th) #s(literal -1/6 binary64))) th)))
	25.9%	(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(approx (- 1 (cos (+ kx kx))) (.f64 #s(literal 2 binary64) (.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th)))
	37.2%	(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 ky (*.f64 ky #s(literal -1/3 binary64)) #s(literal 1 binary64))))))) (sin.f64 th)) (sin.f64 ky))
	21.0%	(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) (fma.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) #s(literal 2/45 binary64) #s(literal -1/3 binary64)) #s(literal 1 binary64)) #s(literal 1/2 binary64)))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (*.f64 th th) #s(literal -1/6 binary64))) th)))
	19.8%	(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) (fma.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) #s(literal -1/3 binary64) #s(literal 1 binary64)) #s(literal 1/2 binary64)))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th)))
	21.2%	(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) (fma.f64 kx kx #s(literal 1/2 binary64)))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th)))
	33.1%	(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) (sin.f64 ky)) (sin.f64 th))
	18.9%	(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th)))
	31.6%	(.f64 (.f64 (sqrt.f64 #s(approx (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky)))))) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64))))))) (sin.f64 ky)) (sin.f64 th))
	16.9%	(.f64 (.f64 (sqrt.f64 #s(approx (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky)))))) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th)))
	79.0%	(.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))))
	35.4%	(.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 ky (*.f64 ky #s(literal -1/3 binary64)) #s(literal 1 binary64))))))))
	33.2%	(.f64 (sin.f64 th) (/.f64 (sin.f64 ky) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
	33.2%	(.f64 (sin.f64 th) (.f64 (sin.f64 ky) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))))
	26.4%	(.f64 (sin.f64 th) #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (/.f64 (.f64 ky (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))))
	26.3%	(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (fma.f64 (.f64 kx kx) (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) #s(literal 1 binary64))) (sin.f64 th))
	21.5%	(*.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (/.f64 ky (sin.f64 kx))) (sin.f64 th))
	8.6%	(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky #s(approx (+ (* (* ky ky) (+ (/ -1/2 (pow (sin kx) 3)) (/ -1/6 (sin kx)))) (/ 1 (sin kx))) (/.f64 (fma.f64 (.f64 ky ky) #s(literal -1/2 binary64) (.f64 (.f64 kx kx) (fma.f64 (.f64 ky ky) #s(literal -5/12 binary64) #s(literal 1 binary64)))) (.f64 kx (.f64 kx kx)))))) (sin.f64 th))
	7.3%	(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky #s(approx (+ (* (* ky ky) (+ (/ -1/2 (pow (sin kx) 3)) (/ -1/6 (sin kx)))) (/ 1 (sin kx))) (/.f64 (fma.f64 (.f64 kx kx) (fma.f64 (.f64 ky ky) #s(literal -5/12 binary64) (fma.f64 (.f64 kx kx) (fma.f64 (.f64 ky ky) #s(literal -71/720 binary64) #s(literal 1/6 binary64)) #s(literal 1 binary64))) (.f64 (.f64 ky ky) #s(literal -1/2 binary64))) (.f64 kx (.f64 kx kx)))))) (sin.f64 th))
	6.8%	(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky #s(approx (+ (* (* ky ky) (+ (/ -1/2 (pow (sin kx) 3)) (/ -1/6 (sin kx)))) (/ 1 (sin kx))) (/.f64 (.f64 (.f64 ky ky) #s(literal -1/2 binary64)) (.f64 kx (.f64 kx kx)))))) (sin.f64 th))
	21.5%	(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky #s(approx (+ (* (* ky ky) (+ (/ -1/2 (pow (sin kx) 3)) (/ -1/6 (sin kx)))) (/ 1 (sin kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (sin.f64 th))
	6.0%	(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) #s(approx ( ky (+ (* (* ky ky) (+ (/ -1/2 (pow (sin kx) 3)) (/ -1/6 (sin kx)))) (/ 1 (sin kx)))) (/.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 ky (.f64 ky ky)) (.f64 (.f64 (.f64 kx kx) ky) (fma.f64 (.f64 ky ky) #s(literal -5/12 binary64) #s(literal 1 binary64)))) (.f64 kx (.f64 kx kx))))) (sin.f64 th))
	26.4%	(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (/.f64 (.f64 #s(literal 1 binary64) ky) (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64)))))) (sqrt.f64 #s(literal 2 binary64)))) (sin.f64 th))
	26.4%	(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th))
	26.3%	(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64)))))) (sqrt.f64 #s(literal 2 binary64))) ky)) (sin.f64 th))
	26.2%	(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 kx #s(literal -2 binary64))))))) (+.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th))
	12.9%	(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (- 1 (cos ( kx -2))) (.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) #s(literal -2/3 binary64) #s(literal 2 binary64)))))) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th))
	14.4%	(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (- 1 (cos ( kx -2))) (.f64 #s(literal 2 binary64) (.f64 kx kx))))) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th))
✓	12.0%	(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th))
	9.1%	(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th)))
	16.0%	(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) kx)) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th))
	6.2%	(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) #s(approx (/ (+ (* (* kx kx) (/ 1/12 (sqrt 1/2))) (sqrt 1/2)) kx) (.f64 kx (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64)))))) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th))
	12.0%	(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) #s(approx (* (sqrt (/ 1 (- 1 (cos (* kx -2))))) (* ky (sqrt 2))) (/.f64 (fma.f64 #s(literal 1/12 binary64) (/.f64 (.f64 (.f64 kx kx) (.f64 ky (sqrt.f64 #s(literal 2 binary64)))) (sqrt.f64 #s(literal 1/2 binary64))) (.f64 (*.f64 ky (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 2 binary64)))) kx))) (sin.f64 th))
	15.9%	(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) #s(approx (* (sqrt (/ 1 (- 1 (cos (* kx -2))))) (* ky (sqrt 2))) (.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(literal 1/2 binary64))) (/.f64 ky kx)))) (sin.f64 th))
	26.3%	#s(approx (/ (* (sin ky) (sin th)) (sqrt (+ (* (- 1 (cos (+ kx kx))) 1/2) (pow (sin ky) 2)))) (.f64 (.f64 (.f64 ky (sin.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))))
	41.8%	#s(approx (/ (* (sin ky) (sin th)) (sqrt (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (.f64 (.f64 th (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))))
	20.6%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (/.f64 (*.f64 ky (sin.f64 th)) (sin.f64 kx)))
	17.7%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 ky (fma.f64 (fma.f64 (.f64 ky ky) #s(literal -1/6 binary64) #s(literal 1 binary64)) (/.f64 (sin.f64 th) (sin.f64 kx)) (/.f64 (.f64 (.f64 ky ky) (*.f64 #s(literal -1/2 binary64) (sin.f64 th))) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))))))
✓	32.9%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th))
	20.2%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 (.f64 th (.f64 th th)) #s(literal -1/6 binary64) th)))
	20.1%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (*.f64 th th) #s(literal -1/6 binary64))) th)))
	20.2%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th #s(literal -1/6 binary64)) th) th)))
	13.8%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (/.f64 (-.f64 (.f64 th th) (.f64 th (.f64 (.f64 #s(literal -1/6 binary64) (.f64 th th)) (.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)))))) (-.f64 th (.f64 th (.f64 #s(literal -1/6 binary64) (*.f64 th th)))))))
	7.0%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 th (-.f64 th (.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)))) (.f64 th (.f64 (.f64 #s(literal -1/6 binary64) (.f64 th th)) (.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)))))) (fma.f64 th (.f64 th th) (.f64 (.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th))) (.f64 th (.f64 (.f64 #s(literal -1/6 binary64) (.f64 th th)) (.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)))))))))))
	20.2%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (+.f64 (.f64 th (.f64 #s(literal -1/6 binary64) (*.f64 th th))) th)))
	13.8%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (.f64 (.f64 (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) (neg.f64 th))) (/.f64 #s(literal 1 binary64) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) (neg.f64 th))))))
	7.3%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 (.f64 th (.f64 th th)) (+.f64 #s(literal -1/6 binary64) (/.f64 #s(literal 1 binary64) (.f64 th th)))))))
	8.0%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 (.f64 th th) (*.f64 th #s(literal -1/6 binary64))))))
	8.0%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 (.f64 #s(literal -1/6 binary64) (*.f64 th th)) th))))
✓	8.0%	#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 #s(literal -1/6 binary64) (.f64 th (*.f64 th th))))))

Compiler

Compiled 5 705 to 2 041 computations (64.2% saved)

regimes523.0ms (3.8%)

Memory

2.8MiB live, 387.7MiB allocated

Counts

137 → 1

Calls

Call 1

Inputs
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 #s(literal -1/6 binary64) (.f64 th (*.f64 th th))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 (.f64 #s(literal -1/6 binary64) (*.f64 th th)) th))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 (.f64 th th) (*.f64 th #s(literal -1/6 binary64))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th #s(literal -1/6 binary64)) th) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 (.f64 th th) (.f64 th #s(literal -1/6 binary64)) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 (.f64 th (.f64 th th)) #s(literal -1/6 binary64) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (+.f64 (.f64 th (.f64 #s(literal -1/6 binary64) (*.f64 th th))) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (*.f64 th th) #s(literal -1/6 binary64))) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 (.f64 th (.f64 th th)) (+.f64 #s(literal -1/6 binary64) (/.f64 #s(literal 1 binary64) (.f64 th th)))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (/.f64 (-.f64 (.f64 th th) (.f64 th (.f64 (.f64 #s(literal -1/6 binary64) (.f64 th th)) (.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)))))) (-.f64 th (.f64 th (.f64 #s(literal -1/6 binary64) (*.f64 th th)))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (.f64 (.f64 (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) (neg.f64 th))) (/.f64 #s(literal 1 binary64) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) (neg.f64 th))))))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th))
(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky #s(approx (+ (* (* ky ky) (+ (/ -1/2 (pow (sin kx) 3)) (/ -1/6 (sin kx)))) (/ 1 (sin kx))) (/.f64 (.f64 (.f64 ky ky) #s(literal -1/2 binary64)) (.f64 kx (.f64 kx kx)))))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) #s(approx (* (sqrt (/ 1 (- 1 (cos (* kx -2))))) (* ky (sqrt 2))) (.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(literal 1/2 binary64))) (/.f64 ky kx)))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) kx)) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 th (-.f64 th (.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)))) (.f64 th (.f64 (.f64 #s(literal -1/6 binary64) (.f64 th th)) (.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)))))) (fma.f64 th (.f64 th th) (.f64 (.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th))) (.f64 th (.f64 (.f64 #s(literal -1/6 binary64) (.f64 th th)) (.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)))))))))))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) #s(approx (/ (+ (* (* kx kx) (/ 1/12 (sqrt 1/2))) (sqrt 1/2)) kx) (.f64 kx (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64)))))) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (- 1 (cos ( kx -2))) (.f64 #s(literal 2 binary64) (.f64 kx kx))))) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th))
(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky #s(approx (+ (* (* ky ky) (+ (/ -1/2 (pow (sin kx) 3)) (/ -1/6 (sin kx)))) (/ 1 (sin kx))) (/.f64 (fma.f64 (.f64 ky ky) #s(literal -1/2 binary64) (.f64 (.f64 kx kx) (fma.f64 (.f64 ky ky) #s(literal -5/12 binary64) #s(literal 1 binary64)))) (.f64 kx (.f64 kx kx)))))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (- 1 (cos ( kx -2))) (.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) #s(literal -2/3 binary64) #s(literal 2 binary64)))))) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th))
(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) #s(approx ( ky (+ (* (* ky ky) (+ (/ -1/2 (pow (sin kx) 3)) (/ -1/6 (sin kx)))) (/ 1 (sin kx)))) (/.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 ky (.f64 ky ky)) (.f64 (.f64 (.f64 kx kx) ky) (fma.f64 (.f64 ky ky) #s(literal -5/12 binary64) #s(literal 1 binary64)))) (.f64 kx (.f64 kx kx))))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th))
(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky #s(approx (+ (* (* ky ky) (+ (/ -1/2 (pow (sin kx) 3)) (/ -1/6 (sin kx)))) (/ 1 (sin kx))) (/.f64 (fma.f64 (.f64 kx kx) (fma.f64 (.f64 ky ky) #s(literal -5/12 binary64) (fma.f64 (.f64 kx kx) (fma.f64 (.f64 ky ky) #s(literal -71/720 binary64) #s(literal 1/6 binary64)) #s(literal 1 binary64))) (.f64 (.f64 ky ky) #s(literal -1/2 binary64))) (.f64 kx (.f64 kx kx)))))) (sin.f64 th))
(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) #s(approx ( ky (+ (* (* ky ky) (+ (/ -1/2 (pow (sin kx) 3)) (/ -1/6 (sin kx)))) (/ 1 (sin kx)))) (/.f64 (fma.f64 (.f64 kx kx) (fma.f64 ky (fma.f64 (.f64 ky ky) #s(literal -5/12 binary64) #s(literal 1 binary64)) (.f64 (.f64 (.f64 kx kx) ky) (fma.f64 (.f64 ky ky) #s(literal -71/720 binary64) #s(literal 1/6 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 ky (.f64 ky ky)))) (.f64 kx (*.f64 kx kx))))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) #s(approx (* (sqrt (/ 1 (- 1 (cos (* kx -2))))) (* ky (sqrt 2))) (/.f64 (fma.f64 #s(literal 1/12 binary64) (.f64 (.f64 ky (sqrt.f64 #s(literal 2 binary64))) (/.f64 (.f64 kx kx) (sqrt.f64 #s(literal 1/2 binary64)))) (.f64 (*.f64 ky (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 2 binary64)))) kx))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) #s(approx (* (sqrt (/ 1 (- 1 (cos (* kx -2))))) (* ky (sqrt 2))) (/.f64 (fma.f64 #s(literal 1/12 binary64) (/.f64 (.f64 (.f64 kx kx) (.f64 ky (sqrt.f64 #s(literal 2 binary64)))) (sqrt.f64 #s(literal 1/2 binary64))) (.f64 (*.f64 ky (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 2 binary64)))) kx))) (sin.f64 th))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (/.f64 (*.f64 ky (sin.f64 th)) (sin.f64 kx)))
(*.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (/.f64 ky (sin.f64 kx))) (sin.f64 th))
(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky #s(approx (+ (* (* ky ky) (+ (/ -1/2 (pow (sin kx) 3)) (/ -1/6 (sin kx)))) (/ 1 (sin kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (sin.f64 th))
(/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) #s(approx (+ (* -1/2 (cos (* ky -2))) 1/2) (*.f64 ky ky)))))
(/.f64 #s(approx (* (sin ky) (sin th)) (.f64 th (sin.f64 ky))) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))
(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 #s(approx (pow (sin kx) 2) (.f64 kx kx)) #s(approx (pow (sin ky) 2) (*.f64 ky ky))))) (sin.f64 th))
(.f64 (sin.f64 th) #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (/.f64 (.f64 ky (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))))
(/.f64 (.f64 (sin.f64 ky) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th))) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))
#s(approx (* (* (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (sin th)) (.f64 (.f64 (.f64 ky (sin.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))))
#s(approx (/ (* (sin ky) (sin th)) (sqrt (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (.f64 (.f64 (.f64 ky (sin.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))))
#s(approx (/ (* (sin ky) (sin th)) (sqrt (+ (* (- 1 (cos (+ kx kx))) 1/2) (pow (sin ky) 2)))) (.f64 (.f64 (.f64 ky (sin.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64)))))) (sqrt.f64 #s(literal 2 binary64))) ky)) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (/.f64 (.f64 #s(literal 1 binary64) ky) (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64)))))) (sqrt.f64 #s(literal 2 binary64)))) (sin.f64 th))
(.f64 (.f64 (sqrt.f64 #s(approx (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky)))))) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) (fma.f64 kx kx #s(literal 1/2 binary64)))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 ky ky))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) #s(approx (sin ky) (fma.f64 ky (.f64 #s(literal -1/6 binary64) (*.f64 ky ky)) ky))) (sin.f64 th))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(approx (- 1 (cos (+ kx kx))) (.f64 #s(literal 2 binary64) (.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) (fma.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) #s(literal -1/3 binary64) #s(literal 1 binary64)) #s(literal 1/2 binary64)))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) #s(approx (sin ky) (.f64 ky (fma.f64 (.f64 ky ky) (fma.f64 #s(literal 1/120 binary64) (.f64 ky ky) #s(literal -1/6 binary64)) #s(literal 1 binary64))))) (sin.f64 th))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(approx (- 1 (cos (+ kx kx))) (.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) #s(literal -2/3 binary64) #s(literal 2 binary64)))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (*.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) (fma.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) #s(literal 2/45 binary64) #s(literal -1/3 binary64)) #s(literal 1 binary64)) #s(literal 1/2 binary64)))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (*.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) #s(approx (sin ky) (fma.f64 ky (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 #s(literal -1/5040 binary64) (*.f64 ky ky) #s(literal 1/120 binary64)) #s(literal -1/6 binary64))) ky))) (sin.f64 th))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal 2/45 binary64) #s(literal -1/3 binary64)) #s(literal 1 binary64))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (*.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/315 binary64) #s(literal 2/45 binary64)) #s(literal -1/3 binary64)) #s(literal 1 binary64))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th)))
(*.f64 (/.f64 (sin.f64 ky) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx))) (sin.f64 th))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(approx (- 1 (cos (+ kx kx))) (.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) #s(literal -2/315 binary64) #s(literal 4/45 binary64)) #s(literal -2/3 binary64)) #s(literal 2 binary64)))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (*.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (fma.f64 (.f64 kx kx) (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) #s(literal 1 binary64))) (sin.f64 th))
(.f64 (sin.f64 th) (/.f64 (sin.f64 ky) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(.f64 (/.f64 (sin.f64 th) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) (sin.f64 ky))
(/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))
(.f64 (.f64 (sqrt.f64 #s(approx (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky)))))) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64))))))) (sin.f64 ky)) (sin.f64 th))
(/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))))
(/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64)))))
#s(approx (* (* (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (sin th)) (.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(.f64 (sin.f64 th) (.f64 (sin.f64 ky) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) (sin.f64 ky)) (sin.f64 th))
(/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) (fma.f64 kx kx #s(literal 1/2 binary64))))))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) (fma.f64 kx kx #s(literal 1/2 binary64)))))) (sin.f64 ky)) (sin.f64 th))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (*.f64 ky ky))))) (sin.f64 ky)) (sin.f64 th))
(/.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))) (.f64 (sin.f64 ky) (sin.f64 th))))
(/.f64 #s(approx (* (sin ky) (sin th)) (.f64 th (sin.f64 ky))) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))))
(/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) #s(approx (sqrt (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky)))))) (.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))) (sqrt.f64 #s(literal 1/2 binary64)))))
(/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) #s(approx (sqrt (+ ( (- 1 (cos (+ kx kx))) 1/2) (pow (sin ky) 2))) (.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))) (sqrt.f64 #s(literal 1/2 binary64)))))
(.f64 (/.f64 #s(approx (sin ky) (fma.f64 ky (.f64 (.f64 ky ky) #s(literal -1/6 binary64)) ky)) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky))))) (sin.f64 th))
(/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 #s(approx (- 1 (cos (+ kx kx))) (.f64 #s(literal 2 binary64) (.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))))
#s(approx (* (* (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (sin th)) (.f64 (.f64 th (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))))
#s(approx (/ (* (sin ky) (sin th)) (sqrt (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (.f64 (.f64 th (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))))
#s(approx (/ (* (sin ky) (sin th)) (sqrt (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (.f64 (.f64 th (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(approx (- 1 (cos (+ kx kx))) (.f64 #s(literal 2 binary64) (.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) (sin.f64 th))
(.f64 (/.f64 #s(approx (sin ky) (.f64 ky (fma.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal 1/120 binary64) #s(literal -1/6 binary64)) #s(literal 1 binary64)))) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (*.f64 ky ky))))) (sin.f64 th))
(.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 ky (*.f64 ky #s(literal -1/3 binary64)) #s(literal 1 binary64))))))))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 ky (*.f64 ky #s(literal -1/3 binary64)) #s(literal 1 binary64))))))) (sin.f64 th)) (sin.f64 ky))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (*.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) (sin.f64 ky)) (sin.f64 th))
(/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 #s(approx (- 1 (cos (+ kx kx))) (.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) #s(literal -2/3 binary64) #s(literal 2 binary64)))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))))
(/.f64 #s(approx (* (sin ky) (sin th)) (.f64 th (.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 th th) #s(literal 1 binary64)) (sin.f64 ky)))) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(approx (- 1 (cos (+ kx kx))) (.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) #s(literal -2/3 binary64) #s(literal 2 binary64)))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) (sin.f64 th))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (*.f64 th th)) th)))
(/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 ( -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal 2/45 binary64) #s(literal -1/3 binary64)) #s(literal 1 binary64)))))))
(/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (pow (sin ky) 2) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 (*.f64 ky ky) #s(literal 2/45 binary64) #s(literal -1/3 binary64)) #s(literal 1 binary64)))))))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal 2/45 binary64) #s(literal -1/3 binary64)) #s(literal 1 binary64))))))) (sin.f64 ky)) (sin.f64 th))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (*.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 kx #s(literal -2 binary64))))))) (+.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #s(approx (sin th) (.f64 th (fma.f64 (.f64 th th) (fma.f64 (.f64 th th) (fma.f64 #s(literal -1/5040 binary64) (*.f64 th th) #s(literal 1/120 binary64)) #s(literal -1/6 binary64)) #s(literal 1 binary64)))))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 (.f64 th th) (fma.f64 #s(literal -1/5040 binary64) (*.f64 th th) #s(literal 1/120 binary64)) #s(literal -1/6 binary64))) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (fma.f64 (.f64 #s(literal -1/2 binary64) (sin.f64 th)) (/.f64 (.f64 kx kx) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) (sin.f64 th)))
(.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) #s(approx (sin kx) (fma.f64 kx (.f64 #s(literal -1/6 binary64) (*.f64 kx kx)) kx)))) (sin.f64 th))
(.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) #s(approx (/ 1 (/ 1 (sin kx))) (fma.f64 kx (.f64 #s(literal -1/6 binary64) (*.f64 kx kx)) kx)))) (sin.f64 th))
(.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (sin.f64 kx))) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (*.f64 th th)) th)))
(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 #s(approx (pow (sin kx) 2) (.f64 kx kx)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (sin.f64 th))
(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky))))) (sin.f64 th))
(.f64 (/.f64 (sin.f64 ky) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (fma.f64 kx (.f64 kx (/.f64 #s(literal 1/2 binary64) (sin.f64 ky))) (sin.f64 ky)))) (sin.f64 th))
(/.f64 #s(approx (* (sin ky) (sin th)) (*.f64 th (sin.f64 ky))) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))))
(*.f64 (sin.f64 ky) (/.f64 (sin.f64 th) (sqrt.f64 (+.f64 (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))))
(*.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)) #s(literal 1/2 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)) #s(literal 1/2 binary64))))) (sin.f64 th))
(*.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))) (sin.f64 th))
(/.f64 (*.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (+.f64 (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))))
(/.f64 (*.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 (cos.f64 (+.f64 kx kx)) #s(literal -1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64)))))
(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 th))
(.f64 (/.f64 (sin.f64 th) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky))
(/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))))
(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 #s(approx (pow (sin kx) 2) (.f64 kx (.f64 kx (fma.f64 (.f64 kx kx) #s(literal -1/3 binary64) #s(literal 1 binary64))))) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (sin.f64 th))
(.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) (sin.f64 th))
(.f64 (/.f64 (sin.f64 ky) (hypot.f64 #s(approx (sin ky) (fma.f64 ky (.f64 #s(literal -1/6 binary64) (*.f64 ky ky)) ky)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (sin.f64 th))
(/.f64 (sin.f64 th) (/.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) (sin.f64 ky)))
(.f64 (neg.f64 (sin.f64 ky)) (.f64 (/.f64 #s(literal -1 binary64) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 th)))
(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx))) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky))))) (sin.f64 th))
(/.f64 (/.f64 (sin.f64 th) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (/.f64 #s(literal 1 binary64) (sin.f64 ky)))
(.f64 (/.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (/.f64 #s(literal 1 binary64) (sin.f64 ky))) (sin.f64 th))
(*.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (sin.f64 kx))) (sin.f64 th))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64)) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))) (.f64 (sin.f64 ky) th)))
(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (exp.f64 (.f64 #s(literal 2 binary64) (log.f64 (sin.f64 kx)))) #s(approx (pow (sin ky) 2) (*.f64 ky ky))))) (sin.f64 th))
(*.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (sin.f64 th))
(/.f64 (*.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 th (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64)) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))) (.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 th th) #s(literal 1 binary64)) (sin.f64 ky)))))
(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky (fma.f64 (*.f64 ky ky) (+.f64 (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))) (/.f64 #s(literal -1/6 binary64) (sin.f64 kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (sin.f64 th))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (.f64 ky (fma.f64 (fma.f64 (.f64 ky ky) #s(literal -1/6 binary64) #s(literal 1 binary64)) (/.f64 (sin.f64 th) (sin.f64 kx)) (/.f64 (.f64 (.f64 ky ky) (*.f64 #s(literal -1/2 binary64) (sin.f64 th))) (pow.f64 (sin.f64 kx) #s(literal 3 binary64))))))
(.f64 (.f64 (sqrt.f64 (sin.f64 ky)) (sqrt.f64 (/.f64 (sin.f64 ky) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))))) (sin.f64 th))
(*.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (sin.f64 th))
(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (+.f64 (pow.f64 (sin.f64 ky) #s(literal 2 binary64)) (pow.f64 (sin.f64 kx) #s(literal 2 binary64))))))) (sin.f64 th))
(.f64 (/.f64 (sin.f64 ky) (pow.f64 (pow.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) #s(literal 1/4 binary64)) #s(literal 2 binary64))) (sin.f64 th))
(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (/.f64 (-.f64 #s(literal 1/4 binary64) (pow.f64 (.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 ky ky)))))))) (sin.f64 th))
(.f64 (/.f64 (sin.f64 th) (pow.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) #s(literal 1/4 binary64))) (/.f64 (sin.f64 ky) (pow.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))) #s(literal 1/4 binary64))))

Outputs
(*.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (sin.f64 kx))) (sin.f64 th))

Calls

9 calls:

67.0ms	(/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))))
62.0ms	ky
61.0ms	th
58.0ms	(sin.f64 ky)
56.0ms	(*.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (sin.f64 th))

Results

Accuracy	Segments	Branch
99.7%	1	`kx`
99.7%	1	`ky`
99.7%	1	`th`
99.7%	1	`(*.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (sin.f64 th))`
99.7%	1	`(/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))))`
99.7%	1	`(sin.f64 ky)`
99.7%	1	`(pow.f64 (sin.f64 kx) #s(literal 2 binary64))`
99.7%	1	`(sin.f64 kx)`
99.7%	1	`(sin.f64 th)`

Compiler

Compiled 69 to 51 computations (26.1% saved)

regimes462.0ms (3.4%)

Memory

14.4MiB live, 601.6MiB allocated

Counts

123 → 2

Calls

Call 1

Inputs
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 #s(literal -1/6 binary64) (.f64 th (*.f64 th th))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 (.f64 #s(literal -1/6 binary64) (*.f64 th th)) th))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 (.f64 th th) (*.f64 th #s(literal -1/6 binary64))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th #s(literal -1/6 binary64)) th) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 (.f64 th th) (.f64 th #s(literal -1/6 binary64)) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 (.f64 th (.f64 th th)) #s(literal -1/6 binary64) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (+.f64 (.f64 th (.f64 #s(literal -1/6 binary64) (*.f64 th th))) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (*.f64 th th) #s(literal -1/6 binary64))) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 (.f64 th (.f64 th th)) (+.f64 #s(literal -1/6 binary64) (/.f64 #s(literal 1 binary64) (.f64 th th)))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (/.f64 (-.f64 (.f64 th th) (.f64 th (.f64 (.f64 #s(literal -1/6 binary64) (.f64 th th)) (.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)))))) (-.f64 th (.f64 th (.f64 #s(literal -1/6 binary64) (*.f64 th th)))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (.f64 (.f64 (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) (neg.f64 th))) (/.f64 #s(literal 1 binary64) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) (neg.f64 th))))))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th))
(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky #s(approx (+ (* (* ky ky) (+ (/ -1/2 (pow (sin kx) 3)) (/ -1/6 (sin kx)))) (/ 1 (sin kx))) (/.f64 (.f64 (.f64 ky ky) #s(literal -1/2 binary64)) (.f64 kx (.f64 kx kx)))))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) #s(approx (* (sqrt (/ 1 (- 1 (cos (* kx -2))))) (* ky (sqrt 2))) (.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(literal 1/2 binary64))) (/.f64 ky kx)))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) kx)) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 th (-.f64 th (.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)))) (.f64 th (.f64 (.f64 #s(literal -1/6 binary64) (.f64 th th)) (.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)))))) (fma.f64 th (.f64 th th) (.f64 (.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th))) (.f64 th (.f64 (.f64 #s(literal -1/6 binary64) (.f64 th th)) (.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)))))))))))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) #s(approx (/ (+ (* (* kx kx) (/ 1/12 (sqrt 1/2))) (sqrt 1/2)) kx) (.f64 kx (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64)))))) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (- 1 (cos ( kx -2))) (.f64 #s(literal 2 binary64) (.f64 kx kx))))) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th))
(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky #s(approx (+ (* (* ky ky) (+ (/ -1/2 (pow (sin kx) 3)) (/ -1/6 (sin kx)))) (/ 1 (sin kx))) (/.f64 (fma.f64 (.f64 ky ky) #s(literal -1/2 binary64) (.f64 (.f64 kx kx) (fma.f64 (.f64 ky ky) #s(literal -5/12 binary64) #s(literal 1 binary64)))) (.f64 kx (.f64 kx kx)))))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (- 1 (cos ( kx -2))) (.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) #s(literal -2/3 binary64) #s(literal 2 binary64)))))) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th))
(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) #s(approx ( ky (+ (* (* ky ky) (+ (/ -1/2 (pow (sin kx) 3)) (/ -1/6 (sin kx)))) (/ 1 (sin kx)))) (/.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 ky (.f64 ky ky)) (.f64 (.f64 (.f64 kx kx) ky) (fma.f64 (.f64 ky ky) #s(literal -5/12 binary64) #s(literal 1 binary64)))) (.f64 kx (.f64 kx kx))))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th))
(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky #s(approx (+ (* (* ky ky) (+ (/ -1/2 (pow (sin kx) 3)) (/ -1/6 (sin kx)))) (/ 1 (sin kx))) (/.f64 (fma.f64 (.f64 kx kx) (fma.f64 (.f64 ky ky) #s(literal -5/12 binary64) (fma.f64 (.f64 kx kx) (fma.f64 (.f64 ky ky) #s(literal -71/720 binary64) #s(literal 1/6 binary64)) #s(literal 1 binary64))) (.f64 (.f64 ky ky) #s(literal -1/2 binary64))) (.f64 kx (.f64 kx kx)))))) (sin.f64 th))
(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) #s(approx ( ky (+ (* (* ky ky) (+ (/ -1/2 (pow (sin kx) 3)) (/ -1/6 (sin kx)))) (/ 1 (sin kx)))) (/.f64 (fma.f64 (.f64 kx kx) (fma.f64 ky (fma.f64 (.f64 ky ky) #s(literal -5/12 binary64) #s(literal 1 binary64)) (.f64 (.f64 (.f64 kx kx) ky) (fma.f64 (.f64 ky ky) #s(literal -71/720 binary64) #s(literal 1/6 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 ky (.f64 ky ky)))) (.f64 kx (*.f64 kx kx))))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) #s(approx (* (sqrt (/ 1 (- 1 (cos (* kx -2))))) (* ky (sqrt 2))) (/.f64 (fma.f64 #s(literal 1/12 binary64) (.f64 (.f64 ky (sqrt.f64 #s(literal 2 binary64))) (/.f64 (.f64 kx kx) (sqrt.f64 #s(literal 1/2 binary64)))) (.f64 (*.f64 ky (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 2 binary64)))) kx))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) #s(approx (* (sqrt (/ 1 (- 1 (cos (* kx -2))))) (* ky (sqrt 2))) (/.f64 (fma.f64 #s(literal 1/12 binary64) (/.f64 (.f64 (.f64 kx kx) (.f64 ky (sqrt.f64 #s(literal 2 binary64)))) (sqrt.f64 #s(literal 1/2 binary64))) (.f64 (*.f64 ky (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 2 binary64)))) kx))) (sin.f64 th))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (/.f64 (*.f64 ky (sin.f64 th)) (sin.f64 kx)))
(*.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (/.f64 ky (sin.f64 kx))) (sin.f64 th))
(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky #s(approx (+ (* (* ky ky) (+ (/ -1/2 (pow (sin kx) 3)) (/ -1/6 (sin kx)))) (/ 1 (sin kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (sin.f64 th))
(/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) #s(approx (+ (* -1/2 (cos (* ky -2))) 1/2) (*.f64 ky ky)))))
(/.f64 #s(approx (* (sin ky) (sin th)) (.f64 th (sin.f64 ky))) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))
(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 #s(approx (pow (sin kx) 2) (.f64 kx kx)) #s(approx (pow (sin ky) 2) (*.f64 ky ky))))) (sin.f64 th))
(.f64 (sin.f64 th) #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (/.f64 (.f64 ky (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))))
(/.f64 (.f64 (sin.f64 ky) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th))) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))
#s(approx (* (* (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (sin th)) (.f64 (.f64 (.f64 ky (sin.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))))
#s(approx (/ (* (sin ky) (sin th)) (sqrt (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (.f64 (.f64 (.f64 ky (sin.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))))
#s(approx (/ (* (sin ky) (sin th)) (sqrt (+ (* (- 1 (cos (+ kx kx))) 1/2) (pow (sin ky) 2)))) (.f64 (.f64 (.f64 ky (sin.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64)))))) (sqrt.f64 #s(literal 2 binary64))) ky)) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (/.f64 (.f64 #s(literal 1 binary64) ky) (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64)))))) (sqrt.f64 #s(literal 2 binary64)))) (sin.f64 th))
(.f64 (.f64 (sqrt.f64 #s(approx (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky)))))) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) (fma.f64 kx kx #s(literal 1/2 binary64)))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 ky ky))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) #s(approx (sin ky) (fma.f64 ky (.f64 #s(literal -1/6 binary64) (*.f64 ky ky)) ky))) (sin.f64 th))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(approx (- 1 (cos (+ kx kx))) (.f64 #s(literal 2 binary64) (.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) (fma.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) #s(literal -1/3 binary64) #s(literal 1 binary64)) #s(literal 1/2 binary64)))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) #s(approx (sin ky) (.f64 ky (fma.f64 (.f64 ky ky) (fma.f64 #s(literal 1/120 binary64) (.f64 ky ky) #s(literal -1/6 binary64)) #s(literal 1 binary64))))) (sin.f64 th))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(approx (- 1 (cos (+ kx kx))) (.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) #s(literal -2/3 binary64) #s(literal 2 binary64)))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (*.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) (fma.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) #s(literal 2/45 binary64) #s(literal -1/3 binary64)) #s(literal 1 binary64)) #s(literal 1/2 binary64)))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (*.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) #s(approx (sin ky) (fma.f64 ky (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 #s(literal -1/5040 binary64) (*.f64 ky ky) #s(literal 1/120 binary64)) #s(literal -1/6 binary64))) ky))) (sin.f64 th))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal 2/45 binary64) #s(literal -1/3 binary64)) #s(literal 1 binary64))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (*.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/315 binary64) #s(literal 2/45 binary64)) #s(literal -1/3 binary64)) #s(literal 1 binary64))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th)))
(*.f64 (/.f64 (sin.f64 ky) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx))) (sin.f64 th))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(approx (- 1 (cos (+ kx kx))) (.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) #s(literal -2/315 binary64) #s(literal 4/45 binary64)) #s(literal -2/3 binary64)) #s(literal 2 binary64)))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (*.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (fma.f64 (.f64 kx kx) (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) #s(literal 1 binary64))) (sin.f64 th))
(.f64 (sin.f64 th) (/.f64 (sin.f64 ky) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(.f64 (/.f64 (sin.f64 th) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) (sin.f64 ky))
(/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))
(.f64 (.f64 (sqrt.f64 #s(approx (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky)))))) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64))))))) (sin.f64 ky)) (sin.f64 th))
(/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))))
(/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64)))))
#s(approx (* (* (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (sin th)) (.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(.f64 (sin.f64 th) (.f64 (sin.f64 ky) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) (sin.f64 ky)) (sin.f64 th))
(/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) (fma.f64 kx kx #s(literal 1/2 binary64))))))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) (fma.f64 kx kx #s(literal 1/2 binary64)))))) (sin.f64 ky)) (sin.f64 th))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (*.f64 ky ky))))) (sin.f64 ky)) (sin.f64 th))
(/.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))) (.f64 (sin.f64 ky) (sin.f64 th))))
(/.f64 #s(approx (* (sin ky) (sin th)) (.f64 th (sin.f64 ky))) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))))
(/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) #s(approx (sqrt (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky)))))) (.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))) (sqrt.f64 #s(literal 1/2 binary64)))))
(/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) #s(approx (sqrt (+ ( (- 1 (cos (+ kx kx))) 1/2) (pow (sin ky) 2))) (.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))) (sqrt.f64 #s(literal 1/2 binary64)))))
(.f64 (/.f64 #s(approx (sin ky) (fma.f64 ky (.f64 (.f64 ky ky) #s(literal -1/6 binary64)) ky)) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky))))) (sin.f64 th))
(/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 #s(approx (- 1 (cos (+ kx kx))) (.f64 #s(literal 2 binary64) (.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))))
#s(approx (* (* (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (sin th)) (.f64 (.f64 th (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))))
#s(approx (/ (* (sin ky) (sin th)) (sqrt (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (.f64 (.f64 th (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))))
#s(approx (/ (* (sin ky) (sin th)) (sqrt (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (.f64 (.f64 th (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(approx (- 1 (cos (+ kx kx))) (.f64 #s(literal 2 binary64) (.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) (sin.f64 th))
(.f64 (/.f64 #s(approx (sin ky) (.f64 ky (fma.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal 1/120 binary64) #s(literal -1/6 binary64)) #s(literal 1 binary64)))) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (*.f64 ky ky))))) (sin.f64 th))
(.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 ky (*.f64 ky #s(literal -1/3 binary64)) #s(literal 1 binary64))))))))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 ky (*.f64 ky #s(literal -1/3 binary64)) #s(literal 1 binary64))))))) (sin.f64 th)) (sin.f64 ky))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (*.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) (sin.f64 ky)) (sin.f64 th))
(/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 #s(approx (- 1 (cos (+ kx kx))) (.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) #s(literal -2/3 binary64) #s(literal 2 binary64)))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))))
(/.f64 #s(approx (* (sin ky) (sin th)) (.f64 th (.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 th th) #s(literal 1 binary64)) (sin.f64 ky)))) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(approx (- 1 (cos (+ kx kx))) (.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) #s(literal -2/3 binary64) #s(literal 2 binary64)))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) (sin.f64 th))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (*.f64 th th)) th)))
(/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 ( -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal 2/45 binary64) #s(literal -1/3 binary64)) #s(literal 1 binary64)))))))
(/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (pow (sin ky) 2) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 (*.f64 ky ky) #s(literal 2/45 binary64) #s(literal -1/3 binary64)) #s(literal 1 binary64)))))))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal 2/45 binary64) #s(literal -1/3 binary64)) #s(literal 1 binary64))))))) (sin.f64 ky)) (sin.f64 th))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (*.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 kx #s(literal -2 binary64))))))) (+.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #s(approx (sin th) (.f64 th (fma.f64 (.f64 th th) (fma.f64 (.f64 th th) (fma.f64 #s(literal -1/5040 binary64) (*.f64 th th) #s(literal 1/120 binary64)) #s(literal -1/6 binary64)) #s(literal 1 binary64)))))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 (.f64 th th) (fma.f64 #s(literal -1/5040 binary64) (*.f64 th th) #s(literal 1/120 binary64)) #s(literal -1/6 binary64))) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (fma.f64 (.f64 #s(literal -1/2 binary64) (sin.f64 th)) (/.f64 (.f64 kx kx) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) (sin.f64 th)))
(.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) #s(approx (sin kx) (fma.f64 kx (.f64 #s(literal -1/6 binary64) (*.f64 kx kx)) kx)))) (sin.f64 th))
(.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) #s(approx (/ 1 (/ 1 (sin kx))) (fma.f64 kx (.f64 #s(literal -1/6 binary64) (*.f64 kx kx)) kx)))) (sin.f64 th))
(.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (sin.f64 kx))) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (*.f64 th th)) th)))
(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 #s(approx (pow (sin kx) 2) (.f64 kx kx)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (sin.f64 th))
(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky))))) (sin.f64 th))
(.f64 (/.f64 (sin.f64 ky) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (fma.f64 kx (.f64 kx (/.f64 #s(literal 1/2 binary64) (sin.f64 ky))) (sin.f64 ky)))) (sin.f64 th))
(/.f64 #s(approx (* (sin ky) (sin th)) (*.f64 th (sin.f64 ky))) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))))
(*.f64 (sin.f64 ky) (/.f64 (sin.f64 th) (sqrt.f64 (+.f64 (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))))
(*.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)) #s(literal 1/2 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)) #s(literal 1/2 binary64))))) (sin.f64 th))
(*.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))) (sin.f64 th))
(/.f64 (*.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (+.f64 (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))))
(/.f64 (*.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 (cos.f64 (+.f64 kx kx)) #s(literal -1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64)))))
(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 th))
(.f64 (/.f64 (sin.f64 th) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky))
(/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))))
(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 #s(approx (pow (sin kx) 2) (.f64 kx (.f64 kx (fma.f64 (.f64 kx kx) #s(literal -1/3 binary64) #s(literal 1 binary64))))) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (sin.f64 th))
(.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) (sin.f64 th))
(.f64 (/.f64 (sin.f64 ky) (hypot.f64 #s(approx (sin ky) (fma.f64 ky (.f64 #s(literal -1/6 binary64) (*.f64 ky ky)) ky)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (sin.f64 th))
(/.f64 (sin.f64 th) (/.f64 (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))) (sin.f64 ky)))
(.f64 (neg.f64 (sin.f64 ky)) (.f64 (/.f64 #s(literal -1 binary64) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 th)))
(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 kx))) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky))))) (sin.f64 th))
(/.f64 (/.f64 (sin.f64 th) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (/.f64 #s(literal 1 binary64) (sin.f64 ky)))
(.f64 (/.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (/.f64 #s(literal 1 binary64) (sin.f64 ky))) (sin.f64 th))

Outputs

(*.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) #s(approx (sin kx) (fma.f64 kx (*.f64 #s(literal -1/6 binary64) (*.f64 kx kx)) kx)))) (sin.f64 th))

(*.f64 (/.f64 (sin.f64 th) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky))

Calls

9 calls:

84.0ms	(pow.f64 (sin.f64 kx) #s(literal 2 binary64))
78.0ms	ky
55.0ms	(sin.f64 kx)
49.0ms	(sin.f64 th)
43.0ms	(*.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (sin.f64 th))

Results

Accuracy	Segments	Branch
99.4%	2	`kx`
93.0%	2	`th`
88.4%	4	`(*.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (sin.f64 th))`
99.6%	4	`(/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))))`
99.3%	3	`(sin.f64 ky)`
99.2%	2	`ky`
99.4%	2	`(pow.f64 (sin.f64 kx) #s(literal 2 binary64))`
99.4%	3	`(sin.f64 kx)`
93.0%	3	`(sin.f64 th)`

Compiler

Compiled 69 to 51 computations (26.1% saved)

regimes131.0ms (1%)

Memory

-23.7MiB live, 141.7MiB allocated

Counts

112 → 2

Calls

Call 1

Inputs
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 #s(literal -1/6 binary64) (.f64 th (*.f64 th th))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 (.f64 #s(literal -1/6 binary64) (*.f64 th th)) th))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 (.f64 th th) (*.f64 th #s(literal -1/6 binary64))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th #s(literal -1/6 binary64)) th) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 (.f64 th th) (.f64 th #s(literal -1/6 binary64)) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 (.f64 th (.f64 th th)) #s(literal -1/6 binary64) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (+.f64 (.f64 th (.f64 #s(literal -1/6 binary64) (*.f64 th th))) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (*.f64 th th) #s(literal -1/6 binary64))) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 (.f64 th (.f64 th th)) (+.f64 #s(literal -1/6 binary64) (/.f64 #s(literal 1 binary64) (.f64 th th)))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (/.f64 (-.f64 (.f64 th th) (.f64 th (.f64 (.f64 #s(literal -1/6 binary64) (.f64 th th)) (.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)))))) (-.f64 th (.f64 th (.f64 #s(literal -1/6 binary64) (*.f64 th th)))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (.f64 (.f64 (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) (neg.f64 th))) (/.f64 #s(literal 1 binary64) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) (neg.f64 th))))))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th))
(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky #s(approx (+ (* (* ky ky) (+ (/ -1/2 (pow (sin kx) 3)) (/ -1/6 (sin kx)))) (/ 1 (sin kx))) (/.f64 (.f64 (.f64 ky ky) #s(literal -1/2 binary64)) (.f64 kx (.f64 kx kx)))))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) #s(approx (* (sqrt (/ 1 (- 1 (cos (* kx -2))))) (* ky (sqrt 2))) (.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(literal 1/2 binary64))) (/.f64 ky kx)))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) kx)) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 th (-.f64 th (.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)))) (.f64 th (.f64 (.f64 #s(literal -1/6 binary64) (.f64 th th)) (.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)))))) (fma.f64 th (.f64 th th) (.f64 (.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th))) (.f64 th (.f64 (.f64 #s(literal -1/6 binary64) (.f64 th th)) (.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)))))))))))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) #s(approx (/ (+ (* (* kx kx) (/ 1/12 (sqrt 1/2))) (sqrt 1/2)) kx) (.f64 kx (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64)))))) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (- 1 (cos ( kx -2))) (.f64 #s(literal 2 binary64) (.f64 kx kx))))) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th))
(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky #s(approx (+ (* (* ky ky) (+ (/ -1/2 (pow (sin kx) 3)) (/ -1/6 (sin kx)))) (/ 1 (sin kx))) (/.f64 (fma.f64 (.f64 ky ky) #s(literal -1/2 binary64) (.f64 (.f64 kx kx) (fma.f64 (.f64 ky ky) #s(literal -5/12 binary64) #s(literal 1 binary64)))) (.f64 kx (.f64 kx kx)))))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (- 1 (cos ( kx -2))) (.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) #s(literal -2/3 binary64) #s(literal 2 binary64)))))) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th))
(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) #s(approx ( ky (+ (* (* ky ky) (+ (/ -1/2 (pow (sin kx) 3)) (/ -1/6 (sin kx)))) (/ 1 (sin kx)))) (/.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 ky (.f64 ky ky)) (.f64 (.f64 (.f64 kx kx) ky) (fma.f64 (.f64 ky ky) #s(literal -5/12 binary64) #s(literal 1 binary64)))) (.f64 kx (.f64 kx kx))))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th))
(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky #s(approx (+ (* (* ky ky) (+ (/ -1/2 (pow (sin kx) 3)) (/ -1/6 (sin kx)))) (/ 1 (sin kx))) (/.f64 (fma.f64 (.f64 kx kx) (fma.f64 (.f64 ky ky) #s(literal -5/12 binary64) (fma.f64 (.f64 kx kx) (fma.f64 (.f64 ky ky) #s(literal -71/720 binary64) #s(literal 1/6 binary64)) #s(literal 1 binary64))) (.f64 (.f64 ky ky) #s(literal -1/2 binary64))) (.f64 kx (.f64 kx kx)))))) (sin.f64 th))
(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) #s(approx ( ky (+ (* (* ky ky) (+ (/ -1/2 (pow (sin kx) 3)) (/ -1/6 (sin kx)))) (/ 1 (sin kx)))) (/.f64 (fma.f64 (.f64 kx kx) (fma.f64 ky (fma.f64 (.f64 ky ky) #s(literal -5/12 binary64) #s(literal 1 binary64)) (.f64 (.f64 (.f64 kx kx) ky) (fma.f64 (.f64 ky ky) #s(literal -71/720 binary64) #s(literal 1/6 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 ky (.f64 ky ky)))) (.f64 kx (*.f64 kx kx))))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) #s(approx (* (sqrt (/ 1 (- 1 (cos (* kx -2))))) (* ky (sqrt 2))) (/.f64 (fma.f64 #s(literal 1/12 binary64) (.f64 (.f64 ky (sqrt.f64 #s(literal 2 binary64))) (/.f64 (.f64 kx kx) (sqrt.f64 #s(literal 1/2 binary64)))) (.f64 (*.f64 ky (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 2 binary64)))) kx))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) #s(approx (* (sqrt (/ 1 (- 1 (cos (* kx -2))))) (* ky (sqrt 2))) (/.f64 (fma.f64 #s(literal 1/12 binary64) (/.f64 (.f64 (.f64 kx kx) (.f64 ky (sqrt.f64 #s(literal 2 binary64)))) (sqrt.f64 #s(literal 1/2 binary64))) (.f64 (*.f64 ky (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 2 binary64)))) kx))) (sin.f64 th))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (/.f64 (*.f64 ky (sin.f64 th)) (sin.f64 kx)))
(*.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (/.f64 ky (sin.f64 kx))) (sin.f64 th))
(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky #s(approx (+ (* (* ky ky) (+ (/ -1/2 (pow (sin kx) 3)) (/ -1/6 (sin kx)))) (/ 1 (sin kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (sin.f64 th))
(/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) #s(approx (+ (* -1/2 (cos (* ky -2))) 1/2) (*.f64 ky ky)))))
(/.f64 #s(approx (* (sin ky) (sin th)) (.f64 th (sin.f64 ky))) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))
(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 #s(approx (pow (sin kx) 2) (.f64 kx kx)) #s(approx (pow (sin ky) 2) (*.f64 ky ky))))) (sin.f64 th))
(.f64 (sin.f64 th) #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (/.f64 (.f64 ky (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))))
(/.f64 (.f64 (sin.f64 ky) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th))) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))
#s(approx (* (* (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (sin th)) (.f64 (.f64 (.f64 ky (sin.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))))
#s(approx (/ (* (sin ky) (sin th)) (sqrt (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (.f64 (.f64 (.f64 ky (sin.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))))
#s(approx (/ (* (sin ky) (sin th)) (sqrt (+ (* (- 1 (cos (+ kx kx))) 1/2) (pow (sin ky) 2)))) (.f64 (.f64 (.f64 ky (sin.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64)))))) (sqrt.f64 #s(literal 2 binary64))) ky)) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (/.f64 (.f64 #s(literal 1 binary64) ky) (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64)))))) (sqrt.f64 #s(literal 2 binary64)))) (sin.f64 th))
(.f64 (.f64 (sqrt.f64 #s(approx (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky)))))) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) (fma.f64 kx kx #s(literal 1/2 binary64)))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 ky ky))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) #s(approx (sin ky) (fma.f64 ky (.f64 #s(literal -1/6 binary64) (*.f64 ky ky)) ky))) (sin.f64 th))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(approx (- 1 (cos (+ kx kx))) (.f64 #s(literal 2 binary64) (.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) (fma.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) #s(literal -1/3 binary64) #s(literal 1 binary64)) #s(literal 1/2 binary64)))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) #s(approx (sin ky) (.f64 ky (fma.f64 (.f64 ky ky) (fma.f64 #s(literal 1/120 binary64) (.f64 ky ky) #s(literal -1/6 binary64)) #s(literal 1 binary64))))) (sin.f64 th))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(approx (- 1 (cos (+ kx kx))) (.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) #s(literal -2/3 binary64) #s(literal 2 binary64)))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (*.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) (fma.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) #s(literal 2/45 binary64) #s(literal -1/3 binary64)) #s(literal 1 binary64)) #s(literal 1/2 binary64)))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (*.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) #s(approx (sin ky) (fma.f64 ky (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 #s(literal -1/5040 binary64) (*.f64 ky ky) #s(literal 1/120 binary64)) #s(literal -1/6 binary64))) ky))) (sin.f64 th))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal 2/45 binary64) #s(literal -1/3 binary64)) #s(literal 1 binary64))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (*.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/315 binary64) #s(literal 2/45 binary64)) #s(literal -1/3 binary64)) #s(literal 1 binary64))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th)))
(*.f64 (/.f64 (sin.f64 ky) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx))) (sin.f64 th))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(approx (- 1 (cos (+ kx kx))) (.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) #s(literal -2/315 binary64) #s(literal 4/45 binary64)) #s(literal -2/3 binary64)) #s(literal 2 binary64)))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (*.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (fma.f64 (.f64 kx kx) (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) #s(literal 1 binary64))) (sin.f64 th))
(.f64 (sin.f64 th) (/.f64 (sin.f64 ky) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(.f64 (/.f64 (sin.f64 th) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) (sin.f64 ky))
(/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))
(.f64 (.f64 (sqrt.f64 #s(approx (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky)))))) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64))))))) (sin.f64 ky)) (sin.f64 th))
(/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))))
(/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64)))))
#s(approx (* (* (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (sin th)) (.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(.f64 (sin.f64 th) (.f64 (sin.f64 ky) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) (sin.f64 ky)) (sin.f64 th))
(/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) (fma.f64 kx kx #s(literal 1/2 binary64))))))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) (fma.f64 kx kx #s(literal 1/2 binary64)))))) (sin.f64 ky)) (sin.f64 th))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (*.f64 ky ky))))) (sin.f64 ky)) (sin.f64 th))
(/.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))) (.f64 (sin.f64 ky) (sin.f64 th))))
(/.f64 #s(approx (* (sin ky) (sin th)) (.f64 th (sin.f64 ky))) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))))
(/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) #s(approx (sqrt (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky)))))) (.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))) (sqrt.f64 #s(literal 1/2 binary64)))))
(/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) #s(approx (sqrt (+ ( (- 1 (cos (+ kx kx))) 1/2) (pow (sin ky) 2))) (.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))) (sqrt.f64 #s(literal 1/2 binary64)))))
(.f64 (/.f64 #s(approx (sin ky) (fma.f64 ky (.f64 (.f64 ky ky) #s(literal -1/6 binary64)) ky)) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky))))) (sin.f64 th))
(/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 #s(approx (- 1 (cos (+ kx kx))) (.f64 #s(literal 2 binary64) (.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))))
#s(approx (* (* (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (sin th)) (.f64 (.f64 th (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))))
#s(approx (/ (* (sin ky) (sin th)) (sqrt (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (.f64 (.f64 th (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))))
#s(approx (/ (* (sin ky) (sin th)) (sqrt (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (.f64 (.f64 th (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(approx (- 1 (cos (+ kx kx))) (.f64 #s(literal 2 binary64) (.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) (sin.f64 th))
(.f64 (/.f64 #s(approx (sin ky) (.f64 ky (fma.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal 1/120 binary64) #s(literal -1/6 binary64)) #s(literal 1 binary64)))) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (*.f64 ky ky))))) (sin.f64 th))
(.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 ky (*.f64 ky #s(literal -1/3 binary64)) #s(literal 1 binary64))))))))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 ky (*.f64 ky #s(literal -1/3 binary64)) #s(literal 1 binary64))))))) (sin.f64 th)) (sin.f64 ky))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (*.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) (sin.f64 ky)) (sin.f64 th))
(/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 #s(approx (- 1 (cos (+ kx kx))) (.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) #s(literal -2/3 binary64) #s(literal 2 binary64)))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))))
(/.f64 #s(approx (* (sin ky) (sin th)) (.f64 th (.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 th th) #s(literal 1 binary64)) (sin.f64 ky)))) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(approx (- 1 (cos (+ kx kx))) (.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) #s(literal -2/3 binary64) #s(literal 2 binary64)))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) (sin.f64 th))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (*.f64 th th)) th)))
(/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 ( -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal 2/45 binary64) #s(literal -1/3 binary64)) #s(literal 1 binary64)))))))
(/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (pow (sin ky) 2) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 (*.f64 ky ky) #s(literal 2/45 binary64) #s(literal -1/3 binary64)) #s(literal 1 binary64)))))))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal 2/45 binary64) #s(literal -1/3 binary64)) #s(literal 1 binary64))))))) (sin.f64 ky)) (sin.f64 th))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (*.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 kx #s(literal -2 binary64))))))) (+.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #s(approx (sin th) (.f64 th (fma.f64 (.f64 th th) (fma.f64 (.f64 th th) (fma.f64 #s(literal -1/5040 binary64) (*.f64 th th) #s(literal 1/120 binary64)) #s(literal -1/6 binary64)) #s(literal 1 binary64)))))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 (.f64 th th) (fma.f64 #s(literal -1/5040 binary64) (*.f64 th th) #s(literal 1/120 binary64)) #s(literal -1/6 binary64))) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (fma.f64 (.f64 #s(literal -1/2 binary64) (sin.f64 th)) (/.f64 (.f64 kx kx) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) (sin.f64 th)))
(.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) #s(approx (sin kx) (fma.f64 kx (.f64 #s(literal -1/6 binary64) (*.f64 kx kx)) kx)))) (sin.f64 th))
(.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) #s(approx (/ 1 (/ 1 (sin kx))) (fma.f64 kx (.f64 #s(literal -1/6 binary64) (*.f64 kx kx)) kx)))) (sin.f64 th))
(.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (sin.f64 kx))) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (*.f64 th th)) th)))
(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 #s(approx (pow (sin kx) 2) (.f64 kx kx)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (sin.f64 th))
(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky))))) (sin.f64 th))
(.f64 (/.f64 (sin.f64 ky) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (fma.f64 kx (.f64 kx (/.f64 #s(literal 1/2 binary64) (sin.f64 ky))) (sin.f64 ky)))) (sin.f64 th))
(/.f64 #s(approx (* (sin ky) (sin th)) (*.f64 th (sin.f64 ky))) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))))
(*.f64 (sin.f64 ky) (/.f64 (sin.f64 th) (sqrt.f64 (+.f64 (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))))
(*.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)) #s(literal 1/2 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)) #s(literal 1/2 binary64))))) (sin.f64 th))
(*.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))) (sin.f64 th))
(/.f64 (*.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (+.f64 (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))))
(/.f64 (*.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 (cos.f64 (+.f64 kx kx)) #s(literal -1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64)))))
(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 th))

Outputs

(*.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) #s(approx (sin kx) (fma.f64 kx (*.f64 #s(literal -1/6 binary64) (*.f64 kx kx)) kx)))) (sin.f64 th))

(*.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 th))

Calls

2 calls:

54.0ms	(pow.f64 (sin.f64 kx) #s(literal 2 binary64))
31.0ms	kx

Results

Accuracy	Segments	Branch
99.4%	2	`kx`
99.4%	2	`(pow.f64 (sin.f64 kx) #s(literal 2 binary64))`

Compiler

Compiled 11 to 9 computations (18.2% saved)

regimes298.0ms (2.2%)

Memory

45.7MiB live, 549.3MiB allocated

Counts

111 → 5

Calls

Call 1

Inputs
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 #s(literal -1/6 binary64) (.f64 th (*.f64 th th))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 (.f64 #s(literal -1/6 binary64) (*.f64 th th)) th))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 (.f64 th th) (*.f64 th #s(literal -1/6 binary64))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th #s(literal -1/6 binary64)) th) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 (.f64 th th) (.f64 th #s(literal -1/6 binary64)) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 (.f64 th (.f64 th th)) #s(literal -1/6 binary64) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (+.f64 (.f64 th (.f64 #s(literal -1/6 binary64) (*.f64 th th))) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (*.f64 th th) #s(literal -1/6 binary64))) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 (.f64 th (.f64 th th)) (+.f64 #s(literal -1/6 binary64) (/.f64 #s(literal 1 binary64) (.f64 th th)))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (/.f64 (-.f64 (.f64 th th) (.f64 th (.f64 (.f64 #s(literal -1/6 binary64) (.f64 th th)) (.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)))))) (-.f64 th (.f64 th (.f64 #s(literal -1/6 binary64) (*.f64 th th)))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (.f64 (.f64 (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) (neg.f64 th))) (/.f64 #s(literal 1 binary64) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) (neg.f64 th))))))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th))
(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky #s(approx (+ (* (* ky ky) (+ (/ -1/2 (pow (sin kx) 3)) (/ -1/6 (sin kx)))) (/ 1 (sin kx))) (/.f64 (.f64 (.f64 ky ky) #s(literal -1/2 binary64)) (.f64 kx (.f64 kx kx)))))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) #s(approx (* (sqrt (/ 1 (- 1 (cos (* kx -2))))) (* ky (sqrt 2))) (.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(literal 1/2 binary64))) (/.f64 ky kx)))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) kx)) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 th (-.f64 th (.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)))) (.f64 th (.f64 (.f64 #s(literal -1/6 binary64) (.f64 th th)) (.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)))))) (fma.f64 th (.f64 th th) (.f64 (.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th))) (.f64 th (.f64 (.f64 #s(literal -1/6 binary64) (.f64 th th)) (.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)))))))))))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) #s(approx (/ (+ (* (* kx kx) (/ 1/12 (sqrt 1/2))) (sqrt 1/2)) kx) (.f64 kx (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64)))))) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (- 1 (cos ( kx -2))) (.f64 #s(literal 2 binary64) (.f64 kx kx))))) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th))
(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky #s(approx (+ (* (* ky ky) (+ (/ -1/2 (pow (sin kx) 3)) (/ -1/6 (sin kx)))) (/ 1 (sin kx))) (/.f64 (fma.f64 (.f64 ky ky) #s(literal -1/2 binary64) (.f64 (.f64 kx kx) (fma.f64 (.f64 ky ky) #s(literal -5/12 binary64) #s(literal 1 binary64)))) (.f64 kx (.f64 kx kx)))))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (- 1 (cos ( kx -2))) (.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) #s(literal -2/3 binary64) #s(literal 2 binary64)))))) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th))
(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) #s(approx ( ky (+ (* (* ky ky) (+ (/ -1/2 (pow (sin kx) 3)) (/ -1/6 (sin kx)))) (/ 1 (sin kx)))) (/.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 ky (.f64 ky ky)) (.f64 (.f64 (.f64 kx kx) ky) (fma.f64 (.f64 ky ky) #s(literal -5/12 binary64) #s(literal 1 binary64)))) (.f64 kx (.f64 kx kx))))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th))
(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky #s(approx (+ (* (* ky ky) (+ (/ -1/2 (pow (sin kx) 3)) (/ -1/6 (sin kx)))) (/ 1 (sin kx))) (/.f64 (fma.f64 (.f64 kx kx) (fma.f64 (.f64 ky ky) #s(literal -5/12 binary64) (fma.f64 (.f64 kx kx) (fma.f64 (.f64 ky ky) #s(literal -71/720 binary64) #s(literal 1/6 binary64)) #s(literal 1 binary64))) (.f64 (.f64 ky ky) #s(literal -1/2 binary64))) (.f64 kx (.f64 kx kx)))))) (sin.f64 th))
(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) #s(approx ( ky (+ (* (* ky ky) (+ (/ -1/2 (pow (sin kx) 3)) (/ -1/6 (sin kx)))) (/ 1 (sin kx)))) (/.f64 (fma.f64 (.f64 kx kx) (fma.f64 ky (fma.f64 (.f64 ky ky) #s(literal -5/12 binary64) #s(literal 1 binary64)) (.f64 (.f64 (.f64 kx kx) ky) (fma.f64 (.f64 ky ky) #s(literal -71/720 binary64) #s(literal 1/6 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 ky (.f64 ky ky)))) (.f64 kx (*.f64 kx kx))))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) #s(approx (* (sqrt (/ 1 (- 1 (cos (* kx -2))))) (* ky (sqrt 2))) (/.f64 (fma.f64 #s(literal 1/12 binary64) (.f64 (.f64 ky (sqrt.f64 #s(literal 2 binary64))) (/.f64 (.f64 kx kx) (sqrt.f64 #s(literal 1/2 binary64)))) (.f64 (*.f64 ky (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 2 binary64)))) kx))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) #s(approx (* (sqrt (/ 1 (- 1 (cos (* kx -2))))) (* ky (sqrt 2))) (/.f64 (fma.f64 #s(literal 1/12 binary64) (/.f64 (.f64 (.f64 kx kx) (.f64 ky (sqrt.f64 #s(literal 2 binary64)))) (sqrt.f64 #s(literal 1/2 binary64))) (.f64 (*.f64 ky (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 2 binary64)))) kx))) (sin.f64 th))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (/.f64 (*.f64 ky (sin.f64 th)) (sin.f64 kx)))
(*.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (/.f64 ky (sin.f64 kx))) (sin.f64 th))
(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky #s(approx (+ (* (* ky ky) (+ (/ -1/2 (pow (sin kx) 3)) (/ -1/6 (sin kx)))) (/ 1 (sin kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (sin.f64 th))
(/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) #s(approx (+ (* -1/2 (cos (* ky -2))) 1/2) (*.f64 ky ky)))))
(/.f64 #s(approx (* (sin ky) (sin th)) (.f64 th (sin.f64 ky))) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))
(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 #s(approx (pow (sin kx) 2) (.f64 kx kx)) #s(approx (pow (sin ky) 2) (*.f64 ky ky))))) (sin.f64 th))
(.f64 (sin.f64 th) #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (/.f64 (.f64 ky (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))))
(/.f64 (.f64 (sin.f64 ky) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th))) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))
#s(approx (* (* (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (sin th)) (.f64 (.f64 (.f64 ky (sin.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))))
#s(approx (/ (* (sin ky) (sin th)) (sqrt (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (.f64 (.f64 (.f64 ky (sin.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))))
#s(approx (/ (* (sin ky) (sin th)) (sqrt (+ (* (- 1 (cos (+ kx kx))) 1/2) (pow (sin ky) 2)))) (.f64 (.f64 (.f64 ky (sin.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64)))))) (sqrt.f64 #s(literal 2 binary64))) ky)) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (/.f64 (.f64 #s(literal 1 binary64) ky) (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64)))))) (sqrt.f64 #s(literal 2 binary64)))) (sin.f64 th))
(.f64 (.f64 (sqrt.f64 #s(approx (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky)))))) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) (fma.f64 kx kx #s(literal 1/2 binary64)))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 ky ky))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) #s(approx (sin ky) (fma.f64 ky (.f64 #s(literal -1/6 binary64) (*.f64 ky ky)) ky))) (sin.f64 th))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(approx (- 1 (cos (+ kx kx))) (.f64 #s(literal 2 binary64) (.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) (fma.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) #s(literal -1/3 binary64) #s(literal 1 binary64)) #s(literal 1/2 binary64)))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) #s(approx (sin ky) (.f64 ky (fma.f64 (.f64 ky ky) (fma.f64 #s(literal 1/120 binary64) (.f64 ky ky) #s(literal -1/6 binary64)) #s(literal 1 binary64))))) (sin.f64 th))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(approx (- 1 (cos (+ kx kx))) (.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) #s(literal -2/3 binary64) #s(literal 2 binary64)))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (*.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) (fma.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) #s(literal 2/45 binary64) #s(literal -1/3 binary64)) #s(literal 1 binary64)) #s(literal 1/2 binary64)))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (*.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) #s(approx (sin ky) (fma.f64 ky (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 #s(literal -1/5040 binary64) (*.f64 ky ky) #s(literal 1/120 binary64)) #s(literal -1/6 binary64))) ky))) (sin.f64 th))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal 2/45 binary64) #s(literal -1/3 binary64)) #s(literal 1 binary64))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (*.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/315 binary64) #s(literal 2/45 binary64)) #s(literal -1/3 binary64)) #s(literal 1 binary64))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th)))
(*.f64 (/.f64 (sin.f64 ky) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx))) (sin.f64 th))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(approx (- 1 (cos (+ kx kx))) (.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) #s(literal -2/315 binary64) #s(literal 4/45 binary64)) #s(literal -2/3 binary64)) #s(literal 2 binary64)))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (*.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (fma.f64 (.f64 kx kx) (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) #s(literal 1 binary64))) (sin.f64 th))
(.f64 (sin.f64 th) (/.f64 (sin.f64 ky) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(.f64 (/.f64 (sin.f64 th) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) (sin.f64 ky))
(/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))
(.f64 (.f64 (sqrt.f64 #s(approx (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky)))))) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64))))))) (sin.f64 ky)) (sin.f64 th))
(/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))))
(/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64)))))
#s(approx (* (* (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (sin th)) (.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(.f64 (sin.f64 th) (.f64 (sin.f64 ky) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) (sin.f64 ky)) (sin.f64 th))
(/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) (fma.f64 kx kx #s(literal 1/2 binary64))))))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) (fma.f64 kx kx #s(literal 1/2 binary64)))))) (sin.f64 ky)) (sin.f64 th))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (*.f64 ky ky))))) (sin.f64 ky)) (sin.f64 th))
(/.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))) (.f64 (sin.f64 ky) (sin.f64 th))))
(/.f64 #s(approx (* (sin ky) (sin th)) (.f64 th (sin.f64 ky))) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))))
(/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) #s(approx (sqrt (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky)))))) (.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))) (sqrt.f64 #s(literal 1/2 binary64)))))
(/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) #s(approx (sqrt (+ ( (- 1 (cos (+ kx kx))) 1/2) (pow (sin ky) 2))) (.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))) (sqrt.f64 #s(literal 1/2 binary64)))))
(.f64 (/.f64 #s(approx (sin ky) (fma.f64 ky (.f64 (.f64 ky ky) #s(literal -1/6 binary64)) ky)) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky))))) (sin.f64 th))
(/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 #s(approx (- 1 (cos (+ kx kx))) (.f64 #s(literal 2 binary64) (.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))))
#s(approx (* (* (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (sin th)) (.f64 (.f64 th (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))))
#s(approx (/ (* (sin ky) (sin th)) (sqrt (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (.f64 (.f64 th (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))))
#s(approx (/ (* (sin ky) (sin th)) (sqrt (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (.f64 (.f64 th (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(approx (- 1 (cos (+ kx kx))) (.f64 #s(literal 2 binary64) (.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) (sin.f64 th))
(.f64 (/.f64 #s(approx (sin ky) (.f64 ky (fma.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal 1/120 binary64) #s(literal -1/6 binary64)) #s(literal 1 binary64)))) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (*.f64 ky ky))))) (sin.f64 th))
(.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 ky (*.f64 ky #s(literal -1/3 binary64)) #s(literal 1 binary64))))))))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 ky (*.f64 ky #s(literal -1/3 binary64)) #s(literal 1 binary64))))))) (sin.f64 th)) (sin.f64 ky))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (*.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) (sin.f64 ky)) (sin.f64 th))
(/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 #s(approx (- 1 (cos (+ kx kx))) (.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) #s(literal -2/3 binary64) #s(literal 2 binary64)))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))))
(/.f64 #s(approx (* (sin ky) (sin th)) (.f64 th (.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 th th) #s(literal 1 binary64)) (sin.f64 ky)))) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(approx (- 1 (cos (+ kx kx))) (.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) #s(literal -2/3 binary64) #s(literal 2 binary64)))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) (sin.f64 th))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (*.f64 th th)) th)))
(/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 ( -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal 2/45 binary64) #s(literal -1/3 binary64)) #s(literal 1 binary64)))))))
(/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (pow (sin ky) 2) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 (*.f64 ky ky) #s(literal 2/45 binary64) #s(literal -1/3 binary64)) #s(literal 1 binary64)))))))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal 2/45 binary64) #s(literal -1/3 binary64)) #s(literal 1 binary64))))))) (sin.f64 ky)) (sin.f64 th))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (*.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 kx #s(literal -2 binary64))))))) (+.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #s(approx (sin th) (.f64 th (fma.f64 (.f64 th th) (fma.f64 (.f64 th th) (fma.f64 #s(literal -1/5040 binary64) (*.f64 th th) #s(literal 1/120 binary64)) #s(literal -1/6 binary64)) #s(literal 1 binary64)))))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 (.f64 th th) (fma.f64 #s(literal -1/5040 binary64) (*.f64 th th) #s(literal 1/120 binary64)) #s(literal -1/6 binary64))) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (fma.f64 (.f64 #s(literal -1/2 binary64) (sin.f64 th)) (/.f64 (.f64 kx kx) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) (sin.f64 th)))
(.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) #s(approx (sin kx) (fma.f64 kx (.f64 #s(literal -1/6 binary64) (*.f64 kx kx)) kx)))) (sin.f64 th))
(.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) #s(approx (/ 1 (/ 1 (sin kx))) (fma.f64 kx (.f64 #s(literal -1/6 binary64) (*.f64 kx kx)) kx)))) (sin.f64 th))
(.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (sin.f64 kx))) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (*.f64 th th)) th)))
(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 #s(approx (pow (sin kx) 2) (.f64 kx kx)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (sin.f64 th))
(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky))))) (sin.f64 th))
(.f64 (/.f64 (sin.f64 ky) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (fma.f64 kx (.f64 kx (/.f64 #s(literal 1/2 binary64) (sin.f64 ky))) (sin.f64 ky)))) (sin.f64 th))
(/.f64 #s(approx (* (sin ky) (sin th)) (*.f64 th (sin.f64 ky))) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))))
(*.f64 (sin.f64 ky) (/.f64 (sin.f64 th) (sqrt.f64 (+.f64 (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))))
(*.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)) #s(literal 1/2 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 kx kx)) #s(literal 1/2 binary64))))) (sin.f64 th))
(*.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 ky ky))) #s(literal 1/2 binary64) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))) (sin.f64 th))
(/.f64 (*.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (+.f64 (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))))
(/.f64 (*.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 (cos.f64 (+.f64 kx kx)) #s(literal -1/2 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64)))))

Outputs
(.f64 (/.f64 (sin.f64 th) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) (sin.f64 ky))
(/.f64 #s(approx (* (sin ky) (sin th)) (*.f64 th (sin.f64 ky))) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))))
(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky))))) (sin.f64 th))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #s(approx (sin th) (.f64 th (fma.f64 (.f64 th th) (fma.f64 (.f64 th th) (fma.f64 #s(literal -1/5040 binary64) (*.f64 th th) #s(literal 1/120 binary64)) #s(literal -1/6 binary64)) #s(literal 1 binary64)))))
(.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) #s(approx (sin kx) (fma.f64 kx (.f64 #s(literal -1/6 binary64) (*.f64 kx kx)) kx)))) (sin.f64 th))

Calls

9 calls:

37.0ms	(sin.f64 th)
34.0ms	kx
33.0ms	(/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))))
33.0ms	ky
32.0ms	(sin.f64 kx)

Results

Accuracy	Segments	Branch
71.3%	3	`(*.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (sin.f64 th))`
76.6%	4	`(sin.f64 th)`
76.0%	3	`th`
85.9%	5	`(/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))))`
74.0%	3	`(sin.f64 ky)`
79.5%	4	`(sin.f64 kx)`
73.7%	2	`ky`
77.7%	2	`kx`
77.6%	2	`(pow.f64 (sin.f64 kx) #s(literal 2 binary64))`

Compiler

Compiled 69 to 51 computations (26.1% saved)

regimes36.0ms (0.3%)

Memory

-5.1MiB live, 70.2MiB allocated

Counts

105 → 5

Calls

Call 1

Inputs
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 #s(literal -1/6 binary64) (.f64 th (*.f64 th th))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 (.f64 #s(literal -1/6 binary64) (*.f64 th th)) th))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 (.f64 th th) (*.f64 th #s(literal -1/6 binary64))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th #s(literal -1/6 binary64)) th) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 (.f64 th th) (.f64 th #s(literal -1/6 binary64)) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 (.f64 th (.f64 th th)) #s(literal -1/6 binary64) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (+.f64 (.f64 th (.f64 #s(literal -1/6 binary64) (*.f64 th th))) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (*.f64 th th) #s(literal -1/6 binary64))) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 (.f64 th (.f64 th th)) (+.f64 #s(literal -1/6 binary64) (/.f64 #s(literal 1 binary64) (.f64 th th)))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (/.f64 (-.f64 (.f64 th th) (.f64 th (.f64 (.f64 #s(literal -1/6 binary64) (.f64 th th)) (.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)))))) (-.f64 th (.f64 th (.f64 #s(literal -1/6 binary64) (*.f64 th th)))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (.f64 (.f64 (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) (neg.f64 th))) (/.f64 #s(literal 1 binary64) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) (neg.f64 th))))))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th))
(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky #s(approx (+ (* (* ky ky) (+ (/ -1/2 (pow (sin kx) 3)) (/ -1/6 (sin kx)))) (/ 1 (sin kx))) (/.f64 (.f64 (.f64 ky ky) #s(literal -1/2 binary64)) (.f64 kx (.f64 kx kx)))))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) #s(approx (* (sqrt (/ 1 (- 1 (cos (* kx -2))))) (* ky (sqrt 2))) (.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(literal 1/2 binary64))) (/.f64 ky kx)))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) kx)) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 th (-.f64 th (.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)))) (.f64 th (.f64 (.f64 #s(literal -1/6 binary64) (.f64 th th)) (.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)))))) (fma.f64 th (.f64 th th) (.f64 (.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th))) (.f64 th (.f64 (.f64 #s(literal -1/6 binary64) (.f64 th th)) (.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)))))))))))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) #s(approx (/ (+ (* (* kx kx) (/ 1/12 (sqrt 1/2))) (sqrt 1/2)) kx) (.f64 kx (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64)))))) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (- 1 (cos ( kx -2))) (.f64 #s(literal 2 binary64) (.f64 kx kx))))) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th))
(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky #s(approx (+ (* (* ky ky) (+ (/ -1/2 (pow (sin kx) 3)) (/ -1/6 (sin kx)))) (/ 1 (sin kx))) (/.f64 (fma.f64 (.f64 ky ky) #s(literal -1/2 binary64) (.f64 (.f64 kx kx) (fma.f64 (.f64 ky ky) #s(literal -5/12 binary64) #s(literal 1 binary64)))) (.f64 kx (.f64 kx kx)))))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (- 1 (cos ( kx -2))) (.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) #s(literal -2/3 binary64) #s(literal 2 binary64)))))) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th))
(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) #s(approx ( ky (+ (* (* ky ky) (+ (/ -1/2 (pow (sin kx) 3)) (/ -1/6 (sin kx)))) (/ 1 (sin kx)))) (/.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 ky (.f64 ky ky)) (.f64 (.f64 (.f64 kx kx) ky) (fma.f64 (.f64 ky ky) #s(literal -5/12 binary64) #s(literal 1 binary64)))) (.f64 kx (.f64 kx kx))))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th))
(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky #s(approx (+ (* (* ky ky) (+ (/ -1/2 (pow (sin kx) 3)) (/ -1/6 (sin kx)))) (/ 1 (sin kx))) (/.f64 (fma.f64 (.f64 kx kx) (fma.f64 (.f64 ky ky) #s(literal -5/12 binary64) (fma.f64 (.f64 kx kx) (fma.f64 (.f64 ky ky) #s(literal -71/720 binary64) #s(literal 1/6 binary64)) #s(literal 1 binary64))) (.f64 (.f64 ky ky) #s(literal -1/2 binary64))) (.f64 kx (.f64 kx kx)))))) (sin.f64 th))
(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) #s(approx ( ky (+ (* (* ky ky) (+ (/ -1/2 (pow (sin kx) 3)) (/ -1/6 (sin kx)))) (/ 1 (sin kx)))) (/.f64 (fma.f64 (.f64 kx kx) (fma.f64 ky (fma.f64 (.f64 ky ky) #s(literal -5/12 binary64) #s(literal 1 binary64)) (.f64 (.f64 (.f64 kx kx) ky) (fma.f64 (.f64 ky ky) #s(literal -71/720 binary64) #s(literal 1/6 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 ky (.f64 ky ky)))) (.f64 kx (*.f64 kx kx))))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) #s(approx (* (sqrt (/ 1 (- 1 (cos (* kx -2))))) (* ky (sqrt 2))) (/.f64 (fma.f64 #s(literal 1/12 binary64) (.f64 (.f64 ky (sqrt.f64 #s(literal 2 binary64))) (/.f64 (.f64 kx kx) (sqrt.f64 #s(literal 1/2 binary64)))) (.f64 (*.f64 ky (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 2 binary64)))) kx))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) #s(approx (* (sqrt (/ 1 (- 1 (cos (* kx -2))))) (* ky (sqrt 2))) (/.f64 (fma.f64 #s(literal 1/12 binary64) (/.f64 (.f64 (.f64 kx kx) (.f64 ky (sqrt.f64 #s(literal 2 binary64)))) (sqrt.f64 #s(literal 1/2 binary64))) (.f64 (*.f64 ky (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 2 binary64)))) kx))) (sin.f64 th))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (/.f64 (*.f64 ky (sin.f64 th)) (sin.f64 kx)))
(*.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (/.f64 ky (sin.f64 kx))) (sin.f64 th))
(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky #s(approx (+ (* (* ky ky) (+ (/ -1/2 (pow (sin kx) 3)) (/ -1/6 (sin kx)))) (/ 1 (sin kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (sin.f64 th))
(/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) #s(approx (+ (* -1/2 (cos (* ky -2))) 1/2) (*.f64 ky ky)))))
(/.f64 #s(approx (* (sin ky) (sin th)) (.f64 th (sin.f64 ky))) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))
(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 #s(approx (pow (sin kx) 2) (.f64 kx kx)) #s(approx (pow (sin ky) 2) (*.f64 ky ky))))) (sin.f64 th))
(.f64 (sin.f64 th) #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (/.f64 (.f64 ky (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))))
(/.f64 (.f64 (sin.f64 ky) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th))) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))
#s(approx (* (* (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (sin th)) (.f64 (.f64 (.f64 ky (sin.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))))
#s(approx (/ (* (sin ky) (sin th)) (sqrt (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (.f64 (.f64 (.f64 ky (sin.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))))
#s(approx (/ (* (sin ky) (sin th)) (sqrt (+ (* (- 1 (cos (+ kx kx))) 1/2) (pow (sin ky) 2)))) (.f64 (.f64 (.f64 ky (sin.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64)))))) (sqrt.f64 #s(literal 2 binary64))) ky)) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (/.f64 (.f64 #s(literal 1 binary64) ky) (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64)))))) (sqrt.f64 #s(literal 2 binary64)))) (sin.f64 th))
(.f64 (.f64 (sqrt.f64 #s(approx (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky)))))) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) (fma.f64 kx kx #s(literal 1/2 binary64)))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 ky ky))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) #s(approx (sin ky) (fma.f64 ky (.f64 #s(literal -1/6 binary64) (*.f64 ky ky)) ky))) (sin.f64 th))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(approx (- 1 (cos (+ kx kx))) (.f64 #s(literal 2 binary64) (.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) (fma.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) #s(literal -1/3 binary64) #s(literal 1 binary64)) #s(literal 1/2 binary64)))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) #s(approx (sin ky) (.f64 ky (fma.f64 (.f64 ky ky) (fma.f64 #s(literal 1/120 binary64) (.f64 ky ky) #s(literal -1/6 binary64)) #s(literal 1 binary64))))) (sin.f64 th))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(approx (- 1 (cos (+ kx kx))) (.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) #s(literal -2/3 binary64) #s(literal 2 binary64)))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (*.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) (fma.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) #s(literal 2/45 binary64) #s(literal -1/3 binary64)) #s(literal 1 binary64)) #s(literal 1/2 binary64)))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (*.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) #s(approx (sin ky) (fma.f64 ky (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 #s(literal -1/5040 binary64) (*.f64 ky ky) #s(literal 1/120 binary64)) #s(literal -1/6 binary64))) ky))) (sin.f64 th))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal 2/45 binary64) #s(literal -1/3 binary64)) #s(literal 1 binary64))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (*.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/315 binary64) #s(literal 2/45 binary64)) #s(literal -1/3 binary64)) #s(literal 1 binary64))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th)))
(*.f64 (/.f64 (sin.f64 ky) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx))) (sin.f64 th))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(approx (- 1 (cos (+ kx kx))) (.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) #s(literal -2/315 binary64) #s(literal 4/45 binary64)) #s(literal -2/3 binary64)) #s(literal 2 binary64)))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (*.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (fma.f64 (.f64 kx kx) (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) #s(literal 1 binary64))) (sin.f64 th))
(.f64 (sin.f64 th) (/.f64 (sin.f64 ky) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(.f64 (/.f64 (sin.f64 th) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) (sin.f64 ky))
(/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))
(.f64 (.f64 (sqrt.f64 #s(approx (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky)))))) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64))))))) (sin.f64 ky)) (sin.f64 th))
(/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))))
(/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64)))))
#s(approx (* (* (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (sin th)) (.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(.f64 (sin.f64 th) (.f64 (sin.f64 ky) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) (sin.f64 ky)) (sin.f64 th))
(/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) (fma.f64 kx kx #s(literal 1/2 binary64))))))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) (fma.f64 kx kx #s(literal 1/2 binary64)))))) (sin.f64 ky)) (sin.f64 th))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (*.f64 ky ky))))) (sin.f64 ky)) (sin.f64 th))
(/.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))) (.f64 (sin.f64 ky) (sin.f64 th))))
(/.f64 #s(approx (* (sin ky) (sin th)) (.f64 th (sin.f64 ky))) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))))
(/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) #s(approx (sqrt (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky)))))) (.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))) (sqrt.f64 #s(literal 1/2 binary64)))))
(/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) #s(approx (sqrt (+ ( (- 1 (cos (+ kx kx))) 1/2) (pow (sin ky) 2))) (.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))) (sqrt.f64 #s(literal 1/2 binary64)))))
(.f64 (/.f64 #s(approx (sin ky) (fma.f64 ky (.f64 (.f64 ky ky) #s(literal -1/6 binary64)) ky)) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky))))) (sin.f64 th))
(/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 #s(approx (- 1 (cos (+ kx kx))) (.f64 #s(literal 2 binary64) (.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))))
#s(approx (* (* (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (sin th)) (.f64 (.f64 th (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))))
#s(approx (/ (* (sin ky) (sin th)) (sqrt (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (.f64 (.f64 th (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))))
#s(approx (/ (* (sin ky) (sin th)) (sqrt (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (.f64 (.f64 th (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(approx (- 1 (cos (+ kx kx))) (.f64 #s(literal 2 binary64) (.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) (sin.f64 th))
(.f64 (/.f64 #s(approx (sin ky) (.f64 ky (fma.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal 1/120 binary64) #s(literal -1/6 binary64)) #s(literal 1 binary64)))) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (*.f64 ky ky))))) (sin.f64 th))
(.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 ky (*.f64 ky #s(literal -1/3 binary64)) #s(literal 1 binary64))))))))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 ky (*.f64 ky #s(literal -1/3 binary64)) #s(literal 1 binary64))))))) (sin.f64 th)) (sin.f64 ky))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (*.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) (sin.f64 ky)) (sin.f64 th))
(/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 #s(approx (- 1 (cos (+ kx kx))) (.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) #s(literal -2/3 binary64) #s(literal 2 binary64)))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))))
(/.f64 #s(approx (* (sin ky) (sin th)) (.f64 th (.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 th th) #s(literal 1 binary64)) (sin.f64 ky)))) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(approx (- 1 (cos (+ kx kx))) (.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) #s(literal -2/3 binary64) #s(literal 2 binary64)))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) (sin.f64 th))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (*.f64 th th)) th)))
(/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 ( -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal 2/45 binary64) #s(literal -1/3 binary64)) #s(literal 1 binary64)))))))
(/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (pow (sin ky) 2) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 (*.f64 ky ky) #s(literal 2/45 binary64) #s(literal -1/3 binary64)) #s(literal 1 binary64)))))))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal 2/45 binary64) #s(literal -1/3 binary64)) #s(literal 1 binary64))))))) (sin.f64 ky)) (sin.f64 th))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (*.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 kx #s(literal -2 binary64))))))) (+.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #s(approx (sin th) (.f64 th (fma.f64 (.f64 th th) (fma.f64 (.f64 th th) (fma.f64 #s(literal -1/5040 binary64) (*.f64 th th) #s(literal 1/120 binary64)) #s(literal -1/6 binary64)) #s(literal 1 binary64)))))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 (.f64 th th) (fma.f64 #s(literal -1/5040 binary64) (*.f64 th th) #s(literal 1/120 binary64)) #s(literal -1/6 binary64))) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (fma.f64 (.f64 #s(literal -1/2 binary64) (sin.f64 th)) (/.f64 (.f64 kx kx) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) (sin.f64 th)))
(.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) #s(approx (sin kx) (fma.f64 kx (.f64 #s(literal -1/6 binary64) (*.f64 kx kx)) kx)))) (sin.f64 th))
(.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) #s(approx (/ 1 (/ 1 (sin kx))) (fma.f64 kx (.f64 #s(literal -1/6 binary64) (*.f64 kx kx)) kx)))) (sin.f64 th))
(.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (sin.f64 kx))) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (*.f64 th th)) th)))
(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 #s(approx (pow (sin kx) 2) (.f64 kx kx)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (sin.f64 th))
(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky))))) (sin.f64 th))
(.f64 (/.f64 (sin.f64 ky) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (fma.f64 kx (.f64 kx (/.f64 #s(literal 1/2 binary64) (sin.f64 ky))) (sin.f64 ky)))) (sin.f64 th))

Outputs
(.f64 (/.f64 (sin.f64 th) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) (sin.f64 ky))
(/.f64 #s(approx (* (sin ky) (sin th)) (.f64 th (sin.f64 ky))) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))))
(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky))))) (sin.f64 th))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #s(approx (sin th) (.f64 th (fma.f64 (.f64 th th) (fma.f64 (.f64 th th) (fma.f64 #s(literal -1/5040 binary64) (*.f64 th th) #s(literal 1/120 binary64)) #s(literal -1/6 binary64)) #s(literal 1 binary64)))))
(.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) #s(approx (sin kx) (fma.f64 kx (.f64 #s(literal -1/6 binary64) (*.f64 kx kx)) kx)))) (sin.f64 th))

Calls

1 calls:

28.0ms

(/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))))

Results

Accuracy	Segments	Branch
85.9%	5	`(/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))))`

Compiler

Compiled 16 to 11 computations (31.3% saved)

regimes78.0ms (0.6%)

Memory

-17.4MiB live, 69.2MiB allocated

Counts

103 → 5

Calls

Call 1

Inputs
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 #s(literal -1/6 binary64) (.f64 th (*.f64 th th))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 (.f64 #s(literal -1/6 binary64) (*.f64 th th)) th))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 (.f64 th th) (*.f64 th #s(literal -1/6 binary64))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th #s(literal -1/6 binary64)) th) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 (.f64 th th) (.f64 th #s(literal -1/6 binary64)) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 (.f64 th (.f64 th th)) #s(literal -1/6 binary64) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (+.f64 (.f64 th (.f64 #s(literal -1/6 binary64) (*.f64 th th))) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (*.f64 th th) #s(literal -1/6 binary64))) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 (.f64 th (.f64 th th)) (+.f64 #s(literal -1/6 binary64) (/.f64 #s(literal 1 binary64) (.f64 th th)))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (/.f64 (-.f64 (.f64 th th) (.f64 th (.f64 (.f64 #s(literal -1/6 binary64) (.f64 th th)) (.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)))))) (-.f64 th (.f64 th (.f64 #s(literal -1/6 binary64) (*.f64 th th)))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (.f64 (.f64 (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) (neg.f64 th))) (/.f64 #s(literal 1 binary64) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) (neg.f64 th))))))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th))
(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky #s(approx (+ (* (* ky ky) (+ (/ -1/2 (pow (sin kx) 3)) (/ -1/6 (sin kx)))) (/ 1 (sin kx))) (/.f64 (.f64 (.f64 ky ky) #s(literal -1/2 binary64)) (.f64 kx (.f64 kx kx)))))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) #s(approx (* (sqrt (/ 1 (- 1 (cos (* kx -2))))) (* ky (sqrt 2))) (.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(literal 1/2 binary64))) (/.f64 ky kx)))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) kx)) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 th (-.f64 th (.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)))) (.f64 th (.f64 (.f64 #s(literal -1/6 binary64) (.f64 th th)) (.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)))))) (fma.f64 th (.f64 th th) (.f64 (.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th))) (.f64 th (.f64 (.f64 #s(literal -1/6 binary64) (.f64 th th)) (.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)))))))))))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) #s(approx (/ (+ (* (* kx kx) (/ 1/12 (sqrt 1/2))) (sqrt 1/2)) kx) (.f64 kx (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64)))))) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (- 1 (cos ( kx -2))) (.f64 #s(literal 2 binary64) (.f64 kx kx))))) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th))
(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky #s(approx (+ (* (* ky ky) (+ (/ -1/2 (pow (sin kx) 3)) (/ -1/6 (sin kx)))) (/ 1 (sin kx))) (/.f64 (fma.f64 (.f64 ky ky) #s(literal -1/2 binary64) (.f64 (.f64 kx kx) (fma.f64 (.f64 ky ky) #s(literal -5/12 binary64) #s(literal 1 binary64)))) (.f64 kx (.f64 kx kx)))))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (- 1 (cos ( kx -2))) (.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) #s(literal -2/3 binary64) #s(literal 2 binary64)))))) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th))
(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) #s(approx ( ky (+ (* (* ky ky) (+ (/ -1/2 (pow (sin kx) 3)) (/ -1/6 (sin kx)))) (/ 1 (sin kx)))) (/.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 ky (.f64 ky ky)) (.f64 (.f64 (.f64 kx kx) ky) (fma.f64 (.f64 ky ky) #s(literal -5/12 binary64) #s(literal 1 binary64)))) (.f64 kx (.f64 kx kx))))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th))
(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky #s(approx (+ (* (* ky ky) (+ (/ -1/2 (pow (sin kx) 3)) (/ -1/6 (sin kx)))) (/ 1 (sin kx))) (/.f64 (fma.f64 (.f64 kx kx) (fma.f64 (.f64 ky ky) #s(literal -5/12 binary64) (fma.f64 (.f64 kx kx) (fma.f64 (.f64 ky ky) #s(literal -71/720 binary64) #s(literal 1/6 binary64)) #s(literal 1 binary64))) (.f64 (.f64 ky ky) #s(literal -1/2 binary64))) (.f64 kx (.f64 kx kx)))))) (sin.f64 th))
(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) #s(approx ( ky (+ (* (* ky ky) (+ (/ -1/2 (pow (sin kx) 3)) (/ -1/6 (sin kx)))) (/ 1 (sin kx)))) (/.f64 (fma.f64 (.f64 kx kx) (fma.f64 ky (fma.f64 (.f64 ky ky) #s(literal -5/12 binary64) #s(literal 1 binary64)) (.f64 (.f64 (.f64 kx kx) ky) (fma.f64 (.f64 ky ky) #s(literal -71/720 binary64) #s(literal 1/6 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 ky (.f64 ky ky)))) (.f64 kx (*.f64 kx kx))))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) #s(approx (* (sqrt (/ 1 (- 1 (cos (* kx -2))))) (* ky (sqrt 2))) (/.f64 (fma.f64 #s(literal 1/12 binary64) (.f64 (.f64 ky (sqrt.f64 #s(literal 2 binary64))) (/.f64 (.f64 kx kx) (sqrt.f64 #s(literal 1/2 binary64)))) (.f64 (*.f64 ky (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 2 binary64)))) kx))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) #s(approx (* (sqrt (/ 1 (- 1 (cos (* kx -2))))) (* ky (sqrt 2))) (/.f64 (fma.f64 #s(literal 1/12 binary64) (/.f64 (.f64 (.f64 kx kx) (.f64 ky (sqrt.f64 #s(literal 2 binary64)))) (sqrt.f64 #s(literal 1/2 binary64))) (.f64 (*.f64 ky (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 2 binary64)))) kx))) (sin.f64 th))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (/.f64 (*.f64 ky (sin.f64 th)) (sin.f64 kx)))
(*.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (/.f64 ky (sin.f64 kx))) (sin.f64 th))
(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky #s(approx (+ (* (* ky ky) (+ (/ -1/2 (pow (sin kx) 3)) (/ -1/6 (sin kx)))) (/ 1 (sin kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (sin.f64 th))
(/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) #s(approx (+ (* -1/2 (cos (* ky -2))) 1/2) (*.f64 ky ky)))))
(/.f64 #s(approx (* (sin ky) (sin th)) (.f64 th (sin.f64 ky))) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))
(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 #s(approx (pow (sin kx) 2) (.f64 kx kx)) #s(approx (pow (sin ky) 2) (*.f64 ky ky))))) (sin.f64 th))
(.f64 (sin.f64 th) #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (/.f64 (.f64 ky (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))))
(/.f64 (.f64 (sin.f64 ky) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th))) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))
#s(approx (* (* (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (sin th)) (.f64 (.f64 (.f64 ky (sin.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))))
#s(approx (/ (* (sin ky) (sin th)) (sqrt (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (.f64 (.f64 (.f64 ky (sin.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))))
#s(approx (/ (* (sin ky) (sin th)) (sqrt (+ (* (- 1 (cos (+ kx kx))) 1/2) (pow (sin ky) 2)))) (.f64 (.f64 (.f64 ky (sin.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64)))))) (sqrt.f64 #s(literal 2 binary64))) ky)) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (/.f64 (.f64 #s(literal 1 binary64) ky) (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64)))))) (sqrt.f64 #s(literal 2 binary64)))) (sin.f64 th))
(.f64 (.f64 (sqrt.f64 #s(approx (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky)))))) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) (fma.f64 kx kx #s(literal 1/2 binary64)))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 ky ky))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) #s(approx (sin ky) (fma.f64 ky (.f64 #s(literal -1/6 binary64) (*.f64 ky ky)) ky))) (sin.f64 th))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(approx (- 1 (cos (+ kx kx))) (.f64 #s(literal 2 binary64) (.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) (fma.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) #s(literal -1/3 binary64) #s(literal 1 binary64)) #s(literal 1/2 binary64)))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) #s(approx (sin ky) (.f64 ky (fma.f64 (.f64 ky ky) (fma.f64 #s(literal 1/120 binary64) (.f64 ky ky) #s(literal -1/6 binary64)) #s(literal 1 binary64))))) (sin.f64 th))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(approx (- 1 (cos (+ kx kx))) (.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) #s(literal -2/3 binary64) #s(literal 2 binary64)))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (*.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) (fma.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) #s(literal 2/45 binary64) #s(literal -1/3 binary64)) #s(literal 1 binary64)) #s(literal 1/2 binary64)))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (*.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) #s(approx (sin ky) (fma.f64 ky (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 #s(literal -1/5040 binary64) (*.f64 ky ky) #s(literal 1/120 binary64)) #s(literal -1/6 binary64))) ky))) (sin.f64 th))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal 2/45 binary64) #s(literal -1/3 binary64)) #s(literal 1 binary64))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (*.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/315 binary64) #s(literal 2/45 binary64)) #s(literal -1/3 binary64)) #s(literal 1 binary64))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th)))
(*.f64 (/.f64 (sin.f64 ky) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx))) (sin.f64 th))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(approx (- 1 (cos (+ kx kx))) (.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) #s(literal -2/315 binary64) #s(literal 4/45 binary64)) #s(literal -2/3 binary64)) #s(literal 2 binary64)))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (*.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (fma.f64 (.f64 kx kx) (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) #s(literal 1 binary64))) (sin.f64 th))
(.f64 (sin.f64 th) (/.f64 (sin.f64 ky) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(.f64 (/.f64 (sin.f64 th) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) (sin.f64 ky))
(/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))
(.f64 (.f64 (sqrt.f64 #s(approx (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky)))))) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64))))))) (sin.f64 ky)) (sin.f64 th))
(/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))))
(/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64)))))
#s(approx (* (* (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (sin th)) (.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(.f64 (sin.f64 th) (.f64 (sin.f64 ky) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) (sin.f64 ky)) (sin.f64 th))
(/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) (fma.f64 kx kx #s(literal 1/2 binary64))))))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) (fma.f64 kx kx #s(literal 1/2 binary64)))))) (sin.f64 ky)) (sin.f64 th))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (*.f64 ky ky))))) (sin.f64 ky)) (sin.f64 th))
(/.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))) (.f64 (sin.f64 ky) (sin.f64 th))))
(/.f64 #s(approx (* (sin ky) (sin th)) (.f64 th (sin.f64 ky))) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))))
(/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) #s(approx (sqrt (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky)))))) (.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))) (sqrt.f64 #s(literal 1/2 binary64)))))
(/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) #s(approx (sqrt (+ ( (- 1 (cos (+ kx kx))) 1/2) (pow (sin ky) 2))) (.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))) (sqrt.f64 #s(literal 1/2 binary64)))))
(.f64 (/.f64 #s(approx (sin ky) (fma.f64 ky (.f64 (.f64 ky ky) #s(literal -1/6 binary64)) ky)) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky))))) (sin.f64 th))
(/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 #s(approx (- 1 (cos (+ kx kx))) (.f64 #s(literal 2 binary64) (.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))))
#s(approx (* (* (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (sin th)) (.f64 (.f64 th (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))))
#s(approx (/ (* (sin ky) (sin th)) (sqrt (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (.f64 (.f64 th (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))))
#s(approx (/ (* (sin ky) (sin th)) (sqrt (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (.f64 (.f64 th (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(approx (- 1 (cos (+ kx kx))) (.f64 #s(literal 2 binary64) (.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) (sin.f64 th))
(.f64 (/.f64 #s(approx (sin ky) (.f64 ky (fma.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal 1/120 binary64) #s(literal -1/6 binary64)) #s(literal 1 binary64)))) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (*.f64 ky ky))))) (sin.f64 th))
(.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 ky (*.f64 ky #s(literal -1/3 binary64)) #s(literal 1 binary64))))))))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 ky (*.f64 ky #s(literal -1/3 binary64)) #s(literal 1 binary64))))))) (sin.f64 th)) (sin.f64 ky))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (*.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) (sin.f64 ky)) (sin.f64 th))
(/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 #s(approx (- 1 (cos (+ kx kx))) (.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) #s(literal -2/3 binary64) #s(literal 2 binary64)))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))))
(/.f64 #s(approx (* (sin ky) (sin th)) (.f64 th (.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 th th) #s(literal 1 binary64)) (sin.f64 ky)))) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(approx (- 1 (cos (+ kx kx))) (.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) #s(literal -2/3 binary64) #s(literal 2 binary64)))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) (sin.f64 th))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (*.f64 th th)) th)))
(/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 ( -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal 2/45 binary64) #s(literal -1/3 binary64)) #s(literal 1 binary64)))))))
(/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (pow (sin ky) 2) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 (*.f64 ky ky) #s(literal 2/45 binary64) #s(literal -1/3 binary64)) #s(literal 1 binary64)))))))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal 2/45 binary64) #s(literal -1/3 binary64)) #s(literal 1 binary64))))))) (sin.f64 ky)) (sin.f64 th))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (*.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 kx #s(literal -2 binary64))))))) (+.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #s(approx (sin th) (.f64 th (fma.f64 (.f64 th th) (fma.f64 (.f64 th th) (fma.f64 #s(literal -1/5040 binary64) (*.f64 th th) #s(literal 1/120 binary64)) #s(literal -1/6 binary64)) #s(literal 1 binary64)))))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 (.f64 th th) (fma.f64 #s(literal -1/5040 binary64) (*.f64 th th) #s(literal 1/120 binary64)) #s(literal -1/6 binary64))) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (fma.f64 (.f64 #s(literal -1/2 binary64) (sin.f64 th)) (/.f64 (.f64 kx kx) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) (sin.f64 th)))
(.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) #s(approx (sin kx) (fma.f64 kx (.f64 #s(literal -1/6 binary64) (*.f64 kx kx)) kx)))) (sin.f64 th))
(.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) #s(approx (/ 1 (/ 1 (sin kx))) (fma.f64 kx (.f64 #s(literal -1/6 binary64) (*.f64 kx kx)) kx)))) (sin.f64 th))
(.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (sin.f64 kx))) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (*.f64 th th)) th)))
(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 #s(approx (pow (sin kx) 2) (.f64 kx kx)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (sin.f64 th))

Outputs
(.f64 (/.f64 (sin.f64 th) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) (sin.f64 ky))
(/.f64 #s(approx (* (sin ky) (sin th)) (.f64 th (sin.f64 ky))) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))))
(.f64 (/.f64 #s(approx (sin ky) (fma.f64 ky (.f64 (.f64 ky ky) #s(literal -1/6 binary64)) ky)) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky))))) (sin.f64 th))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #s(approx (sin th) (.f64 th (fma.f64 (.f64 th th) (fma.f64 (.f64 th th) (fma.f64 #s(literal -1/5040 binary64) (*.f64 th th) #s(literal 1/120 binary64)) #s(literal -1/6 binary64)) #s(literal 1 binary64)))))
(.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) #s(approx (sin kx) (fma.f64 kx (.f64 #s(literal -1/6 binary64) (*.f64 kx kx)) kx)))) (sin.f64 th))

Calls

1 calls:

72.0ms

(/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))))

Results

Accuracy	Segments	Branch
85.9%	5	`(/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))))`

Compiler

Compiled 16 to 11 computations (31.3% saved)

regimes38.0ms (0.3%)

Memory

14.3MiB live, 83.5MiB allocated

Counts

99 → 5

Calls

Call 1

Inputs
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 #s(literal -1/6 binary64) (.f64 th (*.f64 th th))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 (.f64 #s(literal -1/6 binary64) (*.f64 th th)) th))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 (.f64 th th) (*.f64 th #s(literal -1/6 binary64))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th #s(literal -1/6 binary64)) th) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 (.f64 th th) (.f64 th #s(literal -1/6 binary64)) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 (.f64 th (.f64 th th)) #s(literal -1/6 binary64) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (+.f64 (.f64 th (.f64 #s(literal -1/6 binary64) (*.f64 th th))) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (*.f64 th th) #s(literal -1/6 binary64))) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 (.f64 th (.f64 th th)) (+.f64 #s(literal -1/6 binary64) (/.f64 #s(literal 1 binary64) (.f64 th th)))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (/.f64 (-.f64 (.f64 th th) (.f64 th (.f64 (.f64 #s(literal -1/6 binary64) (.f64 th th)) (.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)))))) (-.f64 th (.f64 th (.f64 #s(literal -1/6 binary64) (*.f64 th th)))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (.f64 (.f64 (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) (neg.f64 th))) (/.f64 #s(literal 1 binary64) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) (neg.f64 th))))))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th))
(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky #s(approx (+ (* (* ky ky) (+ (/ -1/2 (pow (sin kx) 3)) (/ -1/6 (sin kx)))) (/ 1 (sin kx))) (/.f64 (.f64 (.f64 ky ky) #s(literal -1/2 binary64)) (.f64 kx (.f64 kx kx)))))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) #s(approx (* (sqrt (/ 1 (- 1 (cos (* kx -2))))) (* ky (sqrt 2))) (.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(literal 1/2 binary64))) (/.f64 ky kx)))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) kx)) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 th (-.f64 th (.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)))) (.f64 th (.f64 (.f64 #s(literal -1/6 binary64) (.f64 th th)) (.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)))))) (fma.f64 th (.f64 th th) (.f64 (.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th))) (.f64 th (.f64 (.f64 #s(literal -1/6 binary64) (.f64 th th)) (.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)))))))))))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) #s(approx (/ (+ (* (* kx kx) (/ 1/12 (sqrt 1/2))) (sqrt 1/2)) kx) (.f64 kx (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64)))))) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (- 1 (cos ( kx -2))) (.f64 #s(literal 2 binary64) (.f64 kx kx))))) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th))
(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky #s(approx (+ (* (* ky ky) (+ (/ -1/2 (pow (sin kx) 3)) (/ -1/6 (sin kx)))) (/ 1 (sin kx))) (/.f64 (fma.f64 (.f64 ky ky) #s(literal -1/2 binary64) (.f64 (.f64 kx kx) (fma.f64 (.f64 ky ky) #s(literal -5/12 binary64) #s(literal 1 binary64)))) (.f64 kx (.f64 kx kx)))))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (- 1 (cos ( kx -2))) (.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) #s(literal -2/3 binary64) #s(literal 2 binary64)))))) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th))
(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) #s(approx ( ky (+ (* (* ky ky) (+ (/ -1/2 (pow (sin kx) 3)) (/ -1/6 (sin kx)))) (/ 1 (sin kx)))) (/.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 ky (.f64 ky ky)) (.f64 (.f64 (.f64 kx kx) ky) (fma.f64 (.f64 ky ky) #s(literal -5/12 binary64) #s(literal 1 binary64)))) (.f64 kx (.f64 kx kx))))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th))
(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky #s(approx (+ (* (* ky ky) (+ (/ -1/2 (pow (sin kx) 3)) (/ -1/6 (sin kx)))) (/ 1 (sin kx))) (/.f64 (fma.f64 (.f64 kx kx) (fma.f64 (.f64 ky ky) #s(literal -5/12 binary64) (fma.f64 (.f64 kx kx) (fma.f64 (.f64 ky ky) #s(literal -71/720 binary64) #s(literal 1/6 binary64)) #s(literal 1 binary64))) (.f64 (.f64 ky ky) #s(literal -1/2 binary64))) (.f64 kx (.f64 kx kx)))))) (sin.f64 th))
(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) #s(approx ( ky (+ (* (* ky ky) (+ (/ -1/2 (pow (sin kx) 3)) (/ -1/6 (sin kx)))) (/ 1 (sin kx)))) (/.f64 (fma.f64 (.f64 kx kx) (fma.f64 ky (fma.f64 (.f64 ky ky) #s(literal -5/12 binary64) #s(literal 1 binary64)) (.f64 (.f64 (.f64 kx kx) ky) (fma.f64 (.f64 ky ky) #s(literal -71/720 binary64) #s(literal 1/6 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 ky (.f64 ky ky)))) (.f64 kx (*.f64 kx kx))))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) #s(approx (* (sqrt (/ 1 (- 1 (cos (* kx -2))))) (* ky (sqrt 2))) (/.f64 (fma.f64 #s(literal 1/12 binary64) (.f64 (.f64 ky (sqrt.f64 #s(literal 2 binary64))) (/.f64 (.f64 kx kx) (sqrt.f64 #s(literal 1/2 binary64)))) (.f64 (*.f64 ky (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 2 binary64)))) kx))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) #s(approx (* (sqrt (/ 1 (- 1 (cos (* kx -2))))) (* ky (sqrt 2))) (/.f64 (fma.f64 #s(literal 1/12 binary64) (/.f64 (.f64 (.f64 kx kx) (.f64 ky (sqrt.f64 #s(literal 2 binary64)))) (sqrt.f64 #s(literal 1/2 binary64))) (.f64 (*.f64 ky (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 2 binary64)))) kx))) (sin.f64 th))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (/.f64 (*.f64 ky (sin.f64 th)) (sin.f64 kx)))
(*.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (/.f64 ky (sin.f64 kx))) (sin.f64 th))
(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky #s(approx (+ (* (* ky ky) (+ (/ -1/2 (pow (sin kx) 3)) (/ -1/6 (sin kx)))) (/ 1 (sin kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (sin.f64 th))
(/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) #s(approx (+ (* -1/2 (cos (* ky -2))) 1/2) (*.f64 ky ky)))))
(/.f64 #s(approx (* (sin ky) (sin th)) (.f64 th (sin.f64 ky))) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))
(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 #s(approx (pow (sin kx) 2) (.f64 kx kx)) #s(approx (pow (sin ky) 2) (*.f64 ky ky))))) (sin.f64 th))
(.f64 (sin.f64 th) #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (/.f64 (.f64 ky (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))))
(/.f64 (.f64 (sin.f64 ky) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th))) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))
#s(approx (* (* (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (sin th)) (.f64 (.f64 (.f64 ky (sin.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))))
#s(approx (/ (* (sin ky) (sin th)) (sqrt (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (.f64 (.f64 (.f64 ky (sin.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))))
#s(approx (/ (* (sin ky) (sin th)) (sqrt (+ (* (- 1 (cos (+ kx kx))) 1/2) (pow (sin ky) 2)))) (.f64 (.f64 (.f64 ky (sin.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64)))))) (sqrt.f64 #s(literal 2 binary64))) ky)) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (/.f64 (.f64 #s(literal 1 binary64) ky) (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64)))))) (sqrt.f64 #s(literal 2 binary64)))) (sin.f64 th))
(.f64 (.f64 (sqrt.f64 #s(approx (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky)))))) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) (fma.f64 kx kx #s(literal 1/2 binary64)))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 ky ky))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) #s(approx (sin ky) (fma.f64 ky (.f64 #s(literal -1/6 binary64) (*.f64 ky ky)) ky))) (sin.f64 th))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(approx (- 1 (cos (+ kx kx))) (.f64 #s(literal 2 binary64) (.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) (fma.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) #s(literal -1/3 binary64) #s(literal 1 binary64)) #s(literal 1/2 binary64)))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) #s(approx (sin ky) (.f64 ky (fma.f64 (.f64 ky ky) (fma.f64 #s(literal 1/120 binary64) (.f64 ky ky) #s(literal -1/6 binary64)) #s(literal 1 binary64))))) (sin.f64 th))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(approx (- 1 (cos (+ kx kx))) (.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) #s(literal -2/3 binary64) #s(literal 2 binary64)))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (*.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) (fma.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) #s(literal 2/45 binary64) #s(literal -1/3 binary64)) #s(literal 1 binary64)) #s(literal 1/2 binary64)))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (*.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) #s(approx (sin ky) (fma.f64 ky (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 #s(literal -1/5040 binary64) (*.f64 ky ky) #s(literal 1/120 binary64)) #s(literal -1/6 binary64))) ky))) (sin.f64 th))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal 2/45 binary64) #s(literal -1/3 binary64)) #s(literal 1 binary64))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (*.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/315 binary64) #s(literal 2/45 binary64)) #s(literal -1/3 binary64)) #s(literal 1 binary64))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th)))
(*.f64 (/.f64 (sin.f64 ky) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx))) (sin.f64 th))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(approx (- 1 (cos (+ kx kx))) (.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) #s(literal -2/315 binary64) #s(literal 4/45 binary64)) #s(literal -2/3 binary64)) #s(literal 2 binary64)))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (*.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (fma.f64 (.f64 kx kx) (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) #s(literal 1 binary64))) (sin.f64 th))
(.f64 (sin.f64 th) (/.f64 (sin.f64 ky) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(.f64 (/.f64 (sin.f64 th) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) (sin.f64 ky))
(/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))
(.f64 (.f64 (sqrt.f64 #s(approx (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky)))))) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64))))))) (sin.f64 ky)) (sin.f64 th))
(/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))))
(/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64)))))
#s(approx (* (* (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (sin th)) (.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(.f64 (sin.f64 th) (.f64 (sin.f64 ky) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) (sin.f64 ky)) (sin.f64 th))
(/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) (fma.f64 kx kx #s(literal 1/2 binary64))))))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) (fma.f64 kx kx #s(literal 1/2 binary64)))))) (sin.f64 ky)) (sin.f64 th))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (*.f64 ky ky))))) (sin.f64 ky)) (sin.f64 th))
(/.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))) (.f64 (sin.f64 ky) (sin.f64 th))))
(/.f64 #s(approx (* (sin ky) (sin th)) (.f64 th (sin.f64 ky))) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))))
(/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) #s(approx (sqrt (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky)))))) (.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))) (sqrt.f64 #s(literal 1/2 binary64)))))
(/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) #s(approx (sqrt (+ ( (- 1 (cos (+ kx kx))) 1/2) (pow (sin ky) 2))) (.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))) (sqrt.f64 #s(literal 1/2 binary64)))))
(.f64 (/.f64 #s(approx (sin ky) (fma.f64 ky (.f64 (.f64 ky ky) #s(literal -1/6 binary64)) ky)) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky))))) (sin.f64 th))
(/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 #s(approx (- 1 (cos (+ kx kx))) (.f64 #s(literal 2 binary64) (.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))))
#s(approx (* (* (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (sin th)) (.f64 (.f64 th (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))))
#s(approx (/ (* (sin ky) (sin th)) (sqrt (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (.f64 (.f64 th (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))))
#s(approx (/ (* (sin ky) (sin th)) (sqrt (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (.f64 (.f64 th (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(approx (- 1 (cos (+ kx kx))) (.f64 #s(literal 2 binary64) (.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) (sin.f64 th))
(.f64 (/.f64 #s(approx (sin ky) (.f64 ky (fma.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal 1/120 binary64) #s(literal -1/6 binary64)) #s(literal 1 binary64)))) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (*.f64 ky ky))))) (sin.f64 th))
(.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 ky (*.f64 ky #s(literal -1/3 binary64)) #s(literal 1 binary64))))))))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 ky (*.f64 ky #s(literal -1/3 binary64)) #s(literal 1 binary64))))))) (sin.f64 th)) (sin.f64 ky))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (*.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) (sin.f64 ky)) (sin.f64 th))
(/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 #s(approx (- 1 (cos (+ kx kx))) (.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) #s(literal -2/3 binary64) #s(literal 2 binary64)))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))))
(/.f64 #s(approx (* (sin ky) (sin th)) (.f64 th (.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 th th) #s(literal 1 binary64)) (sin.f64 ky)))) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(approx (- 1 (cos (+ kx kx))) (.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) #s(literal -2/3 binary64) #s(literal 2 binary64)))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) (sin.f64 th))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (*.f64 th th)) th)))
(/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 ( -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal 2/45 binary64) #s(literal -1/3 binary64)) #s(literal 1 binary64)))))))
(/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (pow (sin ky) 2) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 (*.f64 ky ky) #s(literal 2/45 binary64) #s(literal -1/3 binary64)) #s(literal 1 binary64)))))))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal 2/45 binary64) #s(literal -1/3 binary64)) #s(literal 1 binary64))))))) (sin.f64 ky)) (sin.f64 th))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (*.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 kx #s(literal -2 binary64))))))) (+.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #s(approx (sin th) (.f64 th (fma.f64 (.f64 th th) (fma.f64 (.f64 th th) (fma.f64 #s(literal -1/5040 binary64) (*.f64 th th) #s(literal 1/120 binary64)) #s(literal -1/6 binary64)) #s(literal 1 binary64)))))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 (.f64 th th) (fma.f64 #s(literal -1/5040 binary64) (*.f64 th th) #s(literal 1/120 binary64)) #s(literal -1/6 binary64))) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (fma.f64 (.f64 #s(literal -1/2 binary64) (sin.f64 th)) (/.f64 (.f64 kx kx) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) (sin.f64 th)))

Outputs
(.f64 (/.f64 (sin.f64 th) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) (sin.f64 ky))
(/.f64 #s(approx (* (sin ky) (sin th)) (.f64 th (sin.f64 ky))) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))))
(.f64 (/.f64 #s(approx (sin ky) (fma.f64 ky (.f64 (.f64 ky ky) #s(literal -1/6 binary64)) ky)) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky))))) (sin.f64 th))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #s(approx (sin th) (.f64 th (fma.f64 (.f64 th th) (fma.f64 (.f64 th th) (fma.f64 #s(literal -1/5040 binary64) (*.f64 th th) #s(literal 1/120 binary64)) #s(literal -1/6 binary64)) #s(literal 1 binary64)))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th))

Calls

1 calls:

32.0ms

(/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))))

Results

Accuracy	Segments	Branch
84.9%	5	`(/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))))`

Compiler

Compiled 16 to 11 computations (31.3% saved)

regimes37.0ms (0.3%)

Memory

2.0MiB live, 83.4MiB allocated

Counts

96 → 5

Calls

Call 1

Inputs
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 #s(literal -1/6 binary64) (.f64 th (*.f64 th th))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 (.f64 #s(literal -1/6 binary64) (*.f64 th th)) th))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 (.f64 th th) (*.f64 th #s(literal -1/6 binary64))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th #s(literal -1/6 binary64)) th) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 (.f64 th th) (.f64 th #s(literal -1/6 binary64)) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 (.f64 th (.f64 th th)) #s(literal -1/6 binary64) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (+.f64 (.f64 th (.f64 #s(literal -1/6 binary64) (*.f64 th th))) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (*.f64 th th) #s(literal -1/6 binary64))) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 (.f64 th (.f64 th th)) (+.f64 #s(literal -1/6 binary64) (/.f64 #s(literal 1 binary64) (.f64 th th)))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (/.f64 (-.f64 (.f64 th th) (.f64 th (.f64 (.f64 #s(literal -1/6 binary64) (.f64 th th)) (.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)))))) (-.f64 th (.f64 th (.f64 #s(literal -1/6 binary64) (*.f64 th th)))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (.f64 (.f64 (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) (neg.f64 th))) (/.f64 #s(literal 1 binary64) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) (neg.f64 th))))))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th))
(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky #s(approx (+ (* (* ky ky) (+ (/ -1/2 (pow (sin kx) 3)) (/ -1/6 (sin kx)))) (/ 1 (sin kx))) (/.f64 (.f64 (.f64 ky ky) #s(literal -1/2 binary64)) (.f64 kx (.f64 kx kx)))))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) #s(approx (* (sqrt (/ 1 (- 1 (cos (* kx -2))))) (* ky (sqrt 2))) (.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(literal 1/2 binary64))) (/.f64 ky kx)))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) kx)) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 th (-.f64 th (.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)))) (.f64 th (.f64 (.f64 #s(literal -1/6 binary64) (.f64 th th)) (.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)))))) (fma.f64 th (.f64 th th) (.f64 (.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th))) (.f64 th (.f64 (.f64 #s(literal -1/6 binary64) (.f64 th th)) (.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)))))))))))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) #s(approx (/ (+ (* (* kx kx) (/ 1/12 (sqrt 1/2))) (sqrt 1/2)) kx) (.f64 kx (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64)))))) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (- 1 (cos ( kx -2))) (.f64 #s(literal 2 binary64) (.f64 kx kx))))) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th))
(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky #s(approx (+ (* (* ky ky) (+ (/ -1/2 (pow (sin kx) 3)) (/ -1/6 (sin kx)))) (/ 1 (sin kx))) (/.f64 (fma.f64 (.f64 ky ky) #s(literal -1/2 binary64) (.f64 (.f64 kx kx) (fma.f64 (.f64 ky ky) #s(literal -5/12 binary64) #s(literal 1 binary64)))) (.f64 kx (.f64 kx kx)))))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (- 1 (cos ( kx -2))) (.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) #s(literal -2/3 binary64) #s(literal 2 binary64)))))) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th))
(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) #s(approx ( ky (+ (* (* ky ky) (+ (/ -1/2 (pow (sin kx) 3)) (/ -1/6 (sin kx)))) (/ 1 (sin kx)))) (/.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 ky (.f64 ky ky)) (.f64 (.f64 (.f64 kx kx) ky) (fma.f64 (.f64 ky ky) #s(literal -5/12 binary64) #s(literal 1 binary64)))) (.f64 kx (.f64 kx kx))))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th))
(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky #s(approx (+ (* (* ky ky) (+ (/ -1/2 (pow (sin kx) 3)) (/ -1/6 (sin kx)))) (/ 1 (sin kx))) (/.f64 (fma.f64 (.f64 kx kx) (fma.f64 (.f64 ky ky) #s(literal -5/12 binary64) (fma.f64 (.f64 kx kx) (fma.f64 (.f64 ky ky) #s(literal -71/720 binary64) #s(literal 1/6 binary64)) #s(literal 1 binary64))) (.f64 (.f64 ky ky) #s(literal -1/2 binary64))) (.f64 kx (.f64 kx kx)))))) (sin.f64 th))
(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) #s(approx ( ky (+ (* (* ky ky) (+ (/ -1/2 (pow (sin kx) 3)) (/ -1/6 (sin kx)))) (/ 1 (sin kx)))) (/.f64 (fma.f64 (.f64 kx kx) (fma.f64 ky (fma.f64 (.f64 ky ky) #s(literal -5/12 binary64) #s(literal 1 binary64)) (.f64 (.f64 (.f64 kx kx) ky) (fma.f64 (.f64 ky ky) #s(literal -71/720 binary64) #s(literal 1/6 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 ky (.f64 ky ky)))) (.f64 kx (*.f64 kx kx))))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) #s(approx (* (sqrt (/ 1 (- 1 (cos (* kx -2))))) (* ky (sqrt 2))) (/.f64 (fma.f64 #s(literal 1/12 binary64) (.f64 (.f64 ky (sqrt.f64 #s(literal 2 binary64))) (/.f64 (.f64 kx kx) (sqrt.f64 #s(literal 1/2 binary64)))) (.f64 (*.f64 ky (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 2 binary64)))) kx))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) #s(approx (* (sqrt (/ 1 (- 1 (cos (* kx -2))))) (* ky (sqrt 2))) (/.f64 (fma.f64 #s(literal 1/12 binary64) (/.f64 (.f64 (.f64 kx kx) (.f64 ky (sqrt.f64 #s(literal 2 binary64)))) (sqrt.f64 #s(literal 1/2 binary64))) (.f64 (*.f64 ky (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 2 binary64)))) kx))) (sin.f64 th))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (/.f64 (*.f64 ky (sin.f64 th)) (sin.f64 kx)))
(*.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (/.f64 ky (sin.f64 kx))) (sin.f64 th))
(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky #s(approx (+ (* (* ky ky) (+ (/ -1/2 (pow (sin kx) 3)) (/ -1/6 (sin kx)))) (/ 1 (sin kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (sin.f64 th))
(/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) #s(approx (+ (* -1/2 (cos (* ky -2))) 1/2) (*.f64 ky ky)))))
(/.f64 #s(approx (* (sin ky) (sin th)) (.f64 th (sin.f64 ky))) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))
(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 #s(approx (pow (sin kx) 2) (.f64 kx kx)) #s(approx (pow (sin ky) 2) (*.f64 ky ky))))) (sin.f64 th))
(.f64 (sin.f64 th) #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (/.f64 (.f64 ky (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))))
(/.f64 (.f64 (sin.f64 ky) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th))) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))
#s(approx (* (* (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (sin th)) (.f64 (.f64 (.f64 ky (sin.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))))
#s(approx (/ (* (sin ky) (sin th)) (sqrt (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (.f64 (.f64 (.f64 ky (sin.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))))
#s(approx (/ (* (sin ky) (sin th)) (sqrt (+ (* (- 1 (cos (+ kx kx))) 1/2) (pow (sin ky) 2)))) (.f64 (.f64 (.f64 ky (sin.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64)))))) (sqrt.f64 #s(literal 2 binary64))) ky)) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (/.f64 (.f64 #s(literal 1 binary64) ky) (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64)))))) (sqrt.f64 #s(literal 2 binary64)))) (sin.f64 th))
(.f64 (.f64 (sqrt.f64 #s(approx (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky)))))) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) (fma.f64 kx kx #s(literal 1/2 binary64)))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 ky ky))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) #s(approx (sin ky) (fma.f64 ky (.f64 #s(literal -1/6 binary64) (*.f64 ky ky)) ky))) (sin.f64 th))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(approx (- 1 (cos (+ kx kx))) (.f64 #s(literal 2 binary64) (.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) (fma.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) #s(literal -1/3 binary64) #s(literal 1 binary64)) #s(literal 1/2 binary64)))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) #s(approx (sin ky) (.f64 ky (fma.f64 (.f64 ky ky) (fma.f64 #s(literal 1/120 binary64) (.f64 ky ky) #s(literal -1/6 binary64)) #s(literal 1 binary64))))) (sin.f64 th))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(approx (- 1 (cos (+ kx kx))) (.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) #s(literal -2/3 binary64) #s(literal 2 binary64)))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (*.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) (fma.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) #s(literal 2/45 binary64) #s(literal -1/3 binary64)) #s(literal 1 binary64)) #s(literal 1/2 binary64)))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (*.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) #s(approx (sin ky) (fma.f64 ky (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 #s(literal -1/5040 binary64) (*.f64 ky ky) #s(literal 1/120 binary64)) #s(literal -1/6 binary64))) ky))) (sin.f64 th))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal 2/45 binary64) #s(literal -1/3 binary64)) #s(literal 1 binary64))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (*.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/315 binary64) #s(literal 2/45 binary64)) #s(literal -1/3 binary64)) #s(literal 1 binary64))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th)))
(*.f64 (/.f64 (sin.f64 ky) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx))) (sin.f64 th))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(approx (- 1 (cos (+ kx kx))) (.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) #s(literal -2/315 binary64) #s(literal 4/45 binary64)) #s(literal -2/3 binary64)) #s(literal 2 binary64)))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (*.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (fma.f64 (.f64 kx kx) (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) #s(literal 1 binary64))) (sin.f64 th))
(.f64 (sin.f64 th) (/.f64 (sin.f64 ky) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(.f64 (/.f64 (sin.f64 th) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) (sin.f64 ky))
(/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))
(.f64 (.f64 (sqrt.f64 #s(approx (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky)))))) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64))))))) (sin.f64 ky)) (sin.f64 th))
(/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))))
(/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64)))))
#s(approx (* (* (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (sin th)) (.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(.f64 (sin.f64 th) (.f64 (sin.f64 ky) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) (sin.f64 ky)) (sin.f64 th))
(/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) (fma.f64 kx kx #s(literal 1/2 binary64))))))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) (fma.f64 kx kx #s(literal 1/2 binary64)))))) (sin.f64 ky)) (sin.f64 th))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (*.f64 ky ky))))) (sin.f64 ky)) (sin.f64 th))
(/.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))) (.f64 (sin.f64 ky) (sin.f64 th))))
(/.f64 #s(approx (* (sin ky) (sin th)) (.f64 th (sin.f64 ky))) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))))
(/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) #s(approx (sqrt (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky)))))) (.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))) (sqrt.f64 #s(literal 1/2 binary64)))))
(/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) #s(approx (sqrt (+ ( (- 1 (cos (+ kx kx))) 1/2) (pow (sin ky) 2))) (.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))) (sqrt.f64 #s(literal 1/2 binary64)))))
(.f64 (/.f64 #s(approx (sin ky) (fma.f64 ky (.f64 (.f64 ky ky) #s(literal -1/6 binary64)) ky)) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky))))) (sin.f64 th))
(/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 #s(approx (- 1 (cos (+ kx kx))) (.f64 #s(literal 2 binary64) (.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))))
#s(approx (* (* (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (sin th)) (.f64 (.f64 th (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))))
#s(approx (/ (* (sin ky) (sin th)) (sqrt (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (.f64 (.f64 th (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))))
#s(approx (/ (* (sin ky) (sin th)) (sqrt (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (.f64 (.f64 th (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(approx (- 1 (cos (+ kx kx))) (.f64 #s(literal 2 binary64) (.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) (sin.f64 th))
(.f64 (/.f64 #s(approx (sin ky) (.f64 ky (fma.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal 1/120 binary64) #s(literal -1/6 binary64)) #s(literal 1 binary64)))) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (*.f64 ky ky))))) (sin.f64 th))
(.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 ky (*.f64 ky #s(literal -1/3 binary64)) #s(literal 1 binary64))))))))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 ky (*.f64 ky #s(literal -1/3 binary64)) #s(literal 1 binary64))))))) (sin.f64 th)) (sin.f64 ky))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (*.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) (sin.f64 ky)) (sin.f64 th))
(/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 #s(approx (- 1 (cos (+ kx kx))) (.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) #s(literal -2/3 binary64) #s(literal 2 binary64)))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))))
(/.f64 #s(approx (* (sin ky) (sin th)) (.f64 th (.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 th th) #s(literal 1 binary64)) (sin.f64 ky)))) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(approx (- 1 (cos (+ kx kx))) (.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) #s(literal -2/3 binary64) #s(literal 2 binary64)))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) (sin.f64 th))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (*.f64 th th)) th)))
(/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 ( -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal 2/45 binary64) #s(literal -1/3 binary64)) #s(literal 1 binary64)))))))
(/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (pow (sin ky) 2) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 (*.f64 ky ky) #s(literal 2/45 binary64) #s(literal -1/3 binary64)) #s(literal 1 binary64)))))))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal 2/45 binary64) #s(literal -1/3 binary64)) #s(literal 1 binary64))))))) (sin.f64 ky)) (sin.f64 th))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (*.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/2 binary64) (cos.f64 (.f64 #s(literal 2 binary64) (.f64 kx #s(literal -2 binary64))))))) (+.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th))

Outputs
(.f64 (/.f64 (sin.f64 th) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) (sin.f64 ky))
(/.f64 #s(approx (* (sin ky) (sin th)) (.f64 th (sin.f64 ky))) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))))
(.f64 (/.f64 #s(approx (sin ky) (fma.f64 ky (.f64 (.f64 ky ky) #s(literal -1/6 binary64)) ky)) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky))))) (sin.f64 th))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (*.f64 th th) #s(literal -1/6 binary64))) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th))

Calls

1 calls:

31.0ms

(/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))))

Results

Accuracy	Segments	Branch
84.9%	5	`(/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))))`

Compiler

Compiled 16 to 11 computations (31.3% saved)

regimes35.0ms (0.3%)

Memory

-11.9MiB live, 64.1MiB allocated

Counts

93 → 5

Calls

Call 1

Inputs
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 #s(literal -1/6 binary64) (.f64 th (*.f64 th th))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 (.f64 #s(literal -1/6 binary64) (*.f64 th th)) th))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 (.f64 th th) (*.f64 th #s(literal -1/6 binary64))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th #s(literal -1/6 binary64)) th) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 (.f64 th th) (.f64 th #s(literal -1/6 binary64)) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 (.f64 th (.f64 th th)) #s(literal -1/6 binary64) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (+.f64 (.f64 th (.f64 #s(literal -1/6 binary64) (*.f64 th th))) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (*.f64 th th) #s(literal -1/6 binary64))) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 (.f64 th (.f64 th th)) (+.f64 #s(literal -1/6 binary64) (/.f64 #s(literal 1 binary64) (.f64 th th)))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (/.f64 (-.f64 (.f64 th th) (.f64 th (.f64 (.f64 #s(literal -1/6 binary64) (.f64 th th)) (.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)))))) (-.f64 th (.f64 th (.f64 #s(literal -1/6 binary64) (*.f64 th th)))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (.f64 (.f64 (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) (neg.f64 th))) (/.f64 #s(literal 1 binary64) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) (neg.f64 th))))))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th))
(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky #s(approx (+ (* (* ky ky) (+ (/ -1/2 (pow (sin kx) 3)) (/ -1/6 (sin kx)))) (/ 1 (sin kx))) (/.f64 (.f64 (.f64 ky ky) #s(literal -1/2 binary64)) (.f64 kx (.f64 kx kx)))))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) #s(approx (* (sqrt (/ 1 (- 1 (cos (* kx -2))))) (* ky (sqrt 2))) (.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(literal 1/2 binary64))) (/.f64 ky kx)))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) kx)) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 th (-.f64 th (.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)))) (.f64 th (.f64 (.f64 #s(literal -1/6 binary64) (.f64 th th)) (.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)))))) (fma.f64 th (.f64 th th) (.f64 (.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th))) (.f64 th (.f64 (.f64 #s(literal -1/6 binary64) (.f64 th th)) (.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)))))))))))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) #s(approx (/ (+ (* (* kx kx) (/ 1/12 (sqrt 1/2))) (sqrt 1/2)) kx) (.f64 kx (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64)))))) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (- 1 (cos ( kx -2))) (.f64 #s(literal 2 binary64) (.f64 kx kx))))) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th))
(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky #s(approx (+ (* (* ky ky) (+ (/ -1/2 (pow (sin kx) 3)) (/ -1/6 (sin kx)))) (/ 1 (sin kx))) (/.f64 (fma.f64 (.f64 ky ky) #s(literal -1/2 binary64) (.f64 (.f64 kx kx) (fma.f64 (.f64 ky ky) #s(literal -5/12 binary64) #s(literal 1 binary64)))) (.f64 kx (.f64 kx kx)))))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (- 1 (cos ( kx -2))) (.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) #s(literal -2/3 binary64) #s(literal 2 binary64)))))) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th))
(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) #s(approx ( ky (+ (* (* ky ky) (+ (/ -1/2 (pow (sin kx) 3)) (/ -1/6 (sin kx)))) (/ 1 (sin kx)))) (/.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 ky (.f64 ky ky)) (.f64 (.f64 (.f64 kx kx) ky) (fma.f64 (.f64 ky ky) #s(literal -5/12 binary64) #s(literal 1 binary64)))) (.f64 kx (.f64 kx kx))))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th))
(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky #s(approx (+ (* (* ky ky) (+ (/ -1/2 (pow (sin kx) 3)) (/ -1/6 (sin kx)))) (/ 1 (sin kx))) (/.f64 (fma.f64 (.f64 kx kx) (fma.f64 (.f64 ky ky) #s(literal -5/12 binary64) (fma.f64 (.f64 kx kx) (fma.f64 (.f64 ky ky) #s(literal -71/720 binary64) #s(literal 1/6 binary64)) #s(literal 1 binary64))) (.f64 (.f64 ky ky) #s(literal -1/2 binary64))) (.f64 kx (.f64 kx kx)))))) (sin.f64 th))
(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) #s(approx ( ky (+ (* (* ky ky) (+ (/ -1/2 (pow (sin kx) 3)) (/ -1/6 (sin kx)))) (/ 1 (sin kx)))) (/.f64 (fma.f64 (.f64 kx kx) (fma.f64 ky (fma.f64 (.f64 ky ky) #s(literal -5/12 binary64) #s(literal 1 binary64)) (.f64 (.f64 (.f64 kx kx) ky) (fma.f64 (.f64 ky ky) #s(literal -71/720 binary64) #s(literal 1/6 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 ky (.f64 ky ky)))) (.f64 kx (*.f64 kx kx))))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) #s(approx (* (sqrt (/ 1 (- 1 (cos (* kx -2))))) (* ky (sqrt 2))) (/.f64 (fma.f64 #s(literal 1/12 binary64) (.f64 (.f64 ky (sqrt.f64 #s(literal 2 binary64))) (/.f64 (.f64 kx kx) (sqrt.f64 #s(literal 1/2 binary64)))) (.f64 (*.f64 ky (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 2 binary64)))) kx))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) #s(approx (* (sqrt (/ 1 (- 1 (cos (* kx -2))))) (* ky (sqrt 2))) (/.f64 (fma.f64 #s(literal 1/12 binary64) (/.f64 (.f64 (.f64 kx kx) (.f64 ky (sqrt.f64 #s(literal 2 binary64)))) (sqrt.f64 #s(literal 1/2 binary64))) (.f64 (*.f64 ky (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 2 binary64)))) kx))) (sin.f64 th))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (/.f64 (*.f64 ky (sin.f64 th)) (sin.f64 kx)))
(*.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (/.f64 ky (sin.f64 kx))) (sin.f64 th))
(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky #s(approx (+ (* (* ky ky) (+ (/ -1/2 (pow (sin kx) 3)) (/ -1/6 (sin kx)))) (/ 1 (sin kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (sin.f64 th))
(/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) #s(approx (+ (* -1/2 (cos (* ky -2))) 1/2) (*.f64 ky ky)))))
(/.f64 #s(approx (* (sin ky) (sin th)) (.f64 th (sin.f64 ky))) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))
(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 #s(approx (pow (sin kx) 2) (.f64 kx kx)) #s(approx (pow (sin ky) 2) (*.f64 ky ky))))) (sin.f64 th))
(.f64 (sin.f64 th) #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (/.f64 (.f64 ky (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))))
(/.f64 (.f64 (sin.f64 ky) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th))) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))
#s(approx (* (* (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (sin th)) (.f64 (.f64 (.f64 ky (sin.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))))
#s(approx (/ (* (sin ky) (sin th)) (sqrt (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (.f64 (.f64 (.f64 ky (sin.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))))
#s(approx (/ (* (sin ky) (sin th)) (sqrt (+ (* (- 1 (cos (+ kx kx))) 1/2) (pow (sin ky) 2)))) (.f64 (.f64 (.f64 ky (sin.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64)))))) (sqrt.f64 #s(literal 2 binary64))) ky)) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (/.f64 (.f64 #s(literal 1 binary64) ky) (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64)))))) (sqrt.f64 #s(literal 2 binary64)))) (sin.f64 th))
(.f64 (.f64 (sqrt.f64 #s(approx (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky)))))) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) (fma.f64 kx kx #s(literal 1/2 binary64)))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 ky ky))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) #s(approx (sin ky) (fma.f64 ky (.f64 #s(literal -1/6 binary64) (*.f64 ky ky)) ky))) (sin.f64 th))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(approx (- 1 (cos (+ kx kx))) (.f64 #s(literal 2 binary64) (.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) (fma.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) #s(literal -1/3 binary64) #s(literal 1 binary64)) #s(literal 1/2 binary64)))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) #s(approx (sin ky) (.f64 ky (fma.f64 (.f64 ky ky) (fma.f64 #s(literal 1/120 binary64) (.f64 ky ky) #s(literal -1/6 binary64)) #s(literal 1 binary64))))) (sin.f64 th))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(approx (- 1 (cos (+ kx kx))) (.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) #s(literal -2/3 binary64) #s(literal 2 binary64)))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (*.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) (fma.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) #s(literal 2/45 binary64) #s(literal -1/3 binary64)) #s(literal 1 binary64)) #s(literal 1/2 binary64)))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (*.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) #s(approx (sin ky) (fma.f64 ky (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 #s(literal -1/5040 binary64) (*.f64 ky ky) #s(literal 1/120 binary64)) #s(literal -1/6 binary64))) ky))) (sin.f64 th))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal 2/45 binary64) #s(literal -1/3 binary64)) #s(literal 1 binary64))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (*.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/315 binary64) #s(literal 2/45 binary64)) #s(literal -1/3 binary64)) #s(literal 1 binary64))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th)))
(*.f64 (/.f64 (sin.f64 ky) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx))) (sin.f64 th))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(approx (- 1 (cos (+ kx kx))) (.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) #s(literal -2/315 binary64) #s(literal 4/45 binary64)) #s(literal -2/3 binary64)) #s(literal 2 binary64)))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (*.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (fma.f64 (.f64 kx kx) (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) #s(literal 1 binary64))) (sin.f64 th))
(.f64 (sin.f64 th) (/.f64 (sin.f64 ky) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(.f64 (/.f64 (sin.f64 th) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) (sin.f64 ky))
(/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))
(.f64 (.f64 (sqrt.f64 #s(approx (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky)))))) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64))))))) (sin.f64 ky)) (sin.f64 th))
(/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))))
(/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64)))))
#s(approx (* (* (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (sin th)) (.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(.f64 (sin.f64 th) (.f64 (sin.f64 ky) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) (sin.f64 ky)) (sin.f64 th))
(/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) (fma.f64 kx kx #s(literal 1/2 binary64))))))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) (fma.f64 kx kx #s(literal 1/2 binary64)))))) (sin.f64 ky)) (sin.f64 th))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (*.f64 ky ky))))) (sin.f64 ky)) (sin.f64 th))
(/.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))) (.f64 (sin.f64 ky) (sin.f64 th))))
(/.f64 #s(approx (* (sin ky) (sin th)) (.f64 th (sin.f64 ky))) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))))
(/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) #s(approx (sqrt (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky)))))) (.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))) (sqrt.f64 #s(literal 1/2 binary64)))))
(/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) #s(approx (sqrt (+ ( (- 1 (cos (+ kx kx))) 1/2) (pow (sin ky) 2))) (.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))) (sqrt.f64 #s(literal 1/2 binary64)))))
(.f64 (/.f64 #s(approx (sin ky) (fma.f64 ky (.f64 (.f64 ky ky) #s(literal -1/6 binary64)) ky)) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky))))) (sin.f64 th))
(/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 #s(approx (- 1 (cos (+ kx kx))) (.f64 #s(literal 2 binary64) (.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))))
#s(approx (* (* (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (sin th)) (.f64 (.f64 th (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))))
#s(approx (/ (* (sin ky) (sin th)) (sqrt (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (.f64 (.f64 th (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))))
#s(approx (/ (* (sin ky) (sin th)) (sqrt (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (.f64 (.f64 th (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(approx (- 1 (cos (+ kx kx))) (.f64 #s(literal 2 binary64) (.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) (sin.f64 th))
(.f64 (/.f64 #s(approx (sin ky) (.f64 ky (fma.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal 1/120 binary64) #s(literal -1/6 binary64)) #s(literal 1 binary64)))) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (*.f64 ky ky))))) (sin.f64 th))
(.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 ky (*.f64 ky #s(literal -1/3 binary64)) #s(literal 1 binary64))))))))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 ky (*.f64 ky #s(literal -1/3 binary64)) #s(literal 1 binary64))))))) (sin.f64 th)) (sin.f64 ky))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (*.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) (sin.f64 ky)) (sin.f64 th))
(/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 #s(approx (- 1 (cos (+ kx kx))) (.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) #s(literal -2/3 binary64) #s(literal 2 binary64)))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))))
(/.f64 #s(approx (* (sin ky) (sin th)) (.f64 th (.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 th th) #s(literal 1 binary64)) (sin.f64 ky)))) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(approx (- 1 (cos (+ kx kx))) (.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) #s(literal -2/3 binary64) #s(literal 2 binary64)))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) (sin.f64 th))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (*.f64 th th)) th)))
(/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 ( -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal 2/45 binary64) #s(literal -1/3 binary64)) #s(literal 1 binary64)))))))
(/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (pow (sin ky) 2) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 (*.f64 ky ky) #s(literal 2/45 binary64) #s(literal -1/3 binary64)) #s(literal 1 binary64)))))))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal 2/45 binary64) #s(literal -1/3 binary64)) #s(literal 1 binary64))))))) (sin.f64 ky)) (sin.f64 th))

Outputs
(.f64 (/.f64 (sin.f64 th) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) (sin.f64 ky))
(/.f64 #s(approx (* (sin ky) (sin th)) (.f64 th (sin.f64 ky))) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))))
(.f64 (/.f64 #s(approx (sin ky) (fma.f64 ky (.f64 (.f64 ky ky) #s(literal -1/6 binary64)) ky)) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky))))) (sin.f64 th))
#s(approx (* (* (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (sin th)) (.f64 (.f64 th (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th))

Calls

1 calls:

26.0ms

(/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))))

Results

Accuracy	Segments	Branch
84.8%	5	`(/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))))`

Compiler

Compiled 16 to 11 computations (31.3% saved)

regimes27.0ms (0.2%)

Memory

12.9MiB live, 57.1MiB allocated

Counts

78 → 5

Calls

Call 1

Inputs
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 #s(literal -1/6 binary64) (.f64 th (*.f64 th th))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 (.f64 #s(literal -1/6 binary64) (*.f64 th th)) th))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 (.f64 th th) (*.f64 th #s(literal -1/6 binary64))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th #s(literal -1/6 binary64)) th) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 (.f64 th th) (.f64 th #s(literal -1/6 binary64)) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 (.f64 th (.f64 th th)) #s(literal -1/6 binary64) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (+.f64 (.f64 th (.f64 #s(literal -1/6 binary64) (*.f64 th th))) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (*.f64 th th) #s(literal -1/6 binary64))) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 (.f64 th (.f64 th th)) (+.f64 #s(literal -1/6 binary64) (/.f64 #s(literal 1 binary64) (.f64 th th)))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (/.f64 (-.f64 (.f64 th th) (.f64 th (.f64 (.f64 #s(literal -1/6 binary64) (.f64 th th)) (.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)))))) (-.f64 th (.f64 th (.f64 #s(literal -1/6 binary64) (*.f64 th th)))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (.f64 (.f64 (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) (neg.f64 th))) (/.f64 #s(literal 1 binary64) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) (neg.f64 th))))))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th))
(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky #s(approx (+ (* (* ky ky) (+ (/ -1/2 (pow (sin kx) 3)) (/ -1/6 (sin kx)))) (/ 1 (sin kx))) (/.f64 (.f64 (.f64 ky ky) #s(literal -1/2 binary64)) (.f64 kx (.f64 kx kx)))))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) #s(approx (* (sqrt (/ 1 (- 1 (cos (* kx -2))))) (* ky (sqrt 2))) (.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(literal 1/2 binary64))) (/.f64 ky kx)))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) kx)) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 th (-.f64 th (.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)))) (.f64 th (.f64 (.f64 #s(literal -1/6 binary64) (.f64 th th)) (.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)))))) (fma.f64 th (.f64 th th) (.f64 (.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th))) (.f64 th (.f64 (.f64 #s(literal -1/6 binary64) (.f64 th th)) (.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)))))))))))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) #s(approx (/ (+ (* (* kx kx) (/ 1/12 (sqrt 1/2))) (sqrt 1/2)) kx) (.f64 kx (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64)))))) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (- 1 (cos ( kx -2))) (.f64 #s(literal 2 binary64) (.f64 kx kx))))) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th))
(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky #s(approx (+ (* (* ky ky) (+ (/ -1/2 (pow (sin kx) 3)) (/ -1/6 (sin kx)))) (/ 1 (sin kx))) (/.f64 (fma.f64 (.f64 ky ky) #s(literal -1/2 binary64) (.f64 (.f64 kx kx) (fma.f64 (.f64 ky ky) #s(literal -5/12 binary64) #s(literal 1 binary64)))) (.f64 kx (.f64 kx kx)))))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (- 1 (cos ( kx -2))) (.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) #s(literal -2/3 binary64) #s(literal 2 binary64)))))) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th))
(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) #s(approx ( ky (+ (* (* ky ky) (+ (/ -1/2 (pow (sin kx) 3)) (/ -1/6 (sin kx)))) (/ 1 (sin kx)))) (/.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 ky (.f64 ky ky)) (.f64 (.f64 (.f64 kx kx) ky) (fma.f64 (.f64 ky ky) #s(literal -5/12 binary64) #s(literal 1 binary64)))) (.f64 kx (.f64 kx kx))))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th))
(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky #s(approx (+ (* (* ky ky) (+ (/ -1/2 (pow (sin kx) 3)) (/ -1/6 (sin kx)))) (/ 1 (sin kx))) (/.f64 (fma.f64 (.f64 kx kx) (fma.f64 (.f64 ky ky) #s(literal -5/12 binary64) (fma.f64 (.f64 kx kx) (fma.f64 (.f64 ky ky) #s(literal -71/720 binary64) #s(literal 1/6 binary64)) #s(literal 1 binary64))) (.f64 (.f64 ky ky) #s(literal -1/2 binary64))) (.f64 kx (.f64 kx kx)))))) (sin.f64 th))
(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) #s(approx ( ky (+ (* (* ky ky) (+ (/ -1/2 (pow (sin kx) 3)) (/ -1/6 (sin kx)))) (/ 1 (sin kx)))) (/.f64 (fma.f64 (.f64 kx kx) (fma.f64 ky (fma.f64 (.f64 ky ky) #s(literal -5/12 binary64) #s(literal 1 binary64)) (.f64 (.f64 (.f64 kx kx) ky) (fma.f64 (.f64 ky ky) #s(literal -71/720 binary64) #s(literal 1/6 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 ky (.f64 ky ky)))) (.f64 kx (*.f64 kx kx))))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) #s(approx (* (sqrt (/ 1 (- 1 (cos (* kx -2))))) (* ky (sqrt 2))) (/.f64 (fma.f64 #s(literal 1/12 binary64) (.f64 (.f64 ky (sqrt.f64 #s(literal 2 binary64))) (/.f64 (.f64 kx kx) (sqrt.f64 #s(literal 1/2 binary64)))) (.f64 (*.f64 ky (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 2 binary64)))) kx))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) #s(approx (* (sqrt (/ 1 (- 1 (cos (* kx -2))))) (* ky (sqrt 2))) (/.f64 (fma.f64 #s(literal 1/12 binary64) (/.f64 (.f64 (.f64 kx kx) (.f64 ky (sqrt.f64 #s(literal 2 binary64)))) (sqrt.f64 #s(literal 1/2 binary64))) (.f64 (*.f64 ky (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 2 binary64)))) kx))) (sin.f64 th))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (/.f64 (*.f64 ky (sin.f64 th)) (sin.f64 kx)))
(*.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (/.f64 ky (sin.f64 kx))) (sin.f64 th))
(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky #s(approx (+ (* (* ky ky) (+ (/ -1/2 (pow (sin kx) 3)) (/ -1/6 (sin kx)))) (/ 1 (sin kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (sin.f64 th))
(/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) #s(approx (+ (* -1/2 (cos (* ky -2))) 1/2) (*.f64 ky ky)))))
(/.f64 #s(approx (* (sin ky) (sin th)) (.f64 th (sin.f64 ky))) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))
(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 #s(approx (pow (sin kx) 2) (.f64 kx kx)) #s(approx (pow (sin ky) 2) (*.f64 ky ky))))) (sin.f64 th))
(.f64 (sin.f64 th) #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (/.f64 (.f64 ky (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))))
(/.f64 (.f64 (sin.f64 ky) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th))) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))
#s(approx (* (* (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (sin th)) (.f64 (.f64 (.f64 ky (sin.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))))
#s(approx (/ (* (sin ky) (sin th)) (sqrt (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (.f64 (.f64 (.f64 ky (sin.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))))
#s(approx (/ (* (sin ky) (sin th)) (sqrt (+ (* (- 1 (cos (+ kx kx))) 1/2) (pow (sin ky) 2)))) (.f64 (.f64 (.f64 ky (sin.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64)))))) (sqrt.f64 #s(literal 2 binary64))) ky)) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (/.f64 (.f64 #s(literal 1 binary64) ky) (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64)))))) (sqrt.f64 #s(literal 2 binary64)))) (sin.f64 th))
(.f64 (.f64 (sqrt.f64 #s(approx (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky)))))) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) (fma.f64 kx kx #s(literal 1/2 binary64)))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 ky ky))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) #s(approx (sin ky) (fma.f64 ky (.f64 #s(literal -1/6 binary64) (*.f64 ky ky)) ky))) (sin.f64 th))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(approx (- 1 (cos (+ kx kx))) (.f64 #s(literal 2 binary64) (.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) (fma.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) #s(literal -1/3 binary64) #s(literal 1 binary64)) #s(literal 1/2 binary64)))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) #s(approx (sin ky) (.f64 ky (fma.f64 (.f64 ky ky) (fma.f64 #s(literal 1/120 binary64) (.f64 ky ky) #s(literal -1/6 binary64)) #s(literal 1 binary64))))) (sin.f64 th))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(approx (- 1 (cos (+ kx kx))) (.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) #s(literal -2/3 binary64) #s(literal 2 binary64)))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (*.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) (fma.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) #s(literal 2/45 binary64) #s(literal -1/3 binary64)) #s(literal 1 binary64)) #s(literal 1/2 binary64)))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (*.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) #s(approx (sin ky) (fma.f64 ky (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 #s(literal -1/5040 binary64) (*.f64 ky ky) #s(literal 1/120 binary64)) #s(literal -1/6 binary64))) ky))) (sin.f64 th))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal 2/45 binary64) #s(literal -1/3 binary64)) #s(literal 1 binary64))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (*.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/315 binary64) #s(literal 2/45 binary64)) #s(literal -1/3 binary64)) #s(literal 1 binary64))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th)))
(*.f64 (/.f64 (sin.f64 ky) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx))) (sin.f64 th))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(approx (- 1 (cos (+ kx kx))) (.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) #s(literal -2/315 binary64) #s(literal 4/45 binary64)) #s(literal -2/3 binary64)) #s(literal 2 binary64)))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (*.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (fma.f64 (.f64 kx kx) (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) #s(literal 1 binary64))) (sin.f64 th))
(.f64 (sin.f64 th) (/.f64 (sin.f64 ky) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(.f64 (/.f64 (sin.f64 th) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) (sin.f64 ky))
(/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))
(.f64 (.f64 (sqrt.f64 #s(approx (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky)))))) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64))))))) (sin.f64 ky)) (sin.f64 th))
(/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))))
(/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64)))))
#s(approx (* (* (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (sin th)) (.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(.f64 (sin.f64 th) (.f64 (sin.f64 ky) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) (sin.f64 ky)) (sin.f64 th))
(/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) (fma.f64 kx kx #s(literal 1/2 binary64))))))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) (fma.f64 kx kx #s(literal 1/2 binary64)))))) (sin.f64 ky)) (sin.f64 th))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (*.f64 ky ky))))) (sin.f64 ky)) (sin.f64 th))
(/.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))) (.f64 (sin.f64 ky) (sin.f64 th))))
(/.f64 #s(approx (* (sin ky) (sin th)) (.f64 th (sin.f64 ky))) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))))
(/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) #s(approx (sqrt (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky)))))) (.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))) (sqrt.f64 #s(literal 1/2 binary64)))))
(/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) #s(approx (sqrt (+ ( (- 1 (cos (+ kx kx))) 1/2) (pow (sin ky) 2))) (.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))) (sqrt.f64 #s(literal 1/2 binary64)))))
(.f64 (/.f64 #s(approx (sin ky) (fma.f64 ky (.f64 (.f64 ky ky) #s(literal -1/6 binary64)) ky)) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky))))) (sin.f64 th))
(/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 (fma.f64 #s(approx (- 1 (cos (+ kx kx))) (.f64 #s(literal 2 binary64) (.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))))

Outputs
(.f64 (/.f64 (sin.f64 th) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) (sin.f64 ky))
(/.f64 #s(approx (* (sin ky) (sin th)) (.f64 th (sin.f64 ky))) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))))
(.f64 (/.f64 #s(approx (sin ky) (fma.f64 ky (.f64 (.f64 ky ky) #s(literal -1/6 binary64)) ky)) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky))))) (sin.f64 th))
(/.f64 #s(approx (* (sin ky) (sin th)) (.f64 th (sin.f64 ky))) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th))

Calls

1 calls:

22.0ms

(/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))))

Results

Accuracy	Segments	Branch
84.8%	5	`(/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))))`

Compiler

Compiled 16 to 11 computations (31.3% saved)

regimes209.0ms (1.5%)

Memory

-1.0MiB live, 367.9MiB allocated

Counts

76 → 5

Calls

Call 1

Inputs
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 #s(literal -1/6 binary64) (.f64 th (*.f64 th th))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 (.f64 #s(literal -1/6 binary64) (*.f64 th th)) th))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 (.f64 th th) (*.f64 th #s(literal -1/6 binary64))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th #s(literal -1/6 binary64)) th) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 (.f64 th th) (.f64 th #s(literal -1/6 binary64)) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 (.f64 th (.f64 th th)) #s(literal -1/6 binary64) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (+.f64 (.f64 th (.f64 #s(literal -1/6 binary64) (*.f64 th th))) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (*.f64 th th) #s(literal -1/6 binary64))) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 (.f64 th (.f64 th th)) (+.f64 #s(literal -1/6 binary64) (/.f64 #s(literal 1 binary64) (.f64 th th)))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (/.f64 (-.f64 (.f64 th th) (.f64 th (.f64 (.f64 #s(literal -1/6 binary64) (.f64 th th)) (.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)))))) (-.f64 th (.f64 th (.f64 #s(literal -1/6 binary64) (*.f64 th th)))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (.f64 (.f64 (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) (neg.f64 th))) (/.f64 #s(literal 1 binary64) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) (neg.f64 th))))))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th))
(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky #s(approx (+ (* (* ky ky) (+ (/ -1/2 (pow (sin kx) 3)) (/ -1/6 (sin kx)))) (/ 1 (sin kx))) (/.f64 (.f64 (.f64 ky ky) #s(literal -1/2 binary64)) (.f64 kx (.f64 kx kx)))))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) #s(approx (* (sqrt (/ 1 (- 1 (cos (* kx -2))))) (* ky (sqrt 2))) (.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(literal 1/2 binary64))) (/.f64 ky kx)))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) kx)) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 th (-.f64 th (.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)))) (.f64 th (.f64 (.f64 #s(literal -1/6 binary64) (.f64 th th)) (.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)))))) (fma.f64 th (.f64 th th) (.f64 (.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th))) (.f64 th (.f64 (.f64 #s(literal -1/6 binary64) (.f64 th th)) (.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)))))))))))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) #s(approx (/ (+ (* (* kx kx) (/ 1/12 (sqrt 1/2))) (sqrt 1/2)) kx) (.f64 kx (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64)))))) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (- 1 (cos ( kx -2))) (.f64 #s(literal 2 binary64) (.f64 kx kx))))) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th))
(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky #s(approx (+ (* (* ky ky) (+ (/ -1/2 (pow (sin kx) 3)) (/ -1/6 (sin kx)))) (/ 1 (sin kx))) (/.f64 (fma.f64 (.f64 ky ky) #s(literal -1/2 binary64) (.f64 (.f64 kx kx) (fma.f64 (.f64 ky ky) #s(literal -5/12 binary64) #s(literal 1 binary64)))) (.f64 kx (.f64 kx kx)))))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (- 1 (cos ( kx -2))) (.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) #s(literal -2/3 binary64) #s(literal 2 binary64)))))) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th))
(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) #s(approx ( ky (+ (* (* ky ky) (+ (/ -1/2 (pow (sin kx) 3)) (/ -1/6 (sin kx)))) (/ 1 (sin kx)))) (/.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 ky (.f64 ky ky)) (.f64 (.f64 (.f64 kx kx) ky) (fma.f64 (.f64 ky ky) #s(literal -5/12 binary64) #s(literal 1 binary64)))) (.f64 kx (.f64 kx kx))))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th))
(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky #s(approx (+ (* (* ky ky) (+ (/ -1/2 (pow (sin kx) 3)) (/ -1/6 (sin kx)))) (/ 1 (sin kx))) (/.f64 (fma.f64 (.f64 kx kx) (fma.f64 (.f64 ky ky) #s(literal -5/12 binary64) (fma.f64 (.f64 kx kx) (fma.f64 (.f64 ky ky) #s(literal -71/720 binary64) #s(literal 1/6 binary64)) #s(literal 1 binary64))) (.f64 (.f64 ky ky) #s(literal -1/2 binary64))) (.f64 kx (.f64 kx kx)))))) (sin.f64 th))
(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) #s(approx ( ky (+ (* (* ky ky) (+ (/ -1/2 (pow (sin kx) 3)) (/ -1/6 (sin kx)))) (/ 1 (sin kx)))) (/.f64 (fma.f64 (.f64 kx kx) (fma.f64 ky (fma.f64 (.f64 ky ky) #s(literal -5/12 binary64) #s(literal 1 binary64)) (.f64 (.f64 (.f64 kx kx) ky) (fma.f64 (.f64 ky ky) #s(literal -71/720 binary64) #s(literal 1/6 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 ky (.f64 ky ky)))) (.f64 kx (*.f64 kx kx))))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) #s(approx (* (sqrt (/ 1 (- 1 (cos (* kx -2))))) (* ky (sqrt 2))) (/.f64 (fma.f64 #s(literal 1/12 binary64) (.f64 (.f64 ky (sqrt.f64 #s(literal 2 binary64))) (/.f64 (.f64 kx kx) (sqrt.f64 #s(literal 1/2 binary64)))) (.f64 (*.f64 ky (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 2 binary64)))) kx))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) #s(approx (* (sqrt (/ 1 (- 1 (cos (* kx -2))))) (* ky (sqrt 2))) (/.f64 (fma.f64 #s(literal 1/12 binary64) (/.f64 (.f64 (.f64 kx kx) (.f64 ky (sqrt.f64 #s(literal 2 binary64)))) (sqrt.f64 #s(literal 1/2 binary64))) (.f64 (*.f64 ky (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 2 binary64)))) kx))) (sin.f64 th))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (/.f64 (*.f64 ky (sin.f64 th)) (sin.f64 kx)))
(*.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (/.f64 ky (sin.f64 kx))) (sin.f64 th))
(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky #s(approx (+ (* (* ky ky) (+ (/ -1/2 (pow (sin kx) 3)) (/ -1/6 (sin kx)))) (/ 1 (sin kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (sin.f64 th))
(/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) #s(approx (+ (* -1/2 (cos (* ky -2))) 1/2) (*.f64 ky ky)))))
(/.f64 #s(approx (* (sin ky) (sin th)) (.f64 th (sin.f64 ky))) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))
(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 #s(approx (pow (sin kx) 2) (.f64 kx kx)) #s(approx (pow (sin ky) 2) (*.f64 ky ky))))) (sin.f64 th))
(.f64 (sin.f64 th) #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (/.f64 (.f64 ky (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))))
(/.f64 (.f64 (sin.f64 ky) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th))) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))
#s(approx (* (* (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (sin th)) (.f64 (.f64 (.f64 ky (sin.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))))
#s(approx (/ (* (sin ky) (sin th)) (sqrt (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (.f64 (.f64 (.f64 ky (sin.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))))
#s(approx (/ (* (sin ky) (sin th)) (sqrt (+ (* (- 1 (cos (+ kx kx))) 1/2) (pow (sin ky) 2)))) (.f64 (.f64 (.f64 ky (sin.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64)))))) (sqrt.f64 #s(literal 2 binary64))) ky)) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (/.f64 (.f64 #s(literal 1 binary64) ky) (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64)))))) (sqrt.f64 #s(literal 2 binary64)))) (sin.f64 th))
(.f64 (.f64 (sqrt.f64 #s(approx (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky)))))) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) (fma.f64 kx kx #s(literal 1/2 binary64)))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 ky ky))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) #s(approx (sin ky) (fma.f64 ky (.f64 #s(literal -1/6 binary64) (*.f64 ky ky)) ky))) (sin.f64 th))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(approx (- 1 (cos (+ kx kx))) (.f64 #s(literal 2 binary64) (.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) (fma.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) #s(literal -1/3 binary64) #s(literal 1 binary64)) #s(literal 1/2 binary64)))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) #s(approx (sin ky) (.f64 ky (fma.f64 (.f64 ky ky) (fma.f64 #s(literal 1/120 binary64) (.f64 ky ky) #s(literal -1/6 binary64)) #s(literal 1 binary64))))) (sin.f64 th))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(approx (- 1 (cos (+ kx kx))) (.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) #s(literal -2/3 binary64) #s(literal 2 binary64)))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (*.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) (fma.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) #s(literal 2/45 binary64) #s(literal -1/3 binary64)) #s(literal 1 binary64)) #s(literal 1/2 binary64)))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (*.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) #s(approx (sin ky) (fma.f64 ky (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 #s(literal -1/5040 binary64) (*.f64 ky ky) #s(literal 1/120 binary64)) #s(literal -1/6 binary64))) ky))) (sin.f64 th))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal 2/45 binary64) #s(literal -1/3 binary64)) #s(literal 1 binary64))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (*.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/315 binary64) #s(literal 2/45 binary64)) #s(literal -1/3 binary64)) #s(literal 1 binary64))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th)))
(*.f64 (/.f64 (sin.f64 ky) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx))) (sin.f64 th))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(approx (- 1 (cos (+ kx kx))) (.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) #s(literal -2/315 binary64) #s(literal 4/45 binary64)) #s(literal -2/3 binary64)) #s(literal 2 binary64)))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (*.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (fma.f64 (.f64 kx kx) (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) #s(literal 1 binary64))) (sin.f64 th))
(.f64 (sin.f64 th) (/.f64 (sin.f64 ky) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(.f64 (/.f64 (sin.f64 th) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) (sin.f64 ky))
(/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))
(.f64 (.f64 (sqrt.f64 #s(approx (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky)))))) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64))))))) (sin.f64 ky)) (sin.f64 th))
(/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))))
(/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64)))))
#s(approx (* (* (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (sin th)) (.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(.f64 (sin.f64 th) (.f64 (sin.f64 ky) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) (sin.f64 ky)) (sin.f64 th))
(/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) (fma.f64 kx kx #s(literal 1/2 binary64))))))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) (fma.f64 kx kx #s(literal 1/2 binary64)))))) (sin.f64 ky)) (sin.f64 th))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (*.f64 ky ky))))) (sin.f64 ky)) (sin.f64 th))
(/.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))) (.f64 (sin.f64 ky) (sin.f64 th))))
(/.f64 #s(approx (* (sin ky) (sin th)) (.f64 th (sin.f64 ky))) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))))
(/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) #s(approx (sqrt (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky)))))) (.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))) (sqrt.f64 #s(literal 1/2 binary64)))))
(/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) #s(approx (sqrt (+ ( (- 1 (cos (+ kx kx))) 1/2) (pow (sin ky) 2))) (.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))) (sqrt.f64 #s(literal 1/2 binary64)))))

Outputs
(.f64 (/.f64 (sin.f64 th) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) (sin.f64 ky))
(/.f64 #s(approx (* (sin ky) (sin th)) (.f64 th (sin.f64 ky))) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) #s(approx (sin ky) (fma.f64 ky (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 #s(literal -1/5040 binary64) (*.f64 ky ky) #s(literal 1/120 binary64)) #s(literal -1/6 binary64))) ky))) (sin.f64 th))
(/.f64 #s(approx (* (sin ky) (sin th)) (.f64 th (sin.f64 ky))) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th))

Calls

7 calls:

47.0ms	(sin.f64 kx)
43.0ms	(pow.f64 (sin.f64 kx) #s(literal 2 binary64))
25.0ms	ky
23.0ms	kx
22.0ms	(sin.f64 th)

Results

Accuracy	Segments	Branch
59.3%	4	`(sin.f64 th)`
66.6%	2	`ky`
58.9%	3	`th`
65.2%	5	`(sin.f64 kx)`
63.3%	3	`(pow.f64 (sin.f64 kx) #s(literal 2 binary64))`
63.3%	3	`kx`
77.6%	5	`(/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))))`

Compiler

Compiled 45 to 34 computations (24.4% saved)

regimes101.0ms (0.7%)

Memory

5.3MiB live, 158.5MiB allocated

Counts

73 → 3

Calls

Call 1

Inputs
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 #s(literal -1/6 binary64) (.f64 th (*.f64 th th))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 (.f64 #s(literal -1/6 binary64) (*.f64 th th)) th))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 (.f64 th th) (*.f64 th #s(literal -1/6 binary64))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th #s(literal -1/6 binary64)) th) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 (.f64 th th) (.f64 th #s(literal -1/6 binary64)) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 (.f64 th (.f64 th th)) #s(literal -1/6 binary64) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (+.f64 (.f64 th (.f64 #s(literal -1/6 binary64) (*.f64 th th))) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (*.f64 th th) #s(literal -1/6 binary64))) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 (.f64 th (.f64 th th)) (+.f64 #s(literal -1/6 binary64) (/.f64 #s(literal 1 binary64) (.f64 th th)))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (/.f64 (-.f64 (.f64 th th) (.f64 th (.f64 (.f64 #s(literal -1/6 binary64) (.f64 th th)) (.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)))))) (-.f64 th (.f64 th (.f64 #s(literal -1/6 binary64) (*.f64 th th)))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (.f64 (.f64 (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) (neg.f64 th))) (/.f64 #s(literal 1 binary64) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) (neg.f64 th))))))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th))
(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky #s(approx (+ (* (* ky ky) (+ (/ -1/2 (pow (sin kx) 3)) (/ -1/6 (sin kx)))) (/ 1 (sin kx))) (/.f64 (.f64 (.f64 ky ky) #s(literal -1/2 binary64)) (.f64 kx (.f64 kx kx)))))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) #s(approx (* (sqrt (/ 1 (- 1 (cos (* kx -2))))) (* ky (sqrt 2))) (.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(literal 1/2 binary64))) (/.f64 ky kx)))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) kx)) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 th (-.f64 th (.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)))) (.f64 th (.f64 (.f64 #s(literal -1/6 binary64) (.f64 th th)) (.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)))))) (fma.f64 th (.f64 th th) (.f64 (.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th))) (.f64 th (.f64 (.f64 #s(literal -1/6 binary64) (.f64 th th)) (.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)))))))))))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) #s(approx (/ (+ (* (* kx kx) (/ 1/12 (sqrt 1/2))) (sqrt 1/2)) kx) (.f64 kx (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64)))))) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (- 1 (cos ( kx -2))) (.f64 #s(literal 2 binary64) (.f64 kx kx))))) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th))
(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky #s(approx (+ (* (* ky ky) (+ (/ -1/2 (pow (sin kx) 3)) (/ -1/6 (sin kx)))) (/ 1 (sin kx))) (/.f64 (fma.f64 (.f64 ky ky) #s(literal -1/2 binary64) (.f64 (.f64 kx kx) (fma.f64 (.f64 ky ky) #s(literal -5/12 binary64) #s(literal 1 binary64)))) (.f64 kx (.f64 kx kx)))))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (- 1 (cos ( kx -2))) (.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) #s(literal -2/3 binary64) #s(literal 2 binary64)))))) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th))
(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) #s(approx ( ky (+ (* (* ky ky) (+ (/ -1/2 (pow (sin kx) 3)) (/ -1/6 (sin kx)))) (/ 1 (sin kx)))) (/.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 ky (.f64 ky ky)) (.f64 (.f64 (.f64 kx kx) ky) (fma.f64 (.f64 ky ky) #s(literal -5/12 binary64) #s(literal 1 binary64)))) (.f64 kx (.f64 kx kx))))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th))
(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky #s(approx (+ (* (* ky ky) (+ (/ -1/2 (pow (sin kx) 3)) (/ -1/6 (sin kx)))) (/ 1 (sin kx))) (/.f64 (fma.f64 (.f64 kx kx) (fma.f64 (.f64 ky ky) #s(literal -5/12 binary64) (fma.f64 (.f64 kx kx) (fma.f64 (.f64 ky ky) #s(literal -71/720 binary64) #s(literal 1/6 binary64)) #s(literal 1 binary64))) (.f64 (.f64 ky ky) #s(literal -1/2 binary64))) (.f64 kx (.f64 kx kx)))))) (sin.f64 th))
(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) #s(approx ( ky (+ (* (* ky ky) (+ (/ -1/2 (pow (sin kx) 3)) (/ -1/6 (sin kx)))) (/ 1 (sin kx)))) (/.f64 (fma.f64 (.f64 kx kx) (fma.f64 ky (fma.f64 (.f64 ky ky) #s(literal -5/12 binary64) #s(literal 1 binary64)) (.f64 (.f64 (.f64 kx kx) ky) (fma.f64 (.f64 ky ky) #s(literal -71/720 binary64) #s(literal 1/6 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 ky (.f64 ky ky)))) (.f64 kx (*.f64 kx kx))))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) #s(approx (* (sqrt (/ 1 (- 1 (cos (* kx -2))))) (* ky (sqrt 2))) (/.f64 (fma.f64 #s(literal 1/12 binary64) (.f64 (.f64 ky (sqrt.f64 #s(literal 2 binary64))) (/.f64 (.f64 kx kx) (sqrt.f64 #s(literal 1/2 binary64)))) (.f64 (*.f64 ky (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 2 binary64)))) kx))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) #s(approx (* (sqrt (/ 1 (- 1 (cos (* kx -2))))) (* ky (sqrt 2))) (/.f64 (fma.f64 #s(literal 1/12 binary64) (/.f64 (.f64 (.f64 kx kx) (.f64 ky (sqrt.f64 #s(literal 2 binary64)))) (sqrt.f64 #s(literal 1/2 binary64))) (.f64 (*.f64 ky (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 2 binary64)))) kx))) (sin.f64 th))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (/.f64 (*.f64 ky (sin.f64 th)) (sin.f64 kx)))
(*.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (/.f64 ky (sin.f64 kx))) (sin.f64 th))
(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky #s(approx (+ (* (* ky ky) (+ (/ -1/2 (pow (sin kx) 3)) (/ -1/6 (sin kx)))) (/ 1 (sin kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (sin.f64 th))
(/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) #s(approx (+ (* -1/2 (cos (* ky -2))) 1/2) (*.f64 ky ky)))))
(/.f64 #s(approx (* (sin ky) (sin th)) (.f64 th (sin.f64 ky))) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))
(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 #s(approx (pow (sin kx) 2) (.f64 kx kx)) #s(approx (pow (sin ky) 2) (*.f64 ky ky))))) (sin.f64 th))
(.f64 (sin.f64 th) #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (/.f64 (.f64 ky (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))))
(/.f64 (.f64 (sin.f64 ky) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th))) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))
#s(approx (* (* (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (sin th)) (.f64 (.f64 (.f64 ky (sin.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))))
#s(approx (/ (* (sin ky) (sin th)) (sqrt (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (.f64 (.f64 (.f64 ky (sin.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))))
#s(approx (/ (* (sin ky) (sin th)) (sqrt (+ (* (- 1 (cos (+ kx kx))) 1/2) (pow (sin ky) 2)))) (.f64 (.f64 (.f64 ky (sin.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64)))))) (sqrt.f64 #s(literal 2 binary64))) ky)) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (/.f64 (.f64 #s(literal 1 binary64) ky) (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64)))))) (sqrt.f64 #s(literal 2 binary64)))) (sin.f64 th))
(.f64 (.f64 (sqrt.f64 #s(approx (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky)))))) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) (fma.f64 kx kx #s(literal 1/2 binary64)))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 ky ky))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) #s(approx (sin ky) (fma.f64 ky (.f64 #s(literal -1/6 binary64) (*.f64 ky ky)) ky))) (sin.f64 th))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(approx (- 1 (cos (+ kx kx))) (.f64 #s(literal 2 binary64) (.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) (fma.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) #s(literal -1/3 binary64) #s(literal 1 binary64)) #s(literal 1/2 binary64)))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) #s(approx (sin ky) (.f64 ky (fma.f64 (.f64 ky ky) (fma.f64 #s(literal 1/120 binary64) (.f64 ky ky) #s(literal -1/6 binary64)) #s(literal 1 binary64))))) (sin.f64 th))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(approx (- 1 (cos (+ kx kx))) (.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) #s(literal -2/3 binary64) #s(literal 2 binary64)))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (*.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) (fma.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) #s(literal 2/45 binary64) #s(literal -1/3 binary64)) #s(literal 1 binary64)) #s(literal 1/2 binary64)))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (*.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) #s(approx (sin ky) (fma.f64 ky (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 #s(literal -1/5040 binary64) (*.f64 ky ky) #s(literal 1/120 binary64)) #s(literal -1/6 binary64))) ky))) (sin.f64 th))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal 2/45 binary64) #s(literal -1/3 binary64)) #s(literal 1 binary64))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (*.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/315 binary64) #s(literal 2/45 binary64)) #s(literal -1/3 binary64)) #s(literal 1 binary64))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th)))
(*.f64 (/.f64 (sin.f64 ky) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx))) (sin.f64 th))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(approx (- 1 (cos (+ kx kx))) (.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) #s(literal -2/315 binary64) #s(literal 4/45 binary64)) #s(literal -2/3 binary64)) #s(literal 2 binary64)))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (*.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (fma.f64 (.f64 kx kx) (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) #s(literal 1 binary64))) (sin.f64 th))
(.f64 (sin.f64 th) (/.f64 (sin.f64 ky) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(.f64 (/.f64 (sin.f64 th) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) (sin.f64 ky))
(/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))
(.f64 (.f64 (sqrt.f64 #s(approx (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky)))))) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64))))))) (sin.f64 ky)) (sin.f64 th))
(/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))))
(/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) #s(literal 1/2 binary64)))))
#s(approx (* (* (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (sin th)) (.f64 (.f64 (sin.f64 th) (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(.f64 (sin.f64 th) (.f64 (sin.f64 ky) (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) (sin.f64 ky)) (sin.f64 th))
(/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) (fma.f64 kx kx #s(literal 1/2 binary64))))))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) (fma.f64 kx kx #s(literal 1/2 binary64)))))) (sin.f64 ky)) (sin.f64 th))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (*.f64 ky ky))))) (sin.f64 ky)) (sin.f64 th))
(/.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))) (.f64 (sin.f64 ky) (sin.f64 th))))

Outputs

(*.f64 (/.f64 (sin.f64 th) (sqrt.f64 #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) (sin.f64 ky))

(/.f64 (*.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (*.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64))))))))

#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th))

Calls

3 calls:

48.0ms

(*.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (sin.f64 th))

25.0ms

(sin.f64 ky)

23.0ms

(/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))))

Results

Accuracy	Segments	Branch
54.7%	4	`(*.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (sin.f64 th))`
66.8%	3	`(sin.f64 ky)`
69.7%	3	`(/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))))`

Compiler

Compiled 40 to 28 computations (30% saved)

regimes54.0ms (0.4%)

Memory

15.7MiB live, 51.6MiB allocated

Counts

64 → 3

Calls

Call 1

Inputs
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 #s(literal -1/6 binary64) (.f64 th (*.f64 th th))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 (.f64 #s(literal -1/6 binary64) (*.f64 th th)) th))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 (.f64 th th) (*.f64 th #s(literal -1/6 binary64))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th #s(literal -1/6 binary64)) th) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 (.f64 th th) (.f64 th #s(literal -1/6 binary64)) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 (.f64 th (.f64 th th)) #s(literal -1/6 binary64) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (+.f64 (.f64 th (.f64 #s(literal -1/6 binary64) (*.f64 th th))) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (*.f64 th th) #s(literal -1/6 binary64))) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 (.f64 th (.f64 th th)) (+.f64 #s(literal -1/6 binary64) (/.f64 #s(literal 1 binary64) (.f64 th th)))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (/.f64 (-.f64 (.f64 th th) (.f64 th (.f64 (.f64 #s(literal -1/6 binary64) (.f64 th th)) (.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)))))) (-.f64 th (.f64 th (.f64 #s(literal -1/6 binary64) (*.f64 th th)))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (.f64 (.f64 (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) (neg.f64 th))) (/.f64 #s(literal 1 binary64) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) (neg.f64 th))))))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th))
(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky #s(approx (+ (* (* ky ky) (+ (/ -1/2 (pow (sin kx) 3)) (/ -1/6 (sin kx)))) (/ 1 (sin kx))) (/.f64 (.f64 (.f64 ky ky) #s(literal -1/2 binary64)) (.f64 kx (.f64 kx kx)))))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) #s(approx (* (sqrt (/ 1 (- 1 (cos (* kx -2))))) (* ky (sqrt 2))) (.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(literal 1/2 binary64))) (/.f64 ky kx)))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) kx)) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 th (-.f64 th (.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)))) (.f64 th (.f64 (.f64 #s(literal -1/6 binary64) (.f64 th th)) (.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)))))) (fma.f64 th (.f64 th th) (.f64 (.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th))) (.f64 th (.f64 (.f64 #s(literal -1/6 binary64) (.f64 th th)) (.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)))))))))))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) #s(approx (/ (+ (* (* kx kx) (/ 1/12 (sqrt 1/2))) (sqrt 1/2)) kx) (.f64 kx (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64)))))) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (- 1 (cos ( kx -2))) (.f64 #s(literal 2 binary64) (.f64 kx kx))))) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th))
(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky #s(approx (+ (* (* ky ky) (+ (/ -1/2 (pow (sin kx) 3)) (/ -1/6 (sin kx)))) (/ 1 (sin kx))) (/.f64 (fma.f64 (.f64 ky ky) #s(literal -1/2 binary64) (.f64 (.f64 kx kx) (fma.f64 (.f64 ky ky) #s(literal -5/12 binary64) #s(literal 1 binary64)))) (.f64 kx (.f64 kx kx)))))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (- 1 (cos ( kx -2))) (.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) #s(literal -2/3 binary64) #s(literal 2 binary64)))))) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th))
(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) #s(approx ( ky (+ (* (* ky ky) (+ (/ -1/2 (pow (sin kx) 3)) (/ -1/6 (sin kx)))) (/ 1 (sin kx)))) (/.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 ky (.f64 ky ky)) (.f64 (.f64 (.f64 kx kx) ky) (fma.f64 (.f64 ky ky) #s(literal -5/12 binary64) #s(literal 1 binary64)))) (.f64 kx (.f64 kx kx))))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th))
(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky #s(approx (+ (* (* ky ky) (+ (/ -1/2 (pow (sin kx) 3)) (/ -1/6 (sin kx)))) (/ 1 (sin kx))) (/.f64 (fma.f64 (.f64 kx kx) (fma.f64 (.f64 ky ky) #s(literal -5/12 binary64) (fma.f64 (.f64 kx kx) (fma.f64 (.f64 ky ky) #s(literal -71/720 binary64) #s(literal 1/6 binary64)) #s(literal 1 binary64))) (.f64 (.f64 ky ky) #s(literal -1/2 binary64))) (.f64 kx (.f64 kx kx)))))) (sin.f64 th))
(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) #s(approx ( ky (+ (* (* ky ky) (+ (/ -1/2 (pow (sin kx) 3)) (/ -1/6 (sin kx)))) (/ 1 (sin kx)))) (/.f64 (fma.f64 (.f64 kx kx) (fma.f64 ky (fma.f64 (.f64 ky ky) #s(literal -5/12 binary64) #s(literal 1 binary64)) (.f64 (.f64 (.f64 kx kx) ky) (fma.f64 (.f64 ky ky) #s(literal -71/720 binary64) #s(literal 1/6 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 ky (.f64 ky ky)))) (.f64 kx (*.f64 kx kx))))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) #s(approx (* (sqrt (/ 1 (- 1 (cos (* kx -2))))) (* ky (sqrt 2))) (/.f64 (fma.f64 #s(literal 1/12 binary64) (.f64 (.f64 ky (sqrt.f64 #s(literal 2 binary64))) (/.f64 (.f64 kx kx) (sqrt.f64 #s(literal 1/2 binary64)))) (.f64 (*.f64 ky (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 2 binary64)))) kx))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) #s(approx (* (sqrt (/ 1 (- 1 (cos (* kx -2))))) (* ky (sqrt 2))) (/.f64 (fma.f64 #s(literal 1/12 binary64) (/.f64 (.f64 (.f64 kx kx) (.f64 ky (sqrt.f64 #s(literal 2 binary64)))) (sqrt.f64 #s(literal 1/2 binary64))) (.f64 (*.f64 ky (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 2 binary64)))) kx))) (sin.f64 th))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (/.f64 (*.f64 ky (sin.f64 th)) (sin.f64 kx)))
(*.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (/.f64 ky (sin.f64 kx))) (sin.f64 th))
(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky #s(approx (+ (* (* ky ky) (+ (/ -1/2 (pow (sin kx) 3)) (/ -1/6 (sin kx)))) (/ 1 (sin kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (sin.f64 th))
(/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) #s(approx (+ (* -1/2 (cos (* ky -2))) 1/2) (*.f64 ky ky)))))
(/.f64 #s(approx (* (sin ky) (sin th)) (.f64 th (sin.f64 ky))) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))
(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 #s(approx (pow (sin kx) 2) (.f64 kx kx)) #s(approx (pow (sin ky) 2) (*.f64 ky ky))))) (sin.f64 th))
(.f64 (sin.f64 th) #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (/.f64 (.f64 ky (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))))
(/.f64 (.f64 (sin.f64 ky) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th))) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))
#s(approx (* (* (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (sin th)) (.f64 (.f64 (.f64 ky (sin.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))))
#s(approx (/ (* (sin ky) (sin th)) (sqrt (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (.f64 (.f64 (.f64 ky (sin.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))))
#s(approx (/ (* (sin ky) (sin th)) (sqrt (+ (* (- 1 (cos (+ kx kx))) 1/2) (pow (sin ky) 2)))) (.f64 (.f64 (.f64 ky (sin.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64)))))) (sqrt.f64 #s(literal 2 binary64))) ky)) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (/.f64 (.f64 #s(literal 1 binary64) ky) (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64)))))) (sqrt.f64 #s(literal 2 binary64)))) (sin.f64 th))
(.f64 (.f64 (sqrt.f64 #s(approx (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky)))))) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) (fma.f64 kx kx #s(literal 1/2 binary64)))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 ky ky))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) #s(approx (sin ky) (fma.f64 ky (.f64 #s(literal -1/6 binary64) (*.f64 ky ky)) ky))) (sin.f64 th))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(approx (- 1 (cos (+ kx kx))) (.f64 #s(literal 2 binary64) (.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) (fma.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) #s(literal -1/3 binary64) #s(literal 1 binary64)) #s(literal 1/2 binary64)))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) #s(approx (sin ky) (.f64 ky (fma.f64 (.f64 ky ky) (fma.f64 #s(literal 1/120 binary64) (.f64 ky ky) #s(literal -1/6 binary64)) #s(literal 1 binary64))))) (sin.f64 th))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(approx (- 1 (cos (+ kx kx))) (.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) #s(literal -2/3 binary64) #s(literal 2 binary64)))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (*.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) (fma.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) #s(literal 2/45 binary64) #s(literal -1/3 binary64)) #s(literal 1 binary64)) #s(literal 1/2 binary64)))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (*.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) #s(approx (sin ky) (fma.f64 ky (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 #s(literal -1/5040 binary64) (*.f64 ky ky) #s(literal 1/120 binary64)) #s(literal -1/6 binary64))) ky))) (sin.f64 th))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal 2/45 binary64) #s(literal -1/3 binary64)) #s(literal 1 binary64))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (*.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/315 binary64) #s(literal 2/45 binary64)) #s(literal -1/3 binary64)) #s(literal 1 binary64))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th)))
(*.f64 (/.f64 (sin.f64 ky) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx))) (sin.f64 th))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(approx (- 1 (cos (+ kx kx))) (.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) #s(literal -2/315 binary64) #s(literal 4/45 binary64)) #s(literal -2/3 binary64)) #s(literal 2 binary64)))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (*.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (fma.f64 (.f64 kx kx) (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) #s(literal 1 binary64))) (sin.f64 th))
(.f64 (sin.f64 th) (/.f64 (sin.f64 ky) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(.f64 (/.f64 (sin.f64 th) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) (sin.f64 ky))
(/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))
(.f64 (.f64 (sqrt.f64 #s(approx (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky)))))) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64))))))) (sin.f64 ky)) (sin.f64 th))

Outputs

(*.f64 (/.f64 (sin.f64 th) (sqrt.f64 #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) (sin.f64 ky))

(*.f64 (*.f64 (sqrt.f64 #s(approx (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky)))))) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64))))))) (sin.f64 ky)) (sin.f64 th))

#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th))

Calls

1 calls:

49.0ms

(/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))))

Results

Accuracy	Segments	Branch
69.7%	3	`(/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))))`

Compiler

Compiled 16 to 11 computations (31.3% saved)

regimes26.0ms (0.2%)

Memory

-20.8MiB live, 62.6MiB allocated

Counts

63 → 3

Calls

Call 1

Inputs
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 #s(literal -1/6 binary64) (.f64 th (*.f64 th th))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 (.f64 #s(literal -1/6 binary64) (*.f64 th th)) th))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 (.f64 th th) (*.f64 th #s(literal -1/6 binary64))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th #s(literal -1/6 binary64)) th) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 (.f64 th th) (.f64 th #s(literal -1/6 binary64)) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 (.f64 th (.f64 th th)) #s(literal -1/6 binary64) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (+.f64 (.f64 th (.f64 #s(literal -1/6 binary64) (*.f64 th th))) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (*.f64 th th) #s(literal -1/6 binary64))) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 (.f64 th (.f64 th th)) (+.f64 #s(literal -1/6 binary64) (/.f64 #s(literal 1 binary64) (.f64 th th)))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (/.f64 (-.f64 (.f64 th th) (.f64 th (.f64 (.f64 #s(literal -1/6 binary64) (.f64 th th)) (.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)))))) (-.f64 th (.f64 th (.f64 #s(literal -1/6 binary64) (*.f64 th th)))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (.f64 (.f64 (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) (neg.f64 th))) (/.f64 #s(literal 1 binary64) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) (neg.f64 th))))))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th))
(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky #s(approx (+ (* (* ky ky) (+ (/ -1/2 (pow (sin kx) 3)) (/ -1/6 (sin kx)))) (/ 1 (sin kx))) (/.f64 (.f64 (.f64 ky ky) #s(literal -1/2 binary64)) (.f64 kx (.f64 kx kx)))))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) #s(approx (* (sqrt (/ 1 (- 1 (cos (* kx -2))))) (* ky (sqrt 2))) (.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(literal 1/2 binary64))) (/.f64 ky kx)))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) kx)) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 th (-.f64 th (.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)))) (.f64 th (.f64 (.f64 #s(literal -1/6 binary64) (.f64 th th)) (.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)))))) (fma.f64 th (.f64 th th) (.f64 (.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th))) (.f64 th (.f64 (.f64 #s(literal -1/6 binary64) (.f64 th th)) (.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)))))))))))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) #s(approx (/ (+ (* (* kx kx) (/ 1/12 (sqrt 1/2))) (sqrt 1/2)) kx) (.f64 kx (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64)))))) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (- 1 (cos ( kx -2))) (.f64 #s(literal 2 binary64) (.f64 kx kx))))) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th))
(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky #s(approx (+ (* (* ky ky) (+ (/ -1/2 (pow (sin kx) 3)) (/ -1/6 (sin kx)))) (/ 1 (sin kx))) (/.f64 (fma.f64 (.f64 ky ky) #s(literal -1/2 binary64) (.f64 (.f64 kx kx) (fma.f64 (.f64 ky ky) #s(literal -5/12 binary64) #s(literal 1 binary64)))) (.f64 kx (.f64 kx kx)))))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (- 1 (cos ( kx -2))) (.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) #s(literal -2/3 binary64) #s(literal 2 binary64)))))) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th))
(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) #s(approx ( ky (+ (* (* ky ky) (+ (/ -1/2 (pow (sin kx) 3)) (/ -1/6 (sin kx)))) (/ 1 (sin kx)))) (/.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 ky (.f64 ky ky)) (.f64 (.f64 (.f64 kx kx) ky) (fma.f64 (.f64 ky ky) #s(literal -5/12 binary64) #s(literal 1 binary64)))) (.f64 kx (.f64 kx kx))))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th))
(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky #s(approx (+ (* (* ky ky) (+ (/ -1/2 (pow (sin kx) 3)) (/ -1/6 (sin kx)))) (/ 1 (sin kx))) (/.f64 (fma.f64 (.f64 kx kx) (fma.f64 (.f64 ky ky) #s(literal -5/12 binary64) (fma.f64 (.f64 kx kx) (fma.f64 (.f64 ky ky) #s(literal -71/720 binary64) #s(literal 1/6 binary64)) #s(literal 1 binary64))) (.f64 (.f64 ky ky) #s(literal -1/2 binary64))) (.f64 kx (.f64 kx kx)))))) (sin.f64 th))
(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) #s(approx ( ky (+ (* (* ky ky) (+ (/ -1/2 (pow (sin kx) 3)) (/ -1/6 (sin kx)))) (/ 1 (sin kx)))) (/.f64 (fma.f64 (.f64 kx kx) (fma.f64 ky (fma.f64 (.f64 ky ky) #s(literal -5/12 binary64) #s(literal 1 binary64)) (.f64 (.f64 (.f64 kx kx) ky) (fma.f64 (.f64 ky ky) #s(literal -71/720 binary64) #s(literal 1/6 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 ky (.f64 ky ky)))) (.f64 kx (*.f64 kx kx))))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) #s(approx (* (sqrt (/ 1 (- 1 (cos (* kx -2))))) (* ky (sqrt 2))) (/.f64 (fma.f64 #s(literal 1/12 binary64) (.f64 (.f64 ky (sqrt.f64 #s(literal 2 binary64))) (/.f64 (.f64 kx kx) (sqrt.f64 #s(literal 1/2 binary64)))) (.f64 (*.f64 ky (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 2 binary64)))) kx))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) #s(approx (* (sqrt (/ 1 (- 1 (cos (* kx -2))))) (* ky (sqrt 2))) (/.f64 (fma.f64 #s(literal 1/12 binary64) (/.f64 (.f64 (.f64 kx kx) (.f64 ky (sqrt.f64 #s(literal 2 binary64)))) (sqrt.f64 #s(literal 1/2 binary64))) (.f64 (*.f64 ky (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 2 binary64)))) kx))) (sin.f64 th))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (/.f64 (*.f64 ky (sin.f64 th)) (sin.f64 kx)))
(*.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (/.f64 ky (sin.f64 kx))) (sin.f64 th))
(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky #s(approx (+ (* (* ky ky) (+ (/ -1/2 (pow (sin kx) 3)) (/ -1/6 (sin kx)))) (/ 1 (sin kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (sin.f64 th))
(/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) #s(approx (+ (* -1/2 (cos (* ky -2))) 1/2) (*.f64 ky ky)))))
(/.f64 #s(approx (* (sin ky) (sin th)) (.f64 th (sin.f64 ky))) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))
(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 #s(approx (pow (sin kx) 2) (.f64 kx kx)) #s(approx (pow (sin ky) 2) (*.f64 ky ky))))) (sin.f64 th))
(.f64 (sin.f64 th) #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (/.f64 (.f64 ky (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))))
(/.f64 (.f64 (sin.f64 ky) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th))) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))
#s(approx (* (* (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (sin th)) (.f64 (.f64 (.f64 ky (sin.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))))
#s(approx (/ (* (sin ky) (sin th)) (sqrt (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (.f64 (.f64 (.f64 ky (sin.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))))
#s(approx (/ (* (sin ky) (sin th)) (sqrt (+ (* (- 1 (cos (+ kx kx))) 1/2) (pow (sin ky) 2)))) (.f64 (.f64 (.f64 ky (sin.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64)))))) (sqrt.f64 #s(literal 2 binary64))) ky)) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (/.f64 (.f64 #s(literal 1 binary64) ky) (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64)))))) (sqrt.f64 #s(literal 2 binary64)))) (sin.f64 th))
(.f64 (.f64 (sqrt.f64 #s(approx (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky)))))) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) (fma.f64 kx kx #s(literal 1/2 binary64)))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 ky ky))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) #s(approx (sin ky) (fma.f64 ky (.f64 #s(literal -1/6 binary64) (*.f64 ky ky)) ky))) (sin.f64 th))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(approx (- 1 (cos (+ kx kx))) (.f64 #s(literal 2 binary64) (.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) (fma.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) #s(literal -1/3 binary64) #s(literal 1 binary64)) #s(literal 1/2 binary64)))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) #s(approx (sin ky) (.f64 ky (fma.f64 (.f64 ky ky) (fma.f64 #s(literal 1/120 binary64) (.f64 ky ky) #s(literal -1/6 binary64)) #s(literal 1 binary64))))) (sin.f64 th))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(approx (- 1 (cos (+ kx kx))) (.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) #s(literal -2/3 binary64) #s(literal 2 binary64)))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (*.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) (fma.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) #s(literal 2/45 binary64) #s(literal -1/3 binary64)) #s(literal 1 binary64)) #s(literal 1/2 binary64)))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (*.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) #s(approx (sin ky) (fma.f64 ky (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 #s(literal -1/5040 binary64) (*.f64 ky ky) #s(literal 1/120 binary64)) #s(literal -1/6 binary64))) ky))) (sin.f64 th))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal 2/45 binary64) #s(literal -1/3 binary64)) #s(literal 1 binary64))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (*.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/315 binary64) #s(literal 2/45 binary64)) #s(literal -1/3 binary64)) #s(literal 1 binary64))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th)))
(*.f64 (/.f64 (sin.f64 ky) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx))) (sin.f64 th))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(approx (- 1 (cos (+ kx kx))) (.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) #s(literal -2/315 binary64) #s(literal 4/45 binary64)) #s(literal -2/3 binary64)) #s(literal 2 binary64)))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (*.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (fma.f64 (.f64 kx kx) (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) #s(literal 1 binary64))) (sin.f64 th))
(.f64 (sin.f64 th) (/.f64 (sin.f64 ky) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))
(.f64 (/.f64 (sin.f64 th) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) (sin.f64 ky))
(/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))

Outputs

(*.f64 (/.f64 (sin.f64 th) (sqrt.f64 #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) (sin.f64 ky))

(*.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (*.f64 (*.f64 ky ky) (fma.f64 (*.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) #s(approx (sin ky) (fma.f64 ky (*.f64 (*.f64 ky ky) (fma.f64 (*.f64 ky ky) (fma.f64 #s(literal -1/5040 binary64) (*.f64 ky ky) #s(literal 1/120 binary64)) #s(literal -1/6 binary64))) ky))) (sin.f64 th))

#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th))

Calls

1 calls:

20.0ms

(/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))))

Results

Accuracy	Segments	Branch
69.4%	3	`(/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))))`

Compiler

Compiled 16 to 11 computations (31.3% saved)

regimes22.0ms (0.2%)

Memory

18.7MiB live, 56.4MiB allocated

Counts

61 → 3

Calls

Call 1

Inputs
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 #s(literal -1/6 binary64) (.f64 th (*.f64 th th))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 (.f64 #s(literal -1/6 binary64) (*.f64 th th)) th))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 (.f64 th th) (*.f64 th #s(literal -1/6 binary64))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th #s(literal -1/6 binary64)) th) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 (.f64 th th) (.f64 th #s(literal -1/6 binary64)) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 (.f64 th (.f64 th th)) #s(literal -1/6 binary64) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (+.f64 (.f64 th (.f64 #s(literal -1/6 binary64) (*.f64 th th))) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (*.f64 th th) #s(literal -1/6 binary64))) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 (.f64 th (.f64 th th)) (+.f64 #s(literal -1/6 binary64) (/.f64 #s(literal 1 binary64) (.f64 th th)))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (/.f64 (-.f64 (.f64 th th) (.f64 th (.f64 (.f64 #s(literal -1/6 binary64) (.f64 th th)) (.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)))))) (-.f64 th (.f64 th (.f64 #s(literal -1/6 binary64) (*.f64 th th)))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (.f64 (.f64 (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) (neg.f64 th))) (/.f64 #s(literal 1 binary64) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) (neg.f64 th))))))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th))
(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky #s(approx (+ (* (* ky ky) (+ (/ -1/2 (pow (sin kx) 3)) (/ -1/6 (sin kx)))) (/ 1 (sin kx))) (/.f64 (.f64 (.f64 ky ky) #s(literal -1/2 binary64)) (.f64 kx (.f64 kx kx)))))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) #s(approx (* (sqrt (/ 1 (- 1 (cos (* kx -2))))) (* ky (sqrt 2))) (.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(literal 1/2 binary64))) (/.f64 ky kx)))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) kx)) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 th (-.f64 th (.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)))) (.f64 th (.f64 (.f64 #s(literal -1/6 binary64) (.f64 th th)) (.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)))))) (fma.f64 th (.f64 th th) (.f64 (.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th))) (.f64 th (.f64 (.f64 #s(literal -1/6 binary64) (.f64 th th)) (.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)))))))))))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) #s(approx (/ (+ (* (* kx kx) (/ 1/12 (sqrt 1/2))) (sqrt 1/2)) kx) (.f64 kx (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64)))))) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (- 1 (cos ( kx -2))) (.f64 #s(literal 2 binary64) (.f64 kx kx))))) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th))
(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky #s(approx (+ (* (* ky ky) (+ (/ -1/2 (pow (sin kx) 3)) (/ -1/6 (sin kx)))) (/ 1 (sin kx))) (/.f64 (fma.f64 (.f64 ky ky) #s(literal -1/2 binary64) (.f64 (.f64 kx kx) (fma.f64 (.f64 ky ky) #s(literal -5/12 binary64) #s(literal 1 binary64)))) (.f64 kx (.f64 kx kx)))))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (- 1 (cos ( kx -2))) (.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) #s(literal -2/3 binary64) #s(literal 2 binary64)))))) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th))
(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) #s(approx ( ky (+ (* (* ky ky) (+ (/ -1/2 (pow (sin kx) 3)) (/ -1/6 (sin kx)))) (/ 1 (sin kx)))) (/.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 ky (.f64 ky ky)) (.f64 (.f64 (.f64 kx kx) ky) (fma.f64 (.f64 ky ky) #s(literal -5/12 binary64) #s(literal 1 binary64)))) (.f64 kx (.f64 kx kx))))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th))
(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky #s(approx (+ (* (* ky ky) (+ (/ -1/2 (pow (sin kx) 3)) (/ -1/6 (sin kx)))) (/ 1 (sin kx))) (/.f64 (fma.f64 (.f64 kx kx) (fma.f64 (.f64 ky ky) #s(literal -5/12 binary64) (fma.f64 (.f64 kx kx) (fma.f64 (.f64 ky ky) #s(literal -71/720 binary64) #s(literal 1/6 binary64)) #s(literal 1 binary64))) (.f64 (.f64 ky ky) #s(literal -1/2 binary64))) (.f64 kx (.f64 kx kx)))))) (sin.f64 th))
(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) #s(approx ( ky (+ (* (* ky ky) (+ (/ -1/2 (pow (sin kx) 3)) (/ -1/6 (sin kx)))) (/ 1 (sin kx)))) (/.f64 (fma.f64 (.f64 kx kx) (fma.f64 ky (fma.f64 (.f64 ky ky) #s(literal -5/12 binary64) #s(literal 1 binary64)) (.f64 (.f64 (.f64 kx kx) ky) (fma.f64 (.f64 ky ky) #s(literal -71/720 binary64) #s(literal 1/6 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 ky (.f64 ky ky)))) (.f64 kx (*.f64 kx kx))))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) #s(approx (* (sqrt (/ 1 (- 1 (cos (* kx -2))))) (* ky (sqrt 2))) (/.f64 (fma.f64 #s(literal 1/12 binary64) (.f64 (.f64 ky (sqrt.f64 #s(literal 2 binary64))) (/.f64 (.f64 kx kx) (sqrt.f64 #s(literal 1/2 binary64)))) (.f64 (*.f64 ky (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 2 binary64)))) kx))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) #s(approx (* (sqrt (/ 1 (- 1 (cos (* kx -2))))) (* ky (sqrt 2))) (/.f64 (fma.f64 #s(literal 1/12 binary64) (/.f64 (.f64 (.f64 kx kx) (.f64 ky (sqrt.f64 #s(literal 2 binary64)))) (sqrt.f64 #s(literal 1/2 binary64))) (.f64 (*.f64 ky (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 2 binary64)))) kx))) (sin.f64 th))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (/.f64 (*.f64 ky (sin.f64 th)) (sin.f64 kx)))
(*.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (/.f64 ky (sin.f64 kx))) (sin.f64 th))
(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky #s(approx (+ (* (* ky ky) (+ (/ -1/2 (pow (sin kx) 3)) (/ -1/6 (sin kx)))) (/ 1 (sin kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (sin.f64 th))
(/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) #s(approx (+ (* -1/2 (cos (* ky -2))) 1/2) (*.f64 ky ky)))))
(/.f64 #s(approx (* (sin ky) (sin th)) (.f64 th (sin.f64 ky))) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))
(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 #s(approx (pow (sin kx) 2) (.f64 kx kx)) #s(approx (pow (sin ky) 2) (*.f64 ky ky))))) (sin.f64 th))
(.f64 (sin.f64 th) #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (/.f64 (.f64 ky (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))))
(/.f64 (.f64 (sin.f64 ky) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th))) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))
#s(approx (* (* (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (sin th)) (.f64 (.f64 (.f64 ky (sin.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))))
#s(approx (/ (* (sin ky) (sin th)) (sqrt (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (.f64 (.f64 (.f64 ky (sin.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))))
#s(approx (/ (* (sin ky) (sin th)) (sqrt (+ (* (- 1 (cos (+ kx kx))) 1/2) (pow (sin ky) 2)))) (.f64 (.f64 (.f64 ky (sin.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64)))))) (sqrt.f64 #s(literal 2 binary64))) ky)) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (/.f64 (.f64 #s(literal 1 binary64) ky) (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64)))))) (sqrt.f64 #s(literal 2 binary64)))) (sin.f64 th))
(.f64 (.f64 (sqrt.f64 #s(approx (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky)))))) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) (fma.f64 kx kx #s(literal 1/2 binary64)))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 ky ky))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) #s(approx (sin ky) (fma.f64 ky (.f64 #s(literal -1/6 binary64) (*.f64 ky ky)) ky))) (sin.f64 th))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(approx (- 1 (cos (+ kx kx))) (.f64 #s(literal 2 binary64) (.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) (fma.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) #s(literal -1/3 binary64) #s(literal 1 binary64)) #s(literal 1/2 binary64)))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) #s(approx (sin ky) (.f64 ky (fma.f64 (.f64 ky ky) (fma.f64 #s(literal 1/120 binary64) (.f64 ky ky) #s(literal -1/6 binary64)) #s(literal 1 binary64))))) (sin.f64 th))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(approx (- 1 (cos (+ kx kx))) (.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) #s(literal -2/3 binary64) #s(literal 2 binary64)))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (*.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) (fma.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) #s(literal 2/45 binary64) #s(literal -1/3 binary64)) #s(literal 1 binary64)) #s(literal 1/2 binary64)))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (*.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) #s(approx (sin ky) (fma.f64 ky (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 #s(literal -1/5040 binary64) (*.f64 ky ky) #s(literal 1/120 binary64)) #s(literal -1/6 binary64))) ky))) (sin.f64 th))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal 2/45 binary64) #s(literal -1/3 binary64)) #s(literal 1 binary64))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (*.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/315 binary64) #s(literal 2/45 binary64)) #s(literal -1/3 binary64)) #s(literal 1 binary64))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th)))
(*.f64 (/.f64 (sin.f64 ky) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx))) (sin.f64 th))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(approx (- 1 (cos (+ kx kx))) (.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) #s(literal -2/315 binary64) #s(literal 4/45 binary64)) #s(literal -2/3 binary64)) #s(literal 2 binary64)))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (*.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (fma.f64 (.f64 kx kx) (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) #s(literal 1 binary64))) (sin.f64 th))
(.f64 (sin.f64 th) (/.f64 (sin.f64 ky) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))

Outputs

(*.f64 (sin.f64 th) (/.f64 (sin.f64 ky) (sqrt.f64 #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))

(*.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (*.f64 (*.f64 ky ky) (fma.f64 (*.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) #s(approx (sin ky) (fma.f64 ky (*.f64 (*.f64 ky ky) (fma.f64 (*.f64 ky ky) (fma.f64 #s(literal -1/5040 binary64) (*.f64 ky ky) #s(literal 1/120 binary64)) #s(literal -1/6 binary64))) ky))) (sin.f64 th))

#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th))

Calls

1 calls:

18.0ms

(/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))))

Results

Accuracy	Segments	Branch
69.4%	3	`(/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))))`

Compiler

Compiled 16 to 11 computations (31.3% saved)

regimes87.0ms (0.6%)

Memory

-29.1MiB live, 125.3MiB allocated

Counts

60 → 3

Calls

Call 1

Inputs
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 #s(literal -1/6 binary64) (.f64 th (*.f64 th th))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 (.f64 #s(literal -1/6 binary64) (*.f64 th th)) th))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 (.f64 th th) (*.f64 th #s(literal -1/6 binary64))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th #s(literal -1/6 binary64)) th) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 (.f64 th th) (.f64 th #s(literal -1/6 binary64)) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 (.f64 th (.f64 th th)) #s(literal -1/6 binary64) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (+.f64 (.f64 th (.f64 #s(literal -1/6 binary64) (*.f64 th th))) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (*.f64 th th) #s(literal -1/6 binary64))) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 (.f64 th (.f64 th th)) (+.f64 #s(literal -1/6 binary64) (/.f64 #s(literal 1 binary64) (.f64 th th)))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (/.f64 (-.f64 (.f64 th th) (.f64 th (.f64 (.f64 #s(literal -1/6 binary64) (.f64 th th)) (.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)))))) (-.f64 th (.f64 th (.f64 #s(literal -1/6 binary64) (*.f64 th th)))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (.f64 (.f64 (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) (neg.f64 th))) (/.f64 #s(literal 1 binary64) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) (neg.f64 th))))))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th))
(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky #s(approx (+ (* (* ky ky) (+ (/ -1/2 (pow (sin kx) 3)) (/ -1/6 (sin kx)))) (/ 1 (sin kx))) (/.f64 (.f64 (.f64 ky ky) #s(literal -1/2 binary64)) (.f64 kx (.f64 kx kx)))))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) #s(approx (* (sqrt (/ 1 (- 1 (cos (* kx -2))))) (* ky (sqrt 2))) (.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(literal 1/2 binary64))) (/.f64 ky kx)))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) kx)) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 th (-.f64 th (.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)))) (.f64 th (.f64 (.f64 #s(literal -1/6 binary64) (.f64 th th)) (.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)))))) (fma.f64 th (.f64 th th) (.f64 (.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th))) (.f64 th (.f64 (.f64 #s(literal -1/6 binary64) (.f64 th th)) (.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)))))))))))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) #s(approx (/ (+ (* (* kx kx) (/ 1/12 (sqrt 1/2))) (sqrt 1/2)) kx) (.f64 kx (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64)))))) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (- 1 (cos ( kx -2))) (.f64 #s(literal 2 binary64) (.f64 kx kx))))) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th))
(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky #s(approx (+ (* (* ky ky) (+ (/ -1/2 (pow (sin kx) 3)) (/ -1/6 (sin kx)))) (/ 1 (sin kx))) (/.f64 (fma.f64 (.f64 ky ky) #s(literal -1/2 binary64) (.f64 (.f64 kx kx) (fma.f64 (.f64 ky ky) #s(literal -5/12 binary64) #s(literal 1 binary64)))) (.f64 kx (.f64 kx kx)))))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (- 1 (cos ( kx -2))) (.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) #s(literal -2/3 binary64) #s(literal 2 binary64)))))) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th))
(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) #s(approx ( ky (+ (* (* ky ky) (+ (/ -1/2 (pow (sin kx) 3)) (/ -1/6 (sin kx)))) (/ 1 (sin kx)))) (/.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 ky (.f64 ky ky)) (.f64 (.f64 (.f64 kx kx) ky) (fma.f64 (.f64 ky ky) #s(literal -5/12 binary64) #s(literal 1 binary64)))) (.f64 kx (.f64 kx kx))))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th))
(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky #s(approx (+ (* (* ky ky) (+ (/ -1/2 (pow (sin kx) 3)) (/ -1/6 (sin kx)))) (/ 1 (sin kx))) (/.f64 (fma.f64 (.f64 kx kx) (fma.f64 (.f64 ky ky) #s(literal -5/12 binary64) (fma.f64 (.f64 kx kx) (fma.f64 (.f64 ky ky) #s(literal -71/720 binary64) #s(literal 1/6 binary64)) #s(literal 1 binary64))) (.f64 (.f64 ky ky) #s(literal -1/2 binary64))) (.f64 kx (.f64 kx kx)))))) (sin.f64 th))
(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) #s(approx ( ky (+ (* (* ky ky) (+ (/ -1/2 (pow (sin kx) 3)) (/ -1/6 (sin kx)))) (/ 1 (sin kx)))) (/.f64 (fma.f64 (.f64 kx kx) (fma.f64 ky (fma.f64 (.f64 ky ky) #s(literal -5/12 binary64) #s(literal 1 binary64)) (.f64 (.f64 (.f64 kx kx) ky) (fma.f64 (.f64 ky ky) #s(literal -71/720 binary64) #s(literal 1/6 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 ky (.f64 ky ky)))) (.f64 kx (*.f64 kx kx))))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) #s(approx (* (sqrt (/ 1 (- 1 (cos (* kx -2))))) (* ky (sqrt 2))) (/.f64 (fma.f64 #s(literal 1/12 binary64) (.f64 (.f64 ky (sqrt.f64 #s(literal 2 binary64))) (/.f64 (.f64 kx kx) (sqrt.f64 #s(literal 1/2 binary64)))) (.f64 (*.f64 ky (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 2 binary64)))) kx))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) #s(approx (* (sqrt (/ 1 (- 1 (cos (* kx -2))))) (* ky (sqrt 2))) (/.f64 (fma.f64 #s(literal 1/12 binary64) (/.f64 (.f64 (.f64 kx kx) (.f64 ky (sqrt.f64 #s(literal 2 binary64)))) (sqrt.f64 #s(literal 1/2 binary64))) (.f64 (*.f64 ky (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 2 binary64)))) kx))) (sin.f64 th))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (/.f64 (*.f64 ky (sin.f64 th)) (sin.f64 kx)))
(*.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (/.f64 ky (sin.f64 kx))) (sin.f64 th))
(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky #s(approx (+ (* (* ky ky) (+ (/ -1/2 (pow (sin kx) 3)) (/ -1/6 (sin kx)))) (/ 1 (sin kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (sin.f64 th))
(/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) #s(approx (+ (* -1/2 (cos (* ky -2))) 1/2) (*.f64 ky ky)))))
(/.f64 #s(approx (* (sin ky) (sin th)) (.f64 th (sin.f64 ky))) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))
(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 #s(approx (pow (sin kx) 2) (.f64 kx kx)) #s(approx (pow (sin ky) 2) (*.f64 ky ky))))) (sin.f64 th))
(.f64 (sin.f64 th) #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (/.f64 (.f64 ky (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))))
(/.f64 (.f64 (sin.f64 ky) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th))) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))
#s(approx (* (* (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (sin th)) (.f64 (.f64 (.f64 ky (sin.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))))
#s(approx (/ (* (sin ky) (sin th)) (sqrt (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (.f64 (.f64 (.f64 ky (sin.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))))
#s(approx (/ (* (sin ky) (sin th)) (sqrt (+ (* (- 1 (cos (+ kx kx))) 1/2) (pow (sin ky) 2)))) (.f64 (.f64 (.f64 ky (sin.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64)))))) (sqrt.f64 #s(literal 2 binary64))) ky)) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (/.f64 (.f64 #s(literal 1 binary64) ky) (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64)))))) (sqrt.f64 #s(literal 2 binary64)))) (sin.f64 th))
(.f64 (.f64 (sqrt.f64 #s(approx (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky)))))) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) (fma.f64 kx kx #s(literal 1/2 binary64)))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 ky ky))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) #s(approx (sin ky) (fma.f64 ky (.f64 #s(literal -1/6 binary64) (*.f64 ky ky)) ky))) (sin.f64 th))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(approx (- 1 (cos (+ kx kx))) (.f64 #s(literal 2 binary64) (.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) (fma.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) #s(literal -1/3 binary64) #s(literal 1 binary64)) #s(literal 1/2 binary64)))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) #s(approx (sin ky) (.f64 ky (fma.f64 (.f64 ky ky) (fma.f64 #s(literal 1/120 binary64) (.f64 ky ky) #s(literal -1/6 binary64)) #s(literal 1 binary64))))) (sin.f64 th))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(approx (- 1 (cos (+ kx kx))) (.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) #s(literal -2/3 binary64) #s(literal 2 binary64)))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (*.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) (fma.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) #s(literal 2/45 binary64) #s(literal -1/3 binary64)) #s(literal 1 binary64)) #s(literal 1/2 binary64)))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (*.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) #s(approx (sin ky) (fma.f64 ky (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 #s(literal -1/5040 binary64) (*.f64 ky ky) #s(literal 1/120 binary64)) #s(literal -1/6 binary64))) ky))) (sin.f64 th))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal 2/45 binary64) #s(literal -1/3 binary64)) #s(literal 1 binary64))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (*.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/315 binary64) #s(literal 2/45 binary64)) #s(literal -1/3 binary64)) #s(literal 1 binary64))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th)))
(*.f64 (/.f64 (sin.f64 ky) #s(approx (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2))) (sin.f64 kx))) (sin.f64 th))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(approx (- 1 (cos (+ kx kx))) (.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) #s(literal -2/315 binary64) #s(literal 4/45 binary64)) #s(literal -2/3 binary64)) #s(literal 2 binary64)))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (*.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (fma.f64 (.f64 kx kx) (/.f64 #s(literal -1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))) #s(literal 1 binary64))) (sin.f64 th))

Outputs

(/.f64 #s(approx (* (sin ky) (sin th)) (*.f64 th (sin.f64 ky))) (sqrt.f64 #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))

(*.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (*.f64 (*.f64 ky ky) (fma.f64 (*.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) #s(approx (sin ky) (fma.f64 ky (*.f64 (*.f64 ky ky) (fma.f64 (*.f64 ky ky) (fma.f64 #s(literal -1/5040 binary64) (*.f64 ky ky) #s(literal 1/120 binary64)) #s(literal -1/6 binary64))) ky))) (sin.f64 th))

#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th))

Calls

3 calls:

34.0ms	(sin.f64 ky)
28.0ms	ky
16.0ms	(/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))))

Results

Accuracy	Segments	Branch
61.2%	3	`(sin.f64 ky)`
53.5%	2	`ky`
63.8%	3	`(/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))))`

Compiler

Compiled 25 to 18 computations (28% saved)

regimes21.0ms (0.2%)

Memory

18.8MiB live, 55.3MiB allocated

Counts

54 → 3

Calls

Call 1

Inputs
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 #s(literal -1/6 binary64) (.f64 th (*.f64 th th))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 (.f64 #s(literal -1/6 binary64) (*.f64 th th)) th))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 (.f64 th th) (*.f64 th #s(literal -1/6 binary64))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th #s(literal -1/6 binary64)) th) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 (.f64 th th) (.f64 th #s(literal -1/6 binary64)) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 (.f64 th (.f64 th th)) #s(literal -1/6 binary64) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (+.f64 (.f64 th (.f64 #s(literal -1/6 binary64) (*.f64 th th))) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (*.f64 th th) #s(literal -1/6 binary64))) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 (.f64 th (.f64 th th)) (+.f64 #s(literal -1/6 binary64) (/.f64 #s(literal 1 binary64) (.f64 th th)))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (/.f64 (-.f64 (.f64 th th) (.f64 th (.f64 (.f64 #s(literal -1/6 binary64) (.f64 th th)) (.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)))))) (-.f64 th (.f64 th (.f64 #s(literal -1/6 binary64) (*.f64 th th)))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (.f64 (.f64 (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) (neg.f64 th))) (/.f64 #s(literal 1 binary64) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) (neg.f64 th))))))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th))
(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky #s(approx (+ (* (* ky ky) (+ (/ -1/2 (pow (sin kx) 3)) (/ -1/6 (sin kx)))) (/ 1 (sin kx))) (/.f64 (.f64 (.f64 ky ky) #s(literal -1/2 binary64)) (.f64 kx (.f64 kx kx)))))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) #s(approx (* (sqrt (/ 1 (- 1 (cos (* kx -2))))) (* ky (sqrt 2))) (.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(literal 1/2 binary64))) (/.f64 ky kx)))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) kx)) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 th (-.f64 th (.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)))) (.f64 th (.f64 (.f64 #s(literal -1/6 binary64) (.f64 th th)) (.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)))))) (fma.f64 th (.f64 th th) (.f64 (.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th))) (.f64 th (.f64 (.f64 #s(literal -1/6 binary64) (.f64 th th)) (.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)))))))))))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) #s(approx (/ (+ (* (* kx kx) (/ 1/12 (sqrt 1/2))) (sqrt 1/2)) kx) (.f64 kx (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64)))))) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (- 1 (cos ( kx -2))) (.f64 #s(literal 2 binary64) (.f64 kx kx))))) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th))
(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky #s(approx (+ (* (* ky ky) (+ (/ -1/2 (pow (sin kx) 3)) (/ -1/6 (sin kx)))) (/ 1 (sin kx))) (/.f64 (fma.f64 (.f64 ky ky) #s(literal -1/2 binary64) (.f64 (.f64 kx kx) (fma.f64 (.f64 ky ky) #s(literal -5/12 binary64) #s(literal 1 binary64)))) (.f64 kx (.f64 kx kx)))))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (- 1 (cos ( kx -2))) (.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) #s(literal -2/3 binary64) #s(literal 2 binary64)))))) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th))
(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) #s(approx ( ky (+ (* (* ky ky) (+ (/ -1/2 (pow (sin kx) 3)) (/ -1/6 (sin kx)))) (/ 1 (sin kx)))) (/.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 ky (.f64 ky ky)) (.f64 (.f64 (.f64 kx kx) ky) (fma.f64 (.f64 ky ky) #s(literal -5/12 binary64) #s(literal 1 binary64)))) (.f64 kx (.f64 kx kx))))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th))
(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky #s(approx (+ (* (* ky ky) (+ (/ -1/2 (pow (sin kx) 3)) (/ -1/6 (sin kx)))) (/ 1 (sin kx))) (/.f64 (fma.f64 (.f64 kx kx) (fma.f64 (.f64 ky ky) #s(literal -5/12 binary64) (fma.f64 (.f64 kx kx) (fma.f64 (.f64 ky ky) #s(literal -71/720 binary64) #s(literal 1/6 binary64)) #s(literal 1 binary64))) (.f64 (.f64 ky ky) #s(literal -1/2 binary64))) (.f64 kx (.f64 kx kx)))))) (sin.f64 th))
(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) #s(approx ( ky (+ (* (* ky ky) (+ (/ -1/2 (pow (sin kx) 3)) (/ -1/6 (sin kx)))) (/ 1 (sin kx)))) (/.f64 (fma.f64 (.f64 kx kx) (fma.f64 ky (fma.f64 (.f64 ky ky) #s(literal -5/12 binary64) #s(literal 1 binary64)) (.f64 (.f64 (.f64 kx kx) ky) (fma.f64 (.f64 ky ky) #s(literal -71/720 binary64) #s(literal 1/6 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 ky (.f64 ky ky)))) (.f64 kx (*.f64 kx kx))))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) #s(approx (* (sqrt (/ 1 (- 1 (cos (* kx -2))))) (* ky (sqrt 2))) (/.f64 (fma.f64 #s(literal 1/12 binary64) (.f64 (.f64 ky (sqrt.f64 #s(literal 2 binary64))) (/.f64 (.f64 kx kx) (sqrt.f64 #s(literal 1/2 binary64)))) (.f64 (*.f64 ky (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 2 binary64)))) kx))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) #s(approx (* (sqrt (/ 1 (- 1 (cos (* kx -2))))) (* ky (sqrt 2))) (/.f64 (fma.f64 #s(literal 1/12 binary64) (/.f64 (.f64 (.f64 kx kx) (.f64 ky (sqrt.f64 #s(literal 2 binary64)))) (sqrt.f64 #s(literal 1/2 binary64))) (.f64 (*.f64 ky (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 2 binary64)))) kx))) (sin.f64 th))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (/.f64 (*.f64 ky (sin.f64 th)) (sin.f64 kx)))
(*.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (/.f64 ky (sin.f64 kx))) (sin.f64 th))
(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky #s(approx (+ (* (* ky ky) (+ (/ -1/2 (pow (sin kx) 3)) (/ -1/6 (sin kx)))) (/ 1 (sin kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (sin.f64 th))
(/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) #s(approx (+ (* -1/2 (cos (* ky -2))) 1/2) (*.f64 ky ky)))))
(/.f64 #s(approx (* (sin ky) (sin th)) (.f64 th (sin.f64 ky))) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))
(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 #s(approx (pow (sin kx) 2) (.f64 kx kx)) #s(approx (pow (sin ky) 2) (*.f64 ky ky))))) (sin.f64 th))
(.f64 (sin.f64 th) #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (/.f64 (.f64 ky (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))))
(/.f64 (.f64 (sin.f64 ky) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th))) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))
#s(approx (* (* (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (sin th)) (.f64 (.f64 (.f64 ky (sin.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))))
#s(approx (/ (* (sin ky) (sin th)) (sqrt (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (.f64 (.f64 (.f64 ky (sin.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))))
#s(approx (/ (* (sin ky) (sin th)) (sqrt (+ (* (- 1 (cos (+ kx kx))) 1/2) (pow (sin ky) 2)))) (.f64 (.f64 (.f64 ky (sin.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64)))))) (sqrt.f64 #s(literal 2 binary64))) ky)) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (/.f64 (.f64 #s(literal 1 binary64) ky) (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64)))))) (sqrt.f64 #s(literal 2 binary64)))) (sin.f64 th))
(.f64 (.f64 (sqrt.f64 #s(approx (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky)))))) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) (fma.f64 kx kx #s(literal 1/2 binary64)))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 ky ky))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) #s(approx (sin ky) (fma.f64 ky (.f64 #s(literal -1/6 binary64) (*.f64 ky ky)) ky))) (sin.f64 th))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(approx (- 1 (cos (+ kx kx))) (.f64 #s(literal 2 binary64) (.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) (fma.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) #s(literal -1/3 binary64) #s(literal 1 binary64)) #s(literal 1/2 binary64)))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) #s(approx (sin ky) (.f64 ky (fma.f64 (.f64 ky ky) (fma.f64 #s(literal 1/120 binary64) (.f64 ky ky) #s(literal -1/6 binary64)) #s(literal 1 binary64))))) (sin.f64 th))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(approx (- 1 (cos (+ kx kx))) (.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) #s(literal -2/3 binary64) #s(literal 2 binary64)))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (*.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) (fma.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) #s(literal 2/45 binary64) #s(literal -1/3 binary64)) #s(literal 1 binary64)) #s(literal 1/2 binary64)))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (*.f64 th th) #s(literal -1/6 binary64))) th)))

Outputs

(/.f64 #s(approx (* (sin ky) (sin th)) (*.f64 th (sin.f64 ky))) (sqrt.f64 #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))

(*.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (*.f64 (*.f64 ky ky) (fma.f64 (*.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) #s(approx (sin ky) (*.f64 ky (fma.f64 (*.f64 ky ky) (fma.f64 #s(literal 1/120 binary64) (*.f64 ky ky) #s(literal -1/6 binary64)) #s(literal 1 binary64))))) (sin.f64 th))

#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th))

Calls

1 calls:

17.0ms

(/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))))

Results

Accuracy	Segments	Branch
63.8%	3	`(/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))))`

Compiler

Compiled 16 to 11 computations (31.3% saved)

regimes19.0ms (0.1%)

Memory

7.2MiB live, 45.0MiB allocated

Counts

50 → 3

Calls

Call 1

Inputs
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 #s(literal -1/6 binary64) (.f64 th (*.f64 th th))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 (.f64 #s(literal -1/6 binary64) (*.f64 th th)) th))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 (.f64 th th) (*.f64 th #s(literal -1/6 binary64))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th #s(literal -1/6 binary64)) th) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 (.f64 th th) (.f64 th #s(literal -1/6 binary64)) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 (.f64 th (.f64 th th)) #s(literal -1/6 binary64) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (+.f64 (.f64 th (.f64 #s(literal -1/6 binary64) (*.f64 th th))) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (*.f64 th th) #s(literal -1/6 binary64))) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 (.f64 th (.f64 th th)) (+.f64 #s(literal -1/6 binary64) (/.f64 #s(literal 1 binary64) (.f64 th th)))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (/.f64 (-.f64 (.f64 th th) (.f64 th (.f64 (.f64 #s(literal -1/6 binary64) (.f64 th th)) (.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)))))) (-.f64 th (.f64 th (.f64 #s(literal -1/6 binary64) (*.f64 th th)))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (.f64 (.f64 (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) (neg.f64 th))) (/.f64 #s(literal 1 binary64) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) (neg.f64 th))))))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th))
(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky #s(approx (+ (* (* ky ky) (+ (/ -1/2 (pow (sin kx) 3)) (/ -1/6 (sin kx)))) (/ 1 (sin kx))) (/.f64 (.f64 (.f64 ky ky) #s(literal -1/2 binary64)) (.f64 kx (.f64 kx kx)))))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) #s(approx (* (sqrt (/ 1 (- 1 (cos (* kx -2))))) (* ky (sqrt 2))) (.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(literal 1/2 binary64))) (/.f64 ky kx)))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) kx)) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 th (-.f64 th (.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)))) (.f64 th (.f64 (.f64 #s(literal -1/6 binary64) (.f64 th th)) (.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)))))) (fma.f64 th (.f64 th th) (.f64 (.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th))) (.f64 th (.f64 (.f64 #s(literal -1/6 binary64) (.f64 th th)) (.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)))))))))))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) #s(approx (/ (+ (* (* kx kx) (/ 1/12 (sqrt 1/2))) (sqrt 1/2)) kx) (.f64 kx (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64)))))) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (- 1 (cos ( kx -2))) (.f64 #s(literal 2 binary64) (.f64 kx kx))))) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th))
(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky #s(approx (+ (* (* ky ky) (+ (/ -1/2 (pow (sin kx) 3)) (/ -1/6 (sin kx)))) (/ 1 (sin kx))) (/.f64 (fma.f64 (.f64 ky ky) #s(literal -1/2 binary64) (.f64 (.f64 kx kx) (fma.f64 (.f64 ky ky) #s(literal -5/12 binary64) #s(literal 1 binary64)))) (.f64 kx (.f64 kx kx)))))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (- 1 (cos ( kx -2))) (.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) #s(literal -2/3 binary64) #s(literal 2 binary64)))))) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th))
(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) #s(approx ( ky (+ (* (* ky ky) (+ (/ -1/2 (pow (sin kx) 3)) (/ -1/6 (sin kx)))) (/ 1 (sin kx)))) (/.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 ky (.f64 ky ky)) (.f64 (.f64 (.f64 kx kx) ky) (fma.f64 (.f64 ky ky) #s(literal -5/12 binary64) #s(literal 1 binary64)))) (.f64 kx (.f64 kx kx))))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th))
(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky #s(approx (+ (* (* ky ky) (+ (/ -1/2 (pow (sin kx) 3)) (/ -1/6 (sin kx)))) (/ 1 (sin kx))) (/.f64 (fma.f64 (.f64 kx kx) (fma.f64 (.f64 ky ky) #s(literal -5/12 binary64) (fma.f64 (.f64 kx kx) (fma.f64 (.f64 ky ky) #s(literal -71/720 binary64) #s(literal 1/6 binary64)) #s(literal 1 binary64))) (.f64 (.f64 ky ky) #s(literal -1/2 binary64))) (.f64 kx (.f64 kx kx)))))) (sin.f64 th))
(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) #s(approx ( ky (+ (* (* ky ky) (+ (/ -1/2 (pow (sin kx) 3)) (/ -1/6 (sin kx)))) (/ 1 (sin kx)))) (/.f64 (fma.f64 (.f64 kx kx) (fma.f64 ky (fma.f64 (.f64 ky ky) #s(literal -5/12 binary64) #s(literal 1 binary64)) (.f64 (.f64 (.f64 kx kx) ky) (fma.f64 (.f64 ky ky) #s(literal -71/720 binary64) #s(literal 1/6 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 ky (.f64 ky ky)))) (.f64 kx (*.f64 kx kx))))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) #s(approx (* (sqrt (/ 1 (- 1 (cos (* kx -2))))) (* ky (sqrt 2))) (/.f64 (fma.f64 #s(literal 1/12 binary64) (.f64 (.f64 ky (sqrt.f64 #s(literal 2 binary64))) (/.f64 (.f64 kx kx) (sqrt.f64 #s(literal 1/2 binary64)))) (.f64 (*.f64 ky (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 2 binary64)))) kx))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) #s(approx (* (sqrt (/ 1 (- 1 (cos (* kx -2))))) (* ky (sqrt 2))) (/.f64 (fma.f64 #s(literal 1/12 binary64) (/.f64 (.f64 (.f64 kx kx) (.f64 ky (sqrt.f64 #s(literal 2 binary64)))) (sqrt.f64 #s(literal 1/2 binary64))) (.f64 (*.f64 ky (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 2 binary64)))) kx))) (sin.f64 th))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (/.f64 (*.f64 ky (sin.f64 th)) (sin.f64 kx)))
(*.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (/.f64 ky (sin.f64 kx))) (sin.f64 th))
(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky #s(approx (+ (* (* ky ky) (+ (/ -1/2 (pow (sin kx) 3)) (/ -1/6 (sin kx)))) (/ 1 (sin kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (sin.f64 th))
(/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) #s(approx (+ (* -1/2 (cos (* ky -2))) 1/2) (*.f64 ky ky)))))
(/.f64 #s(approx (* (sin ky) (sin th)) (.f64 th (sin.f64 ky))) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))
(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 #s(approx (pow (sin kx) 2) (.f64 kx kx)) #s(approx (pow (sin ky) 2) (*.f64 ky ky))))) (sin.f64 th))
(.f64 (sin.f64 th) #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (/.f64 (.f64 ky (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))))
(/.f64 (.f64 (sin.f64 ky) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th))) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))
#s(approx (* (* (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (sin th)) (.f64 (.f64 (.f64 ky (sin.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))))
#s(approx (/ (* (sin ky) (sin th)) (sqrt (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (.f64 (.f64 (.f64 ky (sin.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))))
#s(approx (/ (* (sin ky) (sin th)) (sqrt (+ (* (- 1 (cos (+ kx kx))) 1/2) (pow (sin ky) 2)))) (.f64 (.f64 (.f64 ky (sin.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64)))))) (sqrt.f64 #s(literal 2 binary64))) ky)) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (/.f64 (.f64 #s(literal 1 binary64) ky) (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64)))))) (sqrt.f64 #s(literal 2 binary64)))) (sin.f64 th))
(.f64 (.f64 (sqrt.f64 #s(approx (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky)))))) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) (fma.f64 kx kx #s(literal 1/2 binary64)))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 ky ky))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) #s(approx (sin ky) (fma.f64 ky (.f64 #s(literal -1/6 binary64) (*.f64 ky ky)) ky))) (sin.f64 th))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(approx (- 1 (cos (+ kx kx))) (.f64 #s(literal 2 binary64) (.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) (fma.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) #s(literal -1/3 binary64) #s(literal 1 binary64)) #s(literal 1/2 binary64)))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th)))

Outputs

(/.f64 #s(approx (* (sin ky) (sin th)) (*.f64 th (sin.f64 ky))) (sqrt.f64 #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))

(*.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (*.f64 (*.f64 ky ky) (fma.f64 (*.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) #s(approx (sin ky) (fma.f64 ky (*.f64 #s(literal -1/6 binary64) (*.f64 ky ky)) ky))) (sin.f64 th))

#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th))

Calls

1 calls:

15.0ms

(/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))))

Results

Accuracy	Segments	Branch
63.7%	3	`(/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))))`

Compiler

Compiled 16 to 11 computations (31.3% saved)

regimes51.0ms (0.4%)

Memory

-1.3MiB live, 93.5MiB allocated

Counts

47 → 3

Calls

Call 1

Inputs
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 #s(literal -1/6 binary64) (.f64 th (*.f64 th th))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 (.f64 #s(literal -1/6 binary64) (*.f64 th th)) th))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 (.f64 th th) (*.f64 th #s(literal -1/6 binary64))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th #s(literal -1/6 binary64)) th) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 (.f64 th th) (.f64 th #s(literal -1/6 binary64)) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 (.f64 th (.f64 th th)) #s(literal -1/6 binary64) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (+.f64 (.f64 th (.f64 #s(literal -1/6 binary64) (*.f64 th th))) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (*.f64 th th) #s(literal -1/6 binary64))) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 (.f64 th (.f64 th th)) (+.f64 #s(literal -1/6 binary64) (/.f64 #s(literal 1 binary64) (.f64 th th)))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (/.f64 (-.f64 (.f64 th th) (.f64 th (.f64 (.f64 #s(literal -1/6 binary64) (.f64 th th)) (.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)))))) (-.f64 th (.f64 th (.f64 #s(literal -1/6 binary64) (*.f64 th th)))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (.f64 (.f64 (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) (neg.f64 th))) (/.f64 #s(literal 1 binary64) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) (neg.f64 th))))))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th))
(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky #s(approx (+ (* (* ky ky) (+ (/ -1/2 (pow (sin kx) 3)) (/ -1/6 (sin kx)))) (/ 1 (sin kx))) (/.f64 (.f64 (.f64 ky ky) #s(literal -1/2 binary64)) (.f64 kx (.f64 kx kx)))))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) #s(approx (* (sqrt (/ 1 (- 1 (cos (* kx -2))))) (* ky (sqrt 2))) (.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(literal 1/2 binary64))) (/.f64 ky kx)))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) kx)) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 th (-.f64 th (.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)))) (.f64 th (.f64 (.f64 #s(literal -1/6 binary64) (.f64 th th)) (.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)))))) (fma.f64 th (.f64 th th) (.f64 (.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th))) (.f64 th (.f64 (.f64 #s(literal -1/6 binary64) (.f64 th th)) (.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)))))))))))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) #s(approx (/ (+ (* (* kx kx) (/ 1/12 (sqrt 1/2))) (sqrt 1/2)) kx) (.f64 kx (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64)))))) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (- 1 (cos ( kx -2))) (.f64 #s(literal 2 binary64) (.f64 kx kx))))) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th))
(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky #s(approx (+ (* (* ky ky) (+ (/ -1/2 (pow (sin kx) 3)) (/ -1/6 (sin kx)))) (/ 1 (sin kx))) (/.f64 (fma.f64 (.f64 ky ky) #s(literal -1/2 binary64) (.f64 (.f64 kx kx) (fma.f64 (.f64 ky ky) #s(literal -5/12 binary64) #s(literal 1 binary64)))) (.f64 kx (.f64 kx kx)))))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (- 1 (cos ( kx -2))) (.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) #s(literal -2/3 binary64) #s(literal 2 binary64)))))) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th))
(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) #s(approx ( ky (+ (* (* ky ky) (+ (/ -1/2 (pow (sin kx) 3)) (/ -1/6 (sin kx)))) (/ 1 (sin kx)))) (/.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 ky (.f64 ky ky)) (.f64 (.f64 (.f64 kx kx) ky) (fma.f64 (.f64 ky ky) #s(literal -5/12 binary64) #s(literal 1 binary64)))) (.f64 kx (.f64 kx kx))))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th))
(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky #s(approx (+ (* (* ky ky) (+ (/ -1/2 (pow (sin kx) 3)) (/ -1/6 (sin kx)))) (/ 1 (sin kx))) (/.f64 (fma.f64 (.f64 kx kx) (fma.f64 (.f64 ky ky) #s(literal -5/12 binary64) (fma.f64 (.f64 kx kx) (fma.f64 (.f64 ky ky) #s(literal -71/720 binary64) #s(literal 1/6 binary64)) #s(literal 1 binary64))) (.f64 (.f64 ky ky) #s(literal -1/2 binary64))) (.f64 kx (.f64 kx kx)))))) (sin.f64 th))
(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) #s(approx ( ky (+ (* (* ky ky) (+ (/ -1/2 (pow (sin kx) 3)) (/ -1/6 (sin kx)))) (/ 1 (sin kx)))) (/.f64 (fma.f64 (.f64 kx kx) (fma.f64 ky (fma.f64 (.f64 ky ky) #s(literal -5/12 binary64) #s(literal 1 binary64)) (.f64 (.f64 (.f64 kx kx) ky) (fma.f64 (.f64 ky ky) #s(literal -71/720 binary64) #s(literal 1/6 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 ky (.f64 ky ky)))) (.f64 kx (*.f64 kx kx))))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) #s(approx (* (sqrt (/ 1 (- 1 (cos (* kx -2))))) (* ky (sqrt 2))) (/.f64 (fma.f64 #s(literal 1/12 binary64) (.f64 (.f64 ky (sqrt.f64 #s(literal 2 binary64))) (/.f64 (.f64 kx kx) (sqrt.f64 #s(literal 1/2 binary64)))) (.f64 (*.f64 ky (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 2 binary64)))) kx))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) #s(approx (* (sqrt (/ 1 (- 1 (cos (* kx -2))))) (* ky (sqrt 2))) (/.f64 (fma.f64 #s(literal 1/12 binary64) (/.f64 (.f64 (.f64 kx kx) (.f64 ky (sqrt.f64 #s(literal 2 binary64)))) (sqrt.f64 #s(literal 1/2 binary64))) (.f64 (*.f64 ky (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 2 binary64)))) kx))) (sin.f64 th))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (/.f64 (*.f64 ky (sin.f64 th)) (sin.f64 kx)))
(*.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (/.f64 ky (sin.f64 kx))) (sin.f64 th))
(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky #s(approx (+ (* (* ky ky) (+ (/ -1/2 (pow (sin kx) 3)) (/ -1/6 (sin kx)))) (/ 1 (sin kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (sin.f64 th))
(/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) #s(approx (+ (* -1/2 (cos (* ky -2))) 1/2) (*.f64 ky ky)))))
(/.f64 #s(approx (* (sin ky) (sin th)) (.f64 th (sin.f64 ky))) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))
(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 #s(approx (pow (sin kx) 2) (.f64 kx kx)) #s(approx (pow (sin ky) 2) (*.f64 ky ky))))) (sin.f64 th))
(.f64 (sin.f64 th) #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (/.f64 (.f64 ky (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))))
(/.f64 (.f64 (sin.f64 ky) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th))) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))
#s(approx (* (* (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (sin th)) (.f64 (.f64 (.f64 ky (sin.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))))
#s(approx (/ (* (sin ky) (sin th)) (sqrt (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (.f64 (.f64 (.f64 ky (sin.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))))
#s(approx (/ (* (sin ky) (sin th)) (sqrt (+ (* (- 1 (cos (+ kx kx))) 1/2) (pow (sin ky) 2)))) (.f64 (.f64 (.f64 ky (sin.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64)))))) (sqrt.f64 #s(literal 2 binary64))) ky)) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (/.f64 (.f64 #s(literal 1 binary64) ky) (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64)))))) (sqrt.f64 #s(literal 2 binary64)))) (sin.f64 th))
(.f64 (.f64 (sqrt.f64 #s(approx (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky)))))) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) (fma.f64 kx kx #s(literal 1/2 binary64)))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th)))
(.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 ky ky))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th)))

Outputs

(/.f64 #s(approx (* (sin ky) (sin th)) (*.f64 th (sin.f64 ky))) (sqrt.f64 #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))

(*.f64 #s(approx (* (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64)))))) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th))

#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th))

Calls

3 calls:

20.0ms	(/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))))
14.0ms	(pow.f64 (sin.f64 kx) #s(literal 2 binary64))
14.0ms	kx

Results

Accuracy	Segments	Branch
53.5%	2	`(pow.f64 (sin.f64 kx) #s(literal 2 binary64))`
53.5%	2	`kx`
63.1%	3	`(/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))))`

Compiler

Compiled 27 to 20 computations (25.9% saved)

regimes16.0ms (0.1%)

Memory

-1.7MiB live, 35.4MiB allocated

Counts

39 → 3

Calls

Call 1

Inputs
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 #s(literal -1/6 binary64) (.f64 th (*.f64 th th))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 (.f64 #s(literal -1/6 binary64) (*.f64 th th)) th))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 (.f64 th th) (*.f64 th #s(literal -1/6 binary64))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th #s(literal -1/6 binary64)) th) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 (.f64 th th) (.f64 th #s(literal -1/6 binary64)) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 (.f64 th (.f64 th th)) #s(literal -1/6 binary64) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (+.f64 (.f64 th (.f64 #s(literal -1/6 binary64) (*.f64 th th))) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (*.f64 th th) #s(literal -1/6 binary64))) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 (.f64 th (.f64 th th)) (+.f64 #s(literal -1/6 binary64) (/.f64 #s(literal 1 binary64) (.f64 th th)))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (/.f64 (-.f64 (.f64 th th) (.f64 th (.f64 (.f64 #s(literal -1/6 binary64) (.f64 th th)) (.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)))))) (-.f64 th (.f64 th (.f64 #s(literal -1/6 binary64) (*.f64 th th)))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (.f64 (.f64 (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) (neg.f64 th))) (/.f64 #s(literal 1 binary64) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) (neg.f64 th))))))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th))
(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky #s(approx (+ (* (* ky ky) (+ (/ -1/2 (pow (sin kx) 3)) (/ -1/6 (sin kx)))) (/ 1 (sin kx))) (/.f64 (.f64 (.f64 ky ky) #s(literal -1/2 binary64)) (.f64 kx (.f64 kx kx)))))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) #s(approx (* (sqrt (/ 1 (- 1 (cos (* kx -2))))) (* ky (sqrt 2))) (.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(literal 1/2 binary64))) (/.f64 ky kx)))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) kx)) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 th (-.f64 th (.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)))) (.f64 th (.f64 (.f64 #s(literal -1/6 binary64) (.f64 th th)) (.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)))))) (fma.f64 th (.f64 th th) (.f64 (.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th))) (.f64 th (.f64 (.f64 #s(literal -1/6 binary64) (.f64 th th)) (.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)))))))))))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) #s(approx (/ (+ (* (* kx kx) (/ 1/12 (sqrt 1/2))) (sqrt 1/2)) kx) (.f64 kx (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64)))))) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (- 1 (cos ( kx -2))) (.f64 #s(literal 2 binary64) (.f64 kx kx))))) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th))
(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky #s(approx (+ (* (* ky ky) (+ (/ -1/2 (pow (sin kx) 3)) (/ -1/6 (sin kx)))) (/ 1 (sin kx))) (/.f64 (fma.f64 (.f64 ky ky) #s(literal -1/2 binary64) (.f64 (.f64 kx kx) (fma.f64 (.f64 ky ky) #s(literal -5/12 binary64) #s(literal 1 binary64)))) (.f64 kx (.f64 kx kx)))))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (- 1 (cos ( kx -2))) (.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) #s(literal -2/3 binary64) #s(literal 2 binary64)))))) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th))
(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) #s(approx ( ky (+ (* (* ky ky) (+ (/ -1/2 (pow (sin kx) 3)) (/ -1/6 (sin kx)))) (/ 1 (sin kx)))) (/.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 ky (.f64 ky ky)) (.f64 (.f64 (.f64 kx kx) ky) (fma.f64 (.f64 ky ky) #s(literal -5/12 binary64) #s(literal 1 binary64)))) (.f64 kx (.f64 kx kx))))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th))
(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky #s(approx (+ (* (* ky ky) (+ (/ -1/2 (pow (sin kx) 3)) (/ -1/6 (sin kx)))) (/ 1 (sin kx))) (/.f64 (fma.f64 (.f64 kx kx) (fma.f64 (.f64 ky ky) #s(literal -5/12 binary64) (fma.f64 (.f64 kx kx) (fma.f64 (.f64 ky ky) #s(literal -71/720 binary64) #s(literal 1/6 binary64)) #s(literal 1 binary64))) (.f64 (.f64 ky ky) #s(literal -1/2 binary64))) (.f64 kx (.f64 kx kx)))))) (sin.f64 th))
(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) #s(approx ( ky (+ (* (* ky ky) (+ (/ -1/2 (pow (sin kx) 3)) (/ -1/6 (sin kx)))) (/ 1 (sin kx)))) (/.f64 (fma.f64 (.f64 kx kx) (fma.f64 ky (fma.f64 (.f64 ky ky) #s(literal -5/12 binary64) #s(literal 1 binary64)) (.f64 (.f64 (.f64 kx kx) ky) (fma.f64 (.f64 ky ky) #s(literal -71/720 binary64) #s(literal 1/6 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 ky (.f64 ky ky)))) (.f64 kx (*.f64 kx kx))))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) #s(approx (* (sqrt (/ 1 (- 1 (cos (* kx -2))))) (* ky (sqrt 2))) (/.f64 (fma.f64 #s(literal 1/12 binary64) (.f64 (.f64 ky (sqrt.f64 #s(literal 2 binary64))) (/.f64 (.f64 kx kx) (sqrt.f64 #s(literal 1/2 binary64)))) (.f64 (*.f64 ky (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 2 binary64)))) kx))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) #s(approx (* (sqrt (/ 1 (- 1 (cos (* kx -2))))) (* ky (sqrt 2))) (/.f64 (fma.f64 #s(literal 1/12 binary64) (/.f64 (.f64 (.f64 kx kx) (.f64 ky (sqrt.f64 #s(literal 2 binary64)))) (sqrt.f64 #s(literal 1/2 binary64))) (.f64 (*.f64 ky (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 2 binary64)))) kx))) (sin.f64 th))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (/.f64 (*.f64 ky (sin.f64 th)) (sin.f64 kx)))
(*.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (/.f64 ky (sin.f64 kx))) (sin.f64 th))
(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky #s(approx (+ (* (* ky ky) (+ (/ -1/2 (pow (sin kx) 3)) (/ -1/6 (sin kx)))) (/ 1 (sin kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (sin.f64 th))
(/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) #s(approx (+ (* -1/2 (cos (* ky -2))) 1/2) (*.f64 ky ky)))))
(/.f64 #s(approx (* (sin ky) (sin th)) (.f64 th (sin.f64 ky))) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))
(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 #s(approx (pow (sin kx) 2) (.f64 kx kx)) #s(approx (pow (sin ky) 2) (*.f64 ky ky))))) (sin.f64 th))
(.f64 (sin.f64 th) #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (/.f64 (.f64 ky (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))))
(/.f64 (.f64 (sin.f64 ky) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th))) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))
#s(approx (* (* (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (sin th)) (.f64 (.f64 (.f64 ky (sin.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))))
#s(approx (/ (* (sin ky) (sin th)) (sqrt (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (.f64 (.f64 (.f64 ky (sin.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))))
#s(approx (/ (* (sin ky) (sin th)) (sqrt (+ (* (- 1 (cos (+ kx kx))) 1/2) (pow (sin ky) 2)))) (.f64 (.f64 (.f64 ky (sin.f64 th)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))))

Outputs

(/.f64 #s(approx (* (sin ky) (sin th)) (*.f64 th (sin.f64 ky))) (sqrt.f64 #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))

(*.f64 (sin.f64 th) #s(approx (* (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (/.f64 (*.f64 ky (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (*.f64 kx #s(literal -2 binary64))))))))

#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th))

Calls

1 calls:

11.0ms

(/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))))

Results

Accuracy	Segments	Branch
63.1%	3	`(/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))))`

Compiler

Compiled 16 to 11 computations (31.3% saved)

regimes59.0ms (0.4%)

Memory

-27.4MiB live, 134.6MiB allocated

Counts

34 → 3

Calls

Call 1

Inputs
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 #s(literal -1/6 binary64) (.f64 th (*.f64 th th))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 (.f64 #s(literal -1/6 binary64) (*.f64 th th)) th))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 (.f64 th th) (*.f64 th #s(literal -1/6 binary64))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th #s(literal -1/6 binary64)) th) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 (.f64 th th) (.f64 th #s(literal -1/6 binary64)) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 (.f64 th (.f64 th th)) #s(literal -1/6 binary64) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (+.f64 (.f64 th (.f64 #s(literal -1/6 binary64) (*.f64 th th))) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (*.f64 th th) #s(literal -1/6 binary64))) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 (.f64 th (.f64 th th)) (+.f64 #s(literal -1/6 binary64) (/.f64 #s(literal 1 binary64) (.f64 th th)))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (/.f64 (-.f64 (.f64 th th) (.f64 th (.f64 (.f64 #s(literal -1/6 binary64) (.f64 th th)) (.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)))))) (-.f64 th (.f64 th (.f64 #s(literal -1/6 binary64) (*.f64 th th)))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (.f64 (.f64 (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) (neg.f64 th))) (/.f64 #s(literal 1 binary64) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) (neg.f64 th))))))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th))
(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky #s(approx (+ (* (* ky ky) (+ (/ -1/2 (pow (sin kx) 3)) (/ -1/6 (sin kx)))) (/ 1 (sin kx))) (/.f64 (.f64 (.f64 ky ky) #s(literal -1/2 binary64)) (.f64 kx (.f64 kx kx)))))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) #s(approx (* (sqrt (/ 1 (- 1 (cos (* kx -2))))) (* ky (sqrt 2))) (.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(literal 1/2 binary64))) (/.f64 ky kx)))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) kx)) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 th (-.f64 th (.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)))) (.f64 th (.f64 (.f64 #s(literal -1/6 binary64) (.f64 th th)) (.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)))))) (fma.f64 th (.f64 th th) (.f64 (.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th))) (.f64 th (.f64 (.f64 #s(literal -1/6 binary64) (.f64 th th)) (.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)))))))))))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) #s(approx (/ (+ (* (* kx kx) (/ 1/12 (sqrt 1/2))) (sqrt 1/2)) kx) (.f64 kx (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64)))))) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (- 1 (cos ( kx -2))) (.f64 #s(literal 2 binary64) (.f64 kx kx))))) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th))
(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky #s(approx (+ (* (* ky ky) (+ (/ -1/2 (pow (sin kx) 3)) (/ -1/6 (sin kx)))) (/ 1 (sin kx))) (/.f64 (fma.f64 (.f64 ky ky) #s(literal -1/2 binary64) (.f64 (.f64 kx kx) (fma.f64 (.f64 ky ky) #s(literal -5/12 binary64) #s(literal 1 binary64)))) (.f64 kx (.f64 kx kx)))))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (- 1 (cos ( kx -2))) (.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) #s(literal -2/3 binary64) #s(literal 2 binary64)))))) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th))
(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) #s(approx ( ky (+ (* (* ky ky) (+ (/ -1/2 (pow (sin kx) 3)) (/ -1/6 (sin kx)))) (/ 1 (sin kx)))) (/.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 ky (.f64 ky ky)) (.f64 (.f64 (.f64 kx kx) ky) (fma.f64 (.f64 ky ky) #s(literal -5/12 binary64) #s(literal 1 binary64)))) (.f64 kx (.f64 kx kx))))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th))
(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky #s(approx (+ (* (* ky ky) (+ (/ -1/2 (pow (sin kx) 3)) (/ -1/6 (sin kx)))) (/ 1 (sin kx))) (/.f64 (fma.f64 (.f64 kx kx) (fma.f64 (.f64 ky ky) #s(literal -5/12 binary64) (fma.f64 (.f64 kx kx) (fma.f64 (.f64 ky ky) #s(literal -71/720 binary64) #s(literal 1/6 binary64)) #s(literal 1 binary64))) (.f64 (.f64 ky ky) #s(literal -1/2 binary64))) (.f64 kx (.f64 kx kx)))))) (sin.f64 th))
(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) #s(approx ( ky (+ (* (* ky ky) (+ (/ -1/2 (pow (sin kx) 3)) (/ -1/6 (sin kx)))) (/ 1 (sin kx)))) (/.f64 (fma.f64 (.f64 kx kx) (fma.f64 ky (fma.f64 (.f64 ky ky) #s(literal -5/12 binary64) #s(literal 1 binary64)) (.f64 (.f64 (.f64 kx kx) ky) (fma.f64 (.f64 ky ky) #s(literal -71/720 binary64) #s(literal 1/6 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 ky (.f64 ky ky)))) (.f64 kx (*.f64 kx kx))))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) #s(approx (* (sqrt (/ 1 (- 1 (cos (* kx -2))))) (* ky (sqrt 2))) (/.f64 (fma.f64 #s(literal 1/12 binary64) (.f64 (.f64 ky (sqrt.f64 #s(literal 2 binary64))) (/.f64 (.f64 kx kx) (sqrt.f64 #s(literal 1/2 binary64)))) (.f64 (*.f64 ky (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 2 binary64)))) kx))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) #s(approx (* (sqrt (/ 1 (- 1 (cos (* kx -2))))) (* ky (sqrt 2))) (/.f64 (fma.f64 #s(literal 1/12 binary64) (/.f64 (.f64 (.f64 kx kx) (.f64 ky (sqrt.f64 #s(literal 2 binary64)))) (sqrt.f64 #s(literal 1/2 binary64))) (.f64 (*.f64 ky (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 2 binary64)))) kx))) (sin.f64 th))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (/.f64 (*.f64 ky (sin.f64 th)) (sin.f64 kx)))
(*.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (/.f64 ky (sin.f64 kx))) (sin.f64 th))
(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky #s(approx (+ (* (* ky ky) (+ (/ -1/2 (pow (sin kx) 3)) (/ -1/6 (sin kx)))) (/ 1 (sin kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (sin.f64 th))
(/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) #s(approx (+ (* -1/2 (cos (* ky -2))) 1/2) (*.f64 ky ky)))))
(/.f64 #s(approx (* (sin ky) (sin th)) (.f64 th (sin.f64 ky))) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))
(.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 #s(approx (pow (sin kx) 2) (.f64 kx kx)) #s(approx (pow (sin ky) 2) (*.f64 ky ky))))) (sin.f64 th))

Outputs

(/.f64 #s(approx (* (sin ky) (sin th)) (*.f64 th (sin.f64 ky))) (sqrt.f64 #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (*.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))

(*.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (*.f64 ky #s(approx (+ (* (* ky ky) (+ (/ -1/2 (pow (sin kx) 3)) (/ -1/6 (sin kx)))) (/ 1 (sin kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (sin.f64 th))

#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th))

Calls

5 calls:

13.0ms	(sin.f64 kx)
12.0ms	(/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))))
11.0ms	th
10.0ms	(sin.f64 th)
10.0ms	(sin.f64 ky)

Results

Accuracy	Segments	Branch
32.9%	1	`(sin.f64 th)`
32.9%	1	`th`
50.5%	3	`(sin.f64 ky)`
39.6%	2	`(sin.f64 kx)`
57.0%	3	`(/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))))`

Compiler

Compiled 35 to 26 computations (25.7% saved)

regimes54.0ms (0.4%)

Memory

17.8MiB live, 136.4MiB allocated

Counts

32 → 2

Calls

Call 1

Inputs
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 #s(literal -1/6 binary64) (.f64 th (*.f64 th th))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 (.f64 #s(literal -1/6 binary64) (*.f64 th th)) th))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 (.f64 th th) (*.f64 th #s(literal -1/6 binary64))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th #s(literal -1/6 binary64)) th) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 (.f64 th th) (.f64 th #s(literal -1/6 binary64)) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 (.f64 th (.f64 th th)) #s(literal -1/6 binary64) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (+.f64 (.f64 th (.f64 #s(literal -1/6 binary64) (*.f64 th th))) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (*.f64 th th) #s(literal -1/6 binary64))) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 (.f64 th (.f64 th th)) (+.f64 #s(literal -1/6 binary64) (/.f64 #s(literal 1 binary64) (.f64 th th)))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (/.f64 (-.f64 (.f64 th th) (.f64 th (.f64 (.f64 #s(literal -1/6 binary64) (.f64 th th)) (.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)))))) (-.f64 th (.f64 th (.f64 #s(literal -1/6 binary64) (*.f64 th th)))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (.f64 (.f64 (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) (neg.f64 th))) (/.f64 #s(literal 1 binary64) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) (neg.f64 th))))))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th))
(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky #s(approx (+ (* (* ky ky) (+ (/ -1/2 (pow (sin kx) 3)) (/ -1/6 (sin kx)))) (/ 1 (sin kx))) (/.f64 (.f64 (.f64 ky ky) #s(literal -1/2 binary64)) (.f64 kx (.f64 kx kx)))))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) #s(approx (* (sqrt (/ 1 (- 1 (cos (* kx -2))))) (* ky (sqrt 2))) (.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(literal 1/2 binary64))) (/.f64 ky kx)))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) kx)) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 th (-.f64 th (.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)))) (.f64 th (.f64 (.f64 #s(literal -1/6 binary64) (.f64 th th)) (.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)))))) (fma.f64 th (.f64 th th) (.f64 (.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th))) (.f64 th (.f64 (.f64 #s(literal -1/6 binary64) (.f64 th th)) (.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)))))))))))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) #s(approx (/ (+ (* (* kx kx) (/ 1/12 (sqrt 1/2))) (sqrt 1/2)) kx) (.f64 kx (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64)))))) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (- 1 (cos ( kx -2))) (.f64 #s(literal 2 binary64) (.f64 kx kx))))) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th))
(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky #s(approx (+ (* (* ky ky) (+ (/ -1/2 (pow (sin kx) 3)) (/ -1/6 (sin kx)))) (/ 1 (sin kx))) (/.f64 (fma.f64 (.f64 ky ky) #s(literal -1/2 binary64) (.f64 (.f64 kx kx) (fma.f64 (.f64 ky ky) #s(literal -5/12 binary64) #s(literal 1 binary64)))) (.f64 kx (.f64 kx kx)))))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (- 1 (cos ( kx -2))) (.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) #s(literal -2/3 binary64) #s(literal 2 binary64)))))) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th))
(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) #s(approx ( ky (+ (* (* ky ky) (+ (/ -1/2 (pow (sin kx) 3)) (/ -1/6 (sin kx)))) (/ 1 (sin kx)))) (/.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 ky (.f64 ky ky)) (.f64 (.f64 (.f64 kx kx) ky) (fma.f64 (.f64 ky ky) #s(literal -5/12 binary64) #s(literal 1 binary64)))) (.f64 kx (.f64 kx kx))))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th))
(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky #s(approx (+ (* (* ky ky) (+ (/ -1/2 (pow (sin kx) 3)) (/ -1/6 (sin kx)))) (/ 1 (sin kx))) (/.f64 (fma.f64 (.f64 kx kx) (fma.f64 (.f64 ky ky) #s(literal -5/12 binary64) (fma.f64 (.f64 kx kx) (fma.f64 (.f64 ky ky) #s(literal -71/720 binary64) #s(literal 1/6 binary64)) #s(literal 1 binary64))) (.f64 (.f64 ky ky) #s(literal -1/2 binary64))) (.f64 kx (.f64 kx kx)))))) (sin.f64 th))
(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) #s(approx ( ky (+ (* (* ky ky) (+ (/ -1/2 (pow (sin kx) 3)) (/ -1/6 (sin kx)))) (/ 1 (sin kx)))) (/.f64 (fma.f64 (.f64 kx kx) (fma.f64 ky (fma.f64 (.f64 ky ky) #s(literal -5/12 binary64) #s(literal 1 binary64)) (.f64 (.f64 (.f64 kx kx) ky) (fma.f64 (.f64 ky ky) #s(literal -71/720 binary64) #s(literal 1/6 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 ky (.f64 ky ky)))) (.f64 kx (*.f64 kx kx))))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) #s(approx (* (sqrt (/ 1 (- 1 (cos (* kx -2))))) (* ky (sqrt 2))) (/.f64 (fma.f64 #s(literal 1/12 binary64) (.f64 (.f64 ky (sqrt.f64 #s(literal 2 binary64))) (/.f64 (.f64 kx kx) (sqrt.f64 #s(literal 1/2 binary64)))) (.f64 (*.f64 ky (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 2 binary64)))) kx))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) #s(approx (* (sqrt (/ 1 (- 1 (cos (* kx -2))))) (* ky (sqrt 2))) (/.f64 (fma.f64 #s(literal 1/12 binary64) (/.f64 (.f64 (.f64 kx kx) (.f64 ky (sqrt.f64 #s(literal 2 binary64)))) (sqrt.f64 #s(literal 1/2 binary64))) (.f64 (*.f64 ky (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 2 binary64)))) kx))) (sin.f64 th))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (/.f64 (*.f64 ky (sin.f64 th)) (sin.f64 kx)))
(*.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (/.f64 ky (sin.f64 kx))) (sin.f64 th))
(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky #s(approx (+ (* (* ky ky) (+ (/ -1/2 (pow (sin kx) 3)) (/ -1/6 (sin kx)))) (/ 1 (sin kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (sin.f64 th))
(/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) #s(approx (+ (* -1/2 (cos (* ky -2))) 1/2) (*.f64 ky ky)))))

Outputs

(*.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (*.f64 ky #s(approx (+ (* (* ky ky) (+ (/ -1/2 (pow (sin kx) 3)) (/ -1/6 (sin kx)))) (/ 1 (sin kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (sin.f64 th))

#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th))

Calls

5 calls:

12.0ms	kx
11.0ms	(*.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (sin.f64 th))
10.0ms	ky
9.0ms	(/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))))
9.0ms	(pow.f64 (sin.f64 kx) #s(literal 2 binary64))

Results

Accuracy	Segments	Branch
40.2%	3	`(*.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (sin.f64 th))`
40.2%	2	`(pow.f64 (sin.f64 kx) #s(literal 2 binary64))`
40.2%	2	`kx`
42.9%	2	`ky`
49.3%	2	`(/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))))`

Compiler

Compiled 50 to 36 computations (28% saved)

regimes12.0ms (0.1%)

Memory

-10.1MiB live, 27.7MiB allocated

Counts

30 → 2

Calls

Call 1

Inputs
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 #s(literal -1/6 binary64) (.f64 th (*.f64 th th))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 (.f64 #s(literal -1/6 binary64) (*.f64 th th)) th))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 (.f64 th th) (*.f64 th #s(literal -1/6 binary64))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th #s(literal -1/6 binary64)) th) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 (.f64 th th) (.f64 th #s(literal -1/6 binary64)) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 (.f64 th (.f64 th th)) #s(literal -1/6 binary64) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (+.f64 (.f64 th (.f64 #s(literal -1/6 binary64) (*.f64 th th))) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (*.f64 th th) #s(literal -1/6 binary64))) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 (.f64 th (.f64 th th)) (+.f64 #s(literal -1/6 binary64) (/.f64 #s(literal 1 binary64) (.f64 th th)))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (/.f64 (-.f64 (.f64 th th) (.f64 th (.f64 (.f64 #s(literal -1/6 binary64) (.f64 th th)) (.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)))))) (-.f64 th (.f64 th (.f64 #s(literal -1/6 binary64) (*.f64 th th)))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (.f64 (.f64 (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) (neg.f64 th))) (/.f64 #s(literal 1 binary64) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) (neg.f64 th))))))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th))
(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky #s(approx (+ (* (* ky ky) (+ (/ -1/2 (pow (sin kx) 3)) (/ -1/6 (sin kx)))) (/ 1 (sin kx))) (/.f64 (.f64 (.f64 ky ky) #s(literal -1/2 binary64)) (.f64 kx (.f64 kx kx)))))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) #s(approx (* (sqrt (/ 1 (- 1 (cos (* kx -2))))) (* ky (sqrt 2))) (.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(literal 1/2 binary64))) (/.f64 ky kx)))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) kx)) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 th (-.f64 th (.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)))) (.f64 th (.f64 (.f64 #s(literal -1/6 binary64) (.f64 th th)) (.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)))))) (fma.f64 th (.f64 th th) (.f64 (.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th))) (.f64 th (.f64 (.f64 #s(literal -1/6 binary64) (.f64 th th)) (.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)))))))))))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) #s(approx (/ (+ (* (* kx kx) (/ 1/12 (sqrt 1/2))) (sqrt 1/2)) kx) (.f64 kx (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64)))))) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (- 1 (cos ( kx -2))) (.f64 #s(literal 2 binary64) (.f64 kx kx))))) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th))
(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky #s(approx (+ (* (* ky ky) (+ (/ -1/2 (pow (sin kx) 3)) (/ -1/6 (sin kx)))) (/ 1 (sin kx))) (/.f64 (fma.f64 (.f64 ky ky) #s(literal -1/2 binary64) (.f64 (.f64 kx kx) (fma.f64 (.f64 ky ky) #s(literal -5/12 binary64) #s(literal 1 binary64)))) (.f64 kx (.f64 kx kx)))))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (- 1 (cos ( kx -2))) (.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) #s(literal -2/3 binary64) #s(literal 2 binary64)))))) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th))
(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) #s(approx ( ky (+ (* (* ky ky) (+ (/ -1/2 (pow (sin kx) 3)) (/ -1/6 (sin kx)))) (/ 1 (sin kx)))) (/.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 ky (.f64 ky ky)) (.f64 (.f64 (.f64 kx kx) ky) (fma.f64 (.f64 ky ky) #s(literal -5/12 binary64) #s(literal 1 binary64)))) (.f64 kx (.f64 kx kx))))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th))
(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky #s(approx (+ (* (* ky ky) (+ (/ -1/2 (pow (sin kx) 3)) (/ -1/6 (sin kx)))) (/ 1 (sin kx))) (/.f64 (fma.f64 (.f64 kx kx) (fma.f64 (.f64 ky ky) #s(literal -5/12 binary64) (fma.f64 (.f64 kx kx) (fma.f64 (.f64 ky ky) #s(literal -71/720 binary64) #s(literal 1/6 binary64)) #s(literal 1 binary64))) (.f64 (.f64 ky ky) #s(literal -1/2 binary64))) (.f64 kx (.f64 kx kx)))))) (sin.f64 th))
(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) #s(approx ( ky (+ (* (* ky ky) (+ (/ -1/2 (pow (sin kx) 3)) (/ -1/6 (sin kx)))) (/ 1 (sin kx)))) (/.f64 (fma.f64 (.f64 kx kx) (fma.f64 ky (fma.f64 (.f64 ky ky) #s(literal -5/12 binary64) #s(literal 1 binary64)) (.f64 (.f64 (.f64 kx kx) ky) (fma.f64 (.f64 ky ky) #s(literal -71/720 binary64) #s(literal 1/6 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 ky (.f64 ky ky)))) (.f64 kx (*.f64 kx kx))))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) #s(approx (* (sqrt (/ 1 (- 1 (cos (* kx -2))))) (* ky (sqrt 2))) (/.f64 (fma.f64 #s(literal 1/12 binary64) (.f64 (.f64 ky (sqrt.f64 #s(literal 2 binary64))) (/.f64 (.f64 kx kx) (sqrt.f64 #s(literal 1/2 binary64)))) (.f64 (*.f64 ky (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 2 binary64)))) kx))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) #s(approx (* (sqrt (/ 1 (- 1 (cos (* kx -2))))) (* ky (sqrt 2))) (/.f64 (fma.f64 #s(literal 1/12 binary64) (/.f64 (.f64 (.f64 kx kx) (.f64 ky (sqrt.f64 #s(literal 2 binary64)))) (sqrt.f64 #s(literal 1/2 binary64))) (.f64 (*.f64 ky (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 2 binary64)))) kx))) (sin.f64 th))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (/.f64 (*.f64 ky (sin.f64 th)) (sin.f64 kx)))
(*.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (/.f64 ky (sin.f64 kx))) (sin.f64 th))

Outputs

(*.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (/.f64 ky (sin.f64 kx))) (sin.f64 th))

#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th))

Calls

1 calls:

10.0ms

(/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))))

Results

Accuracy	Segments	Branch
49.3%	2	`(/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))))`

Compiler

Compiled 16 to 11 computations (31.3% saved)

regimes21.0ms (0.2%)

Memory

14.8MiB live, 52.5MiB allocated

Counts

29 → 2

Calls

Call 1

Inputs
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 #s(literal -1/6 binary64) (.f64 th (*.f64 th th))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 (.f64 #s(literal -1/6 binary64) (*.f64 th th)) th))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 (.f64 th th) (*.f64 th #s(literal -1/6 binary64))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th #s(literal -1/6 binary64)) th) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 (.f64 th th) (.f64 th #s(literal -1/6 binary64)) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 (.f64 th (.f64 th th)) #s(literal -1/6 binary64) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (+.f64 (.f64 th (.f64 #s(literal -1/6 binary64) (*.f64 th th))) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (*.f64 th th) #s(literal -1/6 binary64))) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 (.f64 th (.f64 th th)) (+.f64 #s(literal -1/6 binary64) (/.f64 #s(literal 1 binary64) (.f64 th th)))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (/.f64 (-.f64 (.f64 th th) (.f64 th (.f64 (.f64 #s(literal -1/6 binary64) (.f64 th th)) (.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)))))) (-.f64 th (.f64 th (.f64 #s(literal -1/6 binary64) (*.f64 th th)))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (.f64 (.f64 (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) (neg.f64 th))) (/.f64 #s(literal 1 binary64) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) (neg.f64 th))))))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th))
(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky #s(approx (+ (* (* ky ky) (+ (/ -1/2 (pow (sin kx) 3)) (/ -1/6 (sin kx)))) (/ 1 (sin kx))) (/.f64 (.f64 (.f64 ky ky) #s(literal -1/2 binary64)) (.f64 kx (.f64 kx kx)))))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) #s(approx (* (sqrt (/ 1 (- 1 (cos (* kx -2))))) (* ky (sqrt 2))) (.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(literal 1/2 binary64))) (/.f64 ky kx)))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) kx)) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 th (-.f64 th (.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)))) (.f64 th (.f64 (.f64 #s(literal -1/6 binary64) (.f64 th th)) (.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)))))) (fma.f64 th (.f64 th th) (.f64 (.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th))) (.f64 th (.f64 (.f64 #s(literal -1/6 binary64) (.f64 th th)) (.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)))))))))))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) #s(approx (/ (+ (* (* kx kx) (/ 1/12 (sqrt 1/2))) (sqrt 1/2)) kx) (.f64 kx (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64)))))) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (- 1 (cos ( kx -2))) (.f64 #s(literal 2 binary64) (.f64 kx kx))))) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th))
(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky #s(approx (+ (* (* ky ky) (+ (/ -1/2 (pow (sin kx) 3)) (/ -1/6 (sin kx)))) (/ 1 (sin kx))) (/.f64 (fma.f64 (.f64 ky ky) #s(literal -1/2 binary64) (.f64 (.f64 kx kx) (fma.f64 (.f64 ky ky) #s(literal -5/12 binary64) #s(literal 1 binary64)))) (.f64 kx (.f64 kx kx)))))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (- 1 (cos ( kx -2))) (.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) #s(literal -2/3 binary64) #s(literal 2 binary64)))))) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th))
(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) #s(approx ( ky (+ (* (* ky ky) (+ (/ -1/2 (pow (sin kx) 3)) (/ -1/6 (sin kx)))) (/ 1 (sin kx)))) (/.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 ky (.f64 ky ky)) (.f64 (.f64 (.f64 kx kx) ky) (fma.f64 (.f64 ky ky) #s(literal -5/12 binary64) #s(literal 1 binary64)))) (.f64 kx (.f64 kx kx))))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th))
(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky #s(approx (+ (* (* ky ky) (+ (/ -1/2 (pow (sin kx) 3)) (/ -1/6 (sin kx)))) (/ 1 (sin kx))) (/.f64 (fma.f64 (.f64 kx kx) (fma.f64 (.f64 ky ky) #s(literal -5/12 binary64) (fma.f64 (.f64 kx kx) (fma.f64 (.f64 ky ky) #s(literal -71/720 binary64) #s(literal 1/6 binary64)) #s(literal 1 binary64))) (.f64 (.f64 ky ky) #s(literal -1/2 binary64))) (.f64 kx (.f64 kx kx)))))) (sin.f64 th))
(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) #s(approx ( ky (+ (* (* ky ky) (+ (/ -1/2 (pow (sin kx) 3)) (/ -1/6 (sin kx)))) (/ 1 (sin kx)))) (/.f64 (fma.f64 (.f64 kx kx) (fma.f64 ky (fma.f64 (.f64 ky ky) #s(literal -5/12 binary64) #s(literal 1 binary64)) (.f64 (.f64 (.f64 kx kx) ky) (fma.f64 (.f64 ky ky) #s(literal -71/720 binary64) #s(literal 1/6 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 ky (.f64 ky ky)))) (.f64 kx (*.f64 kx kx))))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) #s(approx (* (sqrt (/ 1 (- 1 (cos (* kx -2))))) (* ky (sqrt 2))) (/.f64 (fma.f64 #s(literal 1/12 binary64) (.f64 (.f64 ky (sqrt.f64 #s(literal 2 binary64))) (/.f64 (.f64 kx kx) (sqrt.f64 #s(literal 1/2 binary64)))) (.f64 (*.f64 ky (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 2 binary64)))) kx))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) #s(approx (* (sqrt (/ 1 (- 1 (cos (* kx -2))))) (* ky (sqrt 2))) (/.f64 (fma.f64 #s(literal 1/12 binary64) (/.f64 (.f64 (.f64 kx kx) (.f64 ky (sqrt.f64 #s(literal 2 binary64)))) (sqrt.f64 #s(literal 1/2 binary64))) (.f64 (*.f64 ky (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 2 binary64)))) kx))) (sin.f64 th))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (/.f64 (*.f64 ky (sin.f64 th)) (sin.f64 kx)))

Outputs

#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (/.f64 (*.f64 ky (sin.f64 th)) (sin.f64 kx)))

#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th))

Calls

2 calls:

10.0ms	(sin.f64 ky)
8.0ms	(/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))))

Results

Accuracy	Segments	Branch
42.1%	2	`(sin.f64 ky)`
48.4%	2	`(/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))))`

Compiler

Compiled 21 to 15 computations (28.6% saved)

regimes14.0ms (0.1%)

Memory

-12.4MiB live, 28.6MiB allocated

Counts

28 → 2

Calls

Call 1

Inputs
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 #s(literal -1/6 binary64) (.f64 th (*.f64 th th))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 (.f64 #s(literal -1/6 binary64) (*.f64 th th)) th))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 (.f64 th th) (*.f64 th #s(literal -1/6 binary64))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th #s(literal -1/6 binary64)) th) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 (.f64 th th) (.f64 th #s(literal -1/6 binary64)) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 (.f64 th (.f64 th th)) #s(literal -1/6 binary64) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (+.f64 (.f64 th (.f64 #s(literal -1/6 binary64) (*.f64 th th))) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (*.f64 th th) #s(literal -1/6 binary64))) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 (.f64 th (.f64 th th)) (+.f64 #s(literal -1/6 binary64) (/.f64 #s(literal 1 binary64) (.f64 th th)))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (/.f64 (-.f64 (.f64 th th) (.f64 th (.f64 (.f64 #s(literal -1/6 binary64) (.f64 th th)) (.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)))))) (-.f64 th (.f64 th (.f64 #s(literal -1/6 binary64) (*.f64 th th)))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (.f64 (.f64 (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) (neg.f64 th))) (/.f64 #s(literal 1 binary64) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) (neg.f64 th))))))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th))
(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky #s(approx (+ (* (* ky ky) (+ (/ -1/2 (pow (sin kx) 3)) (/ -1/6 (sin kx)))) (/ 1 (sin kx))) (/.f64 (.f64 (.f64 ky ky) #s(literal -1/2 binary64)) (.f64 kx (.f64 kx kx)))))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) #s(approx (* (sqrt (/ 1 (- 1 (cos (* kx -2))))) (* ky (sqrt 2))) (.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(literal 1/2 binary64))) (/.f64 ky kx)))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) kx)) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (/.f64 #s(literal 1 binary64) (/.f64 (fma.f64 th (-.f64 th (.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)))) (.f64 th (.f64 (.f64 #s(literal -1/6 binary64) (.f64 th th)) (.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)))))) (fma.f64 th (.f64 th th) (.f64 (.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th))) (.f64 th (.f64 (.f64 #s(literal -1/6 binary64) (.f64 th th)) (.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)))))))))))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) #s(approx (/ (+ (* (* kx kx) (/ 1/12 (sqrt 1/2))) (sqrt 1/2)) kx) (.f64 kx (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64)))))) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (- 1 (cos ( kx -2))) (.f64 #s(literal 2 binary64) (.f64 kx kx))))) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th))
(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky #s(approx (+ (* (* ky ky) (+ (/ -1/2 (pow (sin kx) 3)) (/ -1/6 (sin kx)))) (/ 1 (sin kx))) (/.f64 (fma.f64 (.f64 ky ky) #s(literal -1/2 binary64) (.f64 (.f64 kx kx) (fma.f64 (.f64 ky ky) #s(literal -5/12 binary64) #s(literal 1 binary64)))) (.f64 kx (.f64 kx kx)))))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) #s(approx (- 1 (cos ( kx -2))) (.f64 (.f64 kx kx) (fma.f64 (.f64 kx kx) #s(literal -2/3 binary64) #s(literal 2 binary64)))))) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th))
(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) #s(approx ( ky (+ (* (* ky ky) (+ (/ -1/2 (pow (sin kx) 3)) (/ -1/6 (sin kx)))) (/ 1 (sin kx)))) (/.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 ky (.f64 ky ky)) (.f64 (.f64 (.f64 kx kx) ky) (fma.f64 (.f64 ky ky) #s(literal -5/12 binary64) #s(literal 1 binary64)))) (.f64 kx (.f64 kx kx))))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th))
(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky #s(approx (+ (* (* ky ky) (+ (/ -1/2 (pow (sin kx) 3)) (/ -1/6 (sin kx)))) (/ 1 (sin kx))) (/.f64 (fma.f64 (.f64 kx kx) (fma.f64 (.f64 ky ky) #s(literal -5/12 binary64) (fma.f64 (.f64 kx kx) (fma.f64 (.f64 ky ky) #s(literal -71/720 binary64) #s(literal 1/6 binary64)) #s(literal 1 binary64))) (.f64 (.f64 ky ky) #s(literal -1/2 binary64))) (.f64 kx (.f64 kx kx)))))) (sin.f64 th))
(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) #s(approx ( ky (+ (* (* ky ky) (+ (/ -1/2 (pow (sin kx) 3)) (/ -1/6 (sin kx)))) (/ 1 (sin kx)))) (/.f64 (fma.f64 (.f64 kx kx) (fma.f64 ky (fma.f64 (.f64 ky ky) #s(literal -5/12 binary64) #s(literal 1 binary64)) (.f64 (.f64 (.f64 kx kx) ky) (fma.f64 (.f64 ky ky) #s(literal -71/720 binary64) #s(literal 1/6 binary64)))) (.f64 #s(literal -1/2 binary64) (.f64 ky (.f64 ky ky)))) (.f64 kx (*.f64 kx kx))))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) #s(approx (* (sqrt (/ 1 (- 1 (cos (* kx -2))))) (* ky (sqrt 2))) (/.f64 (fma.f64 #s(literal 1/12 binary64) (.f64 (.f64 ky (sqrt.f64 #s(literal 2 binary64))) (/.f64 (.f64 kx kx) (sqrt.f64 #s(literal 1/2 binary64)))) (.f64 (*.f64 ky (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 2 binary64)))) kx))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) #s(approx (* (sqrt (/ 1 (- 1 (cos (* kx -2))))) (* ky (sqrt 2))) (/.f64 (fma.f64 #s(literal 1/12 binary64) (/.f64 (.f64 (.f64 kx kx) (.f64 ky (sqrt.f64 #s(literal 2 binary64)))) (sqrt.f64 #s(literal 1/2 binary64))) (.f64 (*.f64 ky (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 2 binary64)))) kx))) (sin.f64 th))

Outputs

(*.f64 #s(approx (* (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (*.f64 #s(approx (sqrt (/ 1 (- 1 (cos (* kx -2))))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) kx)) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th))

#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th))

Calls

1 calls:

12.0ms

(/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))))

Results

Accuracy	Segments	Branch
43.3%	2	`(/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))))`

Compiler

Compiled 16 to 11 computations (31.3% saved)

regimes6.0ms (0%)

Memory

17.7MiB live, 17.7MiB allocated

Counts

16 → 2

Calls

Call 1

Inputs
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 #s(literal -1/6 binary64) (.f64 th (*.f64 th th))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 (.f64 #s(literal -1/6 binary64) (*.f64 th th)) th))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 (.f64 th th) (*.f64 th #s(literal -1/6 binary64))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th #s(literal -1/6 binary64)) th) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 (.f64 th th) (.f64 th #s(literal -1/6 binary64)) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 (.f64 th (.f64 th th)) #s(literal -1/6 binary64) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (+.f64 (.f64 th (.f64 #s(literal -1/6 binary64) (*.f64 th th))) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (*.f64 th th) #s(literal -1/6 binary64))) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 (.f64 th (.f64 th th)) (+.f64 #s(literal -1/6 binary64) (/.f64 #s(literal 1 binary64) (.f64 th th)))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (/.f64 (-.f64 (.f64 th th) (.f64 th (.f64 (.f64 #s(literal -1/6 binary64) (.f64 th th)) (.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)))))) (-.f64 th (.f64 th (.f64 #s(literal -1/6 binary64) (*.f64 th th)))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (.f64 (.f64 (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) (neg.f64 th))) (/.f64 #s(literal 1 binary64) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) (neg.f64 th))))))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th))
(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky #s(approx (+ (* (* ky ky) (+ (/ -1/2 (pow (sin kx) 3)) (/ -1/6 (sin kx)))) (/ 1 (sin kx))) (/.f64 (.f64 (.f64 ky ky) #s(literal -1/2 binary64)) (.f64 kx (.f64 kx kx)))))) (sin.f64 th))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) #s(approx (* (sqrt (/ 1 (- 1 (cos (* kx -2))))) (* ky (sqrt 2))) (.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(literal 1/2 binary64))) (/.f64 ky kx)))) (sin.f64 th))

Outputs

(*.f64 #s(approx (* (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) #s(approx (* (sqrt (/ 1 (- 1 (cos (* kx -2))))) (* ky (sqrt 2))) (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(literal 1/2 binary64))) (/.f64 ky kx)))) (sin.f64 th))

#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th))

Calls

1 calls:

5.0ms

(/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))))

Results

Accuracy	Segments	Branch
43.3%	2	`(/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))))`

Compiler

Compiled 16 to 11 computations (31.3% saved)

regimes39.0ms (0.3%)

Memory

13.0MiB live, 89.3MiB allocated

Counts

15 → 3

Calls

Call 1

Inputs
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 #s(literal -1/6 binary64) (.f64 th (*.f64 th th))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 (.f64 #s(literal -1/6 binary64) (*.f64 th th)) th))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 (.f64 th th) (*.f64 th #s(literal -1/6 binary64))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th #s(literal -1/6 binary64)) th) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 (.f64 th th) (.f64 th #s(literal -1/6 binary64)) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 (.f64 th (.f64 th th)) #s(literal -1/6 binary64) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (+.f64 (.f64 th (.f64 #s(literal -1/6 binary64) (*.f64 th th))) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (*.f64 th th) #s(literal -1/6 binary64))) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 (.f64 th (.f64 th th)) (+.f64 #s(literal -1/6 binary64) (/.f64 #s(literal 1 binary64) (.f64 th th)))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (/.f64 (-.f64 (.f64 th th) (.f64 th (.f64 (.f64 #s(literal -1/6 binary64) (.f64 th th)) (.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)))))) (-.f64 th (.f64 th (.f64 #s(literal -1/6 binary64) (*.f64 th th)))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (.f64 (.f64 (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) (neg.f64 th))) (/.f64 #s(literal 1 binary64) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) (neg.f64 th))))))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th))
(.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky #s(approx (+ (* (* ky ky) (+ (/ -1/2 (pow (sin kx) 3)) (/ -1/6 (sin kx)))) (/ 1 (sin kx))) (/.f64 (.f64 (.f64 ky ky) #s(literal -1/2 binary64)) (.f64 kx (.f64 kx kx)))))) (sin.f64 th))

Outputs

(*.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (*.f64 ky #s(approx (+ (* (* ky ky) (+ (/ -1/2 (pow (sin kx) 3)) (/ -1/6 (sin kx)))) (/ 1 (sin kx))) (/.f64 (*.f64 (*.f64 ky ky) #s(literal -1/2 binary64)) (*.f64 kx (*.f64 kx kx)))))) (sin.f64 th))

(*.f64 #s(approx (* (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (*.f64 #s(approx (sqrt (/ 1 (- 1 (cos (* kx -2))))) (/.f64 (fma.f64 (*.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))) #s(approx (sin th) (fma.f64 th (*.f64 #s(literal -1/6 binary64) (*.f64 th th)) th)))

#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th))

Calls

7 calls:

6.0ms	(/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))))
6.0ms	(pow.f64 (sin.f64 kx) #s(literal 2 binary64))
5.0ms	(*.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (sin.f64 th))
5.0ms	ky
5.0ms	(sin.f64 ky)

Results

Accuracy	Segments	Branch
36.9%	3	`(*.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (sin.f64 th))`
32.9%	1	`(sin.f64 kx)`
32.9%	1	`(pow.f64 (sin.f64 kx) #s(literal 2 binary64))`
32.9%	1	`kx`
32.9%	1	`(sin.f64 ky)`
34.4%	2	`ky`
39.7%	3	`(/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))))`

Compiler

Compiled 60 to 44 computations (26.7% saved)

regimes7.0ms (0.1%)

Memory

-21.4MiB live, 16.8MiB allocated

Counts

14 → 3

Calls

Call 1

Inputs
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 #s(literal -1/6 binary64) (.f64 th (*.f64 th th))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 (.f64 #s(literal -1/6 binary64) (*.f64 th th)) th))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 (.f64 th th) (*.f64 th #s(literal -1/6 binary64))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th #s(literal -1/6 binary64)) th) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 (.f64 th th) (.f64 th #s(literal -1/6 binary64)) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 (.f64 th (.f64 th th)) #s(literal -1/6 binary64) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (+.f64 (.f64 th (.f64 #s(literal -1/6 binary64) (*.f64 th th))) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (*.f64 th th) #s(literal -1/6 binary64))) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 (.f64 th (.f64 th th)) (+.f64 #s(literal -1/6 binary64) (/.f64 #s(literal 1 binary64) (.f64 th th)))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (/.f64 (-.f64 (.f64 th th) (.f64 th (.f64 (.f64 #s(literal -1/6 binary64) (.f64 th th)) (.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)))))) (-.f64 th (.f64 th (.f64 #s(literal -1/6 binary64) (*.f64 th th)))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (.f64 (.f64 (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) (neg.f64 th))) (/.f64 #s(literal 1 binary64) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) (neg.f64 th))))))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th))

Outputs

#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (*.f64 #s(literal -1/6 binary64) (*.f64 th (*.f64 th th))))))

(*.f64 #s(approx (* (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (*.f64 #s(approx (sqrt (/ 1 (- 1 (cos (* kx -2))))) (/.f64 (fma.f64 (*.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))) #s(approx (sin th) (fma.f64 th (*.f64 #s(literal -1/6 binary64) (*.f64 th th)) th)))

#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th))

Calls

1 calls:

5.0ms

(/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))))

Results

Accuracy	Segments	Branch
39.3%	3	`(/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))))`

Compiler

Compiled 16 to 11 computations (31.3% saved)

regimes52.0ms (0.4%)

Memory

22.1MiB live, 103.8MiB allocated

Counts

13 → 3

Calls

Call 1

Inputs
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 #s(literal -1/6 binary64) (.f64 th (*.f64 th th))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 (.f64 #s(literal -1/6 binary64) (*.f64 th th)) th))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 (.f64 th th) (*.f64 th #s(literal -1/6 binary64))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th #s(literal -1/6 binary64)) th) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 (.f64 th th) (.f64 th #s(literal -1/6 binary64)) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 (.f64 th (.f64 th th)) #s(literal -1/6 binary64) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (+.f64 (.f64 th (.f64 #s(literal -1/6 binary64) (*.f64 th th))) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (*.f64 th th) #s(literal -1/6 binary64))) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 (.f64 th (.f64 th th)) (+.f64 #s(literal -1/6 binary64) (/.f64 #s(literal 1 binary64) (.f64 th th)))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (/.f64 (-.f64 (.f64 th th) (.f64 th (.f64 (.f64 #s(literal -1/6 binary64) (.f64 th th)) (.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)))))) (-.f64 th (.f64 th (.f64 #s(literal -1/6 binary64) (*.f64 th th)))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (.f64 (.f64 (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) (neg.f64 th))) (/.f64 #s(literal 1 binary64) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) (neg.f64 th))))))
(.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th)))

Outputs

#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (*.f64 #s(literal -1/6 binary64) (*.f64 th (*.f64 th th))))))

(*.f64 #s(approx (* (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (*.f64 #s(approx (sqrt (/ 1 (- 1 (cos (* kx -2))))) (/.f64 (fma.f64 (*.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (*.f64 ky (sqrt.f64 #s(literal 2 binary64))))) #s(approx (sin th) (fma.f64 th (*.f64 #s(literal -1/6 binary64) (*.f64 th th)) th)))

#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 th (*.f64 (*.f64 th th) (fma.f64 #s(literal 1/120 binary64) (*.f64 th th) #s(literal -1/6 binary64))) th)))

Calls

9 calls:

15.0ms	(*.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (sin.f64 th))
5.0ms	(sin.f64 kx)
4.0ms	(/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))))
4.0ms	ky
4.0ms	(sin.f64 ky)

Results

Accuracy	Segments	Branch
22.8%	2	`(sin.f64 ky)`
22.4%	2	`(pow.f64 (sin.f64 kx) #s(literal 2 binary64))`
20.2%	1	`(sin.f64 th)`
20.2%	1	`(sin.f64 kx)`
20.2%	1	`th`
22.4%	2	`kx`
23.1%	2	`ky`
24.9%	2	`(*.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (sin.f64 th))`
26.9%	3	`(/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))))`

Compiler

Compiled 69 to 51 computations (26.1% saved)

regimes11.0ms (0.1%)

Memory

-13.6MiB live, 24.9MiB allocated

Counts

12 → 2

Calls

Call 1

Inputs
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 #s(literal -1/6 binary64) (.f64 th (*.f64 th th))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 (.f64 #s(literal -1/6 binary64) (*.f64 th th)) th))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 (.f64 th th) (*.f64 th #s(literal -1/6 binary64))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th #s(literal -1/6 binary64)) th) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 (.f64 th th) (.f64 th #s(literal -1/6 binary64)) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 (.f64 th (.f64 th th)) #s(literal -1/6 binary64) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (+.f64 (.f64 th (.f64 #s(literal -1/6 binary64) (*.f64 th th))) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (*.f64 th th) #s(literal -1/6 binary64))) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 (.f64 th (.f64 th th)) (+.f64 #s(literal -1/6 binary64) (/.f64 #s(literal 1 binary64) (.f64 th th)))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (/.f64 (-.f64 (.f64 th th) (.f64 th (.f64 (.f64 #s(literal -1/6 binary64) (.f64 th th)) (.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)))))) (-.f64 th (.f64 th (.f64 #s(literal -1/6 binary64) (*.f64 th th)))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (.f64 (.f64 (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) (neg.f64 th))) (/.f64 #s(literal 1 binary64) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) (neg.f64 th))))))

Outputs

#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (*.f64 #s(literal -1/6 binary64) (*.f64 th (*.f64 th th))))))

#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 th (*.f64 (*.f64 th th) (fma.f64 #s(literal 1/120 binary64) (*.f64 th th) #s(literal -1/6 binary64))) th)))

Calls

2 calls:

4.0ms

(*.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (sin.f64 th))

4.0ms

(/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))))

Results

Accuracy	Segments	Branch
24.9%	2	`(*.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (sin.f64 th))`
24.2%	2	`(/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))))`

Compiler

Compiled 35 to 24 computations (31.4% saved)

regimes4.0ms (0%)

Memory

10.6MiB live, 10.6MiB allocated

Counts

8 → 2

Calls

Call 1

Inputs
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 #s(literal -1/6 binary64) (.f64 th (*.f64 th th))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 (.f64 #s(literal -1/6 binary64) (*.f64 th th)) th))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 (.f64 th th) (*.f64 th #s(literal -1/6 binary64))))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th #s(literal -1/6 binary64)) th) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 (.f64 th th) (.f64 th #s(literal -1/6 binary64)) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 (.f64 th (.f64 th th)) #s(literal -1/6 binary64) th)))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (+.f64 (.f64 th (.f64 #s(literal -1/6 binary64) (*.f64 th th))) th)))

Outputs

#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (*.f64 #s(literal -1/6 binary64) (*.f64 th (*.f64 th th))))))

#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 th (*.f64 #s(literal -1/6 binary64) (*.f64 th th)) th)))

Calls

1 calls:

3.0ms

(*.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (sin.f64 th))

Results

Accuracy	Segments	Branch
24.4%	2	`(*.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (sin.f64 th))`

Compiler

Compiled 19 to 13 computations (31.6% saved)

regimes23.0ms (0.2%)

Memory

-29.2MiB live, 49.2MiB allocated

Accuracy

Total -0.0b remaining (-0%)

Threshold costs -0b (-0%)

Counts

3 → 1

Calls

Call 1

Inputs

#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (*.f64 #s(literal -1/6 binary64) (*.f64 th (*.f64 th th))))))

#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (*.f64 (*.f64 #s(literal -1/6 binary64) (*.f64 th th)) th))))

#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (*.f64 (*.f64 th th) (*.f64 th #s(literal -1/6 binary64))))))

Outputs

#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (*.f64 #s(literal -1/6 binary64) (*.f64 th (*.f64 th th))))))

Calls

9 calls:

6.0ms	(sin.f64 th)
3.0ms	(*.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (sin.f64 th))
2.0ms	(/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))))
2.0ms	(sin.f64 kx)
2.0ms	(sin.f64 ky)

Results

Accuracy	Segments	Branch
8.0%	1	`(sin.f64 th)`
8.0%	1	`th`
8.0%	1	`(sin.f64 kx)`
8.0%	1	`(pow.f64 (sin.f64 kx) #s(literal 2 binary64))`
8.0%	1	`kx`
8.0%	1	`(sin.f64 ky)`
8.0%	1	`ky`
8.0%	1	`(/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))))`
8.0%	1	`(*.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (sin.f64 th))`

Compiler

Compiled 69 to 51 computations (26.1% saved)

bsearch1.0ms (0%)

Memory

2.1MiB live, 2.1MiB allocated

Algorithm

1×	left-value

Steps

Time	Left	Right
0.0ms	2.9255492701071587e-9	1.558875032310667e-6

Compiler

Compiled 22 to 19 computations (13.6% saved)

bsearch1.0ms (0%)

Memory

1.8MiB live, 1.8MiB allocated

Algorithm

1×	left-value

Steps

Time	Left	Right
0.0ms	2.9255492701071587e-9	1.558875032310667e-6

Compiler

Compiled 22 to 19 computations (13.6% saved)

bsearch1.0ms (0%)

Memory

2.5MiB live, 2.5MiB allocated

Algorithm

4×	left-value

Steps

Time	Left	Right
0.0ms	0.9802672025256338	0.9986622739655636
0.0ms	0.030244990013449817	0.0714697617985605
0.0ms	-0.0019193998314031354	2.378873090475732e-307
0.0ms	-0.9984169722449785	-0.967414111751596

Compiler

Compiled 22 to 19 computations (13.6% saved)

bsearch1.0ms (0%)

Memory

2.7MiB live, 2.7MiB allocated

Algorithm

4×	left-value

Steps

Time	Left	Right
0.0ms	0.9802672025256338	0.9986622739655636
0.0ms	0.030244990013449817	0.0714697617985605
0.0ms	-0.0019193998314031354	2.378873090475732e-307
0.0ms	-0.9984169722449785	-0.967414111751596

Compiler

Compiled 22 to 19 computations (13.6% saved)

bsearch1.0ms (0%)

Memory

2.7MiB live, 2.7MiB allocated

Algorithm

4×	left-value

Steps

Time	Left	Right
0.0ms	0.9802672025256338	0.9986622739655636
0.0ms	0.030244990013449817	0.0714697617985605
0.0ms	-0.0019193998314031354	2.378873090475732e-307
0.0ms	-0.9984169722449785	-0.967414111751596

Compiler

Compiled 22 to 19 computations (13.6% saved)

bsearch1.0ms (0%)

Memory

2.0MiB live, 2.0MiB allocated

Algorithm

4×	left-value

Steps

Time	Left	Right
0.0ms	0.9234890957311446	0.9374537105420949
0.0ms	0.030244990013449817	0.0714697617985605
0.0ms	-0.0019193998314031354	2.378873090475732e-307
0.0ms	-0.9984169722449785	-0.967414111751596

Compiler

Compiled 22 to 19 computations (13.6% saved)

bsearch1.0ms (0%)

Memory

2.0MiB live, 2.0MiB allocated

Algorithm

4×	left-value

Steps

Time	Left	Right
0.0ms	0.9234890957311446	0.9374537105420949
0.0ms	0.030244990013449817	0.0714697617985605
0.0ms	-0.0019193998314031354	2.378873090475732e-307
0.0ms	-0.9984169722449785	-0.967414111751596

Compiler

Compiled 22 to 19 computations (13.6% saved)

bsearch1.0ms (0%)

Memory

2.5MiB live, 2.5MiB allocated

Algorithm

4×	left-value

Steps

Time	Left	Right
0.0ms	0.9999996186923419	1.0
0.0ms	0.030244990013449817	0.0714697617985605
0.0ms	-0.0019193998314031354	2.378873090475732e-307
0.0ms	-0.9984169722449785	-0.967414111751596

Compiler

Compiled 22 to 19 computations (13.6% saved)

bsearch1.0ms (0%)

Memory

2.3MiB live, 2.3MiB allocated

Algorithm

4×	left-value

Steps

Time	Left	Right
0.0ms	0.9999996186923419	1.0
0.0ms	0.030244990013449817	0.0714697617985605
0.0ms	-0.0019193998314031354	2.378873090475732e-307
0.0ms	-0.9984169722449785	-0.967414111751596

Compiler

Compiled 22 to 19 computations (13.6% saved)

bsearch1.0ms (0%)

Memory

2.7MiB live, 2.7MiB allocated

Algorithm

4×	left-value

Steps

Time	Left	Right
0.0ms	0.9999996186923419	1.0
0.0ms	0.030244990013449817	0.0714697617985605
0.0ms	-0.0019193998314031354	2.378873090475732e-307
0.0ms	-0.9984169722449785	-0.967414111751596

Compiler

Compiled 22 to 19 computations (13.6% saved)

bsearch1.0ms (0%)

Memory

1.9MiB live, 1.9MiB allocated

Algorithm

2×	left-value

Steps

Time	Left	Right
0.0ms	0.7024484545263494	0.7123532103407894
0.0ms	-0.7099175610838557	-0.7067062507572397

Compiler

Compiled 22 to 19 computations (13.6% saved)

bsearch1.0ms (0%)

Memory

1.9MiB live, 1.9MiB allocated

Algorithm

2×	left-value

Steps

Time	Left	Right
0.0ms	0.7024484545263494	0.7123532103407894
0.0ms	-0.7099175610838557	-0.7067062507572397

Compiler

Compiled 22 to 19 computations (13.6% saved)

bsearch1.0ms (0%)

Memory

1.7MiB live, 1.7MiB allocated

Algorithm

2×	left-value

Steps

Time	Left	Right
0.0ms	0.15420186299634703	0.18459177898189755
0.0ms	-0.0019193998314031354	2.378873090475732e-307

Compiler

Compiled 22 to 19 computations (13.6% saved)

bsearch1.0ms (0%)

Memory

1.5MiB live, 1.5MiB allocated

Algorithm

2×	left-value

Steps

Time	Left	Right
0.0ms	0.15420186299634703	0.18459177898189755
0.0ms	-0.0019193998314031354	2.378873090475732e-307

Compiler

Compiled 22 to 19 computations (13.6% saved)

bsearch1.0ms (0%)

Memory

2.0MiB live, 2.0MiB allocated

Algorithm

2×	left-value

Steps

Time	Left	Right
0.0ms	0.15420186299634703	0.18459177898189755
0.0ms	-0.0019193998314031354	2.378873090475732e-307

Compiler

Compiled 22 to 19 computations (13.6% saved)

bsearch1.0ms (0%)

Memory

1.4MiB live, 1.4MiB allocated

Algorithm

2×	left-value

Steps

Time	Left	Right
0.0ms	0.15420186299634703	0.18459177898189755
0.0ms	-0.0019193998314031354	2.378873090475732e-307

Compiler

Compiled 22 to 19 computations (13.6% saved)

bsearch1.0ms (0%)

Memory

1.4MiB live, 1.4MiB allocated

Algorithm

2×	left-value

Steps

Time	Left	Right
0.0ms	0.030244990013449817	0.0714697617985605
0.0ms	-0.0019193998314031354	2.378873090475732e-307

Compiler

Compiled 22 to 19 computations (13.6% saved)

bsearch2.0ms (0%)

Memory

-36.6MiB live, 1.6MiB allocated

Algorithm

2×	left-value

Steps

Time	Left	Right
0.0ms	0.030244990013449817	0.0714697617985605
0.0ms	-0.0019193998314031354	2.378873090475732e-307

Compiler

Compiled 22 to 19 computations (13.6% saved)

bsearch0.0ms (0%)

Memory

1.3MiB live, 1.3MiB allocated

Algorithm

2×	left-value

Steps

Time	Left	Right
0.0ms	0.030244990013449817	0.0714697617985605
0.0ms	-0.0019193998314031354	2.378873090475732e-307

Compiler

Compiled 22 to 19 computations (13.6% saved)

bsearch1.0ms (0%)

Memory

1.4MiB live, 1.4MiB allocated

Algorithm

2×	left-value

Steps

Time	Left	Right
0.0ms	1.283432308989543e-8	3.7767547411508225e-5
0.0ms	-0.0019193998314031354	2.378873090475732e-307

Compiler

Compiled 22 to 19 computations (13.6% saved)

bsearch0.0ms (0%)

Memory

1.0MiB live, 1.0MiB allocated

Algorithm

1×	left-value

Steps

Time	Left	Right
0.0ms	1.283432308989543e-8	3.7767547411508225e-5

Compiler

Compiled 22 to 19 computations (13.6% saved)

bsearch0.0ms (0%)

Memory

0.9MiB live, 0.9MiB allocated

Algorithm

1×	left-value

Steps

Time	Left	Right
0.0ms	1.283432308989543e-8	3.7767547411508225e-5

Compiler

Compiled 22 to 19 computations (13.6% saved)

bsearch0.0ms (0%)

Memory

0.9MiB live, 0.9MiB allocated

Algorithm

1×	left-value

Steps

Time	Left	Right
0.0ms	1.283432308989543e-8	3.7767547411508225e-5

Compiler

Compiled 22 to 19 computations (13.6% saved)

bsearch0.0ms (0%)

Memory

0.9MiB live, 0.9MiB allocated

Algorithm

1×	left-value

Steps

Time	Left	Right
0.0ms	1.283432308989543e-8	3.7767547411508225e-5

Compiler

Compiled 22 to 19 computations (13.6% saved)

bsearch0.0ms (0%)

Memory

0.6MiB live, 0.6MiB allocated

Algorithm

1×	left-value

Steps

Time	Left	Right
0.0ms	1.283432308989543e-8	3.7767547411508225e-5

Compiler

Compiled 22 to 19 computations (13.6% saved)

bsearch0.0ms (0%)

Memory

1.0MiB live, 1.0MiB allocated

Algorithm

2×	left-value

Steps

Time	Left	Right
0.0ms	1.283432308989543e-8	3.7767547411508225e-5
0.0ms	8.926851796091962e-160	1.2441942095937672e-157

Compiler

Compiled 22 to 19 computations (13.6% saved)

bsearch0.0ms (0%)

Memory

0.8MiB live, 0.8MiB allocated

Algorithm

2×	left-value

Steps

Time	Left	Right
0.0ms	1.283432308989543e-8	3.7767547411508225e-5
0.0ms	3.1838423265817227e-172	6.095042611620025e-163

Compiler

Compiled 22 to 19 computations (13.6% saved)

bsearch0.0ms (0%)

Memory

0.8MiB live, 0.8MiB allocated

Algorithm

2×	left-value

Steps

Time	Left	Right
0.0ms	1.283432308989543e-8	3.7767547411508225e-5
0.0ms	3.1838423265817227e-172	6.095042611620025e-163

Compiler

Compiled 22 to 19 computations (13.6% saved)

bsearch0.0ms (0%)

Memory

0.6MiB live, 0.6MiB allocated

Algorithm

1×	left-value

Steps

Time	Left	Right
0.0ms	7.699355506864031e-297	8.274045128458784e-297

Compiler

Compiled 22 to 19 computations (13.6% saved)

bsearch0.0ms (0%)

Memory

0.7MiB live, 0.7MiB allocated

Algorithm

1×	left-value

Steps

Time	Left	Right
0.0ms	7.699355506864031e-297	8.274045128458784e-297

Compiler

Compiled 22 to 19 computations (13.6% saved)

simplify32.0ms (0.2%)

Memory

26.5MiB live, 64.7MiB allocated

Algorithm

1×	egg-herbie

Rules

118×	`*-commutative_binary64`
14×	`+-commutative_binary64`
8×	`sub-neg_binary64`
4×	`neg-sub0_binary64`
4×	`neg-mul-1_binary64`

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	324	4178
1	391	4178
2	398	4178
3	402	4178
4	404	4178

Stop Event

1×

saturated

Calls

Call 1

Inputs
(*.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (sin.f64 kx))) (sin.f64 th))
(if (<=.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(literal 3022314549036573/604462909807314587353088 binary64)) (.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) #s(approx (sin kx) (fma.f64 kx (.f64 #s(literal -1/6 binary64) (.f64 kx kx)) kx)))) (sin.f64 th)) (.f64 (/.f64 (sin.f64 th) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)))
(if (<=.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(literal 3022314549036573/604462909807314587353088 binary64)) (.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) #s(approx (sin kx) (fma.f64 kx (.f64 #s(literal -1/6 binary64) (.f64 kx kx)) kx)))) (sin.f64 th)) (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 th)))
(if (<=.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #s(literal -2206763817411543/2251799813685248 binary64)) (.f64 (/.f64 (sin.f64 th) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) (sin.f64 ky)) (if (<=.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #s(literal -1152921504606847/1152921504606846976 binary64)) (/.f64 #s(approx ( (sin ky) (sin th)) (.f64 th (sin.f64 ky))) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (if (<=.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #s(literal 3602879701896397/72057594037927936 binary64)) (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky))))) (sin.f64 th)) (if (<=.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #s(literal 4458563631096791/4503599627370496 binary64)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #s(approx (sin th) (.f64 th (fma.f64 (.f64 th th) (fma.f64 (.f64 th th) (fma.f64 #s(literal -1/5040 binary64) (.f64 th th) #s(literal 1/120 binary64)) #s(literal -1/6 binary64)) #s(literal 1 binary64))))) (.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) #s(approx (sin kx) (fma.f64 kx (.f64 #s(literal -1/6 binary64) (*.f64 kx kx)) kx)))) (sin.f64 th))))))
(if (<=.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #s(literal -2206763817411543/2251799813685248 binary64)) (.f64 (/.f64 (sin.f64 th) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) (sin.f64 ky)) (if (<=.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #s(literal -1152921504606847/1152921504606846976 binary64)) (/.f64 #s(approx ( (sin ky) (sin th)) (.f64 th (sin.f64 ky))) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (if (<=.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #s(literal 3602879701896397/72057594037927936 binary64)) (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky))))) (sin.f64 th)) (if (<=.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #s(literal 4458563631096791/4503599627370496 binary64)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #s(approx (sin th) (.f64 th (fma.f64 (.f64 th th) (fma.f64 (.f64 th th) (fma.f64 #s(literal -1/5040 binary64) (.f64 th th) #s(literal 1/120 binary64)) #s(literal -1/6 binary64)) #s(literal 1 binary64))))) (.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) #s(approx (sin kx) (fma.f64 kx (.f64 #s(literal -1/6 binary64) (.f64 kx kx)) kx)))) (sin.f64 th))))))
(if (<=.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #s(literal -2206763817411543/2251799813685248 binary64)) (.f64 (/.f64 (sin.f64 th) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) (sin.f64 ky)) (if (<=.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #s(literal -1152921504606847/1152921504606846976 binary64)) (/.f64 #s(approx ( (sin ky) (sin th)) (.f64 th (sin.f64 ky))) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (if (<=.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #s(literal 3602879701896397/72057594037927936 binary64)) (.f64 (/.f64 #s(approx (sin ky) (fma.f64 ky (.f64 (.f64 ky ky) #s(literal -1/6 binary64)) ky)) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky))))) (sin.f64 th)) (if (<=.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #s(literal 4458563631096791/4503599627370496 binary64)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #s(approx (sin th) (.f64 th (fma.f64 (.f64 th th) (fma.f64 (.f64 th th) (fma.f64 #s(literal -1/5040 binary64) (.f64 th th) #s(literal 1/120 binary64)) #s(literal -1/6 binary64)) #s(literal 1 binary64))))) (.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) #s(approx (sin kx) (fma.f64 kx (.f64 #s(literal -1/6 binary64) (.f64 kx kx)) kx)))) (sin.f64 th))))))
(if (<=.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #s(literal -2206763817411543/2251799813685248 binary64)) (.f64 (/.f64 (sin.f64 th) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) (sin.f64 ky)) (if (<=.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #s(literal -1152921504606847/1152921504606846976 binary64)) (/.f64 #s(approx ( (sin ky) (sin th)) (.f64 th (sin.f64 ky))) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (if (<=.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #s(literal 3602879701896397/72057594037927936 binary64)) (.f64 (/.f64 #s(approx (sin ky) (fma.f64 ky (.f64 (.f64 ky ky) #s(literal -1/6 binary64)) ky)) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky))))) (sin.f64 th)) (if (<=.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #s(literal 8376695306909123/9007199254740992 binary64)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #s(approx (sin th) (.f64 th (fma.f64 (.f64 th th) (fma.f64 (.f64 th th) (fma.f64 #s(literal -1/5040 binary64) (.f64 th th) #s(literal 1/120 binary64)) #s(literal -1/6 binary64)) #s(literal 1 binary64))))) #s(approx ( (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th))))))
(if (<=.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #s(literal -2206763817411543/2251799813685248 binary64)) (.f64 (/.f64 (sin.f64 th) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) (sin.f64 ky)) (if (<=.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #s(literal -1152921504606847/1152921504606846976 binary64)) (/.f64 #s(approx ( (sin ky) (sin th)) (.f64 th (sin.f64 ky))) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (if (<=.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #s(literal 3602879701896397/72057594037927936 binary64)) (.f64 (/.f64 #s(approx (sin ky) (fma.f64 ky (.f64 (.f64 ky ky) #s(literal -1/6 binary64)) ky)) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky))))) (sin.f64 th)) (if (<=.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #s(literal 8376695306909123/9007199254740992 binary64)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th))) #s(approx ( (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th))))))
(if (<=.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #s(literal -2206763817411543/2251799813685248 binary64)) (.f64 (/.f64 (sin.f64 th) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) (sin.f64 ky)) (if (<=.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #s(literal -1152921504606847/1152921504606846976 binary64)) (/.f64 #s(approx ( (sin ky) (sin th)) (.f64 th (sin.f64 ky))) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (if (<=.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #s(literal 3602879701896397/72057594037927936 binary64)) (.f64 (/.f64 #s(approx (sin ky) (fma.f64 ky (.f64 (.f64 ky ky) #s(literal -1/6 binary64)) ky)) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky))))) (sin.f64 th)) (if (<=.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #s(literal 4503597910113469/4503599627370496 binary64)) #s(approx (* (* (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (sin th)) (.f64 (.f64 th (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))) #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th))))))
(if (<=.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #s(literal -2206763817411543/2251799813685248 binary64)) (.f64 (/.f64 (sin.f64 th) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) (sin.f64 ky)) (if (<=.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #s(literal -1152921504606847/1152921504606846976 binary64)) (/.f64 #s(approx ( (sin ky) (sin th)) (.f64 th (sin.f64 ky))) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (if (<=.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #s(literal 3602879701896397/72057594037927936 binary64)) (.f64 (/.f64 #s(approx (sin ky) (fma.f64 ky (.f64 (.f64 ky ky) #s(literal -1/6 binary64)) ky)) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky))))) (sin.f64 th)) (if (<=.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #s(literal 4503597910113469/4503599627370496 binary64)) (/.f64 #s(approx (* (sin ky) (sin th)) (.f64 th (sin.f64 ky))) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th))))))
(if (<=.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #s(literal -2206763817411543/2251799813685248 binary64)) (.f64 (/.f64 (sin.f64 th) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) (sin.f64 ky)) (if (<=.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #s(literal -1152921504606847/1152921504606846976 binary64)) (/.f64 #s(approx ( (sin ky) (sin th)) (.f64 th (sin.f64 ky))) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (if (<=.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #s(literal 3602879701896397/72057594037927936 binary64)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) #s(approx (sin ky) (fma.f64 ky (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 #s(literal -1/5040 binary64) (.f64 ky ky) #s(literal 1/120 binary64)) #s(literal -1/6 binary64))) ky))) (sin.f64 th)) (if (<=.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #s(literal 4503597910113469/4503599627370496 binary64)) (/.f64 #s(approx ( (sin ky) (sin th)) (.f64 th (sin.f64 ky))) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th))))))
(if (<=.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #s(literal -3188548536178311/4503599627370496 binary64)) (.f64 (/.f64 (sin.f64 th) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) (sin.f64 ky)) (if (<=.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #s(literal 799388933858263/1125899906842624 binary64)) (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))))) #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th))))
(if (<=.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #s(literal -3188548536178311/4503599627370496 binary64)) (.f64 (/.f64 (sin.f64 th) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) (sin.f64 ky)) (if (<=.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #s(literal 799388933858263/1125899906842624 binary64)) (.f64 (.f64 (sqrt.f64 #s(approx (/ 1 (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky)))))) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))) (sin.f64 ky)) (sin.f64 th)) #s(approx ( (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th))))
(if (<=.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #s(literal -1152921504606847/1152921504606846976 binary64)) (.f64 (/.f64 (sin.f64 th) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) (sin.f64 ky)) (if (<=.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #s(literal 5764607523034235/36028797018963968 binary64)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 ( -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) #s(approx (sin ky) (fma.f64 ky (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 #s(literal -1/5040 binary64) (.f64 ky ky) #s(literal 1/120 binary64)) #s(literal -1/6 binary64))) ky))) (sin.f64 th)) #s(approx ( (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th))))
(if (<=.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #s(literal -1152921504606847/1152921504606846976 binary64)) (.f64 (sin.f64 th) (/.f64 (sin.f64 ky) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))) (if (<=.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #s(literal 5764607523034235/36028797018963968 binary64)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 ( -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) #s(approx (sin ky) (fma.f64 ky (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 #s(literal -1/5040 binary64) (.f64 ky ky) #s(literal 1/120 binary64)) #s(literal -1/6 binary64))) ky))) (sin.f64 th)) #s(approx ( (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th))))
(if (<=.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #s(literal -1152921504606847/1152921504606846976 binary64)) (/.f64 #s(approx (* (sin ky) (sin th)) (.f64 th (sin.f64 ky))) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) (if (<=.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #s(literal 5764607523034235/36028797018963968 binary64)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 ( -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) #s(approx (sin ky) (fma.f64 ky (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 #s(literal -1/5040 binary64) (.f64 ky ky) #s(literal 1/120 binary64)) #s(literal -1/6 binary64))) ky))) (sin.f64 th)) #s(approx ( (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th))))
(if (<=.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #s(literal -1152921504606847/1152921504606846976 binary64)) (/.f64 #s(approx (* (sin ky) (sin th)) (.f64 th (sin.f64 ky))) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) (if (<=.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #s(literal 5764607523034235/36028797018963968 binary64)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 ( -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) #s(approx (sin ky) (.f64 ky (fma.f64 (.f64 ky ky) (fma.f64 #s(literal 1/120 binary64) (.f64 ky ky) #s(literal -1/6 binary64)) #s(literal 1 binary64))))) (sin.f64 th)) #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th))))
(if (<=.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #s(literal -1152921504606847/1152921504606846976 binary64)) (/.f64 #s(approx (* (sin ky) (sin th)) (.f64 th (sin.f64 ky))) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) (if (<=.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #s(literal 3602879701896397/72057594037927936 binary64)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 ( -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) #s(approx (sin ky) (fma.f64 ky (.f64 #s(literal -1/6 binary64) (.f64 ky ky)) ky))) (sin.f64 th)) #s(approx ( (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th))))
(if (<=.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #s(literal -1152921504606847/1152921504606846976 binary64)) (/.f64 #s(approx (* (sin ky) (sin th)) (.f64 th (sin.f64 ky))) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) (if (<=.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #s(literal 3602879701896397/72057594037927936 binary64)) (.f64 #s(approx (* (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th)) #s(approx ( (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th))))
(if (<=.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #s(literal -1152921504606847/1152921504606846976 binary64)) (/.f64 #s(approx (* (sin ky) (sin th)) (.f64 th (sin.f64 ky))) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) (if (<=.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #s(literal 3602879701896397/72057594037927936 binary64)) (.f64 (sin.f64 th) #s(approx (* (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (/.f64 (.f64 ky (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))))) #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th))))
(if (<=.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #s(literal -1152921504606847/1152921504606846976 binary64)) (/.f64 #s(approx (* (sin ky) (sin th)) (.f64 th (sin.f64 ky))) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) (if (<=.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #s(literal 3022314549036573/151115727451828646838272 binary64)) (.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky #s(approx (+ ( (* ky ky) (+ (/ -1/2 (pow (sin kx) 3)) (/ -1/6 (sin kx)))) (/ 1 (sin kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (sin.f64 th)) #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th))))
(if (<=.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #s(literal 3022314549036573/151115727451828646838272 binary64)) (.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky #s(approx (+ (* (* ky ky) (+ (/ -1/2 (pow (sin kx) 3)) (/ -1/6 (sin kx)))) (/ 1 (sin kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (sin.f64 th)) #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th)))
(if (<=.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #s(literal 3022314549036573/151115727451828646838272 binary64)) (.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (/.f64 ky (sin.f64 kx))) (sin.f64 th)) #s(approx ( (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th)))
(if (<=.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #s(literal 3022314549036573/151115727451828646838272 binary64)) #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (/.f64 (.f64 ky (sin.f64 th)) (sin.f64 kx))) #s(approx ( (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th)))
(if (<=.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #s(literal 3022314549036573/151115727451828646838272 binary64)) (.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th)) #s(approx ( (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th)))
(if (<=.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #s(literal 3022314549036573/151115727451828646838272 binary64)) (.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) #s(approx (* (sqrt (/ 1 (- 1 (cos (* kx -2))))) (* ky (sqrt 2))) (.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(literal 1/2 binary64))) (/.f64 ky kx)))) (sin.f64 th)) #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th)))
(if (<=.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #s(literal 7914572847139345/7914572847139345089936080672628710081124203171238778877250017794972711203409019749450124833959777439667125485632516458859243681097816038718961476963260581373331416708758372352 binary64)) (.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky #s(approx (+ (* (* ky ky) (+ (/ -1/2 (pow (sin kx) 3)) (/ -1/6 (sin kx)))) (/ 1 (sin kx))) (/.f64 (.f64 (.f64 ky ky) #s(literal -1/2 binary64)) (.f64 kx (.f64 kx kx)))))) (sin.f64 th)) (if (<=.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #s(literal 3022314549036573/151115727451828646838272 binary64)) (.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th))) #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th))))
(if (<=.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #s(literal 1087770609288739/2175541218577478036232553294038911497542013410209922757424923190068852981190050786259609609278379154099770693575665668158859588967025488852621393833027941793561932885341770625153958412288 binary64)) #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 #s(literal -1/6 binary64) (.f64 th (.f64 th th)))))) (if (<=.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #s(literal 3022314549036573/151115727451828646838272 binary64)) (.f64 #s(approx (* (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th))) #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th))))
(if (<=.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #s(literal 1087770609288739/2175541218577478036232553294038911497542013410209922757424923190068852981190050786259609609278379154099770693575665668158859588967025488852621393833027941793561932885341770625153958412288 binary64)) #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 #s(literal -1/6 binary64) (.f64 th (.f64 th th)))))) (if (<=.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #s(literal 3022314549036573/151115727451828646838272 binary64)) (.f64 #s(approx (* (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th))) #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (*.f64 th th) #s(literal -1/6 binary64))) th)))))
(if (<=.f64 (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (sin.f64 th)) #s(literal 5890680864316837/736335108039604595805923406147184530889923370574768772191969612422073040099331944991573923112581267542507986451953227192970402893063850485730703075899286013451337291468249027691733891486704001513279827771740183629161065194874727962517148100775228363421083691764065477590823919364012917984605619526140822066036736 binary64)) #s(approx ( (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 #s(literal -1/6 binary64) (.f64 th (.f64 th th)))))) #s(approx ( (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (*.f64 th th) #s(literal -1/6 binary64))) th))))
(if (<=.f64 (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (sin.f64 th)) #s(literal 5890680864316837/736335108039604595805923406147184530889923370574768772191969612422073040099331944991573923112581267542507986451953227192970402893063850485730703075899286013451337291468249027691733891486704001513279827771740183629161065194874727962517148100775228363421083691764065477590823919364012917984605619526140822066036736 binary64)) #s(approx ( (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 #s(literal -1/6 binary64) (.f64 th (.f64 th th)))))) #s(approx ( (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 #s(literal -1/6 binary64) (.f64 th (*.f64 th th))))))

Outputs
(*.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) (sin.f64 kx))) (sin.f64 th))
(if (<=.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(literal 3022314549036573/604462909807314587353088 binary64)) (.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) #s(approx (sin kx) (fma.f64 kx (.f64 #s(literal -1/6 binary64) (.f64 kx kx)) kx)))) (sin.f64 th)) (.f64 (/.f64 (sin.f64 th) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)))
(if (<=.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(literal 3022314549036573/604462909807314587353088 binary64)) (.f64 (sin.f64 th) (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) #s(approx (sin kx) (fma.f64 kx (.f64 #s(literal -1/6 binary64) (.f64 kx kx)) kx))))) (.f64 (sin.f64 ky) (/.f64 (sin.f64 th) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))))))
(if (<=.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(literal 3022314549036573/604462909807314587353088 binary64)) (.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) #s(approx (sin kx) (fma.f64 kx (.f64 #s(literal -1/6 binary64) (.f64 kx kx)) kx)))) (sin.f64 th)) (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 th)))
(if (<=.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(literal 3022314549036573/604462909807314587353088 binary64)) (.f64 (sin.f64 th) (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) #s(approx (sin kx) (fma.f64 kx (.f64 #s(literal -1/6 binary64) (.f64 kx kx)) kx))))) (.f64 (sin.f64 th) (/.f64 (sin.f64 ky) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))))))
(if (<=.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #s(literal -2206763817411543/2251799813685248 binary64)) (.f64 (/.f64 (sin.f64 th) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) (sin.f64 ky)) (if (<=.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #s(literal -1152921504606847/1152921504606846976 binary64)) (/.f64 #s(approx ( (sin ky) (sin th)) (.f64 th (sin.f64 ky))) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (if (<=.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #s(literal 3602879701896397/72057594037927936 binary64)) (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky))))) (sin.f64 th)) (if (<=.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #s(literal 4458563631096791/4503599627370496 binary64)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #s(approx (sin th) (.f64 th (fma.f64 (.f64 th th) (fma.f64 (.f64 th th) (fma.f64 #s(literal -1/5040 binary64) (.f64 th th) #s(literal 1/120 binary64)) #s(literal -1/6 binary64)) #s(literal 1 binary64))))) (.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) #s(approx (sin kx) (fma.f64 kx (.f64 #s(literal -1/6 binary64) (*.f64 kx kx)) kx)))) (sin.f64 th))))))
(if (<=.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #s(literal -2206763817411543/2251799813685248 binary64)) (.f64 (sin.f64 ky) (/.f64 (sin.f64 th) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))) (if (<=.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #s(literal -1152921504606847/1152921504606846976 binary64)) (/.f64 #s(approx ( (sin ky) (sin th)) (.f64 (sin.f64 ky) th)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (if (<=.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #s(literal 3602879701896397/72057594037927936 binary64)) (.f64 (sin.f64 th) (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky)))))) (if (<=.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #s(literal 4458563631096791/4503599627370496 binary64)) (.f64 (.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))))) #s(approx (sin th) (.f64 th (fma.f64 (.f64 th th) (fma.f64 (.f64 th th) (fma.f64 #s(literal -1/5040 binary64) (.f64 th th) #s(literal 1/120 binary64)) #s(literal -1/6 binary64)) #s(literal 1 binary64))))) (.f64 (sin.f64 th) (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) #s(approx (sin kx) (fma.f64 kx (.f64 #s(literal -1/6 binary64) (*.f64 kx kx)) kx)))))))))
(if (<=.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #s(literal -2206763817411543/2251799813685248 binary64)) (.f64 (/.f64 (sin.f64 th) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) (sin.f64 ky)) (if (<=.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #s(literal -1152921504606847/1152921504606846976 binary64)) (/.f64 #s(approx ( (sin ky) (sin th)) (.f64 th (sin.f64 ky))) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (if (<=.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #s(literal 3602879701896397/72057594037927936 binary64)) (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky))))) (sin.f64 th)) (if (<=.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #s(literal 4458563631096791/4503599627370496 binary64)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #s(approx (sin th) (.f64 th (fma.f64 (.f64 th th) (fma.f64 (.f64 th th) (fma.f64 #s(literal -1/5040 binary64) (.f64 th th) #s(literal 1/120 binary64)) #s(literal -1/6 binary64)) #s(literal 1 binary64))))) (.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) #s(approx (sin kx) (fma.f64 kx (.f64 #s(literal -1/6 binary64) (.f64 kx kx)) kx)))) (sin.f64 th))))))
(if (<=.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #s(literal -2206763817411543/2251799813685248 binary64)) (.f64 (sin.f64 ky) (/.f64 (sin.f64 th) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))) (if (<=.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #s(literal -1152921504606847/1152921504606846976 binary64)) (/.f64 #s(approx ( (sin ky) (sin th)) (.f64 (sin.f64 ky) th)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (if (<=.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #s(literal 3602879701896397/72057594037927936 binary64)) (.f64 (sin.f64 th) (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky)))))) (if (<=.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #s(literal 4458563631096791/4503599627370496 binary64)) (.f64 (.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))))) #s(approx (sin th) (.f64 th (fma.f64 (.f64 th th) (fma.f64 (.f64 th th) (fma.f64 #s(literal -1/5040 binary64) (.f64 th th) #s(literal 1/120 binary64)) #s(literal -1/6 binary64)) #s(literal 1 binary64))))) (.f64 (sin.f64 th) (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) #s(approx (sin kx) (fma.f64 kx (.f64 #s(literal -1/6 binary64) (.f64 kx kx)) kx)))))))))
(if (<=.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #s(literal -2206763817411543/2251799813685248 binary64)) (.f64 (/.f64 (sin.f64 th) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) (sin.f64 ky)) (if (<=.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #s(literal -1152921504606847/1152921504606846976 binary64)) (/.f64 #s(approx ( (sin ky) (sin th)) (.f64 th (sin.f64 ky))) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (if (<=.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #s(literal 3602879701896397/72057594037927936 binary64)) (.f64 (/.f64 #s(approx (sin ky) (fma.f64 ky (.f64 (.f64 ky ky) #s(literal -1/6 binary64)) ky)) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky))))) (sin.f64 th)) (if (<=.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #s(literal 4458563631096791/4503599627370496 binary64)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #s(approx (sin th) (.f64 th (fma.f64 (.f64 th th) (fma.f64 (.f64 th th) (fma.f64 #s(literal -1/5040 binary64) (.f64 th th) #s(literal 1/120 binary64)) #s(literal -1/6 binary64)) #s(literal 1 binary64))))) (.f64 (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) #s(approx (sin kx) (fma.f64 kx (.f64 #s(literal -1/6 binary64) (.f64 kx kx)) kx)))) (sin.f64 th))))))
(if (<=.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #s(literal -2206763817411543/2251799813685248 binary64)) (.f64 (sin.f64 ky) (/.f64 (sin.f64 th) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))) (if (<=.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #s(literal -1152921504606847/1152921504606846976 binary64)) (/.f64 #s(approx ( (sin ky) (sin th)) (.f64 (sin.f64 ky) th)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (if (<=.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #s(literal 3602879701896397/72057594037927936 binary64)) (.f64 (sin.f64 th) (/.f64 #s(approx (sin ky) (fma.f64 ky (.f64 #s(literal -1/6 binary64) (.f64 ky ky)) ky)) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky)))))) (if (<=.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #s(literal 4458563631096791/4503599627370496 binary64)) (.f64 (.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))))) #s(approx (sin th) (.f64 th (fma.f64 (.f64 th th) (fma.f64 (.f64 th th) (fma.f64 #s(literal -1/5040 binary64) (.f64 th th) #s(literal 1/120 binary64)) #s(literal -1/6 binary64)) #s(literal 1 binary64))))) (.f64 (sin.f64 th) (/.f64 (sin.f64 ky) (hypot.f64 (sin.f64 ky) #s(approx (sin kx) (fma.f64 kx (.f64 #s(literal -1/6 binary64) (.f64 kx kx)) kx)))))))))
(if (<=.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #s(literal -2206763817411543/2251799813685248 binary64)) (.f64 (/.f64 (sin.f64 th) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) (sin.f64 ky)) (if (<=.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #s(literal -1152921504606847/1152921504606846976 binary64)) (/.f64 #s(approx ( (sin ky) (sin th)) (.f64 th (sin.f64 ky))) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (if (<=.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #s(literal 3602879701896397/72057594037927936 binary64)) (.f64 (/.f64 #s(approx (sin ky) (fma.f64 ky (.f64 (.f64 ky ky) #s(literal -1/6 binary64)) ky)) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky))))) (sin.f64 th)) (if (<=.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #s(literal 8376695306909123/9007199254740992 binary64)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (sin.f64 ky)) #s(approx (sin th) (.f64 th (fma.f64 (.f64 th th) (fma.f64 (.f64 th th) (fma.f64 #s(literal -1/5040 binary64) (.f64 th th) #s(literal 1/120 binary64)) #s(literal -1/6 binary64)) #s(literal 1 binary64))))) #s(approx ( (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th))))))
(if (<=.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #s(literal -2206763817411543/2251799813685248 binary64)) (.f64 (sin.f64 ky) (/.f64 (sin.f64 th) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))) (if (<=.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #s(literal -1152921504606847/1152921504606846976 binary64)) (/.f64 #s(approx ( (sin ky) (sin th)) (.f64 (sin.f64 ky) th)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (if (<=.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #s(literal 3602879701896397/72057594037927936 binary64)) (.f64 (sin.f64 th) (/.f64 #s(approx (sin ky) (fma.f64 ky (.f64 #s(literal -1/6 binary64) (.f64 ky ky)) ky)) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky)))))) (if (<=.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #s(literal 8376695306909123/9007199254740992 binary64)) (.f64 (.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky)))))))) #s(approx (sin th) (.f64 th (fma.f64 (.f64 th th) (fma.f64 (.f64 th th) (fma.f64 #s(literal -1/5040 binary64) (.f64 th th) #s(literal 1/120 binary64)) #s(literal -1/6 binary64)) #s(literal 1 binary64))))) #s(approx ( (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th))))))
(if (<=.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #s(literal -2206763817411543/2251799813685248 binary64)) (.f64 (/.f64 (sin.f64 th) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) (sin.f64 ky)) (if (<=.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #s(literal -1152921504606847/1152921504606846976 binary64)) (/.f64 #s(approx ( (sin ky) (sin th)) (.f64 th (sin.f64 ky))) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (if (<=.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #s(literal 3602879701896397/72057594037927936 binary64)) (.f64 (/.f64 #s(approx (sin ky) (fma.f64 ky (.f64 (.f64 ky ky) #s(literal -1/6 binary64)) ky)) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky))))) (sin.f64 th)) (if (<=.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #s(literal 8376695306909123/9007199254740992 binary64)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64))))) (sin.f64 ky)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th))) #s(approx ( (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th))))))
(if (<=.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #s(literal -2206763817411543/2251799813685248 binary64)) (.f64 (sin.f64 ky) (/.f64 (sin.f64 th) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))) (if (<=.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #s(literal -1152921504606847/1152921504606846976 binary64)) (/.f64 #s(approx ( (sin ky) (sin th)) (.f64 (sin.f64 ky) th)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (if (<=.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #s(literal 3602879701896397/72057594037927936 binary64)) (.f64 (sin.f64 th) (/.f64 #s(approx (sin ky) (fma.f64 ky (.f64 #s(literal -1/6 binary64) (.f64 ky ky)) ky)) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky)))))) (if (<=.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #s(literal 8376695306909123/9007199254740992 binary64)) (.f64 (.f64 (sin.f64 ky) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (fma.f64 (cos.f64 (+.f64 ky ky)) #s(literal -1/2 binary64) #s(literal 1/2 binary64)))))) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (.f64 th th) #s(literal -1/6 binary64))) th))) #s(approx ( (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th))))))
(if (<=.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #s(literal -2206763817411543/2251799813685248 binary64)) (.f64 (/.f64 (sin.f64 th) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) (sin.f64 ky)) (if (<=.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #s(literal -1152921504606847/1152921504606846976 binary64)) (/.f64 #s(approx ( (sin ky) (sin th)) (.f64 th (sin.f64 ky))) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (if (<=.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #s(literal 3602879701896397/72057594037927936 binary64)) (.f64 (/.f64 #s(approx (sin ky) (fma.f64 ky (.f64 (.f64 ky ky) #s(literal -1/6 binary64)) ky)) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky))))) (sin.f64 th)) (if (<=.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #s(literal 4503597910113469/4503599627370496 binary64)) #s(approx (* (* (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (sin th)) (.f64 (.f64 th (sin.f64 ky)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))) #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th))))))
(if (<=.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #s(literal -2206763817411543/2251799813685248 binary64)) (.f64 (sin.f64 ky) (/.f64 (sin.f64 th) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))) (if (<=.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #s(literal -1152921504606847/1152921504606846976 binary64)) (/.f64 #s(approx ( (sin ky) (sin th)) (.f64 (sin.f64 ky) th)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (if (<=.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #s(literal 3602879701896397/72057594037927936 binary64)) (.f64 (sin.f64 th) (/.f64 #s(approx (sin ky) (fma.f64 ky (.f64 #s(literal -1/6 binary64) (.f64 ky ky)) ky)) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky)))))) (if (<=.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #s(literal 4503597910113469/4503599627370496 binary64)) #s(approx (* (* (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (sin th)) (.f64 (.f64 (sin.f64 ky) th) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))))) #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th))))))
(if (<=.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #s(literal -2206763817411543/2251799813685248 binary64)) (.f64 (/.f64 (sin.f64 th) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) (sin.f64 ky)) (if (<=.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #s(literal -1152921504606847/1152921504606846976 binary64)) (/.f64 #s(approx ( (sin ky) (sin th)) (.f64 th (sin.f64 ky))) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (if (<=.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #s(literal 3602879701896397/72057594037927936 binary64)) (.f64 (/.f64 #s(approx (sin ky) (fma.f64 ky (.f64 (.f64 ky ky) #s(literal -1/6 binary64)) ky)) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky))))) (sin.f64 th)) (if (<=.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #s(literal 4503597910113469/4503599627370496 binary64)) (/.f64 #s(approx (* (sin ky) (sin th)) (.f64 th (sin.f64 ky))) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th))))))
(if (<=.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #s(literal -2206763817411543/2251799813685248 binary64)) (.f64 (sin.f64 ky) (/.f64 (sin.f64 th) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))) (if (<=.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #s(literal -1152921504606847/1152921504606846976 binary64)) (/.f64 #s(approx ( (sin ky) (sin th)) (.f64 (sin.f64 ky) th)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (if (<=.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #s(literal 3602879701896397/72057594037927936 binary64)) (.f64 (sin.f64 th) (/.f64 #s(approx (sin ky) (fma.f64 ky (.f64 #s(literal -1/6 binary64) (.f64 ky ky)) ky)) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) #s(approx (pow (sin ky) 2) (.f64 ky ky)))))) (if (<=.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #s(literal 4503597910113469/4503599627370496 binary64)) (/.f64 #s(approx (* (sin ky) (sin th)) (.f64 (sin.f64 ky) th)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th))))))
(if (<=.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #s(literal -2206763817411543/2251799813685248 binary64)) (.f64 (/.f64 (sin.f64 th) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) (sin.f64 ky)) (if (<=.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #s(literal -1152921504606847/1152921504606846976 binary64)) (/.f64 #s(approx ( (sin ky) (sin th)) (.f64 th (sin.f64 ky))) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (if (<=.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #s(literal 3602879701896397/72057594037927936 binary64)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) #s(approx (sin ky) (fma.f64 ky (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 #s(literal -1/5040 binary64) (.f64 ky ky) #s(literal 1/120 binary64)) #s(literal -1/6 binary64))) ky))) (sin.f64 th)) (if (<=.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #s(literal 4503597910113469/4503599627370496 binary64)) (/.f64 #s(approx ( (sin ky) (sin th)) (.f64 th (sin.f64 ky))) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th))))))
(if (<=.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #s(literal -2206763817411543/2251799813685248 binary64)) (.f64 (sin.f64 ky) (/.f64 (sin.f64 th) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))) (if (<=.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #s(literal -1152921504606847/1152921504606846976 binary64)) (/.f64 #s(approx ( (sin ky) (sin th)) (.f64 (sin.f64 ky) th)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) (if (<=.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #s(literal 3602879701896397/72057594037927936 binary64)) (.f64 (sin.f64 th) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 (* -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) #s(approx (sin ky) (fma.f64 ky (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 #s(literal -1/5040 binary64) (.f64 ky ky) #s(literal 1/120 binary64)) #s(literal -1/6 binary64))) ky)))) (if (<=.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #s(literal 4503597910113469/4503599627370496 binary64)) (/.f64 #s(approx ( (sin ky) (sin th)) (.f64 (sin.f64 ky) th)) (sqrt.f64 (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 ky ky))))))) #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th))))))
(if (<=.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #s(literal -3188548536178311/4503599627370496 binary64)) (.f64 (/.f64 (sin.f64 th) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) (sin.f64 ky)) (if (<=.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #s(literal 799388933858263/1125899906842624 binary64)) (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))))) #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th))))
(if (<=.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #s(literal -3188548536178311/4503599627370496 binary64)) (.f64 (sin.f64 ky) (/.f64 (sin.f64 th) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))) (if (<=.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #s(literal 799388933858263/1125899906842624 binary64)) (/.f64 (.f64 (sin.f64 ky) (sin.f64 th)) (sqrt.f64 #s(approx (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))))) #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th))))
(if (<=.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #s(literal -3188548536178311/4503599627370496 binary64)) (.f64 (/.f64 (sin.f64 th) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) (sin.f64 ky)) (if (<=.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #s(literal 799388933858263/1125899906842624 binary64)) (.f64 (.f64 (sqrt.f64 #s(approx (/ 1 (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky)))))) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))) (sin.f64 ky)) (sin.f64 th)) #s(approx ( (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th))))
(if (<=.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #s(literal -3188548536178311/4503599627370496 binary64)) (.f64 (sin.f64 ky) (/.f64 (sin.f64 th) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))) (if (<=.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #s(literal 799388933858263/1125899906842624 binary64)) (.f64 (sin.f64 th) (.f64 (sin.f64 ky) (sqrt.f64 #s(approx (/ 1 (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky)))))) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64))))))))) #s(approx ( (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th))))
(if (<=.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #s(literal -1152921504606847/1152921504606846976 binary64)) (.f64 (/.f64 (sin.f64 th) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) (sin.f64 ky)) (if (<=.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #s(literal 5764607523034235/36028797018963968 binary64)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 ( -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) #s(approx (sin ky) (fma.f64 ky (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 #s(literal -1/5040 binary64) (.f64 ky ky) #s(literal 1/120 binary64)) #s(literal -1/6 binary64))) ky))) (sin.f64 th)) #s(approx ( (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th))))
(if (<=.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #s(literal -1152921504606847/1152921504606846976 binary64)) (.f64 (sin.f64 ky) (/.f64 (sin.f64 th) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))) (if (<=.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #s(literal 5764607523034235/36028797018963968 binary64)) (.f64 (sin.f64 th) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 ( -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) #s(approx (sin ky) (fma.f64 ky (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 #s(literal -1/5040 binary64) (.f64 ky ky) #s(literal 1/120 binary64)) #s(literal -1/6 binary64))) ky)))) #s(approx ( (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th))))
(if (<=.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #s(literal -1152921504606847/1152921504606846976 binary64)) (.f64 (sin.f64 th) (/.f64 (sin.f64 ky) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))) (if (<=.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #s(literal 5764607523034235/36028797018963968 binary64)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 ( -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) #s(approx (sin ky) (fma.f64 ky (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 #s(literal -1/5040 binary64) (.f64 ky ky) #s(literal 1/120 binary64)) #s(literal -1/6 binary64))) ky))) (sin.f64 th)) #s(approx ( (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th))))
(if (<=.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #s(literal -1152921504606847/1152921504606846976 binary64)) (.f64 (sin.f64 th) (/.f64 (sin.f64 ky) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64)))))) (if (<=.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #s(literal 5764607523034235/36028797018963968 binary64)) (.f64 (sin.f64 th) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 ( -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) #s(approx (sin ky) (fma.f64 ky (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 #s(literal -1/5040 binary64) (.f64 ky ky) #s(literal 1/120 binary64)) #s(literal -1/6 binary64))) ky)))) #s(approx ( (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th))))
(if (<=.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #s(literal -1152921504606847/1152921504606846976 binary64)) (/.f64 #s(approx (* (sin ky) (sin th)) (.f64 th (sin.f64 ky))) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) (if (<=.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #s(literal 5764607523034235/36028797018963968 binary64)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 ( -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) #s(approx (sin ky) (fma.f64 ky (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 #s(literal -1/5040 binary64) (.f64 ky ky) #s(literal 1/120 binary64)) #s(literal -1/6 binary64))) ky))) (sin.f64 th)) #s(approx ( (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th))))
(if (<=.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #s(literal -1152921504606847/1152921504606846976 binary64)) (/.f64 #s(approx (* (sin ky) (sin th)) (.f64 (sin.f64 ky) th)) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) (if (<=.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #s(literal 5764607523034235/36028797018963968 binary64)) (.f64 (sin.f64 th) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 ( -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) #s(approx (sin ky) (fma.f64 ky (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) (fma.f64 #s(literal -1/5040 binary64) (.f64 ky ky) #s(literal 1/120 binary64)) #s(literal -1/6 binary64))) ky)))) #s(approx ( (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th))))
(if (<=.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #s(literal -1152921504606847/1152921504606846976 binary64)) (/.f64 #s(approx (* (sin ky) (sin th)) (.f64 th (sin.f64 ky))) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) (if (<=.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #s(literal 5764607523034235/36028797018963968 binary64)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 ( -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) #s(approx (sin ky) (.f64 ky (fma.f64 (.f64 ky ky) (fma.f64 #s(literal 1/120 binary64) (.f64 ky ky) #s(literal -1/6 binary64)) #s(literal 1 binary64))))) (sin.f64 th)) #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th))))
(if (<=.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #s(literal -1152921504606847/1152921504606846976 binary64)) (/.f64 #s(approx (* (sin ky) (sin th)) (.f64 (sin.f64 ky) th)) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) (if (<=.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #s(literal 5764607523034235/36028797018963968 binary64)) (.f64 (sin.f64 th) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 ( -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) #s(approx (sin ky) (.f64 ky (fma.f64 (.f64 ky ky) (fma.f64 #s(literal 1/120 binary64) (.f64 ky ky) #s(literal -1/6 binary64)) #s(literal 1 binary64)))))) #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th))))
(if (<=.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #s(literal -1152921504606847/1152921504606846976 binary64)) (/.f64 #s(approx (* (sin ky) (sin th)) (.f64 th (sin.f64 ky))) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) (if (<=.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #s(literal 3602879701896397/72057594037927936 binary64)) (.f64 (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 ( -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) #s(approx (sin ky) (fma.f64 ky (.f64 #s(literal -1/6 binary64) (.f64 ky ky)) ky))) (sin.f64 th)) #s(approx ( (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th))))
(if (<=.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #s(literal -1152921504606847/1152921504606846976 binary64)) (/.f64 #s(approx (* (sin ky) (sin th)) (.f64 (sin.f64 ky) th)) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) (if (<=.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #s(literal 3602879701896397/72057594037927936 binary64)) (.f64 (sin.f64 th) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fma.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 kx kx))) #s(literal 1/2 binary64) #s(approx (+ 1/2 ( -1/2 (cos (+ ky ky)))) (.f64 (.f64 ky ky) (fma.f64 (.f64 ky ky) #s(literal -1/3 binary64) #s(literal 1 binary64))))))) #s(approx (sin ky) (fma.f64 ky (.f64 #s(literal -1/6 binary64) (.f64 ky ky)) ky)))) #s(approx ( (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th))))
(if (<=.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #s(literal -1152921504606847/1152921504606846976 binary64)) (/.f64 #s(approx (* (sin ky) (sin th)) (.f64 th (sin.f64 ky))) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) (if (<=.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #s(literal 3602879701896397/72057594037927936 binary64)) (.f64 #s(approx (* (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th)) #s(approx ( (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th))))
(if (<=.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #s(literal -1152921504606847/1152921504606846976 binary64)) (/.f64 #s(approx (* (sin ky) (sin th)) (.f64 (sin.f64 ky) th)) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) (if (<=.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #s(literal 3602879701896397/72057594037927936 binary64)) (.f64 (sin.f64 th) #s(approx (* (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))) (.f64 ky (sqrt.f64 #s(literal 2 binary64)))))) #s(approx ( (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th))))
(if (<=.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #s(literal -1152921504606847/1152921504606846976 binary64)) (/.f64 #s(approx (* (sin ky) (sin th)) (.f64 th (sin.f64 ky))) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) (if (<=.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #s(literal 3602879701896397/72057594037927936 binary64)) (.f64 (sin.f64 th) #s(approx (* (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (/.f64 (.f64 ky (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))))) #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th))))
(if (<=.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #s(literal -1152921504606847/1152921504606846976 binary64)) (/.f64 #s(approx (* (sin ky) (sin th)) (.f64 (sin.f64 ky) th)) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) (if (<=.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #s(literal 3602879701896397/72057594037927936 binary64)) (.f64 (sin.f64 th) #s(approx (* (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (/.f64 (.f64 ky (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (.f64 kx #s(literal -2 binary64)))))))) #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th))))
(if (<=.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #s(literal -1152921504606847/1152921504606846976 binary64)) (/.f64 #s(approx (* (sin ky) (sin th)) (.f64 th (sin.f64 ky))) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) (if (<=.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #s(literal 3022314549036573/151115727451828646838272 binary64)) (.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky #s(approx (+ ( (* ky ky) (+ (/ -1/2 (pow (sin kx) 3)) (/ -1/6 (sin kx)))) (/ 1 (sin kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (sin.f64 th)) #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th))))
(if (<=.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #s(literal -1152921504606847/1152921504606846976 binary64)) (/.f64 #s(approx (* (sin ky) (sin th)) (.f64 (sin.f64 ky) th)) (sqrt.f64 #s(approx (+ ( (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 ky #s(literal -2 binary64))) #s(literal 1/2 binary64))))) (if (<=.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #s(literal 3022314549036573/151115727451828646838272 binary64)) (.f64 (sin.f64 th) #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky #s(approx (+ ( (* ky ky) (+ (/ -1/2 (pow (sin kx) 3)) (/ -1/6 (sin kx)))) (/ 1 (sin kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx)))))) #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th))))
(if (<=.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #s(literal 3022314549036573/151115727451828646838272 binary64)) (.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky #s(approx (+ (* (* ky ky) (+ (/ -1/2 (pow (sin kx) 3)) (/ -1/6 (sin kx)))) (/ 1 (sin kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx))))) (sin.f64 th)) #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th)))
(if (<=.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #s(literal 3022314549036573/151115727451828646838272 binary64)) (.f64 (sin.f64 th) #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky #s(approx (+ (* (* ky ky) (+ (/ -1/2 (pow (sin kx) 3)) (/ -1/6 (sin kx)))) (/ 1 (sin kx))) (/.f64 #s(literal 1 binary64) (sin.f64 kx)))))) #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th)))
(if (<=.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #s(literal 3022314549036573/151115727451828646838272 binary64)) (.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (/.f64 ky (sin.f64 kx))) (sin.f64 th)) #s(approx ( (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th)))
(if (<=.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #s(literal 3022314549036573/151115727451828646838272 binary64)) (.f64 (sin.f64 th) #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (/.f64 ky (sin.f64 kx)))) #s(approx ( (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th)))
(if (<=.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #s(literal 3022314549036573/151115727451828646838272 binary64)) #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (/.f64 (.f64 ky (sin.f64 th)) (sin.f64 kx))) #s(approx ( (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th)))
(if (<=.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #s(literal 3022314549036573/151115727451828646838272 binary64)) (.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) (sin.f64 th)) #s(approx ( (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th)))
(if (<=.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #s(literal 3022314549036573/151115727451828646838272 binary64)) (.f64 (sin.f64 th) #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (.f64 ky (sqrt.f64 #s(literal 2 binary64))) #s(approx (sqrt (/ 1 (- 1 (cos (* kx -2))))) (/.f64 (sqrt.f64 #s(literal 1/2 binary64)) kx))))) #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th)))
(if (<=.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #s(literal 3022314549036573/151115727451828646838272 binary64)) (.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) #s(approx (* (sqrt (/ 1 (- 1 (cos (* kx -2))))) (* ky (sqrt 2))) (.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(literal 1/2 binary64))) (/.f64 ky kx)))) (sin.f64 th)) #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th)))
(if (<=.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #s(literal 3022314549036573/151115727451828646838272 binary64)) (.f64 (sin.f64 th) #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) #s(approx (* (sqrt (/ 1 (- 1 (cos (* kx -2))))) (* ky (sqrt 2))) (.f64 (.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 #s(literal 1/2 binary64))) (/.f64 ky kx))))) #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th)))
(if (<=.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #s(literal 7914572847139345/7914572847139345089936080672628710081124203171238778877250017794972711203409019749450124833959777439667125485632516458859243681097816038718961476963260581373331416708758372352 binary64)) (.f64 #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky #s(approx (+ (* (* ky ky) (+ (/ -1/2 (pow (sin kx) 3)) (/ -1/6 (sin kx)))) (/ 1 (sin kx))) (/.f64 (.f64 (.f64 ky ky) #s(literal -1/2 binary64)) (.f64 kx (.f64 kx kx)))))) (sin.f64 th)) (if (<=.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #s(literal 3022314549036573/151115727451828646838272 binary64)) (.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th))) #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th))))
(if (<=.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #s(literal 7914572847139345/7914572847139345089936080672628710081124203171238778877250017794972711203409019749450124833959777439667125485632516458859243681097816038718961476963260581373331416708758372352 binary64)) (.f64 (sin.f64 th) #s(approx (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (.f64 ky #s(approx (+ (* (* ky ky) (+ (/ -1/2 (pow (sin kx) 3)) (/ -1/6 (sin kx)))) (/ 1 (sin kx))) (/.f64 (.f64 #s(literal -1/2 binary64) (.f64 ky ky)) (.f64 kx (.f64 kx kx))))))) (if (<=.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #s(literal 3022314549036573/151115727451828646838272 binary64)) (.f64 #s(approx ( (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (.f64 ky (sqrt.f64 #s(literal 2 binary64))) #s(approx (sqrt (/ 1 (- 1 (cos (* kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)))) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th))) #s(approx ( (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th))))
(if (<=.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #s(literal 1087770609288739/2175541218577478036232553294038911497542013410209922757424923190068852981190050786259609609278379154099770693575665668158859588967025488852621393833027941793561932885341770625153958412288 binary64)) #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 #s(literal -1/6 binary64) (.f64 th (.f64 th th)))))) (if (<=.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #s(literal 3022314549036573/151115727451828646838272 binary64)) (.f64 #s(approx (* (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th))) #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th))))
(if (<=.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #s(literal 1087770609288739/2175541218577478036232553294038911497542013410209922757424923190068852981190050786259609609278379154099770693575665668158859588967025488852621393833027941793561932885341770625153958412288 binary64)) #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 #s(literal -1/6 binary64) (.f64 th (.f64 th th)))))) (if (<=.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #s(literal 3022314549036573/151115727451828646838272 binary64)) (.f64 #s(approx (* (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (.f64 ky (sqrt.f64 #s(literal 2 binary64))) #s(approx (sqrt (/ 1 (- 1 (cos (* kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)))) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th))) #s(approx ( (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) (sin.f64 th))))
(if (<=.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #s(literal 1087770609288739/2175541218577478036232553294038911497542013410209922757424923190068852981190050786259609609278379154099770693575665668158859588967025488852621393833027941793561932885341770625153958412288 binary64)) #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 #s(literal -1/6 binary64) (.f64 th (.f64 th th)))))) (if (<=.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #s(literal 3022314549036573/151115727451828646838272 binary64)) (.f64 #s(approx (* (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 #s(approx (sqrt (/ 1 (- 1 (cos ( kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)) (.f64 ky (sqrt.f64 #s(literal 2 binary64))))) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th))) #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (*.f64 th th) #s(literal -1/6 binary64))) th)))))
(if (<=.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #s(literal 1087770609288739/2175541218577478036232553294038911497542013410209922757424923190068852981190050786259609609278379154099770693575665668158859588967025488852621393833027941793561932885341770625153958412288 binary64)) #s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 #s(literal -1/6 binary64) (.f64 th (.f64 th th)))))) (if (<=.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) #s(literal 3022314549036573/151115727451828646838272 binary64)) (.f64 #s(approx (* (sqrt (/ 1 (+ (* (- 1 (cos (+ kx kx))) 1/2) (+ 1/2 (* -1/2 (cos (+ ky ky))))))) (sin ky)) (.f64 (.f64 ky (sqrt.f64 #s(literal 2 binary64))) #s(approx (sqrt (/ 1 (- 1 (cos (* kx -2))))) (/.f64 (fma.f64 (.f64 kx kx) (/.f64 #s(literal 1/12 binary64) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) kx)))) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th))) #s(approx ( (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (*.f64 th th) #s(literal -1/6 binary64))) th)))))
(if (<=.f64 (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (sin.f64 th)) #s(literal 5890680864316837/736335108039604595805923406147184530889923370574768772191969612422073040099331944991573923112581267542507986451953227192970402893063850485730703075899286013451337291468249027691733891486704001513279827771740183629161065194874727962517148100775228363421083691764065477590823919364012917984605619526140822066036736 binary64)) #s(approx ( (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 #s(literal -1/6 binary64) (.f64 th (.f64 th th)))))) #s(approx ( (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (*.f64 th th) #s(literal -1/6 binary64))) th))))
(if (<=.f64 (.f64 (sin.f64 th) (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))))) #s(literal 5890680864316837/736335108039604595805923406147184530889923370574768772191969612422073040099331944991573923112581267542507986451953227192970402893063850485730703075899286013451337291468249027691733891486704001513279827771740183629161065194874727962517148100775228363421083691764065477590823919364012917984605619526140822066036736 binary64)) #s(approx ( (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 #s(literal -1/6 binary64) (.f64 th (.f64 th th)))))) #s(approx ( (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 th (.f64 (.f64 th th) (fma.f64 #s(literal 1/120 binary64) (*.f64 th th) #s(literal -1/6 binary64))) th))))
(if (<=.f64 (.f64 (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64))))) (sin.f64 th)) #s(literal 5890680864316837/736335108039604595805923406147184530889923370574768772191969612422073040099331944991573923112581267542507986451953227192970402893063850485730703075899286013451337291468249027691733891486704001513279827771740183629161065194874727962517148100775228363421083691764065477590823919364012917984605619526140822066036736 binary64)) #s(approx ( (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 #s(literal -1/6 binary64) (.f64 th (.f64 th th)))))) #s(approx ( (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th))))
(if (<=.f64 (.f64 (sin.f64 th) (/.f64 (sin.f64 ky) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 kx) #s(literal 2 binary64)) (pow.f64 (sin.f64 ky) #s(literal 2 binary64)))))) #s(literal 5890680864316837/736335108039604595805923406147184530889923370574768772191969612422073040099331944991573923112581267542507986451953227192970402893063850485730703075899286013451337291468249027691733891486704001513279827771740183629161065194874727962517148100775228363421083691764065477590823919364012917984605619526140822066036736 binary64)) #s(approx ( (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 #s(literal -1/6 binary64) (.f64 th (.f64 th th)))))) #s(approx ( (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) (fma.f64 th (.f64 #s(literal -1/6 binary64) (.f64 th th)) th))))
#s(approx (* (/ (sin ky) (sqrt (+ (pow (sin kx) 2) (pow (sin ky) 2)))) (sin th)) #s(approx (sin th) #s(approx (+ (* th (* -1/6 (* th th))) th) (.f64 #s(literal -1/6 binary64) (.f64 th (*.f64 th th))))))

soundness2.0s (14.6%)

Memory

15.5MiB live, 2 074.7MiB allocated

Rules

14 278×	`lower-fma.f64`
14 278×	`lower-fma.f32`
7 918×	`lower-fma.f64`
7 918×	`lower-fma.f32`
7 646×	`lower-fma.f64`

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	783	13637
1	2543	13244
2	6483	13111
0	8763	12334
0	807	14871
1	2598	14119
2	6252	14051
0	8698	13177
0	317	2263
1	1011	2214
2	3860	2122
3	7803	2122
0	8106	1974
0	74	423
0	123	406
1	409	343
0	2684	340
0	831	15247
1	2696	14528
2	6700	14441
0	8818	13594
0	87	503
0	136	493
1	434	476
0	2792	456
0	13	49
0	22	49
1	62	49
2	338	49
3	2902	49
0	8284	34

Stop Event

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

Compiler

Compiled 6 598 to 2 539 computations (61.5% saved)

preprocess314.0ms (2.3%)

Memory

-2.7MiB live, 441.1MiB allocated

Remove

(negabs ky)

(negabs th)

(abs kx)

Compiler

Compiled 5 580 to 566 computations (89.9% saved)

end0.0ms (0%)

Memory: 0.0MiB live, 0.0MiB allocated